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