diff options
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/eConstr.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/engine/eConstr.ml b/engine/eConstr.ml index 28e9ffdb27..bb9075e74a 100644 --- a/engine/eConstr.ml +++ b/engine/eConstr.ml @@ -63,7 +63,9 @@ module EInstance = struct type t = Univ.Instance.t let make i = i - let kind sigma i = Evd.normalize_universe_instance sigma i + let kind sigma i = + if Univ.Instance.is_empty i then i + else Evd.normalize_universe_instance sigma i let empty = Univ.Instance.empty let is_empty = Univ.Instance.is_empty let unsafe_to_instance t = t |