diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-04-25 16:42:02 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-04-25 16:42:02 +0000 |
| commit | 0204cf4237622468df313d77873020e924247395 (patch) | |
| tree | ea391cb3a86bb55297154121d080771fd289e4f9 /pretyping | |
| parent | bac2937c74053b526dd0b848b490ef5fac05a1ca (diff) | |
Avoid unneeded head-normalizations in coercion code.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15246 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/coercion.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/pretyping/coercion.ml b/pretyping/coercion.ml index d74584d89..60e10ac8e 100644 --- a/pretyping/coercion.ml +++ b/pretyping/coercion.ml @@ -389,8 +389,7 @@ let inh_coerce_to_sort loc env evd j = let inh_coerce_to_base loc env evd j = if Flags.is_program_mode () then let isevars = ref evd in - let typ = hnf env !isevars j.uj_type in - let ct, typ' = mu env isevars typ in + let ct, typ' = mu env isevars j.uj_type in let res = { uj_val = app_opt env isevars ct j.uj_val; uj_type = typ' } @@ -400,8 +399,7 @@ let inh_coerce_to_base loc env evd j = let inh_coerce_to_prod loc env evd t = if Flags.is_program_mode () then let isevars = ref evd in - let typ = hnf env !isevars t in - let _, typ' = mu env isevars typ in + let _, typ' = mu env isevars t in !isevars, typ' else (evd, t) |