Metamath Proof Explorer


Theorem pj3si

Description: Stronger projection triplet theorem. (Contributed by NM, 2-Dec-2000) (New usage is discouraged.)

Ref Expression
Hypotheses pjadj2co.1 FC
pjadj2co.2 GC
pjadj2co.3 HC
Assertion pj3si projFprojGprojH=projHprojGprojFranprojFprojGprojHGprojFprojGprojH=projFGH

Proof

Step Hyp Ref Expression
1 pjadj2co.1 FC
2 pjadj2co.2 GC
3 pjadj2co.3 HC
4 1 2 3 pj2cocli xprojFprojGprojHxF
5 4 adantl ranprojFprojGprojHGxprojFprojGprojHxF
6 1 pjfi projF:
7 2 pjfi projG:
8 6 7 hocofi projFprojG:
9 3 pjfi projH:
10 8 9 hocofni projFprojGprojHFn
11 fnfvelrn projFprojGprojHFnxprojFprojGprojHxranprojFprojGprojH
12 10 11 mpan xprojFprojGprojHxranprojFprojGprojH
13 ssel ranprojFprojGprojHGprojFprojGprojHxranprojFprojGprojHprojFprojGprojHxG
14 12 13 syl5 ranprojFprojGprojHGxprojFprojGprojHxG
15 14 imp ranprojFprojGprojHGxprojFprojGprojHxG
16 5 15 elind ranprojFprojGprojHGxprojFprojGprojHxFG
17 16 adantll projFprojGprojH=projHprojGprojFranprojFprojGprojHGxprojFprojGprojHxFG
18 3 2 1 pj2cocli xprojHprojGprojFxH
19 fveq1 projFprojGprojH=projHprojGprojFprojFprojGprojHx=projHprojGprojFx
20 19 eleq1d projFprojGprojH=projHprojGprojFprojFprojGprojHxHprojHprojGprojFxH
21 18 20 imbitrrid projFprojGprojH=projHprojGprojFxprojFprojGprojHxH
22 21 imp projFprojGprojH=projHprojGprojFxprojFprojGprojHxH
23 22 adantlr projFprojGprojH=projHprojGprojFranprojFprojGprojHGxprojFprojGprojHxH
24 17 23 elind projFprojGprojH=projHprojGprojFranprojFprojGprojHGxprojFprojGprojHxFGH
25 8 9 hococli xprojFprojGprojHx
26 hvsubcl xprojFprojGprojHxx-projFprojGprojHx
27 25 26 mpdan xx-projFprojGprojHx
28 27 adantl projFprojGprojH=projHprojGprojFranprojFprojGprojHGxx-projFprojGprojHx
29 simpl xyFGHx
30 25 adantr xyFGHprojFprojGprojHx
31 1 2 chincli FGC
32 31 3 chincli FGHC
33 32 cheli yFGHy
34 33 adantl xyFGHy
35 29 30 34 3jca xyFGHxprojFprojGprojHxy
36 35 adantl projFprojGprojH=projHprojGprojFranprojFprojGprojHGxyFGHxprojFprojGprojHxy
37 his2sub xprojFprojGprojHxyx-projFprojGprojHxihy=xihyprojFprojGprojHxihy
38 36 37 syl projFprojGprojH=projHprojGprojFranprojFprojGprojHGxyFGHx-projFprojGprojHxihy=xihyprojFprojGprojHxihy
39 19 adantr projFprojGprojH=projHprojGprojFranprojFprojGprojHGprojFprojGprojHx=projHprojGprojFx
40 39 oveq1d projFprojGprojH=projHprojGprojFranprojFprojGprojHGprojFprojGprojHxihy=projHprojGprojFxihy
41 3 2 1 pjadj2coi xyprojHprojGprojFxihy=xihprojFprojGprojHy
42 33 41 sylan2 xyFGHprojHprojGprojFxihy=xihprojFprojGprojHy
43 1 2 3 pj3lem1 yFGHprojFprojGprojHy=y
44 43 oveq2d yFGHxihprojFprojGprojHy=xihy
45 44 adantl xyFGHxihprojFprojGprojHy=xihy
46 42 45 eqtrd xyFGHprojHprojGprojFxihy=xihy
47 40 46 sylan9eq projFprojGprojH=projHprojGprojFranprojFprojGprojHGxyFGHprojFprojGprojHxihy=xihy
48 47 oveq1d projFprojGprojH=projHprojGprojFranprojFprojGprojHGxyFGHprojFprojGprojHxihyprojFprojGprojHxihy=xihyprojFprojGprojHxihy
49 25 33 anim12i xyFGHprojFprojGprojHxy
50 49 adantl projFprojGprojH=projHprojGprojFranprojFprojGprojHGxyFGHprojFprojGprojHxy
51 hicl projFprojGprojHxyprojFprojGprojHxihy
52 50 51 syl projFprojGprojH=projHprojGprojFranprojFprojGprojHGxyFGHprojFprojGprojHxihy
53 52 subidd projFprojGprojH=projHprojGprojFranprojFprojGprojHGxyFGHprojFprojGprojHxihyprojFprojGprojHxihy=0
54 38 48 53 3eqtr2d projFprojGprojH=projHprojGprojFranprojFprojGprojHGxyFGHx-projFprojGprojHxihy=0
55 54 expr projFprojGprojH=projHprojGprojFranprojFprojGprojHGxyFGHx-projFprojGprojHxihy=0
56 55 ralrimiv projFprojGprojH=projHprojGprojFranprojFprojGprojHGxyFGHx-projFprojGprojHxihy=0
57 32 chshii FGHS
58 shocel FGHSx-projFprojGprojHxFGHx-projFprojGprojHxyFGHx-projFprojGprojHxihy=0
59 57 58 ax-mp x-projFprojGprojHxFGHx-projFprojGprojHxyFGHx-projFprojGprojHxihy=0
60 28 56 59 sylanbrc projFprojGprojH=projHprojGprojFranprojFprojGprojHGxx-projFprojGprojHxFGH
61 32 pjvi projFprojGprojHxFGHx-projFprojGprojHxFGHprojFGHprojFprojGprojHx+x-projFprojGprojHx=projFprojGprojHx
62 24 60 61 syl2anc projFprojGprojH=projHprojGprojFranprojFprojGprojHGxprojFGHprojFprojGprojHx+x-projFprojGprojHx=projFprojGprojHx
63 id xx
64 hvaddsub12 projFprojGprojHxxprojFprojGprojHxprojFprojGprojHx+x-projFprojGprojHx=x+projFprojGprojHx-projFprojGprojHx
65 25 63 25 64 syl3anc xprojFprojGprojHx+x-projFprojGprojHx=x+projFprojGprojHx-projFprojGprojHx
66 hvsubid projFprojGprojHxprojFprojGprojHx-projFprojGprojHx=0
67 25 66 syl xprojFprojGprojHx-projFprojGprojHx=0
68 67 oveq2d xx+projFprojGprojHx-projFprojGprojHx=x+0
69 ax-hvaddid xx+0=x
70 68 69 eqtrd xx+projFprojGprojHx-projFprojGprojHx=x
71 65 70 eqtrd xprojFprojGprojHx+x-projFprojGprojHx=x
72 71 fveq2d xprojFGHprojFprojGprojHx+x-projFprojGprojHx=projFGHx
73 72 adantl projFprojGprojH=projHprojGprojFranprojFprojGprojHGxprojFGHprojFprojGprojHx+x-projFprojGprojHx=projFGHx
74 62 73 eqtr3d projFprojGprojH=projHprojGprojFranprojFprojGprojHGxprojFprojGprojHx=projFGHx
75 74 ralrimiva projFprojGprojH=projHprojGprojFranprojFprojGprojHGxprojFprojGprojHx=projFGHx
76 8 9 hocofi projFprojGprojH:
77 32 pjfi projFGH:
78 76 77 hoeqi xprojFprojGprojHx=projFGHxprojFprojGprojH=projFGH
79 75 78 sylib projFprojGprojH=projHprojGprojFranprojFprojGprojHGprojFprojGprojH=projFGH