---

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


1. A : Type
2. B : Type
3. C : Type
4. valueall-type(C)
5. u : A@i
6. v : A List@i
7. ∀Y:B ─→ hdataflow(A;C). ∀hdfs:bag(hdataflow(A;C)).
     hdf-halted(hdf-halt() (hdfs) >>= Y*(v)) = hdf-halted(hdf-halt() (hdfs) >>= λx.hdf-return({x})*(v))@i
8. Y : B ─→ hdataflow(A;C)@i
9. hdfs : bag(hdataflow(A;C))@i
⊢ hdf-halted(fst(hdf-halt() (hdfs) >>= Y(u))*(v)) = hdf-halted(fst(hdf-halt() (hdfs) >>= λx.hdf-return({x})(u))*(v))
BY
{ (RWO "hdf-bind-gen-ap" 0 THEN Auto) }

---

Latex:



1.  A  :  Type
2.  B  :  Type
3.  C  :  Type
4.  valueall-type(C)
5.  u  :  A@i
6.  v  :  A  List@i
7.  \mforall{}Y:B  {}\mrightarrow{}  hdataflow(A;C).  \mforall{}hdfs:bag(hdataflow(A;C)).
          hdf-halted(hdf-halt()  (hdfs)  >>=  Y*(v))  =  hdf-halted(hdf-halt()  (hdfs)  >>=  \mlambda{}x.hdf-return(\{x\})*(\000Cv))@i
8.  Y  :  B  {}\mrightarrow{}  hdataflow(A;C)@i
9.  hdfs  :  bag(hdataflow(A;C))@i
\mvdash{}  hdf-halted(fst(hdf-halt()  (hdfs)  >>=  Y(u))*(v))  =  hdf-halted(fst(hdf-halt()  (hdfs)  >>=  \mlambda{}x.hdf-retu\000Crn(\{x\})(u))*(v))


By

(RWO  "hdf-bind-gen-ap"  0  THEN  Auto)

---

Home Index