CurrentVarS.S
type v = S.v
type d = S.d
module Var : sig ... end
module Dom : sig ... end
val sys_change : (v -> d) -> v ConstrSys.sys_change_info
val system : S.v -> ((S.v -> S.d) -> (S.v -> S.d -> unit) -> S.d) option