sig
  val cstr : Facile.Var.Fd.t array -> Facile.Var.Fd.t -> Facile.Cstr.t
  val sum : Facile.Var.Fd.t array -> Facile.Var.Fd.t
end