Metamath Proof Explorer


Theorem eulerpartlems

Description: Lemma for eulerpart . (Contributed by Thierry Arnoux, 6-Aug-2018) (Revised by Thierry Arnoux, 1-Sep-2019)

Ref Expression
Hypotheses eulerpartlems.r R = f | f -1 Fin
eulerpartlems.s S = f 0 R k f k k
Assertion eulerpartlems A 0 R t S A + 1 A t = 0

Proof

Step Hyp Ref Expression
1 eulerpartlems.r R = f | f -1 Fin
2 eulerpartlems.s S = f 0 R k f k k
3 1 2 eulerpartlemsf S : 0 R 0
4 3 ffvelcdmi A 0 R S A 0
5 nndiffz1 S A 0 1 S A = S A + 1
6 5 eleq2d S A 0 t 1 S A t S A + 1
7 4 6 syl A 0 R t 1 S A t S A + 1
8 7 pm5.32i A 0 R t 1 S A A 0 R t S A + 1
9 eldif t 1 S A t ¬ t 1 S A
10 9 bilani A 0 R t 1 S A t ¬ t 1 S A
11 10 simpld A 0 R t 1 S A t
12 1 2 eulerpartlemelr A 0 R A : 0 A -1 Fin
13 12 simpld A 0 R A : 0
14 13 ffvelcdmda A 0 R t A t 0
15 11 14 syldan A 0 R t 1 S A A t 0
16 simpl A 0 R t 1 S A A 0 R
17 4 adantr A 0 R t 1 S A S A 0
18 10 simprd A 0 R t 1 S A ¬ t 1 S A
19 simpl t S A 0 t
20 nnuz = 1
21 19 20 eleqtrdi t S A 0 t 1
22 simpr t S A 0 S A 0
23 22 nn0zd t S A 0 S A
24 elfz5 t 1 S A t 1 S A t S A
25 21 23 24 syl2anc t S A 0 t 1 S A t S A
26 25 notbid t S A 0 ¬ t 1 S A ¬ t S A
27 22 nn0red t S A 0 S A
28 19 nnred t S A 0 t
29 27 28 ltnled t S A 0 S A < t ¬ t S A
30 26 29 bitr4d t S A 0 ¬ t 1 S A S A < t
31 30 biimpa t S A 0 ¬ t 1 S A S A < t
32 11 17 18 31 syl21anc A 0 R t 1 S A S A < t
33 1 2 eulerpartlemsv1 A 0 R S A = k A k k
34 fveq2 k = t A k = A t
35 id k = t k = t
36 34 35 oveq12d k = t A k k = A t t
37 36 cbvsumv k A k k = t A t t
38 33 37 eqtr2di A 0 R t A t t = S A
39 breq2 t = l S A < t S A < l
40 fveq2 t = l A t = A l
41 40 breq2d t = l 0 < A t 0 < A l
42 39 41 anbi12d t = l S A < t 0 < A t S A < l 0 < A l
43 42 cbvrexvw t S A < t 0 < A t l S A < l 0 < A l
44 4 adantr A 0 R l S A < l 0 < A l S A 0
45 44 nn0red A 0 R l S A < l 0 < A l S A
46 4 ad2antrr A 0 R l S A < l 0 < A l S A 0
47 46 nn0red A 0 R l S A < l 0 < A l S A
48 simpr A 0 R l l
49 48 adantr A 0 R l S A < l 0 < A l l
50 49 nnred A 0 R l S A < l 0 < A l l
51 1zzd A 0 R l 1
52 13 ad2antrr A 0 R l t A : 0
53 simpr A 0 R l t t
54 eqidd A : 0 t m A m m = m A m m
55 simpr A : 0 t m = t m = t
56 55 fveq2d A : 0 t m = t A m = A t
57 56 55 oveq12d A : 0 t m = t A m m = A t t
58 simpr A : 0 t t
59 ffvelcdm A : 0 t A t 0
60 58 nnnn0d A : 0 t t 0
61 59 60 nn0mulcld A : 0 t A t t 0
62 54 57 58 61 fvmptd A : 0 t m A m m t = A t t
63 52 53 62 syl2anc A 0 R l t m A m m t = A t t
64 13 adantr A 0 R l A : 0
65 64 ffvelcdmda A 0 R l t A t 0
66 53 nnnn0d A 0 R l t t 0
67 65 66 nn0mulcld A 0 R l t A t t 0
68 67 nn0red A 0 R l t A t t
69 fveq2 m = t A m = A t
70 id m = t m = t
71 69 70 oveq12d m = t A m m = A t t
72 71 cbvmptv m A m m = t A t t
73 67 72 fmptd A 0 R l m A m m : 0
74 nn0sscn 0
75 fss m A m m : 0 0 m A m m :
76 73 74 75 sylancl A 0 R l m A m m :
77 nnex V
78 0nn0 0 0
79 eqid 0 = 0
80 79 ffs2 V 0 0 m A m m : m A m m supp 0 = m A m m -1 0
81 77 78 80 mp3an12 m A m m : m A m m supp 0 = m A m m -1 0
82 76 81 syl A 0 R l m A m m supp 0 = m A m m -1 0
83 fcdmnn0supp V A : 0 A supp 0 = A -1
84 77 64 83 sylancr A 0 R l A supp 0 = A -1
85 12 simprd A 0 R A -1 Fin
86 85 adantr A 0 R l A -1 Fin
87 84 86 eqeltrd A 0 R l A supp 0 Fin
88 77 a1i A : 0 V
89 78 a1i A : 0 0 0
90 ffn A : 0 A Fn
91 simp3 A : 0 t A t = 0 A t = 0
92 91 oveq1d A : 0 t A t = 0 A t t = 0 t
93 simp2 A : 0 t A t = 0 t
94 93 nncnd A : 0 t A t = 0 t
95 94 mul02d A : 0 t A t = 0 0 t = 0
96 92 95 eqtrd A : 0 t A t = 0 A t t = 0
97 72 88 89 90 96 suppss3 A : 0 m A m m supp 0 A supp 0
98 64 97 syl A 0 R l m A m m supp 0 A supp 0
99 ssfi A supp 0 Fin m A m m supp 0 A supp 0 m A m m supp 0 Fin
100 87 98 99 syl2anc A 0 R l m A m m supp 0 Fin
101 82 100 eqeltrrd A 0 R l m A m m -1 0 Fin
102 20 51 76 101 fsumcvg4 A 0 R l seq 1 + m A m m dom
103 20 51 63 68 102 isumrecl A 0 R l t A t t
104 103 adantr A 0 R l S A < l 0 < A l t A t t
105 simprl A 0 R l S A < l 0 < A l S A < l
106 13 ffvelcdmda A 0 R l A l 0
107 106 adantr A 0 R l S A < l 0 < A l A l 0
108 107 nn0red A 0 R l S A < l 0 < A l A l
109 108 50 remulcld A 0 R l S A < l 0 < A l A l l
110 49 nnnn0d A 0 R l S A < l 0 < A l l 0
111 110 nn0ge0d A 0 R l S A < l 0 < A l 0 l
112 simprr A 0 R l S A < l 0 < A l 0 < A l
113 elnnnn0b A l A l 0 0 < A l
114 nnge1 A l 1 A l
115 113 114 sylbir A l 0 0 < A l 1 A l
116 107 112 115 syl2anc A 0 R l S A < l 0 < A l 1 A l
117 50 108 111 116 lemulge12d A 0 R l S A < l 0 < A l l A l l
118 106 nn0cnd A 0 R l A l
119 48 nncnd A 0 R l l
120 118 119 mulcld A 0 R l A l l
121 id t = l t = l
122 40 121 oveq12d t = l A t t = A l l
123 122 sumsn l A l l t l A t t = A l l
124 48 120 123 syl2anc A 0 R l t l A t t = A l l
125 snfi l Fin
126 125 a1i A 0 R l l Fin
127 48 snssd A 0 R l l
128 67 nn0ge0d A 0 R l t 0 A t t
129 20 51 126 127 63 68 128 102 isumless A 0 R l t l A t t t A t t
130 124 129 eqbrtrrd A 0 R l A l l t A t t
131 130 adantr A 0 R l S A < l 0 < A l A l l t A t t
132 50 109 104 117 131 letrd A 0 R l S A < l 0 < A l l t A t t
133 47 50 104 105 132 ltletrd A 0 R l S A < l 0 < A l S A < t A t t
134 133 r19.29an A 0 R l S A < l 0 < A l S A < t A t t
135 45 134 gtned A 0 R l S A < l 0 < A l t A t t S A
136 135 ex A 0 R l S A < l 0 < A l t A t t S A
137 43 136 biimtrid A 0 R t S A < t 0 < A t t A t t S A
138 137 necon2bd A 0 R t A t t = S A ¬ t S A < t 0 < A t
139 38 138 mpd A 0 R ¬ t S A < t 0 < A t
140 ralnex t ¬ S A < t 0 < A t ¬ t S A < t 0 < A t
141 139 140 sylibr A 0 R t ¬ S A < t 0 < A t
142 imnan S A < t ¬ 0 < A t ¬ S A < t 0 < A t
143 142 ralbii t S A < t ¬ 0 < A t t ¬ S A < t 0 < A t
144 141 143 sylibr A 0 R t S A < t ¬ 0 < A t
145 144 r19.21bi A 0 R t S A < t ¬ 0 < A t
146 145 imp A 0 R t S A < t ¬ 0 < A t
147 16 11 32 146 syl21anc A 0 R t 1 S A ¬ 0 < A t
148 nn0re A t 0 A t
149 0red A t 0 0
150 148 149 lenltd A t 0 A t 0 ¬ 0 < A t
151 nn0le0eq0 A t 0 A t 0 A t = 0
152 150 151 bitr3d A t 0 ¬ 0 < A t A t = 0
153 152 biimpa A t 0 ¬ 0 < A t A t = 0
154 15 147 153 syl2anc A 0 R t 1 S A A t = 0
155 8 154 sylbir A 0 R t S A + 1 A t = 0