---

Step * 2 3 of Lemma lattice-fset-meet-is-glb


1. l : BoundedLattice
2. eq : EqDecider(Point(l))
3. s : fset(Point(l))
4. x : Point(l)
5. ∀[v:Point(l)]. ((∀x:Point(l). (x ∈ s ⇒ v ≤ x)) ⇒ v ≤ /\(s))
6. ¬x ∈ s
7. v : Point(l)
8. ∀x@0:Point(l). (x@0 ∈ fset-add(eq;x;s) ⇒ v ≤ x@0)
⊢ v ≤ /\(fset-add(eq;x;s))
BY
{ (Unfold `fset-add` 0
   THEN (RWO "lattice-fset-meet-union" 0 THENA Auto)
   THEN (RWO "lattice-fset-meet-singleton" 0 THENA Auto)
   THEN InstLemma `lattice-meet-is-glb` [⌜l⌝;⌜x⌝;⌜/\(s)⌝]⋅
   THEN Auto) }

1
1. l : BoundedLattice
2. eq : EqDecider(Point(l))
3. s : fset(Point(l))
4. x : Point(l)
5. ∀[v:Point(l)]. ((∀x:Point(l). (x ∈ s ⇒ v ≤ x)) ⇒ v ≤ /\(s))
6. ¬x ∈ s
7. v : Point(l)
8. ∀x@0:Point(l). (x@0 ∈ fset-add(eq;x;s) ⇒ v ≤ x@0)
9. greatest-lower-bound(Point(l);x,y.x ≤ y;x;/\(s);x ∧ /\(s))
⊢ v ≤ x ∧ /\(s)

---

Latex:

---

Latex:

1.  l  :  BoundedLattice
2.  eq  :  EqDecider(Point(l))
3.  s  :  fset(Point(l))
4.  x  :  Point(l)
5.  \mforall{}[v:Point(l)].  ((\mforall{}x:Point(l).  (x  \mmember{}  s  {}\mRightarrow{}  v  \mleq{}  x))  {}\mRightarrow{}  v  \mleq{}  /\mbackslash{}(s))
6.  \mneg{}x  \mmember{}  s
7.  v  :  Point(l)
8.  \mforall{}x@0:Point(l).  (x@0  \mmember{}  fset-add(eq;x;s)  {}\mRightarrow{}  v  \mleq{}  x@0)
\mvdash{}  v  \mleq{}  /\mbackslash{}(fset-add(eq;x;s))


By

---

Latex:
(Unfold  `fset-add`  0
  THEN  (RWO  "lattice-fset-meet-union"  0  THENA  Auto)
  THEN  (RWO  "lattice-fset-meet-singleton"  0  THENA  Auto)
  THEN  InstLemma  `lattice-meet-is-glb`  [\mkleeneopen{}l\mkleeneclose{};\mkleeneopen{}x\mkleeneclose{};\mkleeneopen{}/\mbackslash{}(s)\mkleeneclose{}]\mcdot{}
  THEN  Auto)

---

Home Index