Mathbox for Glauco Siliprandi < Previous   Next > Nearby theorems Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  etransclem44 Structured version   Visualization version   GIF version

Theorem etransclem44 42935
 Description: The given finite sum is nonzero. This is the claim proved after equation (7) in [Juillerat] p. 12 . (Contributed by Glauco Siliprandi, 5-Apr-2020.)
Hypotheses
Ref Expression
etransclem44.a (𝜑𝐴:ℕ0⟶ℤ)
etransclem44.a0 (𝜑 → (𝐴‘0) ≠ 0)
etransclem44.m (𝜑𝑀 ∈ ℕ0)
etransclem44.p (𝜑𝑃 ∈ ℙ)
etransclem44.ap (𝜑 → (abs‘(𝐴‘0)) < 𝑃)
etransclem44.mp (𝜑 → (!‘𝑀) < 𝑃)
etransclem44.f 𝐹 = (𝑥 ∈ ℝ ↦ ((𝑥↑(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)((𝑥𝑗)↑𝑃)))
etransclem44.k 𝐾 = (Σ𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1))))((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) / (!‘(𝑃 − 1)))
Assertion
Ref Expression
etransclem44 (𝜑𝐾 ≠ 0)
Distinct variable groups:   𝐴,𝑘   𝑘,𝐹   𝑗,𝑀,𝑘,𝑥   𝑃,𝑗,𝑘,𝑥   𝜑,𝑗,𝑘,𝑥
Allowed substitution hints:   𝐴(𝑥,𝑗)   𝐹(𝑥,𝑗)   𝐾(𝑥,𝑗,𝑘)

Proof of Theorem etransclem44
Dummy variables 𝑐 𝑑 𝑛 𝑚 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 etransclem44.k . . . 4 𝐾 = (Σ𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1))))((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) / (!‘(𝑃 − 1)))
21a1i 11 . . 3 (𝜑𝐾 = (Σ𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1))))((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) / (!‘(𝑃 − 1))))
3 nfv 1915 . . . . 5 𝑘𝜑
4 nfcv 2955 . . . . 5 𝑘((𝐴‘0) · (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0))
5 fzfi 13337 . . . . . . 7 (0...𝑀) ∈ Fin
6 fzfi 13337 . . . . . . 7 (0...((𝑀 · 𝑃) + (𝑃 − 1))) ∈ Fin
7 xpfi 8775 . . . . . . 7 (((0...𝑀) ∈ Fin ∧ (0...((𝑀 · 𝑃) + (𝑃 − 1))) ∈ Fin) → ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∈ Fin)
85, 6, 7mp2an 691 . . . . . 6 ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∈ Fin
98a1i 11 . . . . 5 (𝜑 → ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∈ Fin)
10 etransclem44.a . . . . . . . . 9 (𝜑𝐴:ℕ0⟶ℤ)
1110adantr 484 . . . . . . . 8 ((𝜑𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1))))) → 𝐴:ℕ0⟶ℤ)
12 fzssnn0 41964 . . . . . . . . . 10 (0...𝑀) ⊆ ℕ0
13 xp1st 7705 . . . . . . . . . 10 (𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) → (1st𝑘) ∈ (0...𝑀))
1412, 13sseldi 3913 . . . . . . . . 9 (𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) → (1st𝑘) ∈ ℕ0)
1514adantl 485 . . . . . . . 8 ((𝜑𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1))))) → (1st𝑘) ∈ ℕ0)
1611, 15ffvelrnd 6829 . . . . . . 7 ((𝜑𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1))))) → (𝐴‘(1st𝑘)) ∈ ℤ)
17 reelprrecn 10620 . . . . . . . . 9 ℝ ∈ {ℝ, ℂ}
1817a1i 11 . . . . . . . 8 ((𝜑𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1))))) → ℝ ∈ {ℝ, ℂ})
19 reopn 41935 . . . . . . . . . 10 ℝ ∈ (topGen‘ran (,))
20 eqid 2798 . . . . . . . . . . 11 (TopOpen‘ℂfld) = (TopOpen‘ℂfld)
2120tgioo2 23415 . . . . . . . . . 10 (topGen‘ran (,)) = ((TopOpen‘ℂfld) ↾t ℝ)
2219, 21eleqtri 2888 . . . . . . . . 9 ℝ ∈ ((TopOpen‘ℂfld) ↾t ℝ)
2322a1i 11 . . . . . . . 8 ((𝜑𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1))))) → ℝ ∈ ((TopOpen‘ℂfld) ↾t ℝ))
24 etransclem44.p . . . . . . . . . 10 (𝜑𝑃 ∈ ℙ)
25 prmnn 16010 . . . . . . . . . 10 (𝑃 ∈ ℙ → 𝑃 ∈ ℕ)
2624, 25syl 17 . . . . . . . . 9 (𝜑𝑃 ∈ ℕ)
2726adantr 484 . . . . . . . 8 ((𝜑𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1))))) → 𝑃 ∈ ℕ)
28 etransclem44.m . . . . . . . . 9 (𝜑𝑀 ∈ ℕ0)
2928adantr 484 . . . . . . . 8 ((𝜑𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1))))) → 𝑀 ∈ ℕ0)
30 etransclem44.f . . . . . . . 8 𝐹 = (𝑥 ∈ ℝ ↦ ((𝑥↑(𝑃 − 1)) · ∏𝑗 ∈ (1...𝑀)((𝑥𝑗)↑𝑃)))
31 xp2nd 7706 . . . . . . . . . 10 (𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) → (2nd𝑘) ∈ (0...((𝑀 · 𝑃) + (𝑃 − 1))))
32 elfznn0 12997 . . . . . . . . . 10 ((2nd𝑘) ∈ (0...((𝑀 · 𝑃) + (𝑃 − 1))) → (2nd𝑘) ∈ ℕ0)
3331, 32syl 17 . . . . . . . . 9 (𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) → (2nd𝑘) ∈ ℕ0)
3433adantl 485 . . . . . . . 8 ((𝜑𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1))))) → (2nd𝑘) ∈ ℕ0)
3515nn0red 11946 . . . . . . . 8 ((𝜑𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1))))) → (1st𝑘) ∈ ℝ)
3615nn0zd 12075 . . . . . . . 8 ((𝜑𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1))))) → (1st𝑘) ∈ ℤ)
3718, 23, 27, 29, 30, 34, 35, 36etransclem42 42933 . . . . . . 7 ((𝜑𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1))))) → (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘)) ∈ ℤ)
3816, 37zmulcld 12083 . . . . . 6 ((𝜑𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1))))) → ((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) ∈ ℤ)
3938zcnd 12078 . . . . 5 ((𝜑𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1))))) → ((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) ∈ ℂ)
40 nn0uz 12270 . . . . . . . 8 0 = (ℤ‘0)
4128, 40eleqtrdi 2900 . . . . . . 7 (𝜑𝑀 ∈ (ℤ‘0))
42 eluzfz1 12911 . . . . . . 7 (𝑀 ∈ (ℤ‘0) → 0 ∈ (0...𝑀))
4341, 42syl 17 . . . . . 6 (𝜑 → 0 ∈ (0...𝑀))
44 0zd 11983 . . . . . . . . 9 (𝜑 → 0 ∈ ℤ)
4528nn0zd 12075 . . . . . . . . . . 11 (𝜑𝑀 ∈ ℤ)
4626nnzd 12076 . . . . . . . . . . 11 (𝜑𝑃 ∈ ℤ)
4745, 46zmulcld 12083 . . . . . . . . . 10 (𝜑 → (𝑀 · 𝑃) ∈ ℤ)
48 nnm1nn0 11928 . . . . . . . . . . . 12 (𝑃 ∈ ℕ → (𝑃 − 1) ∈ ℕ0)
4926, 48syl 17 . . . . . . . . . . 11 (𝜑 → (𝑃 − 1) ∈ ℕ0)
5049nn0zd 12075 . . . . . . . . . 10 (𝜑 → (𝑃 − 1) ∈ ℤ)
5147, 50zaddcld 12081 . . . . . . . . 9 (𝜑 → ((𝑀 · 𝑃) + (𝑃 − 1)) ∈ ℤ)
5244, 51, 503jca 1125 . . . . . . . 8 (𝜑 → (0 ∈ ℤ ∧ ((𝑀 · 𝑃) + (𝑃 − 1)) ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ))
5349nn0ge0d 11948 . . . . . . . 8 (𝜑 → 0 ≤ (𝑃 − 1))
5426nnnn0d 11945 . . . . . . . . . . 11 (𝜑𝑃 ∈ ℕ0)
5528, 54nn0mulcld 11950 . . . . . . . . . 10 (𝜑 → (𝑀 · 𝑃) ∈ ℕ0)
5655nn0ge0d 11948 . . . . . . . . 9 (𝜑 → 0 ≤ (𝑀 · 𝑃))
5749nn0red 11946 . . . . . . . . . 10 (𝜑 → (𝑃 − 1) ∈ ℝ)
5847zred 12077 . . . . . . . . . 10 (𝜑 → (𝑀 · 𝑃) ∈ ℝ)
5957, 58addge02d 11220 . . . . . . . . 9 (𝜑 → (0 ≤ (𝑀 · 𝑃) ↔ (𝑃 − 1) ≤ ((𝑀 · 𝑃) + (𝑃 − 1))))
6056, 59mpbid 235 . . . . . . . 8 (𝜑 → (𝑃 − 1) ≤ ((𝑀 · 𝑃) + (𝑃 − 1)))
6152, 53, 60jca32 519 . . . . . . 7 (𝜑 → ((0 ∈ ℤ ∧ ((𝑀 · 𝑃) + (𝑃 − 1)) ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ) ∧ (0 ≤ (𝑃 − 1) ∧ (𝑃 − 1) ≤ ((𝑀 · 𝑃) + (𝑃 − 1)))))
62 elfz2 12894 . . . . . . 7 ((𝑃 − 1) ∈ (0...((𝑀 · 𝑃) + (𝑃 − 1))) ↔ ((0 ∈ ℤ ∧ ((𝑀 · 𝑃) + (𝑃 − 1)) ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ) ∧ (0 ≤ (𝑃 − 1) ∧ (𝑃 − 1) ≤ ((𝑀 · 𝑃) + (𝑃 − 1)))))
6361, 62sylibr 237 . . . . . 6 (𝜑 → (𝑃 − 1) ∈ (0...((𝑀 · 𝑃) + (𝑃 − 1))))
64 opelxp 5555 . . . . . 6 (⟨0, (𝑃 − 1)⟩ ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ↔ (0 ∈ (0...𝑀) ∧ (𝑃 − 1) ∈ (0...((𝑀 · 𝑃) + (𝑃 − 1)))))
6543, 63, 64sylanbrc 586 . . . . 5 (𝜑 → ⟨0, (𝑃 − 1)⟩ ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))))
66 fveq2 6645 . . . . . . . 8 (𝑘 = ⟨0, (𝑃 − 1)⟩ → (1st𝑘) = (1st ‘⟨0, (𝑃 − 1)⟩))
67 0re 10634 . . . . . . . . 9 0 ∈ ℝ
68 ovex 7168 . . . . . . . . 9 (𝑃 − 1) ∈ V
69 op1stg 7685 . . . . . . . . 9 ((0 ∈ ℝ ∧ (𝑃 − 1) ∈ V) → (1st ‘⟨0, (𝑃 − 1)⟩) = 0)
7067, 68, 69mp2an 691 . . . . . . . 8 (1st ‘⟨0, (𝑃 − 1)⟩) = 0
7166, 70eqtrdi 2849 . . . . . . 7 (𝑘 = ⟨0, (𝑃 − 1)⟩ → (1st𝑘) = 0)
7271fveq2d 6649 . . . . . 6 (𝑘 = ⟨0, (𝑃 − 1)⟩ → (𝐴‘(1st𝑘)) = (𝐴‘0))
73 fveq2 6645 . . . . . . . . 9 (𝑘 = ⟨0, (𝑃 − 1)⟩ → (2nd𝑘) = (2nd ‘⟨0, (𝑃 − 1)⟩))
74 op2ndg 7686 . . . . . . . . . 10 ((0 ∈ ℝ ∧ (𝑃 − 1) ∈ V) → (2nd ‘⟨0, (𝑃 − 1)⟩) = (𝑃 − 1))
7567, 68, 74mp2an 691 . . . . . . . . 9 (2nd ‘⟨0, (𝑃 − 1)⟩) = (𝑃 − 1)
7673, 75eqtrdi 2849 . . . . . . . 8 (𝑘 = ⟨0, (𝑃 − 1)⟩ → (2nd𝑘) = (𝑃 − 1))
7776fveq2d 6649 . . . . . . 7 (𝑘 = ⟨0, (𝑃 − 1)⟩ → ((ℝ D𝑛 𝐹)‘(2nd𝑘)) = ((ℝ D𝑛 𝐹)‘(𝑃 − 1)))
7877, 71fveq12d 6652 . . . . . 6 (𝑘 = ⟨0, (𝑃 − 1)⟩ → (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘)) = (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0))
7972, 78oveq12d 7153 . . . . 5 (𝑘 = ⟨0, (𝑃 − 1)⟩ → ((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) = ((𝐴‘0) · (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0)))
803, 4, 9, 39, 65, 79fsumsplit1 42229 . . . 4 (𝜑 → Σ𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1))))((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) = (((𝐴‘0) · (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0)) + Σ𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘)))))
8180oveq1d 7150 . . 3 (𝜑 → (Σ𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1))))((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) / (!‘(𝑃 − 1))) = ((((𝐴‘0) · (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0)) + Σ𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘)))) / (!‘(𝑃 − 1))))
8212, 43sseldi 3913 . . . . . . 7 (𝜑 → 0 ∈ ℕ0)
8310, 82ffvelrnd 6829 . . . . . 6 (𝜑 → (𝐴‘0) ∈ ℤ)
8417a1i 11 . . . . . . 7 (𝜑 → ℝ ∈ {ℝ, ℂ})
8522a1i 11 . . . . . . 7 (𝜑 → ℝ ∈ ((TopOpen‘ℂfld) ↾t ℝ))
8667a1i 11 . . . . . . 7 (𝜑 → 0 ∈ ℝ)
8784, 85, 26, 28, 30, 49, 86, 44etransclem42 42933 . . . . . 6 (𝜑 → (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) ∈ ℤ)
8883, 87zmulcld 12083 . . . . 5 (𝜑 → ((𝐴‘0) · (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0)) ∈ ℤ)
8988zcnd 12078 . . . 4 (𝜑 → ((𝐴‘0) · (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0)) ∈ ℂ)
90 difss 4059 . . . . . . . 8 (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩}) ⊆ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1))))
91 ssfi 8724 . . . . . . . 8 ((((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∈ Fin ∧ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩}) ⊆ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1))))) → (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩}) ∈ Fin)
928, 90, 91mp2an 691 . . . . . . 7 (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩}) ∈ Fin
9392a1i 11 . . . . . 6 (𝜑 → (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩}) ∈ Fin)
94 eldifi 4054 . . . . . . 7 (𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩}) → 𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))))
9594, 38sylan2 595 . . . . . 6 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → ((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) ∈ ℤ)
9693, 95fsumzcl 15086 . . . . 5 (𝜑 → Σ𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) ∈ ℤ)
9796zcnd 12078 . . . 4 (𝜑 → Σ𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) ∈ ℂ)
9849faccld 13642 . . . . 5 (𝜑 → (!‘(𝑃 − 1)) ∈ ℕ)
9998nncnd 11643 . . . 4 (𝜑 → (!‘(𝑃 − 1)) ∈ ℂ)
10098nnne0d 11677 . . . 4 (𝜑 → (!‘(𝑃 − 1)) ≠ 0)
10189, 97, 99, 100divdird 11445 . . 3 (𝜑 → ((((𝐴‘0) · (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0)) + Σ𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘)))) / (!‘(𝑃 − 1))) = ((((𝐴‘0) · (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0)) / (!‘(𝑃 − 1))) + (Σ𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) / (!‘(𝑃 − 1)))))
1022, 81, 1013eqtrd 2837 . 2 (𝜑𝐾 = ((((𝐴‘0) · (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0)) / (!‘(𝑃 − 1))) + (Σ𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) / (!‘(𝑃 − 1)))))
10326nnne0d 11677 . . 3 (𝜑𝑃 ≠ 0)
10483zcnd 12078 . . . . 5 (𝜑 → (𝐴‘0) ∈ ℂ)
10587zcnd 12078 . . . . 5 (𝜑 → (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) ∈ ℂ)
106104, 105, 99, 100divassd 11442 . . . 4 (𝜑 → (((𝐴‘0) · (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0)) / (!‘(𝑃 − 1))) = ((𝐴‘0) · ((((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) / (!‘(𝑃 − 1)))))
107 etransclem5 42896 . . . . . . 7 (𝑘 ∈ (0...𝑀) ↦ (𝑦 ∈ ℝ ↦ ((𝑦𝑘)↑if(𝑘 = 0, (𝑃 − 1), 𝑃)))) = (𝑗 ∈ (0...𝑀) ↦ (𝑥 ∈ ℝ ↦ ((𝑥𝑗)↑if(𝑗 = 0, (𝑃 − 1), 𝑃))))
108 etransclem11 42902 . . . . . . 7 (𝑚 ∈ ℕ0 ↦ {𝑑 ∈ ((0...𝑚) ↑m (0...𝑀)) ∣ Σ𝑘 ∈ (0...𝑀)(𝑑𝑘) = 𝑚}) = (𝑛 ∈ ℕ0 ↦ {𝑐 ∈ ((0...𝑛) ↑m (0...𝑀)) ∣ Σ𝑗 ∈ (0...𝑀)(𝑐𝑗) = 𝑛})
10984, 85, 26, 28, 30, 49, 107, 108, 43, 86etransclem37 42928 . . . . . 6 (𝜑 → (!‘(𝑃 − 1)) ∥ (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0))
11098nnzd 12076 . . . . . . 7 (𝜑 → (!‘(𝑃 − 1)) ∈ ℤ)
111 dvdsval2 15604 . . . . . . 7 (((!‘(𝑃 − 1)) ∈ ℤ ∧ (!‘(𝑃 − 1)) ≠ 0 ∧ (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) ∈ ℤ) → ((!‘(𝑃 − 1)) ∥ (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) ↔ ((((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) / (!‘(𝑃 − 1))) ∈ ℤ))
112110, 100, 87, 111syl3anc 1368 . . . . . 6 (𝜑 → ((!‘(𝑃 − 1)) ∥ (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) ↔ ((((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) / (!‘(𝑃 − 1))) ∈ ℤ))
113109, 112mpbid 235 . . . . 5 (𝜑 → ((((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) / (!‘(𝑃 − 1))) ∈ ℤ)
11483, 113zmulcld 12083 . . . 4 (𝜑 → ((𝐴‘0) · ((((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) / (!‘(𝑃 − 1)))) ∈ ℤ)
115106, 114eqeltrd 2890 . . 3 (𝜑 → (((𝐴‘0) · (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0)) / (!‘(𝑃 − 1))) ∈ ℤ)
11694, 39sylan2 595 . . . . 5 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → ((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) ∈ ℂ)
11793, 99, 116, 100fsumdivc 15135 . . . 4 (𝜑 → (Σ𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) / (!‘(𝑃 − 1))) = Σ𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})(((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) / (!‘(𝑃 − 1))))
11816zcnd 12078 . . . . . . . 8 ((𝜑𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1))))) → (𝐴‘(1st𝑘)) ∈ ℂ)
11994, 118sylan2 595 . . . . . . 7 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → (𝐴‘(1st𝑘)) ∈ ℂ)
12094, 37sylan2 595 . . . . . . . 8 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘)) ∈ ℤ)
121120zcnd 12078 . . . . . . 7 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘)) ∈ ℂ)
12299adantr 484 . . . . . . 7 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → (!‘(𝑃 − 1)) ∈ ℂ)
123100adantr 484 . . . . . . 7 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → (!‘(𝑃 − 1)) ≠ 0)
124119, 121, 122, 123divassd 11442 . . . . . 6 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → (((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) / (!‘(𝑃 − 1))) = ((𝐴‘(1st𝑘)) · ((((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘)) / (!‘(𝑃 − 1)))))
12594, 16sylan2 595 . . . . . . 7 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → (𝐴‘(1st𝑘)) ∈ ℤ)
12617a1i 11 . . . . . . . . 9 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → ℝ ∈ {ℝ, ℂ})
12722a1i 11 . . . . . . . . 9 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → ℝ ∈ ((TopOpen‘ℂfld) ↾t ℝ))
12826adantr 484 . . . . . . . . 9 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → 𝑃 ∈ ℕ)
12928adantr 484 . . . . . . . . 9 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → 𝑀 ∈ ℕ0)
13094adantl 485 . . . . . . . . . 10 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → 𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))))
131130, 33syl 17 . . . . . . . . 9 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → (2nd𝑘) ∈ ℕ0)
132130, 13syl 17 . . . . . . . . 9 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → (1st𝑘) ∈ (0...𝑀))
13394, 35sylan2 595 . . . . . . . . 9 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → (1st𝑘) ∈ ℝ)
134126, 127, 128, 129, 30, 131, 107, 108, 132, 133etransclem37 42928 . . . . . . . 8 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → (!‘(𝑃 − 1)) ∥ (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘)))
135110adantr 484 . . . . . . . . 9 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → (!‘(𝑃 − 1)) ∈ ℤ)
136 dvdsval2 15604 . . . . . . . . 9 (((!‘(𝑃 − 1)) ∈ ℤ ∧ (!‘(𝑃 − 1)) ≠ 0 ∧ (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘)) ∈ ℤ) → ((!‘(𝑃 − 1)) ∥ (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘)) ↔ ((((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘)) / (!‘(𝑃 − 1))) ∈ ℤ))
137135, 123, 120, 136syl3anc 1368 . . . . . . . 8 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → ((!‘(𝑃 − 1)) ∥ (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘)) ↔ ((((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘)) / (!‘(𝑃 − 1))) ∈ ℤ))
138134, 137mpbid 235 . . . . . . 7 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → ((((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘)) / (!‘(𝑃 − 1))) ∈ ℤ)
139125, 138zmulcld 12083 . . . . . 6 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → ((𝐴‘(1st𝑘)) · ((((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘)) / (!‘(𝑃 − 1)))) ∈ ℤ)
140124, 139eqeltrd 2890 . . . . 5 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → (((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) / (!‘(𝑃 − 1))) ∈ ℤ)
14193, 140fsumzcl 15086 . . . 4 (𝜑 → Σ𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})(((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) / (!‘(𝑃 − 1))) ∈ ℤ)
142117, 141eqeltrd 2890 . . 3 (𝜑 → (Σ𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) / (!‘(𝑃 − 1))) ∈ ℤ)
143 1zzd 12003 . . . . . . . . . . . 12 (𝜑 → 1 ∈ ℤ)
144 zabscl 14667 . . . . . . . . . . . . 13 ((𝐴‘0) ∈ ℤ → (abs‘(𝐴‘0)) ∈ ℤ)
14583, 144syl 17 . . . . . . . . . . . 12 (𝜑 → (abs‘(𝐴‘0)) ∈ ℤ)
146143, 50, 1453jca 1125 . . . . . . . . . . 11 (𝜑 → (1 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (abs‘(𝐴‘0)) ∈ ℤ))
147 nn0abscl 14666 . . . . . . . . . . . . . 14 ((𝐴‘0) ∈ ℤ → (abs‘(𝐴‘0)) ∈ ℕ0)
14883, 147syl 17 . . . . . . . . . . . . 13 (𝜑 → (abs‘(𝐴‘0)) ∈ ℕ0)
149 etransclem44.a0 . . . . . . . . . . . . . 14 (𝜑 → (𝐴‘0) ≠ 0)
150104, 149absne0d 14801 . . . . . . . . . . . . 13 (𝜑 → (abs‘(𝐴‘0)) ≠ 0)
151 elnnne0 11901 . . . . . . . . . . . . 13 ((abs‘(𝐴‘0)) ∈ ℕ ↔ ((abs‘(𝐴‘0)) ∈ ℕ0 ∧ (abs‘(𝐴‘0)) ≠ 0))
152148, 150, 151sylanbrc 586 . . . . . . . . . . . 12 (𝜑 → (abs‘(𝐴‘0)) ∈ ℕ)
153152nnge1d 11675 . . . . . . . . . . 11 (𝜑 → 1 ≤ (abs‘(𝐴‘0)))
154 etransclem44.ap . . . . . . . . . . . 12 (𝜑 → (abs‘(𝐴‘0)) < 𝑃)
155 zltlem1 12025 . . . . . . . . . . . . 13 (((abs‘(𝐴‘0)) ∈ ℤ ∧ 𝑃 ∈ ℤ) → ((abs‘(𝐴‘0)) < 𝑃 ↔ (abs‘(𝐴‘0)) ≤ (𝑃 − 1)))
156145, 46, 155syl2anc 587 . . . . . . . . . . . 12 (𝜑 → ((abs‘(𝐴‘0)) < 𝑃 ↔ (abs‘(𝐴‘0)) ≤ (𝑃 − 1)))
157154, 156mpbid 235 . . . . . . . . . . 11 (𝜑 → (abs‘(𝐴‘0)) ≤ (𝑃 − 1))
158146, 153, 157jca32 519 . . . . . . . . . 10 (𝜑 → ((1 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (abs‘(𝐴‘0)) ∈ ℤ) ∧ (1 ≤ (abs‘(𝐴‘0)) ∧ (abs‘(𝐴‘0)) ≤ (𝑃 − 1))))
159 elfz2 12894 . . . . . . . . . 10 ((abs‘(𝐴‘0)) ∈ (1...(𝑃 − 1)) ↔ ((1 ∈ ℤ ∧ (𝑃 − 1) ∈ ℤ ∧ (abs‘(𝐴‘0)) ∈ ℤ) ∧ (1 ≤ (abs‘(𝐴‘0)) ∧ (abs‘(𝐴‘0)) ≤ (𝑃 − 1))))
160158, 159sylibr 237 . . . . . . . . 9 (𝜑 → (abs‘(𝐴‘0)) ∈ (1...(𝑃 − 1)))
161 fzm1ndvds 15666 . . . . . . . . 9 ((𝑃 ∈ ℕ ∧ (abs‘(𝐴‘0)) ∈ (1...(𝑃 − 1))) → ¬ 𝑃 ∥ (abs‘(𝐴‘0)))
16226, 160, 161syl2anc 587 . . . . . . . 8 (𝜑 → ¬ 𝑃 ∥ (abs‘(𝐴‘0)))
163 dvdsabsb 15623 . . . . . . . . 9 ((𝑃 ∈ ℤ ∧ (𝐴‘0) ∈ ℤ) → (𝑃 ∥ (𝐴‘0) ↔ 𝑃 ∥ (abs‘(𝐴‘0))))
16446, 83, 163syl2anc 587 . . . . . . . 8 (𝜑 → (𝑃 ∥ (𝐴‘0) ↔ 𝑃 ∥ (abs‘(𝐴‘0))))
165162, 164mtbird 328 . . . . . . 7 (𝜑 → ¬ 𝑃 ∥ (𝐴‘0))
166 etransclem44.mp . . . . . . . 8 (𝜑 → (!‘𝑀) < 𝑃)
16728, 24, 166, 30etransclem41 42932 . . . . . . 7 (𝜑 → ¬ 𝑃 ∥ ((((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) / (!‘(𝑃 − 1))))
168165, 167jca 515 . . . . . 6 (𝜑 → (¬ 𝑃 ∥ (𝐴‘0) ∧ ¬ 𝑃 ∥ ((((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) / (!‘(𝑃 − 1)))))
169 pm4.56 986 . . . . . 6 ((¬ 𝑃 ∥ (𝐴‘0) ∧ ¬ 𝑃 ∥ ((((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) / (!‘(𝑃 − 1)))) ↔ ¬ (𝑃 ∥ (𝐴‘0) ∨ 𝑃 ∥ ((((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) / (!‘(𝑃 − 1)))))
170168, 169sylib 221 . . . . 5 (𝜑 → ¬ (𝑃 ∥ (𝐴‘0) ∨ 𝑃 ∥ ((((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) / (!‘(𝑃 − 1)))))
171 euclemma 16049 . . . . . 6 ((𝑃 ∈ ℙ ∧ (𝐴‘0) ∈ ℤ ∧ ((((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) / (!‘(𝑃 − 1))) ∈ ℤ) → (𝑃 ∥ ((𝐴‘0) · ((((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) / (!‘(𝑃 − 1)))) ↔ (𝑃 ∥ (𝐴‘0) ∨ 𝑃 ∥ ((((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) / (!‘(𝑃 − 1))))))
17224, 83, 113, 171syl3anc 1368 . . . . 5 (𝜑 → (𝑃 ∥ ((𝐴‘0) · ((((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) / (!‘(𝑃 − 1)))) ↔ (𝑃 ∥ (𝐴‘0) ∨ 𝑃 ∥ ((((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) / (!‘(𝑃 − 1))))))
173170, 172mtbird 328 . . . 4 (𝜑 → ¬ 𝑃 ∥ ((𝐴‘0) · ((((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) / (!‘(𝑃 − 1)))))
174106breq2d 5042 . . . 4 (𝜑 → (𝑃 ∥ (((𝐴‘0) · (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0)) / (!‘(𝑃 − 1))) ↔ 𝑃 ∥ ((𝐴‘0) · ((((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0) / (!‘(𝑃 − 1))))))
175173, 174mtbird 328 . . 3 (𝜑 → ¬ 𝑃 ∥ (((𝐴‘0) · (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0)) / (!‘(𝑃 − 1))))
17646adantr 484 . . . . . . . 8 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → 𝑃 ∈ ℤ)
177176, 125, 1383jca 1125 . . . . . . 7 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → (𝑃 ∈ ℤ ∧ (𝐴‘(1st𝑘)) ∈ ℤ ∧ ((((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘)) / (!‘(𝑃 − 1))) ∈ ℤ))
178 eldifn 4055 . . . . . . . . . 10 (𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩}) → ¬ 𝑘 ∈ {⟨0, (𝑃 − 1)⟩})
17994adantr 484 . . . . . . . . . . . . 13 ((𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩}) ∧ ((2nd𝑘) = (𝑃 − 1) ∧ (1st𝑘) = 0)) → 𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))))
180 1st2nd2 7712 . . . . . . . . . . . . 13 (𝑘 ∈ ((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) → 𝑘 = ⟨(1st𝑘), (2nd𝑘)⟩)
181179, 180syl 17 . . . . . . . . . . . 12 ((𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩}) ∧ ((2nd𝑘) = (𝑃 − 1) ∧ (1st𝑘) = 0)) → 𝑘 = ⟨(1st𝑘), (2nd𝑘)⟩)
182 simpr 488 . . . . . . . . . . . . . 14 (((2nd𝑘) = (𝑃 − 1) ∧ (1st𝑘) = 0) → (1st𝑘) = 0)
183 simpl 486 . . . . . . . . . . . . . 14 (((2nd𝑘) = (𝑃 − 1) ∧ (1st𝑘) = 0) → (2nd𝑘) = (𝑃 − 1))
184182, 183opeq12d 4773 . . . . . . . . . . . . 13 (((2nd𝑘) = (𝑃 − 1) ∧ (1st𝑘) = 0) → ⟨(1st𝑘), (2nd𝑘)⟩ = ⟨0, (𝑃 − 1)⟩)
185184adantl 485 . . . . . . . . . . . 12 ((𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩}) ∧ ((2nd𝑘) = (𝑃 − 1) ∧ (1st𝑘) = 0)) → ⟨(1st𝑘), (2nd𝑘)⟩ = ⟨0, (𝑃 − 1)⟩)
186181, 185eqtrd 2833 . . . . . . . . . . 11 ((𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩}) ∧ ((2nd𝑘) = (𝑃 − 1) ∧ (1st𝑘) = 0)) → 𝑘 = ⟨0, (𝑃 − 1)⟩)
187 velsn 4541 . . . . . . . . . . 11 (𝑘 ∈ {⟨0, (𝑃 − 1)⟩} ↔ 𝑘 = ⟨0, (𝑃 − 1)⟩)
188186, 187sylibr 237 . . . . . . . . . 10 ((𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩}) ∧ ((2nd𝑘) = (𝑃 − 1) ∧ (1st𝑘) = 0)) → 𝑘 ∈ {⟨0, (𝑃 − 1)⟩})
189178, 188mtand 815 . . . . . . . . 9 (𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩}) → ¬ ((2nd𝑘) = (𝑃 − 1) ∧ (1st𝑘) = 0))
190189adantl 485 . . . . . . . 8 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → ¬ ((2nd𝑘) = (𝑃 − 1) ∧ (1st𝑘) = 0))
191128, 129, 30, 131, 132, 190, 108etransclem38 42929 . . . . . . 7 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → 𝑃 ∥ ((((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘)) / (!‘(𝑃 − 1))))
192 dvdsmultr2 15643 . . . . . . 7 ((𝑃 ∈ ℤ ∧ (𝐴‘(1st𝑘)) ∈ ℤ ∧ ((((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘)) / (!‘(𝑃 − 1))) ∈ ℤ) → (𝑃 ∥ ((((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘)) / (!‘(𝑃 − 1))) → 𝑃 ∥ ((𝐴‘(1st𝑘)) · ((((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘)) / (!‘(𝑃 − 1))))))
193177, 191, 192sylc 65 . . . . . 6 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → 𝑃 ∥ ((𝐴‘(1st𝑘)) · ((((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘)) / (!‘(𝑃 − 1)))))
194193, 124breqtrrd 5058 . . . . 5 ((𝜑𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})) → 𝑃 ∥ (((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) / (!‘(𝑃 − 1))))
19593, 46, 140, 194fsumdvds 15652 . . . 4 (𝜑𝑃 ∥ Σ𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})(((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) / (!‘(𝑃 − 1))))
196195, 117breqtrrd 5058 . . 3 (𝜑𝑃 ∥ (Σ𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) / (!‘(𝑃 − 1))))
19746, 103, 115, 142, 175, 196etransclem9 42900 . 2 (𝜑 → ((((𝐴‘0) · (((ℝ D𝑛 𝐹)‘(𝑃 − 1))‘0)) / (!‘(𝑃 − 1))) + (Σ𝑘 ∈ (((0...𝑀) × (0...((𝑀 · 𝑃) + (𝑃 − 1)))) ∖ {⟨0, (𝑃 − 1)⟩})((𝐴‘(1st𝑘)) · (((ℝ D𝑛 𝐹)‘(2nd𝑘))‘(1st𝑘))) / (!‘(𝑃 − 1)))) ≠ 0)
198102, 197eqnetrd 3054 1 (𝜑𝐾 ≠ 0)
 Colors of variables: wff setvar class Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 209   ∧ wa 399   ∨ wo 844   ∧ w3a 1084   = wceq 1538   ∈ wcel 2111   ≠ wne 2987  {crab 3110  Vcvv 3441   ∖ cdif 3878   ⊆ wss 3881  ifcif 4425  {csn 4525  {cpr 4527  ⟨cop 4531   class class class wbr 5030   ↦ cmpt 5110   × cxp 5517  ran crn 5520  ⟶wf 6320  ‘cfv 6324  (class class class)co 7135  1st c1st 7671  2nd c2nd 7672   ↑m cmap 8391  Fincfn 8494  ℂcc 10526  ℝcr 10527  0cc0 10528  1c1 10529   + caddc 10531   · cmul 10533   < clt 10666   ≤ cle 10667   − cmin 10861   / cdiv 11288  ℕcn 11627  ℕ0cn0 11887  ℤcz 11971  ℤ≥cuz 12233  (,)cioo 12728  ...cfz 12887  ↑cexp 13427  !cfa 13631  abscabs 14587  Σcsu 15036  ∏cprod 15253   ∥ cdvds 15601  ℙcprime 16007   ↾t crest 16688  TopOpenctopn 16689  topGenctg 16705  ℂfldccnfld 20094   D𝑛 cdvn 24474 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2113  ax-9 2121  ax-10 2142  ax-11 2158  ax-12 2175  ax-ext 2770  ax-rep 5154  ax-sep 5167  ax-nul 5174  ax-pow 5231  ax-pr 5295  ax-un 7443  ax-inf2 9090  ax-cnex 10584  ax-resscn 10585  ax-1cn 10586  ax-icn 10587  ax-addcl 10588  ax-addrcl 10589  ax-mulcl 10590  ax-mulrcl 10591  ax-mulcom 10592  ax-addass 10593  ax-mulass 10594  ax-distr 10595  ax-i2m1 10596  ax-1ne0 10597  ax-1rid 10598  ax-rnegex 10599  ax-rrecex 10600  ax-cnre 10601  ax-pre-lttri 10602  ax-pre-lttrn 10603  ax-pre-ltadd 10604  ax-pre-mulgt0 10605  ax-pre-sup 10606  ax-addf 10607  ax-mulf 10608 This theorem depends on definitions:  df-bi 210  df-an 400  df-or 845  df-3or 1085  df-3an 1086  df-tru 1541  df-fal 1551  df-ex 1782  df-nf 1786  df-sb 2070  df-mo 2598  df-eu 2629  df-clab 2777  df-cleq 2791  df-clel 2870  df-nfc 2938  df-ne 2988  df-nel 3092  df-ral 3111  df-rex 3112  df-reu 3113  df-rmo 3114  df-rab 3115  df-v 3443  df-sbc 3721  df-csb 3829  df-dif 3884  df-un 3886  df-in 3888  df-ss 3898  df-pss 3900  df-nul 4244  df-if 4426  df-pw 4499  df-sn 4526  df-pr 4528  df-tp 4530  df-op 4532  df-uni 4801  df-int 4839  df-iun 4883  df-iin 4884  df-br 5031  df-opab 5093  df-mpt 5111  df-tr 5137  df-id 5425  df-eprel 5430  df-po 5438  df-so 5439  df-fr 5478  df-se 5479  df-we 5480  df-xp 5525  df-rel 5526  df-cnv 5527  df-co 5528  df-dm 5529  df-rn 5530  df-res 5531  df-ima 5532  df-pred 6116  df-ord 6162  df-on 6163  df-lim 6164  df-suc 6165  df-iota 6283  df-fun 6326  df-fn 6327  df-f 6328  df-f1 6329  df-fo 6330  df-f1o 6331  df-fv 6332  df-isom 6333  df-riota 7093  df-ov 7138  df-oprab 7139  df-mpo 7140  df-of 7390  df-om 7563  df-1st 7673  df-2nd 7674  df-supp 7816  df-wrecs 7932  df-recs 7993  df-rdg 8031  df-1o 8087  df-2o 8088  df-oadd 8091  df-er 8274  df-map 8393  df-pm 8394  df-ixp 8447  df-en 8495  df-dom 8496  df-sdom 8497  df-fin 8498  df-fsupp 8820  df-fi 8861  df-sup 8892  df-inf 8893  df-oi 8960  df-card 9354  df-pnf 10668  df-mnf 10669  df-xr 10670  df-ltxr 10671  df-le 10672  df-sub 10863  df-neg 10864  df-div 11289  df-nn 11628  df-2 11690  df-3 11691  df-4 11692  df-5 11693  df-6 11694  df-7 11695  df-8 11696  df-9 11697  df-n0 11888  df-z 11972  df-dec 12089  df-uz 12234  df-q 12339  df-rp 12380  df-xneg 12497  df-xadd 12498  df-xmul 12499  df-ioo 12732  df-ico 12734  df-icc 12735  df-fz 12888  df-fzo 13031  df-fl 13159  df-mod 13235  df-seq 13367  df-exp 13428  df-fac 13632  df-bc 13661  df-hash 13689  df-cj 14452  df-re 14453  df-im 14454  df-sqrt 14588  df-abs 14589  df-clim 14839  df-sum 15037  df-prod 15254  df-dvds 15602  df-gcd 15836  df-prm 16008  df-struct 16479  df-ndx 16480  df-slot 16481  df-base 16483  df-sets 16484  df-ress 16485  df-plusg 16572  df-mulr 16573  df-starv 16574  df-sca 16575  df-vsca 16576  df-ip 16577  df-tset 16578  df-ple 16579  df-ds 16581  df-unif 16582  df-hom 16583  df-cco 16584  df-rest 16690  df-topn 16691  df-0g 16709  df-gsum 16710  df-topgen 16711  df-pt 16712  df-prds 16715  df-xrs 16769  df-qtop 16774  df-imas 16775  df-xps 16777  df-mre 16851  df-mrc 16852  df-acs 16854  df-mgm 17846  df-sgrp 17895  df-mnd 17906  df-submnd 17951  df-mulg 18220  df-cntz 18442  df-cmn 18903  df-psmet 20086  df-xmet 20087  df-met 20088  df-bl 20089  df-mopn 20090  df-fbas 20091  df-fg 20092  df-cnfld 20095  df-top 21506  df-topon 21523  df-topsp 21545  df-bases 21558  df-cld 21631  df-ntr 21632  df-cls 21633  df-nei 21710  df-lp 21748  df-perf 21749  df-cn 21839  df-cnp 21840  df-haus 21927  df-tx 22174  df-hmeo 22367  df-fil 22458  df-fm 22550  df-flim 22551  df-flf 22552  df-xms 22934  df-ms 22935  df-tms 22936  df-cncf 23490  df-limc 24476  df-dv 24477  df-dvn 24478 This theorem is referenced by:  etransclem47  42938
 Copyright terms: Public domain W3C validator