blob: f50c0db6662cfc43542f702f69e9c4b81e750069 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
(** [evm_compute eq blacklist] performs a vm_compute step with the
following provisos: evars can appear in the goal; terms that are
equal (modulo eq) to terms in the blacklist are abstracted
before-hand. *)
val evm_compute : (Term.constr -> Term.constr -> bool) -> Term.constr list -> Proof_type.tactic
(** [evm_compute eq blacklist h] performs an evm_compute step in the hypothesis h *)
val evm_compute_in : (Term.constr -> Term.constr -> bool) -> Term.constr list -> Names.identifier -> Proof_type.tactic
|