---

Step * of Lemma fset-size-empty

∀[T:Type]. ∀[eq:EqDecider(T)]. ∀[s:fset(T)].  uiff(||s|| ≤ 0;s = {} ∈ fset(T))
BY
{ (Auto
   THEN Try ((HypSubst (-1) 0 THEN Auto))
   THEN newQuotD 3
   THEN Unfold `fset` 0
   THEN EqTypeCD
   THEN Auto
   THEN MoveToConcl (-1)
   THEN (GenConclTerm ⌜a⌝⋅ THENA Auto)
   THEN Unfold `fset-size` 0
   THEN DVar `v'
   THEN Reduce 0
   THEN Auto') }

---

Latex:

---

Latex:
\mforall{}[T:Type].  \mforall{}[eq:EqDecider(T)].  \mforall{}[s:fset(T)].    uiff(||s||  \mleq{}  0;s  =  \{\})


By

---

Latex:
(Auto
  THEN  Try  ((HypSubst  (-1)  0  THEN  Auto))
  THEN  newQuotD  3
  THEN  Unfold  `fset`  0
  THEN  EqTypeCD
  THEN  Auto
  THEN  MoveToConcl  (-1)
  THEN  (GenConclTerm  \mkleeneopen{}a\mkleeneclose{}\mcdot{}  THENA  Auto)
  THEN  Unfold  `fset-size`  0
  THEN  DVar  `v'
  THEN  Reduce  0
  THEN  Auto')

---

Home Index