Metamath Proof Explorer


Theorem cgrarag

Description: Any angle <" A B C "> congruent with a right angle <" X Y Z "> is a right angle. Theorem 11.17 of Schwabhauser p. 98. (Contributed by Thierry Arnoux, 13-Jul-2026)

Ref Expression
Hypotheses ragcgra.p P = Base G
ragcgra.g φ G 𝒢 Tarski
ragcgra.x φ X P
ragcgra.y φ Y P
ragcgra.z φ Z P
ragcgra.a φ A P
ragcgra.b φ B P
ragcgra.c φ C P
ragcgra.1 φ ⟨“ XYZ ”⟩ 𝒢 G
cgrarag.1 φ ⟨“ XYZ ”⟩ 𝒢 G ⟨“ ABC ”⟩
Assertion cgrarag φ ⟨“ ABC ”⟩ 𝒢 G

Proof

Step Hyp Ref Expression
1 ragcgra.p P = Base G
2 ragcgra.g φ G 𝒢 Tarski
3 ragcgra.x φ X P
4 ragcgra.y φ Y P
5 ragcgra.z φ Z P
6 ragcgra.a φ A P
7 ragcgra.b φ B P
8 ragcgra.c φ C P
9 ragcgra.1 φ ⟨“ XYZ ”⟩ 𝒢 G
10 cgrarag.1 φ ⟨“ XYZ ”⟩ 𝒢 G ⟨“ ABC ”⟩
11 eqid dist G = dist G
12 eqid Itv G = Itv G
13 eqid Line 𝒢 G = Line 𝒢 G
14 eqid pInv 𝒢 G = pInv 𝒢 G
15 2 ad5antr φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C G 𝒢 Tarski
16 simp-5r φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C a P
17 7 ad5antr φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C B P
18 8 ad5antr φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C C P
19 6 ad5antr φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C A P
20 simp-4r φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C c P
21 3 ad5antr φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C X P
22 4 ad5antr φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C Y P
23 5 ad5antr φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C Z P
24 eqid 𝒢 G = 𝒢 G
25 9 ad5antr φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C ⟨“ XYZ ”⟩ 𝒢 G
26 simpllr φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩
27 1 11 12 13 14 15 21 22 23 24 16 17 20 25 26 ragcgr φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C ⟨“ aBc ”⟩ 𝒢 G
28 1 11 12 13 14 15 16 17 20 27 ragcom φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C ⟨“ cBa ”⟩ 𝒢 G
29 eqid hl 𝒢 G = hl 𝒢 G
30 simpr φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C c hl 𝒢 G B C
31 1 12 29 20 18 17 15 30 hlne1 φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C c B
32 1 12 29 20 18 17 15 30 hlcomd φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C C hl 𝒢 G B c
33 1 12 29 18 20 17 15 13 32 hlln φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C C c Line 𝒢 G B
34 33 orcd φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C C c Line 𝒢 G B c = B
35 1 13 12 15 20 17 18 34 colrot1 φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C c B Line 𝒢 G C B = C
36 1 11 12 13 14 15 20 17 16 18 28 31 35 ragcol φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C ⟨“ CBa ”⟩ 𝒢 G
37 1 11 12 13 14 15 18 17 16 36 ragcom φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C ⟨“ aBC ”⟩ 𝒢 G
38 simplr φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C a hl 𝒢 G B A
39 1 12 29 16 19 17 15 38 hlne1 φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C a B
40 1 12 29 16 19 17 15 38 hlcomd φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C A hl 𝒢 G B a
41 1 12 29 19 16 17 15 13 40 hlln φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C A a Line 𝒢 G B
42 41 orcd φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C A a Line 𝒢 G B a = B
43 1 13 12 15 16 17 19 42 colrot1 φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C a B Line 𝒢 G A B = A
44 1 11 12 13 14 15 16 17 18 19 37 39 43 ragcol φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C ⟨“ ABC ”⟩ 𝒢 G
45 44 3anasss φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C ⟨“ ABC ”⟩ 𝒢 G
46 1 12 29 2 3 4 5 6 7 8 iscgra φ ⟨“ XYZ ”⟩ 𝒢 G ⟨“ ABC ”⟩ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C
47 10 46 mpbid φ a P c P ⟨“ XYZ ”⟩ 𝒢 G ⟨“ aBc ”⟩ a hl 𝒢 G B A c hl 𝒢 G B C
48 45 47 r19.29vva φ ⟨“ ABC ”⟩ 𝒢 G