From 97fb9f22eadab06fe320ccedf6abfb6be89702f4 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 1 Apr 2008 14:41:07 +0000
Subject: Ajout "simple apply" et "simple eapply" pour apply sans unfold

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10738 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/unification.ml  | 6 ++++++
 pretyping/unification.mli | 1 +
 2 files changed, 7 insertions(+)

(limited to 'pretyping')

diff --git a/pretyping/unification.ml b/pretyping/unification.ml
index bf72c9c7c5..3f260991c7 100644
--- a/pretyping/unification.ml
+++ b/pretyping/unification.ml
@@ -135,6 +135,12 @@ let default_unify_flags = {
   modulo_delta = Cpred.full;
 }
 
+let default_no_delta_unify_flags = {
+  modulo_conv_on_closed_terms = true;
+  use_metas_eagerly = true;
+  modulo_delta = Cpred.empty;
+}
+
 let unify_0_with_initial_metas metas is_subterm env sigma cv_pb flags m n =
   let nb = nb_rel env in
   let trivial_unify pb (metasubst,_) m n =
diff --git a/pretyping/unification.mli b/pretyping/unification.mli
index 4ca1d7e4f6..e0551b6257 100644
--- a/pretyping/unification.mli
+++ b/pretyping/unification.mli
@@ -21,6 +21,7 @@ type unify_flags = {
 }
 
 val default_unify_flags : unify_flags
+val default_no_delta_unify_flags : unify_flags
 
 (* The "unique" unification fonction *)
 val w_unify :
-- 
cgit v1.2.3