---

Step * 2 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)). ∀a:A.
     (hdf-out(hdf-halt() (hdfs) >>= Y*(v);a) = hdf-out(hdf-halt() (hdfs) >>= λx.hdf-return({x})*(v);a) ∈ bag(C))@i
8. Y : B ─→ hdataflow(A;C)@i
9. hdfs : bag(hdataflow(A;C))@i
10. a : A@i
⊢ hdf-out(fst(hdf-halt() (hdfs) >>= Y(u))*(v);a) = hdf-out(fst(hdf-halt() (hdfs) >>= λx.hdf-return({x})(u))*(v);a) ∈ bag\000C(C)
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)).  \mforall{}a:A.
          (hdf-out(hdf-halt()  (hdfs)  >>=  Y*(v);a)  =  hdf-out(hdf-halt()  (hdfs)  >>=  \mlambda{}x.hdf-return(\{x\})*(v);\000Ca))@i
8.  Y  :  B  {}\mrightarrow{}  hdataflow(A;C)@i
9.  hdfs  :  bag(hdataflow(A;C))@i
10.  a  :  A@i
\mvdash{}  hdf-out(fst(hdf-halt()  (hdfs)  >>=  Y(u))*(v);a)  =  hdf-out(fst(hdf-halt()  (hdfs)  >>=  \mlambda{}x.hdf-return(\{\000Cx\})(u))*(v);a)


By

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

---

Home Index