diff options
| author | Pierre-Marie Pédrot | 2017-04-01 20:25:05 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-04-01 20:25:05 +0200 |
| commit | b824d8ad00001f6c41d0fc8bbf528dccb937c887 (patch) | |
| tree | b743117ae77263430a2e82930de03b8c0b952fcc | |
| parent | 7babf0d42af11f5830bc157a671bd81b478a4f02 (diff) | |
Restore a fast path in EConstr instance normalization.
| -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 |