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