Metamath Proof Explorer


Theorem ocsh

Description: The orthogonal complement of a subspace is a subspace. Part of Remark 3.12 of Beran p. 107. (Contributed by NM, 7-Aug-2000) (New usage is discouraged.)

Ref Expression
Assertion ocsh ⊢ A ⊆ ℋ → ⊥ ⁡ A ∈ S ℋ

Proof

Step Hyp Ref Expression
1 ocval ⊢ A ⊆ ℋ → ⊥ ⁡ A = x ∈ ℋ | ∀ y ∈ A x ⋅ ih y = 0
2 ssrab2 ⊢ x ∈ ℋ | ∀ y ∈ A x ⋅ ih y = 0 ⊆ ℋ
3 1 2 eqsstrdi ⊢ A ⊆ ℋ → ⊥ ⁡ A ⊆ ℋ
4 ssel ⊢ A ⊆ ℋ → y ∈ A → y ∈ ℋ
5 hi01 ⊢ y ∈ ℋ → 0 ℎ ⋅ ih y = 0
6 4 5 syl6 ⊢ A ⊆ ℋ → y ∈ A → 0 ℎ ⋅ ih y = 0
7 6 ralrimiv ⊢ A ⊆ ℋ → ∀ y ∈ A 0 ℎ ⋅ ih y = 0
8 ax-hv0cl ⊢ 0 ℎ ∈ ℋ
9 7 8 jctil ⊢ A ⊆ ℋ → 0 ℎ ∈ ℋ ∧ ∀ y ∈ A 0 ℎ ⋅ ih y = 0
10 ocel ⊢ A ⊆ ℋ → 0 ℎ ∈ ⊥ ⁡ A ↔ 0 ℎ ∈ ℋ ∧ ∀ y ∈ A 0 ℎ ⋅ ih y = 0
11 9 10 mpbird ⊢ A ⊆ ℋ → 0 ℎ ∈ ⊥ ⁡ A
12 3 11 jca ⊢ A ⊆ ℋ → ⊥ ⁡ A ⊆ ℋ ∧ 0 ℎ ∈ ⊥ ⁡ A
13 ssel2 ⊢ A ⊆ ℋ ∧ z ∈ A → z ∈ ℋ
14 ax-his2 ⊢ x ∈ ℋ ∧ y ∈ ℋ ∧ z ∈ ℋ → x + ℎ y ⋅ ih z = x ⋅ ih z + y ⋅ ih z
15 14 3expa ⊢ x ∈ ℋ ∧ y ∈ ℋ ∧ z ∈ ℋ → x + ℎ y ⋅ ih z = x ⋅ ih z + y ⋅ ih z
16 oveq12 ⊢ x ⋅ ih z = 0 ∧ y ⋅ ih z = 0 → x ⋅ ih z + y ⋅ ih z = 0 + 0
17 00id ⊢ 0 + 0 = 0
18 16 17 eqtrdi ⊢ x ⋅ ih z = 0 ∧ y ⋅ ih z = 0 → x ⋅ ih z + y ⋅ ih z = 0
19 15 18 sylan9eq ⊢ x ∈ ℋ ∧ y ∈ ℋ ∧ z ∈ ℋ ∧ x ⋅ ih z = 0 ∧ y ⋅ ih z = 0 → x + ℎ y ⋅ ih z = 0
20 19 ex ⊢ x ∈ ℋ ∧ y ∈ ℋ ∧ z ∈ ℋ → x ⋅ ih z = 0 ∧ y ⋅ ih z = 0 → x + ℎ y ⋅ ih z = 0
21 20 ancoms ⊢ z ∈ ℋ ∧ x ∈ ℋ ∧ y ∈ ℋ → x ⋅ ih z = 0 ∧ y ⋅ ih z = 0 → x + ℎ y ⋅ ih z = 0
22 13 21 sylan ⊢ A ⊆ ℋ ∧ z ∈ A ∧ x ∈ ℋ ∧ y ∈ ℋ → x ⋅ ih z = 0 ∧ y ⋅ ih z = 0 → x + ℎ y ⋅ ih z = 0
23 22 an32s ⊢ A ⊆ ℋ ∧ x ∈ ℋ ∧ y ∈ ℋ ∧ z ∈ A → x ⋅ ih z = 0 ∧ y ⋅ ih z = 0 → x + ℎ y ⋅ ih z = 0
24 23 ralimdva ⊢ A ⊆ ℋ ∧ x ∈ ℋ ∧ y ∈ ℋ → ∀ z ∈ A x ⋅ ih z = 0 ∧ y ⋅ ih z = 0 → ∀ z ∈ A x + ℎ y ⋅ ih z = 0
25 24 imdistanda ⊢ A ⊆ ℋ → x ∈ ℋ ∧ y ∈ ℋ ∧ ∀ z ∈ A x ⋅ ih z = 0 ∧ y ⋅ ih z = 0 → x ∈ ℋ ∧ y ∈ ℋ ∧ ∀ z ∈ A x + ℎ y ⋅ ih z = 0
26 hvaddcl ⊢ x ∈ ℋ ∧ y ∈ ℋ → x + ℎ y ∈ ℋ
27 26 anim1i ⊢ x ∈ ℋ ∧ y ∈ ℋ ∧ ∀ z ∈ A x + ℎ y ⋅ ih z = 0 → x + ℎ y ∈ ℋ ∧ ∀ z ∈ A x + ℎ y ⋅ ih z = 0
28 25 27 syl6 ⊢ A ⊆ ℋ → x ∈ ℋ ∧ y ∈ ℋ ∧ ∀ z ∈ A x ⋅ ih z = 0 ∧ y ⋅ ih z = 0 → x + ℎ y ∈ ℋ ∧ ∀ z ∈ A x + ℎ y ⋅ ih z = 0
29 ocel ⊢ A ⊆ ℋ → x ∈ ⊥ ⁡ A ↔ x ∈ ℋ ∧ ∀ z ∈ A x ⋅ ih z = 0
30 ocel ⊢ A ⊆ ℋ → y ∈ ⊥ ⁡ A ↔ y ∈ ℋ ∧ ∀ z ∈ A y ⋅ ih z = 0
31 29 30 anbi12d ⊢ A ⊆ ℋ → x ∈ ⊥ ⁡ A ∧ y ∈ ⊥ ⁡ A ↔ x ∈ ℋ ∧ ∀ z ∈ A x ⋅ ih z = 0 ∧ y ∈ ℋ ∧ ∀ z ∈ A y ⋅ ih z = 0
32 an4 ⊢ x ∈ ℋ ∧ ∀ z ∈ A x ⋅ ih z = 0 ∧ y ∈ ℋ ∧ ∀ z ∈ A y ⋅ ih z = 0 ↔ x ∈ ℋ ∧ y ∈ ℋ ∧ ∀ z ∈ A x ⋅ ih z = 0 ∧ ∀ z ∈ A y ⋅ ih z = 0
33 r19.26 ⊢ ∀ z ∈ A x ⋅ ih z = 0 ∧ y ⋅ ih z = 0 ↔ ∀ z ∈ A x ⋅ ih z = 0 ∧ ∀ z ∈ A y ⋅ ih z = 0
34 33 anbi2i ⊢ x ∈ ℋ ∧ y ∈ ℋ ∧ ∀ z ∈ A x ⋅ ih z = 0 ∧ y ⋅ ih z = 0 ↔ x ∈ ℋ ∧ y ∈ ℋ ∧ ∀ z ∈ A x ⋅ ih z = 0 ∧ ∀ z ∈ A y ⋅ ih z = 0
35 32 34 bitr4i ⊢ x ∈ ℋ ∧ ∀ z ∈ A x ⋅ ih z = 0 ∧ y ∈ ℋ ∧ ∀ z ∈ A y ⋅ ih z = 0 ↔ x ∈ ℋ ∧ y ∈ ℋ ∧ ∀ z ∈ A x ⋅ ih z = 0 ∧ y ⋅ ih z = 0
36 31 35 bitrdi ⊢ A ⊆ ℋ → x ∈ ⊥ ⁡ A ∧ y ∈ ⊥ ⁡ A ↔ x ∈ ℋ ∧ y ∈ ℋ ∧ ∀ z ∈ A x ⋅ ih z = 0 ∧ y ⋅ ih z = 0
37 ocel ⊢ A ⊆ ℋ → x + ℎ y ∈ ⊥ ⁡ A ↔ x + ℎ y ∈ ℋ ∧ ∀ z ∈ A x + ℎ y ⋅ ih z = 0
38 28 36 37 3imtr4d ⊢ A ⊆ ℋ → x ∈ ⊥ ⁡ A ∧ y ∈ ⊥ ⁡ A → x + ℎ y ∈ ⊥ ⁡ A
39 38 ralrimivv ⊢ A ⊆ ℋ → ∀ x ∈ ⊥ ⁡ A ∀ y ∈ ⊥ ⁡ A x + ℎ y ∈ ⊥ ⁡ A
40 mul01 ⊢ x ∈ ℂ → x ⋅ 0 = 0
41 oveq2 ⊢ y ⋅ ih z = 0 → x ⁢ y ⋅ ih z = x ⋅ 0
42 41 eqeq1d ⊢ y ⋅ ih z = 0 → x ⁢ y ⋅ ih z = 0 ↔ x ⋅ 0 = 0
43 40 42 syl5ibrcom ⊢ x ∈ ℂ → y ⋅ ih z = 0 → x ⁢ y ⋅ ih z = 0
44 43 ad2antrl ⊢ z ∈ ℋ ∧ x ∈ ℂ ∧ y ∈ ℋ → y ⋅ ih z = 0 → x ⁢ y ⋅ ih z = 0
45 ax-his3 ⊢ x ∈ ℂ ∧ y ∈ ℋ ∧ z ∈ ℋ → x ⋅ ℎ y ⋅ ih z = x ⁢ y ⋅ ih z
46 45 eqeq1d ⊢ x ∈ ℂ ∧ y ∈ ℋ ∧ z ∈ ℋ → x ⋅ ℎ y ⋅ ih z = 0 ↔ x ⁢ y ⋅ ih z = 0
47 46 3expa ⊢ x ∈ ℂ ∧ y ∈ ℋ ∧ z ∈ ℋ → x ⋅ ℎ y ⋅ ih z = 0 ↔ x ⁢ y ⋅ ih z = 0
48 47 ancoms ⊢ z ∈ ℋ ∧ x ∈ ℂ ∧ y ∈ ℋ → x ⋅ ℎ y ⋅ ih z = 0 ↔ x ⁢ y ⋅ ih z = 0
49 44 48 sylibrd ⊢ z ∈ ℋ ∧ x ∈ ℂ ∧ y ∈ ℋ → y ⋅ ih z = 0 → x ⋅ ℎ y ⋅ ih z = 0
50 13 49 sylan ⊢ A ⊆ ℋ ∧ z ∈ A ∧ x ∈ ℂ ∧ y ∈ ℋ → y ⋅ ih z = 0 → x ⋅ ℎ y ⋅ ih z = 0
51 50 an32s ⊢ A ⊆ ℋ ∧ x ∈ ℂ ∧ y ∈ ℋ ∧ z ∈ A → y ⋅ ih z = 0 → x ⋅ ℎ y ⋅ ih z = 0
52 51 ralimdva ⊢ A ⊆ ℋ ∧ x ∈ ℂ ∧ y ∈ ℋ → ∀ z ∈ A y ⋅ ih z = 0 → ∀ z ∈ A x ⋅ ℎ y ⋅ ih z = 0
53 52 imdistanda ⊢ A ⊆ ℋ → x ∈ ℂ ∧ y ∈ ℋ ∧ ∀ z ∈ A y ⋅ ih z = 0 → x ∈ ℂ ∧ y ∈ ℋ ∧ ∀ z ∈ A x ⋅ ℎ y ⋅ ih z = 0
54 hvmulcl ⊢ x ∈ ℂ ∧ y ∈ ℋ → x ⋅ ℎ y ∈ ℋ
55 54 anim1i ⊢ x ∈ ℂ ∧ y ∈ ℋ ∧ ∀ z ∈ A x ⋅ ℎ y ⋅ ih z = 0 → x ⋅ ℎ y ∈ ℋ ∧ ∀ z ∈ A x ⋅ ℎ y ⋅ ih z = 0
56 53 55 syl6 ⊢ A ⊆ ℋ → x ∈ ℂ ∧ y ∈ ℋ ∧ ∀ z ∈ A y ⋅ ih z = 0 → x ⋅ ℎ y ∈ ℋ ∧ ∀ z ∈ A x ⋅ ℎ y ⋅ ih z = 0
57 30 anbi2d ⊢ A ⊆ ℋ → x ∈ ℂ ∧ y ∈ ⊥ ⁡ A ↔ x ∈ ℂ ∧ y ∈ ℋ ∧ ∀ z ∈ A y ⋅ ih z = 0
58 anass ⊢ x ∈ ℂ ∧ y ∈ ℋ ∧ ∀ z ∈ A y ⋅ ih z = 0 ↔ x ∈ ℂ ∧ y ∈ ℋ ∧ ∀ z ∈ A y ⋅ ih z = 0
59 57 58 bitr4di ⊢ A ⊆ ℋ → x ∈ ℂ ∧ y ∈ ⊥ ⁡ A ↔ x ∈ ℂ ∧ y ∈ ℋ ∧ ∀ z ∈ A y ⋅ ih z = 0
60 ocel ⊢ A ⊆ ℋ → x ⋅ ℎ y ∈ ⊥ ⁡ A ↔ x ⋅ ℎ y ∈ ℋ ∧ ∀ z ∈ A x ⋅ ℎ y ⋅ ih z = 0
61 56 59 60 3imtr4d ⊢ A ⊆ ℋ → x ∈ ℂ ∧ y ∈ ⊥ ⁡ A → x ⋅ ℎ y ∈ ⊥ ⁡ A
62 61 ralrimivv ⊢ A ⊆ ℋ → ∀ x ∈ ℂ ∀ y ∈ ⊥ ⁡ A x ⋅ ℎ y ∈ ⊥ ⁡ A
63 39 62 jca ⊢ A ⊆ ℋ → ∀ x ∈ ⊥ ⁡ A ∀ y ∈ ⊥ ⁡ A x + ℎ y ∈ ⊥ ⁡ A ∧ ∀ x ∈ ℂ ∀ y ∈ ⊥ ⁡ A x ⋅ ℎ y ∈ ⊥ ⁡ A
64 issh2 ⊢ ⊥ ⁡ A ∈ S ℋ ↔ ⊥ ⁡ A ⊆ ℋ ∧ 0 ℎ ∈ ⊥ ⁡ A ∧ ∀ x ∈ ⊥ ⁡ A ∀ y ∈ ⊥ ⁡ A x + ℎ y ∈ ⊥ ⁡ A ∧ ∀ x ∈ ℂ ∀ y ∈ ⊥ ⁡ A x ⋅ ℎ y ∈ ⊥ ⁡ A
65 12 63 64 sylanbrc ⊢ A ⊆ ℋ → ⊥ ⁡ A ∈ S ℋ