Metamath Proof Explorer


Theorem dicssdvh

Description: The partial isomorphism C maps to a set of vectors in full vector space H. (Contributed by NM, 19-Jan-2014)

Ref Expression
Hypotheses dicssdvh.l ˙=K
dicssdvh.a A=AtomsK
dicssdvh.h H=LHypK
dicssdvh.i I=DIsoCKW
dicssdvh.u U=DVecHKW
dicssdvh.v V=BaseU
Assertion dicssdvh KHLWHQA¬Q˙WIQV

Proof

Step Hyp Ref Expression
1 dicssdvh.l ˙=K
2 dicssdvh.a A=AtomsK
3 dicssdvh.h H=LHypK
4 dicssdvh.i I=DIsoCKW
5 dicssdvh.u U=DVecHKW
6 dicssdvh.v V=BaseU
7 simprl KHLWHQA¬Q˙Wf=sιgLTrnKW|gocKW=QsTEndoKWf=sιgLTrnKW|gocKW=Q
8 simpll KHLWHQA¬Q˙Wf=sιgLTrnKW|gocKW=QsTEndoKWKHLWH
9 simprr KHLWHQA¬Q˙Wf=sιgLTrnKW|gocKW=QsTEndoKWsTEndoKW
10 eqid ocK=ocK
11 1 10 2 3 lhpocnel KHLWHocKWA¬ocKW˙W
12 11 ad2antrr KHLWHQA¬Q˙Wf=sιgLTrnKW|gocKW=QsTEndoKWocKWA¬ocKW˙W
13 simplr KHLWHQA¬Q˙Wf=sιgLTrnKW|gocKW=QsTEndoKWQA¬Q˙W
14 eqid LTrnKW=LTrnKW
15 eqid ιgLTrnKW|gocKW=Q=ιgLTrnKW|gocKW=Q
16 1 2 3 14 15 ltrniotacl KHLWHocKWA¬ocKW˙WQA¬Q˙WιgLTrnKW|gocKW=QLTrnKW
17 8 12 13 16 syl3anc KHLWHQA¬Q˙Wf=sιgLTrnKW|gocKW=QsTEndoKWιgLTrnKW|gocKW=QLTrnKW
18 eqid TEndoKW=TEndoKW
19 3 14 18 tendocl KHLWHsTEndoKWιgLTrnKW|gocKW=QLTrnKWsιgLTrnKW|gocKW=QLTrnKW
20 8 9 17 19 syl3anc KHLWHQA¬Q˙Wf=sιgLTrnKW|gocKW=QsTEndoKWsιgLTrnKW|gocKW=QLTrnKW
21 7 20 eqeltrd KHLWHQA¬Q˙Wf=sιgLTrnKW|gocKW=QsTEndoKWfLTrnKW
22 21 9 9 jca31 KHLWHQA¬Q˙Wf=sιgLTrnKW|gocKW=QsTEndoKWfLTrnKWsTEndoKWsTEndoKW
23 22 ex KHLWHQA¬Q˙Wf=sιgLTrnKW|gocKW=QsTEndoKWfLTrnKWsTEndoKWsTEndoKW
24 23 ssopab2dv KHLWHQA¬Q˙Wfs|f=sιgLTrnKW|gocKW=QsTEndoKWfs|fLTrnKWsTEndoKWsTEndoKW
25 opabssxp fs|fLTrnKWsTEndoKWsTEndoKWLTrnKW×TEndoKW
26 24 25 sstrdi KHLWHQA¬Q˙Wfs|f=sιgLTrnKW|gocKW=QsTEndoKWLTrnKW×TEndoKW
27 eqid ocKW=ocKW
28 1 2 3 27 14 18 4 dicval KHLWHQA¬Q˙WIQ=fs|f=sιgLTrnKW|gocKW=QsTEndoKW
29 3 14 18 5 6 dvhvbase KHLWHV=LTrnKW×TEndoKW
30 29 adantr KHLWHQA¬Q˙WV=LTrnKW×TEndoKW
31 26 28 30 3sstr4d KHLWHQA¬Q˙WIQV