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 40399

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 2743	. . 3 ⊢ (( ⊥ ‘( ⊥ ‘𝑌)) = 𝑌 ↔ 𝑌 = ( ⊥ ‘( ⊥ ‘𝑌)))
2		eqid 2736	. . . . . . 7 ⊢ (lub‘𝐾) = (lub‘𝐾)
3		poml4.a	. . . . . . 7 ⊢ 𝐴 = (Atoms‘𝐾)
4		eqid 2736	. . . . . . 7 ⊢ (pmap‘𝐾) = (pmap‘𝐾)
5		poml4.p	. . . . . . 7 ⊢ ⊥ = (⊥_𝑃‘𝐾)
6	2, 3, 4, 5	2polvalN 40360	. . . . . 6 ⊢ ((𝐾 ∈ HL ∧ 𝑌 ⊆ 𝐴) → ( ⊥ ‘( ⊥ ‘𝑌)) = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))
7	6	3adant2 1132	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) → ( ⊥ ‘( ⊥ ‘𝑌)) = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))
8	7	eqeq2d 2747	. . . 4 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) → (𝑌 = ( ⊥ ‘( ⊥ ‘𝑌)) ↔ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
9	8	biimpd 229	. . 3 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) → (𝑌 = ( ⊥ ‘( ⊥ ‘𝑌)) → 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
10	1, 9	biimtrid 242	. 2 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) → (( ⊥ ‘( ⊥ ‘𝑌)) = 𝑌 → 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
11		simpl1 1193	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝐾 ∈ HL)
12		hloml 39803	. . . . . . . 8 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OML)
13	11, 12	syl 17	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝐾 ∈ OML)
14		hlclat 39804	. . . . . . . . 9 ⊢ (𝐾 ∈ HL → 𝐾 ∈ CLat)
15	11, 14	syl 17	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝐾 ∈ CLat)
16		simpl2 1194	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝑋 ⊆ 𝐴)
17		eqid 2736	. . . . . . . . . 10 ⊢ (Base‘𝐾) = (Base‘𝐾)
18	17, 3	atssbase 39736	. . . . . . . . 9 ⊢ 𝐴 ⊆ (Base‘𝐾)
19	16, 18	sstrdi 3934	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝑋 ⊆ (Base‘𝐾))
20	17, 2	clatlubcl 18469	. . . . . . . 8 ⊢ ((𝐾 ∈ CLat ∧ 𝑋 ⊆ (Base‘𝐾)) → ((lub‘𝐾)‘𝑋) ∈ (Base‘𝐾))
21	15, 19, 20	syl2anc 585	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ((lub‘𝐾)‘𝑋) ∈ (Base‘𝐾))
22		simpl3 1195	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝑌 ⊆ 𝐴)
23	22, 18	sstrdi 3934	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝑌 ⊆ (Base‘𝐾))
24	17, 2	clatlubcl 18469	. . . . . . . 8 ⊢ ((𝐾 ∈ CLat ∧ 𝑌 ⊆ (Base‘𝐾)) → ((lub‘𝐾)‘𝑌) ∈ (Base‘𝐾))
25	15, 23, 24	syl2anc 585	. . . . . . 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 2736	. . . . . . . 8 ⊢ (le‘𝐾) = (le‘𝐾)
29	17, 28, 2	lubss 18479	. . . . . . 7 ⊢ ((𝐾 ∈ CLat ∧ 𝑌 ⊆ (Base‘𝐾) ∧ 𝑋 ⊆ 𝑌) → ((lub‘𝐾)‘𝑋)(le‘𝐾)((lub‘𝐾)‘𝑌))
30	15, 23, 27, 29	syl3anc 1374	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ((lub‘𝐾)‘𝑋)(le‘𝐾)((lub‘𝐾)‘𝑌))
31		eqid 2736	. . . . . . 7 ⊢ (meet‘𝐾) = (meet‘𝐾)
32		eqid 2736	. . . . . . 7 ⊢ (oc‘𝐾) = (oc‘𝐾)
33	17, 28, 31, 32	omllaw4 39692	. . . . . 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 6844	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ((pmap‘𝐾)‘(((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))(meet‘𝐾)((lub‘𝐾)‘𝑌))) = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑋)))
36	2, 32, 3, 4, 5	polval2N 40352	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴) → ( ⊥ ‘𝑋) = ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑋))))
37	11, 16, 36	syl2anc 585	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ( ⊥ ‘𝑋) = ((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑋))))
38		simprr 773	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))
39	37, 38	ineq12d 4161	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → (( ⊥ ‘𝑋) ∩ 𝑌) = (((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑋))) ∩ ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
40		hlop 39808	. . . . . . . . . . . 12 ⊢ (𝐾 ∈ HL → 𝐾 ∈ OP)
41	11, 40	syl 17	. . . . . . . . . . 11 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝐾 ∈ OP)
42	17, 32	opoccl 39640	. . . . . . . . . . 11 ⊢ ((𝐾 ∈ OP ∧ ((lub‘𝐾)‘𝑋) ∈ (Base‘𝐾)) → ((oc‘𝐾)‘((lub‘𝐾)‘𝑋)) ∈ (Base‘𝐾))
43	41, 21, 42	syl2anc 585	. . . . . . . . . 10 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ((oc‘𝐾)‘((lub‘𝐾)‘𝑋)) ∈ (Base‘𝐾))
44	17, 31, 3, 4	pmapmeet 40219	. . . . . . . . . 10 ⊢ ((𝐾 ∈ HL ∧ ((oc‘𝐾)‘((lub‘𝐾)‘𝑋)) ∈ (Base‘𝐾) ∧ ((lub‘𝐾)‘𝑌) ∈ (Base‘𝐾)) → ((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌))) = (((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑋))) ∩ ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
45	11, 43, 25, 44	syl3anc 1374	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌))) = (((pmap‘𝐾)‘((oc‘𝐾)‘((lub‘𝐾)‘𝑋))) ∩ ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
46	39, 45	eqtr4d 2774	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → (( ⊥ ‘𝑋) ∩ 𝑌) = ((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌))))
47	46	fveq2d 6844	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ( ⊥ ‘(( ⊥ ‘𝑋) ∩ 𝑌)) = ( ⊥ ‘((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))))
48	11	hllatd 39810	. . . . . . . . 9 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → 𝐾 ∈ Lat)
49	17, 31	latmcl 18406	. . . . . . . . 9 ⊢ ((𝐾 ∈ Lat ∧ ((oc‘𝐾)‘((lub‘𝐾)‘𝑋)) ∈ (Base‘𝐾) ∧ ((lub‘𝐾)‘𝑌) ∈ (Base‘𝐾)) → (((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)) ∈ (Base‘𝐾))
50	48, 43, 25, 49	syl3anc 1374	. . . . . . . 8 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → (((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)) ∈ (Base‘𝐾))
51	17, 32, 4, 5	polpmapN 40358	. . . . . . . 8 ⊢ ((𝐾 ∈ HL ∧ (((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)) ∈ (Base‘𝐾)) → ( ⊥ ‘((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))) = ((pmap‘𝐾)‘((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))))
52	11, 50, 51	syl2anc 585	. . . . . . 7 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ( ⊥ ‘((pmap‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))) = ((pmap‘𝐾)‘((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))))
53	47, 52	eqtrd 2771	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ( ⊥ ‘(( ⊥ ‘𝑋) ∩ 𝑌)) = ((pmap‘𝐾)‘((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))))
54	53, 38	ineq12d 4161	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → (( ⊥ ‘(( ⊥ ‘𝑋) ∩ 𝑌)) ∩ 𝑌) = (((pmap‘𝐾)‘((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))) ∩ ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
55	17, 32	opoccl 39640	. . . . . . 7 ⊢ ((𝐾 ∈ OP ∧ (((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)) ∈ (Base‘𝐾)) → ((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌))) ∈ (Base‘𝐾))
56	41, 50, 55	syl2anc 585	. . . . . 6 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌))) ∈ (Base‘𝐾))
57	17, 31, 3, 4	pmapmeet 40219	. . . . . 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 1374	. . . . 5 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ((pmap‘𝐾)‘(((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))(meet‘𝐾)((lub‘𝐾)‘𝑌))) = (((pmap‘𝐾)‘((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))) ∩ ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))))
59	54, 58	eqtr4d 2774	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → (( ⊥ ‘(( ⊥ ‘𝑋) ∩ 𝑌)) ∩ 𝑌) = ((pmap‘𝐾)‘(((oc‘𝐾)‘(((oc‘𝐾)‘((lub‘𝐾)‘𝑋))(meet‘𝐾)((lub‘𝐾)‘𝑌)))(meet‘𝐾)((lub‘𝐾)‘𝑌))))
60	2, 3, 4, 5	2polvalN 40360	. . . . 5 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴) → ( ⊥ ‘( ⊥ ‘𝑋)) = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑋)))
61	11, 16, 60	syl2anc 585	. . . 4 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → ( ⊥ ‘( ⊥ ‘𝑋)) = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑋)))
62	35, 59, 61	3eqtr4d 2781	. . 3 ⊢ (((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) ∧ (𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌)))) → (( ⊥ ‘(( ⊥ ‘𝑋) ∩ 𝑌)) ∩ 𝑌) = ( ⊥ ‘( ⊥ ‘𝑋)))
63	62	ex 412	. 2 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) → ((𝑋 ⊆ 𝑌 ∧ 𝑌 = ((pmap‘𝐾)‘((lub‘𝐾)‘𝑌))) → (( ⊥ ‘(( ⊥ ‘𝑋) ∩ 𝑌)) ∩ 𝑌) = ( ⊥ ‘( ⊥ ‘𝑋))))
64	10, 63	sylan2d 606	1 ⊢ ((𝐾 ∈ HL ∧ 𝑋 ⊆ 𝐴 ∧ 𝑌 ⊆ 𝐴) → ((𝑋 ⊆ 𝑌 ∧ ( ⊥ ‘( ⊥ ‘𝑌)) = 𝑌) → (( ⊥ ‘(( ⊥ ‘𝑋) ∩ 𝑌)) ∩ 𝑌) = ( ⊥ ‘( ⊥ ‘𝑋))))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 395 ∧ w3a 1087 = wceq 1542 ∈ wcel 2114 ∩ cin 3888 ⊆ wss 3889 class class class wbr 5085 ‘cfv 6498 (class class class)co 7367 Basecbs 17179 lecple 17227 occoc 17228 lubclub 18275 meetcmee 18278 Latclat 18397 CLatccla 18464 OPcops 39618 OMLcoml 39621 Atomscatm 39709 HLchlt 39796 pmapcpmap 39943 ⊥_𝑃cpolN 40348

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1912 ax-6 1969 ax-7 2010 ax-8 2116 ax-9 2124 ax-10 2147 ax-11 2163 ax-12 2185 ax-ext 2708 ax-rep 5212 ax-sep 5231 ax-nul 5241 ax-pow 5307 ax-pr 5375 ax-un 7689

This theorem depends on definitions: df-bi 207 df-an 396 df-or 849 df-3an 1089 df-tru 1545 df-fal 1555 df-ex 1782 df-nf 1786 df-sb 2069 df-mo 2539 df-eu 2569 df-clab 2715 df-cleq 2728 df-clel 2811 df-nfc 2885 df-ne 2933 df-ral 3052 df-rex 3062 df-rmo 3342 df-reu 3343 df-rab 3390 df-v 3431 df-sbc 3729 df-csb 3838 df-dif 3892 df-un 3894 df-in 3896 df-ss 3906 df-nul 4274 df-if 4467 df-pw 4543 df-sn 4568 df-pr 4570 df-op 4574 df-uni 4851 df-iun 4935 df-iin 4936 df-br 5086 df-opab 5148 df-mpt 5167 df-id 5526 df-xp 5637 df-rel 5638 df-cnv 5639 df-co 5640 df-dm 5641 df-rn 5642 df-res 5643 df-ima 5644 df-iota 6454 df-fun 6500 df-fn 6501 df-f 6502 df-f1 6503 df-fo 6504 df-f1o 6505 df-fv 6506 df-riota 7324 df-ov 7370 df-oprab 7371 df-proset 18260 df-poset 18279 df-plt 18294 df-lub 18310 df-glb 18311 df-join 18312 df-meet 18313 df-p0 18389 df-p1 18390 df-lat 18398 df-clat 18465 df-oposet 39622 df-ol 39624 df-oml 39625 df-covers 39712 df-ats 39713 df-atl 39744 df-cvlat 39768 df-hlat 39797 df-pmap 39950 df-polarityN 40349

This theorem is referenced by: poml5N 40400 poml6N 40401 pexmidlem6N 40421

W3C validator