Module Generic

val write_cfgs : ((MyCFG.node -> bool) -> unit) Prelude.ref
module SolverStats (S : Analyses.EqConstrSys) (HM : Prelude.Hashtbl.S with type key = S.v) : sig ... end

use this if your box is join --- the simple solver

module SoundBoxSolverImpl (S : Analyses.EqConstrSys) (H : Prelude.Hashtbl.S with type key = S.v) : sig ... end