diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-04-01 14:41:07 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-04-01 14:41:07 +0000 |
| commit | 97fb9f22eadab06fe320ccedf6abfb6be89702f4 (patch) | |
| tree | 39236d4d52b822faf79a4d665e79ac689dc3f978 /pretyping/unification.ml | |
| 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/unification.ml')
| -rw-r--r-- | pretyping/unification.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index bf72c9c7c..3f260991c 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 = |