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

Theorem dihmeetlem18N 41896
Description: Lemma for isomorphism H of a lattice meet. (Contributed by NM, 7-Apr-2014.) (New usage is discouraged.)
Hypotheses
Ref Expression
dihmeetlem14.b 𝐵 = (Base‘𝐾)
dihmeetlem14.l = (le‘𝐾)
dihmeetlem14.h 𝐻 = (LHyp‘𝐾)
dihmeetlem14.j = (join‘𝐾)
dihmeetlem14.m = (meet‘𝐾)
dihmeetlem14.a 𝐴 = (Atoms‘𝐾)
dihmeetlem14.u 𝑈 = ((DVecH‘𝐾)‘𝑊)
dihmeetlem14.s = (LSSum‘𝑈)
dihmeetlem14.i 𝐼 = ((DIsoH‘𝐾)‘𝑊)
dihmeetlem18.z 0 = (0g𝑈)
Assertion
Ref Expression
dihmeetlem18N ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ 𝑌𝐵) ∧ ((𝑝𝐴 ∧ ¬ 𝑝 𝑊) ∧ (𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ (𝑝 𝑋𝑟 𝑌 ∧ (𝑋 𝑌) 𝑊))) → ((𝐼𝑌) ∩ (𝐼𝑝)) = { 0 })

Proof of Theorem dihmeetlem18N
StepHypRef Expression
1 simpl1 1201 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ 𝑌𝐵) ∧ ((𝑝𝐴 ∧ ¬ 𝑝 𝑊) ∧ (𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ (𝑝 𝑋𝑟 𝑌 ∧ (𝑋 𝑌) 𝑊))) → (𝐾 ∈ HL ∧ 𝑊𝐻))
2 simpl2 1202 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ 𝑌𝐵) ∧ ((𝑝𝐴 ∧ ¬ 𝑝 𝑊) ∧ (𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ (𝑝 𝑋𝑟 𝑌 ∧ (𝑋 𝑌) 𝑊))) → (𝑋𝐵 ∧ ¬ 𝑋 𝑊))
3 simpr1 1204 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ 𝑌𝐵) ∧ ((𝑝𝐴 ∧ ¬ 𝑝 𝑊) ∧ (𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ (𝑝 𝑋𝑟 𝑌 ∧ (𝑋 𝑌) 𝑊))) → (𝑝𝐴 ∧ ¬ 𝑝 𝑊))
4 simpl3 1203 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ 𝑌𝐵) ∧ ((𝑝𝐴 ∧ ¬ 𝑝 𝑊) ∧ (𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ (𝑝 𝑋𝑟 𝑌 ∧ (𝑋 𝑌) 𝑊))) → 𝑌𝐵)
5 simpr33 1275 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ 𝑌𝐵) ∧ ((𝑝𝐴 ∧ ¬ 𝑝 𝑊) ∧ (𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ (𝑝 𝑋𝑟 𝑌 ∧ (𝑋 𝑌) 𝑊))) → (𝑋 𝑌) 𝑊)
6 simpr31 1273 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ 𝑌𝐵) ∧ ((𝑝𝐴 ∧ ¬ 𝑝 𝑊) ∧ (𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ (𝑝 𝑋𝑟 𝑌 ∧ (𝑋 𝑌) 𝑊))) → 𝑝 𝑋)
7 dihmeetlem14.b . . . . 5 𝐵 = (Base‘𝐾)
8 dihmeetlem14.l . . . . 5 = (le‘𝐾)
9 dihmeetlem14.h . . . . 5 𝐻 = (LHyp‘𝐾)
10 dihmeetlem14.j . . . . 5 = (join‘𝐾)
11 dihmeetlem14.m . . . . 5 = (meet‘𝐾)
12 dihmeetlem14.a . . . . 5 𝐴 = (Atoms‘𝐾)
13 dihmeetlem14.u . . . . 5 𝑈 = ((DVecH‘𝐾)‘𝑊)
14 dihmeetlem14.s . . . . 5 = (LSSum‘𝑈)
15 dihmeetlem14.i . . . . 5 𝐼 = ((DIsoH‘𝐾)‘𝑊)
16 eqid 2756 . . . . 5 (0.‘𝐾) = (0.‘𝐾)
177, 8, 9, 10, 11, 12, 13, 14, 15, 16dihmeetlem17N 41895 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊)) ∧ (𝑌𝐵 ∧ (𝑋 𝑌) 𝑊𝑝 𝑋)) → (𝑌 𝑝) = (0.‘𝐾))
181, 2, 3, 4, 5, 6, 17syl33anc 1400 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ 𝑌𝐵) ∧ ((𝑝𝐴 ∧ ¬ 𝑝 𝑊) ∧ (𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ (𝑝 𝑋𝑟 𝑌 ∧ (𝑋 𝑌) 𝑊))) → (𝑌 𝑝) = (0.‘𝐾))
1918fveq2d 6860 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ 𝑌𝐵) ∧ ((𝑝𝐴 ∧ ¬ 𝑝 𝑊) ∧ (𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ (𝑝 𝑋𝑟 𝑌 ∧ (𝑋 𝑌) 𝑊))) → (𝐼‘(𝑌 𝑝)) = (𝐼‘(0.‘𝐾)))
20 simpr2 1205 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ 𝑌𝐵) ∧ ((𝑝𝐴 ∧ ¬ 𝑝 𝑊) ∧ (𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ (𝑝 𝑋𝑟 𝑌 ∧ (𝑋 𝑌) 𝑊))) → (𝑟𝐴 ∧ ¬ 𝑟 𝑊))
21 simpr32 1274 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ 𝑌𝐵) ∧ ((𝑝𝐴 ∧ ¬ 𝑝 𝑊) ∧ (𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ (𝑝 𝑋𝑟 𝑌 ∧ (𝑋 𝑌) 𝑊))) → 𝑟 𝑌)
22 simpl1l 1234 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ 𝑌𝐵) ∧ ((𝑝𝐴 ∧ ¬ 𝑝 𝑊) ∧ (𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ (𝑝 𝑋𝑟 𝑌 ∧ (𝑋 𝑌) 𝑊))) → 𝐾 ∈ HL)
23 hlop 39934 . . . . . 6 (𝐾 ∈ HL → 𝐾 ∈ OP)
2422, 23syl 17 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ 𝑌𝐵) ∧ ((𝑝𝐴 ∧ ¬ 𝑝 𝑊) ∧ (𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ (𝑝 𝑋𝑟 𝑌 ∧ (𝑋 𝑌) 𝑊))) → 𝐾 ∈ OP)
25 simpl1r 1235 . . . . . 6 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ 𝑌𝐵) ∧ ((𝑝𝐴 ∧ ¬ 𝑝 𝑊) ∧ (𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ (𝑝 𝑋𝑟 𝑌 ∧ (𝑋 𝑌) 𝑊))) → 𝑊𝐻)
267, 9lhpbase 40570 . . . . . 6 (𝑊𝐻𝑊𝐵)
2725, 26syl 17 . . . . 5 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ 𝑌𝐵) ∧ ((𝑝𝐴 ∧ ¬ 𝑝 𝑊) ∧ (𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ (𝑝 𝑋𝑟 𝑌 ∧ (𝑋 𝑌) 𝑊))) → 𝑊𝐵)
287, 8, 16op0le 39758 . . . . 5 ((𝐾 ∈ OP ∧ 𝑊𝐵) → (0.‘𝐾) 𝑊)
2924, 27, 28syl2anc 592 . . . 4 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ 𝑌𝐵) ∧ ((𝑝𝐴 ∧ ¬ 𝑝 𝑊) ∧ (𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ (𝑝 𝑋𝑟 𝑌 ∧ (𝑋 𝑌) 𝑊))) → (0.‘𝐾) 𝑊)
3018, 29eqbrtrd 5116 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ 𝑌𝐵) ∧ ((𝑝𝐴 ∧ ¬ 𝑝 𝑊) ∧ (𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ (𝑝 𝑋𝑟 𝑌 ∧ (𝑋 𝑌) 𝑊))) → (𝑌 𝑝) 𝑊)
317, 8, 9, 10, 11, 12, 13, 14, 15dihmeetlem16N 41894 . . 3 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ 𝑌𝐵 ∧ (𝑝𝐴 ∧ ¬ 𝑝 𝑊)) ∧ ((𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ 𝑟 𝑌 ∧ (𝑌 𝑝) 𝑊)) → (𝐼‘(𝑌 𝑝)) = ((𝐼𝑌) ∩ (𝐼𝑝)))
321, 4, 3, 20, 21, 30, 31syl33anc 1400 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ 𝑌𝐵) ∧ ((𝑝𝐴 ∧ ¬ 𝑝 𝑊) ∧ (𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ (𝑝 𝑋𝑟 𝑌 ∧ (𝑋 𝑌) 𝑊))) → (𝐼‘(𝑌 𝑝)) = ((𝐼𝑌) ∩ (𝐼𝑝)))
33 dihmeetlem18.z . . . 4 0 = (0g𝑈)
3416, 9, 15, 13, 33dih0 41852 . . 3 ((𝐾 ∈ HL ∧ 𝑊𝐻) → (𝐼‘(0.‘𝐾)) = { 0 })
351, 34syl 17 . 2 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ 𝑌𝐵) ∧ ((𝑝𝐴 ∧ ¬ 𝑝 𝑊) ∧ (𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ (𝑝 𝑋𝑟 𝑌 ∧ (𝑋 𝑌) 𝑊))) → (𝐼‘(0.‘𝐾)) = { 0 })
3619, 32, 353eqtr3d 2799 1 ((((𝐾 ∈ HL ∧ 𝑊𝐻) ∧ (𝑋𝐵 ∧ ¬ 𝑋 𝑊) ∧ 𝑌𝐵) ∧ ((𝑝𝐴 ∧ ¬ 𝑝 𝑊) ∧ (𝑟𝐴 ∧ ¬ 𝑟 𝑊) ∧ (𝑝 𝑋𝑟 𝑌 ∧ (𝑋 𝑌) 𝑊))) → ((𝐼𝑌) ∩ (𝐼𝑝)) = { 0 })
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 398  w3a 1095   = wceq 1554  wcel 2136  cin 3898  {csn 4576   class class class wbr 5094  cfv 6510  (class class class)co 7385  Basecbs 17221  lecple 17269  0gc0g 17444  joincjn 18319  meetcmee 18320  0.cp0 18429  LSSumclsm 19650  OPcops 39744  Atomscatm 39835  HLchlt 39922  LHypclh 40556  DVecHcdvh 41650  DIsoHcdih 41800
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1809  ax-4 1823  ax-5 1924  ax-6 1981  ax-7 2022  ax-8 2138  ax-9 2146  ax-10 2169  ax-11 2185  ax-12 2206  ax-ext 2728  ax-rep 5221  ax-sep 5240  ax-nul 5250  ax-pow 5316  ax-pr 5384  ax-un 7707  ax-cnex 11119  ax-resscn 11120  ax-1cn 11121  ax-icn 11122  ax-addcl 11123  ax-addrcl 11124  ax-mulcl 11125  ax-mulrcl 11126  ax-mulcom 11127  ax-addass 11128  ax-mulass 11129  ax-distr 11130  ax-i2m1 11131  ax-1ne0 11132  ax-1rid 11133  ax-rnegex 11134  ax-rrecex 11135  ax-cnre 11136  ax-pre-lttri 11137  ax-pre-lttrn 11138  ax-pre-ltadd 11139  ax-pre-mulgt0 11140  ax-riotaBAD 39525
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 857  df-3or 1096  df-3an 1097  df-tru 1557  df-fal 1567  df-ex 1794  df-nf 1798  df-sb 2085  df-mo 2560  df-eu 2590  df-clab 2735  df-cleq 2748  df-clel 2831  df-nfc 2905  df-ne 2952  df-nel 3056  df-ral 3071  df-rex 3081  df-rmo 3361  df-reu 3362  df-rab 3409  df-v 3450  df-sbc 3740  df-csb 3848  df-dif 3902  df-un 3904  df-in 3906  df-ss 3916  df-pss 3919  df-nul 4281  df-if 4475  df-pw 4551  df-sn 4577  df-pr 4579  df-tp 4581  df-op 4583  df-uni 4860  df-int 4900  df-iun 4945  df-iin 4946  df-br 5095  df-opab 5157  df-mpt 5176  df-tr 5202  df-id 5535  df-eprel 5540  df-po 5548  df-so 5549  df-fr 5593  df-we 5595  df-xp 5646  df-rel 5647  df-cnv 5648  df-co 5649  df-dm 5650  df-rn 5651  df-res 5652  df-ima 5653  df-pred 6277  df-ord 6338  df-on 6339  df-lim 6340  df-suc 6341  df-iota 6466  df-fun 6512  df-fn 6513  df-f 6514  df-f1 6515  df-fo 6516  df-f1o 6517  df-fv 6518  df-riota 7342  df-ov 7388  df-oprab 7389  df-mpo 7390  df-om 7836  df-1st 7959  df-2nd 7960  df-tpos 8194  df-undef 8241  df-frecs 8250  df-wrecs 8281  df-recs 8330  df-rdg 8369  df-1o 8425  df-2o 8426  df-er 8666  df-map 8798  df-en 8917  df-dom 8918  df-sdom 8919  df-fin 8920  df-pnf 11208  df-mnf 11209  df-xr 11210  df-ltxr 11211  df-le 11212  df-sub 11406  df-neg 11407  df-nn 12201  df-2 12270  df-3 12271  df-4 12272  df-5 12273  df-6 12274  df-n0 12472  df-z 12559  df-uz 12830  df-fz 13503  df-struct 17159  df-sets 17176  df-slot 17194  df-ndx 17206  df-base 17222  df-ress 17243  df-plusg 17275  df-mulr 17276  df-sca 17278  df-vsca 17279  df-0g 17446  df-mre 17590  df-mrc 17591  df-acs 17593  df-proset 18302  df-poset 18321  df-plt 18336  df-lub 18352  df-glb 18353  df-join 18354  df-meet 18355  df-p0 18431  df-p1 18432  df-lat 18440  df-clat 18507  df-mgm 18650  df-sgrp 18729  df-mnd 18745  df-submnd 18794  df-grp 18954  df-minusg 18955  df-sbg 18956  df-subg 19141  df-cntz 19333  df-lsm 19652  df-cmn 19798  df-abl 19799  df-mgp 20163  df-rng 20175  df-ur 20204  df-ring 20257  df-oppr 20358  df-dvdsr 20378  df-unit 20379  df-invr 20409  df-dvr 20422  df-drng 20753  df-lmod 20902  df-lss 20972  df-lsp 21012  df-lvec 21143  df-oposet 39748  df-ol 39750  df-oml 39751  df-covers 39838  df-ats 39839  df-atl 39870  df-cvlat 39894  df-hlat 39923  df-llines 40070  df-lplanes 40071  df-lvols 40072  df-lines 40073  df-psubsp 40075  df-pmap 40076  df-padd 40368  df-lhyp 40560  df-laut 40561  df-ldil 40676  df-ltrn 40677  df-trl 40731  df-tendo 41327  df-edring 41329  df-disoa 41601  df-dvech 41651  df-dib 41711  df-dic 41745  df-dih 41801
This theorem is referenced by:  dihmeetlem19N  41897
  Copyright terms: Public domain W3C validator