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


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

1
1. BoundedLattice
2. eq EqDecider(Point(l))
3. fset(Point(l))
4. Point(l)
5. ∀[x:Point(l)]. /\(s) ≤ supposing x ∈ s
6. ¬x ∈ s
7. x@0 Point(l)
8. x@0 ∈ fset-add(eq;x;s)
⊢ x ∧ /\(s) ≤ x@0


Latex:


Latex:

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


By


Latex:
(Unfold  `fset-add`  0
  THEN  (RWO  "lattice-fset-meet-union"  0  THENA  Auto)
  THEN  (RWO  "lattice-fset-meet-singleton"  0  THENA  Auto))




Home Index