Metamath Proof Explorer


Theorem trgcopyeulem

Description: Lemma for trgcopyeu . (Contributed by Thierry Arnoux, 8-Aug-2020)

Ref Expression
Hypotheses trgcopy.p P=BaseG
trgcopy.m -˙=distG
trgcopy.i I=ItvG
trgcopy.l L=Line𝒢G
trgcopy.k K=hl𝒢G
trgcopy.g φG𝒢Tarski
trgcopy.a φAP
trgcopy.b φBP
trgcopy.c φCP
trgcopy.d φDP
trgcopy.e φEP
trgcopy.f φFP
trgcopy.1 φ¬ABLCB=C
trgcopy.2 φ¬DELFE=F
trgcopy.3 φA-˙B=D-˙E
trgcopyeulem.o O=ab|aPDLEbPDLEtDLEtaIb
trgcopyeulem.x φXP
trgcopyeulem.y φYP
trgcopyeulem.1 φ⟨“ABC”⟩𝒢G⟨“DEX”⟩
trgcopyeulem.2 φ⟨“ABC”⟩𝒢G⟨“DEY”⟩
trgcopyeulem.3 φXhp𝒢GDLEF
trgcopyeulem.4 φYhp𝒢GDLEF
Assertion trgcopyeulem φX=Y

Proof

Step Hyp Ref Expression
1 trgcopy.p P=BaseG
2 trgcopy.m -˙=distG
3 trgcopy.i I=ItvG
4 trgcopy.l L=Line𝒢G
5 trgcopy.k K=hl𝒢G
6 trgcopy.g φG𝒢Tarski
7 trgcopy.a φAP
8 trgcopy.b φBP
9 trgcopy.c φCP
10 trgcopy.d φDP
11 trgcopy.e φEP
12 trgcopy.f φFP
13 trgcopy.1 φ¬ABLCB=C
14 trgcopy.2 φ¬DELFE=F
15 trgcopy.3 φA-˙B=D-˙E
16 trgcopyeulem.o O=ab|aPDLEbPDLEtDLEtaIb
17 trgcopyeulem.x φXP
18 trgcopyeulem.y φYP
19 trgcopyeulem.1 φ⟨“ABC”⟩𝒢G⟨“DEX”⟩
20 trgcopyeulem.2 φ⟨“ABC”⟩𝒢G⟨“DEY”⟩
21 trgcopyeulem.3 φXhp𝒢GDLEF
22 trgcopyeulem.4 φYhp𝒢GDLEF
23 1 4 3 6 8 9 7 13 ncoltgdim2 φGDim𝒢2
24 eqid lInv𝒢GDLE=lInv𝒢GDLE
25 1 3 4 6 10 11 12 14 ncolne1 φDE
26 1 3 4 6 10 11 25 tgelrnln φDLEranL
27 eqid pInv𝒢G=pInv𝒢G
28 6 ad2antrr φtDLEtXIlInv𝒢GDLEYG𝒢Tarski
29 26 ad2antrr φtDLEtXIlInv𝒢GDLEYDLEranL
30 simplr φtDLEtXIlInv𝒢GDLEYtDLE
31 1 4 3 28 29 30 tglnpt φtDLEtXIlInv𝒢GDLEYtP
32 eqid pInv𝒢Gt=pInv𝒢Gt
33 1 2 3 6 23 24 4 26 18 lmicl φlInv𝒢GDLEYP
34 33 ad2antrr φtDLEtXIlInv𝒢GDLEYlInv𝒢GDLEYP
35 17 ad2antrr φtDLEtXIlInv𝒢GDLEYXP
36 10 ad2antrr φtDLEtXIlInv𝒢GDLEYDP
37 11 ad2antrr φtDLEtXIlInv𝒢GDLEYEP
38 eqid 𝒢G=𝒢G
39 25 ad2antrr φtDLEtXIlInv𝒢GDLEYDE
40 39 necomd φtDLEtXIlInv𝒢GDLEYED
41 1 3 4 28 37 36 31 40 30 lncom φtDLEtXIlInv𝒢GDLEYtELD
42 41 orcd φtDLEtXIlInv𝒢GDLEYtELDE=D
43 1 4 3 28 37 36 31 42 colrot1 φtDLEtXIlInv𝒢GDLEYEDLtD=t
44 1 2 3 38 6 7 8 9 10 11 17 19 cgr3simp3 φC-˙A=X-˙D
45 1 2 3 6 9 7 17 10 44 tgcgrcomlr φA-˙C=D-˙X
46 1 2 3 38 6 7 8 9 10 11 18 20 cgr3simp3 φC-˙A=Y-˙D
47 1 2 3 6 9 7 18 10 46 tgcgrcomlr φA-˙C=D-˙Y
48 45 47 eqtr3d φD-˙X=D-˙Y
49 1 2 3 6 23 24 4 26 10 18 lmiiso φlInv𝒢GDLED-˙lInv𝒢GDLEY=D-˙Y
50 1 3 4 6 10 11 25 tglinerflx1 φDDLE
51 1 2 3 6 23 24 4 26 10 50 lmicinv φlInv𝒢GDLED=D
52 51 oveq1d φlInv𝒢GDLED-˙lInv𝒢GDLEY=D-˙lInv𝒢GDLEY
53 48 49 52 3eqtr2d φD-˙X=D-˙lInv𝒢GDLEY
54 53 ad2antrr φtDLEtXIlInv𝒢GDLEYD-˙X=D-˙lInv𝒢GDLEY
55 1 2 3 38 6 7 8 9 10 11 17 19 cgr3simp2 φB-˙C=E-˙X
56 1 2 3 38 6 7 8 9 10 11 18 20 cgr3simp2 φB-˙C=E-˙Y
57 55 56 eqtr3d φE-˙X=E-˙Y
58 1 2 3 6 23 24 4 26 11 18 lmiiso φlInv𝒢GDLEE-˙lInv𝒢GDLEY=E-˙Y
59 1 3 4 6 10 11 25 tglinerflx2 φEDLE
60 1 2 3 6 23 24 4 26 11 59 lmicinv φlInv𝒢GDLEE=E
61 60 oveq1d φlInv𝒢GDLEE-˙lInv𝒢GDLEY=E-˙lInv𝒢GDLEY
62 57 58 61 3eqtr2d φE-˙X=E-˙lInv𝒢GDLEY
63 62 ad2antrr φtDLEtXIlInv𝒢GDLEYE-˙X=E-˙lInv𝒢GDLEY
64 1 4 3 28 36 37 31 38 35 34 2 39 43 54 63 lncgr φtDLEtXIlInv𝒢GDLEYt-˙X=t-˙lInv𝒢GDLEY
65 simpr φtDLEtXIlInv𝒢GDLEYtXIlInv𝒢GDLEY
66 1 2 3 4 27 28 31 32 34 35 64 65 ismir φtDLEtXIlInv𝒢GDLEYX=pInv𝒢GtlInv𝒢GDLEY
67 66 eqcomd φtDLEtXIlInv𝒢GDLEYpInv𝒢GtlInv𝒢GDLEY=X
68 1 2 3 4 27 28 31 32 34 67 mircom φtDLEtXIlInv𝒢GDLEYpInv𝒢GtX=lInv𝒢GDLEY
69 68 eqcomd φtDLEtXIlInv𝒢GDLEYlInv𝒢GDLEY=pInv𝒢GtX
70 23 ad2antrr φtDLEtXIlInv𝒢GDLEYGDim𝒢2
71 1 2 3 28 70 35 34 27 31 ismidb φtDLEtXIlInv𝒢GDLEYlInv𝒢GDLEY=pInv𝒢GtXXmid𝒢GlInv𝒢GDLEY=t
72 69 71 mpbid φtDLEtXIlInv𝒢GDLEYXmid𝒢GlInv𝒢GDLEY=t
73 72 30 eqeltrd φtDLEtXIlInv𝒢GDLEYXmid𝒢GlInv𝒢GDLEYDLE
74 1 3 4 6 26 17 16 12 21 hpgcom φFhp𝒢GDLEX
75 1 3 4 6 26 18 16 12 22 17 74 hpgtr φYhp𝒢GDLEX
76 1 3 4 16 6 26 18 12 22 hpgne1 φ¬YDLE
77 1 2 3 4 6 23 26 16 24 18 76 lmiopp φYOlInv𝒢GDLEY
78 1 3 4 16 6 26 18 17 33 77 lnopp2hpgb φXOlInv𝒢GDLEYYhp𝒢GDLEX
79 75 78 mpbird φXOlInv𝒢GDLEY
80 1 2 3 16 17 33 islnopp φXOlInv𝒢GDLEY¬XDLE¬lInv𝒢GDLEYDLEtDLEtXIlInv𝒢GDLEY
81 79 80 mpbid φ¬XDLE¬lInv𝒢GDLEYDLEtDLEtXIlInv𝒢GDLEY
82 81 simprd φtDLEtXIlInv𝒢GDLEY
83 73 82 r19.29a φXmid𝒢GlInv𝒢GDLEYDLE
84 28 adantr φtDLEtXIlInv𝒢GDLEYEtG𝒢Tarski
85 29 adantr φtDLEtXIlInv𝒢GDLEYEtDLEranL
86 1 2 3 16 4 26 6 17 33 79 oppne3 φXlInv𝒢GDLEY
87 1 3 4 6 17 33 86 tgelrnln φXLlInv𝒢GDLEYranL
88 87 ad2antrr φtDLEtXIlInv𝒢GDLEYXLlInv𝒢GDLEYranL
89 88 adantr φtDLEtXIlInv𝒢GDLEYEtXLlInv𝒢GDLEYranL
90 86 ad2antrr φtDLEtXIlInv𝒢GDLEYXlInv𝒢GDLEY
91 1 3 4 28 35 34 31 90 65 btwnlng1 φtDLEtXIlInv𝒢GDLEYtXLlInv𝒢GDLEY
92 30 91 elind φtDLEtXIlInv𝒢GDLEYtDLEXLlInv𝒢GDLEY
93 92 adantr φtDLEtXIlInv𝒢GDLEYEttDLEXLlInv𝒢GDLEY
94 59 ad3antrrr φtDLEtXIlInv𝒢GDLEYEtEDLE
95 1 3 4 6 17 33 86 tglinerflx1 φXXLlInv𝒢GDLEY
96 95 ad3antrrr φtDLEtXIlInv𝒢GDLEYEtXXLlInv𝒢GDLEY
97 simpr φtDLEtXIlInv𝒢GDLEYEtEt
98 81 simplld φ¬XDLE
99 98 ad2antrr φtDLEtXIlInv𝒢GDLEY¬XDLE
100 nelne2 tDLE¬XDLEtX
101 30 99 100 syl2anc φtDLEtXIlInv𝒢GDLEYtX
102 101 necomd φtDLEtXIlInv𝒢GDLEYXt
103 102 adantr φtDLEtXIlInv𝒢GDLEYEtXt
104 69 oveq2d φtDLEtXIlInv𝒢GDLEYE-˙lInv𝒢GDLEY=E-˙pInv𝒢GtX
105 63 104 eqtrd φtDLEtXIlInv𝒢GDLEYE-˙X=E-˙pInv𝒢GtX
106 105 adantr φtDLEtXIlInv𝒢GDLEYEtE-˙X=E-˙pInv𝒢GtX
107 37 adantr φtDLEtXIlInv𝒢GDLEYEtEP
108 31 adantr φtDLEtXIlInv𝒢GDLEYEttP
109 35 adantr φtDLEtXIlInv𝒢GDLEYEtXP
110 1 2 3 4 27 84 107 108 109 israg φtDLEtXIlInv𝒢GDLEYEt⟨“EtX”⟩𝒢GE-˙X=E-˙pInv𝒢GtX
111 106 110 mpbird φtDLEtXIlInv𝒢GDLEYEt⟨“EtX”⟩𝒢G
112 1 2 3 4 84 85 89 93 94 96 97 103 111 ragperp φtDLEtXIlInv𝒢GDLEYEtDLE𝒢GXLlInv𝒢GDLEY
113 28 adantr φtDLEtXIlInv𝒢GDLEYDtG𝒢Tarski
114 29 adantr φtDLEtXIlInv𝒢GDLEYDtDLEranL
115 88 adantr φtDLEtXIlInv𝒢GDLEYDtXLlInv𝒢GDLEYranL
116 92 adantr φtDLEtXIlInv𝒢GDLEYDttDLEXLlInv𝒢GDLEY
117 50 ad3antrrr φtDLEtXIlInv𝒢GDLEYDtDDLE
118 95 ad3antrrr φtDLEtXIlInv𝒢GDLEYDtXXLlInv𝒢GDLEY
119 simpr φtDLEtXIlInv𝒢GDLEYDtDt
120 102 adantr φtDLEtXIlInv𝒢GDLEYDtXt
121 69 oveq2d φtDLEtXIlInv𝒢GDLEYD-˙lInv𝒢GDLEY=D-˙pInv𝒢GtX
122 54 121 eqtrd φtDLEtXIlInv𝒢GDLEYD-˙X=D-˙pInv𝒢GtX
123 122 adantr φtDLEtXIlInv𝒢GDLEYDtD-˙X=D-˙pInv𝒢GtX
124 36 adantr φtDLEtXIlInv𝒢GDLEYDtDP
125 31 adantr φtDLEtXIlInv𝒢GDLEYDttP
126 35 adantr φtDLEtXIlInv𝒢GDLEYDtXP
127 1 2 3 4 27 113 124 125 126 israg φtDLEtXIlInv𝒢GDLEYDt⟨“DtX”⟩𝒢GD-˙X=D-˙pInv𝒢GtX
128 123 127 mpbird φtDLEtXIlInv𝒢GDLEYDt⟨“DtX”⟩𝒢G
129 1 2 3 4 113 114 115 116 117 118 119 120 128 ragperp φtDLEtXIlInv𝒢GDLEYDtDLE𝒢GXLlInv𝒢GDLEY
130 neneor EDEtDt
131 40 130 syl φtDLEtXIlInv𝒢GDLEYEtDt
132 112 129 131 mpjaodan φtDLEtXIlInv𝒢GDLEYDLE𝒢GXLlInv𝒢GDLEY
133 132 orcd φtDLEtXIlInv𝒢GDLEYDLE𝒢GXLlInv𝒢GDLEYX=lInv𝒢GDLEY
134 133 82 r19.29a φDLE𝒢GXLlInv𝒢GDLEYX=lInv𝒢GDLEY
135 1 2 3 6 23 24 4 26 17 33 islmib φlInv𝒢GDLEY=lInv𝒢GDLEXXmid𝒢GlInv𝒢GDLEYDLEDLE𝒢GXLlInv𝒢GDLEYX=lInv𝒢GDLEY
136 83 134 135 mpbir2and φlInv𝒢GDLEY=lInv𝒢GDLEX
137 136 eqcomd φlInv𝒢GDLEX=lInv𝒢GDLEY
138 1 2 3 6 23 24 4 26 17 18 137 lmieq φX=Y