Metamath Proof Explorer


Theorem summolem3

Description: Lemma for summo . (Contributed by Mario Carneiro, 29-Mar-2014)

Ref Expression
Hypotheses summo.1 F=kifkAB0
summo.2 φkAB
summo.3 G=nfn/kB
summolem3.4 H=nKn/kB
summolem3.5 φMN
summolem3.6 φf:1M1-1 ontoA
summolem3.7 φK:1N1-1 ontoA
Assertion summolem3 φseq1+GM=seq1+HN

Proof

Step Hyp Ref Expression
1 summo.1 F=kifkAB0
2 summo.2 φkAB
3 summo.3 G=nfn/kB
4 summolem3.4 H=nKn/kB
5 summolem3.5 φMN
6 summolem3.6 φf:1M1-1 ontoA
7 summolem3.7 φK:1N1-1 ontoA
8 addcl mjm+j
9 8 adantl φmjm+j
10 addcom mjm+j=j+m
11 10 adantl φmjm+j=j+m
12 addass mjym+j+y=m+j+y
13 12 adantl φmjym+j+y=m+j+y
14 5 simpld φM
15 nnuz =1
16 14 15 eleqtrdi φM1
17 ssidd φ
18 f1ocnv f:1M1-1 ontoAf-1:A1-1 onto1M
19 6 18 syl φf-1:A1-1 onto1M
20 f1oco f-1:A1-1 onto1MK:1N1-1 ontoAf-1K:1N1-1 onto1M
21 19 7 20 syl2anc φf-1K:1N1-1 onto1M
22 ovex 1NV
23 22 f1oen f-1K:1N1-1 onto1M1N1M
24 21 23 syl φ1N1M
25 fzfi 1NFin
26 fzfi 1MFin
27 hashen 1NFin1MFin1N=1M1N1M
28 25 26 27 mp2an 1N=1M1N1M
29 24 28 sylibr φ1N=1M
30 5 simprd φN
31 nnnn0 NN0
32 hashfz1 N01N=N
33 30 31 32 3syl φ1N=N
34 nnnn0 MM0
35 hashfz1 M01M=M
36 14 34 35 3syl φ1M=M
37 29 33 36 3eqtr3rd φM=N
38 37 oveq2d φ1M=1N
39 38 f1oeq2d φf-1K:1M1-1 onto1Mf-1K:1N1-1 onto1M
40 21 39 mpbird φf-1K:1M1-1 onto1M
41 fveq2 n=mfn=fm
42 41 csbeq1d n=mfn/kB=fm/kB
43 elfznn m1Mm
44 43 adantl φm1Mm
45 f1of f:1M1-1 ontoAf:1MA
46 6 45 syl φf:1MA
47 46 ffvelcdmda φm1MfmA
48 2 ralrimiva φkAB
49 48 adantr φm1MkAB
50 nfcsb1v _kfm/kB
51 50 nfel1 kfm/kB
52 csbeq1a k=fmB=fm/kB
53 52 eleq1d k=fmBfm/kB
54 51 53 rspc fmAkABfm/kB
55 47 49 54 sylc φm1Mfm/kB
56 3 42 44 55 fvmptd3 φm1MGm=fm/kB
57 56 55 eqeltrd φm1MGm
58 38 f1oeq2d φK:1M1-1 ontoAK:1N1-1 ontoA
59 7 58 mpbird φK:1M1-1 ontoA
60 f1of K:1M1-1 ontoAK:1MA
61 59 60 syl φK:1MA
62 fvco3 K:1MAi1Mf-1Ki=f-1Ki
63 61 62 sylan φi1Mf-1Ki=f-1Ki
64 63 fveq2d φi1Mff-1Ki=ff-1Ki
65 6 adantr φi1Mf:1M1-1 ontoA
66 61 ffvelcdmda φi1MKiA
67 f1ocnvfv2 f:1M1-1 ontoAKiAff-1Ki=Ki
68 65 66 67 syl2anc φi1Mff-1Ki=Ki
69 64 68 eqtr2d φi1MKi=ff-1Ki
70 69 csbeq1d φi1MKi/kB=ff-1Ki/kB
71 70 fveq2d φi1MIKi/kB=Iff-1Ki/kB
72 elfznn i1Mi
73 72 adantl φi1Mi
74 fveq2 n=iKn=Ki
75 74 csbeq1d n=iKn/kB=Ki/kB
76 75 4 fvmpti iHi=IKi/kB
77 73 76 syl φi1MHi=IKi/kB
78 f1of f-1K:1M1-1 onto1Mf-1K:1M1M
79 40 78 syl φf-1K:1M1M
80 79 ffvelcdmda φi1Mf-1Ki1M
81 elfznn f-1Ki1Mf-1Ki
82 fveq2 n=f-1Kifn=ff-1Ki
83 82 csbeq1d n=f-1Kifn/kB=ff-1Ki/kB
84 83 3 fvmpti f-1KiGf-1Ki=Iff-1Ki/kB
85 80 81 84 3syl φi1MGf-1Ki=Iff-1Ki/kB
86 71 77 85 3eqtr4d φi1MHi=Gf-1Ki
87 9 11 13 16 17 40 57 86 seqf1o φseq1+HM=seq1+GM
88 37 fveq2d φseq1+HM=seq1+HN
89 87 88 eqtr3d φseq1+GM=seq1+HN