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 40862

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 481	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻))
2		eqid 2725	. . . . 5 ⊢ (Base‘𝐾) = (Base‘𝐾)
3		dihvalcqat.a	. . . . 5 ⊢ 𝐴 = (Atoms‘𝐾)
4	2, 3	atbase 38911	. . . 4 ⊢ (𝑄 ∈ 𝐴 → 𝑄 ∈ (Base‘𝐾))
5	4	ad2antrl 726	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → 𝑄 ∈ (Base‘𝐾))
6		simprr 771	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → ¬ 𝑄 ≤ 𝑊)
7		simpr 483	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊))
8		dihvalcqat.l	. . . . . 6 ⊢ ≤ = (le‘𝐾)
9		eqid 2725	. . . . . 6 ⊢ (meet‘𝐾) = (meet‘𝐾)
10		eqid 2725	. . . . . 6 ⊢ (0.‘𝐾) = (0.‘𝐾)
11		dihvalcqat.h	. . . . . 6 ⊢ 𝐻 = (LHyp‘𝐾)
12	8, 9, 10, 3, 11	lhpmat 39653	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝑄(meet‘𝐾)𝑊) = (0.‘𝐾))
13	12	oveq2d 7435	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝑄(join‘𝐾)(𝑄(meet‘𝐾)𝑊)) = (𝑄(join‘𝐾)(0.‘𝐾)))
14		hlol 38983	. . . . . 6 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OL)
15	14	ad2antrr 724	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → 𝐾 ∈ OL)
16		eqid 2725	. . . . . 6 ⊢ (join‘𝐾) = (join‘𝐾)
17	2, 16, 10	olj01 38847	. . . . 5 ⊢ ((𝐾 ∈ OL ∧ 𝑄 ∈ (Base‘𝐾)) → (𝑄(join‘𝐾)(0.‘𝐾)) = 𝑄)
18	15, 5, 17	syl2anc 582	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝑄(join‘𝐾)(0.‘𝐾)) = 𝑄)
19	13, 18	eqtrd 2765	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝑄(join‘𝐾)(𝑄(meet‘𝐾)𝑊)) = 𝑄)
20		dihvalcqat.i	. . . 4 ⊢ 𝐼 = ((DIsoH‘𝐾)‘𝑊)
21		eqid 2725	. . . 4 ⊢ ((DIsoB‘𝐾)‘𝑊) = ((DIsoB‘𝐾)‘𝑊)
22		dihvalcqat.j	. . . 4 ⊢ 𝐽 = ((DIsoC‘𝐾)‘𝑊)
23		eqid 2725	. . . 4 ⊢ ((DVecH‘𝐾)‘𝑊) = ((DVecH‘𝐾)‘𝑊)
24		eqid 2725	. . . 4 ⊢ (LSSum‘((DVecH‘𝐾)‘𝑊)) = (LSSum‘((DVecH‘𝐾)‘𝑊))
25	2, 8, 16, 9, 3, 11, 20, 21, 22, 23, 24	dihvalcq 40859	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ (Base‘𝐾) ∧ ¬ 𝑄 ≤ 𝑊) ∧ ((𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊) ∧ (𝑄(join‘𝐾)(𝑄(meet‘𝐾)𝑊)) = 𝑄)) → (𝐼‘𝑄) = ((𝐽‘𝑄)(LSSum‘((DVecH‘𝐾)‘𝑊))(((DIsoB‘𝐾)‘𝑊)‘(𝑄(meet‘𝐾)𝑊))))
26	1, 5, 6, 7, 19, 25	syl122anc 1376	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝐼‘𝑄) = ((𝐽‘𝑄)(LSSum‘((DVecH‘𝐾)‘𝑊))(((DIsoB‘𝐾)‘𝑊)‘(𝑄(meet‘𝐾)𝑊))))
27	12	fveq2d 6900	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (((DIsoB‘𝐾)‘𝑊)‘(𝑄(meet‘𝐾)𝑊)) = (((DIsoB‘𝐾)‘𝑊)‘(0.‘𝐾)))
28		eqid 2725	. . . . . . 7 ⊢ (0_g‘((DVecH‘𝐾)‘𝑊)) = (0_g‘((DVecH‘𝐾)‘𝑊))
29	10, 11, 21, 23, 28	dib0 40787	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) → (((DIsoB‘𝐾)‘𝑊)‘(0.‘𝐾)) = {(0_g‘((DVecH‘𝐾)‘𝑊))})
30	29	adantr 479	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (((DIsoB‘𝐾)‘𝑊)‘(0.‘𝐾)) = {(0_g‘((DVecH‘𝐾)‘𝑊))})
31	27, 30	eqtrd 2765	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (((DIsoB‘𝐾)‘𝑊)‘(𝑄(meet‘𝐾)𝑊)) = {(0_g‘((DVecH‘𝐾)‘𝑊))})
32	31	oveq2d 7435	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → ((𝐽‘𝑄)(LSSum‘((DVecH‘𝐾)‘𝑊))(((DIsoB‘𝐾)‘𝑊)‘(𝑄(meet‘𝐾)𝑊))) = ((𝐽‘𝑄)(LSSum‘((DVecH‘𝐾)‘𝑊)){(0_g‘((DVecH‘𝐾)‘𝑊))}))
33	11, 23, 1	dvhlmod 40733	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → ((DVecH‘𝐾)‘𝑊) ∈ LMod)
34		eqid 2725	. . . . . 6 ⊢ (LSubSp‘((DVecH‘𝐾)‘𝑊)) = (LSubSp‘((DVecH‘𝐾)‘𝑊))
35	8, 3, 11, 23, 22, 34	diclss 40816	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝐽‘𝑄) ∈ (LSubSp‘((DVecH‘𝐾)‘𝑊)))
36	34	lsssubg 20870	. . . . 5 ⊢ ((((DVecH‘𝐾)‘𝑊) ∈ LMod ∧ (𝐽‘𝑄) ∈ (LSubSp‘((DVecH‘𝐾)‘𝑊))) → (𝐽‘𝑄) ∈ (SubGrp‘((DVecH‘𝐾)‘𝑊)))
37	33, 35, 36	syl2anc 582	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝐽‘𝑄) ∈ (SubGrp‘((DVecH‘𝐾)‘𝑊)))
38	28, 24	lsm01 19655	. . . 4 ⊢ ((𝐽‘𝑄) ∈ (SubGrp‘((DVecH‘𝐾)‘𝑊)) → ((𝐽‘𝑄)(LSSum‘((DVecH‘𝐾)‘𝑊)){(0_g‘((DVecH‘𝐾)‘𝑊))}) = (𝐽‘𝑄))
39	37, 38	syl 17	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → ((𝐽‘𝑄)(LSSum‘((DVecH‘𝐾)‘𝑊)){(0_g‘((DVecH‘𝐾)‘𝑊))}) = (𝐽‘𝑄))
40	32, 39	eqtrd 2765	. 2 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → ((𝐽‘𝑄)(LSSum‘((DVecH‘𝐾)‘𝑊))(((DIsoB‘𝐾)‘𝑊)‘(𝑄(meet‘𝐾)𝑊))) = (𝐽‘𝑄))
41	26, 40	eqtrd 2765	1 ⊢ (((𝐾 ∈ HL ∧ 𝑊 ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ ¬ 𝑄 ≤ 𝑊)) → (𝐼‘𝑄) = (𝐽‘𝑄))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ∧ wa 394 = wceq 1533 ∈ wcel 2098 {csn 4630 class class class wbr 5149 ‘cfv 6549 (class class class)co 7419 Basecbs 17199 lecple 17259 0_gc0g 17440 joincjn 18322 meetcmee 18323 0.cp0 18434 SubGrpcsubg 19100 LSSumclsm 19618 LModclmod 20772 LSubSpclss 20844 OLcol 38796 Atomscatm 38885 HLchlt 38972 LHypclh 39607 DVecHcdvh 40701 DIsoBcdib 40761 DIsoCcdic 40795 DIsoHcdih 40851

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1789 ax-4 1803 ax-5 1905 ax-6 1963 ax-7 2003 ax-8 2100 ax-9 2108 ax-10 2129 ax-11 2146 ax-12 2166 ax-ext 2696 ax-rep 5286 ax-sep 5300 ax-nul 5307 ax-pow 5365 ax-pr 5429 ax-un 7741 ax-cnex 11201 ax-resscn 11202 ax-1cn 11203 ax-icn 11204 ax-addcl 11205 ax-addrcl 11206 ax-mulcl 11207 ax-mulrcl 11208 ax-mulcom 11209 ax-addass 11210 ax-mulass 11211 ax-distr 11212 ax-i2m1 11213 ax-1ne0 11214 ax-1rid 11215 ax-rnegex 11216 ax-rrecex 11217 ax-cnre 11218 ax-pre-lttri 11219 ax-pre-lttrn 11220 ax-pre-ltadd 11221 ax-pre-mulgt0 11222 ax-riotaBAD 38575

This theorem depends on definitions: df-bi 206 df-an 395 df-or 846 df-3or 1085 df-3an 1086 df-tru 1536 df-fal 1546 df-ex 1774 df-nf 1778 df-sb 2060 df-mo 2528 df-eu 2557 df-clab 2703 df-cleq 2717 df-clel 2802 df-nfc 2877 df-ne 2930 df-nel 3036 df-ral 3051 df-rex 3060 df-rmo 3363 df-reu 3364 df-rab 3419 df-v 3463 df-sbc 3774 df-csb 3890 df-dif 3947 df-un 3949 df-in 3951 df-ss 3961 df-pss 3964 df-nul 4323 df-if 4531 df-pw 4606 df-sn 4631 df-pr 4633 df-tp 4635 df-op 4637 df-uni 4910 df-int 4951 df-iun 4999 df-iin 5000 df-br 5150 df-opab 5212 df-mpt 5233 df-tr 5267 df-id 5576 df-eprel 5582 df-po 5590 df-so 5591 df-fr 5633 df-we 5635 df-xp 5684 df-rel 5685 df-cnv 5686 df-co 5687 df-dm 5688 df-rn 5689 df-res 5690 df-ima 5691 df-pred 6307 df-ord 6374 df-on 6375 df-lim 6376 df-suc 6377 df-iota 6501 df-fun 6551 df-fn 6552 df-f 6553 df-f1 6554 df-fo 6555 df-f1o 6556 df-fv 6557 df-riota 7375 df-ov 7422 df-oprab 7423 df-mpo 7424 df-om 7872 df-1st 7994 df-2nd 7995 df-tpos 8232 df-undef 8279 df-frecs 8287 df-wrecs 8318 df-recs 8392 df-rdg 8431 df-1o 8487 df-er 8725 df-map 8847 df-en 8965 df-dom 8966 df-sdom 8967 df-fin 8968 df-pnf 11287 df-mnf 11288 df-xr 11289 df-ltxr 11290 df-le 11291 df-sub 11483 df-neg 11484 df-nn 12251 df-2 12313 df-3 12314 df-4 12315 df-5 12316 df-6 12317 df-n0 12511 df-z 12597 df-uz 12861 df-fz 13525 df-struct 17135 df-sets 17152 df-slot 17170 df-ndx 17182 df-base 17200 df-ress 17229 df-plusg 17265 df-mulr 17266 df-sca 17268 df-vsca 17269 df-0g 17442 df-proset 18306 df-poset 18324 df-plt 18341 df-lub 18357 df-glb 18358 df-join 18359 df-meet 18360 df-p0 18436 df-p1 18437 df-lat 18443 df-clat 18510 df-mgm 18619 df-sgrp 18698 df-mnd 18714 df-submnd 18760 df-grp 18917 df-minusg 18918 df-sbg 18919 df-subg 19103 df-cntz 19297 df-lsm 19620 df-cmn 19766 df-abl 19767 df-mgp 20104 df-rng 20122 df-ur 20151 df-ring 20204 df-oppr 20302 df-dvdsr 20325 df-unit 20326 df-invr 20356 df-dvr 20369 df-drng 20655 df-lmod 20774 df-lss 20845 df-lsp 20885 df-lvec 21017 df-oposet 38798 df-ol 38800 df-oml 38801 df-covers 38888 df-ats 38889 df-atl 38920 df-cvlat 38944 df-hlat 38973 df-llines 39121 df-lplanes 39122 df-lvols 39123 df-lines 39124 df-psubsp 39126 df-pmap 39127 df-padd 39419 df-lhyp 39611 df-laut 39612 df-ldil 39727 df-ltrn 39728 df-trl 39782 df-tendo 40378 df-edring 40380 df-disoa 40652 df-dvech 40702 df-dib 40762 df-dic 40796 df-dih 40852

This theorem is referenced by: dih1dimc 40865 dihopelvalcqat 40869 dihvalcq2 40870 dih1dimatlem 40952 dihpN 40959

W3C validator