diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2018-03-15 23:25:53 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2018-06-05 09:59:47 +0200 |
commit | d28c22a7b173fc78de98c8bf0f986cb163e210a0 (patch) | |
tree | 7087075e4ebeab0c10a3339f5f55cc75fa98386f /pretyping/unification.ml | |
parent | f6538f1a7f8ad2bdc0bc446d4ca35078d55d63ee (diff) |
Make direct invocations of `simple apply` obey `Opaque` directive.
When called by auto, `simple apply` still does not respect `Opaque`
because of compatibility issues.
Diffstat (limited to 'pretyping/unification.ml')
-rw-r--r-- | pretyping/unification.ml | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index 5f7faa13e..4c788abdb 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -398,8 +398,13 @@ let default_no_delta_core_unify_flags () = { (default_core_unify_flags ()) with modulo_betaiota = false; } -let default_no_delta_unify_flags () = - let flags = default_no_delta_core_unify_flags () in { +let default_no_delta_unify_flags ts = + let flags = default_no_delta_core_unify_flags () in + let flags = { flags with + modulo_conv_on_closed_terms = Some ts; + modulo_delta_types = ts + } in + { core_unify_flags = flags; merge_unify_flags = flags; subterm_unify_flags = flags; |