i,x:Id, k:Knd, ds:a:Id fp-> Type, da:a:Knd fp-> Type,
f:(State(ds)
ma-valtype(da; k)ds(x)?Void).
@i: ma-single-effect(ds; da; k; x; f) 
Dsys
& (D:Dsys.
& (@i: ma-single-effect(ds; da; k; x; f) 
D
& (
& (D
& (realizes es.(x:Id. vartype(i;x) r ds(x)?Top)
& (realizes es.& (e:E.
& (realizes es.& (loc(e) = i Id (valtype(e) r ma-valtype(da; kind(e))))
& (realizes es.& (e:E.
& (realizes es.& (loc(e) = i Id
& (realizes es.& (
& (realizes es.& (kind(e) = k Knd
& (realizes es.& (
& (realizes es.& ((x after e) = f((
z.(z when e)),val(e)) ds(x)?Top))
