---

Step * 1 2 of Lemma fset-closure-exists


1. [T] : Type
2. eq : EqDecider(T)
3. r : T ⟶ ℕ
4. fs : (T ⟶ T) List
5. (∀f∈fs.∀x:T. ((¬((f x) = x ∈ T)) ⇒ r (f x) < r x))
6. s : fset(T)
7. ∀x,y:T.  Dec(x = y ∈ T)
8. ∀n:ℕ. ∀s:fset(T).  ((∀x:T. (x ∈ s ⇒ ((r x) ≤ n))) ⇒ (∃c:fset(T). (c = fs closure of s)))
⊢ ∃c:fset(T). (c = fs closure of s)
BY
{ (InstHyp [⌜fset-max(r;s)⌝;⌜s⌝] (-1)⋅ THEN Auto THEN InstLemma `fset-max_property` [⌜T⌝;⌜eq⌝;⌜r⌝;⌜s⌝]⋅ THEN Auto) }

---

Latex:

---

Latex:

1.  [T]  :  Type
2.  eq  :  EqDecider(T)
3.  r  :  T  {}\mrightarrow{}  \mBbbN{}
4.  fs  :  (T  {}\mrightarrow{}  T)  List
5.  (\mforall{}f\mmember{}fs.\mforall{}x:T.  ((\mneg{}((f  x)  =  x))  {}\mRightarrow{}  r  (f  x)  <  r  x))
6.  s  :  fset(T)
7.  \mforall{}x,y:T.    Dec(x  =  y)
8.  \mforall{}n:\mBbbN{}.  \mforall{}s:fset(T).    ((\mforall{}x:T.  (x  \mmember{}  s  {}\mRightarrow{}  ((r  x)  \mleq{}  n)))  {}\mRightarrow{}  (\mexists{}c:fset(T).  (c  =  fs  closure  of  s)))
\mvdash{}  \mexists{}c:fset(T).  (c  =  fs  closure  of  s)


By

---

Latex:
(InstHyp  [\mkleeneopen{}fset-max(r;s)\mkleeneclose{};\mkleeneopen{}s\mkleeneclose{}]  (-1)\mcdot{}
  THEN  Auto
  THEN  InstLemma  `fset-max\_property`  [\mkleeneopen{}T\mkleeneclose{};\mkleeneopen{}eq\mkleeneclose{};\mkleeneopen{}r\mkleeneclose{};\mkleeneopen{}s\mkleeneclose{}]\mcdot{}
  THEN  Auto)

---

Home Index