Metamath Proof Explorer


Theorem hypcgrlem1

Description: Lemma for hypcgr , case where triangles share a cathetus. (Contributed by Thierry Arnoux, 15-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
hypcgrlem1.s S=lInv𝒢GAmid𝒢GDLine𝒢GB
hypcgrlem1.a φC=F
Assertion hypcgrlem1 φ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 hypcgrlem1.s S=lInv𝒢GAmid𝒢GDLine𝒢GB
18 hypcgrlem1.a φC=F
19 4 adantr φAmid𝒢GD=BG𝒢Tarski
20 8 adantr φAmid𝒢GD=BCP
21 6 adantr φAmid𝒢GD=BAP
22 11 adantr φAmid𝒢GD=BFP
23 9 adantr φAmid𝒢GD=BDP
24 eqid Line𝒢G=Line𝒢G
25 eqid pInv𝒢G=pInv𝒢G
26 1 2 3 24 25 4 6 7 8 12 ragcom φ⟨“CBA”⟩𝒢G
27 1 2 3 24 25 4 8 7 6 israg φ⟨“CBA”⟩𝒢GC-˙A=C-˙pInv𝒢GBA
28 26 27 mpbid φC-˙A=C-˙pInv𝒢GBA
29 28 adantr φAmid𝒢GD=BC-˙A=C-˙pInv𝒢GBA
30 18 eqcomd φF=C
31 30 adantr φAmid𝒢GD=BF=C
32 1 2 3 4 5 6 9 25 7 ismidb φD=pInv𝒢GBAAmid𝒢GD=B
33 32 biimpar φAmid𝒢GD=BD=pInv𝒢GBA
34 31 33 oveq12d φAmid𝒢GD=BF-˙D=C-˙pInv𝒢GBA
35 29 34 eqtr4d φAmid𝒢GD=BC-˙A=F-˙D
36 1 2 3 19 20 21 22 23 35 tgcgrcomlr φAmid𝒢GD=BA-˙C=D-˙F
37 simpr φAmid𝒢GDBA=DA=D
38 18 ad2antrr φAmid𝒢GDBA=DC=F
39 37 38 oveq12d φAmid𝒢GDBA=DA-˙C=D-˙F
40 12 ad2antrr φAmid𝒢GDBAD⟨“ABC”⟩𝒢G
41 4 ad2antrr φAmid𝒢GDBADG𝒢Tarski
42 6 ad2antrr φAmid𝒢GDBADAP
43 7 ad2antrr φAmid𝒢GDBADBP
44 8 ad2antrr φAmid𝒢GDBADCP
45 1 2 3 24 25 41 42 43 44 israg φAmid𝒢GDBAD⟨“ABC”⟩𝒢GA-˙C=A-˙pInv𝒢GBC
46 40 45 mpbid φAmid𝒢GDBADA-˙C=A-˙pInv𝒢GBC
47 5 ad2antrr φAmid𝒢GDBADGDim𝒢2
48 9 ad2antrr φAmid𝒢GDBADDP
49 1 2 3 41 47 42 48 midcl φAmid𝒢GDBADAmid𝒢GDP
50 simplr φAmid𝒢GDBADAmid𝒢GDB
51 1 3 24 41 49 43 50 tgelrnln φAmid𝒢GDBADAmid𝒢GDLine𝒢GBranLine𝒢G
52 eqid pInv𝒢GB=pInv𝒢GB
53 eqid 𝒢G=𝒢G
54 1 2 3 24 25 41 43 52 44 mircl φAmid𝒢GDBADpInv𝒢GBCP
55 simpr φAmid𝒢GDBADAD
56 1 2 3 41 47 42 48 midbtwn φAmid𝒢GDBADAmid𝒢GDAID
57 1 24 3 41 42 49 48 56 btwncolg3 φAmid𝒢GDBADDALine𝒢GAmid𝒢GDA=Amid𝒢GD
58 eqidd φD=D
59 58 16 18 s3eqd φ⟨“DBC”⟩=⟨“DEF”⟩
60 59 ad2antrr φAmid𝒢GDBAD⟨“DBC”⟩=⟨“DEF”⟩
61 13 ad2antrr φAmid𝒢GDBAD⟨“DEF”⟩𝒢G
62 60 61 eqeltrd φAmid𝒢GDBAD⟨“DBC”⟩𝒢G
63 1 2 3 24 25 41 48 43 44 israg φAmid𝒢GDBAD⟨“DBC”⟩𝒢GD-˙C=D-˙pInv𝒢GBC
64 62 63 mpbid φAmid𝒢GDBADD-˙C=D-˙pInv𝒢GBC
65 1 24 3 41 42 48 49 53 44 54 2 55 57 46 64 lncgr φAmid𝒢GDBADAmid𝒢GD-˙C=Amid𝒢GD-˙pInv𝒢GBC
66 1 2 3 24 25 41 49 43 44 israg φAmid𝒢GDBAD⟨“Amid𝒢GDBC”⟩𝒢GAmid𝒢GD-˙C=Amid𝒢GD-˙pInv𝒢GBC
67 65 66 mpbird φAmid𝒢GDBAD⟨“Amid𝒢GDBC”⟩𝒢G
68 1 3 24 41 49 43 50 tglinerflx1 φAmid𝒢GDBADAmid𝒢GDAmid𝒢GDLine𝒢GB
69 1 3 24 41 49 43 50 tglinerflx2 φAmid𝒢GDBADBAmid𝒢GDLine𝒢GB
70 1 2 3 41 47 17 24 51 49 52 67 68 69 44 50 lmimid φAmid𝒢GDBADSC=pInv𝒢GBC
71 70 oveq2d φAmid𝒢GDBADA-˙SC=A-˙pInv𝒢GBC
72 46 71 eqtr4d φAmid𝒢GDBADA-˙C=A-˙SC
73 1 2 3 41 47 48 42 midcom φAmid𝒢GDBADDmid𝒢GA=Amid𝒢GD
74 73 68 eqeltrd φAmid𝒢GDBADDmid𝒢GAAmid𝒢GDLine𝒢GB
75 55 necomd φAmid𝒢GDBADDA
76 1 3 24 41 48 42 75 tgelrnln φAmid𝒢GDBADDLine𝒢GAranLine𝒢G
77 1 2 3 41 42 49 48 56 tgbtwncom φAmid𝒢GDBADAmid𝒢GDDIA
78 1 3 24 41 48 42 49 75 77 btwnlng1 φAmid𝒢GDBADAmid𝒢GDDLine𝒢GA
79 68 78 elind φAmid𝒢GDBADAmid𝒢GDAmid𝒢GDLine𝒢GBDLine𝒢GA
80 1 3 24 41 48 42 75 tglinerflx2 φAmid𝒢GDBADADLine𝒢GA
81 50 necomd φAmid𝒢GDBADBAmid𝒢GD
82 4 ad2antrr φAmid𝒢GDBA=Amid𝒢GDG𝒢Tarski
83 6 ad2antrr φAmid𝒢GDBA=Amid𝒢GDAP
84 9 ad2antrr φAmid𝒢GDBA=Amid𝒢GDDP
85 5 ad2antrr φAmid𝒢GDBA=Amid𝒢GDGDim𝒢2
86 simpr φAmid𝒢GDBA=Amid𝒢GDA=Amid𝒢GD
87 86 eqcomd φAmid𝒢GDBA=Amid𝒢GDAmid𝒢GD=A
88 1 2 3 82 85 83 84 87 midcgr φAmid𝒢GDBA=Amid𝒢GDA-˙A=A-˙D
89 88 eqcomd φAmid𝒢GDBA=Amid𝒢GDA-˙D=A-˙A
90 1 2 3 82 83 84 83 89 axtgcgrid φAmid𝒢GDBA=Amid𝒢GDA=D
91 90 ex φAmid𝒢GDBA=Amid𝒢GDA=D
92 91 necon3d φAmid𝒢GDBADAAmid𝒢GD
93 92 imp φAmid𝒢GDBADAAmid𝒢GD
94 1 2 3 4 6 7 9 10 14 tgcgrcomlr φB-˙A=E-˙D
95 16 oveq1d φB-˙D=E-˙D
96 94 95 eqtr4d φB-˙A=B-˙D
97 96 ad2antrr φAmid𝒢GDBADB-˙A=B-˙D
98 eqidd φAmid𝒢GDBADAmid𝒢GD=Amid𝒢GD
99 1 2 3 41 47 42 48 25 49 ismidb φAmid𝒢GDBADD=pInv𝒢GAmid𝒢GDAAmid𝒢GD=Amid𝒢GD
100 98 99 mpbird φAmid𝒢GDBADD=pInv𝒢GAmid𝒢GDA
101 100 oveq2d φAmid𝒢GDBADB-˙D=B-˙pInv𝒢GAmid𝒢GDA
102 97 101 eqtrd φAmid𝒢GDBADB-˙A=B-˙pInv𝒢GAmid𝒢GDA
103 1 2 3 24 25 41 43 49 42 israg φAmid𝒢GDBAD⟨“BAmid𝒢GDA”⟩𝒢GB-˙A=B-˙pInv𝒢GAmid𝒢GDA
104 102 103 mpbird φAmid𝒢GDBAD⟨“BAmid𝒢GDA”⟩𝒢G
105 1 2 3 24 41 51 76 79 69 80 81 93 104 ragperp φAmid𝒢GDBADAmid𝒢GDLine𝒢GB𝒢GDLine𝒢GA
106 105 orcd φAmid𝒢GDBADAmid𝒢GDLine𝒢GB𝒢GDLine𝒢GAD=A
107 1 2 3 41 47 17 24 51 48 42 islmib φAmid𝒢GDBADA=SDDmid𝒢GAAmid𝒢GDLine𝒢GBAmid𝒢GDLine𝒢GB𝒢GDLine𝒢GAD=A
108 74 106 107 mpbir2and φAmid𝒢GDBADA=SD
109 108 oveq1d φAmid𝒢GDBADA-˙SC=SD-˙SC
110 1 2 3 41 47 17 24 51 48 44 lmiiso φAmid𝒢GDBADSD-˙SC=D-˙C
111 18 oveq2d φD-˙C=D-˙F
112 111 ad2antrr φAmid𝒢GDBADD-˙C=D-˙F
113 109 110 112 3eqtrd φAmid𝒢GDBADA-˙SC=D-˙F
114 72 113 eqtrd φAmid𝒢GDBADA-˙C=D-˙F
115 39 114 pm2.61dane φAmid𝒢GDBA-˙C=D-˙F
116 36 115 pm2.61dane φA-˙C=D-˙F