Metamath Proof Explorer


Theorem lcfr

Description: Reconstruction of a subspace from a dual subspace of functionals with closed kernels. Our proof was suggested by Mario Carneiro, 20-Feb-2015. (Contributed by NM, 5-Mar-2015)

Ref Expression
Hypotheses lcfr.h H=LHypK
lcfr.o ˙=ocHKW
lcfr.u U=DVecHKW
lcfr.s S=LSubSpU
lcfr.f F=LFnlU
lcfr.l L=LKerU
lcfr.d D=LDualU
lcfr.t T=LSubSpD
lcfr.c C=fF|˙˙Lf=Lf
lcfr.q Q=gR˙Lg
lcfr.k φKHLWH
lcfr.r φRT
lcfr.rs φRC
Assertion lcfr φQS

Proof

Step Hyp Ref Expression
1 lcfr.h H=LHypK
2 lcfr.o ˙=ocHKW
3 lcfr.u U=DVecHKW
4 lcfr.s S=LSubSpU
5 lcfr.f F=LFnlU
6 lcfr.l L=LKerU
7 lcfr.d D=LDualU
8 lcfr.t T=LSubSpD
9 lcfr.c C=fF|˙˙Lf=Lf
10 lcfr.q Q=gR˙Lg
11 lcfr.k φKHLWH
12 lcfr.r φRT
13 lcfr.rs φRC
14 2fveq3 g=h˙Lg=˙Lh
15 14 cbviunv gR˙Lg=hR˙Lh
16 10 15 eqtri Q=hR˙Lh
17 11 adantr φhRKHLWH
18 eqid BaseU=BaseU
19 1 3 11 dvhlmod φULMod
20 19 adantr φhRULMod
21 eqid BaseD=BaseD
22 21 8 lssss RTRBaseD
23 12 22 syl φRBaseD
24 5 7 21 19 ldualvbase φBaseD=F
25 23 24 sseqtrd φRF
26 25 sselda φhRhF
27 18 5 6 20 26 lkrssv φhRLhBaseU
28 1 3 18 2 dochssv KHLWHLhBaseU˙LhBaseU
29 17 27 28 syl2anc φhR˙LhBaseU
30 29 ralrimiva φhR˙LhBaseU
31 iunss hR˙LhBaseUhR˙LhBaseU
32 30 31 sylibr φhR˙LhBaseU
33 16 32 eqsstrid φQBaseU
34 16 a1i φQ=hR˙Lh
35 7 19 lduallmod φDLMod
36 eqid 0D=0D
37 36 8 lss0cl DLModRT0DR
38 35 12 37 syl2anc φ0DR
39 5 7 36 19 ldual0vcl φ0DF
40 18 5 6 19 39 lkrssv φL0DBaseU
41 1 3 18 4 2 dochlss KHLWHL0DBaseU˙L0DS
42 11 40 41 syl2anc φ˙L0DS
43 eqid 0U=0U
44 43 4 lss0cl ULMod˙L0DS0U˙L0D
45 19 42 44 syl2anc φ0U˙L0D
46 2fveq3 h=0D˙Lh=˙L0D
47 46 eleq2d h=0D0U˙Lh0U˙L0D
48 47 rspcev 0DR0U˙L0DhR0U˙Lh
49 38 45 48 syl2anc φhR0U˙Lh
50 eliun 0UhR˙LhhR0U˙Lh
51 49 50 sylibr φ0UhR˙Lh
52 51 ne0d φhR˙Lh
53 34 52 eqnetrd φQ
54 eqid +U=+U
55 rabeq F=LFnlUfF|˙˙Lf=Lf=fLFnlU|˙˙Lf=Lf
56 5 55 ax-mp fF|˙˙Lf=Lf=fLFnlU|˙˙Lf=Lf
57 9 56 eqtri C=fLFnlU|˙˙Lf=Lf
58 11 adantr φxBaseScalarUaQbQKHLWH
59 12 adantr φxBaseScalarUaQbQRT
60 13 adantr φxBaseScalarUaQbQRC
61 simpr2 φxBaseScalarUaQbQaQ
62 eqid ScalarU=ScalarU
63 eqid BaseScalarU=BaseScalarU
64 eqid U=U
65 simpr1 φxBaseScalarUaQbQxBaseScalarU
66 1 2 3 18 5 6 7 8 58 59 16 61 62 63 64 65 lcfrlem5 φxBaseScalarUaQbQxUaQ
67 simpr3 φxBaseScalarUaQbQbQ
68 1 2 3 54 5 6 7 8 57 16 58 59 60 66 67 lcfrlem42 φxBaseScalarUaQbQxUa+UbQ
69 68 ralrimivvva φxBaseScalarUaQbQxUa+UbQ
70 62 63 18 54 64 4 islss QSQBaseUQxBaseScalarUaQbQxUa+UbQ
71 33 53 69 70 syl3anbrc φQS