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

Theorem poldmj1N 36608
Description: De Morgan's law for polarity of projective sum. (oldmj1 35901 analog.) (Contributed by NM, 7-Mar-2012.) (New usage is discouraged.)
Hypotheses
Ref Expression
paddun.a 𝐴 = (Atoms‘𝐾)
paddun.p + = (+𝑃𝐾)
paddun.o = (⊥𝑃𝐾)
Assertion
Ref Expression
poldmj1N ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → ( ‘(𝑆 + 𝑇)) = (( 𝑆) ∩ ( 𝑇)))

Proof of Theorem poldmj1N
StepHypRef Expression
1 paddun.a . . 3 𝐴 = (Atoms‘𝐾)
2 paddun.p . . 3 + = (+𝑃𝐾)
3 paddun.o . . 3 = (⊥𝑃𝐾)
41, 2, 3paddunN 36607 . 2 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → ( ‘(𝑆 + 𝑇)) = ( ‘(𝑆𝑇)))
5 simp1 1129 . . 3 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → 𝐾 ∈ HL)
6 unss 4083 . . . . 5 ((𝑆𝐴𝑇𝐴) ↔ (𝑆𝑇) ⊆ 𝐴)
76biimpi 217 . . . 4 ((𝑆𝐴𝑇𝐴) → (𝑆𝑇) ⊆ 𝐴)
873adant1 1123 . . 3 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → (𝑆𝑇) ⊆ 𝐴)
9 eqid 2794 . . . 4 (lub‘𝐾) = (lub‘𝐾)
10 eqid 2794 . . . 4 (oc‘𝐾) = (oc‘𝐾)
11 eqid 2794 . . . 4 (pmap‘𝐾) = (pmap‘𝐾)
129, 10, 1, 11, 3polval2N 36586 . . 3 ((𝐾 ∈ HL ∧ (𝑆𝑇) ⊆ 𝐴) → ( ‘(𝑆𝑇)) = ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘(𝑆𝑇)))))
135, 8, 12syl2anc 584 . 2 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → ( ‘(𝑆𝑇)) = ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘(𝑆𝑇)))))
14 hlop 36042 . . . . . 6 (𝐾 ∈ HL → 𝐾 ∈ OP)
15143ad2ant1 1126 . . . . 5 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → 𝐾 ∈ OP)
16 hlclat 36038 . . . . . . 7 (𝐾 ∈ HL → 𝐾 ∈ CLat)
17163ad2ant1 1126 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → 𝐾 ∈ CLat)
18 simp2 1130 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → 𝑆𝐴)
19 eqid 2794 . . . . . . . 8 (Base‘𝐾) = (Base‘𝐾)
2019, 1atssbase 35970 . . . . . . 7 𝐴 ⊆ (Base‘𝐾)
2118, 20syl6ss 3903 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → 𝑆 ⊆ (Base‘𝐾))
2219, 9clatlubcl 17551 . . . . . 6 ((𝐾 ∈ CLat ∧ 𝑆 ⊆ (Base‘𝐾)) → ((lub‘𝐾)‘𝑆) ∈ (Base‘𝐾))
2317, 21, 22syl2anc 584 . . . . 5 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → ((lub‘𝐾)‘𝑆) ∈ (Base‘𝐾))
2419, 10opoccl 35874 . . . . 5 ((𝐾 ∈ OP ∧ ((lub‘𝐾)‘𝑆) ∈ (Base‘𝐾)) → ((oc‘𝐾)‘((lub‘𝐾)‘𝑆)) ∈ (Base‘𝐾))
2515, 23, 24syl2anc 584 . . . 4 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → ((oc‘𝐾)‘((lub‘𝐾)‘𝑆)) ∈ (Base‘𝐾))
26 simp3 1131 . . . . . . 7 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → 𝑇𝐴)
2726, 20syl6ss 3903 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → 𝑇 ⊆ (Base‘𝐾))
2819, 9clatlubcl 17551 . . . . . 6 ((𝐾 ∈ CLat ∧ 𝑇 ⊆ (Base‘𝐾)) → ((lub‘𝐾)‘𝑇) ∈ (Base‘𝐾))
2917, 27, 28syl2anc 584 . . . . 5 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → ((lub‘𝐾)‘𝑇) ∈ (Base‘𝐾))
3019, 10opoccl 35874 . . . . 5 ((𝐾 ∈ OP ∧ ((lub‘𝐾)‘𝑇) ∈ (Base‘𝐾)) → ((oc‘𝐾)‘((lub‘𝐾)‘𝑇)) ∈ (Base‘𝐾))
3115, 29, 30syl2anc 584 . . . 4 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → ((oc‘𝐾)‘((lub‘𝐾)‘𝑇)) ∈ (Base‘𝐾))
32 eqid 2794 . . . . 5 (meet‘𝐾) = (meet‘𝐾)
3319, 32, 1, 11pmapmeet 36453 . . . 4 ((𝐾 ∈ HL ∧ ((oc‘𝐾)‘((lub‘𝐾)‘𝑆)) ∈ (Base‘𝐾) ∧ ((oc‘𝐾)‘((lub‘𝐾)‘𝑇)) ∈ (Base‘𝐾)) → ((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑆))(meet‘𝐾)((oc‘𝐾)‘((lub‘𝐾)‘𝑇)))) = (((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑆))) ∩ ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑇)))))
345, 25, 31, 33syl3anc 1364 . . 3 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → ((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑆))(meet‘𝐾)((oc‘𝐾)‘((lub‘𝐾)‘𝑇)))) = (((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑆))) ∩ ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑇)))))
35 eqid 2794 . . . . . . . 8 (join‘𝐾) = (join‘𝐾)
3619, 35, 9lubun 17562 . . . . . . 7 ((𝐾 ∈ CLat ∧ 𝑆 ⊆ (Base‘𝐾) ∧ 𝑇 ⊆ (Base‘𝐾)) → ((lub‘𝐾)‘(𝑆𝑇)) = (((lub‘𝐾)‘𝑆)(join‘𝐾)((lub‘𝐾)‘𝑇)))
3717, 21, 27, 36syl3anc 1364 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → ((lub‘𝐾)‘(𝑆𝑇)) = (((lub‘𝐾)‘𝑆)(join‘𝐾)((lub‘𝐾)‘𝑇)))
3837fveq2d 6545 . . . . 5 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → ((oc‘𝐾)‘((lub‘𝐾)‘(𝑆𝑇))) = ((oc‘𝐾)‘(((lub‘𝐾)‘𝑆)(join‘𝐾)((lub‘𝐾)‘𝑇))))
39 hlol 36041 . . . . . . 7 (𝐾 ∈ HL → 𝐾 ∈ OL)
40393ad2ant1 1126 . . . . . 6 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → 𝐾 ∈ OL)
4119, 35, 32, 10oldmj1 35901 . . . . . 6 ((𝐾 ∈ OL ∧ ((lub‘𝐾)‘𝑆) ∈ (Base‘𝐾) ∧ ((lub‘𝐾)‘𝑇) ∈ (Base‘𝐾)) → ((oc‘𝐾)‘(((lub‘𝐾)‘𝑆)(join‘𝐾)((lub‘𝐾)‘𝑇))) = (((oc‘𝐾)‘((lub‘𝐾)‘𝑆))(meet‘𝐾)((oc‘𝐾)‘((lub‘𝐾)‘𝑇))))
4240, 23, 29, 41syl3anc 1364 . . . . 5 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → ((oc‘𝐾)‘(((lub‘𝐾)‘𝑆)(join‘𝐾)((lub‘𝐾)‘𝑇))) = (((oc‘𝐾)‘((lub‘𝐾)‘𝑆))(meet‘𝐾)((oc‘𝐾)‘((lub‘𝐾)‘𝑇))))
4338, 42eqtrd 2830 . . . 4 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → ((oc‘𝐾)‘((lub‘𝐾)‘(𝑆𝑇))) = (((oc‘𝐾)‘((lub‘𝐾)‘𝑆))(meet‘𝐾)((oc‘𝐾)‘((lub‘𝐾)‘𝑇))))
4443fveq2d 6545 . . 3 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘(𝑆𝑇)))) = ((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑆))(meet‘𝐾)((oc‘𝐾)‘((lub‘𝐾)‘𝑇)))))
459, 10, 1, 11, 3polval2N 36586 . . . . 5 ((𝐾 ∈ HL ∧ 𝑆𝐴) → ( 𝑆) = ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑆))))
46453adant3 1125 . . . 4 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → ( 𝑆) = ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑆))))
479, 10, 1, 11, 3polval2N 36586 . . . . 5 ((𝐾 ∈ HL ∧ 𝑇𝐴) → ( 𝑇) = ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑇))))
48473adant2 1124 . . . 4 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → ( 𝑇) = ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑇))))
4946, 48ineq12d 4112 . . 3 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → (( 𝑆) ∩ ( 𝑇)) = (((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑆))) ∩ ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑇)))))
5034, 44, 493eqtr4d 2840 . 2 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘(𝑆𝑇)))) = (( 𝑆) ∩ ( 𝑇)))
514, 13, 503eqtrd 2834 1 ((𝐾 ∈ HL ∧ 𝑆𝐴𝑇𝐴) → ( ‘(𝑆 + 𝑇)) = (( 𝑆) ∩ ( 𝑇)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 396  w3a 1080   = wceq 1522  wcel 2080  cun 3859  cin 3860  wss 3861  cfv 6228  (class class class)co 7019  Basecbs 16312  occoc 16402  lubclub 17381  joincjn 17383  meetcmee 17384  CLatccla 17546  OPcops 35852  OLcol 35854  Atomscatm 35943  HLchlt 36030  pmapcpmap 36177  +𝑃cpadd 36475  𝑃cpolN 36582
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1778  ax-4 1792  ax-5 1889  ax-6 1948  ax-7 1993  ax-8 2082  ax-9 2090  ax-10 2111  ax-11 2125  ax-12 2140  ax-13 2343  ax-ext 2768  ax-rep 5084  ax-sep 5097  ax-nul 5104  ax-pow 5160  ax-pr 5224  ax-un 7322  ax-riotaBAD 35633
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 843  df-3an 1082  df-tru 1525  df-ex 1763  df-nf 1767  df-sb 2042  df-mo 2575  df-eu 2611  df-clab 2775  df-cleq 2787  df-clel 2862  df-nfc 2934  df-ne 2984  df-ral 3109  df-rex 3110  df-reu 3111  df-rmo 3112  df-rab 3113  df-v 3438  df-sbc 3708  df-csb 3814  df-dif 3864  df-un 3866  df-in 3868  df-ss 3876  df-nul 4214  df-if 4384  df-pw 4457  df-sn 4475  df-pr 4477  df-op 4481  df-uni 4748  df-iun 4829  df-iin 4830  df-br 4965  df-opab 5027  df-mpt 5044  df-id 5351  df-xp 5452  df-rel 5453  df-cnv 5454  df-co 5455  df-dm 5456  df-rn 5457  df-res 5458  df-ima 5459  df-iota 6192  df-fun 6230  df-fn 6231  df-f 6232  df-f1 6233  df-fo 6234  df-f1o 6235  df-fv 6236  df-riota 6980  df-ov 7022  df-oprab 7023  df-mpo 7024  df-1st 7548  df-2nd 7549  df-undef 7793  df-proset 17367  df-poset 17385  df-plt 17397  df-lub 17413  df-glb 17414  df-join 17415  df-meet 17416  df-p0 17478  df-p1 17479  df-lat 17485  df-clat 17547  df-oposet 35856  df-ol 35858  df-oml 35859  df-covers 35946  df-ats 35947  df-atl 35978  df-cvlat 36002  df-hlat 36031  df-psubsp 36183  df-pmap 36184  df-padd 36476  df-polarityN 36583
This theorem is referenced by:  pmapj2N  36609  osumcllem3N  36638  pexmidN  36649
  Copyright terms: Public domain W3C validator