diff options
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 : |