Theorem phlvsca

Description: The scalar product operation of a constructed pre-Hilbert space. (Contributed by Mario Carneiro, 6-Oct-2013) (Revised by Mario Carneiro, 29-Aug-2015)

	Ref	Expression
Hypothesis	phlfn.h	⊢ 𝐻 = ( { ⟨ ( Base ‘ ndx ) , 𝐵 ⟩ , ⟨ ( +g ‘ ndx ) , + ⟩ , ⟨ ( Scalar ‘ ndx ) , 𝑇 ⟩ } ∪ { ⟨ ( ·𝑠 ‘ ndx ) , · ⟩ , ⟨ ( ·𝑖 ‘ ndx ) , , ⟩ } )
Assertion	phlvsca	⊢ ( · ∈ 𝑋 → · = ( ·𝑠 ‘ 𝐻 ) )

Proof

Step	Hyp	Ref	Expression
1		phlfn.h	⊢ 𝐻 = ( { ⟨ ( Base ‘ ndx ) , 𝐵 ⟩ , ⟨ ( +g ‘ ndx ) , + ⟩ , ⟨ ( Scalar ‘ ndx ) , 𝑇 ⟩ } ∪ { ⟨ ( ·𝑠 ‘ ndx ) , · ⟩ , ⟨ ( ·𝑖 ‘ ndx ) , , ⟩ } )
2	1	phlstr	⊢ 𝐻 Struct ⟨ 1 , 8 ⟩
3		vscaid	⊢ ·𝑠 = Slot ( ·𝑠 ‘ ndx )
4		snsspr1	⊢ { ⟨ ( ·𝑠 ‘ ndx ) , · ⟩ } ⊆ { ⟨ ( ·𝑠 ‘ ndx ) , · ⟩ , ⟨ ( ·𝑖 ‘ ndx ) , , ⟩ }
5		ssun2	⊢ { ⟨ ( ·𝑠 ‘ ndx ) , · ⟩ , ⟨ ( ·𝑖 ‘ ndx ) , , ⟩ } ⊆ ( { ⟨ ( Base ‘ ndx ) , 𝐵 ⟩ , ⟨ ( +g ‘ ndx ) , + ⟩ , ⟨ ( Scalar ‘ ndx ) , 𝑇 ⟩ } ∪ { ⟨ ( ·𝑠 ‘ ndx ) , · ⟩ , ⟨ ( ·𝑖 ‘ ndx ) , , ⟩ } )
6	5 1	sseqtrri	⊢ { ⟨ ( ·𝑠 ‘ ndx ) , · ⟩ , ⟨ ( ·𝑖 ‘ ndx ) , , ⟩ } ⊆ 𝐻
7	4 6	sstri	⊢ { ⟨ ( ·𝑠 ‘ ndx ) , · ⟩ } ⊆ 𝐻
8	2 3 7	strfv	⊢ ( · ∈ 𝑋 → · = ( ·𝑠 ‘ 𝐻 ) )