Metamath Proof Explorer


Theorem faclbnd4lem3

Description: Lemma for faclbnd4 . The N = 0 case. (Contributed by NM, 23-Dec-2005)

Ref Expression
Assertion faclbnd4lem3 M0K0N=0NKMN2K2MM+KN!

Proof

Step Hyp Ref Expression
1 elnn0 K0KK=0
2 0exp K0K=0
3 2 adantl M0K0K=0
4 nnnn0 KK0
5 2nn0 20
6 nn0sqcl K0K20
7 nn0expcl 20K202K20
8 5 6 7 sylancr K02K20
9 8 adantl M0K02K20
10 nn0addcl M0K0M+K0
11 nn0expcl M0M+K0MM+K0
12 10 11 syldan M0K0MM+K0
13 9 12 nn0mulcld M0K02K2MM+K0
14 4 13 sylan2 M0K2K2MM+K0
15 14 nn0ge0d M0K02K2MM+K
16 3 15 eqbrtrd M0K0K2K2MM+K
17 1nn 1
18 elnn0 M0MM=0
19 nnnn0 MM0
20 0nn0 00
21 nn0addcl M000M+00
22 19 20 21 sylancl MM+00
23 nnexpcl MM+00MM+0
24 22 23 mpdan MMM+0
25 id M=0M=0
26 oveq1 M=0M+0=0+0
27 00id 0+0=0
28 26 27 eqtrdi M=0M+0=0
29 25 28 oveq12d M=0MM+0=00
30 0exp0e1 00=1
31 29 30 eqtrdi M=0MM+0=1
32 31 17 eqeltrdi M=0MM+0
33 24 32 jaoi MM=0MM+0
34 18 33 sylbi M0MM+0
35 nnmulcl 1MM+01MM+0
36 17 34 35 sylancr M01MM+0
37 36 nnge1d M011MM+0
38 37 adantr M0K=011MM+0
39 oveq2 K=00K=00
40 39 30 eqtrdi K=00K=1
41 sq0i K=0K2=0
42 41 oveq2d K=02K2=20
43 2cn 2
44 exp0 220=1
45 43 44 ax-mp 20=1
46 42 45 eqtrdi K=02K2=1
47 oveq2 K=0M+K=M+0
48 47 oveq2d K=0MM+K=MM+0
49 46 48 oveq12d K=02K2MM+K=1MM+0
50 40 49 breq12d K=00K2K2MM+K11MM+0
51 50 adantl M0K=00K2K2MM+K11MM+0
52 38 51 mpbird M0K=00K2K2MM+K
53 16 52 jaodan M0KK=00K2K2MM+K
54 1 53 sylan2b M0K00K2K2MM+K
55 nn0cn M0M
56 55 exp0d M0M0=1
57 56 oveq2d M00KM0=0K1
58 nn0expcl 00K00K0
59 20 58 mpan K00K0
60 59 nn0cnd K00K
61 60 mulridd K00K1=0K
62 57 61 sylan9eq M0K00KM0=0K
63 13 nn0cnd M0K02K2MM+K
64 63 mulridd M0K02K2MM+K1=2K2MM+K
65 54 62 64 3brtr4d M0K00KM02K2MM+K1
66 65 adantr M0K0N=00KM02K2MM+K1
67 oveq1 N=0NK=0K
68 oveq2 N=0MN=M0
69 67 68 oveq12d N=0NKMN=0KM0
70 fveq2 N=0N!=0!
71 fac0 0!=1
72 70 71 eqtrdi N=0N!=1
73 72 oveq2d N=02K2MM+KN!=2K2MM+K1
74 69 73 breq12d N=0NKMN2K2MM+KN!0KM02K2MM+K1
75 74 adantl M0K0N=0NKMN2K2MM+KN!0KM02K2MM+K1
76 66 75 mpbird M0K0N=0NKMN2K2MM+KN!