dihvalcqat - Mathbox for Norm Megill

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

Theorem dihvalcqat 41238

Description: Value of isomorphism H for a lattice 𝐾 at an atom not under 𝑊. (Contributed by NM, 27-Mar-2014.)

**Hypotheses**
Ref	Expression
dihvalcqat.l	⊢ ≤ = (le‘𝐾)
dihvalcqat.a	⊢ 𝐴 = (Atoms‘𝐾)
dihvalcqat.h	⊢ 𝐻 = (LHyp‘𝐾)
dihvalcqat.j	⊢ 𝐽 = ((DIsoC‘𝐾)‘𝑊)
dihvalcqat.i	⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)

**Assertion**
Ref	Expression
dihvalcqat	⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝐼‘𝑄) = (𝐽‘𝑄))

**Proof of Theorem dihvalcqat**
Step	Hyp	Ref	Expression
1		simpl 482	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
2		eqid 2729	. . . . 5 ⊢ (Base‘𝐾) = (Base‘𝐾)
3		dihvalcqat.a	. . . . 5 ⊢ 𝐴 = (Atoms‘𝐾)
4	2, 3	atbase 39288	. . . 4 ⊢ (𝑄 ∈ 𝐴 → 𝑄 ∈ (Base‘𝐾))
5	4	ad2antrl 728	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → 𝑄 ∈ (Base‘𝐾))
6		simprr 772	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → ¬ 𝑄 ≤ 𝑊)
7		simpr 484	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))
8		dihvalcqat.l	. . . . . 6 ⊢ ≤ = (le‘𝐾)
9		eqid 2729	. . . . . 6 ⊢ (meet‘𝐾) = (meet‘𝐾)
10		eqid 2729	. . . . . 6 ⊢ (0.‘𝐾) = (0.‘𝐾)
11		dihvalcqat.h	. . . . . 6 ⊢ 𝐻 = (LHyp‘𝐾)
12	8, 9, 10, 3, 11	lhpmat 40029	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝑄(meet‘𝐾)𝑊) = (0.‘𝐾))
13	12	oveq2d 7365	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝑄(join‘𝐾)(𝑄(meet‘𝐾)𝑊)) = (𝑄(join‘𝐾)(0.‘𝐾)))
14		hlol 39360	. . . . . 6 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OL)
15	14	ad2antrr 726	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → 𝐾 ∈ OL)
16		eqid 2729	. . . . . 6 ⊢ (join‘𝐾) = (join‘𝐾)
17	2, 16, 10	olj01 39224	. . . . 5 ⊢ ((𝐾 ∈ OL ∧ 𝑄 ∈ (Base‘𝐾)) → (𝑄(join‘𝐾)(0.‘𝐾)) = 𝑄)
18	15, 5, 17	syl2anc 584	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝑄(join‘𝐾)(0.‘𝐾)) = 𝑄)
19	13, 18	eqtrd 2764	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝑄(join‘𝐾)(𝑄(meet‘𝐾)𝑊)) = 𝑄)
20		dihvalcqat.i	. . . 4 ⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
21		eqid 2729	. . . 4 ⊢ ((DIsoB‘𝐾)‘𝑊) = ((DIsoB‘𝐾)‘𝑊)
22		dihvalcqat.j	. . . 4 ⊢ 𝐽 = ((DIsoC‘𝐾)‘𝑊)
23		eqid 2729	. . . 4 ⊢ ((DVecH‘𝐾)‘𝑊) = ((DVecH‘𝐾)‘𝑊)
24		eqid 2729	. . . 4 ⊢ (LSSum‘((DVecH‘𝐾)‘𝑊)) = (LSSum‘((DVecH‘𝐾)‘𝑊))
25	2, 8, 16, 9, 3, 11, 20, 21, 22, 23, 24	dihvalcq 41235	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ (Base‘𝐾) ∧ ¬ 𝑄 ≤ 𝑊) ∧ ((𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑄(join‘𝐾)(𝑄(meet‘𝐾)𝑊)) = 𝑄)) → (𝐼‘𝑄) = ((𝐽‘𝑄)(LSSum‘((DVecH‘𝐾)‘𝑊))(((DIsoB‘𝐾)‘𝑊)‘(𝑄(meet‘𝐾)𝑊))))
26	1, 5, 6, 7, 19, 25	syl122anc 1381	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝐼‘𝑄) = ((𝐽‘𝑄)(LSSum‘((DVecH‘𝐾)‘𝑊))(((DIsoB‘𝐾)‘𝑊)‘(𝑄(meet‘𝐾)𝑊))))
27	12	fveq2d 6826	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (((DIsoB‘𝐾)‘𝑊)‘(𝑄(meet‘𝐾)𝑊)) = (((DIsoB‘𝐾)‘𝑊)‘(0.‘𝐾)))
28		eqid 2729	. . . . . . 7 ⊢ (0_g‘((DVecH‘𝐾)‘𝑊)) = (0_g‘((DVecH‘𝐾)‘𝑊))
29	10, 11, 21, 23, 28	dib0 41163	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (((DIsoB‘𝐾)‘𝑊)‘(0.‘𝐾)) = {(0_g‘((DVecH‘𝐾)‘𝑊))})
30	29	adantr 480	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (((DIsoB‘𝐾)‘𝑊)‘(0.‘𝐾)) = {(0_g‘((DVecH‘𝐾)‘𝑊))})
31	27, 30	eqtrd 2764	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (((DIsoB‘𝐾)‘𝑊)‘(𝑄(meet‘𝐾)𝑊)) = {(0_g‘((DVecH‘𝐾)‘𝑊))})
32	31	oveq2d 7365	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → ((𝐽‘𝑄)(LSSum‘((DVecH‘𝐾)‘𝑊))(((DIsoB‘𝐾)‘𝑊)‘(𝑄(meet‘𝐾)𝑊))) = ((𝐽‘𝑄)(LSSum‘((DVecH‘𝐾)‘𝑊)){(0_g‘((DVecH‘𝐾)‘𝑊))}))
33	11, 23, 1	dvhlmod 41109	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → ((DVecH‘𝐾)‘𝑊) ∈ LMod)
34		eqid 2729	. . . . . 6 ⊢ (LSubSp‘((DVecH‘𝐾)‘𝑊)) = (LSubSp‘((DVecH‘𝐾)‘𝑊))
35	8, 3, 11, 23, 22, 34	diclss 41192	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝐽‘𝑄) ∈ (LSubSp‘((DVecH‘𝐾)‘𝑊)))
36	34	lsssubg 20860	. . . . 5 ⊢ ((((DVecH‘𝐾)‘𝑊) ∈ LMod ∧ (𝐽‘𝑄) ∈ (LSubSp‘((DVecH‘𝐾)‘𝑊))) → (𝐽‘𝑄) ∈ (SubGrp‘((DVecH‘𝐾)‘𝑊)))
37	33, 35, 36	syl2anc 584	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝐽‘𝑄) ∈ (SubGrp‘((DVecH‘𝐾)‘𝑊)))
38	28, 24	lsm01 19550	. . . 4 ⊢ ((𝐽‘𝑄) ∈ (SubGrp‘((DVecH‘𝐾)‘𝑊)) → ((𝐽‘𝑄)(LSSum‘((DVecH‘𝐾)‘𝑊)){(0_g‘((DVecH‘𝐾)‘𝑊))}) = (𝐽‘𝑄))
39	37, 38	syl 17	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → ((𝐽‘𝑄)(LSSum‘((DVecH‘𝐾)‘𝑊)){(0_g‘((DVecH‘𝐾)‘𝑊))}) = (𝐽‘𝑄))
40	32, 39	eqtrd 2764	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → ((𝐽‘𝑄)(LSSum‘((DVecH‘𝐾)‘𝑊))(((DIsoB‘𝐾)‘𝑊)‘(𝑄(meet‘𝐾)𝑊))) = (𝐽‘𝑄))
41	26, 40	eqtrd 2764	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝐼‘𝑄) = (𝐽‘𝑄))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 395 = wceq 1540 ∈ wcel 2109 {csn 4577 class class class wbr 5092 ‘cfv 6482 (class class class)co 7349 Basecbs 17120 lecple 17168 0_gc0g 17343 joincjn 18217 meetcmee 18218 0.cp0 18327 SubGrpcsubg 18999 LSSumclsm 19513 LModclmod 20763 LSubSpclss 20834 OLcol 39173 Atomscatm 39262 HLchlt 39349 LHypclh 39983 DVecHcdvh 41077 DIsoBcdib 41137 DIsoCcdic 41171 DIsoHcdih 41227

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2701 ax-rep 5218 ax-sep 5235 ax-nul 5245 ax-pow 5304 ax-pr 5371 ax-un 7671 ax-cnex 11065 ax-resscn 11066 ax-1cn 11067 ax-icn 11068 ax-addcl 11069 ax-addrcl 11070 ax-mulcl 11071 ax-mulrcl 11072 ax-mulcom 11073 ax-addass 11074 ax-mulass 11075 ax-distr 11076 ax-i2m1 11077 ax-1ne0 11078 ax-1rid 11079 ax-rnegex 11080 ax-rrecex 11081 ax-cnre 11082 ax-pre-lttri 11083 ax-pre-lttrn 11084 ax-pre-ltadd 11085 ax-pre-mulgt0 11086 ax-riotaBAD 38952

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2533 df-eu 2562 df-clab 2708 df-cleq 2721 df-clel 2803 df-nfc 2878 df-ne 2926 df-nel 3030 df-ral 3045 df-rex 3054 df-rmo 3343 df-reu 3344 df-rab 3395 df-v 3438 df-sbc 3743 df-csb 3852 df-dif 3906 df-un 3908 df-in 3910 df-ss 3920 df-pss 3923 df-nul 4285 df-if 4477 df-pw 4553 df-sn 4578 df-pr 4580 df-tp 4582 df-op 4584 df-uni 4859 df-int 4897 df-iun 4943 df-iin 4944 df-br 5093 df-opab 5155 df-mpt 5174 df-tr 5200 df-id 5514 df-eprel 5519 df-po 5527 df-so 5528 df-fr 5572 df-we 5574 df-xp 5625 df-rel 5626 df-cnv 5627 df-co 5628 df-dm 5629 df-rn 5630 df-res 5631 df-ima 5632 df-pred 6249 df-ord 6310 df-on 6311 df-lim 6312 df-suc 6313 df-iota 6438 df-fun 6484 df-fn 6485 df-f 6486 df-f1 6487 df-fo 6488 df-f1o 6489 df-fv 6490 df-riota 7306 df-ov 7352 df-oprab 7353 df-mpo 7354 df-om 7800 df-1st 7924 df-2nd 7925 df-tpos 8159 df-undef 8206 df-frecs 8214 df-wrecs 8245 df-recs 8294 df-rdg 8332 df-1o 8388 df-er 8625 df-map 8755 df-en 8873 df-dom 8874 df-sdom 8875 df-fin 8876 df-pnf 11151 df-mnf 11152 df-xr 11153 df-ltxr 11154 df-le 11155 df-sub 11349 df-neg 11350 df-nn 12129 df-2 12191 df-3 12192 df-4 12193 df-5 12194 df-6 12195 df-n0 12385 df-z 12472 df-uz 12736 df-fz 13411 df-struct 17058 df-sets 17075 df-slot 17093 df-ndx 17105 df-base 17121 df-ress 17142 df-plusg 17174 df-mulr 17175 df-sca 17177 df-vsca 17178 df-0g 17345 df-proset 18200 df-poset 18219 df-plt 18234 df-lub 18250 df-glb 18251 df-join 18252 df-meet 18253 df-p0 18329 df-p1 18330 df-lat 18338 df-clat 18405 df-mgm 18514 df-sgrp 18593 df-mnd 18609 df-submnd 18658 df-grp 18815 df-minusg 18816 df-sbg 18817 df-subg 19002 df-cntz 19196 df-lsm 19515 df-cmn 19661 df-abl 19662 df-mgp 20026 df-rng 20038 df-ur 20067 df-ring 20120 df-oppr 20222 df-dvdsr 20242 df-unit 20243 df-invr 20273 df-dvr 20286 df-drng 20616 df-lmod 20765 df-lss 20835 df-lsp 20875 df-lvec 21007 df-oposet 39175 df-ol 39177 df-oml 39178 df-covers 39265 df-ats 39266 df-atl 39297 df-cvlat 39321 df-hlat 39350 df-llines 39497 df-lplanes 39498 df-lvols 39499 df-lines 39500 df-psubsp 39502 df-pmap 39503 df-padd 39795 df-lhyp 39987 df-laut 39988 df-ldil 40103 df-ltrn 40104 df-trl 40158 df-tendo 40754 df-edring 40756 df-disoa 41028 df-dvech 41078 df-dib 41138 df-dic 41172 df-dih 41228

This theorem is referenced by: dih1dimc 41241 dihopelvalcqat 41245 dihvalcq2 41246 dih1dimatlem 41328 dihpN 41335

W3C validator