Metamath Proof Explorer


Theorem latnle

Description: Equivalent expressions for "not less than" in a lattice. ( chnle analog.) (Contributed by NM, 16-Nov-2011)

Ref Expression
Hypotheses latnle.b ⊢ B = Base K
latnle.l ⊢ ≤ ˙ = ≤ K
latnle.s ⊢ < ˙ = < K
latnle.j ⊢ ∨ ˙ = join ⁡ K
Assertion latnle ⊢ K ∈ Lat ∧ X ∈ B ∧ Y ∈ B → ¬ Y ≤ ˙ X ↔ X < ˙ X ∨ ˙ Y

Proof

Step Hyp Ref Expression
1 latnle.b ⊢ B = Base K
2 latnle.l ⊢ ≤ ˙ = ≤ K
3 latnle.s ⊢ < ˙ = < K
4 latnle.j ⊢ ∨ ˙ = join ⁡ K
5 1 2 4 latlej1 ⊢ K ∈ Lat ∧ X ∈ B ∧ Y ∈ B → X ≤ ˙ X ∨ ˙ Y
6 5 biantrurd ⊢ K ∈ Lat ∧ X ∈ B ∧ Y ∈ B → X ≠ X ∨ ˙ Y ↔ X ≤ ˙ X ∨ ˙ Y ∧ X ≠ X ∨ ˙ Y
7 1 2 4 latleeqj1 ⊢ K ∈ Lat ∧ Y ∈ B ∧ X ∈ B → Y ≤ ˙ X ↔ Y ∨ ˙ X = X
8 7 3com23 ⊢ K ∈ Lat ∧ X ∈ B ∧ Y ∈ B → Y ≤ ˙ X ↔ Y ∨ ˙ X = X
9 eqcom ⊢ Y ∨ ˙ X = X ↔ X = Y ∨ ˙ X
10 8 9 bitrdi ⊢ K ∈ Lat ∧ X ∈ B ∧ Y ∈ B → Y ≤ ˙ X ↔ X = Y ∨ ˙ X
11 1 4 latjcom ⊢ K ∈ Lat ∧ X ∈ B ∧ Y ∈ B → X ∨ ˙ Y = Y ∨ ˙ X
12 11 eqeq2d ⊢ K ∈ Lat ∧ X ∈ B ∧ Y ∈ B → X = X ∨ ˙ Y ↔ X = Y ∨ ˙ X
13 10 12 bitr4d ⊢ K ∈ Lat ∧ X ∈ B ∧ Y ∈ B → Y ≤ ˙ X ↔ X = X ∨ ˙ Y
14 13 necon3bbid ⊢ K ∈ Lat ∧ X ∈ B ∧ Y ∈ B → ¬ Y ≤ ˙ X ↔ X ≠ X ∨ ˙ Y
15 1 4 latjcl ⊢ K ∈ Lat ∧ X ∈ B ∧ Y ∈ B → X ∨ ˙ Y ∈ B
16 2 3 pltval ⊢ K ∈ Lat ∧ X ∈ B ∧ X ∨ ˙ Y ∈ B → X < ˙ X ∨ ˙ Y ↔ X ≤ ˙ X ∨ ˙ Y ∧ X ≠ X ∨ ˙ Y
17 15 16 syld3an3 ⊢ K ∈ Lat ∧ X ∈ B ∧ Y ∈ B → X < ˙ X ∨ ˙ Y ↔ X ≤ ˙ X ∨ ˙ Y ∧ X ≠ X ∨ ˙ Y
18 6 14 17 3bitr4d ⊢ K ∈ Lat ∧ X ∈ B ∧ Y ∈ B → ¬ Y ≤ ˙ X ↔ X < ˙ X ∨ ˙ Y