hdmaprnlem7N - Mathbox for Norm Megill

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

Theorem hdmaprnlem7N 41812

Description: Part of proof of part 12 in [Baer] p. 49 line 19, s-St ∈ G(u'+s) = P*. (Contributed by NM, 27-May-2015.) (New usage is discouraged.)

**Hypotheses**
Ref	Expression
hdmaprnlem1.h	⊢ 𝐻 = (LHyp‘𝐾)
hdmaprnlem1.u	⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
hdmaprnlem1.v	⊢ 𝑉 = (Base‘𝑈)
hdmaprnlem1.n	⊢ 𝑁 = (LSpan‘𝑈)
hdmaprnlem1.c	⊢ 𝐶 = ((LCDual‘𝐾)‘𝑊)
hdmaprnlem1.l	⊢ 𝐿 = (LSpan‘𝐶)
hdmaprnlem1.m	⊢ 𝑀 = ((mapd‘𝐾)‘𝑊)
hdmaprnlem1.s	⊢ 𝑆 = ((HDMap‘𝐾)‘𝑊)
hdmaprnlem1.k	⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
hdmaprnlem1.se	⊢ (𝜑 → 𝑠 ∈ (𝐷 ∖ {𝑄}))
hdmaprnlem1.ve	⊢ (𝜑 → 𝑣 ∈ 𝑉)
hdmaprnlem1.e	⊢ (𝜑 → (𝑀‘(𝑁‘{𝑣})) = (𝐿‘{𝑠}))
hdmaprnlem1.ue	⊢ (𝜑 → 𝑢 ∈ 𝑉)
hdmaprnlem1.un	⊢ (𝜑 → ¬ 𝑢 ∈ (𝑁‘{𝑣}))
hdmaprnlem1.d	⊢ 𝐷 = (Base‘𝐶)
hdmaprnlem1.q	⊢ 𝑄 = (0_g‘𝐶)
hdmaprnlem1.o	⊢ 0 = (0_g‘𝑈)
hdmaprnlem1.a	⊢ ✚ = (+_g‘𝐶)
hdmaprnlem1.t2	⊢ (𝜑 → 𝑡 ∈ ((𝑁‘{𝑣}) ∖ { 0 }))
hdmaprnlem1.p	⊢ + = (+_g‘𝑈)
hdmaprnlem1.pt	⊢ (𝜑 → (𝐿‘{((𝑆‘𝑢) ✚ 𝑠)}) = (𝑀‘(𝑁‘{(𝑢 + 𝑡)})))

**Assertion**
Ref	Expression
hdmaprnlem7N	⊢ (𝜑 → (𝑠(-_g‘𝐶)(𝑆‘𝑡)) ∈ (𝐿‘{((𝑆‘𝑢) ✚ 𝑠)}))

**Proof of Theorem hdmaprnlem7N**
Step	Hyp	Ref	Expression
1		hdmaprnlem1.d	. . 3 ⊢ 𝐷 = (Base‘𝐶)
2		hdmaprnlem1.a	. . 3 ⊢ ✚ = (+_g‘𝐶)
3		eqid 2740	. . 3 ⊢ (-_g‘𝐶) = (-_g‘𝐶)
4		hdmaprnlem1.h	. . . . 5 ⊢ 𝐻 = (LHyp‘𝐾)
5		hdmaprnlem1.c	. . . . 5 ⊢ 𝐶 = ((LCDual‘𝐾)‘𝑊)
6		hdmaprnlem1.k	. . . . 5 ⊢ (𝜑 → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
7	4, 5, 6	lcdlmod 41549	. . . 4 ⊢ (𝜑 → 𝐶 ∈ LMod)
8		lmodabl 20929	. . . 4 ⊢ (𝐶 ∈ LMod → 𝐶 ∈ Abel)
9	7, 8	syl 17	. . 3 ⊢ (𝜑 → 𝐶 ∈ Abel)
10		hdmaprnlem1.u	. . . 4 ⊢ 𝑈 = ((DVecH‘𝐾)‘𝑊)
11		hdmaprnlem1.v	. . . 4 ⊢ 𝑉 = (Base‘𝑈)
12		hdmaprnlem1.s	. . . 4 ⊢ 𝑆 = ((HDMap‘𝐾)‘𝑊)
13		hdmaprnlem1.ue	. . . 4 ⊢ (𝜑 → 𝑢 ∈ 𝑉)
14	4, 10, 11, 5, 1, 12, 6, 13	hdmapcl 41787	. . 3 ⊢ (𝜑 → (𝑆‘𝑢) ∈ 𝐷)
15		hdmaprnlem1.se	. . . 4 ⊢ (𝜑 → 𝑠 ∈ (𝐷 ∖ {𝑄}))
16	15	eldifad 3988	. . 3 ⊢ (𝜑 → 𝑠 ∈ 𝐷)
17		hdmaprnlem1.n	. . . . 5 ⊢ 𝑁 = (LSpan‘𝑈)
18		hdmaprnlem1.l	. . . . 5 ⊢ 𝐿 = (LSpan‘𝐶)
19		hdmaprnlem1.m	. . . . 5 ⊢ 𝑀 = ((mapd‘𝐾)‘𝑊)
20		hdmaprnlem1.ve	. . . . 5 ⊢ (𝜑 → 𝑣 ∈ 𝑉)
21		hdmaprnlem1.e	. . . . 5 ⊢ (𝜑 → (𝑀‘(𝑁‘{𝑣})) = (𝐿‘{𝑠}))
22		hdmaprnlem1.un	. . . . 5 ⊢ (𝜑 → ¬ 𝑢 ∈ (𝑁‘{𝑣}))
23		hdmaprnlem1.q	. . . . 5 ⊢ 𝑄 = (0_g‘𝐶)
24		hdmaprnlem1.o	. . . . 5 ⊢ 0 = (0_g‘𝑈)
25		hdmaprnlem1.t2	. . . . 5 ⊢ (𝜑 → 𝑡 ∈ ((𝑁‘{𝑣}) ∖ { 0 }))
26	4, 10, 11, 17, 5, 18, 19, 12, 6, 15, 20, 21, 13, 22, 1, 23, 24, 2, 25	hdmaprnlem4tN 41809	. . . 4 ⊢ (𝜑 → 𝑡 ∈ 𝑉)
27	4, 10, 11, 5, 1, 12, 6, 26	hdmapcl 41787	. . 3 ⊢ (𝜑 → (𝑆‘𝑡) ∈ 𝐷)
28	1, 2, 3, 9, 14, 16, 27, 9, 14, 16, 27	ablpnpcan 19861	. 2 ⊢ (𝜑 → (((𝑆‘𝑢) ✚ 𝑠)(-_g‘𝐶)((𝑆‘𝑢) ✚ (𝑆‘𝑡))) = (𝑠(-_g‘𝐶)(𝑆‘𝑡)))
29	1, 2	lmodvacl 20895	. . . . 5 ⊢ ((𝐶 ∈ LMod ∧ (𝑆‘𝑢) ∈ 𝐷 ∧ 𝑠 ∈ 𝐷) → ((𝑆‘𝑢) ✚ 𝑠) ∈ 𝐷)
30	7, 14, 16, 29	syl3anc 1371	. . . 4 ⊢ (𝜑 → ((𝑆‘𝑢) ✚ 𝑠) ∈ 𝐷)
31		eqid 2740	. . . . 5 ⊢ (LSubSp‘𝐶) = (LSubSp‘𝐶)
32	1, 31, 18	lspsncl 20998	. . . 4 ⊢ ((𝐶 ∈ LMod ∧ ((𝑆‘𝑢) ✚ 𝑠) ∈ 𝐷) → (𝐿‘{((𝑆‘𝑢) ✚ 𝑠)}) ∈ (LSubSp‘𝐶))
33	7, 30, 32	syl2anc 583	. . 3 ⊢ (𝜑 → (𝐿‘{((𝑆‘𝑢) ✚ 𝑠)}) ∈ (LSubSp‘𝐶))
34	1, 18	lspsnid 21014	. . . 4 ⊢ ((𝐶 ∈ LMod ∧ ((𝑆‘𝑢) ✚ 𝑠) ∈ 𝐷) → ((𝑆‘𝑢) ✚ 𝑠) ∈ (𝐿‘{((𝑆‘𝑢) ✚ 𝑠)}))
35	7, 30, 34	syl2anc 583	. . 3 ⊢ (𝜑 → ((𝑆‘𝑢) ✚ 𝑠) ∈ (𝐿‘{((𝑆‘𝑢) ✚ 𝑠)}))
36	1, 2	lmodvacl 20895	. . . . . 6 ⊢ ((𝐶 ∈ LMod ∧ (𝑆‘𝑢) ∈ 𝐷 ∧ (𝑆‘𝑡) ∈ 𝐷) → ((𝑆‘𝑢) ✚ (𝑆‘𝑡)) ∈ 𝐷)
37	7, 14, 27, 36	syl3anc 1371	. . . . 5 ⊢ (𝜑 → ((𝑆‘𝑢) ✚ (𝑆‘𝑡)) ∈ 𝐷)
38	1, 18	lspsnid 21014	. . . . 5 ⊢ ((𝐶 ∈ LMod ∧ ((𝑆‘𝑢) ✚ (𝑆‘𝑡)) ∈ 𝐷) → ((𝑆‘𝑢) ✚ (𝑆‘𝑡)) ∈ (𝐿‘{((𝑆‘𝑢) ✚ (𝑆‘𝑡))}))
39	7, 37, 38	syl2anc 583	. . . 4 ⊢ (𝜑 → ((𝑆‘𝑢) ✚ (𝑆‘𝑡)) ∈ (𝐿‘{((𝑆‘𝑢) ✚ (𝑆‘𝑡))}))
40		hdmaprnlem1.p	. . . . 5 ⊢ + = (+_g‘𝑈)
41		hdmaprnlem1.pt	. . . . 5 ⊢ (𝜑 → (𝐿‘{((𝑆‘𝑢) ✚ 𝑠)}) = (𝑀‘(𝑁‘{(𝑢 + 𝑡)})))
42	4, 10, 11, 17, 5, 18, 19, 12, 6, 15, 20, 21, 13, 22, 1, 23, 24, 2, 25, 40, 41	hdmaprnlem6N 41811	. . . 4 ⊢ (𝜑 → (𝐿‘{((𝑆‘𝑢) ✚ 𝑠)}) = (𝐿‘{((𝑆‘𝑢) ✚ (𝑆‘𝑡))}))
43	39, 42	eleqtrrd 2847	. . 3 ⊢ (𝜑 → ((𝑆‘𝑢) ✚ (𝑆‘𝑡)) ∈ (𝐿‘{((𝑆‘𝑢) ✚ 𝑠)}))
44	3, 31	lssvsubcl 20965	. . 3 ⊢ (((𝐶 ∈ LMod ∧ (𝐿‘{((𝑆‘𝑢) ✚ 𝑠)}) ∈ (LSubSp‘𝐶)) ∧ (((𝑆‘𝑢) ✚ 𝑠) ∈ (𝐿‘{((𝑆‘𝑢) ✚ 𝑠)}) ∧ ((𝑆‘𝑢) ✚ (𝑆‘𝑡)) ∈ (𝐿‘{((𝑆‘𝑢) ✚ 𝑠)}))) → (((𝑆‘𝑢) ✚ 𝑠)(-_g‘𝐶)((𝑆‘𝑢) ✚ (𝑆‘𝑡))) ∈ (𝐿‘{((𝑆‘𝑢) ✚ 𝑠)}))
45	7, 33, 35, 43, 44	syl22anc 838	. 2 ⊢ (𝜑 → (((𝑆‘𝑢) ✚ 𝑠)(-_g‘𝐶)((𝑆‘𝑢) ✚ (𝑆‘𝑡))) ∈ (𝐿‘{((𝑆‘𝑢) ✚ 𝑠)}))
46	28, 45	eqeltrrd 2845	1 ⊢ (𝜑 → (𝑠(-_g‘𝐶)(𝑆‘𝑡)) ∈ (𝐿‘{((𝑆‘𝑢) ✚ 𝑠)}))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 395 = wceq 1537 ∈ wcel 2108 ∖ cdif 3973 {csn 4648 ‘cfv 6573 (class class class)co 7448 Basecbs 17258 +_gcplusg 17311 0_gc0g 17499 -_gcsg 18975 Abelcabl 19823 LModclmod 20880 LSubSpclss 20952 LSpanclspn 20992 HLchlt 39306 LHypclh 39941 DVecHcdvh 41035 LCDualclcd 41543 mapdcmpd 41581 HDMapchdma 41749

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1793 ax-4 1807 ax-5 1909 ax-6 1967 ax-7 2007 ax-8 2110 ax-9 2118 ax-10 2141 ax-11 2158 ax-12 2178 ax-ext 2711 ax-rep 5303 ax-sep 5317 ax-nul 5324 ax-pow 5383 ax-pr 5447 ax-un 7770 ax-cnex 11240 ax-resscn 11241 ax-1cn 11242 ax-icn 11243 ax-addcl 11244 ax-addrcl 11245 ax-mulcl 11246 ax-mulrcl 11247 ax-mulcom 11248 ax-addass 11249 ax-mulass 11250 ax-distr 11251 ax-i2m1 11252 ax-1ne0 11253 ax-1rid 11254 ax-rnegex 11255 ax-rrecex 11256 ax-cnre 11257 ax-pre-lttri 11258 ax-pre-lttrn 11259 ax-pre-ltadd 11260 ax-pre-mulgt0 11261 ax-riotaBAD 38909

This theorem depends on definitions: df-bi 207 df-an 396 df-or 847 df-3or 1088 df-3an 1089 df-tru 1540 df-fal 1550 df-ex 1778 df-nf 1782 df-sb 2065 df-mo 2543 df-eu 2572 df-clab 2718 df-cleq 2732 df-clel 2819 df-nfc 2895 df-ne 2947 df-nel 3053 df-ral 3068 df-rex 3077 df-rmo 3388 df-reu 3389 df-rab 3444 df-v 3490 df-sbc 3805 df-csb 3922 df-dif 3979 df-un 3981 df-in 3983 df-ss 3993 df-pss 3996 df-nul 4353 df-if 4549 df-pw 4624 df-sn 4649 df-pr 4651 df-tp 4653 df-op 4655 df-ot 4657 df-uni 4932 df-int 4971 df-iun 5017 df-iin 5018 df-br 5167 df-opab 5229 df-mpt 5250 df-tr 5284 df-id 5593 df-eprel 5599 df-po 5607 df-so 5608 df-fr 5652 df-we 5654 df-xp 5706 df-rel 5707 df-cnv 5708 df-co 5709 df-dm 5710 df-rn 5711 df-res 5712 df-ima 5713 df-pred 6332 df-ord 6398 df-on 6399 df-lim 6400 df-suc 6401 df-iota 6525 df-fun 6575 df-fn 6576 df-f 6577 df-f1 6578 df-fo 6579 df-f1o 6580 df-fv 6581 df-riota 7404 df-ov 7451 df-oprab 7452 df-mpo 7453 df-of 7714 df-om 7904 df-1st 8030 df-2nd 8031 df-tpos 8267 df-undef 8314 df-frecs 8322 df-wrecs 8353 df-recs 8427 df-rdg 8466 df-1o 8522 df-2o 8523 df-er 8763 df-map 8886 df-en 9004 df-dom 9005 df-sdom 9006 df-fin 9007 df-pnf 11326 df-mnf 11327 df-xr 11328 df-ltxr 11329 df-le 11330 df-sub 11522 df-neg 11523 df-nn 12294 df-2 12356 df-3 12357 df-4 12358 df-5 12359 df-6 12360 df-n0 12554 df-z 12640 df-uz 12904 df-fz 13568 df-struct 17194 df-sets 17211 df-slot 17229 df-ndx 17241 df-base 17259 df-ress 17288 df-plusg 17324 df-mulr 17325 df-sca 17327 df-vsca 17328 df-0g 17501 df-mre 17644 df-mrc 17645 df-acs 17647 df-proset 18365 df-poset 18383 df-plt 18400 df-lub 18416 df-glb 18417 df-join 18418 df-meet 18419 df-p0 18495 df-p1 18496 df-lat 18502 df-clat 18569 df-mgm 18678 df-sgrp 18757 df-mnd 18773 df-submnd 18819 df-grp 18976 df-minusg 18977 df-sbg 18978 df-subg 19163 df-cntz 19357 df-oppg 19386 df-lsm 19678 df-cmn 19824 df-abl 19825 df-mgp 20162 df-rng 20180 df-ur 20209 df-ring 20262 df-oppr 20360 df-dvdsr 20383 df-unit 20384 df-invr 20414 df-dvr 20427 df-nzr 20539 df-rlreg 20716 df-domn 20717 df-drng 20753 df-lmod 20882 df-lss 20953 df-lsp 20993 df-lvec 21125 df-lsatoms 38932 df-lshyp 38933 df-lcv 38975 df-lfl 39014 df-lkr 39042 df-ldual 39080 df-oposet 39132 df-ol 39134 df-oml 39135 df-covers 39222 df-ats 39223 df-atl 39254 df-cvlat 39278 df-hlat 39307 df-llines 39455 df-lplanes 39456 df-lvols 39457 df-lines 39458 df-psubsp 39460 df-pmap 39461 df-padd 39753 df-lhyp 39945 df-laut 39946 df-ldil 40061 df-ltrn 40062 df-trl 40116 df-tgrp 40700 df-tendo 40712 df-edring 40714 df-dveca 40960 df-disoa 40986 df-dvech 41036 df-dib 41096 df-dic 41130 df-dih 41186 df-doch 41305 df-djh 41352 df-lcdual 41544 df-mapd 41582 df-hvmap 41714 df-hdmap1 41750 df-hdmap 41751

This theorem is referenced by: hdmaprnlem9N 41814

W3C validator