Metamath Proof Explorer


Theorem iscgra1

Description: A special version of iscgra where one distance is known to be equal. In this case, angle congruence can be written with only one quantifier. (Contributed by Thierry Arnoux, 9-Aug-2020)

Ref Expression
Hypotheses iscgra.p P = Base G
iscgra.i I = Itv G
iscgra.k K = hl 𝒢 G
iscgra.g φ G 𝒢 Tarski
iscgra.a φ A P
iscgra.b φ B P
iscgra.c φ C P
iscgra.d φ D P
iscgra.e φ E P
iscgra.f φ F P
iscgra1.m - ˙ = dist G
iscgra1.1 φ A B
iscgra1.2 φ A - ˙ B = D - ˙ E
Assertion iscgra1 φ ⟨“ ABC ”⟩ 𝒢 G ⟨“ DEF ”⟩ x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ DEx ”⟩ x K E F

Proof

Step Hyp Ref Expression
1 iscgra.p P = Base G
2 iscgra.i I = Itv G
3 iscgra.k K = hl 𝒢 G
4 iscgra.g φ G 𝒢 Tarski
5 iscgra.a φ A P
6 iscgra.b φ B P
7 iscgra.c φ C P
8 iscgra.d φ D P
9 iscgra.e φ E P
10 iscgra.f φ F P
11 iscgra1.m - ˙ = dist G
12 iscgra1.1 φ A B
13 iscgra1.2 φ A - ˙ B = D - ˙ E
14 1 2 3 4 5 6 7 8 9 10 iscgra φ ⟨“ ABC ”⟩ 𝒢 G ⟨“ DEF ”⟩ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F
15 9 ad3antrrr φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F E P
16 6 ad3antrrr φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F B P
17 5 ad3antrrr φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F A P
18 4 ad3antrrr φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F G 𝒢 Tarski
19 8 ad3antrrr φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F D P
20 simpllr φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F y P
21 simpr2 φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F y K E D
22 1 2 3 20 19 15 18 21 hlne2 φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F D E
23 12 ad3antrrr φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F A B
24 23 necomd φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F B A
25 1 2 3 19 15 15 18 22 hlid φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F D K E D
26 eqid 𝒢 G = 𝒢 G
27 7 ad3antrrr φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F C P
28 simplr φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F x P
29 simpr1 φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩
30 1 11 2 26 18 17 16 27 20 15 28 29 cgr3simp1 φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F A - ˙ B = y - ˙ E
31 30 eqcomd φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F y - ˙ E = A - ˙ B
32 1 11 2 18 20 15 17 16 31 tgcgrcomlr φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F E - ˙ y = B - ˙ A
33 13 ad3antrrr φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F A - ˙ B = D - ˙ E
34 33 eqcomd φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F D - ˙ E = A - ˙ B
35 1 11 2 18 19 15 17 16 34 tgcgrcomlr φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F E - ˙ D = B - ˙ A
36 1 2 3 15 16 17 18 19 11 22 24 20 19 21 25 32 35 hlcgreulem φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F y = D
37 simpr3 φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F x K E F
38 36 29 37 jca32 φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F y = D ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ x K E F
39 simprrl φ y P x P y = D ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ x K E F ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩
40 simprl φ y P x P y = D ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ x K E F y = D
41 8 ad3antrrr φ y P x P y = D ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ x K E F D P
42 9 ad3antrrr φ y P x P y = D ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ x K E F E P
43 4 ad3antrrr φ y P x P y = D ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ x K E F G 𝒢 Tarski
44 1 11 2 4 5 6 8 9 13 12 tgcgrneq φ D E
45 44 ad3antrrr φ y P x P y = D ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ x K E F D E
46 1 2 3 41 41 42 43 45 hlid φ y P x P y = D ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ x K E F D K E D
47 40 46 eqbrtrd φ y P x P y = D ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ x K E F y K E D
48 simprrr φ y P x P y = D ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ x K E F x K E F
49 39 47 48 3jca φ y P x P y = D ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ x K E F ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F
50 38 49 impbida φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F y = D ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ x K E F
51 50 rexbidva φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F x P y = D ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ x K E F
52 r19.42v x P y = D ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ x K E F y = D x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ x K E F
53 51 52 bitrdi φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F y = D x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ x K E F
54 53 rexbidva φ y P x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ y K E D x K E F y P y = D x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ x K E F
55 id y = D y = D
56 eqidd y = D E = E
57 eqidd y = D x = x
58 55 56 57 s3eqd y = D ⟨“ yEx ”⟩ = ⟨“ DEx ”⟩
59 58 breq2d y = D ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ ⟨“ ABC ”⟩ 𝒢 G ⟨“ DEx ”⟩
60 59 anbi1d y = D ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ x K E F ⟨“ ABC ”⟩ 𝒢 G ⟨“ DEx ”⟩ x K E F
61 60 rexbidv y = D x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ x K E F x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ DEx ”⟩ x K E F
62 61 ceqsrexv D P y P y = D x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ x K E F x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ DEx ”⟩ x K E F
63 8 62 syl φ y P y = D x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ yEx ”⟩ x K E F x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ DEx ”⟩ x K E F
64 14 54 63 3bitrd φ ⟨“ ABC ”⟩ 𝒢 G ⟨“ DEF ”⟩ x P ⟨“ ABC ”⟩ 𝒢 G ⟨“ DEx ”⟩ x K E F