Users' Mathboxes Mathbox for Mario Carneiro < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  subfacval2 Structured version   Visualization version   GIF version

Theorem subfacval2 32438
Description: A closed-form expression for the subfactorial. (Contributed by Mario Carneiro, 23-Jan-2015.)
Hypotheses
Ref Expression
derang.d 𝐷 = (𝑥 ∈ Fin ↦ (♯‘{𝑓 ∣ (𝑓:𝑥1-1-onto𝑥 ∧ ∀𝑦𝑥 (𝑓𝑦) ≠ 𝑦)}))
subfac.n 𝑆 = (𝑛 ∈ ℕ0 ↦ (𝐷‘(1...𝑛)))
Assertion
Ref Expression
subfacval2 (𝑁 ∈ ℕ0 → (𝑆𝑁) = ((!‘𝑁) · Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘))))
Distinct variable groups:   𝑓,𝑛,𝑥,𝑦,𝑘,𝑁   𝐷,𝑛   𝑆,𝑛,𝑥,𝑦
Allowed substitution hints:   𝐷(𝑥,𝑦,𝑓,𝑘)   𝑆(𝑓,𝑘)

Proof of Theorem subfacval2
Dummy variable 𝑚 is distinct from all other variables.
StepHypRef Expression
1 fveq2 6673 . . . . . 6 (𝑥 = 0 → (𝑆𝑥) = (𝑆‘0))
2 derang.d . . . . . . 7 𝐷 = (𝑥 ∈ Fin ↦ (♯‘{𝑓 ∣ (𝑓:𝑥1-1-onto𝑥 ∧ ∀𝑦𝑥 (𝑓𝑦) ≠ 𝑦)}))
3 subfac.n . . . . . . 7 𝑆 = (𝑛 ∈ ℕ0 ↦ (𝐷‘(1...𝑛)))
42, 3subfac0 32428 . . . . . 6 (𝑆‘0) = 1
51, 4syl6eq 2875 . . . . 5 (𝑥 = 0 → (𝑆𝑥) = 1)
6 fveq2 6673 . . . . . . 7 (𝑥 = 0 → (!‘𝑥) = (!‘0))
7 fac0 13639 . . . . . . 7 (!‘0) = 1
86, 7syl6eq 2875 . . . . . 6 (𝑥 = 0 → (!‘𝑥) = 1)
9 oveq2 7167 . . . . . . 7 (𝑥 = 0 → (0...𝑥) = (0...0))
109sumeq1d 15061 . . . . . 6 (𝑥 = 0 → Σ𝑘 ∈ (0...𝑥)((-1↑𝑘) / (!‘𝑘)) = Σ𝑘 ∈ (0...0)((-1↑𝑘) / (!‘𝑘)))
118, 10oveq12d 7177 . . . . 5 (𝑥 = 0 → ((!‘𝑥) · Σ𝑘 ∈ (0...𝑥)((-1↑𝑘) / (!‘𝑘))) = (1 · Σ𝑘 ∈ (0...0)((-1↑𝑘) / (!‘𝑘))))
125, 11eqeq12d 2840 . . . 4 (𝑥 = 0 → ((𝑆𝑥) = ((!‘𝑥) · Σ𝑘 ∈ (0...𝑥)((-1↑𝑘) / (!‘𝑘))) ↔ 1 = (1 · Σ𝑘 ∈ (0...0)((-1↑𝑘) / (!‘𝑘)))))
13 fv0p1e1 11763 . . . . . 6 (𝑥 = 0 → (𝑆‘(𝑥 + 1)) = (𝑆‘1))
142, 3subfac1 32429 . . . . . 6 (𝑆‘1) = 0
1513, 14syl6eq 2875 . . . . 5 (𝑥 = 0 → (𝑆‘(𝑥 + 1)) = 0)
16 fv0p1e1 11763 . . . . . . 7 (𝑥 = 0 → (!‘(𝑥 + 1)) = (!‘1))
17 fac1 13640 . . . . . . 7 (!‘1) = 1
1816, 17syl6eq 2875 . . . . . 6 (𝑥 = 0 → (!‘(𝑥 + 1)) = 1)
19 oveq1 7166 . . . . . . . . 9 (𝑥 = 0 → (𝑥 + 1) = (0 + 1))
20 0p1e1 11762 . . . . . . . . 9 (0 + 1) = 1
2119, 20syl6eq 2875 . . . . . . . 8 (𝑥 = 0 → (𝑥 + 1) = 1)
2221oveq2d 7175 . . . . . . 7 (𝑥 = 0 → (0...(𝑥 + 1)) = (0...1))
2322sumeq1d 15061 . . . . . 6 (𝑥 = 0 → Σ𝑘 ∈ (0...(𝑥 + 1))((-1↑𝑘) / (!‘𝑘)) = Σ𝑘 ∈ (0...1)((-1↑𝑘) / (!‘𝑘)))
2418, 23oveq12d 7177 . . . . 5 (𝑥 = 0 → ((!‘(𝑥 + 1)) · Σ𝑘 ∈ (0...(𝑥 + 1))((-1↑𝑘) / (!‘𝑘))) = (1 · Σ𝑘 ∈ (0...1)((-1↑𝑘) / (!‘𝑘))))
2515, 24eqeq12d 2840 . . . 4 (𝑥 = 0 → ((𝑆‘(𝑥 + 1)) = ((!‘(𝑥 + 1)) · Σ𝑘 ∈ (0...(𝑥 + 1))((-1↑𝑘) / (!‘𝑘))) ↔ 0 = (1 · Σ𝑘 ∈ (0...1)((-1↑𝑘) / (!‘𝑘)))))
2612, 25anbi12d 632 . . 3 (𝑥 = 0 → (((𝑆𝑥) = ((!‘𝑥) · Σ𝑘 ∈ (0...𝑥)((-1↑𝑘) / (!‘𝑘))) ∧ (𝑆‘(𝑥 + 1)) = ((!‘(𝑥 + 1)) · Σ𝑘 ∈ (0...(𝑥 + 1))((-1↑𝑘) / (!‘𝑘)))) ↔ (1 = (1 · Σ𝑘 ∈ (0...0)((-1↑𝑘) / (!‘𝑘))) ∧ 0 = (1 · Σ𝑘 ∈ (0...1)((-1↑𝑘) / (!‘𝑘))))))
27 fveq2 6673 . . . . 5 (𝑥 = 𝑚 → (𝑆𝑥) = (𝑆𝑚))
28 fveq2 6673 . . . . . 6 (𝑥 = 𝑚 → (!‘𝑥) = (!‘𝑚))
29 oveq2 7167 . . . . . . 7 (𝑥 = 𝑚 → (0...𝑥) = (0...𝑚))
3029sumeq1d 15061 . . . . . 6 (𝑥 = 𝑚 → Σ𝑘 ∈ (0...𝑥)((-1↑𝑘) / (!‘𝑘)) = Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘)))
3128, 30oveq12d 7177 . . . . 5 (𝑥 = 𝑚 → ((!‘𝑥) · Σ𝑘 ∈ (0...𝑥)((-1↑𝑘) / (!‘𝑘))) = ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))))
3227, 31eqeq12d 2840 . . . 4 (𝑥 = 𝑚 → ((𝑆𝑥) = ((!‘𝑥) · Σ𝑘 ∈ (0...𝑥)((-1↑𝑘) / (!‘𝑘))) ↔ (𝑆𝑚) = ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘)))))
33 fvoveq1 7182 . . . . 5 (𝑥 = 𝑚 → (𝑆‘(𝑥 + 1)) = (𝑆‘(𝑚 + 1)))
34 fvoveq1 7182 . . . . . 6 (𝑥 = 𝑚 → (!‘(𝑥 + 1)) = (!‘(𝑚 + 1)))
35 oveq1 7166 . . . . . . . 8 (𝑥 = 𝑚 → (𝑥 + 1) = (𝑚 + 1))
3635oveq2d 7175 . . . . . . 7 (𝑥 = 𝑚 → (0...(𝑥 + 1)) = (0...(𝑚 + 1)))
3736sumeq1d 15061 . . . . . 6 (𝑥 = 𝑚 → Σ𝑘 ∈ (0...(𝑥 + 1))((-1↑𝑘) / (!‘𝑘)) = Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘)))
3834, 37oveq12d 7177 . . . . 5 (𝑥 = 𝑚 → ((!‘(𝑥 + 1)) · Σ𝑘 ∈ (0...(𝑥 + 1))((-1↑𝑘) / (!‘𝑘))) = ((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘))))
3933, 38eqeq12d 2840 . . . 4 (𝑥 = 𝑚 → ((𝑆‘(𝑥 + 1)) = ((!‘(𝑥 + 1)) · Σ𝑘 ∈ (0...(𝑥 + 1))((-1↑𝑘) / (!‘𝑘))) ↔ (𝑆‘(𝑚 + 1)) = ((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘)))))
4032, 39anbi12d 632 . . 3 (𝑥 = 𝑚 → (((𝑆𝑥) = ((!‘𝑥) · Σ𝑘 ∈ (0...𝑥)((-1↑𝑘) / (!‘𝑘))) ∧ (𝑆‘(𝑥 + 1)) = ((!‘(𝑥 + 1)) · Σ𝑘 ∈ (0...(𝑥 + 1))((-1↑𝑘) / (!‘𝑘)))) ↔ ((𝑆𝑚) = ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) ∧ (𝑆‘(𝑚 + 1)) = ((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘))))))
41 fveq2 6673 . . . . 5 (𝑥 = (𝑚 + 1) → (𝑆𝑥) = (𝑆‘(𝑚 + 1)))
42 fveq2 6673 . . . . . 6 (𝑥 = (𝑚 + 1) → (!‘𝑥) = (!‘(𝑚 + 1)))
43 oveq2 7167 . . . . . . 7 (𝑥 = (𝑚 + 1) → (0...𝑥) = (0...(𝑚 + 1)))
4443sumeq1d 15061 . . . . . 6 (𝑥 = (𝑚 + 1) → Σ𝑘 ∈ (0...𝑥)((-1↑𝑘) / (!‘𝑘)) = Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘)))
4542, 44oveq12d 7177 . . . . 5 (𝑥 = (𝑚 + 1) → ((!‘𝑥) · Σ𝑘 ∈ (0...𝑥)((-1↑𝑘) / (!‘𝑘))) = ((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘))))
4641, 45eqeq12d 2840 . . . 4 (𝑥 = (𝑚 + 1) → ((𝑆𝑥) = ((!‘𝑥) · Σ𝑘 ∈ (0...𝑥)((-1↑𝑘) / (!‘𝑘))) ↔ (𝑆‘(𝑚 + 1)) = ((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘)))))
47 fvoveq1 7182 . . . . 5 (𝑥 = (𝑚 + 1) → (𝑆‘(𝑥 + 1)) = (𝑆‘((𝑚 + 1) + 1)))
48 fvoveq1 7182 . . . . . 6 (𝑥 = (𝑚 + 1) → (!‘(𝑥 + 1)) = (!‘((𝑚 + 1) + 1)))
49 oveq1 7166 . . . . . . . 8 (𝑥 = (𝑚 + 1) → (𝑥 + 1) = ((𝑚 + 1) + 1))
5049oveq2d 7175 . . . . . . 7 (𝑥 = (𝑚 + 1) → (0...(𝑥 + 1)) = (0...((𝑚 + 1) + 1)))
5150sumeq1d 15061 . . . . . 6 (𝑥 = (𝑚 + 1) → Σ𝑘 ∈ (0...(𝑥 + 1))((-1↑𝑘) / (!‘𝑘)) = Σ𝑘 ∈ (0...((𝑚 + 1) + 1))((-1↑𝑘) / (!‘𝑘)))
5248, 51oveq12d 7177 . . . . 5 (𝑥 = (𝑚 + 1) → ((!‘(𝑥 + 1)) · Σ𝑘 ∈ (0...(𝑥 + 1))((-1↑𝑘) / (!‘𝑘))) = ((!‘((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...((𝑚 + 1) + 1))((-1↑𝑘) / (!‘𝑘))))
5347, 52eqeq12d 2840 . . . 4 (𝑥 = (𝑚 + 1) → ((𝑆‘(𝑥 + 1)) = ((!‘(𝑥 + 1)) · Σ𝑘 ∈ (0...(𝑥 + 1))((-1↑𝑘) / (!‘𝑘))) ↔ (𝑆‘((𝑚 + 1) + 1)) = ((!‘((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...((𝑚 + 1) + 1))((-1↑𝑘) / (!‘𝑘)))))
5446, 53anbi12d 632 . . 3 (𝑥 = (𝑚 + 1) → (((𝑆𝑥) = ((!‘𝑥) · Σ𝑘 ∈ (0...𝑥)((-1↑𝑘) / (!‘𝑘))) ∧ (𝑆‘(𝑥 + 1)) = ((!‘(𝑥 + 1)) · Σ𝑘 ∈ (0...(𝑥 + 1))((-1↑𝑘) / (!‘𝑘)))) ↔ ((𝑆‘(𝑚 + 1)) = ((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘))) ∧ (𝑆‘((𝑚 + 1) + 1)) = ((!‘((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...((𝑚 + 1) + 1))((-1↑𝑘) / (!‘𝑘))))))
55 fveq2 6673 . . . . 5 (𝑥 = 𝑁 → (𝑆𝑥) = (𝑆𝑁))
56 fveq2 6673 . . . . . 6 (𝑥 = 𝑁 → (!‘𝑥) = (!‘𝑁))
57 oveq2 7167 . . . . . . 7 (𝑥 = 𝑁 → (0...𝑥) = (0...𝑁))
5857sumeq1d 15061 . . . . . 6 (𝑥 = 𝑁 → Σ𝑘 ∈ (0...𝑥)((-1↑𝑘) / (!‘𝑘)) = Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘)))
5956, 58oveq12d 7177 . . . . 5 (𝑥 = 𝑁 → ((!‘𝑥) · Σ𝑘 ∈ (0...𝑥)((-1↑𝑘) / (!‘𝑘))) = ((!‘𝑁) · Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘))))
6055, 59eqeq12d 2840 . . . 4 (𝑥 = 𝑁 → ((𝑆𝑥) = ((!‘𝑥) · Σ𝑘 ∈ (0...𝑥)((-1↑𝑘) / (!‘𝑘))) ↔ (𝑆𝑁) = ((!‘𝑁) · Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘)))))
61 fvoveq1 7182 . . . . 5 (𝑥 = 𝑁 → (𝑆‘(𝑥 + 1)) = (𝑆‘(𝑁 + 1)))
62 fvoveq1 7182 . . . . . 6 (𝑥 = 𝑁 → (!‘(𝑥 + 1)) = (!‘(𝑁 + 1)))
63 oveq1 7166 . . . . . . . 8 (𝑥 = 𝑁 → (𝑥 + 1) = (𝑁 + 1))
6463oveq2d 7175 . . . . . . 7 (𝑥 = 𝑁 → (0...(𝑥 + 1)) = (0...(𝑁 + 1)))
6564sumeq1d 15061 . . . . . 6 (𝑥 = 𝑁 → Σ𝑘 ∈ (0...(𝑥 + 1))((-1↑𝑘) / (!‘𝑘)) = Σ𝑘 ∈ (0...(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))
6662, 65oveq12d 7177 . . . . 5 (𝑥 = 𝑁 → ((!‘(𝑥 + 1)) · Σ𝑘 ∈ (0...(𝑥 + 1))((-1↑𝑘) / (!‘𝑘))) = ((!‘(𝑁 + 1)) · Σ𝑘 ∈ (0...(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))))
6761, 66eqeq12d 2840 . . . 4 (𝑥 = 𝑁 → ((𝑆‘(𝑥 + 1)) = ((!‘(𝑥 + 1)) · Σ𝑘 ∈ (0...(𝑥 + 1))((-1↑𝑘) / (!‘𝑘))) ↔ (𝑆‘(𝑁 + 1)) = ((!‘(𝑁 + 1)) · Σ𝑘 ∈ (0...(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
6860, 67anbi12d 632 . . 3 (𝑥 = 𝑁 → (((𝑆𝑥) = ((!‘𝑥) · Σ𝑘 ∈ (0...𝑥)((-1↑𝑘) / (!‘𝑘))) ∧ (𝑆‘(𝑥 + 1)) = ((!‘(𝑥 + 1)) · Σ𝑘 ∈ (0...(𝑥 + 1))((-1↑𝑘) / (!‘𝑘)))) ↔ ((𝑆𝑁) = ((!‘𝑁) · Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘))) ∧ (𝑆‘(𝑁 + 1)) = ((!‘(𝑁 + 1)) · Σ𝑘 ∈ (0...(𝑁 + 1))((-1↑𝑘) / (!‘𝑘))))))
69 0z 11995 . . . . . . 7 0 ∈ ℤ
70 ax-1cn 10598 . . . . . . 7 1 ∈ ℂ
71 oveq2 7167 . . . . . . . . . . 11 (𝑘 = 0 → (-1↑𝑘) = (-1↑0))
72 neg1cn 11754 . . . . . . . . . . . 12 -1 ∈ ℂ
73 exp0 13436 . . . . . . . . . . . 12 (-1 ∈ ℂ → (-1↑0) = 1)
7472, 73ax-mp 5 . . . . . . . . . . 11 (-1↑0) = 1
7571, 74syl6eq 2875 . . . . . . . . . 10 (𝑘 = 0 → (-1↑𝑘) = 1)
76 fveq2 6673 . . . . . . . . . . 11 (𝑘 = 0 → (!‘𝑘) = (!‘0))
7776, 7syl6eq 2875 . . . . . . . . . 10 (𝑘 = 0 → (!‘𝑘) = 1)
7875, 77oveq12d 7177 . . . . . . . . 9 (𝑘 = 0 → ((-1↑𝑘) / (!‘𝑘)) = (1 / 1))
7970div1i 11371 . . . . . . . . 9 (1 / 1) = 1
8078, 79syl6eq 2875 . . . . . . . 8 (𝑘 = 0 → ((-1↑𝑘) / (!‘𝑘)) = 1)
8180fsum1 15105 . . . . . . 7 ((0 ∈ ℤ ∧ 1 ∈ ℂ) → Σ𝑘 ∈ (0...0)((-1↑𝑘) / (!‘𝑘)) = 1)
8269, 70, 81mp2an 690 . . . . . 6 Σ𝑘 ∈ (0...0)((-1↑𝑘) / (!‘𝑘)) = 1
8382oveq2i 7170 . . . . 5 (1 · Σ𝑘 ∈ (0...0)((-1↑𝑘) / (!‘𝑘))) = (1 · 1)
84 1t1e1 11802 . . . . 5 (1 · 1) = 1
8583, 84eqtr2i 2848 . . . 4 1 = (1 · Σ𝑘 ∈ (0...0)((-1↑𝑘) / (!‘𝑘)))
86 nn0uz 12283 . . . . . . . . 9 0 = (ℤ‘0)
87 1e0p1 12143 . . . . . . . . 9 1 = (0 + 1)
88 oveq2 7167 . . . . . . . . . . . 12 (𝑘 = 1 → (-1↑𝑘) = (-1↑1))
89 exp1 13438 . . . . . . . . . . . . 13 (-1 ∈ ℂ → (-1↑1) = -1)
9072, 89ax-mp 5 . . . . . . . . . . . 12 (-1↑1) = -1
9188, 90syl6eq 2875 . . . . . . . . . . 11 (𝑘 = 1 → (-1↑𝑘) = -1)
92 fveq2 6673 . . . . . . . . . . . 12 (𝑘 = 1 → (!‘𝑘) = (!‘1))
9392, 17syl6eq 2875 . . . . . . . . . . 11 (𝑘 = 1 → (!‘𝑘) = 1)
9491, 93oveq12d 7177 . . . . . . . . . 10 (𝑘 = 1 → ((-1↑𝑘) / (!‘𝑘)) = (-1 / 1))
9572div1i 11371 . . . . . . . . . 10 (-1 / 1) = -1
9694, 95syl6eq 2875 . . . . . . . . 9 (𝑘 = 1 → ((-1↑𝑘) / (!‘𝑘)) = -1)
97 neg1rr 11755 . . . . . . . . . . . . 13 -1 ∈ ℝ
98 reexpcl 13449 . . . . . . . . . . . . 13 ((-1 ∈ ℝ ∧ 𝑘 ∈ ℕ0) → (-1↑𝑘) ∈ ℝ)
9997, 98mpan 688 . . . . . . . . . . . 12 (𝑘 ∈ ℕ0 → (-1↑𝑘) ∈ ℝ)
100 faccl 13646 . . . . . . . . . . . 12 (𝑘 ∈ ℕ0 → (!‘𝑘) ∈ ℕ)
10199, 100nndivred 11694 . . . . . . . . . . 11 (𝑘 ∈ ℕ0 → ((-1↑𝑘) / (!‘𝑘)) ∈ ℝ)
102101recnd 10672 . . . . . . . . . 10 (𝑘 ∈ ℕ0 → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
103102adantl 484 . . . . . . . . 9 ((⊤ ∧ 𝑘 ∈ ℕ0) → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
104 0nn0 11915 . . . . . . . . . . 11 0 ∈ ℕ0
105104, 82pm3.2i 473 . . . . . . . . . 10 (0 ∈ ℕ0 ∧ Σ𝑘 ∈ (0...0)((-1↑𝑘) / (!‘𝑘)) = 1)
106105a1i 11 . . . . . . . . 9 (⊤ → (0 ∈ ℕ0 ∧ Σ𝑘 ∈ (0...0)((-1↑𝑘) / (!‘𝑘)) = 1))
107 1pneg1e0 11759 . . . . . . . . . 10 (1 + -1) = 0
108107a1i 11 . . . . . . . . 9 (⊤ → (1 + -1) = 0)
10986, 87, 96, 103, 106, 108fsump1i 15127 . . . . . . . 8 (⊤ → (1 ∈ ℕ0 ∧ Σ𝑘 ∈ (0...1)((-1↑𝑘) / (!‘𝑘)) = 0))
110109mptru 1543 . . . . . . 7 (1 ∈ ℕ0 ∧ Σ𝑘 ∈ (0...1)((-1↑𝑘) / (!‘𝑘)) = 0)
111110simpri 488 . . . . . 6 Σ𝑘 ∈ (0...1)((-1↑𝑘) / (!‘𝑘)) = 0
112111oveq2i 7170 . . . . 5 (1 · Σ𝑘 ∈ (0...1)((-1↑𝑘) / (!‘𝑘))) = (1 · 0)
11370mul01i 10833 . . . . 5 (1 · 0) = 0
114112, 113eqtr2i 2848 . . . 4 0 = (1 · Σ𝑘 ∈ (0...1)((-1↑𝑘) / (!‘𝑘)))
11585, 114pm3.2i 473 . . 3 (1 = (1 · Σ𝑘 ∈ (0...0)((-1↑𝑘) / (!‘𝑘))) ∧ 0 = (1 · Σ𝑘 ∈ (0...1)((-1↑𝑘) / (!‘𝑘))))
116 simpr 487 . . . . 5 (((𝑆𝑚) = ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) ∧ (𝑆‘(𝑚 + 1)) = ((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘)))) → (𝑆‘(𝑚 + 1)) = ((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘))))
117116a1i 11 . . . 4 (𝑚 ∈ ℕ0 → (((𝑆𝑚) = ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) ∧ (𝑆‘(𝑚 + 1)) = ((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘)))) → (𝑆‘(𝑚 + 1)) = ((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘)))))
118 oveq12 7168 . . . . . . 7 (((𝑆‘(𝑚 + 1)) = ((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘))) ∧ (𝑆𝑚) = ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘)))) → ((𝑆‘(𝑚 + 1)) + (𝑆𝑚)) = (((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘)))))
119118ancoms 461 . . . . . 6 (((𝑆𝑚) = ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) ∧ (𝑆‘(𝑚 + 1)) = ((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘)))) → ((𝑆‘(𝑚 + 1)) + (𝑆𝑚)) = (((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘)))))
120119oveq2d 7175 . . . . 5 (((𝑆𝑚) = ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) ∧ (𝑆‘(𝑚 + 1)) = ((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘)))) → ((𝑚 + 1) · ((𝑆‘(𝑚 + 1)) + (𝑆𝑚))) = ((𝑚 + 1) · (((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))))))
121 nn0p1nn 11939 . . . . . . . 8 (𝑚 ∈ ℕ0 → (𝑚 + 1) ∈ ℕ)
1222, 3subfacp1 32437 . . . . . . . 8 ((𝑚 + 1) ∈ ℕ → (𝑆‘((𝑚 + 1) + 1)) = ((𝑚 + 1) · ((𝑆‘(𝑚 + 1)) + (𝑆‘((𝑚 + 1) − 1)))))
123121, 122syl 17 . . . . . . 7 (𝑚 ∈ ℕ0 → (𝑆‘((𝑚 + 1) + 1)) = ((𝑚 + 1) · ((𝑆‘(𝑚 + 1)) + (𝑆‘((𝑚 + 1) − 1)))))
124 nn0cn 11910 . . . . . . . . . . 11 (𝑚 ∈ ℕ0𝑚 ∈ ℂ)
125 pncan 10895 . . . . . . . . . . 11 ((𝑚 ∈ ℂ ∧ 1 ∈ ℂ) → ((𝑚 + 1) − 1) = 𝑚)
126124, 70, 125sylancl 588 . . . . . . . . . 10 (𝑚 ∈ ℕ0 → ((𝑚 + 1) − 1) = 𝑚)
127126fveq2d 6677 . . . . . . . . 9 (𝑚 ∈ ℕ0 → (𝑆‘((𝑚 + 1) − 1)) = (𝑆𝑚))
128127oveq2d 7175 . . . . . . . 8 (𝑚 ∈ ℕ0 → ((𝑆‘(𝑚 + 1)) + (𝑆‘((𝑚 + 1) − 1))) = ((𝑆‘(𝑚 + 1)) + (𝑆𝑚)))
129128oveq2d 7175 . . . . . . 7 (𝑚 ∈ ℕ0 → ((𝑚 + 1) · ((𝑆‘(𝑚 + 1)) + (𝑆‘((𝑚 + 1) − 1)))) = ((𝑚 + 1) · ((𝑆‘(𝑚 + 1)) + (𝑆𝑚))))
130123, 129eqtrd 2859 . . . . . 6 (𝑚 ∈ ℕ0 → (𝑆‘((𝑚 + 1) + 1)) = ((𝑚 + 1) · ((𝑆‘(𝑚 + 1)) + (𝑆𝑚))))
131 peano2nn0 11940 . . . . . . . . . . . 12 (𝑚 ∈ ℕ0 → (𝑚 + 1) ∈ ℕ0)
132 peano2nn0 11940 . . . . . . . . . . . 12 ((𝑚 + 1) ∈ ℕ0 → ((𝑚 + 1) + 1) ∈ ℕ0)
133131, 132syl 17 . . . . . . . . . . 11 (𝑚 ∈ ℕ0 → ((𝑚 + 1) + 1) ∈ ℕ0)
134 faccl 13646 . . . . . . . . . . 11 (((𝑚 + 1) + 1) ∈ ℕ0 → (!‘((𝑚 + 1) + 1)) ∈ ℕ)
135133, 134syl 17 . . . . . . . . . 10 (𝑚 ∈ ℕ0 → (!‘((𝑚 + 1) + 1)) ∈ ℕ)
136135nncnd 11657 . . . . . . . . 9 (𝑚 ∈ ℕ0 → (!‘((𝑚 + 1) + 1)) ∈ ℂ)
137 fzfid 13344 . . . . . . . . . 10 (𝑚 ∈ ℕ0 → (0...(𝑚 + 1)) ∈ Fin)
138 elfznn0 13003 . . . . . . . . . . . 12 (𝑘 ∈ (0...(𝑚 + 1)) → 𝑘 ∈ ℕ0)
139138adantl 484 . . . . . . . . . . 11 ((𝑚 ∈ ℕ0𝑘 ∈ (0...(𝑚 + 1))) → 𝑘 ∈ ℕ0)
140139, 102syl 17 . . . . . . . . . 10 ((𝑚 ∈ ℕ0𝑘 ∈ (0...(𝑚 + 1))) → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
141137, 140fsumcl 15093 . . . . . . . . 9 (𝑚 ∈ ℕ0 → Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
142 expcl 13450 . . . . . . . . . . 11 ((-1 ∈ ℂ ∧ ((𝑚 + 1) + 1) ∈ ℕ0) → (-1↑((𝑚 + 1) + 1)) ∈ ℂ)
14372, 133, 142sylancr 589 . . . . . . . . . 10 (𝑚 ∈ ℕ0 → (-1↑((𝑚 + 1) + 1)) ∈ ℂ)
144135nnne0d 11690 . . . . . . . . . 10 (𝑚 ∈ ℕ0 → (!‘((𝑚 + 1) + 1)) ≠ 0)
145143, 136, 144divcld 11419 . . . . . . . . 9 (𝑚 ∈ ℕ0 → ((-1↑((𝑚 + 1) + 1)) / (!‘((𝑚 + 1) + 1))) ∈ ℂ)
146136, 141, 145adddid 10668 . . . . . . . 8 (𝑚 ∈ ℕ0 → ((!‘((𝑚 + 1) + 1)) · (Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘)) + ((-1↑((𝑚 + 1) + 1)) / (!‘((𝑚 + 1) + 1))))) = (((!‘((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘((𝑚 + 1) + 1)) · ((-1↑((𝑚 + 1) + 1)) / (!‘((𝑚 + 1) + 1))))))
147 id 22 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ0𝑚 ∈ ℕ0)
148147, 86eleqtrdi 2926 . . . . . . . . . . . 12 (𝑚 ∈ ℕ0𝑚 ∈ (ℤ‘0))
149 oveq2 7167 . . . . . . . . . . . . 13 (𝑘 = (𝑚 + 1) → (-1↑𝑘) = (-1↑(𝑚 + 1)))
150 fveq2 6673 . . . . . . . . . . . . 13 (𝑘 = (𝑚 + 1) → (!‘𝑘) = (!‘(𝑚 + 1)))
151149, 150oveq12d 7177 . . . . . . . . . . . 12 (𝑘 = (𝑚 + 1) → ((-1↑𝑘) / (!‘𝑘)) = ((-1↑(𝑚 + 1)) / (!‘(𝑚 + 1))))
152148, 140, 151fsump1 15114 . . . . . . . . . . 11 (𝑚 ∈ ℕ0 → Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘)) = (Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘)) + ((-1↑(𝑚 + 1)) / (!‘(𝑚 + 1)))))
153152oveq2d 7175 . . . . . . . . . 10 (𝑚 ∈ ℕ0 → ((!‘((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘))) = ((!‘((𝑚 + 1) + 1)) · (Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘)) + ((-1↑(𝑚 + 1)) / (!‘(𝑚 + 1))))))
154 fzfid 13344 . . . . . . . . . . . 12 (𝑚 ∈ ℕ0 → (0...𝑚) ∈ Fin)
155 elfznn0 13003 . . . . . . . . . . . . . 14 (𝑘 ∈ (0...𝑚) → 𝑘 ∈ ℕ0)
156155adantl 484 . . . . . . . . . . . . 13 ((𝑚 ∈ ℕ0𝑘 ∈ (0...𝑚)) → 𝑘 ∈ ℕ0)
157156, 102syl 17 . . . . . . . . . . . 12 ((𝑚 ∈ ℕ0𝑘 ∈ (0...𝑚)) → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
158154, 157fsumcl 15093 . . . . . . . . . . 11 (𝑚 ∈ ℕ0 → Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
159 expcl 13450 . . . . . . . . . . . . 13 ((-1 ∈ ℂ ∧ (𝑚 + 1) ∈ ℕ0) → (-1↑(𝑚 + 1)) ∈ ℂ)
16072, 131, 159sylancr 589 . . . . . . . . . . . 12 (𝑚 ∈ ℕ0 → (-1↑(𝑚 + 1)) ∈ ℂ)
161 faccl 13646 . . . . . . . . . . . . . 14 ((𝑚 + 1) ∈ ℕ0 → (!‘(𝑚 + 1)) ∈ ℕ)
162131, 161syl 17 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ0 → (!‘(𝑚 + 1)) ∈ ℕ)
163162nncnd 11657 . . . . . . . . . . . 12 (𝑚 ∈ ℕ0 → (!‘(𝑚 + 1)) ∈ ℂ)
164162nnne0d 11690 . . . . . . . . . . . 12 (𝑚 ∈ ℕ0 → (!‘(𝑚 + 1)) ≠ 0)
165160, 163, 164divcld 11419 . . . . . . . . . . 11 (𝑚 ∈ ℕ0 → ((-1↑(𝑚 + 1)) / (!‘(𝑚 + 1))) ∈ ℂ)
166136, 158, 165adddid 10668 . . . . . . . . . 10 (𝑚 ∈ ℕ0 → ((!‘((𝑚 + 1) + 1)) · (Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘)) + ((-1↑(𝑚 + 1)) / (!‘(𝑚 + 1))))) = (((!‘((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + ((!‘((𝑚 + 1) + 1)) · ((-1↑(𝑚 + 1)) / (!‘(𝑚 + 1))))))
167 facp1 13641 . . . . . . . . . . . . . 14 ((𝑚 + 1) ∈ ℕ0 → (!‘((𝑚 + 1) + 1)) = ((!‘(𝑚 + 1)) · ((𝑚 + 1) + 1)))
168131, 167syl 17 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ0 → (!‘((𝑚 + 1) + 1)) = ((!‘(𝑚 + 1)) · ((𝑚 + 1) + 1)))
169 facp1 13641 . . . . . . . . . . . . . . 15 (𝑚 ∈ ℕ0 → (!‘(𝑚 + 1)) = ((!‘𝑚) · (𝑚 + 1)))
170 faccl 13646 . . . . . . . . . . . . . . . . 17 (𝑚 ∈ ℕ0 → (!‘𝑚) ∈ ℕ)
171170nncnd 11657 . . . . . . . . . . . . . . . 16 (𝑚 ∈ ℕ0 → (!‘𝑚) ∈ ℂ)
172121nncnd 11657 . . . . . . . . . . . . . . . 16 (𝑚 ∈ ℕ0 → (𝑚 + 1) ∈ ℂ)
173171, 172mulcomd 10665 . . . . . . . . . . . . . . 15 (𝑚 ∈ ℕ0 → ((!‘𝑚) · (𝑚 + 1)) = ((𝑚 + 1) · (!‘𝑚)))
174169, 173eqtrd 2859 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → (!‘(𝑚 + 1)) = ((𝑚 + 1) · (!‘𝑚)))
175174oveq1d 7174 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ0 → ((!‘(𝑚 + 1)) · ((𝑚 + 1) + 1)) = (((𝑚 + 1) · (!‘𝑚)) · ((𝑚 + 1) + 1)))
176133nn0cnd 11960 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → ((𝑚 + 1) + 1) ∈ ℂ)
177172, 171, 176mulassd 10667 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ0 → (((𝑚 + 1) · (!‘𝑚)) · ((𝑚 + 1) + 1)) = ((𝑚 + 1) · ((!‘𝑚) · ((𝑚 + 1) + 1))))
178168, 175, 1773eqtrd 2863 . . . . . . . . . . . 12 (𝑚 ∈ ℕ0 → (!‘((𝑚 + 1) + 1)) = ((𝑚 + 1) · ((!‘𝑚) · ((𝑚 + 1) + 1))))
179178oveq1d 7174 . . . . . . . . . . 11 (𝑚 ∈ ℕ0 → ((!‘((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) = (((𝑚 + 1) · ((!‘𝑚) · ((𝑚 + 1) + 1))) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))))
180136, 160, 163, 164div12d 11455 . . . . . . . . . . . 12 (𝑚 ∈ ℕ0 → ((!‘((𝑚 + 1) + 1)) · ((-1↑(𝑚 + 1)) / (!‘(𝑚 + 1)))) = ((-1↑(𝑚 + 1)) · ((!‘((𝑚 + 1) + 1)) / (!‘(𝑚 + 1)))))
181168oveq1d 7174 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → ((!‘((𝑚 + 1) + 1)) / (!‘(𝑚 + 1))) = (((!‘(𝑚 + 1)) · ((𝑚 + 1) + 1)) / (!‘(𝑚 + 1))))
182176, 163, 164divcan3d 11424 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → (((!‘(𝑚 + 1)) · ((𝑚 + 1) + 1)) / (!‘(𝑚 + 1))) = ((𝑚 + 1) + 1))
183181, 182eqtrd 2859 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ0 → ((!‘((𝑚 + 1) + 1)) / (!‘(𝑚 + 1))) = ((𝑚 + 1) + 1))
184183oveq2d 7175 . . . . . . . . . . . 12 (𝑚 ∈ ℕ0 → ((-1↑(𝑚 + 1)) · ((!‘((𝑚 + 1) + 1)) / (!‘(𝑚 + 1)))) = ((-1↑(𝑚 + 1)) · ((𝑚 + 1) + 1)))
185180, 184eqtrd 2859 . . . . . . . . . . 11 (𝑚 ∈ ℕ0 → ((!‘((𝑚 + 1) + 1)) · ((-1↑(𝑚 + 1)) / (!‘(𝑚 + 1)))) = ((-1↑(𝑚 + 1)) · ((𝑚 + 1) + 1)))
186179, 185oveq12d 7177 . . . . . . . . . 10 (𝑚 ∈ ℕ0 → (((!‘((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + ((!‘((𝑚 + 1) + 1)) · ((-1↑(𝑚 + 1)) / (!‘(𝑚 + 1))))) = ((((𝑚 + 1) · ((!‘𝑚) · ((𝑚 + 1) + 1))) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + ((-1↑(𝑚 + 1)) · ((𝑚 + 1) + 1))))
187153, 166, 1863eqtrd 2863 . . . . . . . . 9 (𝑚 ∈ ℕ0 → ((!‘((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘))) = ((((𝑚 + 1) · ((!‘𝑚) · ((𝑚 + 1) + 1))) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + ((-1↑(𝑚 + 1)) · ((𝑚 + 1) + 1))))
188143, 136, 144divcan2d 11421 . . . . . . . . 9 (𝑚 ∈ ℕ0 → ((!‘((𝑚 + 1) + 1)) · ((-1↑((𝑚 + 1) + 1)) / (!‘((𝑚 + 1) + 1)))) = (-1↑((𝑚 + 1) + 1)))
189187, 188oveq12d 7177 . . . . . . . 8 (𝑚 ∈ ℕ0 → (((!‘((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘((𝑚 + 1) + 1)) · ((-1↑((𝑚 + 1) + 1)) / (!‘((𝑚 + 1) + 1))))) = (((((𝑚 + 1) · ((!‘𝑚) · ((𝑚 + 1) + 1))) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + ((-1↑(𝑚 + 1)) · ((𝑚 + 1) + 1))) + (-1↑((𝑚 + 1) + 1))))
190171, 176mulcld 10664 . . . . . . . . . . 11 (𝑚 ∈ ℕ0 → ((!‘𝑚) · ((𝑚 + 1) + 1)) ∈ ℂ)
191172, 190, 158mulassd 10667 . . . . . . . . . 10 (𝑚 ∈ ℕ0 → (((𝑚 + 1) · ((!‘𝑚) · ((𝑚 + 1) + 1))) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) = ((𝑚 + 1) · (((!‘𝑚) · ((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘)))))
19272a1i 11 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ0 → -1 ∈ ℂ)
193160, 176, 192adddid 10668 . . . . . . . . . . . 12 (𝑚 ∈ ℕ0 → ((-1↑(𝑚 + 1)) · (((𝑚 + 1) + 1) + -1)) = (((-1↑(𝑚 + 1)) · ((𝑚 + 1) + 1)) + ((-1↑(𝑚 + 1)) · -1)))
194 negsub 10937 . . . . . . . . . . . . . . 15 ((((𝑚 + 1) + 1) ∈ ℂ ∧ 1 ∈ ℂ) → (((𝑚 + 1) + 1) + -1) = (((𝑚 + 1) + 1) − 1))
195176, 70, 194sylancl 588 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → (((𝑚 + 1) + 1) + -1) = (((𝑚 + 1) + 1) − 1))
196 pncan 10895 . . . . . . . . . . . . . . 15 (((𝑚 + 1) ∈ ℂ ∧ 1 ∈ ℂ) → (((𝑚 + 1) + 1) − 1) = (𝑚 + 1))
197172, 70, 196sylancl 588 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → (((𝑚 + 1) + 1) − 1) = (𝑚 + 1))
198195, 197eqtrd 2859 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ0 → (((𝑚 + 1) + 1) + -1) = (𝑚 + 1))
199198oveq2d 7175 . . . . . . . . . . . 12 (𝑚 ∈ ℕ0 → ((-1↑(𝑚 + 1)) · (((𝑚 + 1) + 1) + -1)) = ((-1↑(𝑚 + 1)) · (𝑚 + 1)))
200193, 199eqtr3d 2861 . . . . . . . . . . 11 (𝑚 ∈ ℕ0 → (((-1↑(𝑚 + 1)) · ((𝑚 + 1) + 1)) + ((-1↑(𝑚 + 1)) · -1)) = ((-1↑(𝑚 + 1)) · (𝑚 + 1)))
201 expp1 13439 . . . . . . . . . . . . 13 ((-1 ∈ ℂ ∧ (𝑚 + 1) ∈ ℕ0) → (-1↑((𝑚 + 1) + 1)) = ((-1↑(𝑚 + 1)) · -1))
20272, 131, 201sylancr 589 . . . . . . . . . . . 12 (𝑚 ∈ ℕ0 → (-1↑((𝑚 + 1) + 1)) = ((-1↑(𝑚 + 1)) · -1))
203202oveq2d 7175 . . . . . . . . . . 11 (𝑚 ∈ ℕ0 → (((-1↑(𝑚 + 1)) · ((𝑚 + 1) + 1)) + (-1↑((𝑚 + 1) + 1))) = (((-1↑(𝑚 + 1)) · ((𝑚 + 1) + 1)) + ((-1↑(𝑚 + 1)) · -1)))
204172, 160mulcomd 10665 . . . . . . . . . . 11 (𝑚 ∈ ℕ0 → ((𝑚 + 1) · (-1↑(𝑚 + 1))) = ((-1↑(𝑚 + 1)) · (𝑚 + 1)))
205200, 203, 2043eqtr4d 2869 . . . . . . . . . 10 (𝑚 ∈ ℕ0 → (((-1↑(𝑚 + 1)) · ((𝑚 + 1) + 1)) + (-1↑((𝑚 + 1) + 1))) = ((𝑚 + 1) · (-1↑(𝑚 + 1))))
206191, 205oveq12d 7177 . . . . . . . . 9 (𝑚 ∈ ℕ0 → ((((𝑚 + 1) · ((!‘𝑚) · ((𝑚 + 1) + 1))) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + (((-1↑(𝑚 + 1)) · ((𝑚 + 1) + 1)) + (-1↑((𝑚 + 1) + 1)))) = (((𝑚 + 1) · (((!‘𝑚) · ((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘)))) + ((𝑚 + 1) · (-1↑(𝑚 + 1)))))
207172, 190mulcld 10664 . . . . . . . . . . 11 (𝑚 ∈ ℕ0 → ((𝑚 + 1) · ((!‘𝑚) · ((𝑚 + 1) + 1))) ∈ ℂ)
208207, 158mulcld 10664 . . . . . . . . . 10 (𝑚 ∈ ℕ0 → (((𝑚 + 1) · ((!‘𝑚) · ((𝑚 + 1) + 1))) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) ∈ ℂ)
209160, 176mulcld 10664 . . . . . . . . . 10 (𝑚 ∈ ℕ0 → ((-1↑(𝑚 + 1)) · ((𝑚 + 1) + 1)) ∈ ℂ)
210208, 209, 143addassd 10666 . . . . . . . . 9 (𝑚 ∈ ℕ0 → (((((𝑚 + 1) · ((!‘𝑚) · ((𝑚 + 1) + 1))) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + ((-1↑(𝑚 + 1)) · ((𝑚 + 1) + 1))) + (-1↑((𝑚 + 1) + 1))) = ((((𝑚 + 1) · ((!‘𝑚) · ((𝑚 + 1) + 1))) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + (((-1↑(𝑚 + 1)) · ((𝑚 + 1) + 1)) + (-1↑((𝑚 + 1) + 1)))))
211190, 158mulcld 10664 . . . . . . . . . 10 (𝑚 ∈ ℕ0 → (((!‘𝑚) · ((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) ∈ ℂ)
212172, 211, 160adddid 10668 . . . . . . . . 9 (𝑚 ∈ ℕ0 → ((𝑚 + 1) · ((((!‘𝑚) · ((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + (-1↑(𝑚 + 1)))) = (((𝑚 + 1) · (((!‘𝑚) · ((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘)))) + ((𝑚 + 1) · (-1↑(𝑚 + 1)))))
213206, 210, 2123eqtr4d 2869 . . . . . . . 8 (𝑚 ∈ ℕ0 → (((((𝑚 + 1) · ((!‘𝑚) · ((𝑚 + 1) + 1))) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + ((-1↑(𝑚 + 1)) · ((𝑚 + 1) + 1))) + (-1↑((𝑚 + 1) + 1))) = ((𝑚 + 1) · ((((!‘𝑚) · ((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + (-1↑(𝑚 + 1)))))
214146, 189, 2133eqtrd 2863 . . . . . . 7 (𝑚 ∈ ℕ0 → ((!‘((𝑚 + 1) + 1)) · (Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘)) + ((-1↑((𝑚 + 1) + 1)) / (!‘((𝑚 + 1) + 1))))) = ((𝑚 + 1) · ((((!‘𝑚) · ((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + (-1↑(𝑚 + 1)))))
215131, 86eleqtrdi 2926 . . . . . . . . 9 (𝑚 ∈ ℕ0 → (𝑚 + 1) ∈ (ℤ‘0))
216 elfznn0 13003 . . . . . . . . . . 11 (𝑘 ∈ (0...((𝑚 + 1) + 1)) → 𝑘 ∈ ℕ0)
217216adantl 484 . . . . . . . . . 10 ((𝑚 ∈ ℕ0𝑘 ∈ (0...((𝑚 + 1) + 1))) → 𝑘 ∈ ℕ0)
218217, 102syl 17 . . . . . . . . 9 ((𝑚 ∈ ℕ0𝑘 ∈ (0...((𝑚 + 1) + 1))) → ((-1↑𝑘) / (!‘𝑘)) ∈ ℂ)
219 oveq2 7167 . . . . . . . . . 10 (𝑘 = ((𝑚 + 1) + 1) → (-1↑𝑘) = (-1↑((𝑚 + 1) + 1)))
220 fveq2 6673 . . . . . . . . . 10 (𝑘 = ((𝑚 + 1) + 1) → (!‘𝑘) = (!‘((𝑚 + 1) + 1)))
221219, 220oveq12d 7177 . . . . . . . . 9 (𝑘 = ((𝑚 + 1) + 1) → ((-1↑𝑘) / (!‘𝑘)) = ((-1↑((𝑚 + 1) + 1)) / (!‘((𝑚 + 1) + 1))))
222215, 218, 221fsump1 15114 . . . . . . . 8 (𝑚 ∈ ℕ0 → Σ𝑘 ∈ (0...((𝑚 + 1) + 1))((-1↑𝑘) / (!‘𝑘)) = (Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘)) + ((-1↑((𝑚 + 1) + 1)) / (!‘((𝑚 + 1) + 1)))))
223222oveq2d 7175 . . . . . . 7 (𝑚 ∈ ℕ0 → ((!‘((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...((𝑚 + 1) + 1))((-1↑𝑘) / (!‘𝑘))) = ((!‘((𝑚 + 1) + 1)) · (Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘)) + ((-1↑((𝑚 + 1) + 1)) / (!‘((𝑚 + 1) + 1))))))
224163, 158mulcld 10664 . . . . . . . . . 10 (𝑚 ∈ ℕ0 → ((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) ∈ ℂ)
225171, 158mulcld 10664 . . . . . . . . . 10 (𝑚 ∈ ℕ0 → ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) ∈ ℂ)
226224, 160, 225add32d 10870 . . . . . . . . 9 (𝑚 ∈ ℕ0 → ((((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + (-1↑(𝑚 + 1))) + ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘)))) = ((((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘)))) + (-1↑(𝑚 + 1))))
227152oveq2d 7175 . . . . . . . . . . 11 (𝑚 ∈ ℕ0 → ((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘))) = ((!‘(𝑚 + 1)) · (Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘)) + ((-1↑(𝑚 + 1)) / (!‘(𝑚 + 1))))))
228163, 158, 165adddid 10668 . . . . . . . . . . 11 (𝑚 ∈ ℕ0 → ((!‘(𝑚 + 1)) · (Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘)) + ((-1↑(𝑚 + 1)) / (!‘(𝑚 + 1))))) = (((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + ((!‘(𝑚 + 1)) · ((-1↑(𝑚 + 1)) / (!‘(𝑚 + 1))))))
229160, 163, 164divcan2d 11421 . . . . . . . . . . . 12 (𝑚 ∈ ℕ0 → ((!‘(𝑚 + 1)) · ((-1↑(𝑚 + 1)) / (!‘(𝑚 + 1)))) = (-1↑(𝑚 + 1)))
230229oveq2d 7175 . . . . . . . . . . 11 (𝑚 ∈ ℕ0 → (((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + ((!‘(𝑚 + 1)) · ((-1↑(𝑚 + 1)) / (!‘(𝑚 + 1))))) = (((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + (-1↑(𝑚 + 1))))
231227, 228, 2303eqtrd 2863 . . . . . . . . . 10 (𝑚 ∈ ℕ0 → ((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘))) = (((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + (-1↑(𝑚 + 1))))
232231oveq1d 7174 . . . . . . . . 9 (𝑚 ∈ ℕ0 → (((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘)))) = ((((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + (-1↑(𝑚 + 1))) + ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘)))))
23370a1i 11 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → 1 ∈ ℂ)
234171, 172, 233adddid 10668 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ0 → ((!‘𝑚) · ((𝑚 + 1) + 1)) = (((!‘𝑚) · (𝑚 + 1)) + ((!‘𝑚) · 1)))
235169eqcomd 2830 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → ((!‘𝑚) · (𝑚 + 1)) = (!‘(𝑚 + 1)))
236171mulid1d 10661 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ0 → ((!‘𝑚) · 1) = (!‘𝑚))
237235, 236oveq12d 7177 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ0 → (((!‘𝑚) · (𝑚 + 1)) + ((!‘𝑚) · 1)) = ((!‘(𝑚 + 1)) + (!‘𝑚)))
238234, 237eqtrd 2859 . . . . . . . . . . . 12 (𝑚 ∈ ℕ0 → ((!‘𝑚) · ((𝑚 + 1) + 1)) = ((!‘(𝑚 + 1)) + (!‘𝑚)))
239238oveq1d 7174 . . . . . . . . . . 11 (𝑚 ∈ ℕ0 → (((!‘𝑚) · ((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) = (((!‘(𝑚 + 1)) + (!‘𝑚)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))))
240163, 171, 158adddird 10669 . . . . . . . . . . 11 (𝑚 ∈ ℕ0 → (((!‘(𝑚 + 1)) + (!‘𝑚)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) = (((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘)))))
241239, 240eqtrd 2859 . . . . . . . . . 10 (𝑚 ∈ ℕ0 → (((!‘𝑚) · ((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) = (((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘)))))
242241oveq1d 7174 . . . . . . . . 9 (𝑚 ∈ ℕ0 → ((((!‘𝑚) · ((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + (-1↑(𝑚 + 1))) = ((((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘)))) + (-1↑(𝑚 + 1))))
243226, 232, 2423eqtr4d 2869 . . . . . . . 8 (𝑚 ∈ ℕ0 → (((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘)))) = ((((!‘𝑚) · ((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + (-1↑(𝑚 + 1))))
244243oveq2d 7175 . . . . . . 7 (𝑚 ∈ ℕ0 → ((𝑚 + 1) · (((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))))) = ((𝑚 + 1) · ((((!‘𝑚) · ((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) + (-1↑(𝑚 + 1)))))
245214, 223, 2443eqtr4d 2869 . . . . . 6 (𝑚 ∈ ℕ0 → ((!‘((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...((𝑚 + 1) + 1))((-1↑𝑘) / (!‘𝑘))) = ((𝑚 + 1) · (((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))))))
246130, 245eqeq12d 2840 . . . . 5 (𝑚 ∈ ℕ0 → ((𝑆‘((𝑚 + 1) + 1)) = ((!‘((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...((𝑚 + 1) + 1))((-1↑𝑘) / (!‘𝑘))) ↔ ((𝑚 + 1) · ((𝑆‘(𝑚 + 1)) + (𝑆𝑚))) = ((𝑚 + 1) · (((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘))) + ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘)))))))
247120, 246syl5ibr 248 . . . 4 (𝑚 ∈ ℕ0 → (((𝑆𝑚) = ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) ∧ (𝑆‘(𝑚 + 1)) = ((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘)))) → (𝑆‘((𝑚 + 1) + 1)) = ((!‘((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...((𝑚 + 1) + 1))((-1↑𝑘) / (!‘𝑘)))))
248117, 247jcad 515 . . 3 (𝑚 ∈ ℕ0 → (((𝑆𝑚) = ((!‘𝑚) · Σ𝑘 ∈ (0...𝑚)((-1↑𝑘) / (!‘𝑘))) ∧ (𝑆‘(𝑚 + 1)) = ((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘)))) → ((𝑆‘(𝑚 + 1)) = ((!‘(𝑚 + 1)) · Σ𝑘 ∈ (0...(𝑚 + 1))((-1↑𝑘) / (!‘𝑘))) ∧ (𝑆‘((𝑚 + 1) + 1)) = ((!‘((𝑚 + 1) + 1)) · Σ𝑘 ∈ (0...((𝑚 + 1) + 1))((-1↑𝑘) / (!‘𝑘))))))
24926, 40, 54, 68, 115, 248nn0ind 12080 . 2 (𝑁 ∈ ℕ0 → ((𝑆𝑁) = ((!‘𝑁) · Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘))) ∧ (𝑆‘(𝑁 + 1)) = ((!‘(𝑁 + 1)) · Σ𝑘 ∈ (0...(𝑁 + 1))((-1↑𝑘) / (!‘𝑘)))))
250249simpld 497 1 (𝑁 ∈ ℕ0 → (𝑆𝑁) = ((!‘𝑁) · Σ𝑘 ∈ (0...𝑁)((-1↑𝑘) / (!‘𝑘))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 398   = wceq 1536  wtru 1537  wcel 2113  {cab 2802  wne 3019  wral 3141  cmpt 5149  1-1-ontowf1o 6357  cfv 6358  (class class class)co 7159  Fincfn 8512  cc 10538  cr 10539  0cc0 10540  1c1 10541   + caddc 10543   · cmul 10545  cmin 10873  -cneg 10874   / cdiv 11300  cn 11641  0cn0 11900  cz 11984  cuz 12246  ...cfz 12895  cexp 13432  !cfa 13636  chash 13693  Σcsu 15045
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
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-om 7584  df-1st 7692  df-2nd 7693  df-wrecs 7950  df-recs 8011  df-rdg 8049  df-1o 8105  df-2o 8106  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-oi 8977  df-dju 9333  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-xnn0 11971  df-z 11985  df-uz 12247  df-rp 12393  df-fz 12896  df-fzo 13037  df-seq 13373  df-exp 13433  df-fac 13637  df-hash 13694  df-cj 14461  df-re 14462  df-im 14463  df-sqrt 14597  df-abs 14598  df-clim 14848  df-sum 15046
This theorem is referenced by:  subfaclim  32439
  Copyright terms: Public domain W3C validator