Metamath Proof Explorer


Theorem angmgmbas

Description: The base set of the angle addition magma. (Contributed by Thierry Arnoux, 31-Aug-2026)

Ref Expression
Hypotheses angmgmbas.p ⊢ P = Base G
angmgmbas.a ⊢ A = d ∈ P 0 ..^ 3 | d ⁡ 0 ≠ d ⁡ 1 ∧ d ⁡ 1 ≠ d ⁡ 2
angmgmbas.c ⊢ ∼ ˙ = ∼ 𝒢 ∠ ⁡ G
angmgmbas.j No typesetting found for |- J = ( AngMgm ` G ) with typecode |-
angmgmbas.g ⊢ φ → G ∈ 𝒢 Tarski
Assertion angmgmbas ⊢ φ → A / ∼ ˙ = Base J

Proof

Step Hyp Ref Expression
1 angmgmbas.p ⊢ P = Base G
2 angmgmbas.a ⊢ A = d ∈ P 0 ..^ 3 | d ⁡ 0 ≠ d ⁡ 1 ∧ d ⁡ 1 ≠ d ⁡ 2
3 angmgmbas.c ⊢ ∼ ˙ = ∼ 𝒢 ∠ ⁡ G
4 angmgmbas.j Could not format J = ( AngMgm ` G ) : No typesetting found for |- J = ( AngMgm ` G ) with typecode |-
5 angmgmbas.g ⊢ φ → G ∈ 𝒢 Tarski
6 eqid ⊢ Itv ⁡ G = Itv ⁡ G
7 eqid ⊢ dist ⁡ G = dist ⁡ G
8 eqid ⊢ Line 𝒢 ⁡ G = Line 𝒢 ⁡ G
9 eqid ⊢ e ∈ A , f ∈ A ⟼ if e ⁡ 0 ∈ e ⁡ 1 Line 𝒢 ⁡ G e ⁡ 2 ⟨“ f ⁡ 0 f ⁡ 1 ι z ∈ P | ⟨“ f ⁡ 2 f ⁡ 1 z ”⟩ ∼ ˙ e ∧ f ⁡ 1 dist ⁡ G z = e ⁡ 1 dist ⁡ G e ⁡ 0 ”⟩ ⟨“ e ⁡ 0 e ⁡ 1 ι z ∈ P | ⟨“ e ⁡ 2 e ⁡ 1 z ”⟩ ∼ ˙ f ∧ e ⁡ 1 dist ⁡ G z = f ⁡ 1 dist ⁡ G f ⁡ 0 ∧ e ⁡ 1 Line 𝒢 ⁡ G e ⁡ 2 ∩ z Itv ⁡ G e ⁡ 0 ≠ ∅ ”⟩ = e ∈ A , f ∈ A ⟼ if e ⁡ 0 ∈ e ⁡ 1 Line 𝒢 ⁡ G e ⁡ 2 ⟨“ f ⁡ 0 f ⁡ 1 ι z ∈ P | ⟨“ f ⁡ 2 f ⁡ 1 z ”⟩ ∼ ˙ e ∧ f ⁡ 1 dist ⁡ G z = e ⁡ 1 dist ⁡ G e ⁡ 0 ”⟩ ⟨“ e ⁡ 0 e ⁡ 1 ι z ∈ P | ⟨“ e ⁡ 2 e ⁡ 1 z ”⟩ ∼ ˙ f ∧ e ⁡ 1 dist ⁡ G z = f ⁡ 1 dist ⁡ G f ⁡ 0 ∧ e ⁡ 1 Line 𝒢 ⁡ G e ⁡ 2 ∩ z Itv ⁡ G e ⁡ 0 ≠ ∅ ”⟩
10 eqid ⊢ ≤ 𝒢 ∠ ⁡ G = ≤ 𝒢 ∠ ⁡ G
11 1 2 6 7 3 8 9 4 10 angmgmval ⊢ G ∈ 𝒢 Tarski → J = Base ndx A + ndx e ∈ A , f ∈ A ⟼ if e ⁡ 0 ∈ e ⁡ 1 Line 𝒢 ⁡ G e ⁡ 2 ⟨“ f ⁡ 0 f ⁡ 1 ι z ∈ P | ⟨“ f ⁡ 2 f ⁡ 1 z ”⟩ ∼ ˙ e ∧ f ⁡ 1 dist ⁡ G z = e ⁡ 1 dist ⁡ G e ⁡ 0 ”⟩ ⟨“ e ⁡ 0 e ⁡ 1 ι z ∈ P | ⟨“ e ⁡ 2 e ⁡ 1 z ”⟩ ∼ ˙ f ∧ e ⁡ 1 dist ⁡ G z = f ⁡ 1 dist ⁡ G f ⁡ 0 ∧ e ⁡ 1 Line 𝒢 ⁡ G e ⁡ 2 ∩ z Itv ⁡ G e ⁡ 0 ≠ ∅ ”⟩ ≤ ndx ≤ 𝒢 ∠ ⁡ G / 𝑠 ∼ ˙
12 5 11 syl ⊢ φ → J = Base ndx A + ndx e ∈ A , f ∈ A ⟼ if e ⁡ 0 ∈ e ⁡ 1 Line 𝒢 ⁡ G e ⁡ 2 ⟨“ f ⁡ 0 f ⁡ 1 ι z ∈ P | ⟨“ f ⁡ 2 f ⁡ 1 z ”⟩ ∼ ˙ e ∧ f ⁡ 1 dist ⁡ G z = e ⁡ 1 dist ⁡ G e ⁡ 0 ”⟩ ⟨“ e ⁡ 0 e ⁡ 1 ι z ∈ P | ⟨“ e ⁡ 2 e ⁡ 1 z ”⟩ ∼ ˙ f ∧ e ⁡ 1 dist ⁡ G z = f ⁡ 1 dist ⁡ G f ⁡ 0 ∧ e ⁡ 1 Line 𝒢 ⁡ G e ⁡ 2 ∩ z Itv ⁡ G e ⁡ 0 ≠ ∅ ”⟩ ≤ ndx ≤ 𝒢 ∠ ⁡ G / 𝑠 ∼ ˙
13 ovex ⊢ P 0 ..^ 3 ∈ V
14 2 13 rabex2 ⊢ A ∈ V
15 1nn ⊢ 1 ∈ ℕ
16 basendx ⊢ Base ndx = 1
17 1lt2 ⊢ 1 < 2
18 2nn ⊢ 2 ∈ ℕ
19 plusgndx ⊢ + ndx = 2
20 2lt10 ⊢ 2 < 10
21 10nn ⊢ 10 ∈ ℕ
22 plendx ⊢ ≤ ndx = 10
23 15 16 17 18 19 20 21 22 strle3 ⊢ Base ndx A + ndx e ∈ A , f ∈ A ⟼ if e ⁡ 0 ∈ e ⁡ 1 Line 𝒢 ⁡ G e ⁡ 2 ⟨“ f ⁡ 0 f ⁡ 1 ι z ∈ P | ⟨“ f ⁡ 2 f ⁡ 1 z ”⟩ ∼ ˙ e ∧ f ⁡ 1 dist ⁡ G z = e ⁡ 1 dist ⁡ G e ⁡ 0 ”⟩ ⟨“ e ⁡ 0 e ⁡ 1 ι z ∈ P | ⟨“ e ⁡ 2 e ⁡ 1 z ”⟩ ∼ ˙ f ∧ e ⁡ 1 dist ⁡ G z = f ⁡ 1 dist ⁡ G f ⁡ 0 ∧ e ⁡ 1 Line 𝒢 ⁡ G e ⁡ 2 ∩ z Itv ⁡ G e ⁡ 0 ≠ ∅ ”⟩ ≤ ndx ≤ 𝒢 ∠ ⁡ G Struct 1 10
24 baseid ⊢ Base = Slot Base ndx
25 snsstp1 ⊢ Base ndx A ⊆ Base ndx A + ndx e ∈ A , f ∈ A ⟼ if e ⁡ 0 ∈ e ⁡ 1 Line 𝒢 ⁡ G e ⁡ 2 ⟨“ f ⁡ 0 f ⁡ 1 ι z ∈ P | ⟨“ f ⁡ 2 f ⁡ 1 z ”⟩ ∼ ˙ e ∧ f ⁡ 1 dist ⁡ G z = e ⁡ 1 dist ⁡ G e ⁡ 0 ”⟩ ⟨“ e ⁡ 0 e ⁡ 1 ι z ∈ P | ⟨“ e ⁡ 2 e ⁡ 1 z ”⟩ ∼ ˙ f ∧ e ⁡ 1 dist ⁡ G z = f ⁡ 1 dist ⁡ G f ⁡ 0 ∧ e ⁡ 1 Line 𝒢 ⁡ G e ⁡ 2 ∩ z Itv ⁡ G e ⁡ 0 ≠ ∅ ”⟩ ≤ ndx ≤ 𝒢 ∠ ⁡ G
26 23 24 25 strfv ⊢ A ∈ V → A = Base Base ndx A + ndx e ∈ A , f ∈ A ⟼ if e ⁡ 0 ∈ e ⁡ 1 Line 𝒢 ⁡ G e ⁡ 2 ⟨“ f ⁡ 0 f ⁡ 1 ι z ∈ P | ⟨“ f ⁡ 2 f ⁡ 1 z ”⟩ ∼ ˙ e ∧ f ⁡ 1 dist ⁡ G z = e ⁡ 1 dist ⁡ G e ⁡ 0 ”⟩ ⟨“ e ⁡ 0 e ⁡ 1 ι z ∈ P | ⟨“ e ⁡ 2 e ⁡ 1 z ”⟩ ∼ ˙ f ∧ e ⁡ 1 dist ⁡ G z = f ⁡ 1 dist ⁡ G f ⁡ 0 ∧ e ⁡ 1 Line 𝒢 ⁡ G e ⁡ 2 ∩ z Itv ⁡ G e ⁡ 0 ≠ ∅ ”⟩ ≤ ndx ≤ 𝒢 ∠ ⁡ G
27 14 26 mp1i ⊢ φ → A = Base Base ndx A + ndx e ∈ A , f ∈ A ⟼ if e ⁡ 0 ∈ e ⁡ 1 Line 𝒢 ⁡ G e ⁡ 2 ⟨“ f ⁡ 0 f ⁡ 1 ι z ∈ P | ⟨“ f ⁡ 2 f ⁡ 1 z ”⟩ ∼ ˙ e ∧ f ⁡ 1 dist ⁡ G z = e ⁡ 1 dist ⁡ G e ⁡ 0 ”⟩ ⟨“ e ⁡ 0 e ⁡ 1 ι z ∈ P | ⟨“ e ⁡ 2 e ⁡ 1 z ”⟩ ∼ ˙ f ∧ e ⁡ 1 dist ⁡ G z = f ⁡ 1 dist ⁡ G f ⁡ 0 ∧ e ⁡ 1 Line 𝒢 ⁡ G e ⁡ 2 ∩ z Itv ⁡ G e ⁡ 0 ≠ ∅ ”⟩ ≤ ndx ≤ 𝒢 ∠ ⁡ G
28 3 fvexi ⊢ ∼ ˙ ∈ V
29 28 a1i ⊢ φ → ∼ ˙ ∈ V
30 tpex ⊢ Base ndx A + ndx e ∈ A , f ∈ A ⟼ if e ⁡ 0 ∈ e ⁡ 1 Line 𝒢 ⁡ G e ⁡ 2 ⟨“ f ⁡ 0 f ⁡ 1 ι z ∈ P | ⟨“ f ⁡ 2 f ⁡ 1 z ”⟩ ∼ ˙ e ∧ f ⁡ 1 dist ⁡ G z = e ⁡ 1 dist ⁡ G e ⁡ 0 ”⟩ ⟨“ e ⁡ 0 e ⁡ 1 ι z ∈ P | ⟨“ e ⁡ 2 e ⁡ 1 z ”⟩ ∼ ˙ f ∧ e ⁡ 1 dist ⁡ G z = f ⁡ 1 dist ⁡ G f ⁡ 0 ∧ e ⁡ 1 Line 𝒢 ⁡ G e ⁡ 2 ∩ z Itv ⁡ G e ⁡ 0 ≠ ∅ ”⟩ ≤ ndx ≤ 𝒢 ∠ ⁡ G ∈ V
31 30 a1i ⊢ φ → Base ndx A + ndx e ∈ A , f ∈ A ⟼ if e ⁡ 0 ∈ e ⁡ 1 Line 𝒢 ⁡ G e ⁡ 2 ⟨“ f ⁡ 0 f ⁡ 1 ι z ∈ P | ⟨“ f ⁡ 2 f ⁡ 1 z ”⟩ ∼ ˙ e ∧ f ⁡ 1 dist ⁡ G z = e ⁡ 1 dist ⁡ G e ⁡ 0 ”⟩ ⟨“ e ⁡ 0 e ⁡ 1 ι z ∈ P | ⟨“ e ⁡ 2 e ⁡ 1 z ”⟩ ∼ ˙ f ∧ e ⁡ 1 dist ⁡ G z = f ⁡ 1 dist ⁡ G f ⁡ 0 ∧ e ⁡ 1 Line 𝒢 ⁡ G e ⁡ 2 ∩ z Itv ⁡ G e ⁡ 0 ≠ ∅ ”⟩ ≤ ndx ≤ 𝒢 ∠ ⁡ G ∈ V
32 12 27 29 31 qusbas ⊢ φ → A / ∼ ˙ = Base J