Theorem elqaalem3 26387

Description: Lemma for elqaa 26388. (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 11156	. . . . . . . 8 ⊢ ℂ ∈ V
3	2	a1i 11	. . . . . . 7 ⊢ (𝜑 → ℂ ∈ V)
4		elqaa.6	. . . . . . . . 9 ⊢ 𝑅 = (seq0( · , 𝑁)‘(deg‘𝐹))
5	4	fvexi 6883	. . . . . . . 8 ⊢ 𝑅 ∈ V
6	5	a1i 11	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → 𝑅 ∈ V)
7		fvexd 6884	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → (𝐹‘𝑧) ∈ V)
8		fconstmpt 5711	. . . . . . . 8 ⊢ (ℂ × {𝑅}) = (𝑧 ∈ ℂ ↦ 𝑅)
9	8	a1i 11	. . . . . . 7 ⊢ (𝜑 → (ℂ × {𝑅}) = (𝑧 ∈ ℂ ↦ 𝑅))
10		elqaa.2	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹 ∈ ((Poly‘ℚ) ∖ {0𝑝}))
11	10	eldifad 3918	. . . . . . . . 9 ⊢ (𝜑 → 𝐹 ∈ (Poly‘ℚ))
12		plyf 26260	. . . . . . . . 9 ⊢ (𝐹 ∈ (Poly‘ℚ) → 𝐹:ℂ⟶ℂ)
13	11, 12	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝐹:ℂ⟶ℂ)
14	13	feqmptd 6937	. . . . . . 7 ⊢ (𝜑 → 𝐹 = (𝑧 ∈ ℂ ↦ (𝐹‘𝑧)))
15	3, 6, 7, 9, 14	offval2 7682	. . . . . 6 ⊢ (𝜑 → ((ℂ × {𝑅}) ∘f · 𝐹) = (𝑧 ∈ ℂ ↦ (𝑅 · (𝐹‘𝑧))))
16		fzfid 13988	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → (0...(deg‘𝐹)) ∈ Fin)
17		nn0uz 12879	. . . . . . . . . . . . . 14 ⊢ ℕ0 = (ℤ≥‘0)
18		0zd 12582	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 0 ∈ ℤ)
19		ssrab2 4035	. . . . . . . . . . . . . . 15 ⊢ {𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ} ⊆ ℕ
20		fveq2 6869	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (𝑘 = 𝑚 → (𝐵‘𝑘) = (𝐵‘𝑚))
21	20	oveq1d 7413	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑘 = 𝑚 → ((𝐵‘𝑘) · 𝑛) = ((𝐵‘𝑚) · 𝑛))
22	21	eleq1d 2849	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝑘 = 𝑚 → (((𝐵‘𝑘) · 𝑛) ∈ ℤ ↔ ((𝐵‘𝑚) · 𝑛) ∈ ℤ))
23	22	rabbidv 3423	. . . . . . . . . . . . . . . . . . 19 ⊢ (𝑘 = 𝑚 → {𝑛 ∈ ℕ ∣ ((𝐵‘𝑘) · 𝑛) ∈ ℤ} = {𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ})
24	23	infeq1d 9426	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 = 𝑚 → inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑘) · 𝑛) ∈ ℤ}, ℝ, < ) = inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ}, ℝ, < ))
25		elqaa.5	. . . . . . . . . . . . . . . . . 18 ⊢ 𝑁 = (𝑘 ∈ ℕ0 ↦ inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑘) · 𝑛) ∈ ℤ}, ℝ, < ))
26		ltso 11265	. . . . . . . . . . . . . . . . . . 19 ⊢ < Or ℝ
27	26	infex 9443	. . . . . . . . . . . . . . . . . 18 ⊢ inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ}, ℝ, < ) ∈ V
28	24, 25, 27	fvmpt 6977	. . . . . . . . . . . . . . . . 17 ⊢ (𝑚 ∈ ℕ0 → (𝑁‘𝑚) = inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ}, ℝ, < ))
29	28	adantl 485	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → (𝑁‘𝑚) = inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ}, ℝ, < ))
30		nnuz 12880	. . . . . . . . . . . . . . . . . 18 ⊢ ℕ = (ℤ≥‘1)
31	19, 30	sseqtri 3986	. . . . . . . . . . . . . . . . 17 ⊢ {𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ} ⊆ (ℤ≥‘1)
32		0z 12581	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 0 ∈ ℤ
33		zq 12957	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (0 ∈ ℤ → 0 ∈ ℚ)
34	32, 33	ax-mp 5	. . . . . . . . . . . . . . . . . . . . 21 ⊢ 0 ∈ ℚ
35		elqaa.4	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ 𝐵 = (coeff‘𝐹)
36	35	coef2 26293	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((𝐹 ∈ (Poly‘ℚ) ∧ 0 ∈ ℚ) → 𝐵:ℕ0⟶ℚ)
37	11, 34, 36	sylancl 595	. . . . . . . . . . . . . . . . . . . 20 ⊢ (𝜑 → 𝐵:ℕ0⟶ℚ)
38	37	ffvelcdmda 7067	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → (𝐵‘𝑚) ∈ ℚ)
39		qmulz 12954	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝐵‘𝑚) ∈ ℚ → ∃𝑛 ∈ ℕ ((𝐵‘𝑚) · 𝑛) ∈ ℤ)
40	38, 39	syl 17	. . . . . . . . . . . . . . . . . 18 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → ∃𝑛 ∈ ℕ ((𝐵‘𝑚) · 𝑛) ∈ ℤ)
41		rabn0 4345	. . . . . . . . . . . . . . . . . 18 ⊢ ({𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ} ≠ ∅ ↔ ∃𝑛 ∈ ℕ ((𝐵‘𝑚) · 𝑛) ∈ ℤ)
42	40, 41	sylibr 236	. . . . . . . . . . . . . . . . 17 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → {𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ} ≠ ∅)
43		infssuzcl 12935	. . . . . . . . . . . . . . . . 17 ⊢ (({𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ} ⊆ (ℤ≥‘1) ∧ {𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ} ≠ ∅) → inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ}, ℝ, < ) ∈ {𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ})
44	31, 42, 43	sylancr 596	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → inf({𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ}, ℝ, < ) ∈ {𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ})
45	29, 44	eqeltrd 2864	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → (𝑁‘𝑚) ∈ {𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ})
46	19, 45	sselid 3936	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → (𝑁‘𝑚) ∈ ℕ)
47		nnmulcl 12236	. . . . . . . . . . . . . . 15 ⊢ ((𝑚 ∈ ℕ ∧ 𝑘 ∈ ℕ) → (𝑚 · 𝑘) ∈ ℕ)
48	47	adantl 485	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ (𝑚 ∈ ℕ ∧ 𝑘 ∈ ℕ)) → (𝑚 · 𝑘) ∈ ℕ)
49	17, 18, 46, 48	seqf 14038	. . . . . . . . . . . . 13 ⊢ (𝜑 → seq0( · , 𝑁):ℕ0⟶ℕ)
50		dgrcl 26295	. . . . . . . . . . . . . 14 ⊢ (𝐹 ∈ (Poly‘ℚ) → (deg‘𝐹) ∈ ℕ0)
51	11, 50	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → (deg‘𝐹) ∈ ℕ0)
52	49, 51	ffvelcdmd 7068	. . . . . . . . . . . 12 ⊢ (𝜑 → (seq0( · , 𝑁)‘(deg‘𝐹)) ∈ ℕ)
53	4, 52	eqeltrid 2868	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑅 ∈ ℕ)
54	53	nncnd 12228	. . . . . . . . . 10 ⊢ (𝜑 → 𝑅 ∈ ℂ)
55	54	adantr 484	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → 𝑅 ∈ ℂ)
56		elfznn0 13627	. . . . . . . . . 10 ⊢ (𝑚 ∈ (0...(deg‘𝐹)) → 𝑚 ∈ ℕ0)
57	35	coef3 26294	. . . . . . . . . . . . . 14 ⊢ (𝐹 ∈ (Poly‘ℚ) → 𝐵:ℕ0⟶ℂ)
58	11, 57	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐵:ℕ0⟶ℂ)
59	58	adantr 484	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → 𝐵:ℕ0⟶ℂ)
60	59	ffvelcdmda 7067	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑧 ∈ ℂ) ∧ 𝑚 ∈ ℕ0) → (𝐵‘𝑚) ∈ ℂ)
61		expcl 14094	. . . . . . . . . . . 12 ⊢ ((𝑧 ∈ ℂ ∧ 𝑚 ∈ ℕ0) → (𝑧↑𝑚) ∈ ℂ)
62	61	adantll 724	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑧 ∈ ℂ) ∧ 𝑚 ∈ ℕ0) → (𝑧↑𝑚) ∈ ℂ)
63	60, 62	mulcld 11204	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑧 ∈ ℂ) ∧ 𝑚 ∈ ℕ0) → ((𝐵‘𝑚) · (𝑧↑𝑚)) ∈ ℂ)
64	56, 63	sylan2 602	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑧 ∈ ℂ) ∧ 𝑚 ∈ (0...(deg‘𝐹))) → ((𝐵‘𝑚) · (𝑧↑𝑚)) ∈ ℂ)
65	16, 55, 64	fsummulc2 15813	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → (𝑅 · Σ𝑚 ∈ (0...(deg‘𝐹))((𝐵‘𝑚) · (𝑧↑𝑚))) = Σ𝑚 ∈ (0...(deg‘𝐹))(𝑅 · ((𝐵‘𝑚) · (𝑧↑𝑚))))
66		eqid 2764	. . . . . . . . . . 11 ⊢ (deg‘𝐹) = (deg‘𝐹)
67	35, 66	coeid2 26301	. . . . . . . . . 10 ⊢ ((𝐹 ∈ (Poly‘ℚ) ∧ 𝑧 ∈ ℂ) → (𝐹‘𝑧) = Σ𝑚 ∈ (0...(deg‘𝐹))((𝐵‘𝑚) · (𝑧↑𝑚)))
68	11, 67	sylan 589	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → (𝐹‘𝑧) = Σ𝑚 ∈ (0...(deg‘𝐹))((𝐵‘𝑚) · (𝑧↑𝑚)))
69	68	oveq2d 7414	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → (𝑅 · (𝐹‘𝑧)) = (𝑅 · Σ𝑚 ∈ (0...(deg‘𝐹))((𝐵‘𝑚) · (𝑧↑𝑚))))
70	55	adantr 484	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑧 ∈ ℂ) ∧ 𝑚 ∈ ℕ0) → 𝑅 ∈ ℂ)
71	70, 60, 62	mulassd 11207	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑧 ∈ ℂ) ∧ 𝑚 ∈ ℕ0) → ((𝑅 · (𝐵‘𝑚)) · (𝑧↑𝑚)) = (𝑅 · ((𝐵‘𝑚) · (𝑧↑𝑚))))
72	56, 71	sylan2 602	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑧 ∈ ℂ) ∧ 𝑚 ∈ (0...(deg‘𝐹))) → ((𝑅 · (𝐵‘𝑚)) · (𝑧↑𝑚)) = (𝑅 · ((𝐵‘𝑚) · (𝑧↑𝑚))))
73	72	sumeq2dv 15731	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → Σ𝑚 ∈ (0...(deg‘𝐹))((𝑅 · (𝐵‘𝑚)) · (𝑧↑𝑚)) = Σ𝑚 ∈ (0...(deg‘𝐹))(𝑅 · ((𝐵‘𝑚) · (𝑧↑𝑚))))
74	65, 69, 73	3eqtr4d 2809	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → (𝑅 · (𝐹‘𝑧)) = Σ𝑚 ∈ (0...(deg‘𝐹))((𝑅 · (𝐵‘𝑚)) · (𝑧↑𝑚)))
75	74	mpteq2dva 5195	. . . . . 6 ⊢ (𝜑 → (𝑧 ∈ ℂ ↦ (𝑅 · (𝐹‘𝑧))) = (𝑧 ∈ ℂ ↦ Σ𝑚 ∈ (0...(deg‘𝐹))((𝑅 · (𝐵‘𝑚)) · (𝑧↑𝑚))))
76	15, 75	eqtrd 2799	. . . . 5 ⊢ (𝜑 → ((ℂ × {𝑅}) ∘f · 𝐹) = (𝑧 ∈ ℂ ↦ Σ𝑚 ∈ (0...(deg‘𝐹))((𝑅 · (𝐵‘𝑚)) · (𝑧↑𝑚))))
77		zsscn 12578	. . . . . . 7 ⊢ ℤ ⊆ ℂ
78	77	a1i 11	. . . . . 6 ⊢ (𝜑 → ℤ ⊆ ℂ)
79	54	adantr 484	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → 𝑅 ∈ ℂ)
80	46	nncnd 12228	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → (𝑁‘𝑚) ∈ ℂ)
81	46	nnne0d 12265	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → (𝑁‘𝑚) ≠ 0)
82	79, 80, 81	divcan2d 11971	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → ((𝑁‘𝑚) · (𝑅 / (𝑁‘𝑚))) = 𝑅)
83	82	oveq2d 7414	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → ((𝐵‘𝑚) · ((𝑁‘𝑚) · (𝑅 / (𝑁‘𝑚)))) = ((𝐵‘𝑚) · 𝑅))
84	58	ffvelcdmda 7067	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → (𝐵‘𝑚) ∈ ℂ)
85	79, 80, 81	divcld 11969	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → (𝑅 / (𝑁‘𝑚)) ∈ ℂ)
86	84, 80, 85	mulassd 11207	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → (((𝐵‘𝑚) · (𝑁‘𝑚)) · (𝑅 / (𝑁‘𝑚))) = ((𝐵‘𝑚) · ((𝑁‘𝑚) · (𝑅 / (𝑁‘𝑚)))))
87	79, 84	mulcomd 11205	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → (𝑅 · (𝐵‘𝑚)) = ((𝐵‘𝑚) · 𝑅))
88	83, 86, 87	3eqtr4rd 2810	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → (𝑅 · (𝐵‘𝑚)) = (((𝐵‘𝑚) · (𝑁‘𝑚)) · (𝑅 / (𝑁‘𝑚))))
89	56, 88	sylan2 602	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(deg‘𝐹))) → (𝑅 · (𝐵‘𝑚)) = (((𝐵‘𝑚) · (𝑁‘𝑚)) · (𝑅 / (𝑁‘𝑚))))
90		oveq2 7406	. . . . . . . . . . . . 13 ⊢ (𝑛 = (𝑁‘𝑚) → ((𝐵‘𝑚) · 𝑛) = ((𝐵‘𝑚) · (𝑁‘𝑚)))
91	90	eleq1d 2849	. . . . . . . . . . . 12 ⊢ (𝑛 = (𝑁‘𝑚) → (((𝐵‘𝑚) · 𝑛) ∈ ℤ ↔ ((𝐵‘𝑚) · (𝑁‘𝑚)) ∈ ℤ))
92	91	elrab 3652	. . . . . . . . . . 11 ⊢ ((𝑁‘𝑚) ∈ {𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ} ↔ ((𝑁‘𝑚) ∈ ℕ ∧ ((𝐵‘𝑚) · (𝑁‘𝑚)) ∈ ℤ))
93	92	simprbi 501	. . . . . . . . . 10 ⊢ ((𝑁‘𝑚) ∈ {𝑛 ∈ ℕ ∣ ((𝐵‘𝑚) · 𝑛) ∈ ℤ} → ((𝐵‘𝑚) · (𝑁‘𝑚)) ∈ ℤ)
94	45, 93	syl 17	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ ℕ0) → ((𝐵‘𝑚) · (𝑁‘𝑚)) ∈ ℤ)
95	56, 94	sylan2 602	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(deg‘𝐹))) → ((𝐵‘𝑚) · (𝑁‘𝑚)) ∈ ℤ)
96		elqaa.3	. . . . . . . . . 10 ⊢ (𝜑 → (𝐹‘𝐴) = 0)
97		eqid 2764	. . . . . . . . . 10 ⊢ (𝑥 ∈ V, 𝑦 ∈ V ↦ ((𝑥 · 𝑦) mod (𝑁‘𝑚))) = (𝑥 ∈ V, 𝑦 ∈ V ↦ ((𝑥 · 𝑦) mod (𝑁‘𝑚)))
98	1, 10, 96, 35, 25, 4, 97	elqaalem2 26386	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(deg‘𝐹))) → (𝑅 mod (𝑁‘𝑚)) = 0)
99	53	adantr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(deg‘𝐹))) → 𝑅 ∈ ℕ)
100	56, 46	sylan2 602	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(deg‘𝐹))) → (𝑁‘𝑚) ∈ ℕ)
101		nnre 12219	. . . . . . . . . . 11 ⊢ (𝑅 ∈ ℕ → 𝑅 ∈ ℝ)
102		nnrp 13007	. . . . . . . . . . 11 ⊢ ((𝑁‘𝑚) ∈ ℕ → (𝑁‘𝑚) ∈ ℝ+)
103		mod0 13888	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ ℝ ∧ (𝑁‘𝑚) ∈ ℝ+) → ((𝑅 mod (𝑁‘𝑚)) = 0 ↔ (𝑅 / (𝑁‘𝑚)) ∈ ℤ))
104	101, 102, 103	syl2an 605	. . . . . . . . . 10 ⊢ ((𝑅 ∈ ℕ ∧ (𝑁‘𝑚) ∈ ℕ) → ((𝑅 mod (𝑁‘𝑚)) = 0 ↔ (𝑅 / (𝑁‘𝑚)) ∈ ℤ))
105	99, 100, 104	syl2anc 593	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(deg‘𝐹))) → ((𝑅 mod (𝑁‘𝑚)) = 0 ↔ (𝑅 / (𝑁‘𝑚)) ∈ ℤ))
106	98, 105	mpbid 234	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(deg‘𝐹))) → (𝑅 / (𝑁‘𝑚)) ∈ ℤ)
107	95, 106	zmulcld 12685	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(deg‘𝐹))) → (((𝐵‘𝑚) · (𝑁‘𝑚)) · (𝑅 / (𝑁‘𝑚))) ∈ ℤ)
108	89, 107	eqeltrd 2864	. . . . . 6 ⊢ ((𝜑 ∧ 𝑚 ∈ (0...(deg‘𝐹))) → (𝑅 · (𝐵‘𝑚)) ∈ ℤ)
109	78, 51, 108	elplyd 26264	. . . . 5 ⊢ (𝜑 → (𝑧 ∈ ℂ ↦ Σ𝑚 ∈ (0...(deg‘𝐹))((𝑅 · (𝐵‘𝑚)) · (𝑧↑𝑚))) ∈ (Poly‘ℤ))
110	76, 109	eqeltrd 2864	. . . 4 ⊢ (𝜑 → ((ℂ × {𝑅}) ∘f · 𝐹) ∈ (Poly‘ℤ))
111		eldifsn 4748	. . . . . . 7 ⊢ (𝐹 ∈ ((Poly‘ℚ) ∖ {0𝑝}) ↔ (𝐹 ∈ (Poly‘ℚ) ∧ 𝐹 ≠ 0𝑝))
112	10, 111	sylib 220	. . . . . 6 ⊢ (𝜑 → (𝐹 ∈ (Poly‘ℚ) ∧ 𝐹 ≠ 0𝑝))
113	112	simprd 499	. . . . 5 ⊢ (𝜑 → 𝐹 ≠ 0𝑝)
114		oveq1 7405	. . . . . . 7 ⊢ (((ℂ × {𝑅}) ∘f · 𝐹) = 0𝑝 → (((ℂ × {𝑅}) ∘f · 𝐹) ∘f / (ℂ × {𝑅})) = (0𝑝 ∘f / (ℂ × {𝑅})))
115	13	ffvelcdmda 7067	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → (𝐹‘𝑧) ∈ ℂ)
116	53	nnne0d 12265	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑅 ≠ 0)
117	116	adantr 484	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → 𝑅 ≠ 0)
118	115, 55, 117	divcan3d 11974	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → ((𝑅 · (𝐹‘𝑧)) / 𝑅) = (𝐹‘𝑧))
119	118	mpteq2dva 5195	. . . . . . . . 9 ⊢ (𝜑 → (𝑧 ∈ ℂ ↦ ((𝑅 · (𝐹‘𝑧)) / 𝑅)) = (𝑧 ∈ ℂ ↦ (𝐹‘𝑧)))
120		ovexd 7433	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → (𝑅 · (𝐹‘𝑧)) ∈ V)
121	3, 120, 6, 15, 9	offval2 7682	. . . . . . . . 9 ⊢ (𝜑 → (((ℂ × {𝑅}) ∘f · 𝐹) ∘f / (ℂ × {𝑅})) = (𝑧 ∈ ℂ ↦ ((𝑅 · (𝐹‘𝑧)) / 𝑅)))
122	119, 121, 14	3eqtr4d 2809	. . . . . . . 8 ⊢ (𝜑 → (((ℂ × {𝑅}) ∘f · 𝐹) ∘f / (ℂ × {𝑅})) = 𝐹)
123	54, 116	div0d 11968	. . . . . . . . . 10 ⊢ (𝜑 → (0 / 𝑅) = 0)
124	123	mpteq2dv 5196	. . . . . . . . 9 ⊢ (𝜑 → (𝑧 ∈ ℂ ↦ (0 / 𝑅)) = (𝑧 ∈ ℂ ↦ 0))
125		0cnd 11174	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑧 ∈ ℂ) → 0 ∈ ℂ)
126		df-0p 25734	. . . . . . . . . . . 12 ⊢ 0𝑝 = (ℂ × {0})
127		fconstmpt 5711	. . . . . . . . . . . 12 ⊢ (ℂ × {0}) = (𝑧 ∈ ℂ ↦ 0)
128	126, 127	eqtri 2787	. . . . . . . . . . 11 ⊢ 0𝑝 = (𝑧 ∈ ℂ ↦ 0)
129	128	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → 0𝑝 = (𝑧 ∈ ℂ ↦ 0))
130	3, 125, 6, 129, 9	offval2 7682	. . . . . . . . 9 ⊢ (𝜑 → (0𝑝 ∘f / (ℂ × {𝑅})) = (𝑧 ∈ ℂ ↦ (0 / 𝑅)))
131	124, 130, 129	3eqtr4d 2809	. . . . . . . 8 ⊢ (𝜑 → (0𝑝 ∘f / (ℂ × {𝑅})) = 0𝑝)
132	122, 131	eqeq12d 2780	. . . . . . 7 ⊢ (𝜑 → ((((ℂ × {𝑅}) ∘f · 𝐹) ∘f / (ℂ × {𝑅})) = (0𝑝 ∘f / (ℂ × {𝑅})) ↔ 𝐹 = 0𝑝))
133	114, 132	imbitrid 246	. . . . . 6 ⊢ (𝜑 → (((ℂ × {𝑅}) ∘f · 𝐹) = 0𝑝 → 𝐹 = 0𝑝))
134	133	necon3d 2980	. . . . 5 ⊢ (𝜑 → (𝐹 ≠ 0𝑝 → ((ℂ × {𝑅}) ∘f · 𝐹) ≠ 0𝑝))
135	113, 134	mpd 15	. . . 4 ⊢ (𝜑 → ((ℂ × {𝑅}) ∘f · 𝐹) ≠ 0𝑝)
136		eldifsn 4748	. . . 4 ⊢ (((ℂ × {𝑅}) ∘f · 𝐹) ∈ ((Poly‘ℤ) ∖ {0𝑝}) ↔ (((ℂ × {𝑅}) ∘f · 𝐹) ∈ (Poly‘ℤ) ∧ ((ℂ × {𝑅}) ∘f · 𝐹) ≠ 0𝑝))
137	110, 135, 136	sylanbrc 592	. . 3 ⊢ (𝜑 → ((ℂ × {𝑅}) ∘f · 𝐹) ∈ ((Poly‘ℤ) ∖ {0𝑝}))
138	5	fconst 6752	. . . . . . 7 ⊢ (ℂ × {𝑅}):ℂ⟶{𝑅}
139		ffn 6693	. . . . . . 7 ⊢ ((ℂ × {𝑅}):ℂ⟶{𝑅} → (ℂ × {𝑅}) Fn ℂ)
140	138, 139	mp1i 13	. . . . . 6 ⊢ (𝜑 → (ℂ × {𝑅}) Fn ℂ)
141	13	ffnd 6694	. . . . . 6 ⊢ (𝜑 → 𝐹 Fn ℂ)
142		inidm 4180	. . . . . 6 ⊢ (ℂ ∩ ℂ) = ℂ
143	5	fvconst2 7190	. . . . . . 7 ⊢ (𝐴 ∈ ℂ → ((ℂ × {𝑅})‘𝐴) = 𝑅)
144	143	adantl 485	. . . . . 6 ⊢ ((𝜑 ∧ 𝐴 ∈ ℂ) → ((ℂ × {𝑅})‘𝐴) = 𝑅)
145	96	adantr 484	. . . . . 6 ⊢ ((𝜑 ∧ 𝐴 ∈ ℂ) → (𝐹‘𝐴) = 0)
146	140, 141, 3, 3, 142, 144, 145	ofval 7673	. . . . 5 ⊢ ((𝜑 ∧ 𝐴 ∈ ℂ) → (((ℂ × {𝑅}) ∘f · 𝐹)‘𝐴) = (𝑅 · 0))
147	1, 146	mpdan 697	. . . 4 ⊢ (𝜑 → (((ℂ × {𝑅}) ∘f · 𝐹)‘𝐴) = (𝑅 · 0))
148	54	mul01d 11384	. . . 4 ⊢ (𝜑 → (𝑅 · 0) = 0)
149	147, 148	eqtrd 2799	. . 3 ⊢ (𝜑 → (((ℂ × {𝑅}) ∘f · 𝐹)‘𝐴) = 0)
150		fveq1 6868	. . . . 5 ⊢ (𝑓 = ((ℂ × {𝑅}) ∘f · 𝐹) → (𝑓‘𝐴) = (((ℂ × {𝑅}) ∘f · 𝐹)‘𝐴))
151	150	eqeq1d 2766	. . . 4 ⊢ (𝑓 = ((ℂ × {𝑅}) ∘f · 𝐹) → ((𝑓‘𝐴) = 0 ↔ (((ℂ × {𝑅}) ∘f · 𝐹)‘𝐴) = 0))
152	151	rspcev 3583	. . 3 ⊢ ((((ℂ × {𝑅}) ∘f · 𝐹) ∈ ((Poly‘ℤ) ∖ {0𝑝}) ∧ (((ℂ × {𝑅}) ∘f · 𝐹)‘𝐴) = 0) → ∃𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝})(𝑓‘𝐴) = 0)
153	137, 149, 152	syl2anc 593	. 2 ⊢ (𝜑 → ∃𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝})(𝑓‘𝐴) = 0)
154		elaa 26382	. 2 ⊢ (𝐴 ∈ 𝔸 ↔ (𝐴 ∈ ℂ ∧ ∃𝑓 ∈ ((Poly‘ℤ) ∖ {0𝑝})(𝑓‘𝐴) = 0))
155	1, 153, 154	sylanbrc 592	1 ⊢ (𝜑 → 𝐴 ∈ 𝔸)

Syntax hints:   → wi 4   ↔ wb 208   ∧ wa 399   = wceq 1562   ∈ wcel 2144   ≠ wne 2959  ∃wrex 3088  {crab 3416  Vcvv 3456   ∖ cdif 3903   ⊆ wss 3906  ∅c0 4287  {csn 4584   ↦ cmpt 5183   × cxp 5647   Fn wfn 6518  ⟶wf 6519  ‘cfv 6523  (class class class)co 7398   ∈ cmpo 7400   ∘_f cof 7660  infcinf 9389  ℂcc 11073  ℝcr 11074  0cc0 11075  1c1 11076   · cmul 11080   < clt 11218   / cdiv 11846  ℕcn 12212  ℕ₀cn0 12483  ℤcz 12570  ℤ_≥cuz 12841  ℚcq 12951  ℝ⁺crp 12995  ...cfz 13514   mod cmo 13881  seqcseq 14016  ↑cexp 14076  Σcsu 15715  0_𝑝c0p 25733  Polycply 26246  coeffccoe 26248  degcdgr 26249  𝔸caa 26380

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1817  ax-4 1831  ax-5 1932  ax-6 1989  ax-7 2030  ax-8 2146  ax-9 2154  ax-10 2177  ax-11 2193  ax-12 2214  ax-ext 2736  ax-rep 5229  ax-sep 5248  ax-nul 5258  ax-pow 5324  ax-pr 5392  ax-un 7720  ax-inf2 9598  ax-cnex 11131  ax-resscn 11132  ax-1cn 11133  ax-icn 11134  ax-addcl 11135  ax-addrcl 11136  ax-mulcl 11137  ax-mulrcl 11138  ax-mulcom 11139  ax-addass 11140  ax-mulass 11141  ax-distr 11142  ax-i2m1 11143  ax-1ne0 11144  ax-1rid 11145  ax-rnegex 11146  ax-rrecex 11147  ax-cnre 11148  ax-pre-lttri 11149  ax-pre-lttrn 11150  ax-pre-ltadd 11151  ax-pre-mulgt0 11152  ax-pre-sup 11153

This theorem depends on definitions:  df-bi 209  df-an 400  df-or 859  df-3or 1100  df-3an 1101  df-tru 1565  df-fal 1575  df-ex 1802  df-nf 1806  df-sb 2093  df-mo 2568  df-eu 2598  df-clab 2743  df-cleq 2756  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3064  df-ral 3079  df-rex 3089  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3458  df-sbc 3747  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-pss 3926  df-nul 4288  df-if 4483  df-pw 4559  df-sn 4585  df-pr 4587  df-op 4591  df-uni 4868  df-int 4908  df-iun 4953  df-br 5103  df-opab 5165  df-mpt 5184  df-tr 5210  df-id 5544  df-eprel 5549  df-po 5557  df-so 5558  df-fr 5602  df-se 5603  df-we 5604  df-xp 5655  df-rel 5656  df-cnv 5657  df-co 5658  df-dm 5659  df-rn 5660  df-res 5661  df-ima 5662  df-pred 6290  df-ord 6351  df-on 6352  df-lim 6353  df-suc 6354  df-iota 6479  df-fun 6525  df-fn 6526  df-f 6527  df-f1 6528  df-fo 6529  df-f1o 6530  df-fv 6531  df-isom 6532  df-riota 7355  df-ov 7401  df-oprab 7402  df-mpo 7403  df-of 7662  df-om 7849  df-1st 7972  df-2nd 7973  df-frecs 8264  df-wrecs 8295  df-recs 8344  df-rdg 8383  df-1o 8439  df-er 8680  df-map 8812  df-pm 8813  df-en 8930  df-dom 8931  df-sdom 8932  df-fin 8933  df-sup 9390  df-inf 9391  df-oi 9460  df-card 9899  df-pnf 11220  df-mnf 11221  df-xr 11222  df-ltxr 11223  df-le 11224  df-sub 11418  df-neg 11419  df-div 11847  df-nn 12213  df-2 12282  df-3 12283  df-n0 12484  df-z 12571  df-uz 12842  df-q 12952  df-rp 12996  df-fz 13515  df-fzo 13662  df-fl 13804  df-mod 13882  df-seq 14017  df-exp 14077  df-hash 14346  df-cj 15128  df-re 15129  df-im 15130  df-sqrt 15264  df-abs 15265  df-clim 15517  df-rlim 15518  df-sum 15716  df-0p 25734  df-ply 26250  df-coe 26252  df-dgr 26253  df-aa 26381

This theorem is referenced by:  elqaa  26388