Metamath Proof Explorer


Theorem lplncmp

Description: If two lattice planes are comparable, they are equal. (Contributed by NM, 24-Jun-2012)

Ref Expression
Hypotheses lplncmp.l ⊢ ≤ ˙ = ≤ K
lplncmp.p ⊢ P = LPlanes ⁡ K
Assertion lplncmp ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P → X ≤ ˙ Y ↔ X = Y

Proof

Step Hyp Ref Expression
1 lplncmp.l ⊢ ≤ ˙ = ≤ K
2 lplncmp.p ⊢ P = LPlanes ⁡ K
3 simp2 ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P → X ∈ P
4 simp1 ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P → K ∈ HL
5 eqid ⊢ Base K = Base K
6 5 2 lplnbase ⊢ X ∈ P → X ∈ Base K
7 6 3ad2ant2 ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P → X ∈ Base K
8 eqid ⊢ ⋖ K = ⋖ K
9 eqid ⊢ LLines ⁡ K = LLines ⁡ K
10 5 8 9 2 islpln4 ⊢ K ∈ HL ∧ X ∈ Base K → X ∈ P ↔ ∃ z ∈ LLines ⁡ K z ⋖ K X
11 4 7 10 syl2anc ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P → X ∈ P ↔ ∃ z ∈ LLines ⁡ K z ⋖ K X
12 3 11 mpbid ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P → ∃ z ∈ LLines ⁡ K z ⋖ K X
13 simpr3 ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P ∧ z ∈ LLines ⁡ K ∧ z ⋖ K X ∧ X ≤ ˙ Y → X ≤ ˙ Y
14 hlpos ⊢ K ∈ HL → K ∈ Poset
15 14 3ad2ant1 ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P → K ∈ Poset
16 15 adantr ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P ∧ z ∈ LLines ⁡ K ∧ z ⋖ K X ∧ X ≤ ˙ Y → K ∈ Poset
17 7 adantr ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P ∧ z ∈ LLines ⁡ K ∧ z ⋖ K X ∧ X ≤ ˙ Y → X ∈ Base K
18 simpl3 ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P ∧ z ∈ LLines ⁡ K ∧ z ⋖ K X ∧ X ≤ ˙ Y → Y ∈ P
19 5 2 lplnbase ⊢ Y ∈ P → Y ∈ Base K
20 18 19 syl ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P ∧ z ∈ LLines ⁡ K ∧ z ⋖ K X ∧ X ≤ ˙ Y → Y ∈ Base K
21 simpr1 ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P ∧ z ∈ LLines ⁡ K ∧ z ⋖ K X ∧ X ≤ ˙ Y → z ∈ LLines ⁡ K
22 5 9 llnbase ⊢ z ∈ LLines ⁡ K → z ∈ Base K
23 21 22 syl ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P ∧ z ∈ LLines ⁡ K ∧ z ⋖ K X ∧ X ≤ ˙ Y → z ∈ Base K
24 simpr2 ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P ∧ z ∈ LLines ⁡ K ∧ z ⋖ K X ∧ X ≤ ˙ Y → z ⋖ K X
25 simpl1 ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P ∧ z ∈ LLines ⁡ K ∧ z ⋖ K X ∧ X ≤ ˙ Y → K ∈ HL
26 5 1 8 cvrle ⊢ K ∈ HL ∧ z ∈ Base K ∧ X ∈ Base K ∧ z ⋖ K X → z ≤ ˙ X
27 25 23 17 24 26 syl31anc ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P ∧ z ∈ LLines ⁡ K ∧ z ⋖ K X ∧ X ≤ ˙ Y → z ≤ ˙ X
28 5 1 postr ⊢ K ∈ Poset ∧ z ∈ Base K ∧ X ∈ Base K ∧ Y ∈ Base K → z ≤ ˙ X ∧ X ≤ ˙ Y → z ≤ ˙ Y
29 16 23 17 20 28 syl13anc ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P ∧ z ∈ LLines ⁡ K ∧ z ⋖ K X ∧ X ≤ ˙ Y → z ≤ ˙ X ∧ X ≤ ˙ Y → z ≤ ˙ Y
30 27 13 29 mp2and ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P ∧ z ∈ LLines ⁡ K ∧ z ⋖ K X ∧ X ≤ ˙ Y → z ≤ ˙ Y
31 1 8 9 2 llncvrlpln2 ⊢ K ∈ HL ∧ z ∈ LLines ⁡ K ∧ Y ∈ P ∧ z ≤ ˙ Y → z ⋖ K Y
32 25 21 18 30 31 syl31anc ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P ∧ z ∈ LLines ⁡ K ∧ z ⋖ K X ∧ X ≤ ˙ Y → z ⋖ K Y
33 5 1 8 cvrcmp ⊢ K ∈ Poset ∧ X ∈ Base K ∧ Y ∈ Base K ∧ z ∈ Base K ∧ z ⋖ K X ∧ z ⋖ K Y → X ≤ ˙ Y ↔ X = Y
34 16 17 20 23 24 32 33 syl132anc ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P ∧ z ∈ LLines ⁡ K ∧ z ⋖ K X ∧ X ≤ ˙ Y → X ≤ ˙ Y ↔ X = Y
35 13 34 mpbid ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P ∧ z ∈ LLines ⁡ K ∧ z ⋖ K X ∧ X ≤ ˙ Y → X = Y
36 35 3exp2 ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P → z ∈ LLines ⁡ K → z ⋖ K X → X ≤ ˙ Y → X = Y
37 36 rexlimdv ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P → ∃ z ∈ LLines ⁡ K z ⋖ K X → X ≤ ˙ Y → X = Y
38 12 37 mpd ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P → X ≤ ˙ Y → X = Y
39 5 1 posref ⊢ K ∈ Poset ∧ X ∈ Base K → X ≤ ˙ X
40 15 7 39 syl2anc ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P → X ≤ ˙ X
41 breq2 ⊢ X = Y → X ≤ ˙ X ↔ X ≤ ˙ Y
42 40 41 syl5ibcom ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P → X = Y → X ≤ ˙ Y
43 38 42 impbid ⊢ K ∈ HL ∧ X ∈ P ∧ Y ∈ P → X ≤ ˙ Y ↔ X = Y