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