Metamath Proof Explorer


Theorem cvrval5

Description: Binary relation expressing X covers X ./\ Y . (Contributed by NM, 7-Dec-2012)

Ref Expression
Hypotheses cvrval5.b B = Base K
cvrval5.l ˙ = K
cvrval5.j ˙ = join K
cvrval5.m ˙ = meet K
cvrval5.c C = K
cvrval5.a A = Atoms K
Assertion cvrval5 K HL X B Y B X ˙ Y C X p A ¬ p ˙ Y p ˙ X ˙ Y = X

Proof

Step Hyp Ref Expression
1 cvrval5.b B = Base K
2 cvrval5.l ˙ = K
3 cvrval5.j ˙ = join K
4 cvrval5.m ˙ = meet K
5 cvrval5.c C = K
6 cvrval5.a A = Atoms K
7 simp1 K HL X B Y B K HL
8 hllat K HL K Lat
9 1 4 latmcl K Lat X B Y B X ˙ Y B
10 8 9 syl3an1 K HL X B Y B X ˙ Y B
11 simp2 K HL X B Y B X B
12 1 2 3 5 6 cvrval3 K HL X ˙ Y B X B X ˙ Y C X p A ¬ p ˙ X ˙ Y X ˙ Y ˙ p = X
13 7 10 11 12 syl3anc K HL X B Y B X ˙ Y C X p A ¬ p ˙ X ˙ Y X ˙ Y ˙ p = X
14 8 3ad2ant1 K HL X B Y B K Lat
15 14 ad2antrr K HL X B Y B p A X ˙ Y ˙ p = X K Lat
16 10 ad2antrr K HL X B Y B p A X ˙ Y ˙ p = X X ˙ Y B
17 1 6 atbase p A p B
18 17 ad2antlr K HL X B Y B p A X ˙ Y ˙ p = X p B
19 1 2 3 latlej2 K Lat X ˙ Y B p B p ˙ X ˙ Y ˙ p
20 15 16 18 19 syl3anc K HL X B Y B p A X ˙ Y ˙ p = X p ˙ X ˙ Y ˙ p
21 simpr K HL X B Y B p A X ˙ Y ˙ p = X X ˙ Y ˙ p = X
22 20 21 breqtrd K HL X B Y B p A X ˙ Y ˙ p = X p ˙ X
23 22 biantrurd K HL X B Y B p A X ˙ Y ˙ p = X p ˙ Y p ˙ X p ˙ Y
24 simpll2 K HL X B Y B p A X ˙ Y ˙ p = X X B
25 simpll3 K HL X B Y B p A X ˙ Y ˙ p = X Y B
26 1 2 4 latlem12 K Lat p B X B Y B p ˙ X p ˙ Y p ˙ X ˙ Y
27 15 18 24 25 26 syl13anc K HL X B Y B p A X ˙ Y ˙ p = X p ˙ X p ˙ Y p ˙ X ˙ Y
28 23 27 bitr2d K HL X B Y B p A X ˙ Y ˙ p = X p ˙ X ˙ Y p ˙ Y
29 28 notbid K HL X B Y B p A X ˙ Y ˙ p = X ¬ p ˙ X ˙ Y ¬ p ˙ Y
30 29 ex K HL X B Y B p A X ˙ Y ˙ p = X ¬ p ˙ X ˙ Y ¬ p ˙ Y
31 30 pm5.32rd K HL X B Y B p A ¬ p ˙ X ˙ Y X ˙ Y ˙ p = X ¬ p ˙ Y X ˙ Y ˙ p = X
32 14 adantr K HL X B Y B p A K Lat
33 10 adantr K HL X B Y B p A X ˙ Y B
34 17 adantl K HL X B Y B p A p B
35 1 3 latjcom K Lat X ˙ Y B p B X ˙ Y ˙ p = p ˙ X ˙ Y
36 32 33 34 35 syl3anc K HL X B Y B p A X ˙ Y ˙ p = p ˙ X ˙ Y
37 36 eqeq1d K HL X B Y B p A X ˙ Y ˙ p = X p ˙ X ˙ Y = X
38 37 anbi2d K HL X B Y B p A ¬ p ˙ Y X ˙ Y ˙ p = X ¬ p ˙ Y p ˙ X ˙ Y = X
39 31 38 bitrd K HL X B Y B p A ¬ p ˙ X ˙ Y X ˙ Y ˙ p = X ¬ p ˙ Y p ˙ X ˙ Y = X
40 39 rexbidva K HL X B Y B p A ¬ p ˙ X ˙ Y X ˙ Y ˙ p = X p A ¬ p ˙ Y p ˙ X ˙ Y = X
41 13 40 bitrd K HL X B Y B X ˙ Y C X p A ¬ p ˙ Y p ˙ X ˙ Y = X