Metamath Proof Explorer


Theorem lssintcl

Description: The intersection of a nonempty set of subspaces is a subspace. (Contributed by NM, 8-Dec-2013) (Revised by Mario Carneiro, 19-Jun-2014)

Ref Expression
Hypothesis lssintcl.s ⊢ S = LSubSp ⁡ W
Assertion lssintcl ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ → ⋂ A ∈ S

Proof

Step Hyp Ref Expression
1 lssintcl.s ⊢ S = LSubSp ⁡ W
2 eqidd ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ → Scalar ⁡ W = Scalar ⁡ W
3 eqidd ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ → Base Scalar ⁡ W = Base Scalar ⁡ W
4 eqidd ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ → Base W = Base W
5 eqidd ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ → + W = + W
6 eqidd ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ → ⋅ W = ⋅ W
7 1 a1i ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ → S = LSubSp ⁡ W
8 intssuni2 ⊢ A ⊆ S ∧ A ≠ ∅ → ⋂ A ⊆ ⋃ S
9 8 3adant1 ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ → ⋂ A ⊆ ⋃ S
10 eqid ⊢ Base W = Base W
11 10 1 lssss ⊢ y ∈ S → y ⊆ Base W
12 velpw ⊢ y ∈ 𝒫 Base W ↔ y ⊆ Base W
13 11 12 sylibr ⊢ y ∈ S → y ∈ 𝒫 Base W
14 13 ssriv ⊢ S ⊆ 𝒫 Base W
15 sspwuni ⊢ S ⊆ 𝒫 Base W ↔ ⋃ S ⊆ Base W
16 14 15 mpbi ⊢ ⋃ S ⊆ Base W
17 9 16 sstrdi ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ → ⋂ A ⊆ Base W
18 simpl1 ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ ∧ y ∈ A → W ∈ LMod
19 simp2 ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ → A ⊆ S
20 19 sselda ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ ∧ y ∈ A → y ∈ S
21 eqid ⊢ 0 W = 0 W
22 21 1 lss0cl ⊢ W ∈ LMod ∧ y ∈ S → 0 W ∈ y
23 18 20 22 syl2anc ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ ∧ y ∈ A → 0 W ∈ y
24 23 ralrimiva ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ → ∀ y ∈ A 0 W ∈ y
25 fvex ⊢ 0 W ∈ V
26 25 elint2 ⊢ 0 W ∈ ⋂ A ↔ ∀ y ∈ A 0 W ∈ y
27 24 26 sylibr ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ → 0 W ∈ ⋂ A
28 27 ne0d ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ → ⋂ A ≠ ∅
29 20 adantlr ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ ∧ x ∈ Base Scalar ⁡ W ∧ a ∈ ⋂ A ∧ b ∈ ⋂ A ∧ y ∈ A → y ∈ S
30 simplr1 ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ ∧ x ∈ Base Scalar ⁡ W ∧ a ∈ ⋂ A ∧ b ∈ ⋂ A ∧ y ∈ A → x ∈ Base Scalar ⁡ W
31 simplr2 ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ ∧ x ∈ Base Scalar ⁡ W ∧ a ∈ ⋂ A ∧ b ∈ ⋂ A ∧ y ∈ A → a ∈ ⋂ A
32 simpr ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ ∧ x ∈ Base Scalar ⁡ W ∧ a ∈ ⋂ A ∧ b ∈ ⋂ A ∧ y ∈ A → y ∈ A
33 elinti ⊢ a ∈ ⋂ A → y ∈ A → a ∈ y
34 31 32 33 sylc ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ ∧ x ∈ Base Scalar ⁡ W ∧ a ∈ ⋂ A ∧ b ∈ ⋂ A ∧ y ∈ A → a ∈ y
35 simplr3 ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ ∧ x ∈ Base Scalar ⁡ W ∧ a ∈ ⋂ A ∧ b ∈ ⋂ A ∧ y ∈ A → b ∈ ⋂ A
36 elinti ⊢ b ∈ ⋂ A → y ∈ A → b ∈ y
37 35 32 36 sylc ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ ∧ x ∈ Base Scalar ⁡ W ∧ a ∈ ⋂ A ∧ b ∈ ⋂ A ∧ y ∈ A → b ∈ y
38 eqid ⊢ Scalar ⁡ W = Scalar ⁡ W
39 eqid ⊢ Base Scalar ⁡ W = Base Scalar ⁡ W
40 eqid ⊢ + W = + W
41 eqid ⊢ ⋅ W = ⋅ W
42 38 39 40 41 1 lsscl ⊢ y ∈ S ∧ x ∈ Base Scalar ⁡ W ∧ a ∈ y ∧ b ∈ y → x ⋅ W a + W b ∈ y
43 29 30 34 37 42 syl13anc ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ ∧ x ∈ Base Scalar ⁡ W ∧ a ∈ ⋂ A ∧ b ∈ ⋂ A ∧ y ∈ A → x ⋅ W a + W b ∈ y
44 43 ralrimiva ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ ∧ x ∈ Base Scalar ⁡ W ∧ a ∈ ⋂ A ∧ b ∈ ⋂ A → ∀ y ∈ A x ⋅ W a + W b ∈ y
45 ovex ⊢ x ⋅ W a + W b ∈ V
46 45 elint2 ⊢ x ⋅ W a + W b ∈ ⋂ A ↔ ∀ y ∈ A x ⋅ W a + W b ∈ y
47 44 46 sylibr ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ ∧ x ∈ Base Scalar ⁡ W ∧ a ∈ ⋂ A ∧ b ∈ ⋂ A → x ⋅ W a + W b ∈ ⋂ A
48 2 3 4 5 6 7 17 28 47 islssd ⊢ W ∈ LMod ∧ A ⊆ S ∧ A ≠ ∅ → ⋂ A ∈ S