Metamath Proof Explorer


Theorem sspmlem

Description: Lemma for sspm and others. (Contributed by NM, 1-Feb-2008) (New usage is discouraged.)

Ref Expression
Hypotheses sspmlem.y Y = BaseSet W
sspmlem.h H = SubSp U
sspmlem.1 U NrmCVec W H x Y y Y x F y = x G y
sspmlem.2 W NrmCVec F : Y × Y R
sspmlem.3 U NrmCVec G : BaseSet U × BaseSet U S
Assertion sspmlem U NrmCVec W H F = G Y × Y

Proof

Step Hyp Ref Expression
1 sspmlem.y Y = BaseSet W
2 sspmlem.h H = SubSp U
3 sspmlem.1 U NrmCVec W H x Y y Y x F y = x G y
4 sspmlem.2 W NrmCVec F : Y × Y R
5 sspmlem.3 U NrmCVec G : BaseSet U × BaseSet U S
6 ovres x Y y Y x G Y × Y y = x G y
7 6 adantl U NrmCVec W H x Y y Y x G Y × Y y = x G y
8 3 7 eqtr4d U NrmCVec W H x Y y Y x F y = x G Y × Y y
9 8 ralrimivva U NrmCVec W H x Y y Y x F y = x G Y × Y y
10 eqid Y × Y = Y × Y
11 9 10 jctil U NrmCVec W H Y × Y = Y × Y x Y y Y x F y = x G Y × Y y
12 2 sspnv U NrmCVec W H W NrmCVec
13 ffn F : Y × Y R F Fn Y × Y
14 12 4 13 3syl U NrmCVec W H F Fn Y × Y
15 5 ffnd U NrmCVec G Fn BaseSet U × BaseSet U
16 15 adantr U NrmCVec W H G Fn BaseSet U × BaseSet U
17 eqid BaseSet U = BaseSet U
18 17 1 2 sspba U NrmCVec W H Y BaseSet U
19 xpss12 Y BaseSet U Y BaseSet U Y × Y BaseSet U × BaseSet U
20 18 18 19 syl2anc U NrmCVec W H Y × Y BaseSet U × BaseSet U
21 fnssres G Fn BaseSet U × BaseSet U Y × Y BaseSet U × BaseSet U G Y × Y Fn Y × Y
22 16 20 21 syl2anc U NrmCVec W H G Y × Y Fn Y × Y
23 eqfnov F Fn Y × Y G Y × Y Fn Y × Y F = G Y × Y Y × Y = Y × Y x Y y Y x F y = x G Y × Y y
24 14 22 23 syl2anc U NrmCVec W H F = G Y × Y Y × Y = Y × Y x Y y Y x F y = x G Y × Y y
25 11 24 mpbird U NrmCVec W H F = G Y × Y