Metamath Proof Explorer


Theorem hhshsslem2

Description: Lemma for hhsssh . (Contributed by NM, 6-Apr-2008) (New usage is discouraged.)

Ref Expression
Hypotheses hhsst.1 U = + norm
hhsst.2 W = + H × H × H norm H
hhssp3.3 W SubSp U
hhssp3.4 H
Assertion hhshsslem2 H S

Proof

Step Hyp Ref Expression
1 hhsst.1 U = + norm
2 hhsst.2 W = + H × H × H norm H
3 hhssp3.3 W SubSp U
4 hhssp3.4 H
5 1 hhnv U NrmCVec
6 1 hh0v 0 = 0 vec U
7 eqid 0 vec W = 0 vec W
8 eqid SubSp U = SubSp U
9 6 7 8 sspz U NrmCVec W SubSp U 0 vec W = 0
10 5 3 9 mp2an 0 vec W = 0
11 8 sspnv U NrmCVec W SubSp U W NrmCVec
12 5 3 11 mp2an W NrmCVec
13 eqid BaseSet W = BaseSet W
14 13 7 nvzcl W NrmCVec 0 vec W BaseSet W
15 12 14 ax-mp 0 vec W BaseSet W
16 1 2 3 4 hhshsslem1 H = BaseSet W
17 15 16 eleqtrri 0 vec W H
18 10 17 eqeltrri 0 H
19 4 18 pm3.2i H 0 H
20 1 hhva + = + v U
21 eqid + v W = + v W
22 16 20 21 8 sspgval U NrmCVec W SubSp U x H y H x + v W y = x + y
23 5 3 22 mpanl12 x H y H x + v W y = x + y
24 16 21 nvgcl W NrmCVec x H y H x + v W y H
25 12 24 mp3an1 x H y H x + v W y H
26 23 25 eqeltrrd x H y H x + y H
27 26 rgen2 x H y H x + y H
28 1 hhsm = 𝑠OLD U
29 eqid 𝑠OLD W = 𝑠OLD W
30 16 28 29 8 sspsval U NrmCVec W SubSp U x y H x 𝑠OLD W y = x y
31 5 3 30 mpanl12 x y H x 𝑠OLD W y = x y
32 16 29 nvscl W NrmCVec x y H x 𝑠OLD W y H
33 12 32 mp3an1 x y H x 𝑠OLD W y H
34 31 33 eqeltrrd x y H x y H
35 34 rgen2 x y H x y H
36 27 35 pm3.2i x H y H x + y H x y H x y H
37 issh2 H S H 0 H x H y H x + y H x y H x y H
38 19 36 37 mpbir2an H S