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 40787

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 2772	. . 3 ⊢ (( ⊥ ‘( ⊥ ‘𝑌)) = 𝑌 ↔ 𝑌 = ( ⊥ ‘( ⊥ ‘𝑌)))
2		eqid 2765	. . . . . . 7 ⊢ (lub‘𝐾) = (lub‘𝐾)
3		poml4.a	. . . . . . 7 ⊢ 𝐴 = (Atoms‘𝐾)
4		eqid 2765	. . . . . . 7 ⊢ (pmap‘𝐾) = (pmap‘𝐾)
5		poml4.p	. . . . . . 7 ⊢ ⊥ = (⊥_𝑃‘𝐾)
6	2, 3, 4, 5	2polvalN 40748	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑌 ⊆ 𝐴) → ( ⊥ ‘( ⊥ ‘𝑌)) = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))
7	6	3adant2 1149	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) → ( ⊥ ‘( ⊥ ‘𝑌)) = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))
8	7	eqeq2d 2776	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) → (𝑌 = ( ⊥ ‘( ⊥ ‘𝑌)) ↔ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
9	8	biimpd 232	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) → (𝑌 = ( ⊥ ‘( ⊥ ‘𝑌)) → 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
10	1, 9	biimtrid 245	. 2 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) → (( ⊥ ‘( ⊥ ‘𝑌)) = 𝑌 → 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
11		simpl1 1210	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝐾 ∈ HL)
12		hloml 40191	. . . . . . . 8 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OML)
13	11, 12	syl 18	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝐾 ∈ OML)
14		hlclat 40192	. . . . . . . . 9 ⊢ (𝐾 ∈ HL → 𝐾 ∈ CLat)
15	11, 14	syl 18	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝐾 ∈ CLat)
16		simpl2 1211	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝑋 ⊆ 𝐴)
17		eqid 2765	. . . . . . . . . 10 ⊢ (Base‘𝐾) = (Base‘𝐾)
18	17, 3	atssbase 40124	. . . . . . . . 9 ⊢ 𝐴 ⊆ (Base‘𝐾)
19	16, 18	sstrdi 3950	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝑋 ⊆ (Base‘𝐾))
20	17, 2	clatlubcl 18583	. . . . . . . 8 ⊢ ((𝐾 ∈ CLat ∧ 𝑋 ⊆ (Base‘𝐾)) → ((lub‘𝐾)‘𝑋) ∈ (Base‘𝐾))
21	15, 19, 20	syl2anc 596	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ((lub‘𝐾)‘𝑋) ∈ (Base‘𝐾))
22		simpl3 1212	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝑌 ⊆ 𝐴)
23	22, 18	sstrdi 3950	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝑌 ⊆ (Base‘𝐾))
24	17, 2	clatlubcl 18583	. . . . . . . 8 ⊢ ((𝐾 ∈ CLat ∧ 𝑌 ⊆ (Base‘𝐾)) → ((lub‘𝐾)‘𝑌) ∈ (Base‘𝐾))
25	15, 23, 24	syl2anc 596	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ((lub‘𝐾)‘𝑌) ∈ (Base‘𝐾))
26	13, 21, 25	3jca 1146	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → (𝐾 ∈ OML ∧ ((lub‘𝐾)‘𝑋) ∈ (Base‘𝐾) ∧ ((lub‘𝐾)‘𝑌) ∈ (Base‘𝐾)))
27		simprl 783	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝑋 ⊆ 𝑌)
28		eqid 2765	. . . . . . . 8 ⊢ (le‘𝐾) = (le‘𝐾)
29	17, 28, 2	lubss 18593	. . . . . . 7 ⊢ ((𝐾 ∈ CLat ∧ 𝑌 ⊆ (Base‘𝐾) ∧ 𝑋 ⊆ 𝑌) → ((lub‘𝐾)‘𝑋)(le‘𝐾)((lub‘𝐾)‘𝑌))
30	15, 23, 27, 29	syl3anc 1398	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ((lub‘𝐾)‘𝑋)(le‘𝐾)((lub‘𝐾)‘𝑌))
31		eqid 2765	. . . . . . 7 ⊢ (meet‘𝐾) = (meet‘𝐾)
32		eqid 2765	. . . . . . 7 ⊢ (oc‘𝐾) = (oc‘𝐾)
33	17, 28, 31, 32	omllaw4 40080	. . . . . 6 ⊢ ((𝐾 ∈ OML ∧ ((lub‘𝐾)‘𝑋) ∈ (Base‘𝐾) ∧ ((lub‘𝐾)‘𝑌) ∈ (Base‘𝐾)) → (((lub‘𝐾)‘𝑋)(le‘𝐾)((lub‘𝐾)‘𝑌) → (((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))(meet‘𝐾)((lub‘𝐾)‘𝑌)) = ((lub‘𝐾)‘𝑋)))
34	26, 30, 33	sylc 66	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → (((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))(meet‘𝐾)((lub‘𝐾)‘𝑌)) = ((lub‘𝐾)‘𝑋))
35	34	fveq2d 6889	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ((pmap‘𝐾)‘(((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))(meet‘𝐾)((lub‘𝐾)‘𝑌))) = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑋)))
36	2, 32, 3, 4, 5	polval2N 40740	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴) → ( ⊥ ‘𝑋) = ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑋))))
37	11, 16, 36	syl2anc 596	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ( ⊥ ‘𝑋) = ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑋))))
38		simprr 785	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))
39	37, 38	ineq12d 4174	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → (( ⊥ ‘𝑋) ∩ 𝑌) = (((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑋))) ∩ ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
40		hlop 40196	. . . . . . . . . . . 12 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OP)
41	11, 40	syl 18	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝐾 ∈ OP)
42	17, 32	opoccl 40028	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ OP ∧ ((lub‘𝐾)‘𝑋) ∈ (Base‘𝐾)) → ((oc‘𝐾)‘((lub‘𝐾)‘𝑋)) ∈ (Base‘𝐾))
43	41, 21, 42	syl2anc 596	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ((oc‘𝐾)‘((lub‘𝐾)‘𝑋)) ∈ (Base‘𝐾))
44	17, 31, 3, 4	pmapmeet 40607	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ ((oc‘𝐾)‘((lub‘𝐾)‘𝑋)) ∈ (Base‘𝐾) ∧ ((lub‘𝐾)‘𝑌) ∈ (Base‘𝐾)) → ((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌))) = (((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑋))) ∩ ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
45	11, 43, 25, 44	syl3anc 1398	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌))) = (((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑋))) ∩ ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
46	39, 45	eqtr4d 2803	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → (( ⊥ ‘𝑋) ∩ 𝑌) = ((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌))))
47	46	fveq2d 6889	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ( ⊥ ‘(( ⊥ ‘𝑋) ∩ 𝑌)) = ( ⊥ ‘((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))))
48	11	hllatd 40198	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝐾 ∈ Lat)
49	17, 31	latmcl 18520	. . . . . . . . 9 ⊢ ((𝐾 ∈ Lat ∧ ((oc‘𝐾)‘((lub‘𝐾)‘𝑋)) ∈ (Base‘𝐾) ∧ ((lub‘𝐾)‘𝑌) ∈ (Base‘𝐾)) → (((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)) ∈ (Base‘𝐾))
50	48, 43, 25, 49	syl3anc 1398	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → (((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)) ∈ (Base‘𝐾))
51	17, 32, 4, 5	polpmapN 40746	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ (((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)) ∈ (Base‘𝐾)) → ( ⊥ ‘((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))) = ((pmap‘𝐾)‘((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))))
52	11, 50, 51	syl2anc 596	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ( ⊥ ‘((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))) = ((pmap‘𝐾)‘((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))))
53	47, 52	eqtrd 2800	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ( ⊥ ‘(( ⊥ ‘𝑋) ∩ 𝑌)) = ((pmap‘𝐾)‘((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))))
54	53, 38	ineq12d 4174	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → (( ⊥ ‘(( ⊥ ‘𝑋) ∩ 𝑌)) ∩ 𝑌) = (((pmap‘𝐾)‘((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))) ∩ ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
55	17, 32	opoccl 40028	. . . . . . 7 ⊢ ((𝐾 ∈ OP ∧ (((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)) ∈ (Base‘𝐾)) → ((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌))) ∈ (Base‘𝐾))
56	41, 50, 55	syl2anc 596	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌))) ∈ (Base‘𝐾))
57	17, 31, 3, 4	pmapmeet 40607	. . . . . 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 1398	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ((pmap‘𝐾)‘(((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))(meet‘𝐾)((lub‘𝐾)‘𝑌))) = (((pmap‘𝐾)‘((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))) ∩ ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
59	54, 58	eqtr4d 2803	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → (( ⊥ ‘(( ⊥ ‘𝑋) ∩ 𝑌)) ∩ 𝑌) = ((pmap‘𝐾)‘(((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))(meet‘𝐾)((lub‘𝐾)‘𝑌))))
60	2, 3, 4, 5	2polvalN 40748	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴) → ( ⊥ ‘( ⊥ ‘𝑋)) = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑋)))
61	11, 16, 60	syl2anc 596	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ( ⊥ ‘( ⊥ ‘𝑋)) = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑋)))
62	35, 59, 61	3eqtr4d 2810	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → (( ⊥ ‘(( ⊥ ‘𝑋) ∩ 𝑌)) ∩ 𝑌) = ( ⊥ ‘( ⊥ ‘𝑋)))
63	62	ex 418	. 2 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) → ((𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))) → (( ⊥ ‘(( ⊥ ‘𝑋) ∩ 𝑌)) ∩ 𝑌) = ( ⊥ ‘( ⊥ ‘𝑋))))
64	10, 63	sylan2d 617	1 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) → ((𝑋 ⊆ 𝑌 ∧ ( ⊥ ‘( ⊥ ‘𝑌)) = 𝑌) → (( ⊥ ‘(( ⊥ ‘𝑋) ∩ 𝑌)) ∩ 𝑌) = ( ⊥ ‘( ⊥ ‘𝑋))))

Colors of variables: wff setvar class

This proof depends on syntax axioms: → wi 4 ∧ wa 401 ∧ w3a 1103 = wceq 1570 ∈ wcel 2146 ∩ cin 3905 ⊆ wss 3906 class class class wbr 5111 ‘cfv 6540 (class class class)co 7419 Basecbs 17293 lecple 17341 occoc 17342 lubclub 18389 meetcmee 18392 Latclat 18511 CLatccla 18578 OPcops 40006 OMLcoml 40009 Atomscatm 40097 HLchlt 40184 pmapcpmap 40331 ⊥_𝑃cpolN 40736

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2148 ax-9 2156 ax-10 2179 ax-11 2195 ax-12 2216 ax-ext 2737 ax-rep 5240 ax-sep 5259 ax-nul 5271 ax-pow 5338 ax-pr 5406 ax-un 7742

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2569 df-eu 2599 df-clab 2744 df-cleq 2757 df-clel 2840 df-nfc 2914 df-ne 2961 df-ral 3082 df-rex 3092 df-rmo 3371 df-reu 3372 df-rab 3419 df-v 3459 df-sbc 3747 df-csb 3855 df-dif 3909 df-un 3911 df-in 3913 df-ss 3923 df-nul 4287 df-if 4490 df-pw 4566 df-sn 4592 df-pr 4594 df-op 4598 df-uni 4875 df-iun 4960 df-iin 4961 df-br 5112 df-opab 5176 df-mpt 5195 df-id 5558 df-xp 5669 df-rel 5670 df-cnv 5671 df-co 5672 df-dm 5673 df-rn 5674 df-res 5675 df-ima 5676 df-iota 6496 df-fun 6542 df-fn 6543 df-f 6544 df-f1 6545 df-fo 6546 df-f1o 6547 df-fv 6548 df-riota 7376 df-ov 7422 df-oprab 7423 df-proset 18374 df-poset 18393 df-plt 18408 df-lub 18424 df-glb 18425 df-join 18426 df-meet 18427 df-p0 18503 df-p1 18504 df-lat 18512 df-clat 18579 df-oposet 40010 df-ol 40012 df-oml 40013 df-covers 40100 df-ats 40101 df-atl 40132 df-cvlat 40156 df-hlat 40185 df-pmap 40338 df-polarityN 40737

This theorem is used by: poml5N 40788 poml6N 40789 pexmidlem6N 40809

W3C validator