diff options
| author | Pierre-Marie Pédrot | 2020-10-11 17:40:01 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-10-11 17:48:56 +0200 |
| commit | eb5a67de1fc586acc588d5c61c84df670284f054 (patch) | |
| tree | 67d4b0767fb6796fc911f1123e8d93d378506326 /kernel/subtyping.ml | |
| parent | 9a026fcaeb3fa2678b9c93da8204f9f1ddcc0b31 (diff) | |
Pick the universe graph out of the environment in conversion API.
Diffstat (limited to 'kernel/subtyping.ml')
| -rw-r--r-- | kernel/subtyping.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/subtyping.ml b/kernel/subtyping.ml index 28baa82666..76a1c190be 100644 --- a/kernel/subtyping.ml +++ b/kernel/subtyping.ml @@ -85,7 +85,7 @@ let make_labmap mp list = let check_conv_error error why cst poly f env a1 a2 = try - let cst' = f env (Environ.universes env) a1 a2 in + let cst' = f env a1 a2 in if poly then if Constraint.is_empty cst' then cst else error (IncompatiblePolymorphism (env, a1, a2)) |