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