Metamath Proof Explorer


Theorem reslmhm2b

Description: Expansion of the codomain of a homomorphism. (Contributed by Stefan O'Rear, 3-Feb-2015) (Revised by Mario Carneiro, 5-May-2015)

Ref Expression
Hypotheses reslmhm2.u U=T𝑠X
reslmhm2.l L=LSubSpT
Assertion reslmhm2b TLModXLranFXFSLMHomTFSLMHomU

Proof

Step Hyp Ref Expression
1 reslmhm2.u U=T𝑠X
2 reslmhm2.l L=LSubSpT
3 eqid BaseS=BaseS
4 eqid S=S
5 eqid U=U
6 eqid ScalarS=ScalarS
7 eqid ScalarU=ScalarU
8 eqid BaseScalarS=BaseScalarS
9 lmhmlmod1 FSLMHomTSLMod
10 9 adantl TLModXLranFXFSLMHomTSLMod
11 simpl1 TLModXLranFXFSLMHomTTLMod
12 simpl2 TLModXLranFXFSLMHomTXL
13 1 2 lsslmod TLModXLULMod
14 11 12 13 syl2anc TLModXLranFXFSLMHomTULMod
15 eqid ScalarT=ScalarT
16 1 15 resssca XLScalarT=ScalarU
17 16 3ad2ant2 TLModXLranFXScalarT=ScalarU
18 6 15 lmhmsca FSLMHomTScalarT=ScalarS
19 17 18 sylan9req TLModXLranFXFSLMHomTScalarU=ScalarS
20 lmghm FSLMHomTFSGrpHomT
21 2 lsssubg TLModXLXSubGrpT
22 1 resghm2b XSubGrpTranFXFSGrpHomTFSGrpHomU
23 21 22 stoic3 TLModXLranFXFSGrpHomTFSGrpHomU
24 23 biimpa TLModXLranFXFSGrpHomTFSGrpHomU
25 20 24 sylan2 TLModXLranFXFSLMHomTFSGrpHomU
26 eqid T=T
27 6 8 3 4 26 lmhmlin FSLMHomTxBaseScalarSyBaseSFxSy=xTFy
28 27 3expb FSLMHomTxBaseScalarSyBaseSFxSy=xTFy
29 28 adantll TLModXLranFXFSLMHomTxBaseScalarSyBaseSFxSy=xTFy
30 simpll2 TLModXLranFXFSLMHomTxBaseScalarSyBaseSXL
31 1 26 ressvsca XLT=U
32 31 oveqd XLxTFy=xUFy
33 30 32 syl TLModXLranFXFSLMHomTxBaseScalarSyBaseSxTFy=xUFy
34 29 33 eqtrd TLModXLranFXFSLMHomTxBaseScalarSyBaseSFxSy=xUFy
35 3 4 5 6 7 8 10 14 19 25 34 islmhmd TLModXLranFXFSLMHomTFSLMHomU
36 simpr TLModXLranFXFSLMHomUFSLMHomU
37 simpl1 TLModXLranFXFSLMHomUTLMod
38 simpl2 TLModXLranFXFSLMHomUXL
39 1 2 reslmhm2 FSLMHomUTLModXLFSLMHomT
40 36 37 38 39 syl3anc TLModXLranFXFSLMHomUFSLMHomT
41 35 40 impbida TLModXLranFXFSLMHomTFSLMHomU