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