---

Step * of Lemma hdf-bind-gen-halt-left

∀[Y:Top]. (hdf-halt() ({}) >>= Y ~ hdf-halt())
BY
{ (Auto THEN RepUR ``hdf-bind-gen bind-nxt`` 0 THEN RecUnfold `mk-hdf` 0 THEN Reduce 0 THEN Auto) }

---

Latex:


\mforall{}[Y:Top].  (hdf-halt()  (\{\})  >>=  Y  \msim{}  hdf-halt())


By

(Auto  THEN  RepUR  ``hdf-bind-gen  bind-nxt``  0  THEN  RecUnfold  `mk-hdf`  0  THEN  Reduce  0  THEN  Auto)

---

Home Index