Metamath Proof Explorer


Theorem lsatcvat3

Description: A condition implying that a certain subspace is an atom. Part of Lemma 3.2.20 of PtakPulmannova p. 68. ( atcvat3i analog.) (Contributed by NM, 11-Jan-2015)

Ref Expression
Hypotheses lsatcvat3.s S=LSubSpW
lsatcvat3.p ˙=LSSumW
lsatcvat3.a A=LSAtomsW
lsatcvat3.w φWLVec
lsatcvat3.u φUS
lsatcvat3.q φQA
lsatcvat3.r φRA
lsatcvat3.n φQR
lsatcvat3.m φ¬RU
lsatcvat3.l φQU˙R
Assertion lsatcvat3 φUQ˙RA

Proof

Step Hyp Ref Expression
1 lsatcvat3.s S=LSubSpW
2 lsatcvat3.p ˙=LSSumW
3 lsatcvat3.a A=LSAtomsW
4 lsatcvat3.w φWLVec
5 lsatcvat3.u φUS
6 lsatcvat3.q φQA
7 lsatcvat3.r φRA
8 lsatcvat3.n φQR
9 lsatcvat3.m φ¬RU
10 lsatcvat3.l φQU˙R
11 eqid LW=LW
12 lveclmod WLVecWLMod
13 4 12 syl φWLMod
14 1 3 13 6 lsatlssel φQS
15 1 3 13 7 lsatlssel φRS
16 1 2 lsmcl WLModQSRSQ˙RS
17 13 14 15 16 syl3anc φQ˙RS
18 1 lssincl WLModUSQ˙RSUQ˙RS
19 13 5 17 18 syl3anc φUQ˙RS
20 1 2 3 11 4 5 7 lcv1 φ¬RUULWU˙R
21 9 20 mpbid φULWU˙R
22 lmodabl WLModWAbel
23 13 22 syl φWAbel
24 1 lsssssubg WLModSSubGrpW
25 13 24 syl φSSubGrpW
26 25 14 sseldd φQSubGrpW
27 25 15 sseldd φRSubGrpW
28 2 lsmcom WAbelQSubGrpWRSubGrpWQ˙R=R˙Q
29 23 26 27 28 syl3anc φQ˙R=R˙Q
30 29 oveq2d φU˙Q˙R=U˙R˙Q
31 25 5 sseldd φUSubGrpW
32 2 lsmass USubGrpWRSubGrpWQSubGrpWU˙R˙Q=U˙R˙Q
33 31 27 26 32 syl3anc φU˙R˙Q=U˙R˙Q
34 30 33 eqtr4d φU˙Q˙R=U˙R˙Q
35 1 2 lsmcl WLModUSRSU˙RS
36 13 5 15 35 syl3anc φU˙RS
37 25 36 sseldd φU˙RSubGrpW
38 2 lsmless2 U˙RSubGrpWU˙RSubGrpWQU˙RU˙R˙QU˙R˙U˙R
39 37 37 10 38 syl3anc φU˙R˙QU˙R˙U˙R
40 34 39 eqsstrd φU˙Q˙RU˙R˙U˙R
41 2 lsmidm U˙RSubGrpWU˙R˙U˙R=U˙R
42 37 41 syl φU˙R˙U˙R=U˙R
43 40 42 sseqtrd φU˙Q˙RU˙R
44 25 17 sseldd φQ˙RSubGrpW
45 2 lsmub2 QSubGrpWRSubGrpWRQ˙R
46 26 27 45 syl2anc φRQ˙R
47 2 lsmless2 USubGrpWQ˙RSubGrpWRQ˙RU˙RU˙Q˙R
48 31 44 46 47 syl3anc φU˙RU˙Q˙R
49 43 48 eqssd φU˙Q˙R=U˙R
50 21 49 breqtrrd φULWU˙Q˙R
51 1 2 11 13 5 17 50 lcvexchlem4 φUQ˙RLWQ˙R
52 1 2 3 11 4 19 6 7 8 51 lsatcvat2 φUQ˙RA