diff options
| author | herbelin | 2008-04-01 14:41:07 +0000 |
|---|---|---|
| committer | herbelin | 2008-04-01 14:41:07 +0000 |
| commit | 97fb9f22eadab06fe320ccedf6abfb6be89702f4 (patch) | |
| tree | 39236d4d52b822faf79a4d665e79ac689dc3f978 /pretyping | |
| parent | b9f32144ada6df45194ea011b1c6468e10747c8f (diff) | |
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
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/unification.ml | 6 | ||||
| -rw-r--r-- | pretyping/unification.mli | 1 |
2 files changed, 7 insertions, 0 deletions
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 : |