Metamath Proof Explorer


Theorem hypcgrlem2

Description: Lemma for hypcgr , case where triangles share one vertex B . (Contributed by Thierry Arnoux, 16-Dec-2019)

Ref Expression
Hypotheses hypcgr.p P=BaseG
hypcgr.m -˙=distG
hypcgr.i I=ItvG
hypcgr.g φG𝒢Tarski
hypcgr.h φGDim𝒢2
hypcgr.a φAP
hypcgr.b φBP
hypcgr.c φCP
hypcgr.d φDP
hypcgr.e φEP
hypcgr.f φFP
hypcgr.1 φ⟨“ABC”⟩𝒢G
hypcgr.2 φ⟨“DEF”⟩𝒢G
hypcgr.3 φA-˙B=D-˙E
hypcgr.4 φB-˙C=E-˙F
hypcgrlem2.b φB=E
hypcgrlem2.s S=lInv𝒢GCmid𝒢GFLine𝒢GB
Assertion hypcgrlem2 φA-˙C=D-˙F

Proof

Step Hyp Ref Expression
1 hypcgr.p P=BaseG
2 hypcgr.m -˙=distG
3 hypcgr.i I=ItvG
4 hypcgr.g φG𝒢Tarski
5 hypcgr.h φGDim𝒢2
6 hypcgr.a φAP
7 hypcgr.b φBP
8 hypcgr.c φCP
9 hypcgr.d φDP
10 hypcgr.e φEP
11 hypcgr.f φFP
12 hypcgr.1 φ⟨“ABC”⟩𝒢G
13 hypcgr.2 φ⟨“DEF”⟩𝒢G
14 hypcgr.3 φA-˙B=D-˙E
15 hypcgr.4 φB-˙C=E-˙F
16 hypcgrlem2.b φB=E
17 hypcgrlem2.s S=lInv𝒢GCmid𝒢GFLine𝒢GB
18 4 adantr φCmid𝒢GF=BG𝒢Tarski
19 5 adantr φCmid𝒢GF=BGDim𝒢2
20 6 adantr φCmid𝒢GF=BAP
21 7 adantr φCmid𝒢GF=BBP
22 8 adantr φCmid𝒢GF=BCP
23 eqid Line𝒢G=Line𝒢G
24 eqid pInv𝒢G=pInv𝒢G
25 eqid pInv𝒢GB=pInv𝒢GB
26 9 adantr φCmid𝒢GF=BDP
27 1 2 3 23 24 18 21 25 26 mircl φCmid𝒢GF=BpInv𝒢GBDP
28 10 adantr φCmid𝒢GF=BEP
29 12 adantr φCmid𝒢GF=B⟨“ABC”⟩𝒢G
30 eqidd φCmid𝒢GF=BpInv𝒢GBD=pInv𝒢GBD
31 16 adantr φCmid𝒢GF=BB=E
32 1 2 3 23 24 18 21 25 28 mirinv φCmid𝒢GF=BpInv𝒢GBE=EB=E
33 31 32 mpbird φCmid𝒢GF=BpInv𝒢GBE=E
34 33 eqcomd φCmid𝒢GF=BE=pInv𝒢GBE
35 11 adantr φCmid𝒢GF=BFP
36 1 2 3 18 19 22 35 midcom φCmid𝒢GF=BCmid𝒢GF=Fmid𝒢GC
37 simpr φCmid𝒢GF=BCmid𝒢GF=B
38 36 37 eqtr3d φCmid𝒢GF=BFmid𝒢GC=B
39 1 2 3 18 19 35 22 24 21 ismidb φCmid𝒢GF=BC=pInv𝒢GBFFmid𝒢GC=B
40 38 39 mpbird φCmid𝒢GF=BC=pInv𝒢GBF
41 30 34 40 s3eqd φCmid𝒢GF=B⟨“pInv𝒢GBDEC”⟩=⟨“pInv𝒢GBDpInv𝒢GBEpInv𝒢GBF”⟩
42 13 adantr φCmid𝒢GF=B⟨“DEF”⟩𝒢G
43 1 2 3 23 24 18 26 28 35 42 25 21 mirrag φCmid𝒢GF=B⟨“pInv𝒢GBDpInv𝒢GBEpInv𝒢GBF”⟩𝒢G
44 41 43 eqeltrd φCmid𝒢GF=B⟨“pInv𝒢GBDEC”⟩𝒢G
45 14 adantr φCmid𝒢GF=BA-˙B=D-˙E
46 1 2 3 23 24 18 21 25 26 28 miriso φCmid𝒢GF=BpInv𝒢GBD-˙pInv𝒢GBE=D-˙E
47 33 oveq2d φCmid𝒢GF=BpInv𝒢GBD-˙pInv𝒢GBE=pInv𝒢GBD-˙E
48 45 46 47 3eqtr2d φCmid𝒢GF=BA-˙B=pInv𝒢GBD-˙E
49 31 oveq1d φCmid𝒢GF=BB-˙C=E-˙C
50 eqid lInv𝒢GAmid𝒢GpInv𝒢GBDLine𝒢GB=lInv𝒢GAmid𝒢GpInv𝒢GBDLine𝒢GB
51 eqidd φCmid𝒢GF=BC=C
52 1 2 3 18 19 20 21 22 27 28 22 29 44 48 49 31 50 51 hypcgrlem1 φCmid𝒢GF=BA-˙C=pInv𝒢GBD-˙C
53 40 oveq2d φCmid𝒢GF=BpInv𝒢GBD-˙C=pInv𝒢GBD-˙pInv𝒢GBF
54 1 2 3 23 24 18 21 25 26 35 miriso φCmid𝒢GF=BpInv𝒢GBD-˙pInv𝒢GBF=D-˙F
55 52 53 54 3eqtrd φCmid𝒢GF=BA-˙C=D-˙F
56 4 ad2antrr φCmid𝒢GFBC=FG𝒢Tarski
57 5 ad2antrr φCmid𝒢GFBC=FGDim𝒢2
58 6 ad2antrr φCmid𝒢GFBC=FAP
59 7 ad2antrr φCmid𝒢GFBC=FBP
60 8 ad2antrr φCmid𝒢GFBC=FCP
61 9 ad2antrr φCmid𝒢GFBC=FDP
62 10 ad2antrr φCmid𝒢GFBC=FEP
63 11 ad2antrr φCmid𝒢GFBC=FFP
64 12 ad2antrr φCmid𝒢GFBC=F⟨“ABC”⟩𝒢G
65 13 ad2antrr φCmid𝒢GFBC=F⟨“DEF”⟩𝒢G
66 14 ad2antrr φCmid𝒢GFBC=FA-˙B=D-˙E
67 15 ad2antrr φCmid𝒢GFBC=FB-˙C=E-˙F
68 16 ad2antrr φCmid𝒢GFBC=FB=E
69 eqid lInv𝒢GAmid𝒢GDLine𝒢GB=lInv𝒢GAmid𝒢GDLine𝒢GB
70 simpr φCmid𝒢GFBC=FC=F
71 1 2 3 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 hypcgrlem1 φCmid𝒢GFBC=FA-˙C=D-˙F
72 4 ad2antrr φCmid𝒢GFBCFG𝒢Tarski
73 5 ad2antrr φCmid𝒢GFBCFGDim𝒢2
74 6 ad2antrr φCmid𝒢GFBCFAP
75 7 ad2antrr φCmid𝒢GFBCFBP
76 8 ad2antrr φCmid𝒢GFBCFCP
77 11 ad2antrr φCmid𝒢GFBCFFP
78 1 2 3 72 73 76 77 midcl φCmid𝒢GFBCFCmid𝒢GFP
79 simplr φCmid𝒢GFBCFCmid𝒢GFB
80 1 3 23 72 78 75 79 tgelrnln φCmid𝒢GFBCFCmid𝒢GFLine𝒢GBranLine𝒢G
81 9 ad2antrr φCmid𝒢GFBCFDP
82 1 2 3 72 73 17 23 80 81 lmicl φCmid𝒢GFBCFSDP
83 10 ad2antrr φCmid𝒢GFBCFEP
84 1 2 3 72 73 17 23 80 83 lmicl φCmid𝒢GFBCFSEP
85 1 2 3 72 73 17 23 80 77 lmicl φCmid𝒢GFBCFSFP
86 12 ad2antrr φCmid𝒢GFBCF⟨“ABC”⟩𝒢G
87 1 2 3 72 73 17 23 80 lmimot φCmid𝒢GFBCFSGIsmtG
88 13 ad2antrr φCmid𝒢GFBCF⟨“DEF”⟩𝒢G
89 1 2 3 23 24 72 81 83 77 87 88 motrag φCmid𝒢GFBCF⟨“SDSESF”⟩𝒢G
90 14 ad2antrr φCmid𝒢GFBCFA-˙B=D-˙E
91 1 2 3 72 73 17 23 80 81 83 lmiiso φCmid𝒢GFBCFSD-˙SE=D-˙E
92 90 91 eqtr4d φCmid𝒢GFBCFA-˙B=SD-˙SE
93 15 ad2antrr φCmid𝒢GFBCFB-˙C=E-˙F
94 1 2 3 72 73 17 23 80 83 77 lmiiso φCmid𝒢GFBCFSE-˙SF=E-˙F
95 93 94 eqtr4d φCmid𝒢GFBCFB-˙C=SE-˙SF
96 1 3 23 72 78 75 79 tglinerflx2 φCmid𝒢GFBCFBCmid𝒢GFLine𝒢GB
97 1 2 3 72 73 17 23 80 75 96 lmicinv φCmid𝒢GFBCFSB=B
98 16 ad2antrr φCmid𝒢GFBCFB=E
99 98 fveq2d φCmid𝒢GFBCFSB=SE
100 97 99 eqtr3d φCmid𝒢GFBCFB=SE
101 eqid lInv𝒢GAmid𝒢GSDLine𝒢GB=lInv𝒢GAmid𝒢GSDLine𝒢GB
102 1 2 3 72 73 76 77 midcom φCmid𝒢GFBCFCmid𝒢GF=Fmid𝒢GC
103 1 3 23 72 78 75 79 tglinerflx1 φCmid𝒢GFBCFCmid𝒢GFCmid𝒢GFLine𝒢GB
104 102 103 eqeltrrd φCmid𝒢GFBCFFmid𝒢GCCmid𝒢GFLine𝒢GB
105 simpr φCmid𝒢GFBCFCF
106 105 necomd φCmid𝒢GFBCFFC
107 1 3 23 72 77 76 106 tgelrnln φCmid𝒢GFBCFFLine𝒢GCranLine𝒢G
108 1 2 3 72 73 76 77 midbtwn φCmid𝒢GFBCFCmid𝒢GFCIF
109 1 2 3 72 76 78 77 108 tgbtwncom φCmid𝒢GFBCFCmid𝒢GFFIC
110 1 3 23 72 77 76 78 106 109 btwnlng1 φCmid𝒢GFBCFCmid𝒢GFFLine𝒢GC
111 103 110 elind φCmid𝒢GFBCFCmid𝒢GFCmid𝒢GFLine𝒢GBFLine𝒢GC
112 1 3 23 72 77 76 106 tglinerflx2 φCmid𝒢GFBCFCFLine𝒢GC
113 79 necomd φCmid𝒢GFBCFBCmid𝒢GF
114 4 ad2antrr φCmid𝒢GFBC=Cmid𝒢GFG𝒢Tarski
115 8 ad2antrr φCmid𝒢GFBC=Cmid𝒢GFCP
116 11 ad2antrr φCmid𝒢GFBC=Cmid𝒢GFFP
117 5 ad2antrr φCmid𝒢GFBC=Cmid𝒢GFGDim𝒢2
118 simpr φCmid𝒢GFBC=Cmid𝒢GFC=Cmid𝒢GF
119 118 eqcomd φCmid𝒢GFBC=Cmid𝒢GFCmid𝒢GF=C
120 1 2 3 114 117 115 116 119 midcgr φCmid𝒢GFBC=Cmid𝒢GFC-˙C=C-˙F
121 120 eqcomd φCmid𝒢GFBC=Cmid𝒢GFC-˙F=C-˙C
122 1 2 3 114 115 116 115 121 axtgcgrid φCmid𝒢GFBC=Cmid𝒢GFC=F
123 122 ex φCmid𝒢GFBC=Cmid𝒢GFC=F
124 123 necon3d φCmid𝒢GFBCFCCmid𝒢GF
125 124 imp φCmid𝒢GFBCFCCmid𝒢GF
126 98 eqcomd φCmid𝒢GFBCFE=B
127 eqidd φCmid𝒢GFBCFCmid𝒢GF=Cmid𝒢GF
128 1 2 3 72 73 76 77 24 78 ismidb φCmid𝒢GFBCFF=pInv𝒢GCmid𝒢GFCCmid𝒢GF=Cmid𝒢GF
129 127 128 mpbird φCmid𝒢GFBCFF=pInv𝒢GCmid𝒢GFC
130 126 129 oveq12d φCmid𝒢GFBCFE-˙F=B-˙pInv𝒢GCmid𝒢GFC
131 93 130 eqtrd φCmid𝒢GFBCFB-˙C=B-˙pInv𝒢GCmid𝒢GFC
132 1 2 3 23 24 72 75 78 76 israg φCmid𝒢GFBCF⟨“BCmid𝒢GFC”⟩𝒢GB-˙C=B-˙pInv𝒢GCmid𝒢GFC
133 131 132 mpbird φCmid𝒢GFBCF⟨“BCmid𝒢GFC”⟩𝒢G
134 1 2 3 23 72 80 107 111 96 112 113 125 133 ragperp φCmid𝒢GFBCFCmid𝒢GFLine𝒢GB𝒢GFLine𝒢GC
135 134 orcd φCmid𝒢GFBCFCmid𝒢GFLine𝒢GB𝒢GFLine𝒢GCF=C
136 1 2 3 72 73 17 23 80 77 76 islmib φCmid𝒢GFBCFC=SFFmid𝒢GCCmid𝒢GFLine𝒢GBCmid𝒢GFLine𝒢GB𝒢GFLine𝒢GCF=C
137 104 135 136 mpbir2and φCmid𝒢GFBCFC=SF
138 1 2 3 72 73 74 75 76 82 84 85 86 89 92 95 100 101 137 hypcgrlem1 φCmid𝒢GFBCFA-˙C=SD-˙SF
139 1 2 3 72 73 17 23 80 81 77 lmiiso φCmid𝒢GFBCFSD-˙SF=D-˙F
140 138 139 eqtrd φCmid𝒢GFBCFA-˙C=D-˙F
141 71 140 pm2.61dane φCmid𝒢GFBA-˙C=D-˙F
142 55 141 pm2.61dane φA-˙C=D-˙F