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