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