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

Theorem etransclem28 45709
Description: (๐‘ƒ โˆ’ 1) factorial divides the ๐‘-th derivative of ๐น applied to ๐ฝ. (Contributed by Glauco Siliprandi, 5-Apr-2020.)
Hypotheses
Ref Expression
etransclem28.p (๐œ‘ โ†’ ๐‘ƒ โˆˆ โ„•)
etransclem28.m (๐œ‘ โ†’ ๐‘€ โˆˆ โ„•0)
etransclem28.n (๐œ‘ โ†’ ๐‘ โˆˆ โ„•0)
etransclem28.c ๐ถ = (๐‘› โˆˆ โ„•0 โ†ฆ {๐‘ โˆˆ ((0...๐‘›) โ†‘m (0...๐‘€)) โˆฃ ฮฃ๐‘— โˆˆ (0...๐‘€)(๐‘โ€˜๐‘—) = ๐‘›})
etransclem28.d (๐œ‘ โ†’ ๐ท โˆˆ (๐ถโ€˜๐‘))
etransclem28.j (๐œ‘ โ†’ ๐ฝ โˆˆ (0...๐‘€))
etransclem28.t ๐‘‡ = (((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) ยท (if((๐‘ƒ โˆ’ 1) < (๐ทโ€˜0), 0, (((!โ€˜(๐‘ƒ โˆ’ 1)) / (!โ€˜((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0)))) ยท (๐ฝโ†‘((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0))))) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))))))
Assertion
Ref Expression
etransclem28 (๐œ‘ โ†’ (!โ€˜(๐‘ƒ โˆ’ 1)) โˆฅ ๐‘‡)
Distinct variable groups:   ๐ท,๐‘,๐‘—   ๐‘—,๐ฝ   ๐‘€,๐‘,๐‘—,๐‘›   ๐‘,๐‘,๐‘›   ๐‘ƒ,๐‘—   ๐œ‘,๐‘—,๐‘›
Allowed substitution hints:   ๐œ‘(๐‘)   ๐ถ(๐‘—,๐‘›,๐‘)   ๐ท(๐‘›)   ๐‘ƒ(๐‘›,๐‘)   ๐‘‡(๐‘—,๐‘›,๐‘)   ๐ฝ(๐‘›,๐‘)   ๐‘(๐‘—)

Proof of Theorem etransclem28
StepHypRef Expression
1 etransclem28.p . . . . . . . . . . . 12 (๐œ‘ โ†’ ๐‘ƒ โˆˆ โ„•)
2 nnm1nn0 12538 . . . . . . . . . . . 12 (๐‘ƒ โˆˆ โ„• โ†’ (๐‘ƒ โˆ’ 1) โˆˆ โ„•0)
31, 2syl 17 . . . . . . . . . . 11 (๐œ‘ โ†’ (๐‘ƒ โˆ’ 1) โˆˆ โ„•0)
43faccld 14270 . . . . . . . . . 10 (๐œ‘ โ†’ (!โ€˜(๐‘ƒ โˆ’ 1)) โˆˆ โ„•)
54nnzd 12610 . . . . . . . . 9 (๐œ‘ โ†’ (!โ€˜(๐‘ƒ โˆ’ 1)) โˆˆ โ„ค)
65adantr 479 . . . . . . . 8 ((๐œ‘ โˆง ๐ฝ = 0) โ†’ (!โ€˜(๐‘ƒ โˆ’ 1)) โˆˆ โ„ค)
7 etransclem28.d . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ ๐ท โˆˆ (๐ถโ€˜๐‘))
8 etransclem28.c . . . . . . . . . . . . . . . . 17 ๐ถ = (๐‘› โˆˆ โ„•0 โ†ฆ {๐‘ โˆˆ ((0...๐‘›) โ†‘m (0...๐‘€)) โˆฃ ฮฃ๐‘— โˆˆ (0...๐‘€)(๐‘โ€˜๐‘—) = ๐‘›})
9 etransclem28.n . . . . . . . . . . . . . . . . 17 (๐œ‘ โ†’ ๐‘ โˆˆ โ„•0)
108, 9etransclem12 45693 . . . . . . . . . . . . . . . 16 (๐œ‘ โ†’ (๐ถโ€˜๐‘) = {๐‘ โˆˆ ((0...๐‘) โ†‘m (0...๐‘€)) โˆฃ ฮฃ๐‘— โˆˆ (0...๐‘€)(๐‘โ€˜๐‘—) = ๐‘})
117, 10eleqtrd 2827 . . . . . . . . . . . . . . 15 (๐œ‘ โ†’ ๐ท โˆˆ {๐‘ โˆˆ ((0...๐‘) โ†‘m (0...๐‘€)) โˆฃ ฮฃ๐‘— โˆˆ (0...๐‘€)(๐‘โ€˜๐‘—) = ๐‘})
12 fveq1 6889 . . . . . . . . . . . . . . . . . . 19 (๐‘ = ๐ท โ†’ (๐‘โ€˜๐‘—) = (๐ทโ€˜๐‘—))
1312sumeq2sdv 15677 . . . . . . . . . . . . . . . . . 18 (๐‘ = ๐ท โ†’ ฮฃ๐‘— โˆˆ (0...๐‘€)(๐‘โ€˜๐‘—) = ฮฃ๐‘— โˆˆ (0...๐‘€)(๐ทโ€˜๐‘—))
1413eqeq1d 2727 . . . . . . . . . . . . . . . . 17 (๐‘ = ๐ท โ†’ (ฮฃ๐‘— โˆˆ (0...๐‘€)(๐‘โ€˜๐‘—) = ๐‘ โ†” ฮฃ๐‘— โˆˆ (0...๐‘€)(๐ทโ€˜๐‘—) = ๐‘))
1514elrab 3676 . . . . . . . . . . . . . . . 16 (๐ท โˆˆ {๐‘ โˆˆ ((0...๐‘) โ†‘m (0...๐‘€)) โˆฃ ฮฃ๐‘— โˆˆ (0...๐‘€)(๐‘โ€˜๐‘—) = ๐‘} โ†” (๐ท โˆˆ ((0...๐‘) โ†‘m (0...๐‘€)) โˆง ฮฃ๐‘— โˆˆ (0...๐‘€)(๐ทโ€˜๐‘—) = ๐‘))
1615simprbi 495 . . . . . . . . . . . . . . 15 (๐ท โˆˆ {๐‘ โˆˆ ((0...๐‘) โ†‘m (0...๐‘€)) โˆฃ ฮฃ๐‘— โˆˆ (0...๐‘€)(๐‘โ€˜๐‘—) = ๐‘} โ†’ ฮฃ๐‘— โˆˆ (0...๐‘€)(๐ทโ€˜๐‘—) = ๐‘)
1711, 16syl 17 . . . . . . . . . . . . . 14 (๐œ‘ โ†’ ฮฃ๐‘— โˆˆ (0...๐‘€)(๐ทโ€˜๐‘—) = ๐‘)
1817eqcomd 2731 . . . . . . . . . . . . 13 (๐œ‘ โ†’ ๐‘ = ฮฃ๐‘— โˆˆ (0...๐‘€)(๐ทโ€˜๐‘—))
1918fveq2d 6894 . . . . . . . . . . . 12 (๐œ‘ โ†’ (!โ€˜๐‘) = (!โ€˜ฮฃ๐‘— โˆˆ (0...๐‘€)(๐ทโ€˜๐‘—)))
2019oveq1d 7428 . . . . . . . . . . 11 (๐œ‘ โ†’ ((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) = ((!โ€˜ฮฃ๐‘— โˆˆ (0...๐‘€)(๐ทโ€˜๐‘—)) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))))
21 nfcv 2892 . . . . . . . . . . . 12 โ„ฒ๐‘—๐ท
22 fzfid 13965 . . . . . . . . . . . 12 (๐œ‘ โ†’ (0...๐‘€) โˆˆ Fin)
23 nn0ex 12503 . . . . . . . . . . . . . . 15 โ„•0 โˆˆ V
24 fzssnn0 44758 . . . . . . . . . . . . . . . 16 (0...๐‘) โІ โ„•0
2524a1i 11 . . . . . . . . . . . . . . 15 (๐ท โˆˆ {๐‘ โˆˆ ((0...๐‘) โ†‘m (0...๐‘€)) โˆฃ ฮฃ๐‘— โˆˆ (0...๐‘€)(๐‘โ€˜๐‘—) = ๐‘} โ†’ (0...๐‘) โІ โ„•0)
26 mapss 8901 . . . . . . . . . . . . . . 15 ((โ„•0 โˆˆ V โˆง (0...๐‘) โІ โ„•0) โ†’ ((0...๐‘) โ†‘m (0...๐‘€)) โІ (โ„•0 โ†‘m (0...๐‘€)))
2723, 25, 26sylancr 585 . . . . . . . . . . . . . 14 (๐ท โˆˆ {๐‘ โˆˆ ((0...๐‘) โ†‘m (0...๐‘€)) โˆฃ ฮฃ๐‘— โˆˆ (0...๐‘€)(๐‘โ€˜๐‘—) = ๐‘} โ†’ ((0...๐‘) โ†‘m (0...๐‘€)) โІ (โ„•0 โ†‘m (0...๐‘€)))
28 elrabi 3670 . . . . . . . . . . . . . 14 (๐ท โˆˆ {๐‘ โˆˆ ((0...๐‘) โ†‘m (0...๐‘€)) โˆฃ ฮฃ๐‘— โˆˆ (0...๐‘€)(๐‘โ€˜๐‘—) = ๐‘} โ†’ ๐ท โˆˆ ((0...๐‘) โ†‘m (0...๐‘€)))
2927, 28sseldd 3974 . . . . . . . . . . . . 13 (๐ท โˆˆ {๐‘ โˆˆ ((0...๐‘) โ†‘m (0...๐‘€)) โˆฃ ฮฃ๐‘— โˆˆ (0...๐‘€)(๐‘โ€˜๐‘—) = ๐‘} โ†’ ๐ท โˆˆ (โ„•0 โ†‘m (0...๐‘€)))
3011, 29syl 17 . . . . . . . . . . . 12 (๐œ‘ โ†’ ๐ท โˆˆ (โ„•0 โ†‘m (0...๐‘€)))
3121, 22, 30mccl 45045 . . . . . . . . . . 11 (๐œ‘ โ†’ ((!โ€˜ฮฃ๐‘— โˆˆ (0...๐‘€)(๐ทโ€˜๐‘—)) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) โˆˆ โ„•)
3220, 31eqeltrd 2825 . . . . . . . . . 10 (๐œ‘ โ†’ ((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) โˆˆ โ„•)
3332nnzd 12610 . . . . . . . . 9 (๐œ‘ โ†’ ((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) โˆˆ โ„ค)
3433adantr 479 . . . . . . . 8 ((๐œ‘ โˆง ๐ฝ = 0) โ†’ ((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) โˆˆ โ„ค)
35 df-neg 11472 . . . . . . . . . . . . . . . 16 -๐‘— = (0 โˆ’ ๐‘—)
36 oveq1 7420 . . . . . . . . . . . . . . . 16 (๐ฝ = 0 โ†’ (๐ฝ โˆ’ ๐‘—) = (0 โˆ’ ๐‘—))
3735, 36eqtr4id 2784 . . . . . . . . . . . . . . 15 (๐ฝ = 0 โ†’ -๐‘— = (๐ฝ โˆ’ ๐‘—))
3837oveq1d 7428 . . . . . . . . . . . . . 14 (๐ฝ = 0 โ†’ (-๐‘—โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))) = ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))
3938oveq2d 7429 . . . . . . . . . . . . 13 (๐ฝ = 0 โ†’ (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท (-๐‘—โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) = (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))))
4039ifeq2d 4545 . . . . . . . . . . . 12 (๐ฝ = 0 โ†’ if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท (-๐‘—โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))) = if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))))
4140prodeq2ad 45039 . . . . . . . . . . 11 (๐ฝ = 0 โ†’ โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท (-๐‘—โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))) = โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))))
4241adantl 480 . . . . . . . . . 10 ((๐œ‘ โˆง ๐ฝ = 0) โ†’ โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท (-๐‘—โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))) = โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))))
4311, 28syl 17 . . . . . . . . . . . . 13 (๐œ‘ โ†’ ๐ท โˆˆ ((0...๐‘) โ†‘m (0...๐‘€)))
44 elmapi 8861 . . . . . . . . . . . . 13 (๐ท โˆˆ ((0...๐‘) โ†‘m (0...๐‘€)) โ†’ ๐ท:(0...๐‘€)โŸถ(0...๐‘))
4543, 44syl 17 . . . . . . . . . . . 12 (๐œ‘ โ†’ ๐ท:(0...๐‘€)โŸถ(0...๐‘))
46 etransclem28.j . . . . . . . . . . . 12 (๐œ‘ โ†’ ๐ฝ โˆˆ (0...๐‘€))
471, 45, 46etransclem7 45688 . . . . . . . . . . 11 (๐œ‘ โ†’ โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))) โˆˆ โ„ค)
4847adantr 479 . . . . . . . . . 10 ((๐œ‘ โˆง ๐ฝ = 0) โ†’ โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))) โˆˆ โ„ค)
4942, 48eqeltrd 2825 . . . . . . . . 9 ((๐œ‘ โˆง ๐ฝ = 0) โ†’ โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท (-๐‘—โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))) โˆˆ โ„ค)
506, 49zmulcld 12697 . . . . . . . 8 ((๐œ‘ โˆง ๐ฝ = 0) โ†’ ((!โ€˜(๐‘ƒ โˆ’ 1)) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท (-๐‘—โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))))) โˆˆ โ„ค)
516, 34, 503jca 1125 . . . . . . 7 ((๐œ‘ โˆง ๐ฝ = 0) โ†’ ((!โ€˜(๐‘ƒ โˆ’ 1)) โˆˆ โ„ค โˆง ((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) โˆˆ โ„ค โˆง ((!โ€˜(๐‘ƒ โˆ’ 1)) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท (-๐‘—โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))))) โˆˆ โ„ค))
52 dvdsmul1 16249 . . . . . . . 8 (((!โ€˜(๐‘ƒ โˆ’ 1)) โˆˆ โ„ค โˆง โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท (-๐‘—โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))) โˆˆ โ„ค) โ†’ (!โ€˜(๐‘ƒ โˆ’ 1)) โˆฅ ((!โ€˜(๐‘ƒ โˆ’ 1)) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท (-๐‘—โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))))))
536, 49, 52syl2anc 582 . . . . . . 7 ((๐œ‘ โˆง ๐ฝ = 0) โ†’ (!โ€˜(๐‘ƒ โˆ’ 1)) โˆฅ ((!โ€˜(๐‘ƒ โˆ’ 1)) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท (-๐‘—โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))))))
54 dvdsmultr2 16269 . . . . . . 7 (((!โ€˜(๐‘ƒ โˆ’ 1)) โˆˆ โ„ค โˆง ((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) โˆˆ โ„ค โˆง ((!โ€˜(๐‘ƒ โˆ’ 1)) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท (-๐‘—โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))))) โˆˆ โ„ค) โ†’ ((!โ€˜(๐‘ƒ โˆ’ 1)) โˆฅ ((!โ€˜(๐‘ƒ โˆ’ 1)) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท (-๐‘—โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))))) โ†’ (!โ€˜(๐‘ƒ โˆ’ 1)) โˆฅ (((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) ยท ((!โ€˜(๐‘ƒ โˆ’ 1)) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท (-๐‘—โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))))))))
5551, 53, 54sylc 65 . . . . . 6 ((๐œ‘ โˆง ๐ฝ = 0) โ†’ (!โ€˜(๐‘ƒ โˆ’ 1)) โˆฅ (((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) ยท ((!โ€˜(๐‘ƒ โˆ’ 1)) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท (-๐‘—โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))))))
5655adantr 479 . . . . 5 (((๐œ‘ โˆง ๐ฝ = 0) โˆง (๐ทโ€˜0) = (๐‘ƒ โˆ’ 1)) โ†’ (!โ€˜(๐‘ƒ โˆ’ 1)) โˆฅ (((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) ยท ((!โ€˜(๐‘ƒ โˆ’ 1)) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท (-๐‘—โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))))))
571ad2antrr 724 . . . . . 6 (((๐œ‘ โˆง ๐ฝ = 0) โˆง (๐ทโ€˜0) = (๐‘ƒ โˆ’ 1)) โ†’ ๐‘ƒ โˆˆ โ„•)
58 etransclem28.m . . . . . . 7 (๐œ‘ โ†’ ๐‘€ โˆˆ โ„•0)
5958ad2antrr 724 . . . . . 6 (((๐œ‘ โˆง ๐ฝ = 0) โˆง (๐ทโ€˜0) = (๐‘ƒ โˆ’ 1)) โ†’ ๐‘€ โˆˆ โ„•0)
6045ad2antrr 724 . . . . . 6 (((๐œ‘ โˆง ๐ฝ = 0) โˆง (๐ทโ€˜0) = (๐‘ƒ โˆ’ 1)) โ†’ ๐ท:(0...๐‘€)โŸถ(0...๐‘))
61 eqid 2725 . . . . . 6 (((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) ยท (if((๐‘ƒ โˆ’ 1) < (๐ทโ€˜0), 0, (((!โ€˜(๐‘ƒ โˆ’ 1)) / (!โ€˜((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0)))) ยท (๐ฝโ†‘((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0))))) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))))) = (((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) ยท (if((๐‘ƒ โˆ’ 1) < (๐ทโ€˜0), 0, (((!โ€˜(๐‘ƒ โˆ’ 1)) / (!โ€˜((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0)))) ยท (๐ฝโ†‘((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0))))) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))))))
62 simplr 767 . . . . . 6 (((๐œ‘ โˆง ๐ฝ = 0) โˆง (๐ทโ€˜0) = (๐‘ƒ โˆ’ 1)) โ†’ ๐ฝ = 0)
63 simpr 483 . . . . . 6 (((๐œ‘ โˆง ๐ฝ = 0) โˆง (๐ทโ€˜0) = (๐‘ƒ โˆ’ 1)) โ†’ (๐ทโ€˜0) = (๐‘ƒ โˆ’ 1))
6457, 59, 60, 61, 62, 63etransclem14 45695 . . . . 5 (((๐œ‘ โˆง ๐ฝ = 0) โˆง (๐ทโ€˜0) = (๐‘ƒ โˆ’ 1)) โ†’ (((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) ยท (if((๐‘ƒ โˆ’ 1) < (๐ทโ€˜0), 0, (((!โ€˜(๐‘ƒ โˆ’ 1)) / (!โ€˜((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0)))) ยท (๐ฝโ†‘((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0))))) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))))) = (((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) ยท ((!โ€˜(๐‘ƒ โˆ’ 1)) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท (-๐‘—โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))))))
6556, 64breqtrrd 5172 . . . 4 (((๐œ‘ โˆง ๐ฝ = 0) โˆง (๐ทโ€˜0) = (๐‘ƒ โˆ’ 1)) โ†’ (!โ€˜(๐‘ƒ โˆ’ 1)) โˆฅ (((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) ยท (if((๐‘ƒ โˆ’ 1) < (๐ทโ€˜0), 0, (((!โ€˜(๐‘ƒ โˆ’ 1)) / (!โ€˜((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0)))) ยท (๐ฝโ†‘((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0))))) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))))))
66 dvds0 16243 . . . . . . 7 ((!โ€˜(๐‘ƒ โˆ’ 1)) โˆˆ โ„ค โ†’ (!โ€˜(๐‘ƒ โˆ’ 1)) โˆฅ 0)
675, 66syl 17 . . . . . 6 (๐œ‘ โ†’ (!โ€˜(๐‘ƒ โˆ’ 1)) โˆฅ 0)
6867ad2antrr 724 . . . . 5 (((๐œ‘ โˆง ๐ฝ = 0) โˆง ยฌ (๐ทโ€˜0) = (๐‘ƒ โˆ’ 1)) โ†’ (!โ€˜(๐‘ƒ โˆ’ 1)) โˆฅ 0)
691ad2antrr 724 . . . . . 6 (((๐œ‘ โˆง ๐ฝ = 0) โˆง ยฌ (๐ทโ€˜0) = (๐‘ƒ โˆ’ 1)) โ†’ ๐‘ƒ โˆˆ โ„•)
7058ad2antrr 724 . . . . . 6 (((๐œ‘ โˆง ๐ฝ = 0) โˆง ยฌ (๐ทโ€˜0) = (๐‘ƒ โˆ’ 1)) โ†’ ๐‘€ โˆˆ โ„•0)
719ad2antrr 724 . . . . . 6 (((๐œ‘ โˆง ๐ฝ = 0) โˆง ยฌ (๐ทโ€˜0) = (๐‘ƒ โˆ’ 1)) โ†’ ๐‘ โˆˆ โ„•0)
7245ad2antrr 724 . . . . . 6 (((๐œ‘ โˆง ๐ฝ = 0) โˆง ยฌ (๐ทโ€˜0) = (๐‘ƒ โˆ’ 1)) โ†’ ๐ท:(0...๐‘€)โŸถ(0...๐‘))
73 simplr 767 . . . . . 6 (((๐œ‘ โˆง ๐ฝ = 0) โˆง ยฌ (๐ทโ€˜0) = (๐‘ƒ โˆ’ 1)) โ†’ ๐ฝ = 0)
74 neqne 2938 . . . . . . 7 (ยฌ (๐ทโ€˜0) = (๐‘ƒ โˆ’ 1) โ†’ (๐ทโ€˜0) โ‰  (๐‘ƒ โˆ’ 1))
7574adantl 480 . . . . . 6 (((๐œ‘ โˆง ๐ฝ = 0) โˆง ยฌ (๐ทโ€˜0) = (๐‘ƒ โˆ’ 1)) โ†’ (๐ทโ€˜0) โ‰  (๐‘ƒ โˆ’ 1))
7669, 70, 71, 72, 61, 73, 75etransclem15 45696 . . . . 5 (((๐œ‘ โˆง ๐ฝ = 0) โˆง ยฌ (๐ทโ€˜0) = (๐‘ƒ โˆ’ 1)) โ†’ (((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) ยท (if((๐‘ƒ โˆ’ 1) < (๐ทโ€˜0), 0, (((!โ€˜(๐‘ƒ โˆ’ 1)) / (!โ€˜((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0)))) ยท (๐ฝโ†‘((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0))))) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))))) = 0)
7768, 76breqtrrd 5172 . . . 4 (((๐œ‘ โˆง ๐ฝ = 0) โˆง ยฌ (๐ทโ€˜0) = (๐‘ƒ โˆ’ 1)) โ†’ (!โ€˜(๐‘ƒ โˆ’ 1)) โˆฅ (((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) ยท (if((๐‘ƒ โˆ’ 1) < (๐ทโ€˜0), 0, (((!โ€˜(๐‘ƒ โˆ’ 1)) / (!โ€˜((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0)))) ยท (๐ฝโ†‘((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0))))) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))))))
7865, 77pm2.61dan 811 . . 3 ((๐œ‘ โˆง ๐ฝ = 0) โ†’ (!โ€˜(๐‘ƒ โˆ’ 1)) โˆฅ (((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) ยท (if((๐‘ƒ โˆ’ 1) < (๐ทโ€˜0), 0, (((!โ€˜(๐‘ƒ โˆ’ 1)) / (!โ€˜((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0)))) ยท (๐ฝโ†‘((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0))))) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))))))
791nnzd 12610 . . . . . 6 (๐œ‘ โ†’ ๐‘ƒ โˆˆ โ„ค)
80 elfznn0 13621 . . . . . . . . 9 (๐ฝ โˆˆ (0...๐‘€) โ†’ ๐ฝ โˆˆ โ„•0)
8146, 80syl 17 . . . . . . . 8 (๐œ‘ โ†’ ๐ฝ โˆˆ โ„•0)
8281nn0zd 12609 . . . . . . 7 (๐œ‘ โ†’ ๐ฝ โˆˆ โ„ค)
831, 58, 9, 82, 8, 7etransclem26 45707 . . . . . 6 (๐œ‘ โ†’ (((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) ยท (if((๐‘ƒ โˆ’ 1) < (๐ทโ€˜0), 0, (((!โ€˜(๐‘ƒ โˆ’ 1)) / (!โ€˜((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0)))) ยท (๐ฝโ†‘((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0))))) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))))) โˆˆ โ„ค)
845, 79, 833jca 1125 . . . . 5 (๐œ‘ โ†’ ((!โ€˜(๐‘ƒ โˆ’ 1)) โˆˆ โ„ค โˆง ๐‘ƒ โˆˆ โ„ค โˆง (((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) ยท (if((๐‘ƒ โˆ’ 1) < (๐ทโ€˜0), 0, (((!โ€˜(๐‘ƒ โˆ’ 1)) / (!โ€˜((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0)))) ยท (๐ฝโ†‘((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0))))) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))))) โˆˆ โ„ค))
8584adantr 479 . . . 4 ((๐œ‘ โˆง ยฌ ๐ฝ = 0) โ†’ ((!โ€˜(๐‘ƒ โˆ’ 1)) โˆˆ โ„ค โˆง ๐‘ƒ โˆˆ โ„ค โˆง (((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) ยท (if((๐‘ƒ โˆ’ 1) < (๐ทโ€˜0), 0, (((!โ€˜(๐‘ƒ โˆ’ 1)) / (!โ€˜((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0)))) ยท (๐ฝโ†‘((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0))))) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))))) โˆˆ โ„ค))
861nncnd 12253 . . . . . . . . . 10 (๐œ‘ โ†’ ๐‘ƒ โˆˆ โ„‚)
87 1cnd 11234 . . . . . . . . . 10 (๐œ‘ โ†’ 1 โˆˆ โ„‚)
8886, 87npcand 11600 . . . . . . . . 9 (๐œ‘ โ†’ ((๐‘ƒ โˆ’ 1) + 1) = ๐‘ƒ)
8988eqcomd 2731 . . . . . . . 8 (๐œ‘ โ†’ ๐‘ƒ = ((๐‘ƒ โˆ’ 1) + 1))
9089fveq2d 6894 . . . . . . 7 (๐œ‘ โ†’ (!โ€˜๐‘ƒ) = (!โ€˜((๐‘ƒ โˆ’ 1) + 1)))
91 facp1 14264 . . . . . . . 8 ((๐‘ƒ โˆ’ 1) โˆˆ โ„•0 โ†’ (!โ€˜((๐‘ƒ โˆ’ 1) + 1)) = ((!โ€˜(๐‘ƒ โˆ’ 1)) ยท ((๐‘ƒ โˆ’ 1) + 1)))
923, 91syl 17 . . . . . . 7 (๐œ‘ โ†’ (!โ€˜((๐‘ƒ โˆ’ 1) + 1)) = ((!โ€˜(๐‘ƒ โˆ’ 1)) ยท ((๐‘ƒ โˆ’ 1) + 1)))
9388oveq2d 7429 . . . . . . 7 (๐œ‘ โ†’ ((!โ€˜(๐‘ƒ โˆ’ 1)) ยท ((๐‘ƒ โˆ’ 1) + 1)) = ((!โ€˜(๐‘ƒ โˆ’ 1)) ยท ๐‘ƒ))
9490, 92, 933eqtrrd 2770 . . . . . 6 (๐œ‘ โ†’ ((!โ€˜(๐‘ƒ โˆ’ 1)) ยท ๐‘ƒ) = (!โ€˜๐‘ƒ))
9594adantr 479 . . . . 5 ((๐œ‘ โˆง ยฌ ๐ฝ = 0) โ†’ ((!โ€˜(๐‘ƒ โˆ’ 1)) ยท ๐‘ƒ) = (!โ€˜๐‘ƒ))
961adantr 479 . . . . . 6 ((๐œ‘ โˆง ยฌ ๐ฝ = 0) โ†’ ๐‘ƒ โˆˆ โ„•)
9758adantr 479 . . . . . 6 ((๐œ‘ โˆง ยฌ ๐ฝ = 0) โ†’ ๐‘€ โˆˆ โ„•0)
989adantr 479 . . . . . 6 ((๐œ‘ โˆง ยฌ ๐ฝ = 0) โ†’ ๐‘ โˆˆ โ„•0)
9945adantr 479 . . . . . 6 ((๐œ‘ โˆง ยฌ ๐ฝ = 0) โ†’ ๐ท:(0...๐‘€)โŸถ(0...๐‘))
10017adantr 479 . . . . . 6 ((๐œ‘ โˆง ยฌ ๐ฝ = 0) โ†’ ฮฃ๐‘— โˆˆ (0...๐‘€)(๐ทโ€˜๐‘—) = ๐‘)
101 1zzd 12618 . . . . . . 7 ((๐œ‘ โˆง ยฌ ๐ฝ = 0) โ†’ 1 โˆˆ โ„ค)
10258nn0zd 12609 . . . . . . . 8 (๐œ‘ โ†’ ๐‘€ โˆˆ โ„ค)
103102adantr 479 . . . . . . 7 ((๐œ‘ โˆง ยฌ ๐ฝ = 0) โ†’ ๐‘€ โˆˆ โ„ค)
10482adantr 479 . . . . . . 7 ((๐œ‘ โˆง ยฌ ๐ฝ = 0) โ†’ ๐ฝ โˆˆ โ„ค)
10581adantr 479 . . . . . . . . 9 ((๐œ‘ โˆง ยฌ ๐ฝ = 0) โ†’ ๐ฝ โˆˆ โ„•0)
106 neqne 2938 . . . . . . . . . 10 (ยฌ ๐ฝ = 0 โ†’ ๐ฝ โ‰  0)
107106adantl 480 . . . . . . . . 9 ((๐œ‘ โˆง ยฌ ๐ฝ = 0) โ†’ ๐ฝ โ‰  0)
108 elnnne0 12511 . . . . . . . . 9 (๐ฝ โˆˆ โ„• โ†” (๐ฝ โˆˆ โ„•0 โˆง ๐ฝ โ‰  0))
109105, 107, 108sylanbrc 581 . . . . . . . 8 ((๐œ‘ โˆง ยฌ ๐ฝ = 0) โ†’ ๐ฝ โˆˆ โ„•)
110109nnge1d 12285 . . . . . . 7 ((๐œ‘ โˆง ยฌ ๐ฝ = 0) โ†’ 1 โ‰ค ๐ฝ)
111 elfzle2 13532 . . . . . . . . 9 (๐ฝ โˆˆ (0...๐‘€) โ†’ ๐ฝ โ‰ค ๐‘€)
11246, 111syl 17 . . . . . . . 8 (๐œ‘ โ†’ ๐ฝ โ‰ค ๐‘€)
113112adantr 479 . . . . . . 7 ((๐œ‘ โˆง ยฌ ๐ฝ = 0) โ†’ ๐ฝ โ‰ค ๐‘€)
114101, 103, 104, 110, 113elfzd 13519 . . . . . 6 ((๐œ‘ โˆง ยฌ ๐ฝ = 0) โ†’ ๐ฝ โˆˆ (1...๐‘€))
11596, 97, 98, 99, 100, 61, 114etransclem25 45706 . . . . 5 ((๐œ‘ โˆง ยฌ ๐ฝ = 0) โ†’ (!โ€˜๐‘ƒ) โˆฅ (((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) ยท (if((๐‘ƒ โˆ’ 1) < (๐ทโ€˜0), 0, (((!โ€˜(๐‘ƒ โˆ’ 1)) / (!โ€˜((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0)))) ยท (๐ฝโ†‘((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0))))) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))))))
11695, 115eqbrtrd 5166 . . . 4 ((๐œ‘ โˆง ยฌ ๐ฝ = 0) โ†’ ((!โ€˜(๐‘ƒ โˆ’ 1)) ยท ๐‘ƒ) โˆฅ (((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) ยท (if((๐‘ƒ โˆ’ 1) < (๐ทโ€˜0), 0, (((!โ€˜(๐‘ƒ โˆ’ 1)) / (!โ€˜((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0)))) ยท (๐ฝโ†‘((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0))))) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))))))
117 muldvds1 16252 . . . 4 (((!โ€˜(๐‘ƒ โˆ’ 1)) โˆˆ โ„ค โˆง ๐‘ƒ โˆˆ โ„ค โˆง (((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) ยท (if((๐‘ƒ โˆ’ 1) < (๐ทโ€˜0), 0, (((!โ€˜(๐‘ƒ โˆ’ 1)) / (!โ€˜((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0)))) ยท (๐ฝโ†‘((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0))))) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))))) โˆˆ โ„ค) โ†’ (((!โ€˜(๐‘ƒ โˆ’ 1)) ยท ๐‘ƒ) โˆฅ (((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) ยท (if((๐‘ƒ โˆ’ 1) < (๐ทโ€˜0), 0, (((!โ€˜(๐‘ƒ โˆ’ 1)) / (!โ€˜((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0)))) ยท (๐ฝโ†‘((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0))))) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))))) โ†’ (!โ€˜(๐‘ƒ โˆ’ 1)) โˆฅ (((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) ยท (if((๐‘ƒ โˆ’ 1) < (๐ทโ€˜0), 0, (((!โ€˜(๐‘ƒ โˆ’ 1)) / (!โ€˜((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0)))) ยท (๐ฝโ†‘((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0))))) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))))))))
11885, 116, 117sylc 65 . . 3 ((๐œ‘ โˆง ยฌ ๐ฝ = 0) โ†’ (!โ€˜(๐‘ƒ โˆ’ 1)) โˆฅ (((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) ยท (if((๐‘ƒ โˆ’ 1) < (๐ทโ€˜0), 0, (((!โ€˜(๐‘ƒ โˆ’ 1)) / (!โ€˜((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0)))) ยท (๐ฝโ†‘((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0))))) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))))))
11978, 118pm2.61dan 811 . 2 (๐œ‘ โ†’ (!โ€˜(๐‘ƒ โˆ’ 1)) โˆฅ (((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) ยท (if((๐‘ƒ โˆ’ 1) < (๐ทโ€˜0), 0, (((!โ€˜(๐‘ƒ โˆ’ 1)) / (!โ€˜((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0)))) ยท (๐ฝโ†‘((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0))))) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—))))))))
120 etransclem28.t . 2 ๐‘‡ = (((!โ€˜๐‘) / โˆ๐‘— โˆˆ (0...๐‘€)(!โ€˜(๐ทโ€˜๐‘—))) ยท (if((๐‘ƒ โˆ’ 1) < (๐ทโ€˜0), 0, (((!โ€˜(๐‘ƒ โˆ’ 1)) / (!โ€˜((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0)))) ยท (๐ฝโ†‘((๐‘ƒ โˆ’ 1) โˆ’ (๐ทโ€˜0))))) ยท โˆ๐‘— โˆˆ (1...๐‘€)if(๐‘ƒ < (๐ทโ€˜๐‘—), 0, (((!โ€˜๐‘ƒ) / (!โ€˜(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))) ยท ((๐ฝ โˆ’ ๐‘—)โ†‘(๐‘ƒ โˆ’ (๐ทโ€˜๐‘—)))))))
121119, 120breqtrrdi 5186 1 (๐œ‘ โ†’ (!โ€˜(๐‘ƒ โˆ’ 1)) โˆฅ ๐‘‡)
Colors of variables: wff setvar class
Syntax hints:  ยฌ wn 3   โ†’ wi 4   โˆง wa 394   โˆง w3a 1084   = wceq 1533   โˆˆ wcel 2098   โ‰  wne 2930  {crab 3419  Vcvv 3463   โІ wss 3941  ifcif 4525   class class class wbr 5144   โ†ฆ cmpt 5227  โŸถwf 6539  โ€˜cfv 6543  (class class class)co 7413   โ†‘m cmap 8838  0cc0 11133  1c1 11134   + caddc 11136   ยท cmul 11138   < clt 11273   โ‰ค cle 11274   โˆ’ cmin 11469  -cneg 11470   / cdiv 11896  โ„•cn 12237  โ„•0cn0 12497  โ„คcz 12583  ...cfz 13511  โ†‘cexp 14053  !cfa 14259  ฮฃcsu 15659  โˆcprod 15876   โˆฅ cdvds 16225
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2166  ax-ext 2696  ax-rep 5281  ax-sep 5295  ax-nul 5302  ax-pow 5360  ax-pr 5424  ax-un 7735  ax-inf2 9659  ax-cnex 11189  ax-resscn 11190  ax-1cn 11191  ax-icn 11192  ax-addcl 11193  ax-addrcl 11194  ax-mulcl 11195  ax-mulrcl 11196  ax-mulcom 11197  ax-addass 11198  ax-mulass 11199  ax-distr 11200  ax-i2m1 11201  ax-1ne0 11202  ax-1rid 11203  ax-rnegex 11204  ax-rrecex 11205  ax-cnre 11206  ax-pre-lttri 11207  ax-pre-lttrn 11208  ax-pre-ltadd 11209  ax-pre-mulgt0 11210  ax-pre-sup 11211
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2703  df-cleq 2717  df-clel 2802  df-nfc 2877  df-ne 2931  df-nel 3037  df-ral 3052  df-rex 3061  df-rmo 3364  df-reu 3365  df-rab 3420  df-v 3465  df-sbc 3771  df-csb 3887  df-dif 3944  df-un 3946  df-in 3948  df-ss 3958  df-pss 3961  df-nul 4320  df-if 4526  df-pw 4601  df-sn 4626  df-pr 4628  df-op 4632  df-uni 4905  df-int 4946  df-iun 4994  df-br 5145  df-opab 5207  df-mpt 5228  df-tr 5262  df-id 5571  df-eprel 5577  df-po 5585  df-so 5586  df-fr 5628  df-se 5629  df-we 5630  df-xp 5679  df-rel 5680  df-cnv 5681  df-co 5682  df-dm 5683  df-rn 5684  df-res 5685  df-ima 5686  df-pred 6301  df-ord 6368  df-on 6369  df-lim 6370  df-suc 6371  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-isom 6552  df-riota 7369  df-ov 7416  df-oprab 7417  df-mpo 7418  df-om 7866  df-1st 7987  df-2nd 7988  df-frecs 8280  df-wrecs 8311  df-recs 8385  df-rdg 8424  df-1o 8480  df-er 8718  df-map 8840  df-en 8958  df-dom 8959  df-sdom 8960  df-fin 8961  df-sup 9460  df-oi 9528  df-card 9957  df-pnf 11275  df-mnf 11276  df-xr 11277  df-ltxr 11278  df-le 11279  df-sub 11471  df-neg 11472  df-div 11897  df-nn 12238  df-2 12300  df-3 12301  df-n0 12498  df-z 12584  df-uz 12848  df-rp 13002  df-fz 13512  df-fzo 13655  df-seq 13994  df-exp 14054  df-fac 14260  df-bc 14289  df-hash 14317  df-cj 15073  df-re 15074  df-im 15075  df-sqrt 15209  df-abs 15210  df-clim 15459  df-sum 15660  df-prod 15877  df-dvds 16226
This theorem is referenced by:  etransclem37  45718  etransclem38  45719
  Copyright terms: Public domain W3C validator