diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-04-05 14:05:42 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2017-04-05 14:27:34 +0200 |
| commit | 2794b3c91bbbef115303b40f2e494ad97467dc9e (patch) | |
| tree | 140e9012eb3c5a4313cda02bc82075f86e0f0836 /pretyping/evarconv.ml | |
| parent | c112063ba5f562d511ed0cbd754a41539fc48fe1 (diff) | |
Removing a normalization hotspot from EConstr.
It was not necessary to normalize a term just to check whether it was a
global reference. The hotspot appeared in mathcomp.
Diffstat (limited to 'pretyping/evarconv.ml')
| -rw-r--r-- | pretyping/evarconv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/evarconv.ml b/pretyping/evarconv.ml index 9c9350ab1..44b771283 100644 --- a/pretyping/evarconv.ml +++ b/pretyping/evarconv.ml @@ -154,7 +154,7 @@ let check_conv_record env sigma (t1,sk1) (t2,sk2) = lookup_canonical_conversion (proji, Sort_cs (family_of_sort s)),[] | _ -> - let c2 = global_of_constr (EConstr.to_constr sigma t2) in + let (c2, _) = Termops.global_of_constr sigma t2 in lookup_canonical_conversion (proji, Const_cs c2),sk2 with Not_found -> let (c, cs) = lookup_canonical_conversion (proji,Default_cs) in |