Metamath Proof Explorer


Theorem cvmliftiota

Description: Write out a function H that is the unique lift of F . (Contributed by Mario Carneiro, 16-Feb-2015)

Ref Expression
Hypotheses cvmliftiota.b B=C
cvmliftiota.h H=ιfIICnC|Ff=Gf0=P
cvmliftiota.f φFCCovMapJ
cvmliftiota.g φGIICnJ
cvmliftiota.p φPB
cvmliftiota.e φFP=G0
Assertion cvmliftiota φHIICnCFH=GH0=P

Proof

Step Hyp Ref Expression
1 cvmliftiota.b B=C
2 cvmliftiota.h H=ιfIICnC|Ff=Gf0=P
3 cvmliftiota.f φFCCovMapJ
4 cvmliftiota.g φGIICnJ
5 cvmliftiota.p φPB
6 cvmliftiota.e φFP=G0
7 coeq2 f=gFf=Fg
8 7 eqeq1d f=gFf=GFg=G
9 fveq1 f=gf0=g0
10 9 eqeq1d f=gf0=Pg0=P
11 8 10 anbi12d f=gFf=Gf0=PFg=Gg0=P
12 11 cbvriotavw ιfIICnC|Ff=Gf0=P=ιgIICnC|Fg=Gg0=P
13 2 12 eqtri H=ιgIICnC|Fg=Gg0=P
14 1 cvmlift FCCovMapJGIICnJPBFP=G0∃!gIICnCFg=Gg0=P
15 3 4 5 6 14 syl22anc φ∃!gIICnCFg=Gg0=P
16 riotacl2 ∃!gIICnCFg=Gg0=PιgIICnC|Fg=Gg0=PgIICnC|Fg=Gg0=P
17 15 16 syl φιgIICnC|Fg=Gg0=PgIICnC|Fg=Gg0=P
18 13 17 eqeltrid φHgIICnC|Fg=Gg0=P
19 coeq2 g=HFg=FH
20 19 eqeq1d g=HFg=GFH=G
21 fveq1 g=Hg0=H0
22 21 eqeq1d g=Hg0=PH0=P
23 20 22 anbi12d g=HFg=Gg0=PFH=GH0=P
24 23 elrab HgIICnC|Fg=Gg0=PHIICnCFH=GH0=P
25 3anass HIICnCFH=GH0=PHIICnCFH=GH0=P
26 24 25 bitr4i HgIICnC|Fg=Gg0=PHIICnCFH=GH0=P
27 18 26 sylib φHIICnCFH=GH0=P