bind-df-program1(A;B;dfpX;dfpY) ==
  let Abg,S,s,F = dfpX
  in <B
     , S?  bag(a:A  (fst(snd((dfpY a)))?))
     , <inl s , {}>
     , s,m.bind-df-next1(F;dfpY;s;m)>  



Definitions occuring in Statement :  bind-df-next1: bind-df-next1(F;dfpY;s;m) spreadn: spread4 pi1: fst(t) pi2: snd(t) unit: Unit apply: f a lambda: x.A[x] pair: <a, b> product: x:A  B[x] inl: inl x  union: left + right empty-bag: {} bag: bag(T)
Definitions :  spreadn: spread4 bag: bag(T) product: x:A  B[x] union: left + right pi1: fst(t) pi2: snd(t) apply: f a unit: Unit pair: <a, b> inl: inl x  empty-bag: {} lambda: x.A[x] bind-df-next1: bind-df-next1(F;dfpY;s;m)
FDL editor aliases :  bind-df-program1

bind-df-program1(A;B;dfpX;dfpY)  ==
    let  Abg,S,s,F  =  dfpX
    in  <B,  S?  \mtimes{}  bag(a:A  \mtimes{}  (fst(snd((dfpY  a)))?)),  <inl  s  ,  \{\}>,  \mlambda{}s,m.bind-df-next1(F;dfpY;s;m)>   


Date html generated: 2011_08_16-AM-09_51_11
Last ObjectModification: 2011_05_07-PM-02_33_53

Home Index