Theorem aareccl 25557

Description: The reciprocal of an algebraic number is algebraic. (Contributed by Mario Carneiro, 24-Jul-2014.)

Assertion

Ref	Expression
aareccl	⊢ ((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) → (1 / 𝐴) ∈ 𝔸)

Proof of Theorem aareccl

Dummy variables 𝑓 𝑔 𝑘 𝑛 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		elaa 25547	. . . 4 ⊢ (𝐴 ∈ 𝔸 ↔ (𝐴 ∈ ℂ ∧ ∃𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝})(𝑓‘𝐴) = 0))
2	1	simprbi 497	. . 3 ⊢ (𝐴 ∈ 𝔸 → ∃𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝})(𝑓‘𝐴) = 0)
3	2	adantr 481	. 2 ⊢ ((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) → ∃𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝})(𝑓‘𝐴) = 0)
4		aacn 25548	. . . . 5 ⊢ (𝐴 ∈ 𝔸 → 𝐴 ∈ ℂ)
5		reccl 11710	. . . . 5 ⊢ ((𝐴 ∈ ℂ ∧ 𝐴 ≠ 0) → (1 / 𝐴) ∈ ℂ)
6	4, 5	sylan 580	. . . 4 ⊢ ((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) → (1 / 𝐴) ∈ ℂ)
7	6	adantr 481	. . 3 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → (1 / 𝐴) ∈ ℂ)
8		zsscn 12397	. . . . . . 7 ⊢ ℤ ⊆ ℂ
9	8	a1i 11	. . . . . 6 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → ℤ ⊆ ℂ)
10		simprl 768	. . . . . . . . 9 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → 𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}))
11		eldifsn 4730	. . . . . . . . 9 ⊢ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ↔ (𝑓 ∈ (Poly‘ℤ) ∧ 𝑓 ≠ 0𝑝))
12	10, 11	sylib 217	. . . . . . . 8 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → (𝑓 ∈ (Poly‘ℤ) ∧ 𝑓 ≠ 0𝑝))
13	12	simpld 495	. . . . . . 7 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → 𝑓 ∈ (Poly‘ℤ))
14		dgrcl 25465	. . . . . . 7 ⊢ (𝑓 ∈ (Poly‘ℤ) → (deg‘𝑓) ∈ ℕ0)
15	13, 14	syl 17	. . . . . 6 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → (deg‘𝑓) ∈ ℕ0)
16	13	adantr 481	. . . . . . . 8 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → 𝑓 ∈ (Poly‘ℤ))
17		0z 12400	. . . . . . . 8 ⊢ 0 ∈ ℤ
18		eqid 2737	. . . . . . . . 9 ⊢ (coeff‘𝑓) = (coeff‘𝑓)
19	18	coef2 25463	. . . . . . . 8 ⊢ ((𝑓 ∈ (Poly‘ℤ) ∧ 0 ∈ ℤ) → (coeff‘𝑓):ℕ0⟶ℤ)
20	16, 17, 19	sylancl 586	. . . . . . 7 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → (coeff‘𝑓):ℕ0⟶ℤ)
21		fznn0sub 13358	. . . . . . . 8 ⊢ (𝑘 ∈ (0...(deg‘𝑓)) → ((deg‘𝑓) − 𝑘) ∈ ℕ0)
22	21	adantl 482	. . . . . . 7 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → ((deg‘𝑓) − 𝑘) ∈ ℕ0)
23	20, 22	ffvelcdmd 6999	. . . . . 6 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → ((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) ∈ ℤ)
24	9, 15, 23	elplyd 25434	. . . . 5 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → (𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘))) ∈ (Poly‘ℤ))
25		0cn 11037	. . . . . 6 ⊢ 0 ∈ ℂ
26		eqid 2737	. . . . . . . . . 10 ⊢ (coeff‘(𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘)))) = (coeff‘(𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘))))
27	26	coefv0 25480	. . . . . . . . 9 ⊢ ((𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘))) ∈ (Poly‘ℤ) → ((𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘)))‘0) = ((coeff‘(𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘))))‘0))
28	24, 27	syl 17	. . . . . . . 8 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → ((𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘)))‘0) = ((coeff‘(𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘))))‘0))
29	23	zcnd 12497	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → ((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) ∈ ℂ)
30		eqidd 2738	. . . . . . . . . 10 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → (𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘))) = (𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘))))
31	24, 15, 29, 30	coeeq2 25474	. . . . . . . . 9 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → (coeff‘(𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘)))) = (𝑘 ∈ ℕ0 ↦ if(𝑘 ≤ (deg‘𝑓), ((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)), 0)))
32	31	fveq1d 6811	. . . . . . . 8 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → ((coeff‘(𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘))))‘0) = ((𝑘 ∈ ℕ0 ↦ if(𝑘 ≤ (deg‘𝑓), ((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)), 0))‘0))
33		0nn0 12318	. . . . . . . . . 10 ⊢ 0 ∈ ℕ0
34		breq1 5088	. . . . . . . . . . . 12 ⊢ (𝑘 = 0 → (𝑘 ≤ (deg‘𝑓) ↔ 0 ≤ (deg‘𝑓)))
35		oveq2 7321	. . . . . . . . . . . . 13 ⊢ (𝑘 = 0 → ((deg‘𝑓) − 𝑘) = ((deg‘𝑓) − 0))
36	35	fveq2d 6813	. . . . . . . . . . . 12 ⊢ (𝑘 = 0 → ((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) = ((coeff‘𝑓)‘((deg‘𝑓) − 0)))
37	34, 36	ifbieq1d 4493	. . . . . . . . . . 11 ⊢ (𝑘 = 0 → if(𝑘 ≤ (deg‘𝑓), ((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)), 0) = if(0 ≤ (deg‘𝑓), ((coeff‘𝑓)‘((deg‘𝑓) − 0)), 0))
38		eqid 2737	. . . . . . . . . . 11 ⊢ (𝑘 ∈ ℕ0 ↦ if(𝑘 ≤ (deg‘𝑓), ((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)), 0)) = (𝑘 ∈ ℕ0 ↦ if(𝑘 ≤ (deg‘𝑓), ((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)), 0))
39		fvex 6822	. . . . . . . . . . . 12 ⊢ ((coeff‘𝑓)‘((deg‘𝑓) − 0)) ∈ V
40		c0ex 11039	. . . . . . . . . . . 12 ⊢ 0 ∈ V
41	39, 40	ifex 4519	. . . . . . . . . . 11 ⊢ if(0 ≤ (deg‘𝑓), ((coeff‘𝑓)‘((deg‘𝑓) − 0)), 0) ∈ V
42	37, 38, 41	fvmpt 6912	. . . . . . . . . 10 ⊢ (0 ∈ ℕ0 → ((𝑘 ∈ ℕ0 ↦ if(𝑘 ≤ (deg‘𝑓), ((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)), 0))‘0) = if(0 ≤ (deg‘𝑓), ((coeff‘𝑓)‘((deg‘𝑓) − 0)), 0))
43	33, 42	ax-mp 5	. . . . . . . . 9 ⊢ ((𝑘 ∈ ℕ0 ↦ if(𝑘 ≤ (deg‘𝑓), ((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)), 0))‘0) = if(0 ≤ (deg‘𝑓), ((coeff‘𝑓)‘((deg‘𝑓) − 0)), 0)
44	15	nn0ge0d 12366	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → 0 ≤ (deg‘𝑓))
45	44	iftrued 4477	. . . . . . . . . 10 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → if(0 ≤ (deg‘𝑓), ((coeff‘𝑓)‘((deg‘𝑓) − 0)), 0) = ((coeff‘𝑓)‘((deg‘𝑓) − 0)))
46	15	nn0cnd 12365	. . . . . . . . . . . 12 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → (deg‘𝑓) ∈ ℂ)
47	46	subid1d 11391	. . . . . . . . . . 11 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → ((deg‘𝑓) − 0) = (deg‘𝑓))
48	47	fveq2d 6813	. . . . . . . . . 10 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → ((coeff‘𝑓)‘((deg‘𝑓) − 0)) = ((coeff‘𝑓)‘(deg‘𝑓)))
49	45, 48	eqtrd 2777	. . . . . . . . 9 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → if(0 ≤ (deg‘𝑓), ((coeff‘𝑓)‘((deg‘𝑓) − 0)), 0) = ((coeff‘𝑓)‘(deg‘𝑓)))
50	43, 49	eqtrid 2789	. . . . . . . 8 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → ((𝑘 ∈ ℕ0 ↦ if(𝑘 ≤ (deg‘𝑓), ((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)), 0))‘0) = ((coeff‘𝑓)‘(deg‘𝑓)))
51	28, 32, 50	3eqtrd 2781	. . . . . . 7 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → ((𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘)))‘0) = ((coeff‘𝑓)‘(deg‘𝑓)))
52	12	simprd 496	. . . . . . . 8 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → 𝑓 ≠ 0𝑝)
53		eqid 2737	. . . . . . . . . . 11 ⊢ (deg‘𝑓) = (deg‘𝑓)
54	53, 18	dgreq0 25497	. . . . . . . . . 10 ⊢ (𝑓 ∈ (Poly‘ℤ) → (𝑓 = 0𝑝 ↔ ((coeff‘𝑓)‘(deg‘𝑓)) = 0))
55	13, 54	syl 17	. . . . . . . . 9 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → (𝑓 = 0𝑝 ↔ ((coeff‘𝑓)‘(deg‘𝑓)) = 0))
56	55	necon3bid 2986	. . . . . . . 8 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → (𝑓 ≠ 0𝑝 ↔ ((coeff‘𝑓)‘(deg‘𝑓)) ≠ 0))
57	52, 56	mpbid 231	. . . . . . 7 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → ((coeff‘𝑓)‘(deg‘𝑓)) ≠ 0)
58	51, 57	eqnetrd 3009	. . . . . 6 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → ((𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘)))‘0) ≠ 0)
59		ne0p 25439	. . . . . 6 ⊢ ((0 ∈ ℂ ∧ ((𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘)))‘0) ≠ 0) → (𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘))) ≠ 0𝑝)
60	25, 58, 59	sylancr 587	. . . . 5 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → (𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘))) ≠ 0𝑝)
61		eldifsn 4730	. . . . 5 ⊢ ((𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘))) ∈ ((Poly‘ℤ) ∖ {0𝑝}) ↔ ((𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘))) ∈ (Poly‘ℤ) ∧ (𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘))) ≠ 0𝑝))
62	24, 60, 61	sylanbrc 583	. . . 4 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → (𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘))) ∈ ((Poly‘ℤ) ∖ {0𝑝}))
63		oveq1 7320	. . . . . . . . 9 ⊢ (𝑧 = (1 / 𝐴) → (𝑧↑𝑘) = ((1 / 𝐴)↑𝑘))
64	63	oveq2d 7329	. . . . . . . 8 ⊢ (𝑧 = (1 / 𝐴) → (((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘)) = (((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · ((1 / 𝐴)↑𝑘)))
65	64	sumeq2sdv 15485	. . . . . . 7 ⊢ (𝑧 = (1 / 𝐴) → Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘)) = Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · ((1 / 𝐴)↑𝑘)))
66		eqid 2737	. . . . . . 7 ⊢ (𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘))) = (𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘)))
67		sumex 15468	. . . . . . 7 ⊢ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · ((1 / 𝐴)↑𝑘)) ∈ V
68	65, 66, 67	fvmpt 6912	. . . . . 6 ⊢ ((1 / 𝐴) ∈ ℂ → ((𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘)))‘(1 / 𝐴)) = Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · ((1 / 𝐴)↑𝑘)))
69	7, 68	syl 17	. . . . 5 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → ((𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘)))‘(1 / 𝐴)) = Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · ((1 / 𝐴)↑𝑘)))
70	18	coef3 25464	. . . . . . . . . . 11 ⊢ (𝑓 ∈ (Poly‘ℤ) → (coeff‘𝑓):ℕ0⟶ℂ)
71	13, 70	syl 17	. . . . . . . . . 10 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → (coeff‘𝑓):ℕ0⟶ℂ)
72		elfznn0 13419	. . . . . . . . . 10 ⊢ (𝑛 ∈ (0...(deg‘𝑓)) → 𝑛 ∈ ℕ0)
73		ffvelcdm 6996	. . . . . . . . . 10 ⊢ (((coeff‘𝑓):ℕ0⟶ℂ ∧ 𝑛 ∈ ℕ0) → ((coeff‘𝑓)‘𝑛) ∈ ℂ)
74	71, 72, 73	syl2an 596	. . . . . . . . 9 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑛 ∈ (0...(deg‘𝑓))) → ((coeff‘𝑓)‘𝑛) ∈ ℂ)
75	4	ad2antrr 723	. . . . . . . . . 10 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → 𝐴 ∈ ℂ)
76		expcl 13870	. . . . . . . . . 10 ⊢ ((𝐴 ∈ ℂ ∧ 𝑛 ∈ ℕ0) → (𝐴↑𝑛) ∈ ℂ)
77	75, 72, 76	syl2an 596	. . . . . . . . 9 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑛 ∈ (0...(deg‘𝑓))) → (𝐴↑𝑛) ∈ ℂ)
78	74, 77	mulcld 11065	. . . . . . . 8 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑛 ∈ (0...(deg‘𝑓))) → (((coeff‘𝑓)‘𝑛) · (𝐴↑𝑛)) ∈ ℂ)
79	75, 15	expcld 13934	. . . . . . . . 9 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → (𝐴↑(deg‘𝑓)) ∈ ℂ)
80	79	adantr 481	. . . . . . . 8 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑛 ∈ (0...(deg‘𝑓))) → (𝐴↑(deg‘𝑓)) ∈ ℂ)
81		simplr 766	. . . . . . . . . 10 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → 𝐴 ≠ 0)
82	15	nn0zd 12494	. . . . . . . . . 10 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → (deg‘𝑓) ∈ ℤ)
83	75, 81, 82	expne0d 13940	. . . . . . . . 9 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → (𝐴↑(deg‘𝑓)) ≠ 0)
84	83	adantr 481	. . . . . . . 8 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑛 ∈ (0...(deg‘𝑓))) → (𝐴↑(deg‘𝑓)) ≠ 0)
85	78, 80, 84	divcld 11821	. . . . . . 7 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑛 ∈ (0...(deg‘𝑓))) → ((((coeff‘𝑓)‘𝑛) · (𝐴↑𝑛)) / (𝐴↑(deg‘𝑓))) ∈ ℂ)
86		fveq2 6809	. . . . . . . . 9 ⊢ (𝑛 = ((0 + (deg‘𝑓)) − 𝑘) → ((coeff‘𝑓)‘𝑛) = ((coeff‘𝑓)‘((0 + (deg‘𝑓)) − 𝑘)))
87		oveq2 7321	. . . . . . . . 9 ⊢ (𝑛 = ((0 + (deg‘𝑓)) − 𝑘) → (𝐴↑𝑛) = (𝐴↑((0 + (deg‘𝑓)) − 𝑘)))
88	86, 87	oveq12d 7331	. . . . . . . 8 ⊢ (𝑛 = ((0 + (deg‘𝑓)) − 𝑘) → (((coeff‘𝑓)‘𝑛) · (𝐴↑𝑛)) = (((coeff‘𝑓)‘((0 + (deg‘𝑓)) − 𝑘)) · (𝐴↑((0 + (deg‘𝑓)) − 𝑘))))
89	88	oveq1d 7328	. . . . . . 7 ⊢ (𝑛 = ((0 + (deg‘𝑓)) − 𝑘) → ((((coeff‘𝑓)‘𝑛) · (𝐴↑𝑛)) / (𝐴↑(deg‘𝑓))) = ((((coeff‘𝑓)‘((0 + (deg‘𝑓)) − 𝑘)) · (𝐴↑((0 + (deg‘𝑓)) − 𝑘))) / (𝐴↑(deg‘𝑓))))
90	85, 89	fsumrev2 15563	. . . . . 6 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → Σ𝑛 ∈ (0...(deg‘𝑓))((((coeff‘𝑓)‘𝑛) · (𝐴↑𝑛)) / (𝐴↑(deg‘𝑓))) = Σ𝑘 ∈ (0...(deg‘𝑓))((((coeff‘𝑓)‘((0 + (deg‘𝑓)) − 𝑘)) · (𝐴↑((0 + (deg‘𝑓)) − 𝑘))) / (𝐴↑(deg‘𝑓))))
91	46	adantr 481	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → (deg‘𝑓) ∈ ℂ)
92	91	addid2d 11246	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → (0 + (deg‘𝑓)) = (deg‘𝑓))
93	92	oveq1d 7328	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → ((0 + (deg‘𝑓)) − 𝑘) = ((deg‘𝑓) − 𝑘))
94	93	fveq2d 6813	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → ((coeff‘𝑓)‘((0 + (deg‘𝑓)) − 𝑘)) = ((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)))
95	93	oveq2d 7329	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → (𝐴↑((0 + (deg‘𝑓)) − 𝑘)) = (𝐴↑((deg‘𝑓) − 𝑘)))
96	75	adantr 481	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → 𝐴 ∈ ℂ)
97	81	adantr 481	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → 𝐴 ≠ 0)
98		elfznn0 13419	. . . . . . . . . . . . . 14 ⊢ (𝑘 ∈ (0...(deg‘𝑓)) → 𝑘 ∈ ℕ0)
99	98	adantl 482	. . . . . . . . . . . . 13 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → 𝑘 ∈ ℕ0)
100	99	nn0zd 12494	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → 𝑘 ∈ ℤ)
101	82	adantr 481	. . . . . . . . . . . 12 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → (deg‘𝑓) ∈ ℤ)
102	96, 97, 100, 101	expsubd 13945	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → (𝐴↑((deg‘𝑓) − 𝑘)) = ((𝐴↑(deg‘𝑓)) / (𝐴↑𝑘)))
103	95, 102	eqtrd 2777	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → (𝐴↑((0 + (deg‘𝑓)) − 𝑘)) = ((𝐴↑(deg‘𝑓)) / (𝐴↑𝑘)))
104	94, 103	oveq12d 7331	. . . . . . . . 9 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → (((coeff‘𝑓)‘((0 + (deg‘𝑓)) − 𝑘)) · (𝐴↑((0 + (deg‘𝑓)) − 𝑘))) = (((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · ((𝐴↑(deg‘𝑓)) / (𝐴↑𝑘))))
105	104	oveq1d 7328	. . . . . . . 8 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → ((((coeff‘𝑓)‘((0 + (deg‘𝑓)) − 𝑘)) · (𝐴↑((0 + (deg‘𝑓)) − 𝑘))) / (𝐴↑(deg‘𝑓))) = ((((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · ((𝐴↑(deg‘𝑓)) / (𝐴↑𝑘))) / (𝐴↑(deg‘𝑓))))
106	79	adantr 481	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → (𝐴↑(deg‘𝑓)) ∈ ℂ)
107		expcl 13870	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℂ ∧ 𝑘 ∈ ℕ0) → (𝐴↑𝑘) ∈ ℂ)
108	75, 98, 107	syl2an 596	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → (𝐴↑𝑘) ∈ ℂ)
109	96, 97, 100	expne0d 13940	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → (𝐴↑𝑘) ≠ 0)
110	106, 108, 109	divcld 11821	. . . . . . . . 9 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → ((𝐴↑(deg‘𝑓)) / (𝐴↑𝑘)) ∈ ℂ)
111	83	adantr 481	. . . . . . . . 9 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → (𝐴↑(deg‘𝑓)) ≠ 0)
112	29, 110, 106, 111	divassd 11856	. . . . . . . 8 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → ((((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · ((𝐴↑(deg‘𝑓)) / (𝐴↑𝑘))) / (𝐴↑(deg‘𝑓))) = (((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (((𝐴↑(deg‘𝑓)) / (𝐴↑𝑘)) / (𝐴↑(deg‘𝑓)))))
113	106, 111	dividd 11819	. . . . . . . . . . 11 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → ((𝐴↑(deg‘𝑓)) / (𝐴↑(deg‘𝑓))) = 1)
114	113	oveq1d 7328	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → (((𝐴↑(deg‘𝑓)) / (𝐴↑(deg‘𝑓))) / (𝐴↑𝑘)) = (1 / (𝐴↑𝑘)))
115	106, 108, 106, 109, 111	divdiv32d 11846	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → (((𝐴↑(deg‘𝑓)) / (𝐴↑𝑘)) / (𝐴↑(deg‘𝑓))) = (((𝐴↑(deg‘𝑓)) / (𝐴↑(deg‘𝑓))) / (𝐴↑𝑘)))
116	96, 97, 100	exprecd 13942	. . . . . . . . . 10 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → ((1 / 𝐴)↑𝑘) = (1 / (𝐴↑𝑘)))
117	114, 115, 116	3eqtr4d 2787	. . . . . . . . 9 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → (((𝐴↑(deg‘𝑓)) / (𝐴↑𝑘)) / (𝐴↑(deg‘𝑓))) = ((1 / 𝐴)↑𝑘))
118	117	oveq2d 7329	. . . . . . . 8 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → (((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (((𝐴↑(deg‘𝑓)) / (𝐴↑𝑘)) / (𝐴↑(deg‘𝑓)))) = (((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · ((1 / 𝐴)↑𝑘)))
119	105, 112, 118	3eqtrd 2781	. . . . . . 7 ⊢ ((((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) ∧ 𝑘 ∈ (0...(deg‘𝑓))) → ((((coeff‘𝑓)‘((0 + (deg‘𝑓)) − 𝑘)) · (𝐴↑((0 + (deg‘𝑓)) − 𝑘))) / (𝐴↑(deg‘𝑓))) = (((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · ((1 / 𝐴)↑𝑘)))
120	119	sumeq2dv 15484	. . . . . 6 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → Σ𝑘 ∈ (0...(deg‘𝑓))((((coeff‘𝑓)‘((0 + (deg‘𝑓)) − 𝑘)) · (𝐴↑((0 + (deg‘𝑓)) − 𝑘))) / (𝐴↑(deg‘𝑓))) = Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · ((1 / 𝐴)↑𝑘)))
121	90, 120	eqtrd 2777	. . . . 5 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → Σ𝑛 ∈ (0...(deg‘𝑓))((((coeff‘𝑓)‘𝑛) · (𝐴↑𝑛)) / (𝐴↑(deg‘𝑓))) = Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · ((1 / 𝐴)↑𝑘)))
122	18, 53	coeid2 25471	. . . . . . . . 9 ⊢ ((𝑓 ∈ (Poly‘ℤ) ∧ 𝐴 ∈ ℂ) → (𝑓‘𝐴) = Σ𝑛 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘𝑛) · (𝐴↑𝑛)))
123	13, 75, 122	syl2anc 584	. . . . . . . 8 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → (𝑓‘𝐴) = Σ𝑛 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘𝑛) · (𝐴↑𝑛)))
124		simprr 770	. . . . . . . 8 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → (𝑓‘𝐴) = 0)
125	123, 124	eqtr3d 2779	. . . . . . 7 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → Σ𝑛 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘𝑛) · (𝐴↑𝑛)) = 0)
126	125	oveq1d 7328	. . . . . 6 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → (Σ𝑛 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘𝑛) · (𝐴↑𝑛)) / (𝐴↑(deg‘𝑓))) = (0 / (𝐴↑(deg‘𝑓))))
127		fzfid 13763	. . . . . . 7 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → (0...(deg‘𝑓)) ∈ Fin)
128	127, 79, 78, 83	fsumdivc 15567	. . . . . 6 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → (Σ𝑛 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘𝑛) · (𝐴↑𝑛)) / (𝐴↑(deg‘𝑓))) = Σ𝑛 ∈ (0...(deg‘𝑓))((((coeff‘𝑓)‘𝑛) · (𝐴↑𝑛)) / (𝐴↑(deg‘𝑓))))
129	79, 83	div0d 11820	. . . . . 6 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → (0 / (𝐴↑(deg‘𝑓))) = 0)
130	126, 128, 129	3eqtr3d 2785	. . . . 5 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → Σ𝑛 ∈ (0...(deg‘𝑓))((((coeff‘𝑓)‘𝑛) · (𝐴↑𝑛)) / (𝐴↑(deg‘𝑓))) = 0)
131	69, 121, 130	3eqtr2d 2783	. . . 4 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → ((𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘)))‘(1 / 𝐴)) = 0)
132		fveq1 6808	. . . . . 6 ⊢ (𝑔 = (𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘))) → (𝑔‘(1 / 𝐴)) = ((𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘)))‘(1 / 𝐴)))
133	132	eqeq1d 2739	. . . . 5 ⊢ (𝑔 = (𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘))) → ((𝑔‘(1 / 𝐴)) = 0 ↔ ((𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘)))‘(1 / 𝐴)) = 0))
134	133	rspcev 3570	. . . 4 ⊢ (((𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘))) ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ ((𝑧 ∈ ℂ ↦ Σ𝑘 ∈ (0...(deg‘𝑓))(((coeff‘𝑓)‘((deg‘𝑓) − 𝑘)) · (𝑧↑𝑘)))‘(1 / 𝐴)) = 0) → ∃𝑔 ∈ ((Poly‘ℤ) ∖ {0𝑝})(𝑔‘(1 / 𝐴)) = 0)
135	62, 131, 134	syl2anc 584	. . 3 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → ∃𝑔 ∈ ((Poly‘ℤ) ∖ {0𝑝})(𝑔‘(1 / 𝐴)) = 0)
136		elaa 25547	. . 3 ⊢ ((1 / 𝐴) ∈ 𝔸 ↔ ((1 / 𝐴) ∈ ℂ ∧ ∃𝑔 ∈ ((Poly‘ℤ) ∖ {0𝑝})(𝑔‘(1 / 𝐴)) = 0))
137	7, 135, 136	sylanbrc 583	. 2 ⊢ (((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) ∧ (𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (𝑓‘𝐴) = 0)) → (1 / 𝐴) ∈ 𝔸)
138	3, 137	rexlimddv 3155	1 ⊢ ((𝐴 ∈ 𝔸 ∧ 𝐴 ≠ 0) → (1 / 𝐴) ∈ 𝔸)

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 396   = wceq 1540   ∈ wcel 2105   ≠ wne 2941  ∃wrex 3071   ∖ cdif 3893   ⊆ wss 3896  ifcif 4469  {csn 4569   class class class wbr 5085   ↦ cmpt 5168  ⟶wf 6459  ‘cfv 6463  (class class class)co 7313  ℂcc 10939  0cc0 10941  1c1 10942   + caddc 10944   · cmul 10946   ≤ cle 11080   − cmin 11275   / cdiv 11702  ℕ₀cn0 12303  ℤcz 12389  ...cfz 13309  ↑cexp 13852  Σcsu 15466  0_𝑝c0p 24904  Polycply 25416  coeffccoe 25418  degcdgr 25419  𝔸caa 25545

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2708  ax-rep 5222  ax-sep 5236  ax-nul 5243  ax-pow 5301  ax-pr 5365  ax-un 7626  ax-inf2 9467  ax-cnex 10997  ax-resscn 10998  ax-1cn 10999  ax-icn 11000  ax-addcl 11001  ax-addrcl 11002  ax-mulcl 11003  ax-mulrcl 11004  ax-mulcom 11005  ax-addass 11006  ax-mulass 11007  ax-distr 11008  ax-i2m1 11009  ax-1ne0 11010  ax-1rid 11011  ax-rnegex 11012  ax-rrecex 11013  ax-cnre 11014  ax-pre-lttri 11015  ax-pre-lttrn 11016  ax-pre-ltadd 11017  ax-pre-mulgt0 11018  ax-pre-sup 11019

This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2887  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-rmo 3350  df-reu 3351  df-rab 3405  df-v 3443  df-sbc 3726  df-csb 3842  df-dif 3899  df-un 3901  df-in 3903  df-ss 3913  df-pss 3915  df-nul 4267  df-if 4470  df-pw 4545  df-sn 4570  df-pr 4572  df-op 4576  df-uni 4849  df-int 4891  df-iun 4937  df-br 5086  df-opab 5148  df-mpt 5169  df-tr 5203  df-id 5505  df-eprel 5511  df-po 5519  df-so 5520  df-fr 5560  df-se 5561  df-we 5562  df-xp 5611  df-rel 5612  df-cnv 5613  df-co 5614  df-dm 5615  df-rn 5616  df-res 5617  df-ima 5618  df-pred 6222  df-ord 6289  df-on 6290  df-lim 6291  df-suc 6292  df-iota 6415  df-fun 6465  df-fn 6466  df-f 6467  df-f1 6468  df-fo 6469  df-f1o 6470  df-fv 6471  df-isom 6472  df-riota 7270  df-ov 7316  df-oprab 7317  df-mpo 7318  df-of 7571  df-om 7756  df-1st 7874  df-2nd 7875  df-frecs 8142  df-wrecs 8173  df-recs 8247  df-rdg 8286  df-1o 8342  df-er 8544  df-map 8663  df-pm 8664  df-en 8780  df-dom 8781  df-sdom 8782  df-fin 8783  df-sup 9269  df-inf 9270  df-oi 9337  df-card 9765  df-pnf 11081  df-mnf 11082  df-xr 11083  df-ltxr 11084  df-le 11085  df-sub 11277  df-neg 11278  df-div 11703  df-nn 12044  df-2 12106  df-3 12107  df-n0 12304  df-z 12390  df-uz 12653  df-rp 12801  df-fz 13310  df-fzo 13453  df-fl 13582  df-seq 13792  df-exp 13853  df-hash 14115  df-cj 14879  df-re 14880  df-im 14881  df-sqrt 15015  df-abs 15016  df-clim 15266  df-rlim 15267  df-sum 15467  df-0p 24905  df-ply 25420  df-coe 25422  df-dgr 25423  df-aa 25546

This theorem is referenced by: (None)