Users' Mathboxes Mathbox for Stefan O'Rear < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  mpaaeu Structured version   Visualization version   GIF version

Theorem mpaaeu 38329
Description: An algebraic number has exactly one monic polynomial of the least degree. (Contributed by Stefan O'Rear, 25-Nov-2014.)
Assertion
Ref Expression
mpaaeu (𝐴 ∈ 𝔸 → ∃!𝑝 ∈ (Poly‘ℚ)((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1))
Distinct variable group:   𝐴,𝑝

Proof of Theorem mpaaeu
Dummy variables 𝑎 𝑏 𝑐 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 qsscn 12000 . . . . . 6 ℚ ⊆ ℂ
2 eldifi 3894 . . . . . . . . . 10 (𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝}) → 𝑎 ∈ (Poly‘ℚ))
32ad2antlr 718 . . . . . . . . 9 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → 𝑎 ∈ (Poly‘ℚ))
4 zssq 11996 . . . . . . . . . 10 ℤ ⊆ ℚ
5 0z 11635 . . . . . . . . . 10 0 ∈ ℤ
64, 5sselii 3758 . . . . . . . . 9 0 ∈ ℚ
7 eqid 2765 . . . . . . . . . 10 (coeff‘𝑎) = (coeff‘𝑎)
87coef2 24278 . . . . . . . . 9 ((𝑎 ∈ (Poly‘ℚ) ∧ 0 ∈ ℚ) → (coeff‘𝑎):ℕ0⟶ℚ)
93, 6, 8sylancl 580 . . . . . . . 8 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → (coeff‘𝑎):ℕ0⟶ℚ)
10 dgrcl 24280 . . . . . . . . 9 (𝑎 ∈ (Poly‘ℚ) → (deg‘𝑎) ∈ ℕ0)
113, 10syl 17 . . . . . . . 8 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → (deg‘𝑎) ∈ ℕ0)
129, 11ffvelrnd 6550 . . . . . . 7 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → ((coeff‘𝑎)‘(deg‘𝑎)) ∈ ℚ)
13 eldifsni 4476 . . . . . . . . 9 (𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝}) → 𝑎 ≠ 0𝑝)
1413ad2antlr 718 . . . . . . . 8 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → 𝑎 ≠ 0𝑝)
15 eqid 2765 . . . . . . . . . . 11 (deg‘𝑎) = (deg‘𝑎)
1615, 7dgreq0 24312 . . . . . . . . . 10 (𝑎 ∈ (Poly‘ℚ) → (𝑎 = 0𝑝 ↔ ((coeff‘𝑎)‘(deg‘𝑎)) = 0))
1716necon3bid 2981 . . . . . . . . 9 (𝑎 ∈ (Poly‘ℚ) → (𝑎 ≠ 0𝑝 ↔ ((coeff‘𝑎)‘(deg‘𝑎)) ≠ 0))
183, 17syl 17 . . . . . . . 8 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → (𝑎 ≠ 0𝑝 ↔ ((coeff‘𝑎)‘(deg‘𝑎)) ≠ 0))
1914, 18mpbid 223 . . . . . . 7 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → ((coeff‘𝑎)‘(deg‘𝑎)) ≠ 0)
20 qreccl 12009 . . . . . . 7 ((((coeff‘𝑎)‘(deg‘𝑎)) ∈ ℚ ∧ ((coeff‘𝑎)‘(deg‘𝑎)) ≠ 0) → (1 / ((coeff‘𝑎)‘(deg‘𝑎))) ∈ ℚ)
2112, 19, 20syl2anc 579 . . . . . 6 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → (1 / ((coeff‘𝑎)‘(deg‘𝑎))) ∈ ℚ)
22 plyconst 24253 . . . . . 6 ((ℚ ⊆ ℂ ∧ (1 / ((coeff‘𝑎)‘(deg‘𝑎))) ∈ ℚ) → (ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∈ (Poly‘ℚ))
231, 21, 22sylancr 581 . . . . 5 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → (ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∈ (Poly‘ℚ))
24 simpl 474 . . . . . 6 (((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) → (ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∈ (Poly‘ℚ))
25 simpr 477 . . . . . 6 (((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) → 𝑎 ∈ (Poly‘ℚ))
26 qaddcl 12005 . . . . . . 7 ((𝑏 ∈ ℚ ∧ 𝑐 ∈ ℚ) → (𝑏 + 𝑐) ∈ ℚ)
2726adantl 473 . . . . . 6 ((((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) ∧ (𝑏 ∈ ℚ ∧ 𝑐 ∈ ℚ)) → (𝑏 + 𝑐) ∈ ℚ)
28 qmulcl 12007 . . . . . . 7 ((𝑏 ∈ ℚ ∧ 𝑐 ∈ ℚ) → (𝑏 · 𝑐) ∈ ℚ)
2928adantl 473 . . . . . 6 ((((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) ∧ (𝑏 ∈ ℚ ∧ 𝑐 ∈ ℚ)) → (𝑏 · 𝑐) ∈ ℚ)
3024, 25, 27, 29plymul 24265 . . . . 5 (((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) → ((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎) ∈ (Poly‘ℚ))
3123, 3, 30syl2anc 579 . . . 4 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → ((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎) ∈ (Poly‘ℚ))
327coef3 24279 . . . . . . . . 9 (𝑎 ∈ (Poly‘ℚ) → (coeff‘𝑎):ℕ0⟶ℂ)
333, 32syl 17 . . . . . . . 8 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → (coeff‘𝑎):ℕ0⟶ℂ)
3433, 11ffvelrnd 6550 . . . . . . 7 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → ((coeff‘𝑎)‘(deg‘𝑎)) ∈ ℂ)
3534, 19reccld 11048 . . . . . 6 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → (1 / ((coeff‘𝑎)‘(deg‘𝑎))) ∈ ℂ)
3634, 19recne0d 11049 . . . . . 6 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → (1 / ((coeff‘𝑎)‘(deg‘𝑎))) ≠ 0)
37 dgrmulc 24318 . . . . . 6 (((1 / ((coeff‘𝑎)‘(deg‘𝑎))) ∈ ℂ ∧ (1 / ((coeff‘𝑎)‘(deg‘𝑎))) ≠ 0 ∧ 𝑎 ∈ (Poly‘ℚ)) → (deg‘((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎)) = (deg‘𝑎))
3835, 36, 3, 37syl3anc 1490 . . . . 5 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → (deg‘((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎)) = (deg‘𝑎))
39 simprl 787 . . . . 5 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → (deg‘𝑎) = (degAA𝐴))
4038, 39eqtrd 2799 . . . 4 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → (deg‘((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎)) = (degAA𝐴))
41 aacn 24363 . . . . . . 7 (𝐴 ∈ 𝔸 → 𝐴 ∈ ℂ)
4241ad2antrr 717 . . . . . 6 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → 𝐴 ∈ ℂ)
43 ovex 6874 . . . . . . . 8 (1 / ((coeff‘𝑎)‘(deg‘𝑎))) ∈ V
44 fnconstg 6275 . . . . . . . 8 ((1 / ((coeff‘𝑎)‘(deg‘𝑎))) ∈ V → (ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) Fn ℂ)
4543, 44mp1i 13 . . . . . . 7 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → (ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) Fn ℂ)
46 plyf 24245 . . . . . . . 8 (𝑎 ∈ (Poly‘ℚ) → 𝑎:ℂ⟶ℂ)
47 ffn 6223 . . . . . . . 8 (𝑎:ℂ⟶ℂ → 𝑎 Fn ℂ)
483, 46, 473syl 18 . . . . . . 7 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → 𝑎 Fn ℂ)
49 cnex 10270 . . . . . . . 8 ℂ ∈ V
5049a1i 11 . . . . . . 7 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → ℂ ∈ V)
51 inidm 3982 . . . . . . 7 (ℂ ∩ ℂ) = ℂ
5243fvconst2 6662 . . . . . . . 8 (𝐴 ∈ ℂ → ((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))})‘𝐴) = (1 / ((coeff‘𝑎)‘(deg‘𝑎))))
5352adantl 473 . . . . . . 7 ((((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) ∧ 𝐴 ∈ ℂ) → ((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))})‘𝐴) = (1 / ((coeff‘𝑎)‘(deg‘𝑎))))
54 simplrr 796 . . . . . . 7 ((((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) ∧ 𝐴 ∈ ℂ) → (𝑎𝐴) = 0)
5545, 48, 50, 50, 51, 53, 54ofval 7104 . . . . . 6 ((((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) ∧ 𝐴 ∈ ℂ) → (((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎)‘𝐴) = ((1 / ((coeff‘𝑎)‘(deg‘𝑎))) · 0))
5642, 55mpdan 678 . . . . 5 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → (((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎)‘𝐴) = ((1 / ((coeff‘𝑎)‘(deg‘𝑎))) · 0))
5735mul01d 10489 . . . . 5 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → ((1 / ((coeff‘𝑎)‘(deg‘𝑎))) · 0) = 0)
5856, 57eqtrd 2799 . . . 4 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → (((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎)‘𝐴) = 0)
59 coemulc 24302 . . . . . . 7 (((1 / ((coeff‘𝑎)‘(deg‘𝑎))) ∈ ℂ ∧ 𝑎 ∈ (Poly‘ℚ)) → (coeff‘((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎)) = ((ℕ0 × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · (coeff‘𝑎)))
6035, 3, 59syl2anc 579 . . . . . 6 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → (coeff‘((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎)) = ((ℕ0 × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · (coeff‘𝑎)))
6160fveq1d 6377 . . . . 5 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → ((coeff‘((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎))‘(degAA𝐴)) = (((ℕ0 × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · (coeff‘𝑎))‘(degAA𝐴)))
62 dgraacl 38325 . . . . . . . 8 (𝐴 ∈ 𝔸 → (degAA𝐴) ∈ ℕ)
6362ad2antrr 717 . . . . . . 7 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → (degAA𝐴) ∈ ℕ)
6463nnnn0d 11598 . . . . . 6 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → (degAA𝐴) ∈ ℕ0)
65 fnconstg 6275 . . . . . . . 8 ((1 / ((coeff‘𝑎)‘(deg‘𝑎))) ∈ V → (ℕ0 × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) Fn ℕ0)
6643, 65mp1i 13 . . . . . . 7 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → (ℕ0 × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) Fn ℕ0)
6733ffnd 6224 . . . . . . 7 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → (coeff‘𝑎) Fn ℕ0)
68 nn0ex 11545 . . . . . . . 8 0 ∈ V
6968a1i 11 . . . . . . 7 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → ℕ0 ∈ V)
70 inidm 3982 . . . . . . 7 (ℕ0 ∩ ℕ0) = ℕ0
7143fvconst2 6662 . . . . . . . 8 ((degAA𝐴) ∈ ℕ0 → ((ℕ0 × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))})‘(degAA𝐴)) = (1 / ((coeff‘𝑎)‘(deg‘𝑎))))
7271adantl 473 . . . . . . 7 ((((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) ∧ (degAA𝐴) ∈ ℕ0) → ((ℕ0 × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))})‘(degAA𝐴)) = (1 / ((coeff‘𝑎)‘(deg‘𝑎))))
73 simplrl 795 . . . . . . . . 9 ((((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) ∧ (degAA𝐴) ∈ ℕ0) → (deg‘𝑎) = (degAA𝐴))
7473eqcomd 2771 . . . . . . . 8 ((((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) ∧ (degAA𝐴) ∈ ℕ0) → (degAA𝐴) = (deg‘𝑎))
7574fveq2d 6379 . . . . . . 7 ((((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) ∧ (degAA𝐴) ∈ ℕ0) → ((coeff‘𝑎)‘(degAA𝐴)) = ((coeff‘𝑎)‘(deg‘𝑎)))
7666, 67, 69, 69, 70, 72, 75ofval 7104 . . . . . 6 ((((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) ∧ (degAA𝐴) ∈ ℕ0) → (((ℕ0 × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · (coeff‘𝑎))‘(degAA𝐴)) = ((1 / ((coeff‘𝑎)‘(deg‘𝑎))) · ((coeff‘𝑎)‘(deg‘𝑎))))
7764, 76mpdan 678 . . . . 5 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → (((ℕ0 × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · (coeff‘𝑎))‘(degAA𝐴)) = ((1 / ((coeff‘𝑎)‘(deg‘𝑎))) · ((coeff‘𝑎)‘(deg‘𝑎))))
7834, 19recid2d 11051 . . . . 5 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → ((1 / ((coeff‘𝑎)‘(deg‘𝑎))) · ((coeff‘𝑎)‘(deg‘𝑎))) = 1)
7961, 77, 783eqtrd 2803 . . . 4 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → ((coeff‘((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎))‘(degAA𝐴)) = 1)
80 fveqeq2 6384 . . . . . 6 (𝑝 = ((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎) → ((deg‘𝑝) = (degAA𝐴) ↔ (deg‘((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎)) = (degAA𝐴)))
81 fveq1 6374 . . . . . . 7 (𝑝 = ((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎) → (𝑝𝐴) = (((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎)‘𝐴))
8281eqeq1d 2767 . . . . . 6 (𝑝 = ((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎) → ((𝑝𝐴) = 0 ↔ (((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎)‘𝐴) = 0))
83 fveq2 6375 . . . . . . . 8 (𝑝 = ((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎) → (coeff‘𝑝) = (coeff‘((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎)))
8483fveq1d 6377 . . . . . . 7 (𝑝 = ((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎) → ((coeff‘𝑝)‘(degAA𝐴)) = ((coeff‘((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎))‘(degAA𝐴)))
8584eqeq1d 2767 . . . . . 6 (𝑝 = ((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎) → (((coeff‘𝑝)‘(degAA𝐴)) = 1 ↔ ((coeff‘((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎))‘(degAA𝐴)) = 1))
8680, 82, 853anbi123d 1560 . . . . 5 (𝑝 = ((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎) → (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ↔ ((deg‘((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎)) = (degAA𝐴) ∧ (((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎)‘𝐴) = 0 ∧ ((coeff‘((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎))‘(degAA𝐴)) = 1)))
8786rspcev 3461 . . . 4 ((((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎) ∈ (Poly‘ℚ) ∧ ((deg‘((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎)) = (degAA𝐴) ∧ (((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎)‘𝐴) = 0 ∧ ((coeff‘((ℂ × {(1 / ((coeff‘𝑎)‘(deg‘𝑎)))}) ∘𝑓 · 𝑎))‘(degAA𝐴)) = 1)) → ∃𝑝 ∈ (Poly‘ℚ)((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1))
8831, 40, 58, 79, 87syl13anc 1491 . . 3 (((𝐴 ∈ 𝔸 ∧ 𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)) → ∃𝑝 ∈ (Poly‘ℚ)((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1))
89 dgraalem 38324 . . . 4 (𝐴 ∈ 𝔸 → ((degAA𝐴) ∈ ℕ ∧ ∃𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0)))
9089simprd 489 . . 3 (𝐴 ∈ 𝔸 → ∃𝑎 ∈ ((Poly‘ℚ) ∖ {0𝑝})((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0))
9188, 90r19.29a 3225 . 2 (𝐴 ∈ 𝔸 → ∃𝑝 ∈ (Poly‘ℚ)((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1))
92 simp2 1167 . . . . . . . . . . 11 (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) → (𝑝𝐴) = 0)
93 simp2 1167 . . . . . . . . . . 11 (((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1) → (𝑎𝐴) = 0)
9492, 93anim12i 606 . . . . . . . . . 10 ((((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1)) → ((𝑝𝐴) = 0 ∧ (𝑎𝐴) = 0))
95 plyf 24245 . . . . . . . . . . . . . . . 16 (𝑝 ∈ (Poly‘ℚ) → 𝑝:ℂ⟶ℂ)
9695ffnd 6224 . . . . . . . . . . . . . . 15 (𝑝 ∈ (Poly‘ℚ) → 𝑝 Fn ℂ)
9796ad2antrr 717 . . . . . . . . . . . . . 14 (((𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) ∧ ((𝑝𝐴) = 0 ∧ (𝑎𝐴) = 0)) → 𝑝 Fn ℂ)
9846ffnd 6224 . . . . . . . . . . . . . . 15 (𝑎 ∈ (Poly‘ℚ) → 𝑎 Fn ℂ)
9998ad2antlr 718 . . . . . . . . . . . . . 14 (((𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) ∧ ((𝑝𝐴) = 0 ∧ (𝑎𝐴) = 0)) → 𝑎 Fn ℂ)
10049a1i 11 . . . . . . . . . . . . . 14 (((𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) ∧ ((𝑝𝐴) = 0 ∧ (𝑎𝐴) = 0)) → ℂ ∈ V)
101 simplrl 795 . . . . . . . . . . . . . 14 ((((𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) ∧ ((𝑝𝐴) = 0 ∧ (𝑎𝐴) = 0)) ∧ 𝐴 ∈ ℂ) → (𝑝𝐴) = 0)
102 simplrr 796 . . . . . . . . . . . . . 14 ((((𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) ∧ ((𝑝𝐴) = 0 ∧ (𝑎𝐴) = 0)) ∧ 𝐴 ∈ ℂ) → (𝑎𝐴) = 0)
10397, 99, 100, 100, 51, 101, 102ofval 7104 . . . . . . . . . . . . 13 ((((𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) ∧ ((𝑝𝐴) = 0 ∧ (𝑎𝐴) = 0)) ∧ 𝐴 ∈ ℂ) → ((𝑝𝑓𝑎)‘𝐴) = (0 − 0))
10441, 103sylan2 586 . . . . . . . . . . . 12 ((((𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) ∧ ((𝑝𝐴) = 0 ∧ (𝑎𝐴) = 0)) ∧ 𝐴 ∈ 𝔸) → ((𝑝𝑓𝑎)‘𝐴) = (0 − 0))
105 0m0e0 11399 . . . . . . . . . . . 12 (0 − 0) = 0
106104, 105syl6eq 2815 . . . . . . . . . . 11 ((((𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) ∧ ((𝑝𝐴) = 0 ∧ (𝑎𝐴) = 0)) ∧ 𝐴 ∈ 𝔸) → ((𝑝𝑓𝑎)‘𝐴) = 0)
107106ex 401 . . . . . . . . . 10 (((𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) ∧ ((𝑝𝐴) = 0 ∧ (𝑎𝐴) = 0)) → (𝐴 ∈ 𝔸 → ((𝑝𝑓𝑎)‘𝐴) = 0))
10894, 107sylan2 586 . . . . . . . . 9 (((𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → (𝐴 ∈ 𝔸 → ((𝑝𝑓𝑎)‘𝐴) = 0))
109108com12 32 . . . . . . . 8 (𝐴 ∈ 𝔸 → (((𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → ((𝑝𝑓𝑎)‘𝐴) = 0))
110109impl 447 . . . . . . 7 (((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → ((𝑝𝑓𝑎)‘𝐴) = 0)
111 simpll 783 . . . . . . . 8 (((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → 𝐴 ∈ 𝔸)
112 simpl 474 . . . . . . . . . 10 ((𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) → 𝑝 ∈ (Poly‘ℚ))
113 simpr 477 . . . . . . . . . 10 ((𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) → 𝑎 ∈ (Poly‘ℚ))
11426adantl 473 . . . . . . . . . 10 (((𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) ∧ (𝑏 ∈ ℚ ∧ 𝑐 ∈ ℚ)) → (𝑏 + 𝑐) ∈ ℚ)
11528adantl 473 . . . . . . . . . 10 (((𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) ∧ (𝑏 ∈ ℚ ∧ 𝑐 ∈ ℚ)) → (𝑏 · 𝑐) ∈ ℚ)
116 1z 11654 . . . . . . . . . . . 12 1 ∈ ℤ
117 zq 11995 . . . . . . . . . . . 12 (1 ∈ ℤ → 1 ∈ ℚ)
118 qnegcl 12006 . . . . . . . . . . . 12 (1 ∈ ℚ → -1 ∈ ℚ)
119116, 117, 118mp2b 10 . . . . . . . . . . 11 -1 ∈ ℚ
120119a1i 11 . . . . . . . . . 10 ((𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) → -1 ∈ ℚ)
121112, 113, 114, 115, 120plysub 24266 . . . . . . . . 9 ((𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) → (𝑝𝑓𝑎) ∈ (Poly‘ℚ))
122121ad2antlr 718 . . . . . . . 8 (((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → (𝑝𝑓𝑎) ∈ (Poly‘ℚ))
123 simplrl 795 . . . . . . . . . 10 (((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → 𝑝 ∈ (Poly‘ℚ))
124 simplrr 796 . . . . . . . . . 10 (((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → 𝑎 ∈ (Poly‘ℚ))
125 simprr1 1287 . . . . . . . . . . 11 (((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → (deg‘𝑎) = (degAA𝐴))
126 simprl1 1281 . . . . . . . . . . 11 (((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → (deg‘𝑝) = (degAA𝐴))
127125, 126eqtr4d 2802 . . . . . . . . . 10 (((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → (deg‘𝑎) = (deg‘𝑝))
12862ad2antrr 717 . . . . . . . . . . 11 (((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → (degAA𝐴) ∈ ℕ)
129126, 128eqeltrd 2844 . . . . . . . . . 10 (((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → (deg‘𝑝) ∈ ℕ)
130 simprl3 1285 . . . . . . . . . . 11 (((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → ((coeff‘𝑝)‘(degAA𝐴)) = 1)
131126fveq2d 6379 . . . . . . . . . . 11 (((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → ((coeff‘𝑝)‘(deg‘𝑝)) = ((coeff‘𝑝)‘(degAA𝐴)))
132126fveq2d 6379 . . . . . . . . . . . 12 (((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → ((coeff‘𝑎)‘(deg‘𝑝)) = ((coeff‘𝑎)‘(degAA𝐴)))
133 simprr3 1291 . . . . . . . . . . . 12 (((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → ((coeff‘𝑎)‘(degAA𝐴)) = 1)
134132, 133eqtrd 2799 . . . . . . . . . . 11 (((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → ((coeff‘𝑎)‘(deg‘𝑝)) = 1)
135130, 131, 1343eqtr4d 2809 . . . . . . . . . 10 (((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → ((coeff‘𝑝)‘(deg‘𝑝)) = ((coeff‘𝑎)‘(deg‘𝑝)))
136 eqid 2765 . . . . . . . . . . 11 (deg‘𝑝) = (deg‘𝑝)
137136dgrsub2 38314 . . . . . . . . . 10 (((𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) ∧ ((deg‘𝑎) = (deg‘𝑝) ∧ (deg‘𝑝) ∈ ℕ ∧ ((coeff‘𝑝)‘(deg‘𝑝)) = ((coeff‘𝑎)‘(deg‘𝑝)))) → (deg‘(𝑝𝑓𝑎)) < (deg‘𝑝))
138123, 124, 127, 129, 135, 137syl23anc 1496 . . . . . . . . 9 (((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → (deg‘(𝑝𝑓𝑎)) < (deg‘𝑝))
139138, 126breqtrd 4835 . . . . . . . 8 (((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → (deg‘(𝑝𝑓𝑎)) < (degAA𝐴))
140 dgraa0p 38328 . . . . . . . 8 ((𝐴 ∈ 𝔸 ∧ (𝑝𝑓𝑎) ∈ (Poly‘ℚ) ∧ (deg‘(𝑝𝑓𝑎)) < (degAA𝐴)) → (((𝑝𝑓𝑎)‘𝐴) = 0 ↔ (𝑝𝑓𝑎) = 0𝑝))
141111, 122, 139, 140syl3anc 1490 . . . . . . 7 (((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → (((𝑝𝑓𝑎)‘𝐴) = 0 ↔ (𝑝𝑓𝑎) = 0𝑝))
142110, 141mpbid 223 . . . . . 6 (((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → (𝑝𝑓𝑎) = 0𝑝)
143 df-0p 23728 . . . . . 6 0𝑝 = (ℂ × {0})
144142, 143syl6eq 2815 . . . . 5 (((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → (𝑝𝑓𝑎) = (ℂ × {0}))
145 ofsubeq0 11271 . . . . . . . 8 ((ℂ ∈ V ∧ 𝑝:ℂ⟶ℂ ∧ 𝑎:ℂ⟶ℂ) → ((𝑝𝑓𝑎) = (ℂ × {0}) ↔ 𝑝 = 𝑎))
14649, 145mp3an1 1572 . . . . . . 7 ((𝑝:ℂ⟶ℂ ∧ 𝑎:ℂ⟶ℂ) → ((𝑝𝑓𝑎) = (ℂ × {0}) ↔ 𝑝 = 𝑎))
14795, 46, 146syl2an 589 . . . . . 6 ((𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ)) → ((𝑝𝑓𝑎) = (ℂ × {0}) ↔ 𝑝 = 𝑎))
148147ad2antlr 718 . . . . 5 (((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → ((𝑝𝑓𝑎) = (ℂ × {0}) ↔ 𝑝 = 𝑎))
149144, 148mpbid 223 . . . 4 (((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) ∧ (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1))) → 𝑝 = 𝑎)
150149ex 401 . . 3 ((𝐴 ∈ 𝔸 ∧ (𝑝 ∈ (Poly‘ℚ) ∧ 𝑎 ∈ (Poly‘ℚ))) → ((((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1)) → 𝑝 = 𝑎))
151150ralrimivva 3118 . 2 (𝐴 ∈ 𝔸 → ∀𝑝 ∈ (Poly‘ℚ)∀𝑎 ∈ (Poly‘ℚ)((((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1)) → 𝑝 = 𝑎))
152 fveqeq2 6384 . . . 4 (𝑝 = 𝑎 → ((deg‘𝑝) = (degAA𝐴) ↔ (deg‘𝑎) = (degAA𝐴)))
153 fveq1 6374 . . . . 5 (𝑝 = 𝑎 → (𝑝𝐴) = (𝑎𝐴))
154153eqeq1d 2767 . . . 4 (𝑝 = 𝑎 → ((𝑝𝐴) = 0 ↔ (𝑎𝐴) = 0))
155 fveq2 6375 . . . . . 6 (𝑝 = 𝑎 → (coeff‘𝑝) = (coeff‘𝑎))
156155fveq1d 6377 . . . . 5 (𝑝 = 𝑎 → ((coeff‘𝑝)‘(degAA𝐴)) = ((coeff‘𝑎)‘(degAA𝐴)))
157156eqeq1d 2767 . . . 4 (𝑝 = 𝑎 → (((coeff‘𝑝)‘(degAA𝐴)) = 1 ↔ ((coeff‘𝑎)‘(degAA𝐴)) = 1))
158152, 154, 1573anbi123d 1560 . . 3 (𝑝 = 𝑎 → (((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ↔ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1)))
159158reu4 3559 . 2 (∃!𝑝 ∈ (Poly‘ℚ)((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ↔ (∃𝑝 ∈ (Poly‘ℚ)((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ∀𝑝 ∈ (Poly‘ℚ)∀𝑎 ∈ (Poly‘ℚ)((((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1) ∧ ((deg‘𝑎) = (degAA𝐴) ∧ (𝑎𝐴) = 0 ∧ ((coeff‘𝑎)‘(degAA𝐴)) = 1)) → 𝑝 = 𝑎)))
16091, 151, 159sylanbrc 578 1 (𝐴 ∈ 𝔸 → ∃!𝑝 ∈ (Poly‘ℚ)((deg‘𝑝) = (degAA𝐴) ∧ (𝑝𝐴) = 0 ∧ ((coeff‘𝑝)‘(degAA𝐴)) = 1))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 197  wa 384  w3a 1107   = wceq 1652  wcel 2155  wne 2937  wral 3055  wrex 3056  ∃!wreu 3057  Vcvv 3350  cdif 3729  wss 3732  {csn 4334   class class class wbr 4809   × cxp 5275   Fn wfn 6063  wf 6064  cfv 6068  (class class class)co 6842  𝑓 cof 7093  cc 10187  0cc0 10189  1c1 10190   + caddc 10192   · cmul 10194   < clt 10328  cmin 10520  -cneg 10521   / cdiv 10938  cn 11274  0cn0 11538  cz 11624  cq 11989  0𝑝c0p 23727  Polycply 24231  coeffccoe 24233  degcdgr 24234  𝔸caa 24360  degAAcdgraa 38319
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1890  ax-4 1904  ax-5 2005  ax-6 2069  ax-7 2105  ax-8 2157  ax-9 2164  ax-10 2183  ax-11 2198  ax-12 2211  ax-13 2352  ax-ext 2743  ax-rep 4930  ax-sep 4941  ax-nul 4949  ax-pow 5001  ax-pr 5062  ax-un 7147  ax-inf2 8753  ax-cnex 10245  ax-resscn 10246  ax-1cn 10247  ax-icn 10248  ax-addcl 10249  ax-addrcl 10250  ax-mulcl 10251  ax-mulrcl 10252  ax-mulcom 10253  ax-addass 10254  ax-mulass 10255  ax-distr 10256  ax-i2m1 10257  ax-1ne0 10258  ax-1rid 10259  ax-rnegex 10260  ax-rrecex 10261  ax-cnre 10262  ax-pre-lttri 10263  ax-pre-lttrn 10264  ax-pre-ltadd 10265  ax-pre-mulgt0 10266  ax-pre-sup 10267  ax-addf 10268
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 874  df-3or 1108  df-3an 1109  df-tru 1656  df-fal 1666  df-ex 1875  df-nf 1879  df-sb 2062  df-mo 2565  df-eu 2582  df-clab 2752  df-cleq 2758  df-clel 2761  df-nfc 2896  df-ne 2938  df-nel 3041  df-ral 3060  df-rex 3061  df-reu 3062  df-rmo 3063  df-rab 3064  df-v 3352  df-sbc 3597  df-csb 3692  df-dif 3735  df-un 3737  df-in 3739  df-ss 3746  df-pss 3748  df-nul 4080  df-if 4244  df-pw 4317  df-sn 4335  df-pr 4337  df-tp 4339  df-op 4341  df-uni 4595  df-int 4634  df-iun 4678  df-br 4810  df-opab 4872  df-mpt 4889  df-tr 4912  df-id 5185  df-eprel 5190  df-po 5198  df-so 5199  df-fr 5236  df-se 5237  df-we 5238  df-xp 5283  df-rel 5284  df-cnv 5285  df-co 5286  df-dm 5287  df-rn 5288  df-res 5289  df-ima 5290  df-pred 5865  df-ord 5911  df-on 5912  df-lim 5913  df-suc 5914  df-iota 6031  df-fun 6070  df-fn 6071  df-f 6072  df-f1 6073  df-fo 6074  df-f1o 6075  df-fv 6076  df-isom 6077  df-riota 6803  df-ov 6845  df-oprab 6846  df-mpt2 6847  df-of 7095  df-om 7264  df-1st 7366  df-2nd 7367  df-wrecs 7610  df-recs 7672  df-rdg 7710  df-1o 7764  df-oadd 7768  df-er 7947  df-map 8062  df-pm 8063  df-en 8161  df-dom 8162  df-sdom 8163  df-fin 8164  df-sup 8555  df-inf 8556  df-oi 8622  df-card 9016  df-pnf 10330  df-mnf 10331  df-xr 10332  df-ltxr 10333  df-le 10334  df-sub 10522  df-neg 10523  df-div 10939  df-nn 11275  df-2 11335  df-3 11336  df-n0 11539  df-z 11625  df-uz 11887  df-q 11990  df-rp 12029  df-fz 12534  df-fzo 12674  df-fl 12801  df-mod 12877  df-seq 13009  df-exp 13068  df-hash 13322  df-cj 14126  df-re 14127  df-im 14128  df-sqrt 14262  df-abs 14263  df-clim 14506  df-rlim 14507  df-sum 14704  df-0p 23728  df-ply 24235  df-coe 24237  df-dgr 24238  df-aa 24361  df-dgraa 38321
This theorem is referenced by:  mpaalem  38331
  Copyright terms: Public domain W3C validator