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=BaseG
iscgra.i I=ItvG
iscgra.k K=hl𝒢G
iscgra.g φG𝒢Tarski
iscgra.a φAP
iscgra.b φBP
iscgra.c φCP
iscgra.d φDP
iscgra.e φEP
iscgra.f φFP
iscgra1.m -˙=distG
iscgra1.1 φAB
iscgra1.2 φA-˙B=D-˙E
Assertion iscgra1 φ⟨“ABC”⟩𝒢G⟨“DEF”⟩xP⟨“ABC”⟩𝒢G⟨“DEx”⟩xKEF

Proof

Step Hyp Ref Expression
1 iscgra.p P=BaseG
2 iscgra.i I=ItvG
3 iscgra.k K=hl𝒢G
4 iscgra.g φG𝒢Tarski
5 iscgra.a φAP
6 iscgra.b φBP
7 iscgra.c φCP
8 iscgra.d φDP
9 iscgra.e φEP
10 iscgra.f φFP
11 iscgra1.m -˙=distG
12 iscgra1.1 φAB
13 iscgra1.2 φA-˙B=D-˙E
14 1 2 3 4 5 6 7 8 9 10 iscgra φ⟨“ABC”⟩𝒢G⟨“DEF”⟩yPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEF
15 9 ad3antrrr φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFEP
16 6 ad3antrrr φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFBP
17 5 ad3antrrr φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFAP
18 4 ad3antrrr φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFG𝒢Tarski
19 8 ad3antrrr φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFDP
20 simpllr φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFyP
21 simpr2 φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFyKED
22 1 2 3 20 19 15 18 21 hlne2 φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFDE
23 12 ad3antrrr φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFAB
24 23 necomd φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFBA
25 1 2 3 19 15 15 18 22 hlid φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFDKED
26 eqid 𝒢G=𝒢G
27 7 ad3antrrr φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFCP
28 simplr φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFxP
29 simpr1 φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEF⟨“ABC”⟩𝒢G⟨“yEx”⟩
30 1 11 2 26 18 17 16 27 20 15 28 29 cgr3simp1 φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFA-˙B=y-˙E
31 30 eqcomd φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFy-˙E=A-˙B
32 1 11 2 18 20 15 17 16 31 tgcgrcomlr φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFE-˙y=B-˙A
33 13 ad3antrrr φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFA-˙B=D-˙E
34 33 eqcomd φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFD-˙E=A-˙B
35 1 11 2 18 19 15 17 16 34 tgcgrcomlr φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFE-˙D=B-˙A
36 1 2 3 15 16 17 18 19 11 22 24 20 19 21 25 32 35 hlcgreulem φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFy=D
37 simpr3 φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFxKEF
38 36 29 37 jca32 φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFy=D⟨“ABC”⟩𝒢G⟨“yEx”⟩xKEF
39 simprrl φyPxPy=D⟨“ABC”⟩𝒢G⟨“yEx”⟩xKEF⟨“ABC”⟩𝒢G⟨“yEx”⟩
40 simprl φyPxPy=D⟨“ABC”⟩𝒢G⟨“yEx”⟩xKEFy=D
41 8 ad3antrrr φyPxPy=D⟨“ABC”⟩𝒢G⟨“yEx”⟩xKEFDP
42 9 ad3antrrr φyPxPy=D⟨“ABC”⟩𝒢G⟨“yEx”⟩xKEFEP
43 4 ad3antrrr φyPxPy=D⟨“ABC”⟩𝒢G⟨“yEx”⟩xKEFG𝒢Tarski
44 1 11 2 4 5 6 8 9 13 12 tgcgrneq φDE
45 44 ad3antrrr φyPxPy=D⟨“ABC”⟩𝒢G⟨“yEx”⟩xKEFDE
46 1 2 3 41 41 42 43 45 hlid φyPxPy=D⟨“ABC”⟩𝒢G⟨“yEx”⟩xKEFDKED
47 40 46 eqbrtrd φyPxPy=D⟨“ABC”⟩𝒢G⟨“yEx”⟩xKEFyKED
48 simprrr φyPxPy=D⟨“ABC”⟩𝒢G⟨“yEx”⟩xKEFxKEF
49 39 47 48 3jca φyPxPy=D⟨“ABC”⟩𝒢G⟨“yEx”⟩xKEF⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEF
50 38 49 impbida φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFy=D⟨“ABC”⟩𝒢G⟨“yEx”⟩xKEF
51 50 rexbidva φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFxPy=D⟨“ABC”⟩𝒢G⟨“yEx”⟩xKEF
52 r19.42v xPy=D⟨“ABC”⟩𝒢G⟨“yEx”⟩xKEFy=DxP⟨“ABC”⟩𝒢G⟨“yEx”⟩xKEF
53 51 52 bitrdi φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFy=DxP⟨“ABC”⟩𝒢G⟨“yEx”⟩xKEF
54 53 rexbidva φyPxP⟨“ABC”⟩𝒢G⟨“yEx”⟩yKEDxKEFyPy=DxP⟨“ABC”⟩𝒢G⟨“yEx”⟩xKEF
55 id y=Dy=D
56 eqidd y=DE=E
57 eqidd y=Dx=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”⟩xKEF⟨“ABC”⟩𝒢G⟨“DEx”⟩xKEF
61 60 rexbidv y=DxP⟨“ABC”⟩𝒢G⟨“yEx”⟩xKEFxP⟨“ABC”⟩𝒢G⟨“DEx”⟩xKEF
62 61 ceqsrexv DPyPy=DxP⟨“ABC”⟩𝒢G⟨“yEx”⟩xKEFxP⟨“ABC”⟩𝒢G⟨“DEx”⟩xKEF
63 8 62 syl φyPy=DxP⟨“ABC”⟩𝒢G⟨“yEx”⟩xKEFxP⟨“ABC”⟩𝒢G⟨“DEx”⟩xKEF
64 14 54 63 3bitrd φ⟨“ABC”⟩𝒢G⟨“DEF”⟩xP⟨“ABC”⟩𝒢G⟨“DEx”⟩xKEF