Nuprl Definition : hdf-buffer2

hdf-buffer2(X;bs) ==
  mk-hdf(Xbs,a.let X,bs Xbs 
               in let X',fs X(a) 
                  in let bs' ←─ ∪f∈fs.bag-map(f;bs)
                     in <<X', if bag-null(bs') then bs else bs' fi >bs'>;s.let X,bs 
                                                                          in hdf-halted(X);<X, bs>)



Definitions occuring in Statement :  mk-hdf: mk-hdf(s,m.G[s; m];st.H[st];s0) hdf-halted: hdf-halted(P) hdf-ap: X(a) callbyvalueall: callbyvalueall ifthenelse: if then else fi  spread: spread def pair: <a, b> bag-combine: x∈bs.f[x] bag-null: bag-null(bs) bag-map: bag-map(f;bs)
FDL editor aliases :  hdf-buffer2
hdf-buffer2(X;bs)  ==
    mk-hdf(Xbs,a.let  X,bs  =  Xbs 
                              in  let  X',fs  =  X(a) 
                                    in  let  bs'  \mleftarrow{}{}  \mcup{}f\mmember{}fs.bag-map(f;bs)
                                          in  <<X',  if  bag-null(bs')  then  bs  else  bs'  fi  >,  bs'>s.let  X,bs  =  s 
                                                                                                                                                    in  hdf-halted(X);<X,  bs>)



Date html generated: 2015_07_17-AM-08_05_47
Last ObjectModification: 2012_11_23-PM-02_09_37

Home Index