Theorem mon1psubm 38628

Description: Monic polynomials are a multiplicative submonoid. (Contributed by Stefan O'Rear, 12-Sep-2015.)

Hypotheses

Ref	Expression
mon1psubm.p	⊢ 𝑃 = (Poly1‘𝑅)
mon1psubm.m	⊢ 𝑀 = (Monic1p‘𝑅)
mon1psubm.u	⊢ 𝑈 = (mulGrp‘𝑃)

Assertion

Ref	Expression
mon1psubm	⊢ (𝑅 ∈ NzRing → 𝑀 ∈ (SubMnd‘𝑈))

Proof of Theorem mon1psubm

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		mon1psubm.p	. . . . 5 ⊢ 𝑃 = (Poly1‘𝑅)
2		eqid 2826	. . . . 5 ⊢ (Base‘𝑃) = (Base‘𝑃)
3		mon1psubm.m	. . . . 5 ⊢ 𝑀 = (Monic1p‘𝑅)
4	1, 2, 3	mon1pcl 24304	. . . 4 ⊢ (𝑥 ∈ 𝑀 → 𝑥 ∈ (Base‘𝑃))
5	4	ssriv 3832	. . 3 ⊢ 𝑀 ⊆ (Base‘𝑃)
6	5	a1i 11	. 2 ⊢ (𝑅 ∈ NzRing → 𝑀 ⊆ (Base‘𝑃))
7		eqid 2826	. . . 4 ⊢ (1r‘𝑃) = (1r‘𝑃)
8		eqid 2826	. . . 4 ⊢ ( deg1 ‘𝑅) = ( deg1 ‘𝑅)
9	1, 7, 3, 8	mon1pid 38627	. . 3 ⊢ (𝑅 ∈ NzRing → ((1r‘𝑃) ∈ 𝑀 ∧ (( deg1 ‘𝑅)‘(1r‘𝑃)) = 0))
10	9	simpld 490	. 2 ⊢ (𝑅 ∈ NzRing → (1r‘𝑃) ∈ 𝑀)
11	1	ply1nz 24281	. . . . . . 7 ⊢ (𝑅 ∈ NzRing → 𝑃 ∈ NzRing)
12		nzrring 19623	. . . . . . 7 ⊢ (𝑃 ∈ NzRing → 𝑃 ∈ Ring)
13	11, 12	syl 17	. . . . . 6 ⊢ (𝑅 ∈ NzRing → 𝑃 ∈ Ring)
14	13	adantr 474	. . . . 5 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → 𝑃 ∈ Ring)
15	4	ad2antrl 721	. . . . 5 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → 𝑥 ∈ (Base‘𝑃))
16		simprr 791	. . . . . 6 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → 𝑦 ∈ 𝑀)
17	5, 16	sseldi 3826	. . . . 5 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → 𝑦 ∈ (Base‘𝑃))
18		eqid 2826	. . . . . 6 ⊢ (.r‘𝑃) = (.r‘𝑃)
19	2, 18	ringcl 18916	. . . . 5 ⊢ ((𝑃 ∈ Ring ∧ 𝑥 ∈ (Base‘𝑃) ∧ 𝑦 ∈ (Base‘𝑃)) → (𝑥(.r‘𝑃)𝑦) ∈ (Base‘𝑃))
20	14, 15, 17, 19	syl3anc 1496	. . . 4 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → (𝑥(.r‘𝑃)𝑦) ∈ (Base‘𝑃))
21		eqid 2826	. . . . . . 7 ⊢ (RLReg‘𝑅) = (RLReg‘𝑅)
22		eqid 2826	. . . . . . 7 ⊢ (0g‘𝑃) = (0g‘𝑃)
23		nzrring 19623	. . . . . . . 8 ⊢ (𝑅 ∈ NzRing → 𝑅 ∈ Ring)
24	23	adantr 474	. . . . . . 7 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → 𝑅 ∈ Ring)
25	1, 22, 3	mon1pn0 24306	. . . . . . . 8 ⊢ (𝑥 ∈ 𝑀 → 𝑥 ≠ (0g‘𝑃))
26	25	ad2antrl 721	. . . . . . 7 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → 𝑥 ≠ (0g‘𝑃))
27		eqid 2826	. . . . . . . . . 10 ⊢ (1r‘𝑅) = (1r‘𝑅)
28	8, 27, 3	mon1pldg 24309	. . . . . . . . 9 ⊢ (𝑥 ∈ 𝑀 → ((coe1‘𝑥)‘(( deg1 ‘𝑅)‘𝑥)) = (1r‘𝑅))
29	28	ad2antrl 721	. . . . . . . 8 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → ((coe1‘𝑥)‘(( deg1 ‘𝑅)‘𝑥)) = (1r‘𝑅))
30		eqid 2826	. . . . . . . . . . . 12 ⊢ (Unit‘𝑅) = (Unit‘𝑅)
31	21, 30	unitrrg 19655	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Ring → (Unit‘𝑅) ⊆ (RLReg‘𝑅))
32	23, 31	syl 17	. . . . . . . . . 10 ⊢ (𝑅 ∈ NzRing → (Unit‘𝑅) ⊆ (RLReg‘𝑅))
33	30, 27	1unit 19013	. . . . . . . . . . 11 ⊢ (𝑅 ∈ Ring → (1r‘𝑅) ∈ (Unit‘𝑅))
34	23, 33	syl 17	. . . . . . . . . 10 ⊢ (𝑅 ∈ NzRing → (1r‘𝑅) ∈ (Unit‘𝑅))
35	32, 34	sseldd 3829	. . . . . . . . 9 ⊢ (𝑅 ∈ NzRing → (1r‘𝑅) ∈ (RLReg‘𝑅))
36	35	adantr 474	. . . . . . . 8 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → (1r‘𝑅) ∈ (RLReg‘𝑅))
37	29, 36	eqeltrd 2907	. . . . . . 7 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → ((coe1‘𝑥)‘(( deg1 ‘𝑅)‘𝑥)) ∈ (RLReg‘𝑅))
38	1, 22, 3	mon1pn0 24306	. . . . . . . 8 ⊢ (𝑦 ∈ 𝑀 → 𝑦 ≠ (0g‘𝑃))
39	38	ad2antll 722	. . . . . . 7 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → 𝑦 ≠ (0g‘𝑃))
40	8, 1, 21, 2, 18, 22, 24, 15, 26, 37, 17, 39	deg1mul2 24274	. . . . . 6 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → (( deg1 ‘𝑅)‘(𝑥(.r‘𝑃)𝑦)) = ((( deg1 ‘𝑅)‘𝑥) + (( deg1 ‘𝑅)‘𝑦)))
41	8, 1, 22, 2	deg1nn0cl 24248	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ 𝑥 ∈ (Base‘𝑃) ∧ 𝑥 ≠ (0g‘𝑃)) → (( deg1 ‘𝑅)‘𝑥) ∈ ℕ0)
42	24, 15, 26, 41	syl3anc 1496	. . . . . . 7 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → (( deg1 ‘𝑅)‘𝑥) ∈ ℕ0)
43	8, 1, 22, 2	deg1nn0cl 24248	. . . . . . . 8 ⊢ ((𝑅 ∈ Ring ∧ 𝑦 ∈ (Base‘𝑃) ∧ 𝑦 ≠ (0g‘𝑃)) → (( deg1 ‘𝑅)‘𝑦) ∈ ℕ0)
44	24, 17, 39, 43	syl3anc 1496	. . . . . . 7 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → (( deg1 ‘𝑅)‘𝑦) ∈ ℕ0)
45	42, 44	nn0addcld 11683	. . . . . 6 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → ((( deg1 ‘𝑅)‘𝑥) + (( deg1 ‘𝑅)‘𝑦)) ∈ ℕ0)
46	40, 45	eqeltrd 2907	. . . . 5 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → (( deg1 ‘𝑅)‘(𝑥(.r‘𝑃)𝑦)) ∈ ℕ0)
47	8, 1, 22, 2	deg1nn0clb 24250	. . . . . 6 ⊢ ((𝑅 ∈ Ring ∧ (𝑥(.r‘𝑃)𝑦) ∈ (Base‘𝑃)) → ((𝑥(.r‘𝑃)𝑦) ≠ (0g‘𝑃) ↔ (( deg1 ‘𝑅)‘(𝑥(.r‘𝑃)𝑦)) ∈ ℕ0))
48	24, 20, 47	syl2anc 581	. . . . 5 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → ((𝑥(.r‘𝑃)𝑦) ≠ (0g‘𝑃) ↔ (( deg1 ‘𝑅)‘(𝑥(.r‘𝑃)𝑦)) ∈ ℕ0))
49	46, 48	mpbird 249	. . . 4 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → (𝑥(.r‘𝑃)𝑦) ≠ (0g‘𝑃))
50	40	fveq2d 6438	. . . . 5 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → ((coe1‘(𝑥(.r‘𝑃)𝑦))‘(( deg1 ‘𝑅)‘(𝑥(.r‘𝑃)𝑦))) = ((coe1‘(𝑥(.r‘𝑃)𝑦))‘((( deg1 ‘𝑅)‘𝑥) + (( deg1 ‘𝑅)‘𝑦))))
51		eqid 2826	. . . . . . 7 ⊢ (.r‘𝑅) = (.r‘𝑅)
52	1, 18, 51, 2, 8, 22, 24, 15, 26, 17, 39	coe1mul4 24260	. . . . . 6 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → ((coe1‘(𝑥(.r‘𝑃)𝑦))‘((( deg1 ‘𝑅)‘𝑥) + (( deg1 ‘𝑅)‘𝑦))) = (((coe1‘𝑥)‘(( deg1 ‘𝑅)‘𝑥))(.r‘𝑅)((coe1‘𝑦)‘(( deg1 ‘𝑅)‘𝑦))))
53	8, 27, 3	mon1pldg 24309	. . . . . . . . 9 ⊢ (𝑦 ∈ 𝑀 → ((coe1‘𝑦)‘(( deg1 ‘𝑅)‘𝑦)) = (1r‘𝑅))
54	53	ad2antll 722	. . . . . . . 8 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → ((coe1‘𝑦)‘(( deg1 ‘𝑅)‘𝑦)) = (1r‘𝑅))
55	29, 54	oveq12d 6924	. . . . . . 7 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → (((coe1‘𝑥)‘(( deg1 ‘𝑅)‘𝑥))(.r‘𝑅)((coe1‘𝑦)‘(( deg1 ‘𝑅)‘𝑦))) = ((1r‘𝑅)(.r‘𝑅)(1r‘𝑅)))
56		eqid 2826	. . . . . . . . . . 11 ⊢ (Base‘𝑅) = (Base‘𝑅)
57	56, 27	ringidcl 18923	. . . . . . . . . 10 ⊢ (𝑅 ∈ Ring → (1r‘𝑅) ∈ (Base‘𝑅))
58	23, 57	syl 17	. . . . . . . . 9 ⊢ (𝑅 ∈ NzRing → (1r‘𝑅) ∈ (Base‘𝑅))
59	56, 51, 27	ringlidm 18926	. . . . . . . . 9 ⊢ ((𝑅 ∈ Ring ∧ (1r‘𝑅) ∈ (Base‘𝑅)) → ((1r‘𝑅)(.r‘𝑅)(1r‘𝑅)) = (1r‘𝑅))
60	23, 58, 59	syl2anc 581	. . . . . . . 8 ⊢ (𝑅 ∈ NzRing → ((1r‘𝑅)(.r‘𝑅)(1r‘𝑅)) = (1r‘𝑅))
61	60	adantr 474	. . . . . . 7 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → ((1r‘𝑅)(.r‘𝑅)(1r‘𝑅)) = (1r‘𝑅))
62	55, 61	eqtrd 2862	. . . . . 6 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → (((coe1‘𝑥)‘(( deg1 ‘𝑅)‘𝑥))(.r‘𝑅)((coe1‘𝑦)‘(( deg1 ‘𝑅)‘𝑦))) = (1r‘𝑅))
63	52, 62	eqtrd 2862	. . . . 5 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → ((coe1‘(𝑥(.r‘𝑃)𝑦))‘((( deg1 ‘𝑅)‘𝑥) + (( deg1 ‘𝑅)‘𝑦))) = (1r‘𝑅))
64	50, 63	eqtrd 2862	. . . 4 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → ((coe1‘(𝑥(.r‘𝑃)𝑦))‘(( deg1 ‘𝑅)‘(𝑥(.r‘𝑃)𝑦))) = (1r‘𝑅))
65	1, 2, 22, 8, 3, 27	ismon1p 24302	. . . 4 ⊢ ((𝑥(.r‘𝑃)𝑦) ∈ 𝑀 ↔ ((𝑥(.r‘𝑃)𝑦) ∈ (Base‘𝑃) ∧ (𝑥(.r‘𝑃)𝑦) ≠ (0g‘𝑃) ∧ ((coe1‘(𝑥(.r‘𝑃)𝑦))‘(( deg1 ‘𝑅)‘(𝑥(.r‘𝑃)𝑦))) = (1r‘𝑅)))
66	20, 49, 64, 65	syl3anbrc 1449	. . 3 ⊢ ((𝑅 ∈ NzRing ∧ (𝑥 ∈ 𝑀 ∧ 𝑦 ∈ 𝑀)) → (𝑥(.r‘𝑃)𝑦) ∈ 𝑀)
67	66	ralrimivva 3181	. 2 ⊢ (𝑅 ∈ NzRing → ∀𝑥 ∈ 𝑀 ∀𝑦 ∈ 𝑀 (𝑥(.r‘𝑃)𝑦) ∈ 𝑀)
68		mon1psubm.u	. . . . 5 ⊢ 𝑈 = (mulGrp‘𝑃)
69	68	ringmgp 18908	. . . 4 ⊢ (𝑃 ∈ Ring → 𝑈 ∈ Mnd)
70	13, 69	syl 17	. . 3 ⊢ (𝑅 ∈ NzRing → 𝑈 ∈ Mnd)
71	68, 2	mgpbas 18850	. . . 4 ⊢ (Base‘𝑃) = (Base‘𝑈)
72	68, 7	ringidval 18858	. . . 4 ⊢ (1r‘𝑃) = (0g‘𝑈)
73	68, 18	mgpplusg 18848	. . . 4 ⊢ (.r‘𝑃) = (+g‘𝑈)
74	71, 72, 73	issubm 17701	. . 3 ⊢ (𝑈 ∈ Mnd → (𝑀 ∈ (SubMnd‘𝑈) ↔ (𝑀 ⊆ (Base‘𝑃) ∧ (1r‘𝑃) ∈ 𝑀 ∧ ∀𝑥 ∈ 𝑀 ∀𝑦 ∈ 𝑀 (𝑥(.r‘𝑃)𝑦) ∈ 𝑀)))
75	70, 74	syl 17	. 2 ⊢ (𝑅 ∈ NzRing → (𝑀 ∈ (SubMnd‘𝑈) ↔ (𝑀 ⊆ (Base‘𝑃) ∧ (1r‘𝑃) ∈ 𝑀 ∧ ∀𝑥 ∈ 𝑀 ∀𝑦 ∈ 𝑀 (𝑥(.r‘𝑃)𝑦) ∈ 𝑀)))
76	6, 10, 67, 75	mpbir3and 1448	1 ⊢ (𝑅 ∈ NzRing → 𝑀 ∈ (SubMnd‘𝑈))

Syntax hints:   → wi 4   ↔ wb 198   ∧ wa 386   ∧ w3a 1113   = wceq 1658   ∈ wcel 2166   ≠ wne 3000  ∀wral 3118   ⊆ wss 3799  ‘cfv 6124  (class class class)co 6906  0cc0 10253   + caddc 10256  ℕ₀cn0 11619  Basecbs 16223  ._rcmulr 16307  0_gc0g 16454  Mndcmnd 17648  SubMndcsubmnd 17688  mulGrpcmgp 18844  1_rcur 18856  Ringcrg 18902  Unitcui 18994  NzRingcnzr 19619  RLRegcrlreg 19641  Poly₁cpl1 19908  coe₁cco1 19909   deg₁ cdg1 24214  Monic_1pcmn1 24285

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1896  ax-4 1910  ax-5 2011  ax-6 2077  ax-7 2114  ax-8 2168  ax-9 2175  ax-10 2194  ax-11 2209  ax-12 2222  ax-13 2391  ax-ext 2804  ax-rep 4995  ax-sep 5006  ax-nul 5014  ax-pow 5066  ax-pr 5128  ax-un 7210  ax-inf2 8816  ax-cnex 10309  ax-resscn 10310  ax-1cn 10311  ax-icn 10312  ax-addcl 10313  ax-addrcl 10314  ax-mulcl 10315  ax-mulrcl 10316  ax-mulcom 10317  ax-addass 10318  ax-mulass 10319  ax-distr 10320  ax-i2m1 10321  ax-1ne0 10322  ax-1rid 10323  ax-rnegex 10324  ax-rrecex 10325  ax-cnre 10326  ax-pre-lttri 10327  ax-pre-lttrn 10328  ax-pre-ltadd 10329  ax-pre-mulgt0 10330  ax-pre-sup 10331  ax-addf 10332  ax-mulf 10333

This theorem depends on definitions:  df-bi 199  df-an 387  df-or 881  df-3or 1114  df-3an 1115  df-tru 1662  df-ex 1881  df-nf 1885  df-sb 2070  df-mo 2606  df-eu 2641  df-clab 2813  df-cleq 2819  df-clel 2822  df-nfc 2959  df-ne 3001  df-nel 3104  df-ral 3123  df-rex 3124  df-reu 3125  df-rmo 3126  df-rab 3127  df-v 3417  df-sbc 3664  df-csb 3759  df-dif 3802  df-un 3804  df-in 3806  df-ss 3813  df-pss 3815  df-nul 4146  df-if 4308  df-pw 4381  df-sn 4399  df-pr 4401  df-tp 4403  df-op 4405  df-uni 4660  df-int 4699  df-iun 4743  df-iin 4744  df-br 4875  df-opab 4937  df-mpt 4954  df-tr 4977  df-id 5251  df-eprel 5256  df-po 5264  df-so 5265  df-fr 5302  df-se 5303  df-we 5304  df-xp 5349  df-rel 5350  df-cnv 5351  df-co 5352  df-dm 5353  df-rn 5354  df-res 5355  df-ima 5356  df-pred 5921  df-ord 5967  df-on 5968  df-lim 5969  df-suc 5970  df-iota 6087  df-fun 6126  df-fn 6127  df-f 6128  df-f1 6129  df-fo 6130  df-f1o 6131  df-fv 6132  df-isom 6133  df-riota 6867  df-ov 6909  df-oprab 6910  df-mpt2 6911  df-of 7158  df-ofr 7159  df-om 7328  df-1st 7429  df-2nd 7430  df-supp 7561  df-tpos 7618  df-wrecs 7673  df-recs 7735  df-rdg 7773  df-1o 7827  df-2o 7828  df-oadd 7831  df-er 8010  df-map 8125  df-pm 8126  df-ixp 8177  df-en 8224  df-dom 8225  df-sdom 8226  df-fin 8227  df-fsupp 8546  df-sup 8618  df-oi 8685  df-card 9079  df-pnf 10394  df-mnf 10395  df-xr 10396  df-ltxr 10397  df-le 10398  df-sub 10588  df-neg 10589  df-nn 11352  df-2 11415  df-3 11416  df-4 11417  df-5 11418  df-6 11419  df-7 11420  df-8 11421  df-9 11422  df-n0 11620  df-z 11706  df-dec 11823  df-uz 11970  df-fz 12621  df-fzo 12762  df-seq 13097  df-hash 13412  df-struct 16225  df-ndx 16226  df-slot 16227  df-base 16229  df-sets 16230  df-ress 16231  df-plusg 16319  df-mulr 16320  df-starv 16321  df-sca 16322  df-vsca 16323  df-tset 16325  df-ple 16326  df-ds 16328  df-unif 16329  df-0g 16456  df-gsum 16457  df-mre 16600  df-mrc 16601  df-acs 16603  df-mgm 17596  df-sgrp 17638  df-mnd 17649  df-mhm 17689  df-submnd 17690  df-grp 17780  df-minusg 17781  df-sbg 17782  df-mulg 17896  df-subg 17943  df-ghm 18010  df-cntz 18101  df-cmn 18549  df-abl 18550  df-mgp 18845  df-ur 18857  df-ring 18904  df-cring 18905  df-oppr 18978  df-dvdsr 18996  df-unit 18997  df-invr 19027  df-subrg 19135  df-lmod 19222  df-lss 19290  df-nzr 19620  df-rlreg 19645  df-ascl 19676  df-psr 19718  df-mvr 19719  df-mpl 19720  df-opsr 19722  df-psr1 19911  df-vr1 19912  df-ply1 19913  df-coe1 19914  df-cnfld 20108  df-mdeg 24215  df-deg1 24216  df-mon1 24290

This theorem is referenced by: (None)