Metamath Proof Explorer


Theorem hlcgreulem

Description: Lemma for hlcgreu . (Contributed by Thierry Arnoux, 9-Aug-2020)

Ref Expression
Hypotheses ishlg.p P = Base G
ishlg.i I = Itv G
ishlg.k K = hl 𝒢 G
ishlg.a φ A P
ishlg.b φ B P
ishlg.c φ C P
hlln.1 φ G 𝒢 Tarski
hltr.d φ D P
hlcgrex.m - ˙ = dist G
hlcgrex.1 φ D A
hlcgrex.2 φ B C
hlcgreulem.x φ X P
hlcgreulem.y φ Y P
hlcgreulem.1 φ X K A D
hlcgreulem.2 φ Y K A D
hlcgreulem.3 φ A - ˙ X = B - ˙ C
hlcgreulem.4 φ A - ˙ Y = B - ˙ C
Assertion hlcgreulem φ X = Y

Proof

Step Hyp Ref Expression
1 ishlg.p P = Base G
2 ishlg.i I = Itv G
3 ishlg.k K = hl 𝒢 G
4 ishlg.a φ A P
5 ishlg.b φ B P
6 ishlg.c φ C P
7 hlln.1 φ G 𝒢 Tarski
8 hltr.d φ D P
9 hlcgrex.m - ˙ = dist G
10 hlcgrex.1 φ D A
11 hlcgrex.2 φ B C
12 hlcgreulem.x φ X P
13 hlcgreulem.y φ Y P
14 hlcgreulem.1 φ X K A D
15 hlcgreulem.2 φ Y K A D
16 hlcgreulem.3 φ A - ˙ X = B - ˙ C
17 hlcgreulem.4 φ A - ˙ Y = B - ˙ C
18 7 ad2antrr φ y P A D I y A y G 𝒢 Tarski
19 4 ad2antrr φ y P A D I y A y A P
20 5 ad2antrr φ y P A D I y A y B P
21 6 ad2antrr φ y P A D I y A y C P
22 simplr φ y P A D I y A y y P
23 12 ad2antrr φ y P A D I y A y X P
24 13 ad2antrr φ y P A D I y A y Y P
25 simprr φ y P A D I y A y A y
26 25 necomd φ y P A D I y A y y A
27 8 ad2antrr φ y P A D I y A y D P
28 1 2 3 12 8 4 7 14 hlcomd φ D K A X
29 28 ad2antrr φ y P A D I y A y D K A X
30 simprl φ y P A D I y A y A D I y
31 1 2 3 27 23 22 18 19 29 30 btwnhl φ y P A D I y A y A X I y
32 1 9 2 18 23 19 22 31 tgbtwncom φ y P A D I y A y A y I X
33 1 2 3 13 8 4 7 15 hlcomd φ D K A Y
34 33 ad2antrr φ y P A D I y A y D K A Y
35 1 2 3 27 24 22 18 19 34 30 btwnhl φ y P A D I y A y A Y I y
36 1 9 2 18 24 19 22 35 tgbtwncom φ y P A D I y A y A y I Y
37 16 ad2antrr φ y P A D I y A y A - ˙ X = B - ˙ C
38 17 ad2antrr φ y P A D I y A y A - ˙ Y = B - ˙ C
39 1 9 2 18 19 20 21 22 23 24 26 32 36 37 38 tgsegconeq φ y P A D I y A y X = Y
40 1 fvexi P V
41 40 a1i φ P V
42 41 5 6 11 nehash2 φ 2 P
43 1 9 2 7 8 4 42 tgbtwndiff φ y P A D I y A y
44 39 43 r19.29a φ X = Y