Metamath Proof Explorer


Theorem algmulr

Description: The multiplicative operation of a constructed algebra. (Contributed by Stefan O'Rear, 27-Nov-2014) (Revised by Mario Carneiro, 29-Aug-2015)

Ref Expression
Hypothesis algpart.a ⊢ A = Base ndx B + ndx + ˙ ⋅ ndx × ˙ ∪ Scalar ⁡ ndx S ⋅ ndx · ˙
Assertion algmulr ⊢ × ˙ ∈ V → × ˙ = ⋅ A

Proof

Step Hyp Ref Expression
1 algpart.a ⊢ A = Base ndx B + ndx + ˙ ⋅ ndx × ˙ ∪ Scalar ⁡ ndx S ⋅ ndx · ˙
2 1 algstr ⊢ A Struct 1 6
3 mulridx ⊢ ⋅ 𝑟 = Slot ⋅ ndx
4 snsstp3 ⊢ ⋅ ndx × ˙ ⊆ Base ndx B + ndx + ˙ ⋅ ndx × ˙
5 ssun1 ⊢ Base ndx B + ndx + ˙ ⋅ ndx × ˙ ⊆ Base ndx B + ndx + ˙ ⋅ ndx × ˙ ∪ Scalar ⁡ ndx S ⋅ ndx · ˙
6 5 1 sseqtrri ⊢ Base ndx B + ndx + ˙ ⋅ ndx × ˙ ⊆ A
7 4 6 sstri ⊢ ⋅ ndx × ˙ ⊆ A
8 2 3 7 strfv ⊢ × ˙ ∈ V → × ˙ = ⋅ A