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