diff options
| -rw-r--r-- | pretyping/unification.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index c76055d4f7..9e1ccd0260 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -631,7 +631,7 @@ let unify_to_type env sigma flags c status u = let c = refresh_universes c in let t = get_type_of env sigma c in let t = nf_betaiota sigma (nf_meta sigma t) in - unify_0 env sigma Cumul flags t u + unify_0 env sigma CUMUL flags t u let unify_type env sigma flags mv status c = let mvty = Typing.meta_type sigma mv in |