lclkrlem2p - Mathbox for Norm Megill

	Mathbox for Norm Megill		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > lclkrlem2p		Structured version Visualization version GIF version

Theorem lclkrlem2p 42845

Description: Lemma for lclkr 42856. When 𝐵 is zero, 𝑋 and 𝑌 must colinear, so their orthocomplements must be comparable. (Contributed by NM, 17-Jan-2015.)

**Hypotheses**
Ref	Expression
lclkrlem2m.v	⊢ 𝑉 = (Base‘𝑈)
lclkrlem2m.t	⊢ · = ( ·_𝑠 ‘𝑈)
lclkrlem2m.s	⊢ 𝑆 = (Scalar‘𝑈)
lclkrlem2m.q	⊢ × = (._r‘𝑆)
lclkrlem2m.z	⊢ 0 = (0_g‘𝑆)
lclkrlem2m.i	⊢ 𝐼 = (inv_r‘𝑆)
lclkrlem2m.m	⊢ − = (-_g‘𝑈)
lclkrlem2m.f	⊢ 𝐹 = (LFnl‘𝑈)
lclkrlem2m.d	⊢ 𝐷 = (LDual‘𝑈)
lclkrlem2m.p	⊢ + = (+_g‘𝐷)
lclkrlem2m.x	⊢ (𝜑 → 𝑋 ∈ 𝑉)
lclkrlem2m.y	⊢ (𝜑 → 𝑌 ∈ 𝑉)
lclkrlem2m.e	⊢ (𝜑 → 𝐸 ∈ 𝐹)
lclkrlem2m.g	⊢ (𝜑 → 𝐺 ∈ 𝐹)
lclkrlem2n.n	⊢ 𝑁 = (LSpan‘𝑈)
lclkrlem2n.l	⊢ 𝐿 = (LKer‘𝑈)
lclkrlem2o.h	⊢ 𝐻 = (LHyp‘𝐾)
lclkrlem2o.o	⊢ ⊥ = ((ocH‘𝐾)‘𝑊)
lclkrlem2o.u	⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
lclkrlem2o.a	⊢ ⊕ = (LSSum‘𝑈)
lclkrlem2o.k	⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
lclkrlem2o.b	⊢ 𝐵 = (𝑋 − ((((𝐸 + 𝐺)‘𝑋) × (𝐼‘((𝐸 + 𝐺)‘𝑌))) · 𝑌))
lclkrlem2o.n	⊢ (𝜑 → ((𝐸 + 𝐺)‘𝑌) ≠ 0 )
lclkrlem2p.bn	⊢ (𝜑 → 𝐵 = (0_g‘𝑈))

**Assertion**
Ref	Expression
lclkrlem2p	⊢ (𝜑 → ( ⊥ ‘{𝑌}) ⊆ ( ⊥ ‘{𝑋}))

**Proof of Theorem lclkrlem2p**
Step	Hyp	Ref	Expression
1		lclkrlem2o.k	. . 3 ⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
2		lclkrlem2o.h	. . . . . 6 ⊢ 𝐻 = (LHyp‘𝐾)
3		lclkrlem2o.u	. . . . . 6 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
4	2, 3, 1	dvhlmod 42433	. . . . 5 ⊢ (𝜑 → 𝑈 ∈ LMod)
5		lclkrlem2m.y	. . . . 5 ⊢ (𝜑 → 𝑌 ∈ 𝑉)
6		lclkrlem2m.v	. . . . . 6 ⊢ 𝑉 = (Base‘𝑈)
7		eqid 2763	. . . . . 6 ⊢ (LSubSp‘𝑈) = (LSubSp‘𝑈)
8		lclkrlem2n.n	. . . . . 6 ⊢ 𝑁 = (LSpan‘𝑈)
9	6, 7, 8	lspsncl 21303	. . . . 5 ⊢ ((𝑈 ∈ LMod ∧ 𝑌 ∈ 𝑉) → (𝑁‘{𝑌}) ∈ (LSubSp‘𝑈))
10	4, 5, 9	syl2anc 596	. . . 4 ⊢ (𝜑 → (𝑁‘{𝑌}) ∈ (LSubSp‘𝑈))
11	6, 7	lssss 21262	. . . 4 ⊢ ((𝑁‘{𝑌}) ∈ (LSubSp‘𝑈) → (𝑁‘{𝑌}) ⊆ 𝑉)
12	10, 11	syl 18	. . 3 ⊢ (𝜑 → (𝑁‘{𝑌}) ⊆ 𝑉)
13		lclkrlem2o.b	. . . . . . . 8 ⊢ 𝐵 = (𝑋 − ((((𝐸 + 𝐺)‘𝑋) × (𝐼‘((𝐸 + 𝐺)‘𝑌))) · 𝑌))
14		lclkrlem2p.bn	. . . . . . . 8 ⊢ (𝜑 → 𝐵 = (0_g‘𝑈))
15	13, 14	eqtr3id 2812	. . . . . . 7 ⊢ (𝜑 → (𝑋 − ((((𝐸 + 𝐺)‘𝑋) × (𝐼‘((𝐸 + 𝐺)‘𝑌))) · 𝑌)) = (0_g‘𝑈))
16		lclkrlem2m.x	. . . . . . . 8 ⊢ (𝜑 → 𝑋 ∈ 𝑉)
17		lclkrlem2m.s	. . . . . . . . . . . 12 ⊢ 𝑆 = (Scalar‘𝑈)
18	17	lmodring 21194	. . . . . . . . . . 11 ⊢ (𝑈 ∈ LMod → 𝑆 ∈ Ring)
19	4, 18	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → 𝑆 ∈ Ring)
20		lclkrlem2m.f	. . . . . . . . . . . 12 ⊢ 𝐹 = (LFnl‘𝑈)
21		lclkrlem2m.d	. . . . . . . . . . . 12 ⊢ 𝐷 = (LDual‘𝑈)
22		lclkrlem2m.p	. . . . . . . . . . . 12 ⊢ + = (+_g‘𝐷)
23		lclkrlem2m.e	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐸 ∈ 𝐹)
24		lclkrlem2m.g	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐺 ∈ 𝐹)
25	20, 21, 22, 4, 23, 24	ldualvaddcl 40453	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐸 + 𝐺) ∈ 𝐹)
26		eqid 2763	. . . . . . . . . . . 12 ⊢ (Base‘𝑆) = (Base‘𝑆)
27	17, 26, 6, 20	lflcl 40387	. . . . . . . . . . 11 ⊢ ((𝑈 ∈ LMod ∧ (𝐸 + 𝐺) ∈ 𝐹 ∧ 𝑋 ∈ 𝑉) → ((𝐸 + 𝐺)‘𝑋) ∈ (Base‘𝑆))
28	4, 25, 16, 27	syl3anc 1399	. . . . . . . . . 10 ⊢ (𝜑 → ((𝐸 + 𝐺)‘𝑋) ∈ (Base‘𝑆))
29	2, 3, 1	dvhlvec 42432	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑈 ∈ LVec)
30	17	lvecdrng 21431	. . . . . . . . . . . 12 ⊢ (𝑈 ∈ LVec → 𝑆 ∈ DivRing)
31	29, 30	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑆 ∈ DivRing)
32	17, 26, 6, 20	lflcl 40387	. . . . . . . . . . . 12 ⊢ ((𝑈 ∈ LMod ∧ (𝐸 + 𝐺) ∈ 𝐹 ∧ 𝑌 ∈ 𝑉) → ((𝐸 + 𝐺)‘𝑌) ∈ (Base‘𝑆))
33	4, 25, 5, 32	syl3anc 1399	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐸 + 𝐺)‘𝑌) ∈ (Base‘𝑆))
34		lclkrlem2o.n	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝐸 + 𝐺)‘𝑌) ≠ 0 )
35		lclkrlem2m.z	. . . . . . . . . . . 12 ⊢ 0 = (0_g‘𝑆)
36		lclkrlem2m.i	. . . . . . . . . . . 12 ⊢ 𝐼 = (inv_r‘𝑆)
37	26, 35, 36	drnginvrcl 21062	. . . . . . . . . . 11 ⊢ ((𝑆 ∈ DivRing ∧ ((𝐸 + 𝐺)‘𝑌) ∈ (Base‘𝑆) ∧ ((𝐸 + 𝐺)‘𝑌) ≠ 0 ) → (𝐼‘((𝐸 + 𝐺)‘𝑌)) ∈ (Base‘𝑆))
38	31, 33, 34, 37	syl3anc 1399	. . . . . . . . . 10 ⊢ (𝜑 → (𝐼‘((𝐸 + 𝐺)‘𝑌)) ∈ (Base‘𝑆))
39		lclkrlem2m.q	. . . . . . . . . . 11 ⊢ × = (._r‘𝑆)
40	26, 39	ringcl 20528	. . . . . . . . . 10 ⊢ ((𝑆 ∈ Ring ∧ ((𝐸 + 𝐺)‘𝑋) ∈ (Base‘𝑆) ∧ (𝐼‘((𝐸 + 𝐺)‘𝑌)) ∈ (Base‘𝑆)) → (((𝐸 + 𝐺)‘𝑋) × (𝐼‘((𝐸 + 𝐺)‘𝑌))) ∈ (Base‘𝑆))
41	19, 28, 38, 40	syl3anc 1399	. . . . . . . . 9 ⊢ (𝜑 → (((𝐸 + 𝐺)‘𝑋) × (𝐼‘((𝐸 + 𝐺)‘𝑌))) ∈ (Base‘𝑆))
42		lclkrlem2m.t	. . . . . . . . . 10 ⊢ · = ( ·_𝑠 ‘𝑈)
43	6, 17, 42, 26	lmodvscl 21204	. . . . . . . . 9 ⊢ ((𝑈 ∈ LMod ∧ (((𝐸 + 𝐺)‘𝑋) × (𝐼‘((𝐸 + 𝐺)‘𝑌))) ∈ (Base‘𝑆) ∧ 𝑌 ∈ 𝑉) → ((((𝐸 + 𝐺)‘𝑋) × (𝐼‘((𝐸 + 𝐺)‘𝑌))) · 𝑌) ∈ 𝑉)
44	4, 41, 5, 43	syl3anc 1399	. . . . . . . 8 ⊢ (𝜑 → ((((𝐸 + 𝐺)‘𝑋) × (𝐼‘((𝐸 + 𝐺)‘𝑌))) · 𝑌) ∈ 𝑉)
45		eqid 2763	. . . . . . . . 9 ⊢ (0_g‘𝑈) = (0_g‘𝑈)
46		lclkrlem2m.m	. . . . . . . . 9 ⊢ − = (-_g‘𝑈)
47	6, 45, 46	lmodsubeq0 21247	. . . . . . . 8 ⊢ ((𝑈 ∈ LMod ∧ 𝑋 ∈ 𝑉 ∧ ((((𝐸 + 𝐺)‘𝑋) × (𝐼‘((𝐸 + 𝐺)‘𝑌))) · 𝑌) ∈ 𝑉) → ((𝑋 − ((((𝐸 + 𝐺)‘𝑋) × (𝐼‘((𝐸 + 𝐺)‘𝑌))) · 𝑌)) = (0_g‘𝑈) ↔ 𝑋 = ((((𝐸 + 𝐺)‘𝑋) × (𝐼‘((𝐸 + 𝐺)‘𝑌))) · 𝑌)))
48	4, 16, 44, 47	syl3anc 1399	. . . . . . 7 ⊢ (𝜑 → ((𝑋 − ((((𝐸 + 𝐺)‘𝑋) × (𝐼‘((𝐸 + 𝐺)‘𝑌))) · 𝑌)) = (0_g‘𝑈) ↔ 𝑋 = ((((𝐸 + 𝐺)‘𝑋) × (𝐼‘((𝐸 + 𝐺)‘𝑌))) · 𝑌)))
49	15, 48	mpbid 235	. . . . . 6 ⊢ (𝜑 → 𝑋 = ((((𝐸 + 𝐺)‘𝑋) × (𝐼‘((𝐸 + 𝐺)‘𝑌))) · 𝑌))
50	49	sneqd 4596	. . . . 5 ⊢ (𝜑 → {𝑋} = {((((𝐸 + 𝐺)‘𝑋) × (𝐼‘((𝐸 + 𝐺)‘𝑌))) · 𝑌)})
51	50	fveq2d 6920	. . . 4 ⊢ (𝜑 → (𝑁‘{𝑋}) = (𝑁‘{((((𝐸 + 𝐺)‘𝑋) × (𝐼‘((𝐸 + 𝐺)‘𝑌))) · 𝑌)}))
52	17, 26, 6, 42, 8	lspsnvsi 21330	. . . . 5 ⊢ ((𝑈 ∈ LMod ∧ (((𝐸 + 𝐺)‘𝑋) × (𝐼‘((𝐸 + 𝐺)‘𝑌))) ∈ (Base‘𝑆) ∧ 𝑌 ∈ 𝑉) → (𝑁‘{((((𝐸 + 𝐺)‘𝑋) × (𝐼‘((𝐸 + 𝐺)‘𝑌))) · 𝑌)}) ⊆ (𝑁‘{𝑌}))
53	4, 41, 5, 52	syl3anc 1399	. . . 4 ⊢ (𝜑 → (𝑁‘{((((𝐸 + 𝐺)‘𝑋) × (𝐼‘((𝐸 + 𝐺)‘𝑌))) · 𝑌)}) ⊆ (𝑁‘{𝑌}))
54	51, 53	eqsstrd 3947	. . 3 ⊢ (𝜑 → (𝑁‘{𝑋}) ⊆ (𝑁‘{𝑌}))
55		lclkrlem2o.o	. . . 4 ⊢ ⊥ = ((ocH‘𝐾)‘𝑊)
56	2, 3, 6, 55	dochss 42688	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑁‘{𝑌}) ⊆ 𝑉 ∧ (𝑁‘{𝑋}) ⊆ (𝑁‘{𝑌})) → ( ⊥ ‘(𝑁‘{𝑌})) ⊆ ( ⊥ ‘(𝑁‘{𝑋})))
57	1, 12, 54, 56	syl3anc 1399	. 2 ⊢ (𝜑 → ( ⊥ ‘(𝑁‘{𝑌})) ⊆ ( ⊥ ‘(𝑁‘{𝑋})))
58	5	snssd 4749	. . 3 ⊢ (𝜑 → {𝑌} ⊆ 𝑉)
59	2, 3, 55, 6, 8, 1, 58	dochocsp 42702	. 2 ⊢ (𝜑 → ( ⊥ ‘(𝑁‘{𝑌})) = ( ⊥ ‘{𝑌}))
60	16	snssd 4749	. . 3 ⊢ (𝜑 → {𝑋} ⊆ 𝑉)
61	2, 3, 55, 6, 8, 1, 60	dochocsp 42702	. 2 ⊢ (𝜑 → ( ⊥ ‘(𝑁‘{𝑋})) = ( ⊥ ‘{𝑋}))
62	57, 59, 61	3sstr3d 3967	1 ⊢ (𝜑 → ( ⊥ ‘{𝑌}) ⊆ ( ⊥ ‘{𝑋}))

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ↔ wb 209 ∧ wa 401 = wceq 1570 ∈ wcel 2147 ≠ wne 2959 ⊆ wss 3900 {csn 4588 ‘cfv 6566 (class class class)co 7451 Basecbs 17431 +_gcplusg 17472 ._rcmulr 17473 Scalarcsca 17475 ·_𝑠 cvsca 17476 0_gc0g 17660 -_gcsg 19196 LSSumclsm 19899 Ringcrg 20510 inv_rcinvr 20668 DivRingcdr 21031 LModclmod 21186 LSubSpclss 21257 LSpanclspn 21297 LVecclvec 21428 LFnlclfn 40380 LKerclk 40408 LDualcld 40446 HLchlt 40673 LHypclh 41307 DVecHcdvh 42401 ocHcoch 42670

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1945 ax-6 2002 ax-7 2043 ax-8 2149 ax-9 2157 ax-10 2180 ax-11 2197 ax-12 2216 ax-ext 2735 ax-rep 5238 ax-sep 5255 ax-nul 5266 ax-pow 5334 ax-pr 5398 ax-un 7783 ax-cnex 11295 ax-resscn 11296 ax-1cn 11297 ax-icn 11298 ax-addcl 11299 ax-addrcl 11300 ax-mulcl 11301 ax-mulrcl 11302 ax-mulcom 11303 ax-addass 11304 ax-mulass 11305 ax-distr 11306 ax-i2m1 11307 ax-1ne0 11308 ax-1rid 11309 ax-rnegex 11310 ax-rrecex 11311 ax-cnre 11312 ax-pre-lttri 11313 ax-pre-lttrn 11314 ax-pre-ltadd 11315 ax-pre-mulgt0 11316 ax-riotaBAD 40276

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2102 df-mo 2567 df-eu 2597 df-clab 2742 df-cleq 2755 df-clel 2839 df-nfc 2913 df-ne 2960 df-nel 3066 df-ral 3081 df-rex 3091 df-rmo 3369 df-reu 3370 df-rab 3417 df-v 3456 df-sbc 3743 df-csb 3852 df-ss 3901 df-pss 4017 df-dif 4050 df-in 4094 df-un 4154 df-nul 4282 df-if 4486 df-pw 4562 df-sn 4589 df-pr 4591 df-tp 4593 df-op 4841 df-uni 4873 df-int 4913 df-iun 4958 df-iin 4959 df-br 5109 df-opab 5174 df-mpt 5193 df-tr 5219 df-id 5553 df-eprel 5558 df-po 5566 df-so 5567 df-fr 5611 df-we 5613 df-xp 5664 df-rel 5665 df-cnv 5666 df-co 5667 df-dm 5668 df-rn 5669 df-res 5670 df-ima 5671 df-pred 6330 df-ord 6391 df-on 6392 df-lim 6393 df-suc 6394 df-iota 6520 df-fun 6568 df-fn 6569 df-f 6570 df-f1 6571 df-fo 6572 df-f1o 6573 df-fv 6574 df-riota 7408 df-ov 7454 df-oprab 7455 df-mpo 7456 df-of 7725 df-om 7912 df-1st 8035 df-2nd 8036 df-tpos 8281 df-undef 8328 df-frecs 8337 df-wrecs 8368 df-recs 8417 df-rdg 8456 df-1o 8514 df-er 8755 df-map 8887 df-en 9012 df-dom 9013 df-sdom 9014 df-fin 9015 df-pnf 11384 df-mnf 11385 df-xr 11386 df-ltxr 11387 df-le 11388 df-sub 11582 df-neg 11583 df-nn 12376 df-2 12445 df-3 12446 df-4 12447 df-5 12448 df-6 12449 df-n0 12647 df-z 12734 df-uz 13006 df-fz 13680 df-struct 17369 df-sets 17386 df-slot 17404 df-ndx 17416 df-base 17432 df-ress 17453 df-plusg 17486 df-mulr 17487 df-sca 17489 df-vsca 17490 df-0g 17662 df-proset 18518 df-poset 18537 df-plt 18552 df-lub 18568 df-glb 18569 df-join 18570 df-meet 18571 df-p0 18647 df-p1 18648 df-lat 18656 df-clat 18723 df-mgm 18866 df-sgrp 18958 df-mnd 18974 df-submnd 19029 df-grp 19197 df-minusg 19198 df-sbg 19199 df-subg 19383 df-cntz 19582 df-lsm 19901 df-cmn 20047 df-abl 20048 df-mgp 20412 df-rng 20426 df-ur 20459 df-ring 20512 df-oppr 20618 df-dvdsr 20638 df-unit 20639 df-invr 20669 df-dvr 20682 df-drng 21033 df-lmod 21188 df-lss 21258 df-lsp 21298 df-lvec 21429 df-lsatoms 40299 df-lfl 40381 df-ldual 40447 df-oposet 40499 df-ol 40501 df-oml 40502 df-covers 40589 df-ats 40590 df-atl 40621 df-cvlat 40645 df-hlat 40674 df-llines 40821 df-lplanes 40822 df-lvols 40823 df-lines 40824 df-psubsp 40826 df-pmap 40827 df-padd 41119 df-lhyp 41311 df-laut 41312 df-ldil 41427 df-ltrn 41428 df-trl 41482 df-tendo 42078 df-edring 42080 df-disoa 42352 df-dvech 42402 df-dib 42462 df-dic 42496 df-dih 42552 df-doch 42671

This theorem is used by: lclkrlem2r 42847

W3C validator