Theorem cmt2N 36887

Description: Commutation with orthocomplement. Theorem 2.3(i) of [Beran] p. 39. (cmcm2i 29528 analog.) (Contributed by NM, 8-Nov-2011.) (New usage is discouraged.)

Hypotheses

Ref	Expression
cmt2.b	⊢ 𝐵 = (Base‘𝐾)
cmt2.o	⊢ ⊥ = (oc‘𝐾)
cmt2.c	⊢ 𝐶 = (cm‘𝐾)

Assertion

Ref	Expression
cmt2N	⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋𝐶𝑌 ↔ 𝑋𝐶( ⊥ ‘𝑌)))

Proof of Theorem cmt2N

Step	Hyp	Ref	Expression
1		omllat 36879	. . . . . 6 ⊢ (𝐾 ∈ OML → 𝐾 ∈ Lat)
2	1	3ad2ant1 1134	. . . . 5 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → 𝐾 ∈ Lat)
3		cmt2.b	. . . . . . 7 ⊢ 𝐵 = (Base‘𝐾)
4		eqid 2738	. . . . . . 7 ⊢ (meet‘𝐾) = (meet‘𝐾)
5	3, 4	latmcl 17778	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋(meet‘𝐾)𝑌) ∈ 𝐵)
6	1, 5	syl3an1 1164	. . . . 5 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋(meet‘𝐾)𝑌) ∈ 𝐵)
7		simp2 1138	. . . . . 6 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → 𝑋 ∈ 𝐵)
8		omlop 36878	. . . . . . . 8 ⊢ (𝐾 ∈ OML → 𝐾 ∈ OP)
9	8	3ad2ant1 1134	. . . . . . 7 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → 𝐾 ∈ OP)
10		simp3 1139	. . . . . . 7 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → 𝑌 ∈ 𝐵)
11		cmt2.o	. . . . . . . 8 ⊢ ⊥ = (oc‘𝐾)
12	3, 11	opoccl 36831	. . . . . . 7 ⊢ ((𝐾 ∈ OP ∧ 𝑌 ∈ 𝐵) → ( ⊥ ‘𝑌) ∈ 𝐵)
13	9, 10, 12	syl2anc 587	. . . . . 6 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ( ⊥ ‘𝑌) ∈ 𝐵)
14	3, 4	latmcl 17778	. . . . . 6 ⊢ ((𝐾 ∈ Lat ∧ 𝑋 ∈ 𝐵 ∧ ( ⊥ ‘𝑌) ∈ 𝐵) → (𝑋(meet‘𝐾)( ⊥ ‘𝑌)) ∈ 𝐵)
15	2, 7, 13, 14	syl3anc 1372	. . . . 5 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋(meet‘𝐾)( ⊥ ‘𝑌)) ∈ 𝐵)
16		eqid 2738	. . . . . 6 ⊢ (join‘𝐾) = (join‘𝐾)
17	3, 16	latjcom 17785	. . . . 5 ⊢ ((𝐾 ∈ Lat ∧ (𝑋(meet‘𝐾)𝑌) ∈ 𝐵 ∧ (𝑋(meet‘𝐾)( ⊥ ‘𝑌)) ∈ 𝐵) → ((𝑋(meet‘𝐾)𝑌)(join‘𝐾)(𝑋(meet‘𝐾)( ⊥ ‘𝑌))) = ((𝑋(meet‘𝐾)( ⊥ ‘𝑌))(join‘𝐾)(𝑋(meet‘𝐾)𝑌)))
18	2, 6, 15, 17	syl3anc 1372	. . . 4 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑋(meet‘𝐾)𝑌)(join‘𝐾)(𝑋(meet‘𝐾)( ⊥ ‘𝑌))) = ((𝑋(meet‘𝐾)( ⊥ ‘𝑌))(join‘𝐾)(𝑋(meet‘𝐾)𝑌)))
19	3, 11	opococ 36832	. . . . . . 7 ⊢ ((𝐾 ∈ OP ∧ 𝑌 ∈ 𝐵) → ( ⊥ ‘( ⊥ ‘𝑌)) = 𝑌)
20	9, 10, 19	syl2anc 587	. . . . . 6 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ( ⊥ ‘( ⊥ ‘𝑌)) = 𝑌)
21	20	oveq2d 7186	. . . . 5 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋(meet‘𝐾)( ⊥ ‘( ⊥ ‘𝑌))) = (𝑋(meet‘𝐾)𝑌))
22	21	oveq2d 7186	. . . 4 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑋(meet‘𝐾)( ⊥ ‘𝑌))(join‘𝐾)(𝑋(meet‘𝐾)( ⊥ ‘( ⊥ ‘𝑌)))) = ((𝑋(meet‘𝐾)( ⊥ ‘𝑌))(join‘𝐾)(𝑋(meet‘𝐾)𝑌)))
23	18, 22	eqtr4d 2776	. . 3 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → ((𝑋(meet‘𝐾)𝑌)(join‘𝐾)(𝑋(meet‘𝐾)( ⊥ ‘𝑌))) = ((𝑋(meet‘𝐾)( ⊥ ‘𝑌))(join‘𝐾)(𝑋(meet‘𝐾)( ⊥ ‘( ⊥ ‘𝑌)))))
24	23	eqeq2d 2749	. 2 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋 = ((𝑋(meet‘𝐾)𝑌)(join‘𝐾)(𝑋(meet‘𝐾)( ⊥ ‘𝑌))) ↔ 𝑋 = ((𝑋(meet‘𝐾)( ⊥ ‘𝑌))(join‘𝐾)(𝑋(meet‘𝐾)( ⊥ ‘( ⊥ ‘𝑌))))))
25		cmt2.c	. . 3 ⊢ 𝐶 = (cm‘𝐾)
26	3, 16, 4, 11, 25	cmtvalN 36848	. 2 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋𝐶𝑌 ↔ 𝑋 = ((𝑋(meet‘𝐾)𝑌)(join‘𝐾)(𝑋(meet‘𝐾)( ⊥ ‘𝑌)))))
27	3, 16, 4, 11, 25	cmtvalN 36848	. . 3 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ ( ⊥ ‘𝑌) ∈ 𝐵) → (𝑋𝐶( ⊥ ‘𝑌) ↔ 𝑋 = ((𝑋(meet‘𝐾)( ⊥ ‘𝑌))(join‘𝐾)(𝑋(meet‘𝐾)( ⊥ ‘( ⊥ ‘𝑌))))))
28	13, 27	syld3an3 1410	. 2 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋𝐶( ⊥ ‘𝑌) ↔ 𝑋 = ((𝑋(meet‘𝐾)( ⊥ ‘𝑌))(join‘𝐾)(𝑋(meet‘𝐾)( ⊥ ‘( ⊥ ‘𝑌))))))
29	24, 26, 28	3bitr4d 314	1 ⊢ ((𝐾 ∈ OML ∧ 𝑋 ∈ 𝐵 ∧ 𝑌 ∈ 𝐵) → (𝑋𝐶𝑌 ↔ 𝑋𝐶( ⊥ ‘𝑌)))

Syntax hints:   → wi 4   ↔ wb 209   ∧ w3a 1088   = wceq 1542   ∈ wcel 2114   class class class wbr 5030  ‘cfv 6339  (class class class)co 7170  Basecbs 16586  occoc 16676  joincjn 17670  meetcmee 17671  Latclat 17771  OPcops 36809  cmccmtN 36810  OMLcoml 36812

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1975  ax-7 2020  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2162  ax-12 2179  ax-ext 2710  ax-rep 5154  ax-sep 5167  ax-nul 5174  ax-pow 5232  ax-pr 5296  ax-un 7479

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 847  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2075  df-mo 2540  df-eu 2570  df-clab 2717  df-cleq 2730  df-clel 2811  df-nfc 2881  df-ne 2935  df-ral 3058  df-rex 3059  df-reu 3060  df-rab 3062  df-v 3400  df-sbc 3681  df-csb 3791  df-dif 3846  df-un 3848  df-in 3850  df-ss 3860  df-nul 4212  df-if 4415  df-pw 4490  df-sn 4517  df-pr 4519  df-op 4523  df-uni 4797  df-iun 4883  df-br 5031  df-opab 5093  df-mpt 5111  df-id 5429  df-xp 5531  df-rel 5532  df-cnv 5533  df-co 5534  df-dm 5535  df-rn 5536  df-res 5537  df-ima 5538  df-iota 6297  df-fun 6341  df-fn 6342  df-f 6343  df-f1 6344  df-fo 6345  df-f1o 6346  df-fv 6347  df-riota 7127  df-ov 7173  df-oprab 7174  df-lub 17700  df-glb 17701  df-join 17702  df-meet 17703  df-lat 17772  df-oposet 36813  df-cmtN 36814  df-ol 36815  df-oml 36816

This theorem is referenced by:  cmt3N  36888  cmt4N  36889  omlfh1N  36895