Metamath Proof Explorer


Theorem cgrane4

Description: Angles imply inequality. (Contributed by Thierry Arnoux, 1-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
cgrahl1.2 φ ⟨“ ABC ”⟩ 𝒢 G ⟨“ DEF ”⟩
Assertion cgrane4 φ 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 cgrahl1.2 φ ⟨“ ABC ”⟩ 𝒢 G ⟨“ DEF ”⟩
12 simplr φ x P y P ⟨“ ABC ”⟩ 𝒢 G ⟨“ xEy ”⟩ x K E D y K E F y P
13 10 ad3antrrr φ x P y P ⟨“ ABC ”⟩ 𝒢 G ⟨“ xEy ”⟩ x K E D y K E F F P
14 9 ad3antrrr φ x P y P ⟨“ ABC ”⟩ 𝒢 G ⟨“ xEy ”⟩ x K E D y K E F E P
15 4 ad3antrrr φ x P y P ⟨“ ABC ”⟩ 𝒢 G ⟨“ xEy ”⟩ x K E D y K E F G 𝒢 Tarski
16 simpr3 φ x P y P ⟨“ ABC ”⟩ 𝒢 G ⟨“ xEy ”⟩ x K E D y K E F y K E F
17 1 2 3 12 13 14 15 16 hlne2 φ x P y P ⟨“ ABC ”⟩ 𝒢 G ⟨“ xEy ”⟩ x K E D y K E F F E
18 17 necomd φ x P y P ⟨“ ABC ”⟩ 𝒢 G ⟨“ xEy ”⟩ x K E D y K E F E F
19 1 2 3 4 5 6 7 8 9 10 iscgra φ ⟨“ ABC ”⟩ 𝒢 G ⟨“ DEF ”⟩ x P y P ⟨“ ABC ”⟩ 𝒢 G ⟨“ xEy ”⟩ x K E D y K E F
20 11 19 mpbid φ x P y P ⟨“ ABC ”⟩ 𝒢 G ⟨“ xEy ”⟩ x K E D y K E F
21 18 20 r19.29vva φ E F