Metamath Proof Explorer


Theorem angmgm

Description: The angle addition magma is a magma. (Contributed by Thierry Arnoux, 31-Aug-2026)

Ref Expression
Hypotheses angmgmval.p ⊢ P = Base G
angmgmval.a ⊢ A = d ∈ P 0 ..^ 3 | d ⁡ 0 ≠ d ⁡ 1 ∧ d ⁡ 1 ≠ d ⁡ 2
angmgmval.i ⊢ I = Itv ⁡ G
angmgmval.d ⊢ - ˙ = dist ⁡ G
angmgmval.c ⊢ ∼ ˙ = ∼ 𝒢 ∠ ⁡ G
angmgmval.l ⊢ L = Line 𝒢 ⁡ G
angmgmval.o ⊢ + ˙ = e ∈ A , f ∈ A ⟼ if e ⁡ 0 ∈ e ⁡ 1 L e ⁡ 2 ⟨“ f ⁡ 0 f ⁡ 1 ι s ∈ P | ⟨“ f ⁡ 2 f ⁡ 1 s ”⟩ ∼ ˙ e ∧ f ⁡ 1 - ˙ s = e ⁡ 1 - ˙ e ⁡ 0 ”⟩ ⟨“ e ⁡ 0 e ⁡ 1 ι s ∈ P | ⟨“ e ⁡ 2 e ⁡ 1 s ”⟩ ∼ ˙ f ∧ e ⁡ 1 - ˙ s = f ⁡ 1 - ˙ f ⁡ 0 ∧ e ⁡ 1 L e ⁡ 2 ∩ s I e ⁡ 0 ≠ ∅ ”⟩
angmgmval.j No typesetting found for |- J = ( AngMgm ` G ) with typecode |-
angmgm.g ⊢ φ → G ∈ 𝒢 Tarski
angmgm.1 ⊢ φ → 2 ≤ P
Assertion angmgm ⊢ φ → J ∈ Mgm

Proof

Step Hyp Ref Expression
1 angmgmval.p ⊢ P = Base G
2 angmgmval.a ⊢ A = d ∈ P 0 ..^ 3 | d ⁡ 0 ≠ d ⁡ 1 ∧ d ⁡ 1 ≠ d ⁡ 2
3 angmgmval.i ⊢ I = Itv ⁡ G
4 angmgmval.d ⊢ - ˙ = dist ⁡ G
5 angmgmval.c ⊢ ∼ ˙ = ∼ 𝒢 ∠ ⁡ G
6 angmgmval.l ⊢ L = Line 𝒢 ⁡ G
7 angmgmval.o ⊢ + ˙ = e ∈ A , f ∈ A ⟼ if e ⁡ 0 ∈ e ⁡ 1 L e ⁡ 2 ⟨“ f ⁡ 0 f ⁡ 1 ι s ∈ P | ⟨“ f ⁡ 2 f ⁡ 1 s ”⟩ ∼ ˙ e ∧ f ⁡ 1 - ˙ s = e ⁡ 1 - ˙ e ⁡ 0 ”⟩ ⟨“ e ⁡ 0 e ⁡ 1 ι s ∈ P | ⟨“ e ⁡ 2 e ⁡ 1 s ”⟩ ∼ ˙ f ∧ e ⁡ 1 - ˙ s = f ⁡ 1 - ˙ f ⁡ 0 ∧ e ⁡ 1 L e ⁡ 2 ∩ s I e ⁡ 0 ≠ ∅ ”⟩
8 angmgmval.j Could not format J = ( AngMgm ` G ) : No typesetting found for |- J = ( AngMgm ` G ) with typecode |-
9 angmgm.g ⊢ φ → G ∈ 𝒢 Tarski
10 angmgm.1 ⊢ φ → 2 ≤ P
11 9 ad3antrrr ⊢ φ ∧ x ∈ P ∧ y ∈ P ∧ x ≠ y → G ∈ 𝒢 Tarski
12 simpllr ⊢ φ ∧ x ∈ P ∧ y ∈ P ∧ x ≠ y → x ∈ P
13 simplr ⊢ φ ∧ x ∈ P ∧ y ∈ P ∧ x ≠ y → y ∈ P
14 simpr ⊢ φ ∧ x ∈ P ∧ y ∈ P ∧ x ≠ y → x ≠ y
15 14 necomd ⊢ φ ∧ x ∈ P ∧ y ∈ P ∧ x ≠ y → y ≠ x
16 13 15 eldifsnd ⊢ φ ∧ x ∈ P ∧ y ∈ P ∧ x ≠ y → y ∈ P ∖ x
17 1 2 3 4 5 6 7 8 11 12 16 angmgmlem ⊢ φ ∧ x ∈ P ∧ y ∈ P ∧ x ≠ y → J ∈ Mgm ∧ ⟨“ xyx ”⟩ ∼ ˙ = 0 J
18 17 simpld ⊢ φ ∧ x ∈ P ∧ y ∈ P ∧ x ≠ y → J ∈ Mgm
19 1 4 3 9 10 tglowdim1 ⊢ φ → ∃ x ∈ P ∃ y ∈ P x ≠ y
20 18 19 r19.29vva ⊢ φ → J ∈ Mgm