Theorem poldmj1N 34232

Description: De Morgan's law for polarity of projective sum. (oldmj1 33526 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

Step	Hyp	Ref	Expression
1		paddun.a	. . 3 ⊢ 𝐴 = (Atoms‘𝐾)
2		paddun.p	. . 3 ⊢ + = (+𝑃‘𝐾)
3		paddun.o	. . 3 ⊢ ⊥ = (⊥𝑃‘𝐾)
4	1, 2, 3	paddunN 34231	. 2 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → ( ⊥ ‘(𝑆 + 𝑇)) = ( ⊥ ‘(𝑆 ∪ 𝑇)))
5		simp1 1054	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → 𝐾 ∈ HL)
6		unss 3749	. . . . 5 ⊢ ((𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) ↔ (𝑆 ∪ 𝑇) ⊆ 𝐴)
7	6	biimpi 205	. . . 4 ⊢ ((𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → (𝑆 ∪ 𝑇) ⊆ 𝐴)
8	7	3adant1 1072	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → (𝑆 ∪ 𝑇) ⊆ 𝐴)
9		eqid 2610	. . . 4 ⊢ (lub‘𝐾) = (lub‘𝐾)
10		eqid 2610	. . . 4 ⊢ (oc‘𝐾) = (oc‘𝐾)
11		eqid 2610	. . . 4 ⊢ (pmap‘𝐾) = (pmap‘𝐾)
12	9, 10, 1, 11, 3	polval2N 34210	. . 3 ⊢ ((𝐾 ∈ HL ∧ (𝑆 ∪ 𝑇) ⊆ 𝐴) → ( ⊥ ‘(𝑆 ∪ 𝑇)) = ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘(𝑆 ∪ 𝑇)))))
13	5, 8, 12	syl2anc 691	. 2 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → ( ⊥ ‘(𝑆 ∪ 𝑇)) = ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘(𝑆 ∪ 𝑇)))))
14		hlop 33667	. . . . . 6 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OP)
15	14	3ad2ant1 1075	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → 𝐾 ∈ OP)
16		hlclat 33663	. . . . . . 7 ⊢ (𝐾 ∈ HL → 𝐾 ∈ CLat)
17	16	3ad2ant1 1075	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → 𝐾 ∈ CLat)
18		simp2 1055	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → 𝑆 ⊆ 𝐴)
19		eqid 2610	. . . . . . . 8 ⊢ (Base‘𝐾) = (Base‘𝐾)
20	19, 1	atssbase 33595	. . . . . . 7 ⊢ 𝐴 ⊆ (Base‘𝐾)
21	18, 20	syl6ss 3580	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → 𝑆 ⊆ (Base‘𝐾))
22	19, 9	clatlubcl 16935	. . . . . 6 ⊢ ((𝐾 ∈ CLat ∧ 𝑆 ⊆ (Base‘𝐾)) → ((lub‘𝐾)‘𝑆) ∈ (Base‘𝐾))
23	17, 21, 22	syl2anc 691	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → ((lub‘𝐾)‘𝑆) ∈ (Base‘𝐾))
24	19, 10	opoccl 33499	. . . . 5 ⊢ ((𝐾 ∈ OP ∧ ((lub‘𝐾)‘𝑆) ∈ (Base‘𝐾)) → ((oc‘𝐾)‘((lub‘𝐾)‘𝑆)) ∈ (Base‘𝐾))
25	15, 23, 24	syl2anc 691	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → ((oc‘𝐾)‘((lub‘𝐾)‘𝑆)) ∈ (Base‘𝐾))
26		simp3 1056	. . . . . . 7 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → 𝑇 ⊆ 𝐴)
27	26, 20	syl6ss 3580	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → 𝑇 ⊆ (Base‘𝐾))
28	19, 9	clatlubcl 16935	. . . . . 6 ⊢ ((𝐾 ∈ CLat ∧ 𝑇 ⊆ (Base‘𝐾)) → ((lub‘𝐾)‘𝑇) ∈ (Base‘𝐾))
29	17, 27, 28	syl2anc 691	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → ((lub‘𝐾)‘𝑇) ∈ (Base‘𝐾))
30	19, 10	opoccl 33499	. . . . 5 ⊢ ((𝐾 ∈ OP ∧ ((lub‘𝐾)‘𝑇) ∈ (Base‘𝐾)) → ((oc‘𝐾)‘((lub‘𝐾)‘𝑇)) ∈ (Base‘𝐾))
31	15, 29, 30	syl2anc 691	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → ((oc‘𝐾)‘((lub‘𝐾)‘𝑇)) ∈ (Base‘𝐾))
32		eqid 2610	. . . . 5 ⊢ (meet‘𝐾) = (meet‘𝐾)
33	19, 32, 1, 11	pmapmeet 34077	. . . 4 ⊢ ((𝐾 ∈ HL ∧ ((oc‘𝐾)‘((lub‘𝐾)‘𝑆)) ∈ (Base‘𝐾) ∧ ((oc‘𝐾)‘((lub‘𝐾)‘𝑇)) ∈ (Base‘𝐾)) → ((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑆))(meet‘𝐾)((oc‘𝐾)‘((lub‘𝐾)‘𝑇)))) = (((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑆))) ∩ ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑇)))))
34	5, 25, 31, 33	syl3anc 1318	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → ((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑆))(meet‘𝐾)((oc‘𝐾)‘((lub‘𝐾)‘𝑇)))) = (((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑆))) ∩ ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑇)))))
35		eqid 2610	. . . . . . . 8 ⊢ (join‘𝐾) = (join‘𝐾)
36	19, 35, 9	lubun 16946	. . . . . . 7 ⊢ ((𝐾 ∈ CLat ∧ 𝑆 ⊆ (Base‘𝐾) ∧ 𝑇 ⊆ (Base‘𝐾)) → ((lub‘𝐾)‘(𝑆 ∪ 𝑇)) = (((lub‘𝐾)‘𝑆)(join‘𝐾)((lub‘𝐾)‘𝑇)))
37	17, 21, 27, 36	syl3anc 1318	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → ((lub‘𝐾)‘(𝑆 ∪ 𝑇)) = (((lub‘𝐾)‘𝑆)(join‘𝐾)((lub‘𝐾)‘𝑇)))
38	37	fveq2d 6107	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → ((oc‘𝐾)‘((lub‘𝐾)‘(𝑆 ∪ 𝑇))) = ((oc‘𝐾)‘(((lub‘𝐾)‘𝑆)(join‘𝐾)((lub‘𝐾)‘𝑇))))
39		hlol 33666	. . . . . . 7 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OL)
40	39	3ad2ant1 1075	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → 𝐾 ∈ OL)
41	19, 35, 32, 10	oldmj1 33526	. . . . . 6 ⊢ ((𝐾 ∈ OL ∧ ((lub‘𝐾)‘𝑆) ∈ (Base‘𝐾) ∧ ((lub‘𝐾)‘𝑇) ∈ (Base‘𝐾)) → ((oc‘𝐾)‘(((lub‘𝐾)‘𝑆)(join‘𝐾)((lub‘𝐾)‘𝑇))) = (((oc‘𝐾)‘((lub‘𝐾)‘𝑆))(meet‘𝐾)((oc‘𝐾)‘((lub‘𝐾)‘𝑇))))
42	40, 23, 29, 41	syl3anc 1318	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → ((oc‘𝐾)‘(((lub‘𝐾)‘𝑆)(join‘𝐾)((lub‘𝐾)‘𝑇))) = (((oc‘𝐾)‘((lub‘𝐾)‘𝑆))(meet‘𝐾)((oc‘𝐾)‘((lub‘𝐾)‘𝑇))))
43	38, 42	eqtrd 2644	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → ((oc‘𝐾)‘((lub‘𝐾)‘(𝑆 ∪ 𝑇))) = (((oc‘𝐾)‘((lub‘𝐾)‘𝑆))(meet‘𝐾)((oc‘𝐾)‘((lub‘𝐾)‘𝑇))))
44	43	fveq2d 6107	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘(𝑆 ∪ 𝑇)))) = ((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑆))(meet‘𝐾)((oc‘𝐾)‘((lub‘𝐾)‘𝑇)))))
45	9, 10, 1, 11, 3	polval2N 34210	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴) → ( ⊥ ‘𝑆) = ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑆))))
46	45	3adant3 1074	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → ( ⊥ ‘𝑆) = ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑆))))
47	9, 10, 1, 11, 3	polval2N 34210	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑇 ⊆ 𝐴) → ( ⊥ ‘𝑇) = ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑇))))
48	47	3adant2 1073	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → ( ⊥ ‘𝑇) = ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑇))))
49	46, 48	ineq12d 3777	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → (( ⊥ ‘𝑆) ∩ ( ⊥ ‘𝑇)) = (((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑆))) ∩ ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑇)))))
50	34, 44, 49	3eqtr4d 2654	. 2 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘(𝑆 ∪ 𝑇)))) = (( ⊥ ‘𝑆) ∩ ( ⊥ ‘𝑇)))
51	4, 13, 50	3eqtrd 2648	1 ⊢ ((𝐾 ∈ HL ∧ 𝑆 ⊆ 𝐴 ∧ 𝑇 ⊆ 𝐴) → ( ⊥ ‘(𝑆 + 𝑇)) = (( ⊥ ‘𝑆) ∩ ( ⊥ ‘𝑇)))

Syntax hints:   → wi 4   ∧ wa 383   ∧ w3a 1031   = wceq 1475   ∈ wcel 1977   ∪ cun 3538   ∩ cin 3539   ⊆ wss 3540  ‘cfv 5804  (class class class)co 6549  Basecbs 15695  occoc 15776  lubclub 16765  joincjn 16767  meetcmee 16768  CLatccla 16930  OPcops 33477  OLcol 33479  Atomscatm 33568  HLchlt 33655  pmapcpmap 33801  +_𝑃cpadd 34099  ⊥_𝑃cpolN 34206

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-rep 4699  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833  ax-un 6847  ax-riotaBAD 33257

This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3an 1033  df-tru 1478  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-nel 2783  df-ral 2901  df-rex 2902  df-reu 2903  df-rmo 2904  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-op 4132  df-uni 4373  df-iun 4457  df-iin 4458  df-br 4584  df-opab 4644  df-mpt 4645  df-id 4953  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-f1 5809  df-fo 5810  df-f1o 5811  df-fv 5812  df-riota 6511  df-ov 6552  df-oprab 6553  df-mpt2 6554  df-1st 7059  df-2nd 7060  df-undef 7286  df-preset 16751  df-poset 16769  df-plt 16781  df-lub 16797  df-glb 16798  df-join 16799  df-meet 16800  df-p0 16862  df-p1 16863  df-lat 16869  df-clat 16931  df-oposet 33481  df-ol 33483  df-oml 33484  df-covers 33571  df-ats 33572  df-atl 33603  df-cvlat 33627  df-hlat 33656  df-psubsp 33807  df-pmap 33808  df-padd 34100  df-polarityN 34207

This theorem is referenced by:  pmapj2N  34233  osumcllem3N  34262  pexmidN  34273