Metamath Proof Explorer


Theorem joinle

Description: A join is less than or equal to a third value iff each argument is less than or equal to the third value. (Contributed by NM, 16-Sep-2011)

Ref Expression
Hypotheses joinle.b ⊢ B = Base K
joinle.l ⊢ ≤ ˙ = ≤ K
joinle.j ⊢ ∨ ˙ = join ⁡ K
joinle.k ⊢ φ → K ∈ Poset
joinle.x ⊢ φ → X ∈ B
joinle.y ⊢ φ → Y ∈ B
joinle.z ⊢ φ → Z ∈ B
joinle.e ⊢ φ → X Y ∈ dom ⁡ ∨ ˙
Assertion joinle ⊢ φ → X ≤ ˙ Z ∧ Y ≤ ˙ Z ↔ X ∨ ˙ Y ≤ ˙ Z

Proof

Step Hyp Ref Expression
1 joinle.b ⊢ B = Base K
2 joinle.l ⊢ ≤ ˙ = ≤ K
3 joinle.j ⊢ ∨ ˙ = join ⁡ K
4 joinle.k ⊢ φ → K ∈ Poset
5 joinle.x ⊢ φ → X ∈ B
6 joinle.y ⊢ φ → Y ∈ B
7 joinle.z ⊢ φ → Z ∈ B
8 joinle.e ⊢ φ → X Y ∈ dom ⁡ ∨ ˙
9 breq2 ⊢ z = Z → X ≤ ˙ z ↔ X ≤ ˙ Z
10 breq2 ⊢ z = Z → Y ≤ ˙ z ↔ Y ≤ ˙ Z
11 9 10 anbi12d ⊢ z = Z → X ≤ ˙ z ∧ Y ≤ ˙ z ↔ X ≤ ˙ Z ∧ Y ≤ ˙ Z
12 breq2 ⊢ z = Z → X ∨ ˙ Y ≤ ˙ z ↔ X ∨ ˙ Y ≤ ˙ Z
13 11 12 imbi12d ⊢ z = Z → X ≤ ˙ z ∧ Y ≤ ˙ z → X ∨ ˙ Y ≤ ˙ z ↔ X ≤ ˙ Z ∧ Y ≤ ˙ Z → X ∨ ˙ Y ≤ ˙ Z
14 1 2 3 4 5 6 8 joinlem ⊢ φ → X ≤ ˙ X ∨ ˙ Y ∧ Y ≤ ˙ X ∨ ˙ Y ∧ ∀ z ∈ B X ≤ ˙ z ∧ Y ≤ ˙ z → X ∨ ˙ Y ≤ ˙ z
15 14 simprd ⊢ φ → ∀ z ∈ B X ≤ ˙ z ∧ Y ≤ ˙ z → X ∨ ˙ Y ≤ ˙ z
16 13 15 7 rspcdva ⊢ φ → X ≤ ˙ Z ∧ Y ≤ ˙ Z → X ∨ ˙ Y ≤ ˙ Z
17 1 2 3 4 5 6 8 lejoin1 ⊢ φ → X ≤ ˙ X ∨ ˙ Y
18 1 3 4 5 6 8 joincl ⊢ φ → X ∨ ˙ Y ∈ B
19 1 2 postr ⊢ K ∈ Poset ∧ X ∈ B ∧ X ∨ ˙ Y ∈ B ∧ Z ∈ B → X ≤ ˙ X ∨ ˙ Y ∧ X ∨ ˙ Y ≤ ˙ Z → X ≤ ˙ Z
20 4 5 18 7 19 syl13anc ⊢ φ → X ≤ ˙ X ∨ ˙ Y ∧ X ∨ ˙ Y ≤ ˙ Z → X ≤ ˙ Z
21 17 20 mpand ⊢ φ → X ∨ ˙ Y ≤ ˙ Z → X ≤ ˙ Z
22 1 2 3 4 5 6 8 lejoin2 ⊢ φ → Y ≤ ˙ X ∨ ˙ Y
23 1 2 postr ⊢ K ∈ Poset ∧ Y ∈ B ∧ X ∨ ˙ Y ∈ B ∧ Z ∈ B → Y ≤ ˙ X ∨ ˙ Y ∧ X ∨ ˙ Y ≤ ˙ Z → Y ≤ ˙ Z
24 4 6 18 7 23 syl13anc ⊢ φ → Y ≤ ˙ X ∨ ˙ Y ∧ X ∨ ˙ Y ≤ ˙ Z → Y ≤ ˙ Z
25 22 24 mpand ⊢ φ → X ∨ ˙ Y ≤ ˙ Z → Y ≤ ˙ Z
26 21 25 jcad ⊢ φ → X ∨ ˙ Y ≤ ˙ Z → X ≤ ˙ Z ∧ Y ≤ ˙ Z
27 16 26 impbid ⊢ φ → X ≤ ˙ Z ∧ Y ≤ ˙ Z ↔ X ∨ ˙ Y ≤ ˙ Z