diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-10-06 18:45:03 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-10-06 18:45:03 +0000 |
| commit | 9f36277960309addcb203351d81b067397dd07dc (patch) | |
| tree | f96dd1c78a3422ac59b37978a60f8a952638335e /pretyping/pretyping.ml | |
| parent | 860cfc641b4fd335b30cb6c5e61606ed6056cc3a (diff) | |
Remplacement des nf_evar (source de complexité polynomiale) par de la
réduction paresseuse.
Accessoirement, suppression d'un test evar_defined inutile car sur
résultat de whd_betadeltaiota qui contient la réduction evar de tête
dans coercion.ml; code mort du commit précédent dans pretyping.ml.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9223 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/pretyping.ml')
| -rw-r--r-- | pretyping/pretyping.ml | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml index 1f13586dd..a94dc0451 100644 --- a/pretyping/pretyping.ml +++ b/pretyping/pretyping.ml @@ -194,13 +194,6 @@ module Pretyping_F (Coercion : Coercion.S) = struct | None -> j | Some t -> evd_comb2 (Coercion.inh_conv_coerce_to loc env) isevars j t - let inh_conv_coerce_to_tycon loc env isevars j = function - | None -> j - | Some t -> - let (evd',z) = Coercion.inh_conv_coerce_to loc env !isevars j t in - isevars := evd'; - z - let push_rels vars env = List.fold_right push_rel vars env (* |