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 = LSubSp W
lssats.n N = LSpan W
lssats.a A = LSAtoms W
Assertion lssats W LMod U S U = N x A | x U

Proof

Step Hyp Ref Expression
1 lssats.s S = LSubSp W
2 lssats.n N = LSpan W
3 lssats.a A = LSAtoms W
4 eleq1 y = 0 W y N x A | x U 0 W N x A | x U
5 simplll W LMod U S y U y 0 W W LMod
6 simpllr W LMod U S y U y 0 W U S
7 simplr W LMod U S y U y 0 W y U
8 eqid Base W = Base W
9 8 1 lssel U S y U y Base W
10 6 7 9 syl2anc W LMod U S y U y 0 W y Base W
11 8 1 2 lspsncl W LMod y Base W N y S
12 5 10 11 syl2anc W LMod U S y U y 0 W N y S
13 1 2 lspid W LMod N y S N N y = N y
14 5 12 13 syl2anc W LMod U S y U y 0 W N N y = N y
15 1 3 lsatlss W LMod A S
16 15 adantr W LMod U S A S
17 rabss2 A S x A | x U x S | x U
18 uniss x A | x U x S | x U x A | x U x S | x U
19 16 17 18 3syl W LMod U S x A | x U x S | x U
20 unimax U S x S | x U = U
21 8 1 lssss U S U Base W
22 20 21 eqsstrd U S x S | x U Base W
23 22 adantl W LMod U S x S | x U Base W
24 19 23 sstrd W LMod U S x A | x U Base W
25 24 ad2antrr W LMod U S y U y 0 W x A | x U Base W
26 simpr W LMod U S y U y 0 W y 0 W
27 eqid 0 W = 0 W
28 8 2 27 3 lsatlspsn2 W LMod y Base W y 0 W N y A
29 5 10 26 28 syl3anc W LMod U S y U y 0 W N y A
30 1 2 5 6 7 lspsnel5a W LMod U S y U y 0 W N y U
31 sseq1 x = N y x U N y U
32 31 elrab N y x A | x U N y A N y U
33 29 30 32 sylanbrc W LMod U S y U y 0 W N y x A | x U
34 elssuni N y x A | x U N y x A | x U
35 33 34 syl W LMod U S y U y 0 W N y x A | x U
36 8 2 lspss W LMod x A | x U Base W N y x A | x U N N y N x A | x U
37 5 25 35 36 syl3anc W LMod U S y U y 0 W N N y N x A | x U
38 14 37 eqsstrrd W LMod U S y U y 0 W N y N x A | x U
39 8 2 lspsnid W LMod y Base W y N y
40 5 10 39 syl2anc W LMod U S y U y 0 W y N y
41 38 40 sseldd W LMod U S y U y 0 W y N x A | x U
42 simpll W LMod U S y U W LMod
43 8 1 2 lspcl W LMod x A | x U Base W N x A | x U S
44 24 43 syldan W LMod U S N x A | x U S
45 44 adantr W LMod U S y U N x A | x U S
46 27 1 lss0cl W LMod N x A | x U S 0 W N x A | x U
47 42 45 46 syl2anc W LMod U S y U 0 W N x A | x U
48 4 41 47 pm2.61ne W LMod U S y U y N x A | x U
49 48 ex W LMod U S y U y N x A | x U
50 49 ssrdv W LMod U S U N x A | x U
51 simpl W LMod U S W LMod
52 8 2 lspss W LMod x S | x U Base W x A | x U x S | x U N x A | x U N x S | x U
53 51 23 19 52 syl3anc W LMod U S N x A | x U N x S | x U
54 20 adantl W LMod U S x S | x U = U
55 54 fveq2d W LMod U S N x S | x U = N U
56 1 2 lspid W LMod U S N U = U
57 55 56 eqtrd W LMod U S N x S | x U = U
58 53 57 sseqtrd W LMod U S N x A | x U U
59 50 58 eqssd W LMod U S U = N x A | x U