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 33838
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 6843 . . . . . 6 (๐‘ฅ = 0 โ†’ (๐‘†โ€˜๐‘ฅ) = (๐‘†โ€˜0))
2 derang.d . . . . . . 7 ๐ท = (๐‘ฅ โˆˆ Fin โ†ฆ (โ™ฏโ€˜{๐‘“ โˆฃ (๐‘“:๐‘ฅโ€“1-1-ontoโ†’๐‘ฅ โˆง โˆ€๐‘ฆ โˆˆ ๐‘ฅ (๐‘“โ€˜๐‘ฆ) โ‰  ๐‘ฆ)}))
3 subfac.n . . . . . . 7 ๐‘† = (๐‘› โˆˆ โ„•0 โ†ฆ (๐ทโ€˜(1...๐‘›)))
42, 3subfac0 33828 . . . . . 6 (๐‘†โ€˜0) = 1
51, 4eqtrdi 2789 . . . . 5 (๐‘ฅ = 0 โ†’ (๐‘†โ€˜๐‘ฅ) = 1)
6 fveq2 6843 . . . . . . 7 (๐‘ฅ = 0 โ†’ (!โ€˜๐‘ฅ) = (!โ€˜0))
7 fac0 14182 . . . . . . 7 (!โ€˜0) = 1
86, 7eqtrdi 2789 . . . . . 6 (๐‘ฅ = 0 โ†’ (!โ€˜๐‘ฅ) = 1)
9 oveq2 7366 . . . . . . 7 (๐‘ฅ = 0 โ†’ (0...๐‘ฅ) = (0...0))
109sumeq1d 15591 . . . . . 6 (๐‘ฅ = 0 โ†’ ฮฃ๐‘˜ โˆˆ (0...๐‘ฅ)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) = ฮฃ๐‘˜ โˆˆ (0...0)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))
118, 10oveq12d 7376 . . . . 5 (๐‘ฅ = 0 โ†’ ((!โ€˜๐‘ฅ) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘ฅ)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) = (1 ยท ฮฃ๐‘˜ โˆˆ (0...0)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))))
125, 11eqeq12d 2749 . . . 4 (๐‘ฅ = 0 โ†’ ((๐‘†โ€˜๐‘ฅ) = ((!โ€˜๐‘ฅ) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘ฅ)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) โ†” 1 = (1 ยท ฮฃ๐‘˜ โˆˆ (0...0)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))))
13 fv0p1e1 12281 . . . . . 6 (๐‘ฅ = 0 โ†’ (๐‘†โ€˜(๐‘ฅ + 1)) = (๐‘†โ€˜1))
142, 3subfac1 33829 . . . . . 6 (๐‘†โ€˜1) = 0
1513, 14eqtrdi 2789 . . . . 5 (๐‘ฅ = 0 โ†’ (๐‘†โ€˜(๐‘ฅ + 1)) = 0)
16 fv0p1e1 12281 . . . . . . 7 (๐‘ฅ = 0 โ†’ (!โ€˜(๐‘ฅ + 1)) = (!โ€˜1))
17 fac1 14183 . . . . . . 7 (!โ€˜1) = 1
1816, 17eqtrdi 2789 . . . . . 6 (๐‘ฅ = 0 โ†’ (!โ€˜(๐‘ฅ + 1)) = 1)
19 oveq1 7365 . . . . . . . . 9 (๐‘ฅ = 0 โ†’ (๐‘ฅ + 1) = (0 + 1))
20 0p1e1 12280 . . . . . . . . 9 (0 + 1) = 1
2119, 20eqtrdi 2789 . . . . . . . 8 (๐‘ฅ = 0 โ†’ (๐‘ฅ + 1) = 1)
2221oveq2d 7374 . . . . . . 7 (๐‘ฅ = 0 โ†’ (0...(๐‘ฅ + 1)) = (0...1))
2322sumeq1d 15591 . . . . . 6 (๐‘ฅ = 0 โ†’ ฮฃ๐‘˜ โˆˆ (0...(๐‘ฅ + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) = ฮฃ๐‘˜ โˆˆ (0...1)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))
2418, 23oveq12d 7376 . . . . 5 (๐‘ฅ = 0 โ†’ ((!โ€˜(๐‘ฅ + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘ฅ + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) = (1 ยท ฮฃ๐‘˜ โˆˆ (0...1)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))))
2515, 24eqeq12d 2749 . . . 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 6843 . . . . 5 (๐‘ฅ = ๐‘š โ†’ (๐‘†โ€˜๐‘ฅ) = (๐‘†โ€˜๐‘š))
28 fveq2 6843 . . . . . 6 (๐‘ฅ = ๐‘š โ†’ (!โ€˜๐‘ฅ) = (!โ€˜๐‘š))
29 oveq2 7366 . . . . . . 7 (๐‘ฅ = ๐‘š โ†’ (0...๐‘ฅ) = (0...๐‘š))
3029sumeq1d 15591 . . . . . 6 (๐‘ฅ = ๐‘š โ†’ ฮฃ๐‘˜ โˆˆ (0...๐‘ฅ)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) = ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))
3128, 30oveq12d 7376 . . . . 5 (๐‘ฅ = ๐‘š โ†’ ((!โ€˜๐‘ฅ) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘ฅ)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) = ((!โ€˜๐‘š) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))))
3227, 31eqeq12d 2749 . . . 4 (๐‘ฅ = ๐‘š โ†’ ((๐‘†โ€˜๐‘ฅ) = ((!โ€˜๐‘ฅ) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘ฅ)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) โ†” (๐‘†โ€˜๐‘š) = ((!โ€˜๐‘š) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))))
33 fvoveq1 7381 . . . . 5 (๐‘ฅ = ๐‘š โ†’ (๐‘†โ€˜(๐‘ฅ + 1)) = (๐‘†โ€˜(๐‘š + 1)))
34 fvoveq1 7381 . . . . . 6 (๐‘ฅ = ๐‘š โ†’ (!โ€˜(๐‘ฅ + 1)) = (!โ€˜(๐‘š + 1)))
35 oveq1 7365 . . . . . . . 8 (๐‘ฅ = ๐‘š โ†’ (๐‘ฅ + 1) = (๐‘š + 1))
3635oveq2d 7374 . . . . . . 7 (๐‘ฅ = ๐‘š โ†’ (0...(๐‘ฅ + 1)) = (0...(๐‘š + 1)))
3736sumeq1d 15591 . . . . . 6 (๐‘ฅ = ๐‘š โ†’ ฮฃ๐‘˜ โˆˆ (0...(๐‘ฅ + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) = ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))
3834, 37oveq12d 7376 . . . . 5 (๐‘ฅ = ๐‘š โ†’ ((!โ€˜(๐‘ฅ + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘ฅ + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) = ((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))))
3933, 38eqeq12d 2749 . . . 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 6843 . . . . 5 (๐‘ฅ = (๐‘š + 1) โ†’ (๐‘†โ€˜๐‘ฅ) = (๐‘†โ€˜(๐‘š + 1)))
42 fveq2 6843 . . . . . 6 (๐‘ฅ = (๐‘š + 1) โ†’ (!โ€˜๐‘ฅ) = (!โ€˜(๐‘š + 1)))
43 oveq2 7366 . . . . . . 7 (๐‘ฅ = (๐‘š + 1) โ†’ (0...๐‘ฅ) = (0...(๐‘š + 1)))
4443sumeq1d 15591 . . . . . 6 (๐‘ฅ = (๐‘š + 1) โ†’ ฮฃ๐‘˜ โˆˆ (0...๐‘ฅ)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) = ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))
4542, 44oveq12d 7376 . . . . 5 (๐‘ฅ = (๐‘š + 1) โ†’ ((!โ€˜๐‘ฅ) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘ฅ)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) = ((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))))
4641, 45eqeq12d 2749 . . . 4 (๐‘ฅ = (๐‘š + 1) โ†’ ((๐‘†โ€˜๐‘ฅ) = ((!โ€˜๐‘ฅ) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘ฅ)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) โ†” (๐‘†โ€˜(๐‘š + 1)) = ((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))))
47 fvoveq1 7381 . . . . 5 (๐‘ฅ = (๐‘š + 1) โ†’ (๐‘†โ€˜(๐‘ฅ + 1)) = (๐‘†โ€˜((๐‘š + 1) + 1)))
48 fvoveq1 7381 . . . . . 6 (๐‘ฅ = (๐‘š + 1) โ†’ (!โ€˜(๐‘ฅ + 1)) = (!โ€˜((๐‘š + 1) + 1)))
49 oveq1 7365 . . . . . . . 8 (๐‘ฅ = (๐‘š + 1) โ†’ (๐‘ฅ + 1) = ((๐‘š + 1) + 1))
5049oveq2d 7374 . . . . . . 7 (๐‘ฅ = (๐‘š + 1) โ†’ (0...(๐‘ฅ + 1)) = (0...((๐‘š + 1) + 1)))
5150sumeq1d 15591 . . . . . 6 (๐‘ฅ = (๐‘š + 1) โ†’ ฮฃ๐‘˜ โˆˆ (0...(๐‘ฅ + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) = ฮฃ๐‘˜ โˆˆ (0...((๐‘š + 1) + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))
5248, 51oveq12d 7376 . . . . 5 (๐‘ฅ = (๐‘š + 1) โ†’ ((!โ€˜(๐‘ฅ + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘ฅ + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) = ((!โ€˜((๐‘š + 1) + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...((๐‘š + 1) + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))))
5347, 52eqeq12d 2749 . . . 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 6843 . . . . 5 (๐‘ฅ = ๐‘ โ†’ (๐‘†โ€˜๐‘ฅ) = (๐‘†โ€˜๐‘))
56 fveq2 6843 . . . . . 6 (๐‘ฅ = ๐‘ โ†’ (!โ€˜๐‘ฅ) = (!โ€˜๐‘))
57 oveq2 7366 . . . . . . 7 (๐‘ฅ = ๐‘ โ†’ (0...๐‘ฅ) = (0...๐‘))
5857sumeq1d 15591 . . . . . 6 (๐‘ฅ = ๐‘ โ†’ ฮฃ๐‘˜ โˆˆ (0...๐‘ฅ)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) = ฮฃ๐‘˜ โˆˆ (0...๐‘)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))
5956, 58oveq12d 7376 . . . . 5 (๐‘ฅ = ๐‘ โ†’ ((!โ€˜๐‘ฅ) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘ฅ)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) = ((!โ€˜๐‘) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))))
6055, 59eqeq12d 2749 . . . 4 (๐‘ฅ = ๐‘ โ†’ ((๐‘†โ€˜๐‘ฅ) = ((!โ€˜๐‘ฅ) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘ฅ)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) โ†” (๐‘†โ€˜๐‘) = ((!โ€˜๐‘) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))))
61 fvoveq1 7381 . . . . 5 (๐‘ฅ = ๐‘ โ†’ (๐‘†โ€˜(๐‘ฅ + 1)) = (๐‘†โ€˜(๐‘ + 1)))
62 fvoveq1 7381 . . . . . 6 (๐‘ฅ = ๐‘ โ†’ (!โ€˜(๐‘ฅ + 1)) = (!โ€˜(๐‘ + 1)))
63 oveq1 7365 . . . . . . . 8 (๐‘ฅ = ๐‘ โ†’ (๐‘ฅ + 1) = (๐‘ + 1))
6463oveq2d 7374 . . . . . . 7 (๐‘ฅ = ๐‘ โ†’ (0...(๐‘ฅ + 1)) = (0...(๐‘ + 1)))
6564sumeq1d 15591 . . . . . 6 (๐‘ฅ = ๐‘ โ†’ ฮฃ๐‘˜ โˆˆ (0...(๐‘ฅ + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) = ฮฃ๐‘˜ โˆˆ (0...(๐‘ + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))
6662, 65oveq12d 7376 . . . . 5 (๐‘ฅ = ๐‘ โ†’ ((!โ€˜(๐‘ฅ + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘ฅ + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) = ((!โ€˜(๐‘ + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘ + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))))
6761, 66eqeq12d 2749 . . . 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 12515 . . . . . . 7 0 โˆˆ โ„ค
70 ax-1cn 11114 . . . . . . 7 1 โˆˆ โ„‚
71 oveq2 7366 . . . . . . . . . . 11 (๐‘˜ = 0 โ†’ (-1โ†‘๐‘˜) = (-1โ†‘0))
72 neg1cn 12272 . . . . . . . . . . . 12 -1 โˆˆ โ„‚
73 exp0 13977 . . . . . . . . . . . 12 (-1 โˆˆ โ„‚ โ†’ (-1โ†‘0) = 1)
7472, 73ax-mp 5 . . . . . . . . . . 11 (-1โ†‘0) = 1
7571, 74eqtrdi 2789 . . . . . . . . . 10 (๐‘˜ = 0 โ†’ (-1โ†‘๐‘˜) = 1)
76 fveq2 6843 . . . . . . . . . . 11 (๐‘˜ = 0 โ†’ (!โ€˜๐‘˜) = (!โ€˜0))
7776, 7eqtrdi 2789 . . . . . . . . . 10 (๐‘˜ = 0 โ†’ (!โ€˜๐‘˜) = 1)
7875, 77oveq12d 7376 . . . . . . . . 9 (๐‘˜ = 0 โ†’ ((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) = (1 / 1))
7970div1i 11888 . . . . . . . . 9 (1 / 1) = 1
8078, 79eqtrdi 2789 . . . . . . . 8 (๐‘˜ = 0 โ†’ ((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) = 1)
8180fsum1 15637 . . . . . . 7 ((0 โˆˆ โ„ค โˆง 1 โˆˆ โ„‚) โ†’ ฮฃ๐‘˜ โˆˆ (0...0)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) = 1)
8269, 70, 81mp2an 691 . . . . . 6 ฮฃ๐‘˜ โˆˆ (0...0)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) = 1
8382oveq2i 7369 . . . . 5 (1 ยท ฮฃ๐‘˜ โˆˆ (0...0)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) = (1 ยท 1)
84 1t1e1 12320 . . . . 5 (1 ยท 1) = 1
8583, 84eqtr2i 2762 . . . 4 1 = (1 ยท ฮฃ๐‘˜ โˆˆ (0...0)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))
86 nn0uz 12810 . . . . . . . . 9 โ„•0 = (โ„คโ‰ฅโ€˜0)
87 1e0p1 12665 . . . . . . . . 9 1 = (0 + 1)
88 oveq2 7366 . . . . . . . . . . . 12 (๐‘˜ = 1 โ†’ (-1โ†‘๐‘˜) = (-1โ†‘1))
89 exp1 13979 . . . . . . . . . . . . 13 (-1 โˆˆ โ„‚ โ†’ (-1โ†‘1) = -1)
9072, 89ax-mp 5 . . . . . . . . . . . 12 (-1โ†‘1) = -1
9188, 90eqtrdi 2789 . . . . . . . . . . 11 (๐‘˜ = 1 โ†’ (-1โ†‘๐‘˜) = -1)
92 fveq2 6843 . . . . . . . . . . . 12 (๐‘˜ = 1 โ†’ (!โ€˜๐‘˜) = (!โ€˜1))
9392, 17eqtrdi 2789 . . . . . . . . . . 11 (๐‘˜ = 1 โ†’ (!โ€˜๐‘˜) = 1)
9491, 93oveq12d 7376 . . . . . . . . . 10 (๐‘˜ = 1 โ†’ ((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) = (-1 / 1))
9572div1i 11888 . . . . . . . . . 10 (-1 / 1) = -1
9694, 95eqtrdi 2789 . . . . . . . . 9 (๐‘˜ = 1 โ†’ ((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) = -1)
97 neg1rr 12273 . . . . . . . . . . . . 13 -1 โˆˆ โ„
98 reexpcl 13990 . . . . . . . . . . . . 13 ((-1 โˆˆ โ„ โˆง ๐‘˜ โˆˆ โ„•0) โ†’ (-1โ†‘๐‘˜) โˆˆ โ„)
9997, 98mpan 689 . . . . . . . . . . . 12 (๐‘˜ โˆˆ โ„•0 โ†’ (-1โ†‘๐‘˜) โˆˆ โ„)
100 faccl 14189 . . . . . . . . . . . 12 (๐‘˜ โˆˆ โ„•0 โ†’ (!โ€˜๐‘˜) โˆˆ โ„•)
10199, 100nndivred 12212 . . . . . . . . . . 11 (๐‘˜ โˆˆ โ„•0 โ†’ ((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) โˆˆ โ„)
102101recnd 11188 . . . . . . . . . 10 (๐‘˜ โˆˆ โ„•0 โ†’ ((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) โˆˆ โ„‚)
103102adantl 483 . . . . . . . . 9 ((โŠค โˆง ๐‘˜ โˆˆ โ„•0) โ†’ ((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) โˆˆ โ„‚)
104 0nn0 12433 . . . . . . . . . . 11 0 โˆˆ โ„•0
105104, 82pm3.2i 472 . . . . . . . . . 10 (0 โˆˆ โ„•0 โˆง ฮฃ๐‘˜ โˆˆ (0...0)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) = 1)
106105a1i 11 . . . . . . . . 9 (โŠค โ†’ (0 โˆˆ โ„•0 โˆง ฮฃ๐‘˜ โˆˆ (0...0)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) = 1))
107 1pneg1e0 12277 . . . . . . . . . 10 (1 + -1) = 0
108107a1i 11 . . . . . . . . 9 (โŠค โ†’ (1 + -1) = 0)
10986, 87, 96, 103, 106, 108fsump1i 15659 . . . . . . . 8 (โŠค โ†’ (1 โˆˆ โ„•0 โˆง ฮฃ๐‘˜ โˆˆ (0...1)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) = 0))
110109mptru 1549 . . . . . . 7 (1 โˆˆ โ„•0 โˆง ฮฃ๐‘˜ โˆˆ (0...1)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) = 0)
111110simpri 487 . . . . . 6 ฮฃ๐‘˜ โˆˆ (0...1)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) = 0
112111oveq2i 7369 . . . . 5 (1 ยท ฮฃ๐‘˜ โˆˆ (0...1)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) = (1 ยท 0)
11370mul01i 11350 . . . . 5 (1 ยท 0) = 0
114112, 113eqtr2i 2762 . . . 4 0 = (1 ยท ฮฃ๐‘˜ โˆˆ (0...1)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))
11585, 114pm3.2i 472 . . 3 (1 = (1 ยท ฮฃ๐‘˜ โˆˆ (0...0)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) โˆง 0 = (1 ยท ฮฃ๐‘˜ โˆˆ (0...1)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))))
116 simpr 486 . . . . 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 7367 . . . . . . 7 (((๐‘†โ€˜(๐‘š + 1)) = ((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) โˆง (๐‘†โ€˜๐‘š) = ((!โ€˜๐‘š) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))) โ†’ ((๐‘†โ€˜(๐‘š + 1)) + (๐‘†โ€˜๐‘š)) = (((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + ((!โ€˜๐‘š) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))))
119118ancoms 460 . . . . . 6 (((๐‘†โ€˜๐‘š) = ((!โ€˜๐‘š) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) โˆง (๐‘†โ€˜(๐‘š + 1)) = ((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))) โ†’ ((๐‘†โ€˜(๐‘š + 1)) + (๐‘†โ€˜๐‘š)) = (((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + ((!โ€˜๐‘š) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))))
120119oveq2d 7374 . . . . 5 (((๐‘†โ€˜๐‘š) = ((!โ€˜๐‘š) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) โˆง (๐‘†โ€˜(๐‘š + 1)) = ((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))) โ†’ ((๐‘š + 1) ยท ((๐‘†โ€˜(๐‘š + 1)) + (๐‘†โ€˜๐‘š))) = ((๐‘š + 1) ยท (((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + ((!โ€˜๐‘š) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))))))
121 nn0p1nn 12457 . . . . . . . 8 (๐‘š โˆˆ โ„•0 โ†’ (๐‘š + 1) โˆˆ โ„•)
1222, 3subfacp1 33837 . . . . . . . 8 ((๐‘š + 1) โˆˆ โ„• โ†’ (๐‘†โ€˜((๐‘š + 1) + 1)) = ((๐‘š + 1) ยท ((๐‘†โ€˜(๐‘š + 1)) + (๐‘†โ€˜((๐‘š + 1) โˆ’ 1)))))
123121, 122syl 17 . . . . . . 7 (๐‘š โˆˆ โ„•0 โ†’ (๐‘†โ€˜((๐‘š + 1) + 1)) = ((๐‘š + 1) ยท ((๐‘†โ€˜(๐‘š + 1)) + (๐‘†โ€˜((๐‘š + 1) โˆ’ 1)))))
124 nn0cn 12428 . . . . . . . . . . 11 (๐‘š โˆˆ โ„•0 โ†’ ๐‘š โˆˆ โ„‚)
125 pncan 11412 . . . . . . . . . . 11 ((๐‘š โˆˆ โ„‚ โˆง 1 โˆˆ โ„‚) โ†’ ((๐‘š + 1) โˆ’ 1) = ๐‘š)
126124, 70, 125sylancl 587 . . . . . . . . . 10 (๐‘š โˆˆ โ„•0 โ†’ ((๐‘š + 1) โˆ’ 1) = ๐‘š)
127126fveq2d 6847 . . . . . . . . 9 (๐‘š โˆˆ โ„•0 โ†’ (๐‘†โ€˜((๐‘š + 1) โˆ’ 1)) = (๐‘†โ€˜๐‘š))
128127oveq2d 7374 . . . . . . . 8 (๐‘š โˆˆ โ„•0 โ†’ ((๐‘†โ€˜(๐‘š + 1)) + (๐‘†โ€˜((๐‘š + 1) โˆ’ 1))) = ((๐‘†โ€˜(๐‘š + 1)) + (๐‘†โ€˜๐‘š)))
129128oveq2d 7374 . . . . . . 7 (๐‘š โˆˆ โ„•0 โ†’ ((๐‘š + 1) ยท ((๐‘†โ€˜(๐‘š + 1)) + (๐‘†โ€˜((๐‘š + 1) โˆ’ 1)))) = ((๐‘š + 1) ยท ((๐‘†โ€˜(๐‘š + 1)) + (๐‘†โ€˜๐‘š))))
130123, 129eqtrd 2773 . . . . . 6 (๐‘š โˆˆ โ„•0 โ†’ (๐‘†โ€˜((๐‘š + 1) + 1)) = ((๐‘š + 1) ยท ((๐‘†โ€˜(๐‘š + 1)) + (๐‘†โ€˜๐‘š))))
131 peano2nn0 12458 . . . . . . . . . . . 12 (๐‘š โˆˆ โ„•0 โ†’ (๐‘š + 1) โˆˆ โ„•0)
132 peano2nn0 12458 . . . . . . . . . . . 12 ((๐‘š + 1) โˆˆ โ„•0 โ†’ ((๐‘š + 1) + 1) โˆˆ โ„•0)
133131, 132syl 17 . . . . . . . . . . 11 (๐‘š โˆˆ โ„•0 โ†’ ((๐‘š + 1) + 1) โˆˆ โ„•0)
134 faccl 14189 . . . . . . . . . . 11 (((๐‘š + 1) + 1) โˆˆ โ„•0 โ†’ (!โ€˜((๐‘š + 1) + 1)) โˆˆ โ„•)
135133, 134syl 17 . . . . . . . . . 10 (๐‘š โˆˆ โ„•0 โ†’ (!โ€˜((๐‘š + 1) + 1)) โˆˆ โ„•)
136135nncnd 12174 . . . . . . . . 9 (๐‘š โˆˆ โ„•0 โ†’ (!โ€˜((๐‘š + 1) + 1)) โˆˆ โ„‚)
137 fzfid 13884 . . . . . . . . . 10 (๐‘š โˆˆ โ„•0 โ†’ (0...(๐‘š + 1)) โˆˆ Fin)
138 elfznn0 13540 . . . . . . . . . . . 12 (๐‘˜ โˆˆ (0...(๐‘š + 1)) โ†’ ๐‘˜ โˆˆ โ„•0)
139138adantl 483 . . . . . . . . . . 11 ((๐‘š โˆˆ โ„•0 โˆง ๐‘˜ โˆˆ (0...(๐‘š + 1))) โ†’ ๐‘˜ โˆˆ โ„•0)
140139, 102syl 17 . . . . . . . . . 10 ((๐‘š โˆˆ โ„•0 โˆง ๐‘˜ โˆˆ (0...(๐‘š + 1))) โ†’ ((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) โˆˆ โ„‚)
141137, 140fsumcl 15623 . . . . . . . . 9 (๐‘š โˆˆ โ„•0 โ†’ ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) โˆˆ โ„‚)
142 expcl 13991 . . . . . . . . . . 11 ((-1 โˆˆ โ„‚ โˆง ((๐‘š + 1) + 1) โˆˆ โ„•0) โ†’ (-1โ†‘((๐‘š + 1) + 1)) โˆˆ โ„‚)
14372, 133, 142sylancr 588 . . . . . . . . . 10 (๐‘š โˆˆ โ„•0 โ†’ (-1โ†‘((๐‘š + 1) + 1)) โˆˆ โ„‚)
144135nnne0d 12208 . . . . . . . . . 10 (๐‘š โˆˆ โ„•0 โ†’ (!โ€˜((๐‘š + 1) + 1)) โ‰  0)
145143, 136, 144divcld 11936 . . . . . . . . 9 (๐‘š โˆˆ โ„•0 โ†’ ((-1โ†‘((๐‘š + 1) + 1)) / (!โ€˜((๐‘š + 1) + 1))) โˆˆ โ„‚)
146136, 141, 145adddid 11184 . . . . . . . 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 2844 . . . . . . . . . . . 12 (๐‘š โˆˆ โ„•0 โ†’ ๐‘š โˆˆ (โ„คโ‰ฅโ€˜0))
149 oveq2 7366 . . . . . . . . . . . . 13 (๐‘˜ = (๐‘š + 1) โ†’ (-1โ†‘๐‘˜) = (-1โ†‘(๐‘š + 1)))
150 fveq2 6843 . . . . . . . . . . . . 13 (๐‘˜ = (๐‘š + 1) โ†’ (!โ€˜๐‘˜) = (!โ€˜(๐‘š + 1)))
151149, 150oveq12d 7376 . . . . . . . . . . . 12 (๐‘˜ = (๐‘š + 1) โ†’ ((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) = ((-1โ†‘(๐‘š + 1)) / (!โ€˜(๐‘š + 1))))
152148, 140, 151fsump1 15646 . . . . . . . . . . 11 (๐‘š โˆˆ โ„•0 โ†’ ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) = (ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) + ((-1โ†‘(๐‘š + 1)) / (!โ€˜(๐‘š + 1)))))
153152oveq2d 7374 . . . . . . . . . 10 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜((๐‘š + 1) + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) = ((!โ€˜((๐‘š + 1) + 1)) ยท (ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) + ((-1โ†‘(๐‘š + 1)) / (!โ€˜(๐‘š + 1))))))
154 fzfid 13884 . . . . . . . . . . . 12 (๐‘š โˆˆ โ„•0 โ†’ (0...๐‘š) โˆˆ Fin)
155 elfznn0 13540 . . . . . . . . . . . . . 14 (๐‘˜ โˆˆ (0...๐‘š) โ†’ ๐‘˜ โˆˆ โ„•0)
156155adantl 483 . . . . . . . . . . . . 13 ((๐‘š โˆˆ โ„•0 โˆง ๐‘˜ โˆˆ (0...๐‘š)) โ†’ ๐‘˜ โˆˆ โ„•0)
157156, 102syl 17 . . . . . . . . . . . 12 ((๐‘š โˆˆ โ„•0 โˆง ๐‘˜ โˆˆ (0...๐‘š)) โ†’ ((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) โˆˆ โ„‚)
158154, 157fsumcl 15623 . . . . . . . . . . 11 (๐‘š โˆˆ โ„•0 โ†’ ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) โˆˆ โ„‚)
159 expcl 13991 . . . . . . . . . . . . 13 ((-1 โˆˆ โ„‚ โˆง (๐‘š + 1) โˆˆ โ„•0) โ†’ (-1โ†‘(๐‘š + 1)) โˆˆ โ„‚)
16072, 131, 159sylancr 588 . . . . . . . . . . . 12 (๐‘š โˆˆ โ„•0 โ†’ (-1โ†‘(๐‘š + 1)) โˆˆ โ„‚)
161 faccl 14189 . . . . . . . . . . . . . 14 ((๐‘š + 1) โˆˆ โ„•0 โ†’ (!โ€˜(๐‘š + 1)) โˆˆ โ„•)
162131, 161syl 17 . . . . . . . . . . . . 13 (๐‘š โˆˆ โ„•0 โ†’ (!โ€˜(๐‘š + 1)) โˆˆ โ„•)
163162nncnd 12174 . . . . . . . . . . . 12 (๐‘š โˆˆ โ„•0 โ†’ (!โ€˜(๐‘š + 1)) โˆˆ โ„‚)
164162nnne0d 12208 . . . . . . . . . . . 12 (๐‘š โˆˆ โ„•0 โ†’ (!โ€˜(๐‘š + 1)) โ‰  0)
165160, 163, 164divcld 11936 . . . . . . . . . . 11 (๐‘š โˆˆ โ„•0 โ†’ ((-1โ†‘(๐‘š + 1)) / (!โ€˜(๐‘š + 1))) โˆˆ โ„‚)
166136, 158, 165adddid 11184 . . . . . . . . . 10 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜((๐‘š + 1) + 1)) ยท (ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) + ((-1โ†‘(๐‘š + 1)) / (!โ€˜(๐‘š + 1))))) = (((!โ€˜((๐‘š + 1) + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + ((!โ€˜((๐‘š + 1) + 1)) ยท ((-1โ†‘(๐‘š + 1)) / (!โ€˜(๐‘š + 1))))))
167 facp1 14184 . . . . . . . . . . . . . 14 ((๐‘š + 1) โˆˆ โ„•0 โ†’ (!โ€˜((๐‘š + 1) + 1)) = ((!โ€˜(๐‘š + 1)) ยท ((๐‘š + 1) + 1)))
168131, 167syl 17 . . . . . . . . . . . . 13 (๐‘š โˆˆ โ„•0 โ†’ (!โ€˜((๐‘š + 1) + 1)) = ((!โ€˜(๐‘š + 1)) ยท ((๐‘š + 1) + 1)))
169 facp1 14184 . . . . . . . . . . . . . . 15 (๐‘š โˆˆ โ„•0 โ†’ (!โ€˜(๐‘š + 1)) = ((!โ€˜๐‘š) ยท (๐‘š + 1)))
170 faccl 14189 . . . . . . . . . . . . . . . . 17 (๐‘š โˆˆ โ„•0 โ†’ (!โ€˜๐‘š) โˆˆ โ„•)
171170nncnd 12174 . . . . . . . . . . . . . . . 16 (๐‘š โˆˆ โ„•0 โ†’ (!โ€˜๐‘š) โˆˆ โ„‚)
172121nncnd 12174 . . . . . . . . . . . . . . . 16 (๐‘š โˆˆ โ„•0 โ†’ (๐‘š + 1) โˆˆ โ„‚)
173171, 172mulcomd 11181 . . . . . . . . . . . . . . 15 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜๐‘š) ยท (๐‘š + 1)) = ((๐‘š + 1) ยท (!โ€˜๐‘š)))
174169, 173eqtrd 2773 . . . . . . . . . . . . . 14 (๐‘š โˆˆ โ„•0 โ†’ (!โ€˜(๐‘š + 1)) = ((๐‘š + 1) ยท (!โ€˜๐‘š)))
175174oveq1d 7373 . . . . . . . . . . . . 13 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜(๐‘š + 1)) ยท ((๐‘š + 1) + 1)) = (((๐‘š + 1) ยท (!โ€˜๐‘š)) ยท ((๐‘š + 1) + 1)))
176133nn0cnd 12480 . . . . . . . . . . . . . 14 (๐‘š โˆˆ โ„•0 โ†’ ((๐‘š + 1) + 1) โˆˆ โ„‚)
177172, 171, 176mulassd 11183 . . . . . . . . . . . . 13 (๐‘š โˆˆ โ„•0 โ†’ (((๐‘š + 1) ยท (!โ€˜๐‘š)) ยท ((๐‘š + 1) + 1)) = ((๐‘š + 1) ยท ((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1))))
178168, 175, 1773eqtrd 2777 . . . . . . . . . . . 12 (๐‘š โˆˆ โ„•0 โ†’ (!โ€˜((๐‘š + 1) + 1)) = ((๐‘š + 1) ยท ((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1))))
179178oveq1d 7373 . . . . . . . . . . 11 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜((๐‘š + 1) + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) = (((๐‘š + 1) ยท ((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1))) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))))
180136, 160, 163, 164div12d 11972 . . . . . . . . . . . 12 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜((๐‘š + 1) + 1)) ยท ((-1โ†‘(๐‘š + 1)) / (!โ€˜(๐‘š + 1)))) = ((-1โ†‘(๐‘š + 1)) ยท ((!โ€˜((๐‘š + 1) + 1)) / (!โ€˜(๐‘š + 1)))))
181168oveq1d 7373 . . . . . . . . . . . . . 14 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜((๐‘š + 1) + 1)) / (!โ€˜(๐‘š + 1))) = (((!โ€˜(๐‘š + 1)) ยท ((๐‘š + 1) + 1)) / (!โ€˜(๐‘š + 1))))
182176, 163, 164divcan3d 11941 . . . . . . . . . . . . . 14 (๐‘š โˆˆ โ„•0 โ†’ (((!โ€˜(๐‘š + 1)) ยท ((๐‘š + 1) + 1)) / (!โ€˜(๐‘š + 1))) = ((๐‘š + 1) + 1))
183181, 182eqtrd 2773 . . . . . . . . . . . . 13 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜((๐‘š + 1) + 1)) / (!โ€˜(๐‘š + 1))) = ((๐‘š + 1) + 1))
184183oveq2d 7374 . . . . . . . . . . . 12 (๐‘š โˆˆ โ„•0 โ†’ ((-1โ†‘(๐‘š + 1)) ยท ((!โ€˜((๐‘š + 1) + 1)) / (!โ€˜(๐‘š + 1)))) = ((-1โ†‘(๐‘š + 1)) ยท ((๐‘š + 1) + 1)))
185180, 184eqtrd 2773 . . . . . . . . . . 11 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜((๐‘š + 1) + 1)) ยท ((-1โ†‘(๐‘š + 1)) / (!โ€˜(๐‘š + 1)))) = ((-1โ†‘(๐‘š + 1)) ยท ((๐‘š + 1) + 1)))
186179, 185oveq12d 7376 . . . . . . . . . 10 (๐‘š โˆˆ โ„•0 โ†’ (((!โ€˜((๐‘š + 1) + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + ((!โ€˜((๐‘š + 1) + 1)) ยท ((-1โ†‘(๐‘š + 1)) / (!โ€˜(๐‘š + 1))))) = ((((๐‘š + 1) ยท ((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1))) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + ((-1โ†‘(๐‘š + 1)) ยท ((๐‘š + 1) + 1))))
187153, 166, 1863eqtrd 2777 . . . . . . . . 9 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜((๐‘š + 1) + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) = ((((๐‘š + 1) ยท ((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1))) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + ((-1โ†‘(๐‘š + 1)) ยท ((๐‘š + 1) + 1))))
188143, 136, 144divcan2d 11938 . . . . . . . . 9 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜((๐‘š + 1) + 1)) ยท ((-1โ†‘((๐‘š + 1) + 1)) / (!โ€˜((๐‘š + 1) + 1)))) = (-1โ†‘((๐‘š + 1) + 1)))
189187, 188oveq12d 7376 . . . . . . . 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 11180 . . . . . . . . . . 11 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1)) โˆˆ โ„‚)
191172, 190, 158mulassd 11183 . . . . . . . . . 10 (๐‘š โˆˆ โ„•0 โ†’ (((๐‘š + 1) ยท ((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1))) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) = ((๐‘š + 1) ยท (((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))))
19272a1i 11 . . . . . . . . . . . . 13 (๐‘š โˆˆ โ„•0 โ†’ -1 โˆˆ โ„‚)
193160, 176, 192adddid 11184 . . . . . . . . . . . 12 (๐‘š โˆˆ โ„•0 โ†’ ((-1โ†‘(๐‘š + 1)) ยท (((๐‘š + 1) + 1) + -1)) = (((-1โ†‘(๐‘š + 1)) ยท ((๐‘š + 1) + 1)) + ((-1โ†‘(๐‘š + 1)) ยท -1)))
194 negsub 11454 . . . . . . . . . . . . . . 15 ((((๐‘š + 1) + 1) โˆˆ โ„‚ โˆง 1 โˆˆ โ„‚) โ†’ (((๐‘š + 1) + 1) + -1) = (((๐‘š + 1) + 1) โˆ’ 1))
195176, 70, 194sylancl 587 . . . . . . . . . . . . . 14 (๐‘š โˆˆ โ„•0 โ†’ (((๐‘š + 1) + 1) + -1) = (((๐‘š + 1) + 1) โˆ’ 1))
196 pncan 11412 . . . . . . . . . . . . . . 15 (((๐‘š + 1) โˆˆ โ„‚ โˆง 1 โˆˆ โ„‚) โ†’ (((๐‘š + 1) + 1) โˆ’ 1) = (๐‘š + 1))
197172, 70, 196sylancl 587 . . . . . . . . . . . . . 14 (๐‘š โˆˆ โ„•0 โ†’ (((๐‘š + 1) + 1) โˆ’ 1) = (๐‘š + 1))
198195, 197eqtrd 2773 . . . . . . . . . . . . 13 (๐‘š โˆˆ โ„•0 โ†’ (((๐‘š + 1) + 1) + -1) = (๐‘š + 1))
199198oveq2d 7374 . . . . . . . . . . . 12 (๐‘š โˆˆ โ„•0 โ†’ ((-1โ†‘(๐‘š + 1)) ยท (((๐‘š + 1) + 1) + -1)) = ((-1โ†‘(๐‘š + 1)) ยท (๐‘š + 1)))
200193, 199eqtr3d 2775 . . . . . . . . . . 11 (๐‘š โˆˆ โ„•0 โ†’ (((-1โ†‘(๐‘š + 1)) ยท ((๐‘š + 1) + 1)) + ((-1โ†‘(๐‘š + 1)) ยท -1)) = ((-1โ†‘(๐‘š + 1)) ยท (๐‘š + 1)))
201 expp1 13980 . . . . . . . . . . . . 13 ((-1 โˆˆ โ„‚ โˆง (๐‘š + 1) โˆˆ โ„•0) โ†’ (-1โ†‘((๐‘š + 1) + 1)) = ((-1โ†‘(๐‘š + 1)) ยท -1))
20272, 131, 201sylancr 588 . . . . . . . . . . . 12 (๐‘š โˆˆ โ„•0 โ†’ (-1โ†‘((๐‘š + 1) + 1)) = ((-1โ†‘(๐‘š + 1)) ยท -1))
203202oveq2d 7374 . . . . . . . . . . 11 (๐‘š โˆˆ โ„•0 โ†’ (((-1โ†‘(๐‘š + 1)) ยท ((๐‘š + 1) + 1)) + (-1โ†‘((๐‘š + 1) + 1))) = (((-1โ†‘(๐‘š + 1)) ยท ((๐‘š + 1) + 1)) + ((-1โ†‘(๐‘š + 1)) ยท -1)))
204172, 160mulcomd 11181 . . . . . . . . . . 11 (๐‘š โˆˆ โ„•0 โ†’ ((๐‘š + 1) ยท (-1โ†‘(๐‘š + 1))) = ((-1โ†‘(๐‘š + 1)) ยท (๐‘š + 1)))
205200, 203, 2043eqtr4d 2783 . . . . . . . . . 10 (๐‘š โˆˆ โ„•0 โ†’ (((-1โ†‘(๐‘š + 1)) ยท ((๐‘š + 1) + 1)) + (-1โ†‘((๐‘š + 1) + 1))) = ((๐‘š + 1) ยท (-1โ†‘(๐‘š + 1))))
206191, 205oveq12d 7376 . . . . . . . . 9 (๐‘š โˆˆ โ„•0 โ†’ ((((๐‘š + 1) ยท ((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1))) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + (((-1โ†‘(๐‘š + 1)) ยท ((๐‘š + 1) + 1)) + (-1โ†‘((๐‘š + 1) + 1)))) = (((๐‘š + 1) ยท (((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))) + ((๐‘š + 1) ยท (-1โ†‘(๐‘š + 1)))))
207172, 190mulcld 11180 . . . . . . . . . . 11 (๐‘š โˆˆ โ„•0 โ†’ ((๐‘š + 1) ยท ((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1))) โˆˆ โ„‚)
208207, 158mulcld 11180 . . . . . . . . . 10 (๐‘š โˆˆ โ„•0 โ†’ (((๐‘š + 1) ยท ((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1))) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) โˆˆ โ„‚)
209160, 176mulcld 11180 . . . . . . . . . 10 (๐‘š โˆˆ โ„•0 โ†’ ((-1โ†‘(๐‘š + 1)) ยท ((๐‘š + 1) + 1)) โˆˆ โ„‚)
210208, 209, 143addassd 11182 . . . . . . . . 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 11180 . . . . . . . . . 10 (๐‘š โˆˆ โ„•0 โ†’ (((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) โˆˆ โ„‚)
212172, 211, 160adddid 11184 . . . . . . . . 9 (๐‘š โˆˆ โ„•0 โ†’ ((๐‘š + 1) ยท ((((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + (-1โ†‘(๐‘š + 1)))) = (((๐‘š + 1) ยท (((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))) + ((๐‘š + 1) ยท (-1โ†‘(๐‘š + 1)))))
213206, 210, 2123eqtr4d 2783 . . . . . . . 8 (๐‘š โˆˆ โ„•0 โ†’ (((((๐‘š + 1) ยท ((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1))) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + ((-1โ†‘(๐‘š + 1)) ยท ((๐‘š + 1) + 1))) + (-1โ†‘((๐‘š + 1) + 1))) = ((๐‘š + 1) ยท ((((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + (-1โ†‘(๐‘š + 1)))))
214146, 189, 2133eqtrd 2777 . . . . . . 7 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜((๐‘š + 1) + 1)) ยท (ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) + ((-1โ†‘((๐‘š + 1) + 1)) / (!โ€˜((๐‘š + 1) + 1))))) = ((๐‘š + 1) ยท ((((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + (-1โ†‘(๐‘š + 1)))))
215131, 86eleqtrdi 2844 . . . . . . . . 9 (๐‘š โˆˆ โ„•0 โ†’ (๐‘š + 1) โˆˆ (โ„คโ‰ฅโ€˜0))
216 elfznn0 13540 . . . . . . . . . . 11 (๐‘˜ โˆˆ (0...((๐‘š + 1) + 1)) โ†’ ๐‘˜ โˆˆ โ„•0)
217216adantl 483 . . . . . . . . . 10 ((๐‘š โˆˆ โ„•0 โˆง ๐‘˜ โˆˆ (0...((๐‘š + 1) + 1))) โ†’ ๐‘˜ โˆˆ โ„•0)
218217, 102syl 17 . . . . . . . . 9 ((๐‘š โˆˆ โ„•0 โˆง ๐‘˜ โˆˆ (0...((๐‘š + 1) + 1))) โ†’ ((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) โˆˆ โ„‚)
219 oveq2 7366 . . . . . . . . . 10 (๐‘˜ = ((๐‘š + 1) + 1) โ†’ (-1โ†‘๐‘˜) = (-1โ†‘((๐‘š + 1) + 1)))
220 fveq2 6843 . . . . . . . . . 10 (๐‘˜ = ((๐‘š + 1) + 1) โ†’ (!โ€˜๐‘˜) = (!โ€˜((๐‘š + 1) + 1)))
221219, 220oveq12d 7376 . . . . . . . . 9 (๐‘˜ = ((๐‘š + 1) + 1) โ†’ ((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) = ((-1โ†‘((๐‘š + 1) + 1)) / (!โ€˜((๐‘š + 1) + 1))))
222215, 218, 221fsump1 15646 . . . . . . . 8 (๐‘š โˆˆ โ„•0 โ†’ ฮฃ๐‘˜ โˆˆ (0...((๐‘š + 1) + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) = (ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) + ((-1โ†‘((๐‘š + 1) + 1)) / (!โ€˜((๐‘š + 1) + 1)))))
223222oveq2d 7374 . . . . . . 7 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜((๐‘š + 1) + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...((๐‘š + 1) + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) = ((!โ€˜((๐‘š + 1) + 1)) ยท (ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) + ((-1โ†‘((๐‘š + 1) + 1)) / (!โ€˜((๐‘š + 1) + 1))))))
224163, 158mulcld 11180 . . . . . . . . . 10 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) โˆˆ โ„‚)
225171, 158mulcld 11180 . . . . . . . . . 10 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜๐‘š) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) โˆˆ โ„‚)
226224, 160, 225add32d 11387 . . . . . . . . 9 (๐‘š โˆˆ โ„•0 โ†’ ((((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + (-1โ†‘(๐‘š + 1))) + ((!โ€˜๐‘š) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))) = ((((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + ((!โ€˜๐‘š) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))) + (-1โ†‘(๐‘š + 1))))
227152oveq2d 7374 . . . . . . . . . . 11 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) = ((!โ€˜(๐‘š + 1)) ยท (ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) + ((-1โ†‘(๐‘š + 1)) / (!โ€˜(๐‘š + 1))))))
228163, 158, 165adddid 11184 . . . . . . . . . . 11 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜(๐‘š + 1)) ยท (ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)) + ((-1โ†‘(๐‘š + 1)) / (!โ€˜(๐‘š + 1))))) = (((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + ((!โ€˜(๐‘š + 1)) ยท ((-1โ†‘(๐‘š + 1)) / (!โ€˜(๐‘š + 1))))))
229160, 163, 164divcan2d 11938 . . . . . . . . . . . 12 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜(๐‘š + 1)) ยท ((-1โ†‘(๐‘š + 1)) / (!โ€˜(๐‘š + 1)))) = (-1โ†‘(๐‘š + 1)))
230229oveq2d 7374 . . . . . . . . . . 11 (๐‘š โˆˆ โ„•0 โ†’ (((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + ((!โ€˜(๐‘š + 1)) ยท ((-1โ†‘(๐‘š + 1)) / (!โ€˜(๐‘š + 1))))) = (((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + (-1โ†‘(๐‘š + 1))))
231227, 228, 2303eqtrd 2777 . . . . . . . . . 10 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) = (((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + (-1โ†‘(๐‘š + 1))))
232231oveq1d 7373 . . . . . . . . 9 (๐‘š โˆˆ โ„•0 โ†’ (((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + ((!โ€˜๐‘š) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))) = ((((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + (-1โ†‘(๐‘š + 1))) + ((!โ€˜๐‘š) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))))
23370a1i 11 . . . . . . . . . . . . . 14 (๐‘š โˆˆ โ„•0 โ†’ 1 โˆˆ โ„‚)
234171, 172, 233adddid 11184 . . . . . . . . . . . . 13 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1)) = (((!โ€˜๐‘š) ยท (๐‘š + 1)) + ((!โ€˜๐‘š) ยท 1)))
235169eqcomd 2739 . . . . . . . . . . . . . 14 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜๐‘š) ยท (๐‘š + 1)) = (!โ€˜(๐‘š + 1)))
236171mulid1d 11177 . . . . . . . . . . . . . 14 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜๐‘š) ยท 1) = (!โ€˜๐‘š))
237235, 236oveq12d 7376 . . . . . . . . . . . . 13 (๐‘š โˆˆ โ„•0 โ†’ (((!โ€˜๐‘š) ยท (๐‘š + 1)) + ((!โ€˜๐‘š) ยท 1)) = ((!โ€˜(๐‘š + 1)) + (!โ€˜๐‘š)))
238234, 237eqtrd 2773 . . . . . . . . . . . 12 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1)) = ((!โ€˜(๐‘š + 1)) + (!โ€˜๐‘š)))
239238oveq1d 7373 . . . . . . . . . . 11 (๐‘š โˆˆ โ„•0 โ†’ (((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) = (((!โ€˜(๐‘š + 1)) + (!โ€˜๐‘š)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))))
240163, 171, 158adddird 11185 . . . . . . . . . . 11 (๐‘š โˆˆ โ„•0 โ†’ (((!โ€˜(๐‘š + 1)) + (!โ€˜๐‘š)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) = (((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + ((!โ€˜๐‘š) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))))
241239, 240eqtrd 2773 . . . . . . . . . 10 (๐‘š โˆˆ โ„•0 โ†’ (((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) = (((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + ((!โ€˜๐‘š) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))))
242241oveq1d 7373 . . . . . . . . 9 (๐‘š โˆˆ โ„•0 โ†’ ((((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + (-1โ†‘(๐‘š + 1))) = ((((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + ((!โ€˜๐‘š) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))) + (-1โ†‘(๐‘š + 1))))
243226, 232, 2423eqtr4d 2783 . . . . . . . 8 (๐‘š โˆˆ โ„•0 โ†’ (((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + ((!โ€˜๐‘š) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))) = ((((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + (-1โ†‘(๐‘š + 1))))
244243oveq2d 7374 . . . . . . 7 (๐‘š โˆˆ โ„•0 โ†’ ((๐‘š + 1) ยท (((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + ((!โ€˜๐‘š) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))))) = ((๐‘š + 1) ยท ((((!โ€˜๐‘š) ยท ((๐‘š + 1) + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + (-1โ†‘(๐‘š + 1)))))
245214, 223, 2443eqtr4d 2783 . . . . . 6 (๐‘š โˆˆ โ„•0 โ†’ ((!โ€˜((๐‘š + 1) + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...((๐‘š + 1) + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) = ((๐‘š + 1) ยท (((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + ((!โ€˜๐‘š) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))))))
246130, 245eqeq12d 2749 . . . . 5 (๐‘š โˆˆ โ„•0 โ†’ ((๐‘†โ€˜((๐‘š + 1) + 1)) = ((!โ€˜((๐‘š + 1) + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...((๐‘š + 1) + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) โ†” ((๐‘š + 1) ยท ((๐‘†โ€˜(๐‘š + 1)) + (๐‘†โ€˜๐‘š))) = ((๐‘š + 1) ยท (((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) + ((!โ€˜๐‘š) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))))))
247120, 246syl5ibr 246 . . . 4 (๐‘š โˆˆ โ„•0 โ†’ (((๐‘†โ€˜๐‘š) = ((!โ€˜๐‘š) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘š)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) โˆง (๐‘†โ€˜(๐‘š + 1)) = ((!โ€˜(๐‘š + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘š + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))) โ†’ (๐‘†โ€˜((๐‘š + 1) + 1)) = ((!โ€˜((๐‘š + 1) + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...((๐‘š + 1) + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))))
248117, 247jcad 514 . . 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 12603 . 2 (๐‘ โˆˆ โ„•0 โ†’ ((๐‘†โ€˜๐‘) = ((!โ€˜๐‘) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))) โˆง (๐‘†โ€˜(๐‘ + 1)) = ((!โ€˜(๐‘ + 1)) ยท ฮฃ๐‘˜ โˆˆ (0...(๐‘ + 1))((-1โ†‘๐‘˜) / (!โ€˜๐‘˜)))))
250249simpld 496 1 (๐‘ โˆˆ โ„•0 โ†’ (๐‘†โ€˜๐‘) = ((!โ€˜๐‘) ยท ฮฃ๐‘˜ โˆˆ (0...๐‘)((-1โ†‘๐‘˜) / (!โ€˜๐‘˜))))
Colors of variables: wff setvar class
Syntax hints:   โ†’ wi 4   โˆง wa 397   = wceq 1542  โŠคwtru 1543   โˆˆ wcel 2107  {cab 2710   โ‰  wne 2940  โˆ€wral 3061   โ†ฆ cmpt 5189  โ€“1-1-ontoโ†’wf1o 6496  โ€˜cfv 6497  (class class class)co 7358  Fincfn 8886  โ„‚cc 11054  โ„cr 11055  0cc0 11056  1c1 11057   + caddc 11059   ยท cmul 11061   โˆ’ cmin 11390  -cneg 11391   / cdiv 11817  โ„•cn 12158  โ„•0cn0 12418  โ„คcz 12504  โ„คโ‰ฅcuz 12768  ...cfz 13430  โ†‘cexp 13973  !cfa 14179  โ™ฏchash 14236  ฮฃcsu 15576
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-rep 5243  ax-sep 5257  ax-nul 5264  ax-pow 5321  ax-pr 5385  ax-un 7673  ax-inf2 9582  ax-cnex 11112  ax-resscn 11113  ax-1cn 11114  ax-icn 11115  ax-addcl 11116  ax-addrcl 11117  ax-mulcl 11118  ax-mulrcl 11119  ax-mulcom 11120  ax-addass 11121  ax-mulass 11122  ax-distr 11123  ax-i2m1 11124  ax-1ne0 11125  ax-1rid 11126  ax-rnegex 11127  ax-rrecex 11128  ax-cnre 11129  ax-pre-lttri 11130  ax-pre-lttrn 11131  ax-pre-ltadd 11132  ax-pre-mulgt0 11133  ax-pre-sup 11134
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3352  df-reu 3353  df-rab 3407  df-v 3446  df-sbc 3741  df-csb 3857  df-dif 3914  df-un 3916  df-in 3918  df-ss 3928  df-pss 3930  df-nul 4284  df-if 4488  df-pw 4563  df-sn 4588  df-pr 4590  df-op 4594  df-uni 4867  df-int 4909  df-iun 4957  df-br 5107  df-opab 5169  df-mpt 5190  df-tr 5224  df-id 5532  df-eprel 5538  df-po 5546  df-so 5547  df-fr 5589  df-se 5590  df-we 5591  df-xp 5640  df-rel 5641  df-cnv 5642  df-co 5643  df-dm 5644  df-rn 5645  df-res 5646  df-ima 5647  df-pred 6254  df-ord 6321  df-on 6322  df-lim 6323  df-suc 6324  df-iota 6449  df-fun 6499  df-fn 6500  df-f 6501  df-f1 6502  df-fo 6503  df-f1o 6504  df-fv 6505  df-isom 6506  df-riota 7314  df-ov 7361  df-oprab 7362  df-mpo 7363  df-om 7804  df-1st 7922  df-2nd 7923  df-frecs 8213  df-wrecs 8244  df-recs 8318  df-rdg 8357  df-1o 8413  df-oadd 8417  df-er 8651  df-map 8770  df-pm 8771  df-en 8887  df-dom 8888  df-sdom 8889  df-fin 8890  df-sup 9383  df-oi 9451  df-dju 9842  df-card 9880  df-pnf 11196  df-mnf 11197  df-xr 11198  df-ltxr 11199  df-le 11200  df-sub 11392  df-neg 11393  df-div 11818  df-nn 12159  df-2 12221  df-3 12222  df-n0 12419  df-xnn0 12491  df-z 12505  df-uz 12769  df-rp 12921  df-fz 13431  df-fzo 13574  df-seq 13913  df-exp 13974  df-fac 14180  df-hash 14237  df-cj 14990  df-re 14991  df-im 14992  df-sqrt 15126  df-abs 15127  df-clim 15376  df-sum 15577
This theorem is referenced by:  subfaclim  33839
  Copyright terms: Public domain W3C validator