Metamath Proof Explorer


Theorem hhssnvt

Description: Normed complex vector space property of a subspace. (Contributed by NM, 9-Apr-2008) (New usage is discouraged.)

Ref Expression
Hypothesis hhssnvt.1 ⊢ W = + ℎ ↾ H × H ⋅ ℎ ↾ ℂ × H norm ℎ ↾ H
Assertion hhssnvt ⊢ H ∈ S ℋ → W ∈ NrmCVec

Proof

Step Hyp Ref Expression
1 hhssnvt.1 ⊢ W = + ℎ ↾ H × H ⋅ ℎ ↾ ℂ × H norm ℎ ↾ H
2 xpeq1 ⊢ H = if H ∈ S ℋ H 0 ℋ → H × H = if H ∈ S ℋ H 0 ℋ × H
3 xpeq2 ⊢ H = if H ∈ S ℋ H 0 ℋ → if H ∈ S ℋ H 0 ℋ × H = if H ∈ S ℋ H 0 ℋ × if H ∈ S ℋ H 0 ℋ
4 2 3 eqtrd ⊢ H = if H ∈ S ℋ H 0 ℋ → H × H = if H ∈ S ℋ H 0 ℋ × if H ∈ S ℋ H 0 ℋ
5 4 reseq2d ⊢ H = if H ∈ S ℋ H 0 ℋ → + ℎ ↾ H × H = + ℎ ↾ if H ∈ S ℋ H 0 ℋ × if H ∈ S ℋ H 0 ℋ
6 xpeq2 ⊢ H = if H ∈ S ℋ H 0 ℋ → ℂ × H = ℂ × if H ∈ S ℋ H 0 ℋ
7 6 reseq2d ⊢ H = if H ∈ S ℋ H 0 ℋ → ⋅ ℎ ↾ ℂ × H = ⋅ ℎ ↾ ℂ × if H ∈ S ℋ H 0 ℋ
8 5 7 opeq12d ⊢ H = if H ∈ S ℋ H 0 ℋ → + ℎ ↾ H × H ⋅ ℎ ↾ ℂ × H = + ℎ ↾ if H ∈ S ℋ H 0 ℋ × if H ∈ S ℋ H 0 ℋ ⋅ ℎ ↾ ℂ × if H ∈ S ℋ H 0 ℋ
9 reseq2 ⊢ H = if H ∈ S ℋ H 0 ℋ → norm ℎ ↾ H = norm ℎ ↾ if H ∈ S ℋ H 0 ℋ
10 8 9 opeq12d ⊢ H = if H ∈ S ℋ H 0 ℋ → + ℎ ↾ H × H ⋅ ℎ ↾ ℂ × H norm ℎ ↾ H = + ℎ ↾ if H ∈ S ℋ H 0 ℋ × if H ∈ S ℋ H 0 ℋ ⋅ ℎ ↾ ℂ × if H ∈ S ℋ H 0 ℋ norm ℎ ↾ if H ∈ S ℋ H 0 ℋ
11 1 10 eqtrid ⊢ H = if H ∈ S ℋ H 0 ℋ → W = + ℎ ↾ if H ∈ S ℋ H 0 ℋ × if H ∈ S ℋ H 0 ℋ ⋅ ℎ ↾ ℂ × if H ∈ S ℋ H 0 ℋ norm ℎ ↾ if H ∈ S ℋ H 0 ℋ
12 11 eleq1d ⊢ H = if H ∈ S ℋ H 0 ℋ → W ∈ NrmCVec ↔ + ℎ ↾ if H ∈ S ℋ H 0 ℋ × if H ∈ S ℋ H 0 ℋ ⋅ ℎ ↾ ℂ × if H ∈ S ℋ H 0 ℋ norm ℎ ↾ if H ∈ S ℋ H 0 ℋ ∈ NrmCVec
13 eqid ⊢ + ℎ ↾ if H ∈ S ℋ H 0 ℋ × if H ∈ S ℋ H 0 ℋ ⋅ ℎ ↾ ℂ × if H ∈ S ℋ H 0 ℋ norm ℎ ↾ if H ∈ S ℋ H 0 ℋ = + ℎ ↾ if H ∈ S ℋ H 0 ℋ × if H ∈ S ℋ H 0 ℋ ⋅ ℎ ↾ ℂ × if H ∈ S ℋ H 0 ℋ norm ℎ ↾ if H ∈ S ℋ H 0 ℋ
14 h0elsh ⊢ 0 ℋ ∈ S ℋ
15 14 elimel ⊢ if H ∈ S ℋ H 0 ℋ ∈ S ℋ
16 13 15 hhssnv ⊢ + ℎ ↾ if H ∈ S ℋ H 0 ℋ × if H ∈ S ℋ H 0 ℋ ⋅ ℎ ↾ ℂ × if H ∈ S ℋ H 0 ℋ norm ℎ ↾ if H ∈ S ℋ H 0 ℋ ∈ NrmCVec
17 12 16 dedth ⊢ H ∈ S ℋ → W ∈ NrmCVec