Metamath Proof Explorer


Theorem krippenlem

Description: Lemma for krippen . We can assume krippen.7 "without loss of generality". (Contributed by Thierry Arnoux, 12-Aug-2019)

Ref Expression
Hypotheses mirval.p P=BaseG
mirval.d -˙=distG
mirval.i I=ItvG
mirval.l L=Line𝒢G
mirval.s S=pInv𝒢G
mirval.g φG𝒢Tarski
krippen.m M=SX
krippen.n N=SY
krippen.a φAP
krippen.b φBP
krippen.c φCP
krippen.e φEP
krippen.f φFP
krippen.x φXP
krippen.y φYP
krippen.1 φCAIE
krippen.2 φCBIF
krippen.3 φC-˙A=C-˙B
krippen.4 φC-˙E=C-˙F
krippen.5 φB=MA
krippen.6 φF=NE
krippen.l ˙=𝒢G
krippen.7 φC-˙A˙C-˙E
Assertion krippenlem φCXIY

Proof

Step Hyp Ref Expression
1 mirval.p P=BaseG
2 mirval.d -˙=distG
3 mirval.i I=ItvG
4 mirval.l L=Line𝒢G
5 mirval.s S=pInv𝒢G
6 mirval.g φG𝒢Tarski
7 krippen.m M=SX
8 krippen.n N=SY
9 krippen.a φAP
10 krippen.b φBP
11 krippen.c φCP
12 krippen.e φEP
13 krippen.f φFP
14 krippen.x φXP
15 krippen.y φYP
16 krippen.1 φCAIE
17 krippen.2 φCBIF
18 krippen.3 φC-˙A=C-˙B
19 krippen.4 φC-˙E=C-˙F
20 krippen.5 φB=MA
21 krippen.6 φF=NE
22 krippen.l ˙=𝒢G
23 krippen.7 φC-˙A˙C-˙E
24 16 adantr φE=CCAIE
25 6 adantr φE=CG𝒢Tarski
26 11 adantr φE=CCP
27 9 adantr φE=CAP
28 10 adantr φE=CBP
29 18 adantr φE=CC-˙A=C-˙B
30 23 adantr φE=CC-˙A˙C-˙E
31 simpr φE=CE=C
32 31 oveq2d φE=CC-˙E=C-˙C
33 30 32 breqtrd φE=CC-˙A˙C-˙C
34 1 2 3 22 25 26 27 26 28 33 legeq φE=CC=A
35 1 2 3 25 26 27 26 28 29 34 tgcgreq φE=CC=B
36 20 adantr φE=CB=MA
37 35 34 36 3eqtr3rd φE=CMA=A
38 14 adantr φE=CXP
39 1 2 3 4 5 25 38 7 27 mirinv φE=CMA=AX=A
40 37 39 mpbid φE=CX=A
41 13 adantr φE=CFP
42 19 adantr φE=CC-˙E=C-˙F
43 42 32 eqtr3d φE=CC-˙F=C-˙C
44 1 2 3 25 26 41 26 43 axtgcgrid φE=CC=F
45 21 adantr φE=CF=NE
46 31 44 45 3eqtrrd φE=CNE=E
47 15 adantr φE=CYP
48 12 adantr φE=CEP
49 1 2 3 4 5 25 47 8 48 mirinv φE=CNE=EY=E
50 46 49 mpbid φE=CY=E
51 40 50 oveq12d φE=CXIY=AIE
52 24 51 eleqtrrd φE=CCXIY
53 6 adantr φECG𝒢Tarski
54 53 ad2antrr φECqPqSCYICqAIBG𝒢Tarski
55 11 adantr φECCP
56 eqid SC=SC
57 1 2 3 4 5 53 55 56 mirf φECSC:PP
58 15 adantr φECYP
59 57 58 ffvelcdmd φECSCYP
60 59 ad2antrr φECqPqSCYICqAIBSCYP
61 simplr φECqPqSCYICqAIBqP
62 55 ad2antrr φECqPqSCYICqAIBCP
63 58 ad2antrr φECqPqSCYICqAIBYP
64 simprl φECqPqSCYICqAIBqSCYIC
65 1 2 3 4 5 6 11 56 15 mirbtwn φCSCYIY
66 65 ad3antrrr φECqPqSCYICqAIBCSCYIY
67 1 2 3 54 60 61 62 63 64 66 tgbtwnexch3 φECqPqSCYICqAIBCqIY
68 14 ad3antrrr φECqPqSCYICqAIBXP
69 9 adantr φECAP
70 69 ad2antrr φECqPqSCYICqAIBAP
71 10 adantr φECBP
72 71 ad2antrr φECqPqSCYICqAIBBP
73 eqid Sq=Sq
74 12 adantr φECEP
75 57 74 ffvelcdmd φECSCEP
76 13 adantr φECFP
77 57 76 ffvelcdmd φECSCFP
78 6 ad2antrr φECA=CG𝒢Tarski
79 9 ad2antrr φECA=CAP
80 75 adantr φECA=CSCEP
81 1 2 3 78 79 80 tgbtwntriv1 φECA=CAAISCE
82 simpr φECA=CA=C
83 82 oveq1d φECA=CAISCE=CISCE
84 81 83 eleqtrd φECA=CACISCE
85 6 ad2antrr φECACG𝒢Tarski
86 9 ad2antrr φECACAP
87 75 adantr φECACSCEP
88 11 ad2antrr φECACCP
89 12 ad2antrr φECACEP
90 simplr φECACEC
91 1 2 3 6 9 11 12 16 tgbtwncom φCEIA
92 91 ad2antrr φECACCEIA
93 1 2 3 4 5 85 88 56 89 mirbtwn φECACCSCEIE
94 1 2 3 85 87 88 89 93 tgbtwncom φECACCEISCE
95 1 3 85 89 88 86 87 90 92 94 tgbtwnconn2 φECACACISCESCECIA
96 23 adantr φECC-˙A˙C-˙E
97 1 2 3 4 5 53 55 56 74 mircgr φECC-˙SCE=C-˙E
98 96 97 breqtrrd φECC-˙A˙C-˙SCE
99 98 adantr φECACC-˙A˙C-˙SCE
100 1 2 3 22 85 86 87 88 86 95 99 legbtwn φECACACISCE
101 84 100 pm2.61dane φECACISCE
102 1 2 3 53 55 69 75 101 tgbtwncom φECASCEIC
103 6 ad2antrr φECB=CG𝒢Tarski
104 10 ad2antrr φECB=CBP
105 77 adantr φECB=CSCFP
106 1 2 3 103 104 105 tgbtwntriv1 φECB=CBBISCF
107 simpr φECB=CB=C
108 107 oveq1d φECB=CBISCF=CISCF
109 106 108 eleqtrd φECB=CBCISCF
110 6 ad2antrr φECBCG𝒢Tarski
111 10 ad2antrr φECBCBP
112 77 adantr φECBCSCFP
113 11 ad2antrr φECBCCP
114 13 ad2antrr φECBCFP
115 6 adantr φF=CG𝒢Tarski
116 11 adantr φF=CCP
117 12 adantr φF=CEP
118 19 adantr φF=CC-˙E=C-˙F
119 simpr φF=CF=C
120 119 oveq2d φF=CC-˙F=C-˙C
121 118 120 eqtrd φF=CC-˙E=C-˙C
122 1 2 3 115 116 117 116 121 axtgcgrid φF=CC=E
123 122 eqcomd φF=CE=C
124 123 adantlr φECF=CE=C
125 simplr φECF=CEC
126 125 neneqd φECF=C¬E=C
127 124 126 pm2.65da φEC¬F=C
128 127 neqned φECFC
129 128 adantr φECBCFC
130 1 2 3 6 10 11 13 17 tgbtwncom φCFIB
131 130 ad2antrr φECBCCFIB
132 1 2 3 4 5 110 113 56 114 mirbtwn φECBCCSCFIF
133 1 2 3 110 112 113 114 132 tgbtwncom φECBCCFISCF
134 1 3 110 114 113 111 112 129 131 133 tgbtwnconn2 φECBCBCISCFSCFCIB
135 23 18 19 3brtr3d φC-˙B˙C-˙F
136 135 adantr φECC-˙B˙C-˙F
137 1 2 3 4 5 53 55 56 76 mircgr φECC-˙SCF=C-˙F
138 136 137 breqtrrd φECC-˙B˙C-˙SCF
139 138 adantr φECBCC-˙B˙C-˙SCF
140 1 2 3 22 110 111 112 113 111 134 139 legbtwn φECBCBCISCF
141 109 140 pm2.61dane φECBCISCF
142 1 2 3 53 55 71 77 141 tgbtwncom φECBSCFIC
143 19 adantr φECC-˙E=C-˙F
144 143 97 137 3eqtr4d φECC-˙SCE=C-˙SCF
145 1 2 3 53 55 75 55 77 144 tgcgrcomlr φECSCE-˙C=SCF-˙C
146 18 adantr φECC-˙A=C-˙B
147 1 2 3 53 55 69 55 71 146 tgcgrcomlr φECA-˙C=B-˙C
148 eqid SSCY=SSCY
149 1 2 3 4 5 53 59 148 75 mircgr φECSCY-˙SSCYSCE=SCY-˙SCE
150 eqid SCY=SCY
151 eqid SCE=SCE
152 eqid SCF=SCF
153 21 adantr φECF=NE
154 8 fveq1i NE=SYE
155 153 154 eqtr2di φECSYE=F
156 1 2 3 4 5 53 56 150 151 152 55 58 74 76 155 mirauto φECSSCYSCE=SCF
157 156 oveq2d φECSCY-˙SSCYSCE=SCY-˙SCF
158 149 157 eqtr3d φECSCY-˙SCE=SCY-˙SCF
159 1 2 3 53 59 75 59 77 158 tgcgrcomlr φECSCE-˙SCY=SCF-˙SCY
160 eqidd φECC-˙SCY=C-˙SCY
161 1 2 3 53 75 69 55 59 77 71 55 59 102 142 145 147 159 160 tgifscgr φECA-˙SCY=B-˙SCY
162 1 2 3 53 69 59 71 59 161 tgcgrcomlr φECSCY-˙A=SCY-˙B
163 162 ad3antrrr φECqPqSCYICqAIBSCY=CSCY-˙A=SCY-˙B
164 54 adantr φECqPqSCYICqAIBSCY=CG𝒢Tarski
165 60 adantr φECqPqSCYICqAIBSCY=CSCYP
166 61 adantr φECqPqSCYICqAIBSCY=CqP
167 64 adantr φECqPqSCYICqAIBSCY=CqSCYIC
168 simpr φECqPqSCYICqAIBSCY=CSCY=C
169 168 oveq2d φECqPqSCYICqAIBSCY=CSCYISCY=SCYIC
170 167 169 eleqtrrd φECqPqSCYICqAIBSCY=CqSCYISCY
171 1 2 3 164 165 166 170 axtgbtwnid φECqPqSCYICqAIBSCY=CSCY=q
172 171 oveq1d φECqPqSCYICqAIBSCY=CSCY-˙A=q-˙A
173 171 oveq1d φECqPqSCYICqAIBSCY=CSCY-˙B=q-˙B
174 163 172 173 3eqtr3d φECqPqSCYICqAIBSCY=Cq-˙A=q-˙B
175 53 ad3antrrr φECqPqSCYICqAIBSCYCG𝒢Tarski
176 59 ad3antrrr φECqPqSCYICqAIBSCYCSCYP
177 55 ad3antrrr φECqPqSCYICqAIBSCYCCP
178 61 adantr φECqPqSCYICqAIBSCYCqP
179 eqid 𝒢G=𝒢G
180 69 ad3antrrr φECqPqSCYICqAIBSCYCAP
181 71 ad3antrrr φECqPqSCYICqAIBSCYCBP
182 simpr φECqPqSCYICqAIBSCYCSCYC
183 60 adantr φECqPqSCYICqAIBSCYCSCYP
184 64 adantr φECqPqSCYICqAIBSCYCqSCYIC
185 1 4 3 175 183 178 177 184 btwncolg3 φECqPqSCYICqAIBSCYCCSCYLqSCY=q
186 162 ad3antrrr φECqPqSCYICqAIBSCYCSCY-˙A=SCY-˙B
187 146 ad3antrrr φECqPqSCYICqAIBSCYCC-˙A=C-˙B
188 1 4 3 175 176 177 178 179 180 181 2 182 185 186 187 lncgr φECqPqSCYICqAIBSCYCq-˙A=q-˙B
189 174 188 pm2.61dane φECqPqSCYICqAIBq-˙A=q-˙B
190 189 eqcomd φECqPqSCYICqAIBq-˙B=q-˙A
191 simprr φECqPqSCYICqAIBqAIB
192 1 2 3 54 70 61 72 191 tgbtwncom φECqPqSCYICqAIBqBIA
193 1 2 3 4 5 54 61 73 70 72 190 192 ismir φECqPqSCYICqAIBB=SqA
194 193 eqcomd φECqPqSCYICqAIBSqA=B
195 20 ad3antrrr φECqPqSCYICqAIBB=MA
196 7 fveq1i MA=SXA
197 195 196 eqtr2di φECqPqSCYICqAIBSXA=B
198 1 2 3 4 5 54 61 68 70 72 194 197 miduniq φECqPqSCYICqAIBq=X
199 198 oveq1d φECqPqSCYICqAIBqIY=XIY
200 67 199 eleqtrd φECqPqSCYICqAIBCXIY
201 1 2 3 4 5 53 58 8 74 mirbtwn φECYNEIE
202 153 oveq1d φECFIE=NEIE
203 201 202 eleqtrrd φECYFIE
204 1 2 3 53 76 58 74 203 tgbtwncom φECYEIF
205 1 2 3 4 5 53 55 56 74 58 76 204 mirbtwni φECSCYSCEISCF
206 1 2 3 53 75 69 55 77 71 59 102 142 205 tgtrisegint φECqPqSCYICqAIB
207 200 206 r19.29a φECCXIY
208 52 207 pm2.61dane φCXIY