Metamath Proof Explorer


Theorem lmodvs1

Description: Scalar product with ring unit. ( ax-hvmulid analog.) (Contributed by NM, 10-Jan-2014) (Revised by Mario Carneiro, 19-Jun-2014)

Ref Expression
Hypotheses lmodvs1.v 𝑉 = ( Base ‘ 𝑊 )
lmodvs1.f 𝐹 = ( Scalar ‘ 𝑊 )
lmodvs1.s · = ( ·𝑠𝑊 )
lmodvs1.u 1 = ( 1r𝐹 )
Assertion lmodvs1 ( ( 𝑊 ∈ LMod ∧ 𝑋𝑉 ) → ( 1 · 𝑋 ) = 𝑋 )

Proof

Step Hyp Ref Expression
1 lmodvs1.v 𝑉 = ( Base ‘ 𝑊 )
2 lmodvs1.f 𝐹 = ( Scalar ‘ 𝑊 )
3 lmodvs1.s · = ( ·𝑠𝑊 )
4 lmodvs1.u 1 = ( 1r𝐹 )
5 simpl ( ( 𝑊 ∈ LMod ∧ 𝑋𝑉 ) → 𝑊 ∈ LMod )
6 eqid ( Base ‘ 𝐹 ) = ( Base ‘ 𝐹 )
7 2 6 4 lmod1cl ( 𝑊 ∈ LMod → 1 ∈ ( Base ‘ 𝐹 ) )
8 7 adantr ( ( 𝑊 ∈ LMod ∧ 𝑋𝑉 ) → 1 ∈ ( Base ‘ 𝐹 ) )
9 simpr ( ( 𝑊 ∈ LMod ∧ 𝑋𝑉 ) → 𝑋𝑉 )
10 eqid ( +g𝑊 ) = ( +g𝑊 )
11 eqid ( +g𝐹 ) = ( +g𝐹 )
12 eqid ( .r𝐹 ) = ( .r𝐹 )
13 1 10 3 2 6 11 12 4 lmodlema ( ( 𝑊 ∈ LMod ∧ ( 1 ∈ ( Base ‘ 𝐹 ) ∧ 1 ∈ ( Base ‘ 𝐹 ) ) ∧ ( 𝑋𝑉𝑋𝑉 ) ) → ( ( ( 1 · 𝑋 ) ∈ 𝑉 ∧ ( 1 · ( 𝑋 ( +g𝑊 ) 𝑋 ) ) = ( ( 1 · 𝑋 ) ( +g𝑊 ) ( 1 · 𝑋 ) ) ∧ ( ( 1 ( +g𝐹 ) 1 ) · 𝑋 ) = ( ( 1 · 𝑋 ) ( +g𝑊 ) ( 1 · 𝑋 ) ) ) ∧ ( ( ( 1 ( .r𝐹 ) 1 ) · 𝑋 ) = ( 1 · ( 1 · 𝑋 ) ) ∧ ( 1 · 𝑋 ) = 𝑋 ) ) )
14 13 simprrd ( ( 𝑊 ∈ LMod ∧ ( 1 ∈ ( Base ‘ 𝐹 ) ∧ 1 ∈ ( Base ‘ 𝐹 ) ) ∧ ( 𝑋𝑉𝑋𝑉 ) ) → ( 1 · 𝑋 ) = 𝑋 )
15 5 8 8 9 9 14 syl122anc ( ( 𝑊 ∈ LMod ∧ 𝑋𝑉 ) → ( 1 · 𝑋 ) = 𝑋 )