poml4N - Mathbox for Norm Megill

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

Theorem poml4N 39955

Description: Orthomodular law for projective lattices. Lemma 3.3(1) in [Holland95] p. 215. (Contributed by NM, 25-Jan-2012.) (New usage is discouraged.)

**Hypotheses**
Ref	Expression
poml4.a	⊢ 𝐴 = (Atoms‘𝐾)
poml4.p	⊢ ⊥ = (⊥_𝑃‘𝐾)

**Assertion**
Ref	Expression
poml4N	⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) → ((𝑋 ⊆ 𝑌 ∧ ( ⊥ ‘( ⊥ ‘𝑌)) = 𝑌) → (( ⊥ ‘(( ⊥ ‘𝑋) ∩ 𝑌)) ∩ 𝑌) = ( ⊥ ‘( ⊥ ‘𝑋))))

**Proof of Theorem poml4N**
Step	Hyp	Ref	Expression
1		eqcom 2744	. . 3 ⊢ (( ⊥ ‘( ⊥ ‘𝑌)) = 𝑌 ↔ 𝑌 = ( ⊥ ‘( ⊥ ‘𝑌)))
2		eqid 2737	. . . . . . 7 ⊢ (lub‘𝐾) = (lub‘𝐾)
3		poml4.a	. . . . . . 7 ⊢ 𝐴 = (Atoms‘𝐾)
4		eqid 2737	. . . . . . 7 ⊢ (pmap‘𝐾) = (pmap‘𝐾)
5		poml4.p	. . . . . . 7 ⊢ ⊥ = (⊥_𝑃‘𝐾)
6	2, 3, 4, 5	2polvalN 39916	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑌 ⊆ 𝐴) → ( ⊥ ‘( ⊥ ‘𝑌)) = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))
7	6	3adant2 1132	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) → ( ⊥ ‘( ⊥ ‘𝑌)) = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))
8	7	eqeq2d 2748	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) → (𝑌 = ( ⊥ ‘( ⊥ ‘𝑌)) ↔ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
9	8	biimpd 229	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) → (𝑌 = ( ⊥ ‘( ⊥ ‘𝑌)) → 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
10	1, 9	biimtrid 242	. 2 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) → (( ⊥ ‘( ⊥ ‘𝑌)) = 𝑌 → 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
11		simpl1 1192	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝐾 ∈ HL)
12		hloml 39358	. . . . . . . 8 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OML)
13	11, 12	syl 17	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝐾 ∈ OML)
14		hlclat 39359	. . . . . . . . 9 ⊢ (𝐾 ∈ HL → 𝐾 ∈ CLat)
15	11, 14	syl 17	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝐾 ∈ CLat)
16		simpl2 1193	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝑋 ⊆ 𝐴)
17		eqid 2737	. . . . . . . . . 10 ⊢ (Base‘𝐾) = (Base‘𝐾)
18	17, 3	atssbase 39291	. . . . . . . . 9 ⊢ 𝐴 ⊆ (Base‘𝐾)
19	16, 18	sstrdi 3996	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝑋 ⊆ (Base‘𝐾))
20	17, 2	clatlubcl 18548	. . . . . . . 8 ⊢ ((𝐾 ∈ CLat ∧ 𝑋 ⊆ (Base‘𝐾)) → ((lub‘𝐾)‘𝑋) ∈ (Base‘𝐾))
21	15, 19, 20	syl2anc 584	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ((lub‘𝐾)‘𝑋) ∈ (Base‘𝐾))
22		simpl3 1194	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝑌 ⊆ 𝐴)
23	22, 18	sstrdi 3996	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝑌 ⊆ (Base‘𝐾))
24	17, 2	clatlubcl 18548	. . . . . . . 8 ⊢ ((𝐾 ∈ CLat ∧ 𝑌 ⊆ (Base‘𝐾)) → ((lub‘𝐾)‘𝑌) ∈ (Base‘𝐾))
25	15, 23, 24	syl2anc 584	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ((lub‘𝐾)‘𝑌) ∈ (Base‘𝐾))
26	13, 21, 25	3jca 1129	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → (𝐾 ∈ OML ∧ ((lub‘𝐾)‘𝑋) ∈ (Base‘𝐾) ∧ ((lub‘𝐾)‘𝑌) ∈ (Base‘𝐾)))
27		simprl 771	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝑋 ⊆ 𝑌)
28		eqid 2737	. . . . . . . 8 ⊢ (le‘𝐾) = (le‘𝐾)
29	17, 28, 2	lubss 18558	. . . . . . 7 ⊢ ((𝐾 ∈ CLat ∧ 𝑌 ⊆ (Base‘𝐾) ∧ 𝑋 ⊆ 𝑌) → ((lub‘𝐾)‘𝑋)(le‘𝐾)((lub‘𝐾)‘𝑌))
30	15, 23, 27, 29	syl3anc 1373	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ((lub‘𝐾)‘𝑋)(le‘𝐾)((lub‘𝐾)‘𝑌))
31		eqid 2737	. . . . . . 7 ⊢ (meet‘𝐾) = (meet‘𝐾)
32		eqid 2737	. . . . . . 7 ⊢ (oc‘𝐾) = (oc‘𝐾)
33	17, 28, 31, 32	omllaw4 39247	. . . . . 6 ⊢ ((𝐾 ∈ OML ∧ ((lub‘𝐾)‘𝑋) ∈ (Base‘𝐾) ∧ ((lub‘𝐾)‘𝑌) ∈ (Base‘𝐾)) → (((lub‘𝐾)‘𝑋)(le‘𝐾)((lub‘𝐾)‘𝑌) → (((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))(meet‘𝐾)((lub‘𝐾)‘𝑌)) = ((lub‘𝐾)‘𝑋)))
34	26, 30, 33	sylc 65	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → (((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))(meet‘𝐾)((lub‘𝐾)‘𝑌)) = ((lub‘𝐾)‘𝑋))
35	34	fveq2d 6910	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ((pmap‘𝐾)‘(((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))(meet‘𝐾)((lub‘𝐾)‘𝑌))) = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑋)))
36	2, 32, 3, 4, 5	polval2N 39908	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴) → ( ⊥ ‘𝑋) = ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑋))))
37	11, 16, 36	syl2anc 584	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ( ⊥ ‘𝑋) = ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑋))))
38		simprr 773	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))
39	37, 38	ineq12d 4221	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → (( ⊥ ‘𝑋) ∩ 𝑌) = (((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑋))) ∩ ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
40		hlop 39363	. . . . . . . . . . . 12 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OP)
41	11, 40	syl 17	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝐾 ∈ OP)
42	17, 32	opoccl 39195	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ OP ∧ ((lub‘𝐾)‘𝑋) ∈ (Base‘𝐾)) → ((oc‘𝐾)‘((lub‘𝐾)‘𝑋)) ∈ (Base‘𝐾))
43	41, 21, 42	syl2anc 584	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ((oc‘𝐾)‘((lub‘𝐾)‘𝑋)) ∈ (Base‘𝐾))
44	17, 31, 3, 4	pmapmeet 39775	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ ((oc‘𝐾)‘((lub‘𝐾)‘𝑋)) ∈ (Base‘𝐾) ∧ ((lub‘𝐾)‘𝑌) ∈ (Base‘𝐾)) → ((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌))) = (((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑋))) ∩ ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
45	11, 43, 25, 44	syl3anc 1373	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌))) = (((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑋))) ∩ ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
46	39, 45	eqtr4d 2780	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → (( ⊥ ‘𝑋) ∩ 𝑌) = ((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌))))
47	46	fveq2d 6910	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ( ⊥ ‘(( ⊥ ‘𝑋) ∩ 𝑌)) = ( ⊥ ‘((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))))
48	11	hllatd 39365	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝐾 ∈ Lat)
49	17, 31	latmcl 18485	. . . . . . . . 9 ⊢ ((𝐾 ∈ Lat ∧ ((oc‘𝐾)‘((lub‘𝐾)‘𝑋)) ∈ (Base‘𝐾) ∧ ((lub‘𝐾)‘𝑌) ∈ (Base‘𝐾)) → (((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)) ∈ (Base‘𝐾))
50	48, 43, 25, 49	syl3anc 1373	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → (((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)) ∈ (Base‘𝐾))
51	17, 32, 4, 5	polpmapN 39914	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ (((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)) ∈ (Base‘𝐾)) → ( ⊥ ‘((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))) = ((pmap‘𝐾)‘((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))))
52	11, 50, 51	syl2anc 584	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ( ⊥ ‘((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))) = ((pmap‘𝐾)‘((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))))
53	47, 52	eqtrd 2777	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ( ⊥ ‘(( ⊥ ‘𝑋) ∩ 𝑌)) = ((pmap‘𝐾)‘((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))))
54	53, 38	ineq12d 4221	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → (( ⊥ ‘(( ⊥ ‘𝑋) ∩ 𝑌)) ∩ 𝑌) = (((pmap‘𝐾)‘((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))) ∩ ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
55	17, 32	opoccl 39195	. . . . . . 7 ⊢ ((𝐾 ∈ OP ∧ (((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)) ∈ (Base‘𝐾)) → ((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌))) ∈ (Base‘𝐾))
56	41, 50, 55	syl2anc 584	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌))) ∈ (Base‘𝐾))
57	17, 31, 3, 4	pmapmeet 39775	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ ((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌))) ∈ (Base‘𝐾) ∧ ((lub‘𝐾)‘𝑌) ∈ (Base‘𝐾)) → ((pmap‘𝐾)‘(((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))(meet‘𝐾)((lub‘𝐾)‘𝑌))) = (((pmap‘𝐾)‘((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))) ∩ ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
58	11, 56, 25, 57	syl3anc 1373	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ((pmap‘𝐾)‘(((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))(meet‘𝐾)((lub‘𝐾)‘𝑌))) = (((pmap‘𝐾)‘((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))) ∩ ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
59	54, 58	eqtr4d 2780	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → (( ⊥ ‘(( ⊥ ‘𝑋) ∩ 𝑌)) ∩ 𝑌) = ((pmap‘𝐾)‘(((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))(meet‘𝐾)((lub‘𝐾)‘𝑌))))
60	2, 3, 4, 5	2polvalN 39916	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴) → ( ⊥ ‘( ⊥ ‘𝑋)) = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑋)))
61	11, 16, 60	syl2anc 584	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ( ⊥ ‘( ⊥ ‘𝑋)) = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑋)))
62	35, 59, 61	3eqtr4d 2787	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → (( ⊥ ‘(( ⊥ ‘𝑋) ∩ 𝑌)) ∩ 𝑌) = ( ⊥ ‘( ⊥ ‘𝑋)))
63	62	ex 412	. 2 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) → ((𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))) → (( ⊥ ‘(( ⊥ ‘𝑋) ∩ 𝑌)) ∩ 𝑌) = ( ⊥ ‘( ⊥ ‘𝑋))))
64	10, 63	sylan2d 605	1 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) → ((𝑋 ⊆ 𝑌 ∧ ( ⊥ ‘( ⊥ ‘𝑌)) = 𝑌) → (( ⊥ ‘(( ⊥ ‘𝑋) ∩ 𝑌)) ∩ 𝑌) = ( ⊥ ‘( ⊥ ‘𝑋))))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 395 ∧ w3a 1087 = wceq 1540 ∈ wcel 2108 ∩ cin 3950 ⊆ wss 3951 class class class wbr 5143 ‘cfv 6561 (class class class)co 7431 Basecbs 17247 lecple 17304 occoc 17305 lubclub 18355 meetcmee 18358 Latclat 18476 CLatccla 18543 OPcops 39173 OMLcoml 39176 Atomscatm 39264 HLchlt 39351 pmapcpmap 39499 ⊥_𝑃cpolN 39904

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2007 ax-8 2110 ax-9 2118 ax-10 2141 ax-11 2157 ax-12 2177 ax-ext 2708 ax-rep 5279 ax-sep 5296 ax-nul 5306 ax-pow 5365 ax-pr 5432 ax-un 7755

This theorem depends on definitions: df-bi 207 df-an 396 df-or 849 df-3an 1089 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2065 df-mo 2540 df-eu 2569 df-clab 2715 df-cleq 2729 df-clel 2816 df-nfc 2892 df-ne 2941 df-ral 3062 df-rex 3071 df-rmo 3380 df-reu 3381 df-rab 3437 df-v 3482 df-sbc 3789 df-csb 3900 df-dif 3954 df-un 3956 df-in 3958 df-ss 3968 df-nul 4334 df-if 4526 df-pw 4602 df-sn 4627 df-pr 4629 df-op 4633 df-uni 4908 df-iun 4993 df-iin 4994 df-br 5144 df-opab 5206 df-mpt 5226 df-id 5578 df-xp 5691 df-rel 5692 df-cnv 5693 df-co 5694 df-dm 5695 df-rn 5696 df-res 5697 df-ima 5698 df-iota 6514 df-fun 6563 df-fn 6564 df-f 6565 df-f1 6566 df-fo 6567 df-f1o 6568 df-fv 6569 df-riota 7388 df-ov 7434 df-oprab 7435 df-proset 18340 df-poset 18359 df-plt 18375 df-lub 18391 df-glb 18392 df-join 18393 df-meet 18394 df-p0 18470 df-p1 18471 df-lat 18477 df-clat 18544 df-oposet 39177 df-ol 39179 df-oml 39180 df-covers 39267 df-ats 39268 df-atl 39299 df-cvlat 39323 df-hlat 39352 df-pmap 39506 df-polarityN 39905

This theorem is referenced by: poml5N 39956 poml6N 39957 pexmidlem6N 39977

W3C validator