Metamath Proof Explorer


Theorem atlatle

Description: The ordering of two Hilbert lattice elements is determined by the atoms under them. ( chrelat3 analog.) (Contributed by NM, 5-Nov-2012)

Ref Expression
Hypotheses atlatle.b ⊢ B = Base K
atlatle.l ⊢ ≤ ˙ = ≤ K
atlatle.a ⊢ A = Atoms ⁡ K
Assertion atlatle ⊢ K ∈ OML ∧ K ∈ CLat ∧ K ∈ AtLat ∧ X ∈ B ∧ Y ∈ B → X ≤ ˙ Y ↔ ∀ p ∈ A p ≤ ˙ X → p ≤ ˙ Y

Proof

Step Hyp Ref Expression
1 atlatle.b ⊢ B = Base K
2 atlatle.l ⊢ ≤ ˙ = ≤ K
3 atlatle.a ⊢ A = Atoms ⁡ K
4 simpl13 ⊢ K ∈ OML ∧ K ∈ CLat ∧ K ∈ AtLat ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A → K ∈ AtLat
5 atlpos ⊢ K ∈ AtLat → K ∈ Poset
6 4 5 syl ⊢ K ∈ OML ∧ K ∈ CLat ∧ K ∈ AtLat ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A → K ∈ Poset
7 1 3 atbase ⊢ p ∈ A → p ∈ B
8 7 adantl ⊢ K ∈ OML ∧ K ∈ CLat ∧ K ∈ AtLat ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A → p ∈ B
9 simpl2 ⊢ K ∈ OML ∧ K ∈ CLat ∧ K ∈ AtLat ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A → X ∈ B
10 simpl3 ⊢ K ∈ OML ∧ K ∈ CLat ∧ K ∈ AtLat ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A → Y ∈ B
11 1 2 postr ⊢ K ∈ Poset ∧ p ∈ B ∧ X ∈ B ∧ Y ∈ B → p ≤ ˙ X ∧ X ≤ ˙ Y → p ≤ ˙ Y
12 6 8 9 10 11 syl13anc ⊢ K ∈ OML ∧ K ∈ CLat ∧ K ∈ AtLat ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A → p ≤ ˙ X ∧ X ≤ ˙ Y → p ≤ ˙ Y
13 12 expcomd ⊢ K ∈ OML ∧ K ∈ CLat ∧ K ∈ AtLat ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A → X ≤ ˙ Y → p ≤ ˙ X → p ≤ ˙ Y
14 13 ralrimdva ⊢ K ∈ OML ∧ K ∈ CLat ∧ K ∈ AtLat ∧ X ∈ B ∧ Y ∈ B → X ≤ ˙ Y → ∀ p ∈ A p ≤ ˙ X → p ≤ ˙ Y
15 ss2rab ⊢ p ∈ A | p ≤ ˙ X ⊆ p ∈ A | p ≤ ˙ Y ↔ ∀ p ∈ A p ≤ ˙ X → p ≤ ˙ Y
16 simpl12 ⊢ K ∈ OML ∧ K ∈ CLat ∧ K ∈ AtLat ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A | p ≤ ˙ X ⊆ p ∈ A | p ≤ ˙ Y → K ∈ CLat
17 ssrab2 ⊢ p ∈ A | p ≤ ˙ Y ⊆ A
18 1 3 atssbase ⊢ A ⊆ B
19 17 18 sstri ⊢ p ∈ A | p ≤ ˙ Y ⊆ B
20 eqid ⊢ lub ⁡ K = lub ⁡ K
21 1 2 20 lubss ⊢ K ∈ CLat ∧ p ∈ A | p ≤ ˙ Y ⊆ B ∧ p ∈ A | p ≤ ˙ X ⊆ p ∈ A | p ≤ ˙ Y → lub ⁡ K ⁡ p ∈ A | p ≤ ˙ X ≤ ˙ lub ⁡ K ⁡ p ∈ A | p ≤ ˙ Y
22 19 21 mp3an2 ⊢ K ∈ CLat ∧ p ∈ A | p ≤ ˙ X ⊆ p ∈ A | p ≤ ˙ Y → lub ⁡ K ⁡ p ∈ A | p ≤ ˙ X ≤ ˙ lub ⁡ K ⁡ p ∈ A | p ≤ ˙ Y
23 16 22 sylancom ⊢ K ∈ OML ∧ K ∈ CLat ∧ K ∈ AtLat ∧ X ∈ B ∧ Y ∈ B ∧ p ∈ A | p ≤ ˙ X ⊆ p ∈ A | p ≤ ˙ Y → lub ⁡ K ⁡ p ∈ A | p ≤ ˙ X ≤ ˙ lub ⁡ K ⁡ p ∈ A | p ≤ ˙ Y
24 23 ex ⊢ K ∈ OML ∧ K ∈ CLat ∧ K ∈ AtLat ∧ X ∈ B ∧ Y ∈ B → p ∈ A | p ≤ ˙ X ⊆ p ∈ A | p ≤ ˙ Y → lub ⁡ K ⁡ p ∈ A | p ≤ ˙ X ≤ ˙ lub ⁡ K ⁡ p ∈ A | p ≤ ˙ Y
25 1 2 20 3 atlatmstc ⊢ K ∈ OML ∧ K ∈ CLat ∧ K ∈ AtLat ∧ X ∈ B → lub ⁡ K ⁡ p ∈ A | p ≤ ˙ X = X
26 25 3adant3 ⊢ K ∈ OML ∧ K ∈ CLat ∧ K ∈ AtLat ∧ X ∈ B ∧ Y ∈ B → lub ⁡ K ⁡ p ∈ A | p ≤ ˙ X = X
27 1 2 20 3 atlatmstc ⊢ K ∈ OML ∧ K ∈ CLat ∧ K ∈ AtLat ∧ Y ∈ B → lub ⁡ K ⁡ p ∈ A | p ≤ ˙ Y = Y
28 27 3adant2 ⊢ K ∈ OML ∧ K ∈ CLat ∧ K ∈ AtLat ∧ X ∈ B ∧ Y ∈ B → lub ⁡ K ⁡ p ∈ A | p ≤ ˙ Y = Y
29 26 28 breq12d ⊢ K ∈ OML ∧ K ∈ CLat ∧ K ∈ AtLat ∧ X ∈ B ∧ Y ∈ B → lub ⁡ K ⁡ p ∈ A | p ≤ ˙ X ≤ ˙ lub ⁡ K ⁡ p ∈ A | p ≤ ˙ Y ↔ X ≤ ˙ Y
30 24 29 sylibd ⊢ K ∈ OML ∧ K ∈ CLat ∧ K ∈ AtLat ∧ X ∈ B ∧ Y ∈ B → p ∈ A | p ≤ ˙ X ⊆ p ∈ A | p ≤ ˙ Y → X ≤ ˙ Y
31 15 30 biimtrrid ⊢ K ∈ OML ∧ K ∈ CLat ∧ K ∈ AtLat ∧ X ∈ B ∧ Y ∈ B → ∀ p ∈ A p ≤ ˙ X → p ≤ ˙ Y → X ≤ ˙ Y
32 14 31 impbid ⊢ K ∈ OML ∧ K ∈ CLat ∧ K ∈ AtLat ∧ X ∈ B ∧ Y ∈ B → X ≤ ˙ Y ↔ ∀ p ∈ A p ≤ ˙ X → p ≤ ˙ Y