Metamath Proof Explorer


Theorem shscli

Description: Closure of subspace sum. (Contributed by NM, 15-Oct-1999) (Revised by Mario Carneiro, 23-Dec-2013) (New usage is discouraged.)

Ref Expression
Hypotheses shscl.1 ⊢ A ∈ S ℋ
shscl.2 ⊢ B ∈ S ℋ
Assertion shscli ⊢ A + ℋ B ∈ S ℋ

Proof

Step Hyp Ref Expression
1 shscl.1 ⊢ A ∈ S ℋ
2 shscl.2 ⊢ B ∈ S ℋ
3 shsss ⊢ A ∈ S ℋ ∧ B ∈ S ℋ → A + ℋ B ⊆ ℋ
4 1 2 3 mp2an ⊢ A + ℋ B ⊆ ℋ
5 sh0 ⊢ A ∈ S ℋ → 0 ℎ ∈ A
6 1 5 ax-mp ⊢ 0 ℎ ∈ A
7 sh0 ⊢ B ∈ S ℋ → 0 ℎ ∈ B
8 2 7 ax-mp ⊢ 0 ℎ ∈ B
9 ax-hv0cl ⊢ 0 ℎ ∈ ℋ
10 9 hvaddlidi ⊢ 0 ℎ + ℎ 0 ℎ = 0 ℎ
11 10 eqcomi ⊢ 0 ℎ = 0 ℎ + ℎ 0 ℎ
12 rspceov ⊢ 0 ℎ ∈ A ∧ 0 ℎ ∈ B ∧ 0 ℎ = 0 ℎ + ℎ 0 ℎ → ∃ x ∈ A ∃ y ∈ B 0 ℎ = x + ℎ y
13 6 8 11 12 mp3an ⊢ ∃ x ∈ A ∃ y ∈ B 0 ℎ = x + ℎ y
14 1 2 shseli ⊢ 0 ℎ ∈ A + ℋ B ↔ ∃ x ∈ A ∃ y ∈ B 0 ℎ = x + ℎ y
15 13 14 mpbir ⊢ 0 ℎ ∈ A + ℋ B
16 4 15 pm3.2i ⊢ A + ℋ B ⊆ ℋ ∧ 0 ℎ ∈ A + ℋ B
17 1 2 shseli ⊢ x ∈ A + ℋ B ↔ ∃ z ∈ A ∃ w ∈ B x = z + ℎ w
18 1 2 shseli ⊢ y ∈ A + ℋ B ↔ ∃ v ∈ A ∃ u ∈ B y = v + ℎ u
19 shaddcl ⊢ A ∈ S ℋ ∧ z ∈ A ∧ v ∈ A → z + ℎ v ∈ A
20 1 19 mp3an1 ⊢ z ∈ A ∧ v ∈ A → z + ℎ v ∈ A
21 20 ad2ant2r ⊢ z ∈ A ∧ w ∈ B ∧ v ∈ A ∧ u ∈ B → z + ℎ v ∈ A
22 21 ad2ant2r ⊢ z ∈ A ∧ w ∈ B ∧ x = z + ℎ w ∧ v ∈ A ∧ u ∈ B ∧ y = v + ℎ u → z + ℎ v ∈ A
23 shaddcl ⊢ B ∈ S ℋ ∧ w ∈ B ∧ u ∈ B → w + ℎ u ∈ B
24 2 23 mp3an1 ⊢ w ∈ B ∧ u ∈ B → w + ℎ u ∈ B
25 24 ad2ant2l ⊢ z ∈ A ∧ w ∈ B ∧ v ∈ A ∧ u ∈ B → w + ℎ u ∈ B
26 25 ad2ant2r ⊢ z ∈ A ∧ w ∈ B ∧ x = z + ℎ w ∧ v ∈ A ∧ u ∈ B ∧ y = v + ℎ u → w + ℎ u ∈ B
27 oveq12 ⊢ x = z + ℎ w ∧ y = v + ℎ u → x + ℎ y = z + ℎ w + ℎ v + ℎ u
28 27 ad2ant2l ⊢ z ∈ A ∧ w ∈ B ∧ x = z + ℎ w ∧ v ∈ A ∧ u ∈ B ∧ y = v + ℎ u → x + ℎ y = z + ℎ w + ℎ v + ℎ u
29 1 sheli ⊢ z ∈ A → z ∈ ℋ
30 1 sheli ⊢ v ∈ A → v ∈ ℋ
31 29 30 anim12i ⊢ z ∈ A ∧ v ∈ A → z ∈ ℋ ∧ v ∈ ℋ
32 2 sheli ⊢ w ∈ B → w ∈ ℋ
33 2 sheli ⊢ u ∈ B → u ∈ ℋ
34 32 33 anim12i ⊢ w ∈ B ∧ u ∈ B → w ∈ ℋ ∧ u ∈ ℋ
35 hvadd4 ⊢ z ∈ ℋ ∧ v ∈ ℋ ∧ w ∈ ℋ ∧ u ∈ ℋ → z + ℎ v + ℎ w + ℎ u = z + ℎ w + ℎ v + ℎ u
36 31 34 35 syl2an ⊢ z ∈ A ∧ v ∈ A ∧ w ∈ B ∧ u ∈ B → z + ℎ v + ℎ w + ℎ u = z + ℎ w + ℎ v + ℎ u
37 36 an4s ⊢ z ∈ A ∧ w ∈ B ∧ v ∈ A ∧ u ∈ B → z + ℎ v + ℎ w + ℎ u = z + ℎ w + ℎ v + ℎ u
38 37 ad2ant2r ⊢ z ∈ A ∧ w ∈ B ∧ x = z + ℎ w ∧ v ∈ A ∧ u ∈ B ∧ y = v + ℎ u → z + ℎ v + ℎ w + ℎ u = z + ℎ w + ℎ v + ℎ u
39 28 38 eqtr4d ⊢ z ∈ A ∧ w ∈ B ∧ x = z + ℎ w ∧ v ∈ A ∧ u ∈ B ∧ y = v + ℎ u → x + ℎ y = z + ℎ v + ℎ w + ℎ u
40 rspceov ⊢ z + ℎ v ∈ A ∧ w + ℎ u ∈ B ∧ x + ℎ y = z + ℎ v + ℎ w + ℎ u → ∃ f ∈ A ∃ g ∈ B x + ℎ y = f + ℎ g
41 22 26 39 40 syl3anc ⊢ z ∈ A ∧ w ∈ B ∧ x = z + ℎ w ∧ v ∈ A ∧ u ∈ B ∧ y = v + ℎ u → ∃ f ∈ A ∃ g ∈ B x + ℎ y = f + ℎ g
42 41 ancoms ⊢ v ∈ A ∧ u ∈ B ∧ y = v + ℎ u ∧ z ∈ A ∧ w ∈ B ∧ x = z + ℎ w → ∃ f ∈ A ∃ g ∈ B x + ℎ y = f + ℎ g
43 42 exp43 ⊢ v ∈ A ∧ u ∈ B → y = v + ℎ u → z ∈ A ∧ w ∈ B → x = z + ℎ w → ∃ f ∈ A ∃ g ∈ B x + ℎ y = f + ℎ g
44 43 rexlimivv ⊢ ∃ v ∈ A ∃ u ∈ B y = v + ℎ u → z ∈ A ∧ w ∈ B → x = z + ℎ w → ∃ f ∈ A ∃ g ∈ B x + ℎ y = f + ℎ g
45 44 com3l ⊢ z ∈ A ∧ w ∈ B → x = z + ℎ w → ∃ v ∈ A ∃ u ∈ B y = v + ℎ u → ∃ f ∈ A ∃ g ∈ B x + ℎ y = f + ℎ g
46 45 rexlimivv ⊢ ∃ z ∈ A ∃ w ∈ B x = z + ℎ w → ∃ v ∈ A ∃ u ∈ B y = v + ℎ u → ∃ f ∈ A ∃ g ∈ B x + ℎ y = f + ℎ g
47 46 imp ⊢ ∃ z ∈ A ∃ w ∈ B x = z + ℎ w ∧ ∃ v ∈ A ∃ u ∈ B y = v + ℎ u → ∃ f ∈ A ∃ g ∈ B x + ℎ y = f + ℎ g
48 17 18 47 syl2anb ⊢ x ∈ A + ℋ B ∧ y ∈ A + ℋ B → ∃ f ∈ A ∃ g ∈ B x + ℎ y = f + ℎ g
49 1 2 shseli ⊢ x + ℎ y ∈ A + ℋ B ↔ ∃ f ∈ A ∃ g ∈ B x + ℎ y = f + ℎ g
50 48 49 sylibr ⊢ x ∈ A + ℋ B ∧ y ∈ A + ℋ B → x + ℎ y ∈ A + ℋ B
51 50 rgen2 ⊢ ∀ x ∈ A + ℋ B ∀ y ∈ A + ℋ B x + ℎ y ∈ A + ℋ B
52 shmulcl ⊢ A ∈ S ℋ ∧ x ∈ ℂ ∧ v ∈ A → x ⋅ ℎ v ∈ A
53 1 52 mp3an1 ⊢ x ∈ ℂ ∧ v ∈ A → x ⋅ ℎ v ∈ A
54 53 adantrr ⊢ x ∈ ℂ ∧ v ∈ A ∧ u ∈ B ∧ y = v + ℎ u → x ⋅ ℎ v ∈ A
55 shmulcl ⊢ B ∈ S ℋ ∧ x ∈ ℂ ∧ u ∈ B → x ⋅ ℎ u ∈ B
56 2 55 mp3an1 ⊢ x ∈ ℂ ∧ u ∈ B → x ⋅ ℎ u ∈ B
57 56 adantrr ⊢ x ∈ ℂ ∧ u ∈ B ∧ y = v + ℎ u → x ⋅ ℎ u ∈ B
58 57 adantrl ⊢ x ∈ ℂ ∧ v ∈ A ∧ u ∈ B ∧ y = v + ℎ u → x ⋅ ℎ u ∈ B
59 oveq2 ⊢ y = v + ℎ u → x ⋅ ℎ y = x ⋅ ℎ v + ℎ u
60 59 adantl ⊢ u ∈ B ∧ y = v + ℎ u → x ⋅ ℎ y = x ⋅ ℎ v + ℎ u
61 60 ad2antll ⊢ x ∈ ℂ ∧ v ∈ A ∧ u ∈ B ∧ y = v + ℎ u → x ⋅ ℎ y = x ⋅ ℎ v + ℎ u
62 id ⊢ x ∈ ℂ → x ∈ ℂ
63 ax-hvdistr1 ⊢ x ∈ ℂ ∧ v ∈ ℋ ∧ u ∈ ℋ → x ⋅ ℎ v + ℎ u = x ⋅ ℎ v + ℎ x ⋅ ℎ u
64 62 30 33 63 syl3an ⊢ x ∈ ℂ ∧ v ∈ A ∧ u ∈ B → x ⋅ ℎ v + ℎ u = x ⋅ ℎ v + ℎ x ⋅ ℎ u
65 64 3expb ⊢ x ∈ ℂ ∧ v ∈ A ∧ u ∈ B → x ⋅ ℎ v + ℎ u = x ⋅ ℎ v + ℎ x ⋅ ℎ u
66 65 adantrrr ⊢ x ∈ ℂ ∧ v ∈ A ∧ u ∈ B ∧ y = v + ℎ u → x ⋅ ℎ v + ℎ u = x ⋅ ℎ v + ℎ x ⋅ ℎ u
67 61 66 eqtrd ⊢ x ∈ ℂ ∧ v ∈ A ∧ u ∈ B ∧ y = v + ℎ u → x ⋅ ℎ y = x ⋅ ℎ v + ℎ x ⋅ ℎ u
68 rspceov ⊢ x ⋅ ℎ v ∈ A ∧ x ⋅ ℎ u ∈ B ∧ x ⋅ ℎ y = x ⋅ ℎ v + ℎ x ⋅ ℎ u → ∃ f ∈ A ∃ g ∈ B x ⋅ ℎ y = f + ℎ g
69 54 58 67 68 syl3anc ⊢ x ∈ ℂ ∧ v ∈ A ∧ u ∈ B ∧ y = v + ℎ u → ∃ f ∈ A ∃ g ∈ B x ⋅ ℎ y = f + ℎ g
70 69 ancoms ⊢ v ∈ A ∧ u ∈ B ∧ y = v + ℎ u ∧ x ∈ ℂ → ∃ f ∈ A ∃ g ∈ B x ⋅ ℎ y = f + ℎ g
71 70 exp42 ⊢ v ∈ A → u ∈ B → y = v + ℎ u → x ∈ ℂ → ∃ f ∈ A ∃ g ∈ B x ⋅ ℎ y = f + ℎ g
72 71 imp ⊢ v ∈ A ∧ u ∈ B → y = v + ℎ u → x ∈ ℂ → ∃ f ∈ A ∃ g ∈ B x ⋅ ℎ y = f + ℎ g
73 72 rexlimivv ⊢ ∃ v ∈ A ∃ u ∈ B y = v + ℎ u → x ∈ ℂ → ∃ f ∈ A ∃ g ∈ B x ⋅ ℎ y = f + ℎ g
74 73 impcom ⊢ x ∈ ℂ ∧ ∃ v ∈ A ∃ u ∈ B y = v + ℎ u → ∃ f ∈ A ∃ g ∈ B x ⋅ ℎ y = f + ℎ g
75 18 74 sylan2b ⊢ x ∈ ℂ ∧ y ∈ A + ℋ B → ∃ f ∈ A ∃ g ∈ B x ⋅ ℎ y = f + ℎ g
76 1 2 shseli ⊢ x ⋅ ℎ y ∈ A + ℋ B ↔ ∃ f ∈ A ∃ g ∈ B x ⋅ ℎ y = f + ℎ g
77 75 76 sylibr ⊢ x ∈ ℂ ∧ y ∈ A + ℋ B → x ⋅ ℎ y ∈ A + ℋ B
78 77 rgen2 ⊢ ∀ x ∈ ℂ ∀ y ∈ A + ℋ B x ⋅ ℎ y ∈ A + ℋ B
79 51 78 pm3.2i ⊢ ∀ x ∈ A + ℋ B ∀ y ∈ A + ℋ B x + ℎ y ∈ A + ℋ B ∧ ∀ x ∈ ℂ ∀ y ∈ A + ℋ B x ⋅ ℎ y ∈ A + ℋ B
80 issh2 ⊢ A + ℋ B ∈ S ℋ ↔ A + ℋ B ⊆ ℋ ∧ 0 ℎ ∈ A + ℋ B ∧ ∀ x ∈ A + ℋ B ∀ y ∈ A + ℋ B x + ℎ y ∈ A + ℋ B ∧ ∀ x ∈ ℂ ∀ y ∈ A + ℋ B x ⋅ ℎ y ∈ A + ℋ B
81 16 79 80 mpbir2an ⊢ A + ℋ B ∈ S ℋ