sig
  val csimplify : Constraint.Constraint.cexp -> Constraint.Constraint.cexp
end