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

Theorem pnonsingN 35639
Description: The intersection of a set of atoms and its polarity is empty. Definition of nonsingular in [Holland95] p. 214. (Contributed by NM, 29-Jan-2012.) (New usage is discouraged.)
Hypotheses
Ref Expression
2polat.a 𝐴 = (Atoms‘𝐾)
2polat.p 𝑃 = (⊥𝑃𝐾)
Assertion
Ref Expression
pnonsingN ((𝐾 ∈ HL ∧ 𝑋𝐴) → (𝑋 ∩ (𝑃𝑋)) = ∅)

Proof of Theorem pnonsingN
StepHypRef Expression
1 2polat.a . . . . 5 𝐴 = (Atoms‘𝐾)
2 2polat.p . . . . 5 𝑃 = (⊥𝑃𝐾)
31, 22polssN 35621 . . . 4 ((𝐾 ∈ HL ∧ 𝑋𝐴) → 𝑋 ⊆ (𝑃‘(𝑃𝑋)))
4 ssrin 3946 . . . 4 (𝑋 ⊆ (𝑃‘(𝑃𝑋)) → (𝑋 ∩ (𝑃𝑋)) ⊆ ((𝑃‘(𝑃𝑋)) ∩ (𝑃𝑋)))
53, 4syl 17 . . 3 ((𝐾 ∈ HL ∧ 𝑋𝐴) → (𝑋 ∩ (𝑃𝑋)) ⊆ ((𝑃‘(𝑃𝑋)) ∩ (𝑃𝑋)))
6 eqid 2724 . . . . . 6 (lub‘𝐾) = (lub‘𝐾)
7 eqid 2724 . . . . . 6 (pmap‘𝐾) = (pmap‘𝐾)
86, 1, 7, 22polvalN 35620 . . . . 5 ((𝐾 ∈ HL ∧ 𝑋𝐴) → (𝑃‘(𝑃𝑋)) = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑋)))
9 eqid 2724 . . . . . 6 (oc‘𝐾) = (oc‘𝐾)
106, 9, 1, 7, 2polval2N 35612 . . . . 5 ((𝐾 ∈ HL ∧ 𝑋𝐴) → (𝑃𝑋) = ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑋))))
118, 10ineq12d 3923 . . . 4 ((𝐾 ∈ HL ∧ 𝑋𝐴) → ((𝑃‘(𝑃𝑋)) ∩ (𝑃𝑋)) = (((pmap‘𝐾)‘((lub‘𝐾)‘𝑋)) ∩ ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑋)))))
12 hlop 35069 . . . . . . . 8 (𝐾 ∈ HL → 𝐾 ∈ OP)
1312adantr 472 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑋𝐴) → 𝐾 ∈ OP)
14 hlclat 35065 . . . . . . . 8 (𝐾 ∈ HL → 𝐾 ∈ CLat)
15 eqid 2724 . . . . . . . . . 10 (Base‘𝐾) = (Base‘𝐾)
1615, 1atssbase 34997 . . . . . . . . 9 𝐴 ⊆ (Base‘𝐾)
17 sstr 3717 . . . . . . . . 9 ((𝑋𝐴𝐴 ⊆ (Base‘𝐾)) → 𝑋 ⊆ (Base‘𝐾))
1816, 17mpan2 709 . . . . . . . 8 (𝑋𝐴𝑋 ⊆ (Base‘𝐾))
1915, 6clatlubcl 17234 . . . . . . . 8 ((𝐾 ∈ CLat ∧ 𝑋 ⊆ (Base‘𝐾)) → ((lub‘𝐾)‘𝑋) ∈ (Base‘𝐾))
2014, 18, 19syl2an 495 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑋𝐴) → ((lub‘𝐾)‘𝑋) ∈ (Base‘𝐾))
21 eqid 2724 . . . . . . . 8 (meet‘𝐾) = (meet‘𝐾)
22 eqid 2724 . . . . . . . 8 (0.‘𝐾) = (0.‘𝐾)
2315, 9, 21, 22opnoncon 34915 . . . . . . 7 ((𝐾 ∈ OP ∧ ((lub‘𝐾)‘𝑋) ∈ (Base‘𝐾)) → (((lub‘𝐾)‘𝑋)(meet‘𝐾)((oc‘𝐾)‘((lub‘𝐾)‘𝑋))) = (0.‘𝐾))
2413, 20, 23syl2anc 696 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑋𝐴) → (((lub‘𝐾)‘𝑋)(meet‘𝐾)((oc‘𝐾)‘((lub‘𝐾)‘𝑋))) = (0.‘𝐾))
2524fveq2d 6308 . . . . 5 ((𝐾 ∈ HL ∧ 𝑋𝐴) → ((pmap‘𝐾)‘(((lub‘𝐾)‘𝑋)(meet‘𝐾)((oc‘𝐾)‘((lub‘𝐾)‘𝑋)))) = ((pmap‘𝐾)‘(0.‘𝐾)))
26 simpl 474 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑋𝐴) → 𝐾 ∈ HL)
2715, 9opoccl 34901 . . . . . . 7 ((𝐾 ∈ OP ∧ ((lub‘𝐾)‘𝑋) ∈ (Base‘𝐾)) → ((oc‘𝐾)‘((lub‘𝐾)‘𝑋)) ∈ (Base‘𝐾))
2813, 20, 27syl2anc 696 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑋𝐴) → ((oc‘𝐾)‘((lub‘𝐾)‘𝑋)) ∈ (Base‘𝐾))
2915, 21, 1, 7pmapmeet 35479 . . . . . 6 ((𝐾 ∈ HL ∧ ((lub‘𝐾)‘𝑋) ∈ (Base‘𝐾) ∧ ((oc‘𝐾)‘((lub‘𝐾)‘𝑋)) ∈ (Base‘𝐾)) → ((pmap‘𝐾)‘(((lub‘𝐾)‘𝑋)(meet‘𝐾)((oc‘𝐾)‘((lub‘𝐾)‘𝑋)))) = (((pmap‘𝐾)‘((lub‘𝐾)‘𝑋)) ∩ ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑋)))))
3026, 20, 28, 29syl3anc 1439 . . . . 5 ((𝐾 ∈ HL ∧ 𝑋𝐴) → ((pmap‘𝐾)‘(((lub‘𝐾)‘𝑋)(meet‘𝐾)((oc‘𝐾)‘((lub‘𝐾)‘𝑋)))) = (((pmap‘𝐾)‘((lub‘𝐾)‘𝑋)) ∩ ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑋)))))
31 hlatl 35067 . . . . . . 7 (𝐾 ∈ HL → 𝐾 ∈ AtLat)
3231adantr 472 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑋𝐴) → 𝐾 ∈ AtLat)
3322, 7pmap0 35471 . . . . . 6 (𝐾 ∈ AtLat → ((pmap‘𝐾)‘(0.‘𝐾)) = ∅)
3432, 33syl 17 . . . . 5 ((𝐾 ∈ HL ∧ 𝑋𝐴) → ((pmap‘𝐾)‘(0.‘𝐾)) = ∅)
3525, 30, 343eqtr3d 2766 . . . 4 ((𝐾 ∈ HL ∧ 𝑋𝐴) → (((pmap‘𝐾)‘((lub‘𝐾)‘𝑋)) ∩ ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑋)))) = ∅)
3611, 35eqtrd 2758 . . 3 ((𝐾 ∈ HL ∧ 𝑋𝐴) → ((𝑃‘(𝑃𝑋)) ∩ (𝑃𝑋)) = ∅)
375, 36sseqtrd 3747 . 2 ((𝐾 ∈ HL ∧ 𝑋𝐴) → (𝑋 ∩ (𝑃𝑋)) ⊆ ∅)
38 ss0b 4081 . 2 ((𝑋 ∩ (𝑃𝑋)) ⊆ ∅ ↔ (𝑋 ∩ (𝑃𝑋)) = ∅)
3937, 38sylib 208 1 ((𝐾 ∈ HL ∧ 𝑋𝐴) → (𝑋 ∩ (𝑃𝑋)) = ∅)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 383   = wceq 1596  wcel 2103  cin 3679  wss 3680  c0 4023  cfv 6001  (class class class)co 6765  Basecbs 15980  occoc 16072  lubclub 17064  meetcmee 17067  0.cp0 17159  CLatccla 17229  OPcops 34879  Atomscatm 34970  AtLatcal 34971  HLchlt 35057  pmapcpmap 35203  𝑃cpolN 35608
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1835  ax-4 1850  ax-5 1952  ax-6 2018  ax-7 2054  ax-8 2105  ax-9 2112  ax-10 2132  ax-11 2147  ax-12 2160  ax-13 2355  ax-ext 2704  ax-rep 4879  ax-sep 4889  ax-nul 4897  ax-pow 4948  ax-pr 5011  ax-un 7066  ax-riotaBAD 34659
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3an 1074  df-tru 1599  df-ex 1818  df-nf 1823  df-sb 2011  df-eu 2575  df-mo 2576  df-clab 2711  df-cleq 2717  df-clel 2720  df-nfc 2855  df-ne 2897  df-nel 3000  df-ral 3019  df-rex 3020  df-reu 3021  df-rmo 3022  df-rab 3023  df-v 3306  df-sbc 3542  df-csb 3640  df-dif 3683  df-un 3685  df-in 3687  df-ss 3694  df-nul 4024  df-if 4195  df-pw 4268  df-sn 4286  df-pr 4288  df-op 4292  df-uni 4545  df-iun 4630  df-iin 4631  df-br 4761  df-opab 4821  df-mpt 4838  df-id 5128  df-xp 5224  df-rel 5225  df-cnv 5226  df-co 5227  df-dm 5228  df-rn 5229  df-res 5230  df-ima 5231  df-iota 5964  df-fun 6003  df-fn 6004  df-f 6005  df-f1 6006  df-fo 6007  df-f1o 6008  df-fv 6009  df-riota 6726  df-ov 6768  df-oprab 6769  df-undef 7519  df-preset 17050  df-poset 17068  df-plt 17080  df-lub 17096  df-glb 17097  df-join 17098  df-meet 17099  df-p0 17161  df-p1 17162  df-lat 17168  df-clat 17230  df-oposet 34883  df-ol 34885  df-oml 34886  df-covers 34973  df-ats 34974  df-atl 35005  df-cvlat 35029  df-hlat 35058  df-pmap 35210  df-polarityN 35609
This theorem is referenced by:  osumcllem4N  35665  pexmidN  35675  pexmidlem1N  35676
  Copyright terms: Public domain W3C validator