ci-add-graph(ci;G;a;b) ==
  let dd,T,f = ci in 
  <add-graph-decls(dd;G;T;a;b)
  , T
  , x.let i,k,s,v = x in if graph-rcvset(a;b;|dd|;G;k)
          then inl v 
          else f x
          fi  
>



Definitions :  spreadn: spread3 add-graph-decls: add-graph-decls(dd;G;T;a;b) pair: <a, b> lambda: x.A[x] spreadn: let w,x,y,z = a in t[w; x; y; z]  ifthenelse: if b then t else f fi  graph-rcvset: graph-rcvset(a;b;S;G;k) es-decl-set-domain: |dd| inl: inl x  apply: f a
FDL editor aliases :  ci-add-graph

ci-add-graph(ci;G;a;b)  ==
    let  dd,T,f  =  ci  in 
    <add-graph-decls(dd;G;T;a;b)
    ,  T
    ,  \mlambda{}x.let  i,k,s,v  =  x  in  if  graph-rcvset(a;b;|dd|;G;k)  then  inl  v    else  f  x  fi   
>


Date html generated: 2010_08_27-AM-09_36_29
Last ObjectModification: 2009_12_16-AM-08_23_15

Home Index