Imported Upstream version 0.4upstream/0.4

1 files changed, 11 insertions, 0 deletions

diff --git a/evm_compute.mli b/evm_compute.mli
new file mode 100644
index 0000000..f50c0db
--- /dev/null
+++ b/evm_compute.mli
@@ -0,0 +1,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