Metamath Proof Explorer


Theorem lssats

Description: The lattice of subspaces is atomistic, i.e. any element is the supremum of its atoms. Part of proof of Theorem 16.9 of MaedaMaeda p. 70. Hypothesis ( shatomistici analog.) (Contributed by NM, 9-Apr-2014)

Ref Expression
Hypotheses lssats.s S=LSubSpW
lssats.n N=LSpanW
lssats.a A=LSAtomsW
Assertion lssats WLModUSU=NxA|xU

Proof

Step Hyp Ref Expression
1 lssats.s S=LSubSpW
2 lssats.n N=LSpanW
3 lssats.a A=LSAtomsW
4 eleq1 y=0WyNxA|xU0WNxA|xU
5 simplll WLModUSyUy0WWLMod
6 simpllr WLModUSyUy0WUS
7 simplr WLModUSyUy0WyU
8 eqid BaseW=BaseW
9 8 1 lssel USyUyBaseW
10 6 7 9 syl2anc WLModUSyUy0WyBaseW
11 8 1 2 lspsncl WLModyBaseWNyS
12 5 10 11 syl2anc WLModUSyUy0WNyS
13 1 2 lspid WLModNySNNy=Ny
14 5 12 13 syl2anc WLModUSyUy0WNNy=Ny
15 1 3 lsatlss WLModAS
16 15 adantr WLModUSAS
17 rabss2 ASxA|xUxS|xU
18 uniss xA|xUxS|xUxA|xUxS|xU
19 16 17 18 3syl WLModUSxA|xUxS|xU
20 unimax USxS|xU=U
21 8 1 lssss USUBaseW
22 20 21 eqsstrd USxS|xUBaseW
23 22 adantl WLModUSxS|xUBaseW
24 19 23 sstrd WLModUSxA|xUBaseW
25 24 ad2antrr WLModUSyUy0WxA|xUBaseW
26 simpr WLModUSyUy0Wy0W
27 eqid 0W=0W
28 8 2 27 3 lsatlspsn2 WLModyBaseWy0WNyA
29 5 10 26 28 syl3anc WLModUSyUy0WNyA
30 1 2 5 6 7 lspsnel5a WLModUSyUy0WNyU
31 sseq1 x=NyxUNyU
32 31 elrab NyxA|xUNyANyU
33 29 30 32 sylanbrc WLModUSyUy0WNyxA|xU
34 elssuni NyxA|xUNyxA|xU
35 33 34 syl WLModUSyUy0WNyxA|xU
36 8 2 lspss WLModxA|xUBaseWNyxA|xUNNyNxA|xU
37 5 25 35 36 syl3anc WLModUSyUy0WNNyNxA|xU
38 14 37 eqsstrrd WLModUSyUy0WNyNxA|xU
39 8 2 lspsnid WLModyBaseWyNy
40 5 10 39 syl2anc WLModUSyUy0WyNy
41 38 40 sseldd WLModUSyUy0WyNxA|xU
42 simpll WLModUSyUWLMod
43 8 1 2 lspcl WLModxA|xUBaseWNxA|xUS
44 24 43 syldan WLModUSNxA|xUS
45 44 adantr WLModUSyUNxA|xUS
46 27 1 lss0cl WLModNxA|xUS0WNxA|xU
47 42 45 46 syl2anc WLModUSyU0WNxA|xU
48 4 41 47 pm2.61ne WLModUSyUyNxA|xU
49 48 ex WLModUSyUyNxA|xU
50 49 ssrdv WLModUSUNxA|xU
51 simpl WLModUSWLMod
52 8 2 lspss WLModxS|xUBaseWxA|xUxS|xUNxA|xUNxS|xU
53 51 23 19 52 syl3anc WLModUSNxA|xUNxS|xU
54 20 adantl WLModUSxS|xU=U
55 54 fveq2d WLModUSNxS|xU=NU
56 1 2 lspid WLModUSNU=U
57 55 56 eqtrd WLModUSNxS|xU=U
58 53 57 sseqtrd WLModUSNxA|xUU
59 50 58 eqssd WLModUSU=NxA|xU