Metamath Proof Explorer


Theorem ocvlss

Description: The orthocomplement of a subset is a linear subspace of the pre-Hilbert space. (Contributed by Mario Carneiro, 13-Oct-2015)

Ref Expression
Hypotheses ocvss.v V = Base W
ocvss.o ˙ = ocv W
ocvlss.l L = LSubSp W
Assertion ocvlss W PreHil S V ˙ S L

Proof

Step Hyp Ref Expression
1 ocvss.v V = Base W
2 ocvss.o ˙ = ocv W
3 ocvlss.l L = LSubSp W
4 1 2 ocvss ˙ S V
5 4 a1i W PreHil S V ˙ S V
6 simpr W PreHil S V S V
7 phllmod W PreHil W LMod
8 7 adantr W PreHil S V W LMod
9 eqid 0 W = 0 W
10 1 9 lmod0vcl W LMod 0 W V
11 8 10 syl W PreHil S V 0 W V
12 simpll W PreHil S V x S W PreHil
13 6 sselda W PreHil S V x S x V
14 eqid Scalar W = Scalar W
15 eqid 𝑖 W = 𝑖 W
16 eqid 0 Scalar W = 0 Scalar W
17 14 15 1 16 9 ip0l W PreHil x V 0 W 𝑖 W x = 0 Scalar W
18 12 13 17 syl2anc W PreHil S V x S 0 W 𝑖 W x = 0 Scalar W
19 18 ralrimiva W PreHil S V x S 0 W 𝑖 W x = 0 Scalar W
20 1 15 14 16 2 elocv 0 W ˙ S S V 0 W V x S 0 W 𝑖 W x = 0 Scalar W
21 6 11 19 20 syl3anbrc W PreHil S V 0 W ˙ S
22 21 ne0d W PreHil S V ˙ S
23 6 adantr W PreHil S V r Base Scalar W y ˙ S z ˙ S S V
24 8 adantr W PreHil S V r Base Scalar W y ˙ S z ˙ S W LMod
25 simpr1 W PreHil S V r Base Scalar W y ˙ S z ˙ S r Base Scalar W
26 simpr2 W PreHil S V r Base Scalar W y ˙ S z ˙ S y ˙ S
27 4 26 sselid W PreHil S V r Base Scalar W y ˙ S z ˙ S y V
28 eqid W = W
29 eqid Base Scalar W = Base Scalar W
30 1 14 28 29 lmodvscl W LMod r Base Scalar W y V r W y V
31 24 25 27 30 syl3anc W PreHil S V r Base Scalar W y ˙ S z ˙ S r W y V
32 simpr3 W PreHil S V r Base Scalar W y ˙ S z ˙ S z ˙ S
33 4 32 sselid W PreHil S V r Base Scalar W y ˙ S z ˙ S z V
34 eqid + W = + W
35 1 34 lmodvacl W LMod r W y V z V r W y + W z V
36 24 31 33 35 syl3anc W PreHil S V r Base Scalar W y ˙ S z ˙ S r W y + W z V
37 12 adantlr W PreHil S V r Base Scalar W y ˙ S z ˙ S x S W PreHil
38 31 adantr W PreHil S V r Base Scalar W y ˙ S z ˙ S x S r W y V
39 33 adantr W PreHil S V r Base Scalar W y ˙ S z ˙ S x S z V
40 13 adantlr W PreHil S V r Base Scalar W y ˙ S z ˙ S x S x V
41 eqid + Scalar W = + Scalar W
42 14 15 1 34 41 ipdir W PreHil r W y V z V x V r W y + W z 𝑖 W x = r W y 𝑖 W x + Scalar W z 𝑖 W x
43 37 38 39 40 42 syl13anc W PreHil S V r Base Scalar W y ˙ S z ˙ S x S r W y + W z 𝑖 W x = r W y 𝑖 W x + Scalar W z 𝑖 W x
44 25 adantr W PreHil S V r Base Scalar W y ˙ S z ˙ S x S r Base Scalar W
45 27 adantr W PreHil S V r Base Scalar W y ˙ S z ˙ S x S y V
46 eqid Scalar W = Scalar W
47 14 15 1 29 28 46 ipass W PreHil r Base Scalar W y V x V r W y 𝑖 W x = r Scalar W y 𝑖 W x
48 37 44 45 40 47 syl13anc W PreHil S V r Base Scalar W y ˙ S z ˙ S x S r W y 𝑖 W x = r Scalar W y 𝑖 W x
49 1 15 14 16 2 ocvi y ˙ S x S y 𝑖 W x = 0 Scalar W
50 26 49 sylan W PreHil S V r Base Scalar W y ˙ S z ˙ S x S y 𝑖 W x = 0 Scalar W
51 50 oveq2d W PreHil S V r Base Scalar W y ˙ S z ˙ S x S r Scalar W y 𝑖 W x = r Scalar W 0 Scalar W
52 24 adantr W PreHil S V r Base Scalar W y ˙ S z ˙ S x S W LMod
53 14 lmodring W LMod Scalar W Ring
54 52 53 syl W PreHil S V r Base Scalar W y ˙ S z ˙ S x S Scalar W Ring
55 29 46 16 ringrz Scalar W Ring r Base Scalar W r Scalar W 0 Scalar W = 0 Scalar W
56 54 44 55 syl2anc W PreHil S V r Base Scalar W y ˙ S z ˙ S x S r Scalar W 0 Scalar W = 0 Scalar W
57 48 51 56 3eqtrd W PreHil S V r Base Scalar W y ˙ S z ˙ S x S r W y 𝑖 W x = 0 Scalar W
58 1 15 14 16 2 ocvi z ˙ S x S z 𝑖 W x = 0 Scalar W
59 32 58 sylan W PreHil S V r Base Scalar W y ˙ S z ˙ S x S z 𝑖 W x = 0 Scalar W
60 57 59 oveq12d W PreHil S V r Base Scalar W y ˙ S z ˙ S x S r W y 𝑖 W x + Scalar W z 𝑖 W x = 0 Scalar W + Scalar W 0 Scalar W
61 14 lmodfgrp W LMod Scalar W Grp
62 29 16 grpidcl Scalar W Grp 0 Scalar W Base Scalar W
63 29 41 16 grplid Scalar W Grp 0 Scalar W Base Scalar W 0 Scalar W + Scalar W 0 Scalar W = 0 Scalar W
64 62 63 mpdan Scalar W Grp 0 Scalar W + Scalar W 0 Scalar W = 0 Scalar W
65 52 61 64 3syl W PreHil S V r Base Scalar W y ˙ S z ˙ S x S 0 Scalar W + Scalar W 0 Scalar W = 0 Scalar W
66 43 60 65 3eqtrd W PreHil S V r Base Scalar W y ˙ S z ˙ S x S r W y + W z 𝑖 W x = 0 Scalar W
67 66 ralrimiva W PreHil S V r Base Scalar W y ˙ S z ˙ S x S r W y + W z 𝑖 W x = 0 Scalar W
68 1 15 14 16 2 elocv r W y + W z ˙ S S V r W y + W z V x S r W y + W z 𝑖 W x = 0 Scalar W
69 23 36 67 68 syl3anbrc W PreHil S V r Base Scalar W y ˙ S z ˙ S r W y + W z ˙ S
70 69 ralrimivvva W PreHil S V r Base Scalar W y ˙ S z ˙ S r W y + W z ˙ S
71 14 29 1 34 28 3 islss ˙ S L ˙ S V ˙ S r Base Scalar W y ˙ S z ˙ S r W y + W z ˙ S
72 5 22 70 71 syl3anbrc W PreHil S V ˙ S L