Users' Mathboxes 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
StepHypRef Expression
1 simpl 481 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → (𝐾 ∈ HL ∧ 𝑊𝐻))
2 eqid 2725 . . . . 5 (Base‘𝐾) = (Base‘𝐾)
3 dihvalcqat.a . . . . 5 𝐴 = (Atoms‘𝐾)
42, 3atbase 38911 . . . 4 (𝑄𝐴𝑄 ∈ (Base‘𝐾))
54ad2antrl 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‘𝐾)
128, 9, 10, 3, 11lhpmat 39653 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → (𝑄(meet‘𝐾)𝑊) = (0.‘𝐾))
1312oveq2d 7435 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → (𝑄(join‘𝐾)(𝑄(meet‘𝐾)𝑊)) = (𝑄(join‘𝐾)(0.‘𝐾)))
14 hlol 38983 . . . . . 6 (𝐾 ∈ HL → 𝐾 ∈ OL)
1514ad2antrr 724 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → 𝐾 ∈ OL)
16 eqid 2725 . . . . . 6 (join‘𝐾) = (join‘𝐾)
172, 16, 10olj01 38847 . . . . 5 ((𝐾 ∈ OL ∧ 𝑄 ∈ (Base‘𝐾)) → (𝑄(join‘𝐾)(0.‘𝐾)) = 𝑄)
1815, 5, 17syl2anc 582 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → (𝑄(join‘𝐾)(0.‘𝐾)) = 𝑄)
1913, 18eqtrd 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‘𝐾)‘𝑊))
252, 8, 16, 9, 3, 11, 20, 21, 22, 23, 24dihvalcq 40859 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄 ∈ (Base‘𝐾) ∧ ¬ 𝑄 𝑊) ∧ ((𝑄𝐴 ∧ ¬ 𝑄 𝑊) ∧ (𝑄(join‘𝐾)(𝑄(meet‘𝐾)𝑊)) = 𝑄)) → (𝐼𝑄) = ((𝐽𝑄)(LSSum‘((DVecH‘𝐾)‘𝑊))(((DIsoB‘𝐾)‘𝑊)‘(𝑄(meet‘𝐾)𝑊))))
261, 5, 6, 7, 19, 25syl122anc 1376 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → (𝐼𝑄) = ((𝐽𝑄)(LSSum‘((DVecH‘𝐾)‘𝑊))(((DIsoB‘𝐾)‘𝑊)‘(𝑄(meet‘𝐾)𝑊))))
2712fveq2d 6900 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → (((DIsoB‘𝐾)‘𝑊)‘(𝑄(meet‘𝐾)𝑊)) = (((DIsoB‘𝐾)‘𝑊)‘(0.‘𝐾)))
28 eqid 2725 . . . . . . 7 (0g‘((DVecH‘𝐾)‘𝑊)) = (0g‘((DVecH‘𝐾)‘𝑊))
2910, 11, 21, 23, 28dib0 40787 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (((DIsoB‘𝐾)‘𝑊)‘(0.‘𝐾)) = {(0g‘((DVecH‘𝐾)‘𝑊))})
3029adantr 479 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → (((DIsoB‘𝐾)‘𝑊)‘(0.‘𝐾)) = {(0g‘((DVecH‘𝐾)‘𝑊))})
3127, 30eqtrd 2765 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → (((DIsoB‘𝐾)‘𝑊)‘(𝑄(meet‘𝐾)𝑊)) = {(0g‘((DVecH‘𝐾)‘𝑊))})
3231oveq2d 7435 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → ((𝐽𝑄)(LSSum‘((DVecH‘𝐾)‘𝑊))(((DIsoB‘𝐾)‘𝑊)‘(𝑄(meet‘𝐾)𝑊))) = ((𝐽𝑄)(LSSum‘((DVecH‘𝐾)‘𝑊)){(0g‘((DVecH‘𝐾)‘𝑊))}))
3311, 23, 1dvhlmod 40733 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → ((DVecH‘𝐾)‘𝑊) ∈ LMod)
34 eqid 2725 . . . . . 6 (LSubSp‘((DVecH‘𝐾)‘𝑊)) = (LSubSp‘((DVecH‘𝐾)‘𝑊))
358, 3, 11, 23, 22, 34diclss 40816 . . . . 5 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → (𝐽𝑄) ∈ (LSubSp‘((DVecH‘𝐾)‘𝑊)))
3634lsssubg 20870 . . . . 5 ((((DVecH‘𝐾)‘𝑊) ∈ LMod ∧ (𝐽𝑄) ∈ (LSubSp‘((DVecH‘𝐾)‘𝑊))) → (𝐽𝑄) ∈ (SubGrp‘((DVecH‘𝐾)‘𝑊)))
3733, 35, 36syl2anc 582 . . . 4 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → (𝐽𝑄) ∈ (SubGrp‘((DVecH‘𝐾)‘𝑊)))
3828, 24lsm01 19655 . . . 4 ((𝐽𝑄) ∈ (SubGrp‘((DVecH‘𝐾)‘𝑊)) → ((𝐽𝑄)(LSSum‘((DVecH‘𝐾)‘𝑊)){(0g‘((DVecH‘𝐾)‘𝑊))}) = (𝐽𝑄))
3937, 38syl 17 . . 3 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → ((𝐽𝑄)(LSSum‘((DVecH‘𝐾)‘𝑊)){(0g‘((DVecH‘𝐾)‘𝑊))}) = (𝐽𝑄))
4032, 39eqtrd 2765 . 2 (((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑄𝐴 ∧ ¬ 𝑄 𝑊)) → ((𝐽𝑄)(LSSum‘((DVecH‘𝐾)‘𝑊))(((DIsoB‘𝐾)‘𝑊)‘(𝑄(meet‘𝐾)𝑊))) = (𝐽𝑄))
4126, 40eqtrd 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  0gc0g 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
  Copyright terms: Public domain W3C validator