MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  aannenlem1 Structured version   Visualization version   GIF version

Theorem aannenlem1 26262
Description: Lemma for aannen 26265. (Contributed by Stefan O'Rear, 16-Nov-2014.)
Hypothesis
Ref Expression
aannenlem.a 𝐻 = (𝑎 ∈ ℕ0 ↦ {𝑏 ∈ ℂ ∣ ∃𝑐 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝑎 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝑎)} (𝑐𝑏) = 0})
Assertion
Ref Expression
aannenlem1 (𝐴 ∈ ℕ0 → (𝐻𝐴) ∈ Fin)
Distinct variable group:   𝐴,𝑎,𝑏,𝑐,𝑑,𝑒
Allowed substitution hints:   𝐻(𝑒,𝑎,𝑏,𝑐,𝑑)

Proof of Theorem aannenlem1
StepHypRef Expression
1 breq2 5152 . . . . . . 7 (𝑎 = 𝐴 → ((deg‘𝑑) ≤ 𝑎 ↔ (deg‘𝑑) ≤ 𝐴))
2 breq2 5152 . . . . . . . 8 (𝑎 = 𝐴 → ((abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝑎 ↔ (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴))
32ralbidv 3174 . . . . . . 7 (𝑎 = 𝐴 → (∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝑎 ↔ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴))
41, 33anbi23d 1436 . . . . . 6 (𝑎 = 𝐴 → ((𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝑎 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝑎) ↔ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)))
54rabbidv 3437 . . . . 5 (𝑎 = 𝐴 → {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝑎 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝑎)} = {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)})
65rexeqdv 3323 . . . 4 (𝑎 = 𝐴 → (∃𝑐 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝑎 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝑎)} (𝑐𝑏) = 0 ↔ ∃𝑐 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} (𝑐𝑏) = 0))
76rabbidv 3437 . . 3 (𝑎 = 𝐴 → {𝑏 ∈ ℂ ∣ ∃𝑐 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝑎 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝑎)} (𝑐𝑏) = 0} = {𝑏 ∈ ℂ ∣ ∃𝑐 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} (𝑐𝑏) = 0})
8 aannenlem.a . . 3 𝐻 = (𝑎 ∈ ℕ0 ↦ {𝑏 ∈ ℂ ∣ ∃𝑐 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝑎 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝑎)} (𝑐𝑏) = 0})
9 cnex 11219 . . . 4 ℂ ∈ V
109rabex 5334 . . 3 {𝑏 ∈ ℂ ∣ ∃𝑐 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} (𝑐𝑏) = 0} ∈ V
117, 8, 10fvmpt 7005 . 2 (𝐴 ∈ ℕ0 → (𝐻𝐴) = {𝑏 ∈ ℂ ∣ ∃𝑐 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} (𝑐𝑏) = 0})
12 iunrab 5055 . . 3 𝑐 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} {𝑏 ∈ ℂ ∣ (𝑐𝑏) = 0} = {𝑏 ∈ ℂ ∣ ∃𝑐 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} (𝑐𝑏) = 0}
13 fzfi 13969 . . . . . . 7 (-𝐴...𝐴) ∈ Fin
14 fzfi 13969 . . . . . . 7 (0...𝐴) ∈ Fin
15 mapfi 9372 . . . . . . 7 (((-𝐴...𝐴) ∈ Fin ∧ (0...𝐴) ∈ Fin) → ((-𝐴...𝐴) ↑m (0...𝐴)) ∈ Fin)
1613, 14, 15mp2an 691 . . . . . 6 ((-𝐴...𝐴) ↑m (0...𝐴)) ∈ Fin
1716a1i 11 . . . . 5 (𝐴 ∈ ℕ0 → ((-𝐴...𝐴) ↑m (0...𝐴)) ∈ Fin)
18 ovex 7453 . . . . . 6 ((-𝐴...𝐴) ↑m (0...𝐴)) ∈ V
19 neeq1 3000 . . . . . . . . . . 11 (𝑑 = 𝑎 → (𝑑 ≠ 0𝑝𝑎 ≠ 0𝑝))
20 fveq2 6897 . . . . . . . . . . . 12 (𝑑 = 𝑎 → (deg‘𝑑) = (deg‘𝑎))
2120breq1d 5158 . . . . . . . . . . 11 (𝑑 = 𝑎 → ((deg‘𝑑) ≤ 𝐴 ↔ (deg‘𝑎) ≤ 𝐴))
22 fveq2 6897 . . . . . . . . . . . . . . 15 (𝑑 = 𝑎 → (coeff‘𝑑) = (coeff‘𝑎))
2322fveq1d 6899 . . . . . . . . . . . . . 14 (𝑑 = 𝑎 → ((coeff‘𝑑)‘𝑒) = ((coeff‘𝑎)‘𝑒))
2423fveq2d 6901 . . . . . . . . . . . . 13 (𝑑 = 𝑎 → (abs‘((coeff‘𝑑)‘𝑒)) = (abs‘((coeff‘𝑎)‘𝑒)))
2524breq1d 5158 . . . . . . . . . . . 12 (𝑑 = 𝑎 → ((abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴 ↔ (abs‘((coeff‘𝑎)‘𝑒)) ≤ 𝐴))
2625ralbidv 3174 . . . . . . . . . . 11 (𝑑 = 𝑎 → (∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴 ↔ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑎)‘𝑒)) ≤ 𝐴))
2719, 21, 263anbi123d 1433 . . . . . . . . . 10 (𝑑 = 𝑎 → ((𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴) ↔ (𝑎 ≠ 0𝑝 ∧ (deg‘𝑎) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑎)‘𝑒)) ≤ 𝐴)))
2827elrab 3682 . . . . . . . . 9 (𝑎 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} ↔ (𝑎 ∈ (Poly‘ℤ) ∧ (𝑎 ≠ 0𝑝 ∧ (deg‘𝑎) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑎)‘𝑒)) ≤ 𝐴)))
29 simp3 1136 . . . . . . . . . 10 ((𝑎 ≠ 0𝑝 ∧ (deg‘𝑎) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑎)‘𝑒)) ≤ 𝐴) → ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑎)‘𝑒)) ≤ 𝐴)
3029anim2i 616 . . . . . . . . 9 ((𝑎 ∈ (Poly‘ℤ) ∧ (𝑎 ≠ 0𝑝 ∧ (deg‘𝑎) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑎)‘𝑒)) ≤ 𝐴)) → (𝑎 ∈ (Poly‘ℤ) ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑎)‘𝑒)) ≤ 𝐴))
3128, 30sylbi 216 . . . . . . . 8 (𝑎 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} → (𝑎 ∈ (Poly‘ℤ) ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑎)‘𝑒)) ≤ 𝐴))
32 0z 12599 . . . . . . . . . . . . . . 15 0 ∈ ℤ
33 eqid 2728 . . . . . . . . . . . . . . . 16 (coeff‘𝑎) = (coeff‘𝑎)
3433coef2 26164 . . . . . . . . . . . . . . 15 ((𝑎 ∈ (Poly‘ℤ) ∧ 0 ∈ ℤ) → (coeff‘𝑎):ℕ0⟶ℤ)
3532, 34mpan2 690 . . . . . . . . . . . . . 14 (𝑎 ∈ (Poly‘ℤ) → (coeff‘𝑎):ℕ0⟶ℤ)
3635ad2antrl 727 . . . . . . . . . . . . 13 ((𝐴 ∈ ℕ0 ∧ (𝑎 ∈ (Poly‘ℤ) ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑎)‘𝑒)) ≤ 𝐴)) → (coeff‘𝑎):ℕ0⟶ℤ)
3736ffnd 6723 . . . . . . . . . . . 12 ((𝐴 ∈ ℕ0 ∧ (𝑎 ∈ (Poly‘ℤ) ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑎)‘𝑒)) ≤ 𝐴)) → (coeff‘𝑎) Fn ℕ0)
3835adantl 481 . . . . . . . . . . . . . . . . . . . 20 ((𝐴 ∈ ℕ0𝑎 ∈ (Poly‘ℤ)) → (coeff‘𝑎):ℕ0⟶ℤ)
3938ffvelcdmda 7094 . . . . . . . . . . . . . . . . . . 19 (((𝐴 ∈ ℕ0𝑎 ∈ (Poly‘ℤ)) ∧ 𝑒 ∈ ℕ0) → ((coeff‘𝑎)‘𝑒) ∈ ℤ)
4039zred 12696 . . . . . . . . . . . . . . . . . 18 (((𝐴 ∈ ℕ0𝑎 ∈ (Poly‘ℤ)) ∧ 𝑒 ∈ ℕ0) → ((coeff‘𝑎)‘𝑒) ∈ ℝ)
41 nn0re 12511 . . . . . . . . . . . . . . . . . . 19 (𝐴 ∈ ℕ0𝐴 ∈ ℝ)
4241ad2antrr 725 . . . . . . . . . . . . . . . . . 18 (((𝐴 ∈ ℕ0𝑎 ∈ (Poly‘ℤ)) ∧ 𝑒 ∈ ℕ0) → 𝐴 ∈ ℝ)
4340, 42absled 15409 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ ℕ0𝑎 ∈ (Poly‘ℤ)) ∧ 𝑒 ∈ ℕ0) → ((abs‘((coeff‘𝑎)‘𝑒)) ≤ 𝐴 ↔ (-𝐴 ≤ ((coeff‘𝑎)‘𝑒) ∧ ((coeff‘𝑎)‘𝑒) ≤ 𝐴)))
44 nn0z 12613 . . . . . . . . . . . . . . . . . . . 20 (𝐴 ∈ ℕ0𝐴 ∈ ℤ)
4544ad2antrr 725 . . . . . . . . . . . . . . . . . . 19 (((𝐴 ∈ ℕ0𝑎 ∈ (Poly‘ℤ)) ∧ 𝑒 ∈ ℕ0) → 𝐴 ∈ ℤ)
4645znegcld 12698 . . . . . . . . . . . . . . . . . 18 (((𝐴 ∈ ℕ0𝑎 ∈ (Poly‘ℤ)) ∧ 𝑒 ∈ ℕ0) → -𝐴 ∈ ℤ)
47 elfz 13522 . . . . . . . . . . . . . . . . . 18 ((((coeff‘𝑎)‘𝑒) ∈ ℤ ∧ -𝐴 ∈ ℤ ∧ 𝐴 ∈ ℤ) → (((coeff‘𝑎)‘𝑒) ∈ (-𝐴...𝐴) ↔ (-𝐴 ≤ ((coeff‘𝑎)‘𝑒) ∧ ((coeff‘𝑎)‘𝑒) ≤ 𝐴)))
4839, 46, 45, 47syl3anc 1369 . . . . . . . . . . . . . . . . 17 (((𝐴 ∈ ℕ0𝑎 ∈ (Poly‘ℤ)) ∧ 𝑒 ∈ ℕ0) → (((coeff‘𝑎)‘𝑒) ∈ (-𝐴...𝐴) ↔ (-𝐴 ≤ ((coeff‘𝑎)‘𝑒) ∧ ((coeff‘𝑎)‘𝑒) ≤ 𝐴)))
4943, 48bitr4d 282 . . . . . . . . . . . . . . . 16 (((𝐴 ∈ ℕ0𝑎 ∈ (Poly‘ℤ)) ∧ 𝑒 ∈ ℕ0) → ((abs‘((coeff‘𝑎)‘𝑒)) ≤ 𝐴 ↔ ((coeff‘𝑎)‘𝑒) ∈ (-𝐴...𝐴)))
5049biimpd 228 . . . . . . . . . . . . . . 15 (((𝐴 ∈ ℕ0𝑎 ∈ (Poly‘ℤ)) ∧ 𝑒 ∈ ℕ0) → ((abs‘((coeff‘𝑎)‘𝑒)) ≤ 𝐴 → ((coeff‘𝑎)‘𝑒) ∈ (-𝐴...𝐴)))
5150ralimdva 3164 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℕ0𝑎 ∈ (Poly‘ℤ)) → (∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑎)‘𝑒)) ≤ 𝐴 → ∀𝑒 ∈ ℕ0 ((coeff‘𝑎)‘𝑒) ∈ (-𝐴...𝐴)))
5251impr 454 . . . . . . . . . . . . 13 ((𝐴 ∈ ℕ0 ∧ (𝑎 ∈ (Poly‘ℤ) ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑎)‘𝑒)) ≤ 𝐴)) → ∀𝑒 ∈ ℕ0 ((coeff‘𝑎)‘𝑒) ∈ (-𝐴...𝐴))
53 fnfvrnss 7131 . . . . . . . . . . . . 13 (((coeff‘𝑎) Fn ℕ0 ∧ ∀𝑒 ∈ ℕ0 ((coeff‘𝑎)‘𝑒) ∈ (-𝐴...𝐴)) → ran (coeff‘𝑎) ⊆ (-𝐴...𝐴))
5437, 52, 53syl2anc 583 . . . . . . . . . . . 12 ((𝐴 ∈ ℕ0 ∧ (𝑎 ∈ (Poly‘ℤ) ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑎)‘𝑒)) ≤ 𝐴)) → ran (coeff‘𝑎) ⊆ (-𝐴...𝐴))
55 df-f 6552 . . . . . . . . . . . 12 ((coeff‘𝑎):ℕ0⟶(-𝐴...𝐴) ↔ ((coeff‘𝑎) Fn ℕ0 ∧ ran (coeff‘𝑎) ⊆ (-𝐴...𝐴)))
5637, 54, 55sylanbrc 582 . . . . . . . . . . 11 ((𝐴 ∈ ℕ0 ∧ (𝑎 ∈ (Poly‘ℤ) ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑎)‘𝑒)) ≤ 𝐴)) → (coeff‘𝑎):ℕ0⟶(-𝐴...𝐴))
57 fz0ssnn0 13628 . . . . . . . . . . 11 (0...𝐴) ⊆ ℕ0
58 fssres 6763 . . . . . . . . . . 11 (((coeff‘𝑎):ℕ0⟶(-𝐴...𝐴) ∧ (0...𝐴) ⊆ ℕ0) → ((coeff‘𝑎) ↾ (0...𝐴)):(0...𝐴)⟶(-𝐴...𝐴))
5956, 57, 58sylancl 585 . . . . . . . . . 10 ((𝐴 ∈ ℕ0 ∧ (𝑎 ∈ (Poly‘ℤ) ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑎)‘𝑒)) ≤ 𝐴)) → ((coeff‘𝑎) ↾ (0...𝐴)):(0...𝐴)⟶(-𝐴...𝐴))
60 ovex 7453 . . . . . . . . . . 11 (-𝐴...𝐴) ∈ V
61 ovex 7453 . . . . . . . . . . 11 (0...𝐴) ∈ V
6260, 61elmap 8889 . . . . . . . . . 10 (((coeff‘𝑎) ↾ (0...𝐴)) ∈ ((-𝐴...𝐴) ↑m (0...𝐴)) ↔ ((coeff‘𝑎) ↾ (0...𝐴)):(0...𝐴)⟶(-𝐴...𝐴))
6359, 62sylibr 233 . . . . . . . . 9 ((𝐴 ∈ ℕ0 ∧ (𝑎 ∈ (Poly‘ℤ) ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑎)‘𝑒)) ≤ 𝐴)) → ((coeff‘𝑎) ↾ (0...𝐴)) ∈ ((-𝐴...𝐴) ↑m (0...𝐴)))
6463ex 412 . . . . . . . 8 (𝐴 ∈ ℕ0 → ((𝑎 ∈ (Poly‘ℤ) ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑎)‘𝑒)) ≤ 𝐴) → ((coeff‘𝑎) ↾ (0...𝐴)) ∈ ((-𝐴...𝐴) ↑m (0...𝐴))))
6531, 64syl5 34 . . . . . . 7 (𝐴 ∈ ℕ0 → (𝑎 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} → ((coeff‘𝑎) ↾ (0...𝐴)) ∈ ((-𝐴...𝐴) ↑m (0...𝐴))))
66 simp2 1135 . . . . . . . . . 10 ((𝑎 ≠ 0𝑝 ∧ (deg‘𝑎) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑎)‘𝑒)) ≤ 𝐴) → (deg‘𝑎) ≤ 𝐴)
6766anim2i 616 . . . . . . . . 9 ((𝑎 ∈ (Poly‘ℤ) ∧ (𝑎 ≠ 0𝑝 ∧ (deg‘𝑎) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑎)‘𝑒)) ≤ 𝐴)) → (𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴))
6828, 67sylbi 216 . . . . . . . 8 (𝑎 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} → (𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴))
69 neeq1 3000 . . . . . . . . . . 11 (𝑑 = 𝑏 → (𝑑 ≠ 0𝑝𝑏 ≠ 0𝑝))
70 fveq2 6897 . . . . . . . . . . . 12 (𝑑 = 𝑏 → (deg‘𝑑) = (deg‘𝑏))
7170breq1d 5158 . . . . . . . . . . 11 (𝑑 = 𝑏 → ((deg‘𝑑) ≤ 𝐴 ↔ (deg‘𝑏) ≤ 𝐴))
72 fveq2 6897 . . . . . . . . . . . . . . 15 (𝑑 = 𝑏 → (coeff‘𝑑) = (coeff‘𝑏))
7372fveq1d 6899 . . . . . . . . . . . . . 14 (𝑑 = 𝑏 → ((coeff‘𝑑)‘𝑒) = ((coeff‘𝑏)‘𝑒))
7473fveq2d 6901 . . . . . . . . . . . . 13 (𝑑 = 𝑏 → (abs‘((coeff‘𝑑)‘𝑒)) = (abs‘((coeff‘𝑏)‘𝑒)))
7574breq1d 5158 . . . . . . . . . . . 12 (𝑑 = 𝑏 → ((abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴 ↔ (abs‘((coeff‘𝑏)‘𝑒)) ≤ 𝐴))
7675ralbidv 3174 . . . . . . . . . . 11 (𝑑 = 𝑏 → (∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴 ↔ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑏)‘𝑒)) ≤ 𝐴))
7769, 71, 763anbi123d 1433 . . . . . . . . . 10 (𝑑 = 𝑏 → ((𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴) ↔ (𝑏 ≠ 0𝑝 ∧ (deg‘𝑏) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑏)‘𝑒)) ≤ 𝐴)))
7877elrab 3682 . . . . . . . . 9 (𝑏 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} ↔ (𝑏 ∈ (Poly‘ℤ) ∧ (𝑏 ≠ 0𝑝 ∧ (deg‘𝑏) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑏)‘𝑒)) ≤ 𝐴)))
79 simp2 1135 . . . . . . . . . 10 ((𝑏 ≠ 0𝑝 ∧ (deg‘𝑏) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑏)‘𝑒)) ≤ 𝐴) → (deg‘𝑏) ≤ 𝐴)
8079anim2i 616 . . . . . . . . 9 ((𝑏 ∈ (Poly‘ℤ) ∧ (𝑏 ≠ 0𝑝 ∧ (deg‘𝑏) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑏)‘𝑒)) ≤ 𝐴)) → (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴))
8178, 80sylbi 216 . . . . . . . 8 (𝑏 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} → (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴))
82 simplll 774 . . . . . . . . . . . . 13 ((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) → 𝑎 ∈ (Poly‘ℤ))
83 plyf 26131 . . . . . . . . . . . . 13 (𝑎 ∈ (Poly‘ℤ) → 𝑎:ℂ⟶ℂ)
84 ffn 6722 . . . . . . . . . . . . 13 (𝑎:ℂ⟶ℂ → 𝑎 Fn ℂ)
8582, 83, 843syl 18 . . . . . . . . . . . 12 ((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) → 𝑎 Fn ℂ)
86 simplrl 776 . . . . . . . . . . . . 13 ((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) → 𝑏 ∈ (Poly‘ℤ))
87 plyf 26131 . . . . . . . . . . . . 13 (𝑏 ∈ (Poly‘ℤ) → 𝑏:ℂ⟶ℂ)
88 ffn 6722 . . . . . . . . . . . . 13 (𝑏:ℂ⟶ℂ → 𝑏 Fn ℂ)
8986, 87, 883syl 18 . . . . . . . . . . . 12 ((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) → 𝑏 Fn ℂ)
90 simplrr 777 . . . . . . . . . . . . . . . . . 18 (((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) → ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))
9190adantr 480 . . . . . . . . . . . . . . . . 17 ((((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) ∧ 𝑑 ∈ (0...𝐴)) → ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))
9291fveq1d 6899 . . . . . . . . . . . . . . . 16 ((((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) ∧ 𝑑 ∈ (0...𝐴)) → (((coeff‘𝑎) ↾ (0...𝐴))‘𝑑) = (((coeff‘𝑏) ↾ (0...𝐴))‘𝑑))
93 fvres 6916 . . . . . . . . . . . . . . . . 17 (𝑑 ∈ (0...𝐴) → (((coeff‘𝑎) ↾ (0...𝐴))‘𝑑) = ((coeff‘𝑎)‘𝑑))
9493adantl 481 . . . . . . . . . . . . . . . 16 ((((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) ∧ 𝑑 ∈ (0...𝐴)) → (((coeff‘𝑎) ↾ (0...𝐴))‘𝑑) = ((coeff‘𝑎)‘𝑑))
95 fvres 6916 . . . . . . . . . . . . . . . . 17 (𝑑 ∈ (0...𝐴) → (((coeff‘𝑏) ↾ (0...𝐴))‘𝑑) = ((coeff‘𝑏)‘𝑑))
9695adantl 481 . . . . . . . . . . . . . . . 16 ((((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) ∧ 𝑑 ∈ (0...𝐴)) → (((coeff‘𝑏) ↾ (0...𝐴))‘𝑑) = ((coeff‘𝑏)‘𝑑))
9792, 94, 963eqtr3d 2776 . . . . . . . . . . . . . . 15 ((((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) ∧ 𝑑 ∈ (0...𝐴)) → ((coeff‘𝑎)‘𝑑) = ((coeff‘𝑏)‘𝑑))
9897oveq1d 7435 . . . . . . . . . . . . . 14 ((((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) ∧ 𝑑 ∈ (0...𝐴)) → (((coeff‘𝑎)‘𝑑) · (𝑐𝑑)) = (((coeff‘𝑏)‘𝑑) · (𝑐𝑑)))
9998sumeq2dv 15681 . . . . . . . . . . . . 13 (((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) → Σ𝑑 ∈ (0...𝐴)(((coeff‘𝑎)‘𝑑) · (𝑐𝑑)) = Σ𝑑 ∈ (0...𝐴)(((coeff‘𝑏)‘𝑑) · (𝑐𝑑)))
100 simp-4l 782 . . . . . . . . . . . . . 14 (((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) → 𝑎 ∈ (Poly‘ℤ))
101 simp-4r 783 . . . . . . . . . . . . . . 15 (((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) → (deg‘𝑎) ≤ 𝐴)
102 dgrcl 26166 . . . . . . . . . . . . . . . . 17 (𝑎 ∈ (Poly‘ℤ) → (deg‘𝑎) ∈ ℕ0)
103 nn0z 12613 . . . . . . . . . . . . . . . . 17 ((deg‘𝑎) ∈ ℕ0 → (deg‘𝑎) ∈ ℤ)
104100, 102, 1033syl 18 . . . . . . . . . . . . . . . 16 (((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) → (deg‘𝑎) ∈ ℤ)
105 simplrl 776 . . . . . . . . . . . . . . . . 17 (((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) → 𝐴 ∈ ℕ0)
106105nn0zd 12614 . . . . . . . . . . . . . . . 16 (((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) → 𝐴 ∈ ℤ)
107 eluz 12866 . . . . . . . . . . . . . . . 16 (((deg‘𝑎) ∈ ℤ ∧ 𝐴 ∈ ℤ) → (𝐴 ∈ (ℤ‘(deg‘𝑎)) ↔ (deg‘𝑎) ≤ 𝐴))
108104, 106, 107syl2anc 583 . . . . . . . . . . . . . . 15 (((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) → (𝐴 ∈ (ℤ‘(deg‘𝑎)) ↔ (deg‘𝑎) ≤ 𝐴))
109101, 108mpbird 257 . . . . . . . . . . . . . 14 (((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) → 𝐴 ∈ (ℤ‘(deg‘𝑎)))
110 simpr 484 . . . . . . . . . . . . . 14 (((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) → 𝑐 ∈ ℂ)
111 eqid 2728 . . . . . . . . . . . . . . 15 (deg‘𝑎) = (deg‘𝑎)
11233, 111coeid3 26173 . . . . . . . . . . . . . 14 ((𝑎 ∈ (Poly‘ℤ) ∧ 𝐴 ∈ (ℤ‘(deg‘𝑎)) ∧ 𝑐 ∈ ℂ) → (𝑎𝑐) = Σ𝑑 ∈ (0...𝐴)(((coeff‘𝑎)‘𝑑) · (𝑐𝑑)))
113100, 109, 110, 112syl3anc 1369 . . . . . . . . . . . . 13 (((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) → (𝑎𝑐) = Σ𝑑 ∈ (0...𝐴)(((coeff‘𝑎)‘𝑑) · (𝑐𝑑)))
114 simp1rl 1236 . . . . . . . . . . . . . . 15 ((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴))) ∧ 𝑐 ∈ ℂ) → 𝑏 ∈ (Poly‘ℤ))
1151143expa 1116 . . . . . . . . . . . . . 14 (((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) → 𝑏 ∈ (Poly‘ℤ))
116 simplrr 777 . . . . . . . . . . . . . . . 16 ((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) → (deg‘𝑏) ≤ 𝐴)
117116adantr 480 . . . . . . . . . . . . . . 15 (((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) → (deg‘𝑏) ≤ 𝐴)
118 dgrcl 26166 . . . . . . . . . . . . . . . . 17 (𝑏 ∈ (Poly‘ℤ) → (deg‘𝑏) ∈ ℕ0)
119 nn0z 12613 . . . . . . . . . . . . . . . . 17 ((deg‘𝑏) ∈ ℕ0 → (deg‘𝑏) ∈ ℤ)
120115, 118, 1193syl 18 . . . . . . . . . . . . . . . 16 (((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) → (deg‘𝑏) ∈ ℤ)
121 eluz 12866 . . . . . . . . . . . . . . . 16 (((deg‘𝑏) ∈ ℤ ∧ 𝐴 ∈ ℤ) → (𝐴 ∈ (ℤ‘(deg‘𝑏)) ↔ (deg‘𝑏) ≤ 𝐴))
122120, 106, 121syl2anc 583 . . . . . . . . . . . . . . 15 (((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) → (𝐴 ∈ (ℤ‘(deg‘𝑏)) ↔ (deg‘𝑏) ≤ 𝐴))
123117, 122mpbird 257 . . . . . . . . . . . . . 14 (((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) → 𝐴 ∈ (ℤ‘(deg‘𝑏)))
124 eqid 2728 . . . . . . . . . . . . . . 15 (coeff‘𝑏) = (coeff‘𝑏)
125 eqid 2728 . . . . . . . . . . . . . . 15 (deg‘𝑏) = (deg‘𝑏)
126124, 125coeid3 26173 . . . . . . . . . . . . . 14 ((𝑏 ∈ (Poly‘ℤ) ∧ 𝐴 ∈ (ℤ‘(deg‘𝑏)) ∧ 𝑐 ∈ ℂ) → (𝑏𝑐) = Σ𝑑 ∈ (0...𝐴)(((coeff‘𝑏)‘𝑑) · (𝑐𝑑)))
127115, 123, 110, 126syl3anc 1369 . . . . . . . . . . . . 13 (((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) → (𝑏𝑐) = Σ𝑑 ∈ (0...𝐴)(((coeff‘𝑏)‘𝑑) · (𝑐𝑑)))
12899, 113, 1273eqtr4d 2778 . . . . . . . . . . . 12 (((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) ∧ 𝑐 ∈ ℂ) → (𝑎𝑐) = (𝑏𝑐))
12985, 89, 128eqfnfvd 7043 . . . . . . . . . . 11 ((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ (𝐴 ∈ ℕ0 ∧ ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))) → 𝑎 = 𝑏)
130129expr 456 . . . . . . . . . 10 ((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ 𝐴 ∈ ℕ0) → (((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)) → 𝑎 = 𝑏))
131 fveq2 6897 . . . . . . . . . . 11 (𝑎 = 𝑏 → (coeff‘𝑎) = (coeff‘𝑏))
132131reseq1d 5984 . . . . . . . . . 10 (𝑎 = 𝑏 → ((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)))
133130, 132impbid1 224 . . . . . . . . 9 ((((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) ∧ 𝐴 ∈ ℕ0) → (((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)) ↔ 𝑎 = 𝑏))
134133expcom 413 . . . . . . . 8 (𝐴 ∈ ℕ0 → (((𝑎 ∈ (Poly‘ℤ) ∧ (deg‘𝑎) ≤ 𝐴) ∧ (𝑏 ∈ (Poly‘ℤ) ∧ (deg‘𝑏) ≤ 𝐴)) → (((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)) ↔ 𝑎 = 𝑏)))
13568, 81, 134syl2ani 606 . . . . . . 7 (𝐴 ∈ ℕ0 → ((𝑎 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} ∧ 𝑏 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)}) → (((coeff‘𝑎) ↾ (0...𝐴)) = ((coeff‘𝑏) ↾ (0...𝐴)) ↔ 𝑎 = 𝑏)))
13665, 135dom2d 9013 . . . . . 6 (𝐴 ∈ ℕ0 → (((-𝐴...𝐴) ↑m (0...𝐴)) ∈ V → {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} ≼ ((-𝐴...𝐴) ↑m (0...𝐴))))
13718, 136mpi 20 . . . . 5 (𝐴 ∈ ℕ0 → {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} ≼ ((-𝐴...𝐴) ↑m (0...𝐴)))
138 domfi 9216 . . . . 5 ((((-𝐴...𝐴) ↑m (0...𝐴)) ∈ Fin ∧ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} ≼ ((-𝐴...𝐴) ↑m (0...𝐴))) → {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} ∈ Fin)
13917, 137, 138syl2anc 583 . . . 4 (𝐴 ∈ ℕ0 → {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} ∈ Fin)
140 neeq1 3000 . . . . . . . . 9 (𝑑 = 𝑐 → (𝑑 ≠ 0𝑝𝑐 ≠ 0𝑝))
141 fveq2 6897 . . . . . . . . . 10 (𝑑 = 𝑐 → (deg‘𝑑) = (deg‘𝑐))
142141breq1d 5158 . . . . . . . . 9 (𝑑 = 𝑐 → ((deg‘𝑑) ≤ 𝐴 ↔ (deg‘𝑐) ≤ 𝐴))
143 fveq2 6897 . . . . . . . . . . . . 13 (𝑑 = 𝑐 → (coeff‘𝑑) = (coeff‘𝑐))
144143fveq1d 6899 . . . . . . . . . . . 12 (𝑑 = 𝑐 → ((coeff‘𝑑)‘𝑒) = ((coeff‘𝑐)‘𝑒))
145144fveq2d 6901 . . . . . . . . . . 11 (𝑑 = 𝑐 → (abs‘((coeff‘𝑑)‘𝑒)) = (abs‘((coeff‘𝑐)‘𝑒)))
146145breq1d 5158 . . . . . . . . . 10 (𝑑 = 𝑐 → ((abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴 ↔ (abs‘((coeff‘𝑐)‘𝑒)) ≤ 𝐴))
147146ralbidv 3174 . . . . . . . . 9 (𝑑 = 𝑐 → (∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴 ↔ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑐)‘𝑒)) ≤ 𝐴))
148140, 142, 1473anbi123d 1433 . . . . . . . 8 (𝑑 = 𝑐 → ((𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴) ↔ (𝑐 ≠ 0𝑝 ∧ (deg‘𝑐) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑐)‘𝑒)) ≤ 𝐴)))
149148elrab 3682 . . . . . . 7 (𝑐 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} ↔ (𝑐 ∈ (Poly‘ℤ) ∧ (𝑐 ≠ 0𝑝 ∧ (deg‘𝑐) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑐)‘𝑒)) ≤ 𝐴)))
150 simp1 1134 . . . . . . . 8 ((𝑐 ≠ 0𝑝 ∧ (deg‘𝑐) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑐)‘𝑒)) ≤ 𝐴) → 𝑐 ≠ 0𝑝)
151150anim2i 616 . . . . . . 7 ((𝑐 ∈ (Poly‘ℤ) ∧ (𝑐 ≠ 0𝑝 ∧ (deg‘𝑐) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑐)‘𝑒)) ≤ 𝐴)) → (𝑐 ∈ (Poly‘ℤ) ∧ 𝑐 ≠ 0𝑝))
152149, 151sylbi 216 . . . . . 6 (𝑐 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} → (𝑐 ∈ (Poly‘ℤ) ∧ 𝑐 ≠ 0𝑝))
153 fveqeq2 6906 . . . . . . . . . . 11 (𝑏 = 𝑎 → ((𝑐𝑏) = 0 ↔ (𝑐𝑎) = 0))
154153elrab 3682 . . . . . . . . . 10 (𝑎 ∈ {𝑏 ∈ ℂ ∣ (𝑐𝑏) = 0} ↔ (𝑎 ∈ ℂ ∧ (𝑐𝑎) = 0))
155 plyf 26131 . . . . . . . . . . . . 13 (𝑐 ∈ (Poly‘ℤ) → 𝑐:ℂ⟶ℂ)
156155ffnd 6723 . . . . . . . . . . . 12 (𝑐 ∈ (Poly‘ℤ) → 𝑐 Fn ℂ)
157156adantr 480 . . . . . . . . . . 11 ((𝑐 ∈ (Poly‘ℤ) ∧ 𝑐 ≠ 0𝑝) → 𝑐 Fn ℂ)
158 fniniseg 7069 . . . . . . . . . . 11 (𝑐 Fn ℂ → (𝑎 ∈ (𝑐 “ {0}) ↔ (𝑎 ∈ ℂ ∧ (𝑐𝑎) = 0)))
159157, 158syl 17 . . . . . . . . . 10 ((𝑐 ∈ (Poly‘ℤ) ∧ 𝑐 ≠ 0𝑝) → (𝑎 ∈ (𝑐 “ {0}) ↔ (𝑎 ∈ ℂ ∧ (𝑐𝑎) = 0)))
160154, 159bitr4id 290 . . . . . . . . 9 ((𝑐 ∈ (Poly‘ℤ) ∧ 𝑐 ≠ 0𝑝) → (𝑎 ∈ {𝑏 ∈ ℂ ∣ (𝑐𝑏) = 0} ↔ 𝑎 ∈ (𝑐 “ {0})))
161160eqrdv 2726 . . . . . . . 8 ((𝑐 ∈ (Poly‘ℤ) ∧ 𝑐 ≠ 0𝑝) → {𝑏 ∈ ℂ ∣ (𝑐𝑏) = 0} = (𝑐 “ {0}))
162 eqid 2728 . . . . . . . . . 10 (𝑐 “ {0}) = (𝑐 “ {0})
163162fta1 26242 . . . . . . . . 9 ((𝑐 ∈ (Poly‘ℤ) ∧ 𝑐 ≠ 0𝑝) → ((𝑐 “ {0}) ∈ Fin ∧ (♯‘(𝑐 “ {0})) ≤ (deg‘𝑐)))
164163simpld 494 . . . . . . . 8 ((𝑐 ∈ (Poly‘ℤ) ∧ 𝑐 ≠ 0𝑝) → (𝑐 “ {0}) ∈ Fin)
165161, 164eqeltrd 2829 . . . . . . 7 ((𝑐 ∈ (Poly‘ℤ) ∧ 𝑐 ≠ 0𝑝) → {𝑏 ∈ ℂ ∣ (𝑐𝑏) = 0} ∈ Fin)
166165a1i 11 . . . . . 6 (𝐴 ∈ ℕ0 → ((𝑐 ∈ (Poly‘ℤ) ∧ 𝑐 ≠ 0𝑝) → {𝑏 ∈ ℂ ∣ (𝑐𝑏) = 0} ∈ Fin))
167152, 166syl5 34 . . . . 5 (𝐴 ∈ ℕ0 → (𝑐 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} → {𝑏 ∈ ℂ ∣ (𝑐𝑏) = 0} ∈ Fin))
168167ralrimiv 3142 . . . 4 (𝐴 ∈ ℕ0 → ∀𝑐 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} {𝑏 ∈ ℂ ∣ (𝑐𝑏) = 0} ∈ Fin)
169 iunfi 9364 . . . 4 (({𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} ∈ Fin ∧ ∀𝑐 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} {𝑏 ∈ ℂ ∣ (𝑐𝑏) = 0} ∈ Fin) → 𝑐 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} {𝑏 ∈ ℂ ∣ (𝑐𝑏) = 0} ∈ Fin)
170139, 168, 169syl2anc 583 . . 3 (𝐴 ∈ ℕ0 𝑐 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} {𝑏 ∈ ℂ ∣ (𝑐𝑏) = 0} ∈ Fin)
17112, 170eqeltrrid 2834 . 2 (𝐴 ∈ ℕ0 → {𝑏 ∈ ℂ ∣ ∃𝑐 ∈ {𝑑 ∈ (Poly‘ℤ) ∣ (𝑑 ≠ 0𝑝 ∧ (deg‘𝑑) ≤ 𝐴 ∧ ∀𝑒 ∈ ℕ0 (abs‘((coeff‘𝑑)‘𝑒)) ≤ 𝐴)} (𝑐𝑏) = 0} ∈ Fin)
17211, 171eqeltrd 2829 1 (𝐴 ∈ ℕ0 → (𝐻𝐴) ∈ Fin)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 395  w3a 1085   = wceq 1534  wcel 2099  wne 2937  wral 3058  wrex 3067  {crab 3429  Vcvv 3471  wss 3947  {csn 4629   ciun 4996   class class class wbr 5148  cmpt 5231  ccnv 5677  ran crn 5679  cres 5680  cima 5681   Fn wfn 6543  wf 6544  cfv 6548  (class class class)co 7420  m cmap 8844  cdom 8961  Fincfn 8963  cc 11136  cr 11137  0cc0 11138   · cmul 11143  cle 11279  -cneg 11475  0cn0 12502  cz 12588  cuz 12852  ...cfz 13516  cexp 14058  chash 14321  abscabs 15213  Σcsu 15664  0𝑝c0p 25597  Polycply 26117  coeffccoe 26119  degcdgr 26120
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1790  ax-4 1804  ax-5 1906  ax-6 1964  ax-7 2004  ax-8 2101  ax-9 2109  ax-10 2130  ax-11 2147  ax-12 2167  ax-ext 2699  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5365  ax-pr 5429  ax-un 7740  ax-inf2 9664  ax-cnex 11194  ax-resscn 11195  ax-1cn 11196  ax-icn 11197  ax-addcl 11198  ax-addrcl 11199  ax-mulcl 11200  ax-mulrcl 11201  ax-mulcom 11202  ax-addass 11203  ax-mulass 11204  ax-distr 11205  ax-i2m1 11206  ax-1ne0 11207  ax-1rid 11208  ax-rnegex 11209  ax-rrecex 11210  ax-cnre 11211  ax-pre-lttri 11212  ax-pre-lttrn 11213  ax-pre-ltadd 11214  ax-pre-mulgt0 11215  ax-pre-sup 11216
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 847  df-3or 1086  df-3an 1087  df-tru 1537  df-fal 1547  df-ex 1775  df-nf 1779  df-sb 2061  df-mo 2530  df-eu 2559  df-clab 2706  df-cleq 2720  df-clel 2806  df-nfc 2881  df-ne 2938  df-nel 3044  df-ral 3059  df-rex 3068  df-rmo 3373  df-reu 3374  df-rab 3430  df-v 3473  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4324  df-if 4530  df-pw 4605  df-sn 4630  df-pr 4632  df-op 4636  df-uni 4909  df-int 4950  df-iun 4998  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5576  df-eprel 5582  df-po 5590  df-so 5591  df-fr 5633  df-se 5634  df-we 5635  df-xp 5684  df-rel 5685  df-cnv 5686  df-co 5687  df-dm 5688  df-rn 5689  df-res 5690  df-ima 5691  df-pred 6305  df-ord 6372  df-on 6373  df-lim 6374  df-suc 6375  df-iota 6500  df-fun 6550  df-fn 6551  df-f 6552  df-f1 6553  df-fo 6554  df-f1o 6555  df-fv 6556  df-isom 6557  df-riota 7376  df-ov 7423  df-oprab 7424  df-mpo 7425  df-of 7685  df-om 7871  df-1st 7993  df-2nd 7994  df-frecs 8286  df-wrecs 8317  df-recs 8391  df-rdg 8430  df-1o 8486  df-oadd 8490  df-er 8724  df-map 8846  df-pm 8847  df-en 8964  df-dom 8965  df-sdom 8966  df-fin 8967  df-sup 9465  df-inf 9466  df-oi 9533  df-dju 9924  df-card 9962  df-pnf 11280  df-mnf 11281  df-xr 11282  df-ltxr 11283  df-le 11284  df-sub 11476  df-neg 11477  df-div 11902  df-nn 12243  df-2 12305  df-3 12306  df-n0 12503  df-xnn0 12575  df-z 12589  df-uz 12853  df-rp 13007  df-fz 13517  df-fzo 13660  df-fl 13789  df-seq 13999  df-exp 14059  df-hash 14322  df-cj 15078  df-re 15079  df-im 15080  df-sqrt 15214  df-abs 15215  df-clim 15464  df-rlim 15465  df-sum 15665  df-0p 25598  df-ply 26121  df-idp 26122  df-coe 26123  df-dgr 26124  df-quot 26225
This theorem is referenced by:  aannenlem3  26264
  Copyright terms: Public domain W3C validator