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 ellspsn5 ⊢ 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