Metamath Proof Explorer


Theorem footexlem1

Description: Lemma for footex . (Contributed by Thierry Arnoux, 19-Oct-2019) (Revised by Thierry Arnoux, 1-Jul-2023)

Ref Expression
Hypotheses isperp.p P=BaseG
isperp.d -˙=distG
isperp.i I=ItvG
isperp.l L=Line𝒢G
isperp.g φG𝒢Tarski
isperp.a φAranL
foot.x φCP
foot.y φ¬CA
footexlem.e φEP
footexlem.f φFP
footexlem.r φRP
footexlem.x φXP
footexlem.y φYP
footexlem.z φZP
footexlem.d φDP
footexlem.1 φA=ELF
footexlem.2 φEF
footexlem.3 φEFIY
footexlem.4 φE-˙Y=E-˙C
footexlem.5 φC=pInv𝒢GRY
footexlem.6 φYEIZ
footexlem.7 φY-˙Z=Y-˙R
footexlem.q φQP
footexlem.8 φYRIQ
footexlem.9 φY-˙Q=Y-˙E
footexlem.10 φYpInv𝒢GZQID
footexlem.11 φY-˙D=Y-˙C
footexlem.12 φD=pInv𝒢GXC
Assertion footexlem1 φXA

Proof

Step Hyp Ref Expression
1 isperp.p P=BaseG
2 isperp.d -˙=distG
3 isperp.i I=ItvG
4 isperp.l L=Line𝒢G
5 isperp.g φG𝒢Tarski
6 isperp.a φAranL
7 foot.x φCP
8 foot.y φ¬CA
9 footexlem.e φEP
10 footexlem.f φFP
11 footexlem.r φRP
12 footexlem.x φXP
13 footexlem.y φYP
14 footexlem.z φZP
15 footexlem.d φDP
16 footexlem.1 φA=ELF
17 footexlem.2 φEF
18 footexlem.3 φEFIY
19 footexlem.4 φE-˙Y=E-˙C
20 footexlem.5 φC=pInv𝒢GRY
21 footexlem.6 φYEIZ
22 footexlem.7 φY-˙Z=Y-˙R
23 footexlem.q φQP
24 footexlem.8 φYRIQ
25 footexlem.9 φY-˙Q=Y-˙E
26 footexlem.10 φYpInv𝒢GZQID
27 footexlem.11 φY-˙D=Y-˙C
28 footexlem.12 φD=pInv𝒢GXC
29 22 eqcomd φY-˙R=Y-˙Z
30 17 necomd φFE
31 1 3 4 5 10 9 13 30 18 btwnlng3 φYFLE
32 1 3 4 5 9 10 13 17 31 lncom φYELF
33 32 16 eleqtrrd φYA
34 nelne2 YA¬CAYC
35 33 8 34 syl2anc φYC
36 35 necomd φCY
37 20 36 eqnetrrd φpInv𝒢GRYY
38 eqid pInv𝒢G=pInv𝒢G
39 eqid pInv𝒢GR=pInv𝒢GR
40 1 2 3 4 38 5 11 39 13 mirinv φpInv𝒢GRY=YR=Y
41 40 necon3bid φpInv𝒢GRYYRY
42 37 41 mpbid φRY
43 42 necomd φYR
44 1 2 3 5 13 11 13 14 29 43 tgcgrneq φYZ
45 44 necomd φZY
46 eqid pInv𝒢GZ=pInv𝒢GZ
47 eqid pInv𝒢GX=pInv𝒢GX
48 1 2 3 4 38 5 14 46 23 mircl φpInv𝒢GZQP
49 1 2 3 4 38 5 11 39 13 mirbtwn φRpInv𝒢GRYIY
50 20 oveq1d φCIY=pInv𝒢GRYIY
51 49 50 eleqtrrd φRCIY
52 1 2 3 5 7 11 13 23 42 51 24 tgbtwnouttr2 φYCIQ
53 1 2 3 5 7 13 23 52 tgbtwncom φYQIC
54 eqid 𝒢G=𝒢G
55 20 oveq2d φE-˙C=E-˙pInv𝒢GRY
56 19 55 eqtrd φE-˙Y=E-˙pInv𝒢GRY
57 1 2 3 4 38 5 9 11 13 israg φ⟨“ERY”⟩𝒢GE-˙Y=E-˙pInv𝒢GRY
58 56 57 mpbird φ⟨“ERY”⟩𝒢G
59 1 2 3 5 9 13 9 7 19 tgcgrcomlr φY-˙E=C-˙E
60 25 59 eqtr2d φC-˙E=Y-˙Q
61 1 3 4 5 9 10 17 tglinerflx1 φEELF
62 61 16 eleqtrrd φEA
63 nelne2 EA¬CAEC
64 62 8 63 syl2anc φEC
65 64 necomd φCE
66 1 2 3 5 7 9 13 23 60 65 tgcgrneq φYQ
67 66 necomd φQY
68 1 2 3 5 11 13 23 24 tgbtwncom φYQIR
69 1 2 3 5 13 23 13 9 25 tgcgrcomlr φQ-˙Y=E-˙Y
70 1 2 3 5 23 9 axtgcgrrflx φQ-˙E=E-˙Q
71 25 eqcomd φY-˙E=Y-˙Q
72 1 2 3 5 23 13 11 9 13 14 9 23 67 68 21 69 29 70 71 axtg5seg φR-˙E=Z-˙Q
73 1 2 3 5 11 9 14 23 72 tgcgrcomlr φE-˙R=Q-˙Z
74 1 2 3 5 13 11 13 14 29 tgcgrcomlr φR-˙Y=Z-˙Y
75 1 2 54 5 9 11 13 23 14 13 73 74 71 trgcgr φ⟨“ERY”⟩𝒢G⟨“QZY”⟩
76 1 2 3 4 38 5 9 11 13 54 23 14 13 58 75 ragcgr φ⟨“QZY”⟩𝒢G
77 1 2 3 4 38 5 23 14 13 76 ragcom φ⟨“YZQ”⟩𝒢G
78 1 2 3 4 38 5 13 14 23 israg φ⟨“YZQ”⟩𝒢GY-˙Q=Y-˙pInv𝒢GZQ
79 77 78 mpbid φY-˙Q=Y-˙pInv𝒢GZQ
80 27 eqcomd φY-˙C=Y-˙D
81 eqidd φpInv𝒢GZQ=pInv𝒢GZQ
82 1 2 3 4 38 5 46 47 23 48 13 7 15 14 12 53 26 79 80 81 28 krippen φYZIX
83 1 3 4 5 14 13 12 45 82 btwnlng3 φXZLY
84 1 3 4 5 13 14 12 44 83 lncom φXYLZ
85 19 eqcomd φE-˙C=E-˙Y
86 1 2 3 5 9 7 9 13 85 64 tgcgrneq φEY
87 1 3 4 5 9 13 14 86 21 btwnlng3 φZELY
88 1 3 4 5 9 13 86 86 6 62 33 tglinethru φA=ELY
89 87 88 eleqtrrd φZA
90 1 3 4 5 13 14 44 44 6 33 89 tglinethru φA=YLZ
91 84 90 eleqtrrd φXA