sig
  val add_specific_equality :
    for_tau:(Lang.tau -> bool) -> mk_new_eq:Lang.F.binop -> unit
  val prove :
    ?mode:VCS.mode ->
    ?timeout:int ->
    ?steplimit:int -> prover:Why3Provers.t -> Wpo.t -> VCS.result Task.task
end