From 4ba9e28bece4ade924206e0aa08d913d56bb9df3 Mon Sep 17 00:00:00 2001 From: herbelin Date: Thu, 8 Nov 2001 14:10:48 +0000 Subject: Introduction d'univers frais dans les types implicites engendrés par le prétypage MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2172 85f007b7-540e-0410-9357-904b9bb8a0f7 --- pretyping/cases.ml | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'pretyping/cases.ml') diff --git a/pretyping/cases.ml b/pretyping/cases.ml index 7b7ef647d..b1cb40250 100644 --- a/pretyping/cases.ml +++ b/pretyping/cases.ml @@ -132,11 +132,6 @@ let build_notdep_pred env sigma indf pred = exception NotInferable of ml_case_error -let rec refresh_types t = match kind_of_term t with - | Sort (Type _) -> new_Type () - | Prod (na,u,v) -> mkProd (na,u,refresh_types v) - | _ -> t - let pred_case_ml_fail env sigma isrec (IndType (indf,realargs)) (i,ft) = let pred = let (ind,params) = indf in @@ -147,7 +142,7 @@ let pred_case_ml_fail env sigma isrec (IndType (indf,realargs)) (i,ft) = let j = snd ind in (* index of inductive *) let nbrec = if isrec then count_rec_arg j recargi else 0 in let nb_arg = List.length (recargs.(i)) + nbrec in - let pred = refresh_types (concl_n env sigma nb_arg ft) in + let pred = Evarutil.refresh_universes (concl_n env sigma nb_arg ft) in if noccur_between 1 nb_arg pred then lift (-nb_arg) pred else -- cgit v1.2.3