Theorem elqaalem3 24913

Description: Lemma for elqaa 24914. (Contributed by Mario Carneiro, 23-Jul-2014.) (Revised by AV, 3-Oct-2020.)

Hypotheses

Ref	Expression
elqaa.1	⊢ (𝜑 → 𝐴 ∈ ℂ)
elqaa.2	⊢ (𝜑 → 𝐹 ∈ ((Poly‘ℚ) ∖ {0𝑝}))
elqaa.3	⊢ (𝜑 → (𝐹‘𝐴) = 0)
elqaa.4	⊢ 𝐵 = (coeff‘𝐹)
elqaa.5	⊢ 𝑁 = (𝑘 ∈ ℕ0 ↦ inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑘) · 𝑛) ∈ ℤ}, ℝ, < ))
elqaa.6	⊢ 𝑅 = (seq0( · , 𝑁)‘(deg‘𝐹))

Assertion

Ref	Expression
elqaalem3	⊢ (𝜑 → 𝐴 ∈ 𝔸)

Distinct variable groups:   𝑘,𝑛,𝐴   𝐵,𝑘,𝑛   𝜑,𝑘   𝑘,𝑁,𝑛   𝑅,𝑘

Allowed substitution hints:   𝜑(𝑛)   𝑅(𝑛)   𝐹(𝑘,𝑛)

Proof of Theorem elqaalem3

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

Step	Hyp	Ref	Expression
1		elqaa.1	. 2 ⊢ (𝜑 → 𝐴 ∈ ℂ)
2		cnex 10621	. . . . . . . 8 ⊢ ℂ ∈ V
3	2	a1i 11	. . . . . . 7 ⊢ (𝜑 → ℂ ∈ V)
4		elqaa.6	. . . . . . . . 9 ⊢ 𝑅 = (seq0( · , 𝑁)‘(deg‘𝐹))
5	4	fvexi 6687	. . . . . . . 8 ⊢ 𝑅 ∈ V
6	5	a1i 11	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → 𝑅 ∈ V)
7		fvexd 6688	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → (𝐹‘𝑧) ∈ V)
8		fconstmpt 5617	. . . . . . . 8 ⊢ (ℂ × {𝑅}) = (𝑧 ∈ ℂ ↦ 𝑅)
9	8	a1i 11	. . . . . . 7 ⊢ (𝜑 → (ℂ × {𝑅}) = (𝑧 ∈ ℂ ↦ 𝑅))
10		elqaa.2	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹 ∈ ((Poly‘ℚ) ∖ {0𝑝}))
11	10	eldifad 3951	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 ∈ (Poly‘ℚ))
12		plyf 24791	. . . . . . . . 9 ⊢ (𝐹 ∈ (Poly‘ℚ) → 𝐹:ℂ⟶ℂ)
13	11, 12	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝐹:ℂ⟶ℂ)
14	13	feqmptd 6736	. . . . . . 7 ⊢ (𝜑 → 𝐹 = (𝑧 ∈ ℂ ↦ (𝐹‘𝑧)))
15	3, 6, 7, 9, 14	offval2 7429	. . . . . 6 ⊢ (𝜑 → ((ℂ × {𝑅}) ∘f · 𝐹) = (𝑧 ∈ ℂ ↦ (𝑅 · (𝐹‘𝑧))))
16		fzfid 13344	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → (0...(deg‘𝐹)) ∈ Fin)
17		nn0uz 12283	. . . . . . . . . . . . . 14 ⊢ ℕ0 = (ℤ≥‘0)
18		0zd 11996	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 0 ∈ ℤ)
19		ssrab2 4059	. . . . . . . . . . . . . . 15 ⊢ {𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ} ⊆ ℕ
20		fveq2 6673	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑘 = 𝑚 → (𝐵‘𝑘) = (𝐵‘𝑚))
21	20	oveq1d 7174	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑘 = 𝑚 → ((𝐵‘𝑘) · 𝑛) = ((𝐵‘𝑚) · 𝑛))
22	21	eleq1d 2900	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑘 = 𝑚 → (((𝐵‘𝑘) · 𝑛) ∈ ℤ ↔ ((𝐵‘𝑚) · 𝑛) ∈ ℤ))
23	22	rabbidv 3483	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 = 𝑚 → {𝑛 ∈ ℕ ∣ ((𝐵‘𝑘) · 𝑛) ∈ ℤ} = {𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ})
24	23	infeq1d 8944	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 = 𝑚 → inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑘) · 𝑛) ∈ ℤ}, ℝ, < ) = inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ}, ℝ, < ))
25		elqaa.5	. . . . . . . . . . . . . . . . . 18 ⊢ 𝑁 = (𝑘 ∈ ℕ0 ↦ inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑘) · 𝑛) ∈ ℤ}, ℝ, < ))
26		ltso 10724	. . . . . . . . . . . . . . . . . . 19 ⊢ < Or ℝ
27	26	infex 8960	. . . . . . . . . . . . . . . . . 18 ⊢ inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ}, ℝ, < ) ∈ V
28	24, 25, 27	fvmpt 6771	. . . . . . . . . . . . . . . . 17 ⊢ (𝑚 ∈ ℕ0 → (𝑁‘𝑚) = inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ}, ℝ, < ))
29	28	adantl 484	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → (𝑁‘𝑚) = inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ}, ℝ, < ))
30		nnuz 12284	. . . . . . . . . . . . . . . . . 18 ⊢ ℕ = (ℤ≥‘1)
31	19, 30	sseqtri 4006	. . . . . . . . . . . . . . . . 17 ⊢ {𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ} ⊆ (ℤ≥‘1)
32		0z 11995	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 0 ∈ ℤ
33		zq 12357	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (0 ∈ ℤ → 0 ∈ ℚ)
34	32, 33	ax-mp 5	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 0 ∈ ℚ
35		elqaa.4	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 𝐵 = (coeff‘𝐹)
36	35	coef2 24824	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐹 ∈ (Poly‘ℚ) ∧ 0 ∈ ℚ) → 𝐵:ℕ0⟶ℚ)
37	11, 34, 36	sylancl 588	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐵:ℕ0⟶ℚ)
38	37	ffvelrnda 6854	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → (𝐵‘𝑚) ∈ ℚ)
39		qmulz 12354	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐵‘𝑚) ∈ ℚ → ∃𝑛 ∈ ℕ ((𝐵‘𝑚) · 𝑛) ∈ ℤ)
40	38, 39	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → ∃𝑛 ∈ ℕ ((𝐵‘𝑚) · 𝑛) ∈ ℤ)
41		rabn0 4342	. . . . . . . . . . . . . . . . . 18 ⊢ ({𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ} ≠ ∅ ↔ ∃𝑛 ∈ ℕ ((𝐵‘𝑚) · 𝑛) ∈ ℤ)
42	40, 41	sylibr 236	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → {𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ} ≠ ∅)
43		infssuzcl 12335	. . . . . . . . . . . . . . . . 17 ⊢ (({𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ} ⊆ (ℤ≥‘1) ∧ {𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ} ≠ ∅) → inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ}, ℝ, < ) ∈ {𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ})
44	31, 42, 43	sylancr 589	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ}, ℝ, < ) ∈ {𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ})
45	29, 44	eqeltrd 2916	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → (𝑁‘𝑚) ∈ {𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ})
46	19, 45	sseldi 3968	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → (𝑁‘𝑚) ∈ ℕ)
47		nnmulcl 11664	. . . . . . . . . . . . . . 15 ⊢ ((𝑚 ∈ ℕ ∧ 𝑘 ∈ ℕ) → (𝑚 · 𝑘) ∈ ℕ)
48	47	adantl 484	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑚 ∈ ℕ ∧ 𝑘 ∈ ℕ)) → (𝑚 · 𝑘) ∈ ℕ)
49	17, 18, 46, 48	seqf 13394	. . . . . . . . . . . . 13 ⊢ (𝜑 → seq0( · , 𝑁):ℕ0⟶ℕ)
50		dgrcl 24826	. . . . . . . . . . . . . 14 ⊢ (𝐹 ∈ (Poly‘ℚ) → (deg‘𝐹) ∈ ℕ0)
51	11, 50	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (deg‘𝐹) ∈ ℕ0)
52	49, 51	ffvelrnd 6855	. . . . . . . . . . . 12 ⊢ (𝜑 → (seq0( · , 𝑁)‘(deg‘𝐹)) ∈ ℕ)
53	4, 52	eqeltrid 2920	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑅 ∈ ℕ)
54	53	nncnd 11657	. . . . . . . . . 10 ⊢ (𝜑 → 𝑅 ∈ ℂ)
55	54	adantr 483	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → 𝑅 ∈ ℂ)
56		elfznn0 13003	. . . . . . . . . 10 ⊢ (𝑚 ∈ (0...(deg‘𝐹)) → 𝑚 ∈ ℕ0)
57	35	coef3 24825	. . . . . . . . . . . . . 14 ⊢ (𝐹 ∈ (Poly‘ℚ) → 𝐵:ℕ0⟶ℂ)
58	11, 57	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐵:ℕ0⟶ℂ)
59	58	adantr 483	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → 𝐵:ℕ0⟶ℂ)
60	59	ffvelrnda 6854	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑧 ∈ ℂ) ∧ 𝑚 ∈ ℕ0) → (𝐵‘𝑚) ∈ ℂ)
61		expcl 13450	. . . . . . . . . . . 12 ⊢ ((𝑧 ∈ ℂ ∧ 𝑚 ∈ ℕ0) → (𝑧↑𝑚) ∈ ℂ)
62	61	adantll 712	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑧 ∈ ℂ) ∧ 𝑚 ∈ ℕ0) → (𝑧↑𝑚) ∈ ℂ)
63	60, 62	mulcld 10664	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑧 ∈ ℂ) ∧ 𝑚 ∈ ℕ0) → ((𝐵‘𝑚) · (𝑧↑𝑚)) ∈ ℂ)
64	56, 63	sylan2 594	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑧 ∈ ℂ) ∧ 𝑚 ∈ (0...(deg‘𝐹))) → ((𝐵‘𝑚) · (𝑧↑𝑚)) ∈ ℂ)
65	16, 55, 64	fsummulc2 15142	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → (𝑅 · Σ𝑚 ∈ (0...(deg‘𝐹))((𝐵‘𝑚) · (𝑧↑𝑚))) = Σ𝑚 ∈ (0...(deg‘𝐹))(𝑅 · ((𝐵‘𝑚) · (𝑧↑𝑚))))
66		eqid 2824	. . . . . . . . . . 11 ⊢ (deg‘𝐹) = (deg‘𝐹)
67	35, 66	coeid2 24832	. . . . . . . . . 10 ⊢ ((𝐹 ∈ (Poly‘ℚ) ∧ 𝑧 ∈ ℂ) → (𝐹‘𝑧) = Σ𝑚 ∈ (0...(deg‘𝐹))((𝐵‘𝑚) · (𝑧↑𝑚)))
68	11, 67	sylan 582	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → (𝐹‘𝑧) = Σ𝑚 ∈ (0...(deg‘𝐹))((𝐵‘𝑚) · (𝑧↑𝑚)))
69	68	oveq2d 7175	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → (𝑅 · (𝐹‘𝑧)) = (𝑅 · Σ𝑚 ∈ (0...(deg‘𝐹))((𝐵‘𝑚) · (𝑧↑𝑚))))
70	55	adantr 483	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑧 ∈ ℂ) ∧ 𝑚 ∈ ℕ0) → 𝑅 ∈ ℂ)
71	70, 60, 62	mulassd 10667	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑧 ∈ ℂ) ∧ 𝑚 ∈ ℕ0) → ((𝑅 · (𝐵‘𝑚)) · (𝑧↑𝑚)) = (𝑅 · ((𝐵‘𝑚) · (𝑧↑𝑚))))
72	56, 71	sylan2 594	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑧 ∈ ℂ) ∧ 𝑚 ∈ (0...(deg‘𝐹))) → ((𝑅 · (𝐵‘𝑚)) · (𝑧↑𝑚)) = (𝑅 · ((𝐵‘𝑚) · (𝑧↑𝑚))))
73	72	sumeq2dv 15063	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → Σ𝑚 ∈ (0...(deg‘𝐹))((𝑅 · (𝐵‘𝑚)) · (𝑧↑𝑚)) = Σ𝑚 ∈ (0...(deg‘𝐹))(𝑅 · ((𝐵‘𝑚) · (𝑧↑𝑚))))
74	65, 69, 73	3eqtr4d 2869	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → (𝑅 · (𝐹‘𝑧)) = Σ𝑚 ∈ (0...(deg‘𝐹))((𝑅 · (𝐵‘𝑚)) · (𝑧↑𝑚)))
75	74	mpteq2dva 5164	. . . . . 6 ⊢ (𝜑 → (𝑧 ∈ ℂ ↦ (𝑅 · (𝐹‘𝑧))) = (𝑧 ∈ ℂ ↦ Σ𝑚 ∈ (0...(deg‘𝐹))((𝑅 · (𝐵‘𝑚)) · (𝑧↑𝑚))))
76	15, 75	eqtrd 2859	. . . . 5 ⊢ (𝜑 → ((ℂ × {𝑅}) ∘f · 𝐹) = (𝑧 ∈ ℂ ↦ Σ𝑚 ∈ (0...(deg‘𝐹))((𝑅 · (𝐵‘𝑚)) · (𝑧↑𝑚))))
77		zsscn 11992	. . . . . . 7 ⊢ ℤ ⊆ ℂ
78	77	a1i 11	. . . . . 6 ⊢ (𝜑 → ℤ ⊆ ℂ)
79	54	adantr 483	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → 𝑅 ∈ ℂ)
80	46	nncnd 11657	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → (𝑁‘𝑚) ∈ ℂ)
81	46	nnne0d 11690	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → (𝑁‘𝑚) ≠ 0)
82	79, 80, 81	divcan2d 11421	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → ((𝑁‘𝑚) · (𝑅 / (𝑁‘𝑚))) = 𝑅)
83	82	oveq2d 7175	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → ((𝐵‘𝑚) · ((𝑁‘𝑚) · (𝑅 / (𝑁‘𝑚)))) = ((𝐵‘𝑚) · 𝑅))
84	58	ffvelrnda 6854	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → (𝐵‘𝑚) ∈ ℂ)
85	79, 80, 81	divcld 11419	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → (𝑅 / (𝑁‘𝑚)) ∈ ℂ)
86	84, 80, 85	mulassd 10667	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → (((𝐵‘𝑚) · (𝑁‘𝑚)) · (𝑅 / (𝑁‘𝑚))) = ((𝐵‘𝑚) · ((𝑁‘𝑚) · (𝑅 / (𝑁‘𝑚)))))
87	79, 84	mulcomd 10665	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → (𝑅 · (𝐵‘𝑚)) = ((𝐵‘𝑚) · 𝑅))
88	83, 86, 87	3eqtr4rd 2870	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → (𝑅 · (𝐵‘𝑚)) = (((𝐵‘𝑚) · (𝑁‘𝑚)) · (𝑅 / (𝑁‘𝑚))))
89	56, 88	sylan2 594	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(deg‘𝐹))) → (𝑅 · (𝐵‘𝑚)) = (((𝐵‘𝑚) · (𝑁‘𝑚)) · (𝑅 / (𝑁‘𝑚))))
90		oveq2 7167	. . . . . . . . . . . . 13 ⊢ (𝑛 = (𝑁‘𝑚) → ((𝐵‘𝑚) · 𝑛) = ((𝐵‘𝑚) · (𝑁‘𝑚)))
91	90	eleq1d 2900	. . . . . . . . . . . 12 ⊢ (𝑛 = (𝑁‘𝑚) → (((𝐵‘𝑚) · 𝑛) ∈ ℤ ↔ ((𝐵‘𝑚) · (𝑁‘𝑚)) ∈ ℤ))
92	91	elrab 3683	. . . . . . . . . . 11 ⊢ ((𝑁‘𝑚) ∈ {𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ} ↔ ((𝑁‘𝑚) ∈ ℕ ∧ ((𝐵‘𝑚) · (𝑁‘𝑚)) ∈ ℤ))
93	92	simprbi 499	. . . . . . . . . 10 ⊢ ((𝑁‘𝑚) ∈ {𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ} → ((𝐵‘𝑚) · (𝑁‘𝑚)) ∈ ℤ)
94	45, 93	syl 17	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → ((𝐵‘𝑚) · (𝑁‘𝑚)) ∈ ℤ)
95	56, 94	sylan2 594	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(deg‘𝐹))) → ((𝐵‘𝑚) · (𝑁‘𝑚)) ∈ ℤ)
96		elqaa.3	. . . . . . . . . 10 ⊢ (𝜑 → (𝐹‘𝐴) = 0)
97		eqid 2824	. . . . . . . . . 10 ⊢ (𝑥 ∈ V, 𝑦 ∈ V ↦ ((𝑥 · 𝑦) mod (𝑁‘𝑚))) = (𝑥 ∈ V, 𝑦 ∈ V ↦ ((𝑥 · 𝑦) mod (𝑁‘𝑚)))
98	1, 10, 96, 35, 25, 4, 97	elqaalem2 24912	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(deg‘𝐹))) → (𝑅 mod (𝑁‘𝑚)) = 0)
99	53	adantr 483	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(deg‘𝐹))) → 𝑅 ∈ ℕ)
100	56, 46	sylan2 594	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(deg‘𝐹))) → (𝑁‘𝑚) ∈ ℕ)
101		nnre 11648	. . . . . . . . . . 11 ⊢ (𝑅 ∈ ℕ → 𝑅 ∈ ℝ)
102		nnrp 12403	. . . . . . . . . . 11 ⊢ ((𝑁‘𝑚) ∈ ℕ → (𝑁‘𝑚) ∈ ℝ+)
103		mod0 13247	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ ℝ ∧ (𝑁‘𝑚) ∈ ℝ+) → ((𝑅 mod (𝑁‘𝑚)) = 0 ↔ (𝑅 / (𝑁‘𝑚)) ∈ ℤ))
104	101, 102, 103	syl2an 597	. . . . . . . . . 10 ⊢ ((𝑅 ∈ ℕ ∧ (𝑁‘𝑚) ∈ ℕ) → ((𝑅 mod (𝑁‘𝑚)) = 0 ↔ (𝑅 / (𝑁‘𝑚)) ∈ ℤ))
105	99, 100, 104	syl2anc 586	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(deg‘𝐹))) → ((𝑅 mod (𝑁‘𝑚)) = 0 ↔ (𝑅 / (𝑁‘𝑚)) ∈ ℤ))
106	98, 105	mpbid 234	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(deg‘𝐹))) → (𝑅 / (𝑁‘𝑚)) ∈ ℤ)
107	95, 106	zmulcld 12096	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(deg‘𝐹))) → (((𝐵‘𝑚) · (𝑁‘𝑚)) · (𝑅 / (𝑁‘𝑚))) ∈ ℤ)
108	89, 107	eqeltrd 2916	. . . . . 6 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(deg‘𝐹))) → (𝑅 · (𝐵‘𝑚)) ∈ ℤ)
109	78, 51, 108	elplyd 24795	. . . . 5 ⊢ (𝜑 → (𝑧 ∈ ℂ ↦ Σ𝑚 ∈ (0...(deg‘𝐹))((𝑅 · (𝐵‘𝑚)) · (𝑧↑𝑚))) ∈ (Poly‘ℤ))
110	76, 109	eqeltrd 2916	. . . 4 ⊢ (𝜑 → ((ℂ × {𝑅}) ∘f · 𝐹) ∈ (Poly‘ℤ))
111		eldifsn 4722	. . . . . . 7 ⊢ (𝐹 ∈ ((Poly‘ℚ) ∖ {0𝑝}) ↔ (𝐹 ∈ (Poly‘ℚ) ∧ 𝐹 ≠ 0𝑝))
112	10, 111	sylib 220	. . . . . 6 ⊢ (𝜑 → (𝐹 ∈ (Poly‘ℚ) ∧ 𝐹 ≠ 0𝑝))
113	112	simprd 498	. . . . 5 ⊢ (𝜑 → 𝐹 ≠ 0𝑝)
114		oveq1 7166	. . . . . . 7 ⊢ (((ℂ × {𝑅}) ∘f · 𝐹) = 0𝑝 → (((ℂ × {𝑅}) ∘f · 𝐹) ∘f / (ℂ × {𝑅})) = (0𝑝 ∘f / (ℂ × {𝑅})))
115	13	ffvelrnda 6854	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → (𝐹‘𝑧) ∈ ℂ)
116	53	nnne0d 11690	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑅 ≠ 0)
117	116	adantr 483	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → 𝑅 ≠ 0)
118	115, 55, 117	divcan3d 11424	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → ((𝑅 · (𝐹‘𝑧)) / 𝑅) = (𝐹‘𝑧))
119	118	mpteq2dva 5164	. . . . . . . . 9 ⊢ (𝜑 → (𝑧 ∈ ℂ ↦ ((𝑅 · (𝐹‘𝑧)) / 𝑅)) = (𝑧 ∈ ℂ ↦ (𝐹‘𝑧)))
120		ovexd 7194	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → (𝑅 · (𝐹‘𝑧)) ∈ V)
121	3, 120, 6, 15, 9	offval2 7429	. . . . . . . . 9 ⊢ (𝜑 → (((ℂ × {𝑅}) ∘f · 𝐹) ∘f / (ℂ × {𝑅})) = (𝑧 ∈ ℂ ↦ ((𝑅 · (𝐹‘𝑧)) / 𝑅)))
122	119, 121, 14	3eqtr4d 2869	. . . . . . . 8 ⊢ (𝜑 → (((ℂ × {𝑅}) ∘f · 𝐹) ∘f / (ℂ × {𝑅})) = 𝐹)
123	54, 116	div0d 11418	. . . . . . . . . 10 ⊢ (𝜑 → (0 / 𝑅) = 0)
124	123	mpteq2dv 5165	. . . . . . . . 9 ⊢ (𝜑 → (𝑧 ∈ ℂ ↦ (0 / 𝑅)) = (𝑧 ∈ ℂ ↦ 0))
125		0cnd 10637	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → 0 ∈ ℂ)
126		df-0p 24274	. . . . . . . . . . . 12 ⊢ 0𝑝 = (ℂ × {0})
127		fconstmpt 5617	. . . . . . . . . . . 12 ⊢ (ℂ × {0}) = (𝑧 ∈ ℂ ↦ 0)
128	126, 127	eqtri 2847	. . . . . . . . . . 11 ⊢ 0𝑝 = (𝑧 ∈ ℂ ↦ 0)
129	128	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → 0𝑝 = (𝑧 ∈ ℂ ↦ 0))
130	3, 125, 6, 129, 9	offval2 7429	. . . . . . . . 9 ⊢ (𝜑 → (0𝑝 ∘f / (ℂ × {𝑅})) = (𝑧 ∈ ℂ ↦ (0 / 𝑅)))
131	124, 130, 129	3eqtr4d 2869	. . . . . . . 8 ⊢ (𝜑 → (0𝑝 ∘f / (ℂ × {𝑅})) = 0𝑝)
132	122, 131	eqeq12d 2840	. . . . . . 7 ⊢ (𝜑 → ((((ℂ × {𝑅}) ∘f · 𝐹) ∘f / (ℂ × {𝑅})) = (0𝑝 ∘f / (ℂ × {𝑅})) ↔ 𝐹 = 0𝑝))
133	114, 132	syl5ib 246	. . . . . 6 ⊢ (𝜑 → (((ℂ × {𝑅}) ∘f · 𝐹) = 0𝑝 → 𝐹 = 0𝑝))
134	133	necon3d 3040	. . . . 5 ⊢ (𝜑 → (𝐹 ≠ 0𝑝 → ((ℂ × {𝑅}) ∘f · 𝐹) ≠ 0𝑝))
135	113, 134	mpd 15	. . . 4 ⊢ (𝜑 → ((ℂ × {𝑅}) ∘f · 𝐹) ≠ 0𝑝)
136		eldifsn 4722	. . . 4 ⊢ (((ℂ × {𝑅}) ∘f · 𝐹) ∈ ((Poly‘ℤ) ∖ {0𝑝}) ↔ (((ℂ × {𝑅}) ∘f · 𝐹) ∈ (Poly‘ℤ) ∧ ((ℂ × {𝑅}) ∘f · 𝐹) ≠ 0𝑝))
137	110, 135, 136	sylanbrc 585	. . 3 ⊢ (𝜑 → ((ℂ × {𝑅}) ∘f · 𝐹) ∈ ((Poly‘ℤ) ∖ {0𝑝}))
138	5	fconst 6568	. . . . . . 7 ⊢ (ℂ × {𝑅}):ℂ⟶{𝑅}
139		ffn 6517	. . . . . . 7 ⊢ ((ℂ × {𝑅}):ℂ⟶{𝑅} → (ℂ × {𝑅}) Fn ℂ)
140	138, 139	mp1i 13	. . . . . 6 ⊢ (𝜑 → (ℂ × {𝑅}) Fn ℂ)
141	13	ffnd 6518	. . . . . 6 ⊢ (𝜑 → 𝐹 Fn ℂ)
142		inidm 4198	. . . . . 6 ⊢ (ℂ ∩ ℂ) = ℂ
143	5	fvconst2 6969	. . . . . . 7 ⊢ (𝐴 ∈ ℂ → ((ℂ × {𝑅})‘𝐴) = 𝑅)
144	143	adantl 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝐴 ∈ ℂ) → ((ℂ × {𝑅})‘𝐴) = 𝑅)
145	96	adantr 483	. . . . . 6 ⊢ ((𝜑 ∧ 𝐴 ∈ ℂ) → (𝐹‘𝐴) = 0)
146	140, 141, 3, 3, 142, 144, 145	ofval 7421	. . . . 5 ⊢ ((𝜑 ∧ 𝐴 ∈ ℂ) → (((ℂ × {𝑅}) ∘f · 𝐹)‘𝐴) = (𝑅 · 0))
147	1, 146	mpdan 685	. . . 4 ⊢ (𝜑 → (((ℂ × {𝑅}) ∘f · 𝐹)‘𝐴) = (𝑅 · 0))
148	54	mul01d 10842	. . . 4 ⊢ (𝜑 → (𝑅 · 0) = 0)
149	147, 148	eqtrd 2859	. . 3 ⊢ (𝜑 → (((ℂ × {𝑅}) ∘f · 𝐹)‘𝐴) = 0)
150		fveq1 6672	. . . . 5 ⊢ (𝑓 = ((ℂ × {𝑅}) ∘f · 𝐹) → (𝑓‘𝐴) = (((ℂ × {𝑅}) ∘f · 𝐹)‘𝐴))
151	150	eqeq1d 2826	. . . 4 ⊢ (𝑓 = ((ℂ × {𝑅}) ∘f · 𝐹) → ((𝑓‘𝐴) = 0 ↔ (((ℂ × {𝑅}) ∘f · 𝐹)‘𝐴) = 0))
152	151	rspcev 3626	. . 3 ⊢ ((((ℂ × {𝑅}) ∘f · 𝐹) ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (((ℂ × {𝑅}) ∘f · 𝐹)‘𝐴) = 0) → ∃𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝})(𝑓‘𝐴) = 0)
153	137, 149, 152	syl2anc 586	. 2 ⊢ (𝜑 → ∃𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝})(𝑓‘𝐴) = 0)
154		elaa 24908	. 2 ⊢ (𝐴 ∈ 𝔸 ↔ (𝐴 ∈ ℂ ∧ ∃𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝})(𝑓‘𝐴) = 0))
155	1, 153, 154	sylanbrc 585	1 ⊢ (𝜑 → 𝐴 ∈ 𝔸)

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 398   = wceq 1536   ∈ wcel 2113   ≠ wne 3019  ∃wrex 3142  {crab 3145  Vcvv 3497   ∖ cdif 3936   ⊆ wss 3939  ∅c0 4294  {csn 4570   ↦ cmpt 5149   × cxp 5556   Fn wfn 6353  ⟶wf 6354  ‘cfv 6358  (class class class)co 7159   ∈ cmpo 7161   ∘_f cof 7410  infcinf 8908  ℂcc 10538  ℝcr 10539  0cc0 10540  1c1 10541   · cmul 10545   < clt 10678   / cdiv 11300  ℕcn 11641  ℕ₀cn0 11900  ℤcz 11984  ℤ_≥cuz 12246  ℚcq 12351  ℝ⁺crp 12392  ...cfz 12895   mod cmo 13240  seqcseq 13372  ↑cexp 13432  Σcsu 15045  0_𝑝c0p 24273  Polycply 24777  coeffccoe 24779  degcdgr 24780  𝔸caa 24906

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1969  ax-7 2014  ax-8 2115  ax-9 2123  ax-10 2144  ax-11 2160  ax-12 2176  ax-ext 2796  ax-rep 5193  ax-sep 5206  ax-nul 5213  ax-pow 5269  ax-pr 5333  ax-un 7464  ax-inf2 9107  ax-cnex 10596  ax-resscn 10597  ax-1cn 10598  ax-icn 10599  ax-addcl 10600  ax-addrcl 10601  ax-mulcl 10602  ax-mulrcl 10603  ax-mulcom 10604  ax-addass 10605  ax-mulass 10606  ax-distr 10607  ax-i2m1 10608  ax-1ne0 10609  ax-1rid 10610  ax-rnegex 10611  ax-rrecex 10612  ax-cnre 10613  ax-pre-lttri 10614  ax-pre-lttrn 10615  ax-pre-ltadd 10616  ax-pre-mulgt0 10617  ax-pre-sup 10618  ax-addf 10619

This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1539  df-fal 1549  df-ex 1780  df-nf 1784  df-sb 2069  df-mo 2621  df-eu 2653  df-clab 2803  df-cleq 2817  df-clel 2896  df-nfc 2966  df-ne 3020  df-nel 3127  df-ral 3146  df-rex 3147  df-reu 3148  df-rmo 3149  df-rab 3150  df-v 3499  df-sbc 3776  df-csb 3887  df-dif 3942  df-un 3944  df-in 3946  df-ss 3955  df-pss 3957  df-nul 4295  df-if 4471  df-pw 4544  df-sn 4571  df-pr 4573  df-tp 4575  df-op 4577  df-uni 4842  df-int 4880  df-iun 4924  df-br 5070  df-opab 5132  df-mpt 5150  df-tr 5176  df-id 5463  df-eprel 5468  df-po 5477  df-so 5478  df-fr 5517  df-se 5518  df-we 5519  df-xp 5564  df-rel 5565  df-cnv 5566  df-co 5567  df-dm 5568  df-rn 5569  df-res 5570  df-ima 5571  df-pred 6151  df-ord 6197  df-on 6198  df-lim 6199  df-suc 6200  df-iota 6317  df-fun 6360  df-fn 6361  df-f 6362  df-f1 6363  df-fo 6364  df-f1o 6365  df-fv 6366  df-isom 6367  df-riota 7117  df-ov 7162  df-oprab 7163  df-mpo 7164  df-of 7412  df-om 7584  df-1st 7692  df-2nd 7693  df-wrecs 7950  df-recs 8011  df-rdg 8049  df-1o 8105  df-oadd 8109  df-er 8292  df-map 8411  df-pm 8412  df-en 8513  df-dom 8514  df-sdom 8515  df-fin 8516  df-sup 8909  df-inf 8910  df-oi 8977  df-card 9371  df-pnf 10680  df-mnf 10681  df-xr 10682  df-ltxr 10683  df-le 10684  df-sub 10875  df-neg 10876  df-div 11301  df-nn 11642  df-2 11703  df-3 11704  df-n0 11901  df-z 11985  df-uz 12247  df-q 12352  df-rp 12393  df-fz 12896  df-fzo 13037  df-fl 13165  df-mod 13241  df-seq 13373  df-exp 13433  df-hash 13694  df-cj 14461  df-re 14462  df-im 14463  df-sqrt 14597  df-abs 14598  df-clim 14848  df-rlim 14849  df-sum 15046  df-0p 24274  df-ply 24781  df-coe 24783  df-dgr 24784  df-aa 24907

This theorem is referenced by:  elqaa  24914