Users' Mathboxes Mathbox for Norm Megill < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  dihvalcq2 Structured version   Visualization version   GIF version
Theorem dihvalcq2 39816
Description: Value of isomorphism H for a lattice 𝐾 when Β¬ 𝑋 ≀ π‘Š, given auxiliary atom 𝑄. (Contributed by NM, 26-Sep-2014.)
Hypotheses
Ref Expression
dihvalcq2.b 𝐡 = (Baseβ€˜πΎ)
dihvalcq2.l ≀ = (leβ€˜πΎ)
dihvalcq2.j ∨ = (joinβ€˜πΎ)
dihvalcq2.m ∧ = (meetβ€˜πΎ)
dihvalcq2.a 𝐴 = (Atomsβ€˜πΎ)
dihvalcq2.h 𝐻 = (LHypβ€˜πΎ)
dihvalcq2.i 𝐼 = ((DIsoHβ€˜πΎ)β€˜π‘Š)
dihvalcq2.u π‘ˆ = ((DVecHβ€˜πΎ)β€˜π‘Š)
dihvalcq2.p βŠ• = (LSSumβ€˜π‘ˆ)
Assertion
Ref Expression
dihvalcq2 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑋 ∈ 𝐡 ∧ Β¬ 𝑋 ≀ π‘Š) ∧ ((𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝑄 ≀ 𝑋)) β†’ (πΌβ€˜π‘‹) = ((πΌβ€˜π‘„) βŠ• (πΌβ€˜(𝑋 ∧ π‘Š))))
Proof of Theorem dihvalcq2
StepHypRef Expression
1 simp1 1136 . . 3 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑋 ∈ 𝐡 ∧ Β¬ 𝑋 ≀ π‘Š) ∧ ((𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝑄 ≀ 𝑋)) β†’ (𝐾 ∈ HL ∧ π‘Š ∈ 𝐻))
2 simp2 1137 . . 3 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑋 ∈ 𝐡 ∧ Β¬ 𝑋 ≀ π‘Š) ∧ ((𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝑄 ≀ 𝑋)) β†’ (𝑋 ∈ 𝐡 ∧ Β¬ 𝑋 ≀ π‘Š))
3 simp3l 1201 . . 3 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑋 ∈ 𝐡 ∧ Β¬ 𝑋 ≀ π‘Š) ∧ ((𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝑄 ≀ 𝑋)) β†’ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š))
4 simp3r 1202 . . . 4 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑋 ∈ 𝐡 ∧ Β¬ 𝑋 ≀ π‘Š) ∧ ((𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝑄 ≀ 𝑋)) β†’ 𝑄 ≀ 𝑋)
5 dihvalcq2.b . . . . . 6 𝐡 = (Baseβ€˜πΎ)
6 dihvalcq2.l . . . . . 6 ≀ = (leβ€˜πΎ)
7 dihvalcq2.j . . . . . 6 ∨ = (joinβ€˜πΎ)
8 dihvalcq2.m . . . . . 6 ∧ = (meetβ€˜πΎ)
9 dihvalcq2.a . . . . . 6 𝐴 = (Atomsβ€˜πΎ)
10 dihvalcq2.h . . . . . 6 𝐻 = (LHypβ€˜πΎ)
115, 6, 7, 8, 9, 10lhpmcvr3 38594 . . . . 5 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑋 ∈ 𝐡 ∧ Β¬ 𝑋 ≀ π‘Š) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) β†’ (𝑄 ≀ 𝑋 ↔ (𝑄 ∨ (𝑋 ∧ π‘Š)) = 𝑋))
121, 2, 3, 11syl3anc 1371 . . . 4 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑋 ∈ 𝐡 ∧ Β¬ 𝑋 ≀ π‘Š) ∧ ((𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝑄 ≀ 𝑋)) β†’ (𝑄 ≀ 𝑋 ↔ (𝑄 ∨ (𝑋 ∧ π‘Š)) = 𝑋))
134, 12mpbid 231 . . 3 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑋 ∈ 𝐡 ∧ Β¬ 𝑋 ≀ π‘Š) ∧ ((𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝑄 ≀ 𝑋)) β†’ (𝑄 ∨ (𝑋 ∧ π‘Š)) = 𝑋)
14 dihvalcq2.i . . . 4 𝐼 = ((DIsoHβ€˜πΎ)β€˜π‘Š)
15 eqid 2731 . . . 4 ((DIsoBβ€˜πΎ)β€˜π‘Š) = ((DIsoBβ€˜πΎ)β€˜π‘Š)
16 eqid 2731 . . . 4 ((DIsoCβ€˜πΎ)β€˜π‘Š) = ((DIsoCβ€˜πΎ)β€˜π‘Š)
17 dihvalcq2.u . . . 4 π‘ˆ = ((DVecHβ€˜πΎ)β€˜π‘Š)
18 dihvalcq2.p . . . 4 βŠ• = (LSSumβ€˜π‘ˆ)
195, 6, 7, 8, 9, 10, 14, 15, 16, 17, 18dihvalcq 39805 . . 3 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑋 ∈ 𝐡 ∧ Β¬ 𝑋 ≀ π‘Š) ∧ ((𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ (𝑄 ∨ (𝑋 ∧ π‘Š)) = 𝑋)) β†’ (πΌβ€˜π‘‹) = ((((DIsoCβ€˜πΎ)β€˜π‘Š)β€˜π‘„) βŠ• (((DIsoBβ€˜πΎ)β€˜π‘Š)β€˜(𝑋 ∧ π‘Š))))
201, 2, 3, 13, 19syl112anc 1374 . 2 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑋 ∈ 𝐡 ∧ Β¬ 𝑋 ≀ π‘Š) ∧ ((𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝑄 ≀ 𝑋)) β†’ (πΌβ€˜π‘‹) = ((((DIsoCβ€˜πΎ)β€˜π‘Š)β€˜π‘„) βŠ• (((DIsoBβ€˜πΎ)β€˜π‘Š)β€˜(𝑋 ∧ π‘Š))))
216, 9, 10, 16, 14dihvalcqat 39808 . . . 4 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š)) β†’ (πΌβ€˜π‘„) = (((DIsoCβ€˜πΎ)β€˜π‘Š)β€˜π‘„))
221, 3, 21syl2anc 584 . . 3 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑋 ∈ 𝐡 ∧ Β¬ 𝑋 ≀ π‘Š) ∧ ((𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝑄 ≀ 𝑋)) β†’ (πΌβ€˜π‘„) = (((DIsoCβ€˜πΎ)β€˜π‘Š)β€˜π‘„))
23 simp1l 1197 . . . . . 6 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑋 ∈ 𝐡 ∧ Β¬ 𝑋 ≀ π‘Š) ∧ ((𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝑄 ≀ 𝑋)) β†’ 𝐾 ∈ HL)
2423hllatd 37932 . . . . 5 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑋 ∈ 𝐡 ∧ Β¬ 𝑋 ≀ π‘Š) ∧ ((𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝑄 ≀ 𝑋)) β†’ 𝐾 ∈ Lat)
25 simp2l 1199 . . . . 5 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑋 ∈ 𝐡 ∧ Β¬ 𝑋 ≀ π‘Š) ∧ ((𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝑄 ≀ 𝑋)) β†’ 𝑋 ∈ 𝐡)
26 simp1r 1198 . . . . . 6 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑋 ∈ 𝐡 ∧ Β¬ 𝑋 ≀ π‘Š) ∧ ((𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝑄 ≀ 𝑋)) β†’ π‘Š ∈ 𝐻)
275, 10lhpbase 38567 . . . . . 6 (π‘Š ∈ 𝐻 β†’ π‘Š ∈ 𝐡)
2826, 27syl 17 . . . . 5 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑋 ∈ 𝐡 ∧ Β¬ 𝑋 ≀ π‘Š) ∧ ((𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝑄 ≀ 𝑋)) β†’ π‘Š ∈ 𝐡)
295, 8latmcl 18358 . . . . 5 ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐡 ∧ π‘Š ∈ 𝐡) β†’ (𝑋 ∧ π‘Š) ∈ 𝐡)
3024, 25, 28, 29syl3anc 1371 . . . 4 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑋 ∈ 𝐡 ∧ Β¬ 𝑋 ≀ π‘Š) ∧ ((𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝑄 ≀ 𝑋)) β†’ (𝑋 ∧ π‘Š) ∈ 𝐡)
315, 6, 8latmle2 18383 . . . . 5 ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐡 ∧ π‘Š ∈ 𝐡) β†’ (𝑋 ∧ π‘Š) ≀ π‘Š)
3224, 25, 28, 31syl3anc 1371 . . . 4 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑋 ∈ 𝐡 ∧ Β¬ 𝑋 ≀ π‘Š) ∧ ((𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝑄 ≀ 𝑋)) β†’ (𝑋 ∧ π‘Š) ≀ π‘Š)
335, 6, 10, 14, 15dihvalb 39806 . . . 4 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ ((𝑋 ∧ π‘Š) ∈ 𝐡 ∧ (𝑋 ∧ π‘Š) ≀ π‘Š)) β†’ (πΌβ€˜(𝑋 ∧ π‘Š)) = (((DIsoBβ€˜πΎ)β€˜π‘Š)β€˜(𝑋 ∧ π‘Š)))
341, 30, 32, 33syl12anc 835 . . 3 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑋 ∈ 𝐡 ∧ Β¬ 𝑋 ≀ π‘Š) ∧ ((𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝑄 ≀ 𝑋)) β†’ (πΌβ€˜(𝑋 ∧ π‘Š)) = (((DIsoBβ€˜πΎ)β€˜π‘Š)β€˜(𝑋 ∧ π‘Š)))
3522, 34oveq12d 7395 . 2 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑋 ∈ 𝐡 ∧ Β¬ 𝑋 ≀ π‘Š) ∧ ((𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝑄 ≀ 𝑋)) β†’ ((πΌβ€˜π‘„) βŠ• (πΌβ€˜(𝑋 ∧ π‘Š))) = ((((DIsoCβ€˜πΎ)β€˜π‘Š)β€˜π‘„) βŠ• (((DIsoBβ€˜πΎ)β€˜π‘Š)β€˜(𝑋 ∧ π‘Š))))
3620, 35eqtr4d 2774 1 (((𝐾 ∈ HL ∧ π‘Š ∈ 𝐻) ∧ (𝑋 ∈ 𝐡 ∧ Β¬ 𝑋 ≀ π‘Š) ∧ ((𝑄 ∈ 𝐴 ∧ Β¬ 𝑄 ≀ π‘Š) ∧ 𝑄 ≀ 𝑋)) β†’ (πΌβ€˜π‘‹) = ((πΌβ€˜π‘„) βŠ• (πΌβ€˜(𝑋 ∧ π‘Š))))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 396   ∧ w3a 1087   = wceq 1541   ∈ wcel 2106   class class class wbr 5125  β€˜cfv 6516  (class class class)co 7377  Basecbs 17109  lecple 17169  joincjn 18229  meetcmee 18230  Latclat 18349  LSSumclsm 19445  Atomscatm 37831  HLchlt 37918  LHypclh 38553  DVecHcdvh 39647  DIsoBcdib 39707  DIsoCcdic 39741  DIsoHcdih 39797
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2702  ax-rep 5262  ax-sep 5276  ax-nul 5283  ax-pow 5340  ax-pr 5404  ax-un 7692  ax-cnex 11131  ax-resscn 11132  ax-1cn 11133  ax-icn 11134  ax-addcl 11135  ax-addrcl 11136  ax-mulcl 11137  ax-mulrcl 11138  ax-mulcom 11139  ax-addass 11140  ax-mulass 11141  ax-distr 11142  ax-i2m1 11143  ax-1ne0 11144  ax-1rid 11145  ax-rnegex 11146  ax-rrecex 11147  ax-cnre 11148  ax-pre-lttri 11149  ax-pre-lttrn 11150  ax-pre-ltadd 11151  ax-pre-mulgt0 11152  ax-riotaBAD 37521
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ne 2940  df-nel 3046  df-ral 3061  df-rex 3070  df-rmo 3364  df-reu 3365  df-rab 3419  df-v 3461  df-sbc 3758  df-csb 3874  df-dif 3931  df-un 3933  df-in 3935  df-ss 3945  df-pss 3947  df-nul 4303  df-if 4507  df-pw 4582  df-sn 4607  df-pr 4609  df-tp 4611  df-op 4613  df-uni 4886  df-int 4928  df-iun 4976  df-iin 4977  df-br 5126  df-opab 5188  df-mpt 5209  df-tr 5243  df-id 5551  df-eprel 5557  df-po 5565  df-so 5566  df-fr 5608  df-we 5610  df-xp 5659  df-rel 5660  df-cnv 5661  df-co 5662  df-dm 5663  df-rn 5664  df-res 5665  df-ima 5666  df-pred 6273  df-ord 6340  df-on 6341  df-lim 6342  df-suc 6343  df-iota 6468  df-fun 6518  df-fn 6519  df-f 6520  df-f1 6521  df-fo 6522  df-f1o 6523  df-fv 6524  df-riota 7333  df-ov 7380  df-oprab 7381  df-mpo 7382  df-om 7823  df-1st 7941  df-2nd 7942  df-tpos 8177  df-undef 8224  df-frecs 8232  df-wrecs 8263  df-recs 8337  df-rdg 8376  df-1o 8432  df-er 8670  df-map 8789  df-en 8906  df-dom 8907  df-sdom 8908  df-fin 8909  df-pnf 11215  df-mnf 11216  df-xr 11217  df-ltxr 11218  df-le 11219  df-sub 11411  df-neg 11412  df-nn 12178  df-2 12240  df-3 12241  df-4 12242  df-5 12243  df-6 12244  df-n0 12438  df-z 12524  df-uz 12788  df-fz 13450  df-struct 17045  df-sets 17062  df-slot 17080  df-ndx 17092  df-base 17110  df-ress 17139  df-plusg 17175  df-mulr 17176  df-sca 17178  df-vsca 17179  df-0g 17352  df-proset 18213  df-poset 18231  df-plt 18248  df-lub 18264  df-glb 18265  df-join 18266  df-meet 18267  df-p0 18343  df-p1 18344  df-lat 18350  df-clat 18417  df-mgm 18526  df-sgrp 18575  df-mnd 18586  df-submnd 18631  df-grp 18780  df-minusg 18781  df-sbg 18782  df-subg 18954  df-cntz 19126  df-lsm 19447  df-cmn 19593  df-abl 19594  df-mgp 19926  df-ur 19943  df-ring 19995  df-oppr 20078  df-dvdsr 20099  df-unit 20100  df-invr 20130  df-dvr 20141  df-drng 20242  df-lmod 20395  df-lss 20465  df-lsp 20505  df-lvec 20636  df-oposet 37744  df-ol 37746  df-oml 37747  df-covers 37834  df-ats 37835  df-atl 37866  df-cvlat 37890  df-hlat 37919  df-llines 38067  df-lplanes 38068  df-lvols 38069  df-lines 38070  df-psubsp 38072  df-pmap 38073  df-padd 38365  df-lhyp 38557  df-laut 38558  df-ldil 38673  df-ltrn 38674  df-trl 38728  df-tendo 39324  df-edring 39326  df-disoa 39598  df-dvech 39648  df-dib 39708  df-dic 39742  df-dih 39798
This theorem is referenced by:  dihjatc1  39880  dihjatcclem1  39987
  Copyright terms: Public domain W3C validator