Metamath Proof Explorer


Theorem pjss2coi

Description: Subset relationship for projections. Theorem 4.5(i)<->(ii) of Beran p. 112. (Contributed by NM, 7-Oct-2000) (New usage is discouraged.)

Ref Expression
Hypotheses pjco.1 GC
pjco.2 HC
Assertion pjss2coi GHprojGprojH=projG

Proof

Step Hyp Ref Expression
1 pjco.1 GC
2 pjco.2 HC
3 1 2 pjcoi xprojGprojHx=projGprojHx
4 3 adantl GHxprojGprojHx=projGprojHx
5 2fveq3 x=ifxx0projGprojHx=projGprojHifxx0
6 fveq2 x=ifxx0projGx=projGifxx0
7 5 6 eqeq12d x=ifxx0projGprojHx=projGxprojGprojHifxx0=projGifxx0
8 7 imbi2d x=ifxx0GHprojGprojHx=projGxGHprojGprojHifxx0=projGifxx0
9 ifhvhv0 ifxx0
10 1 9 2 pjss2i GHprojGprojHifxx0=projGifxx0
11 8 10 dedth xGHprojGprojHx=projGx
12 11 impcom GHxprojGprojHx=projGx
13 4 12 eqtrd GHxprojGprojHx=projGx
14 13 ralrimiva GHxprojGprojHx=projGx
15 1 pjfi projG:
16 2 pjfi projH:
17 15 16 hocofi projGprojH:
18 17 15 hoeqi xprojGprojHx=projGxprojGprojH=projG
19 14 18 sylib GHprojGprojH=projG
20 fveq1 projGprojH=projGprojGprojHy=projGy
21 20 oveq2d projGprojH=projGxihprojGprojHy=xihprojGy
22 21 ad2antlr xprojGprojH=projGyxihprojGprojHy=xihprojGy
23 2 1 pjadjcoi xyprojHprojGxihy=xihprojGprojHy
24 23 adantlr xprojGprojH=projGyprojHprojGxihy=xihprojGprojHy
25 1 pjadji xyprojGxihy=xihprojGy
26 25 adantlr xprojGprojH=projGyprojGxihy=xihprojGy
27 22 24 26 3eqtr4d xprojGprojH=projGyprojHprojGxihy=projGxihy
28 27 exp31 xprojGprojH=projGyprojHprojGxihy=projGxihy
29 28 ralrimdv xprojGprojH=projGyprojHprojGxihy=projGxihy
30 2 1 pjcohcli xprojHprojGx
31 1 pjhcli xprojGx
32 hial2eq projHprojGxprojGxyprojHprojGxihy=projGxihyprojHprojGx=projGx
33 30 31 32 syl2anc xyprojHprojGxihy=projGxihyprojHprojGx=projGx
34 29 33 sylibd xprojGprojH=projGprojHprojGx=projGx
35 34 com12 projGprojH=projGxprojHprojGx=projGx
36 35 ralrimiv projGprojH=projGxprojHprojGx=projGx
37 16 15 hocofi projHprojG:
38 37 15 hoeqi xprojHprojGx=projGxprojHprojG=projG
39 36 38 sylib projGprojH=projGprojHprojG=projG
40 1 2 pjss1coi GHprojHprojG=projG
41 39 40 sylibr projGprojH=projGGH
42 19 41 impbii GHprojGprojH=projG