diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-11-08 14:10:48 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-11-08 14:10:48 +0000 |
| commit | 4ba9e28bece4ade924206e0aa08d913d56bb9df3 (patch) | |
| tree | 73e7c9e5d210375eafe1d4918175ae40e4d172b3 /pretyping/cases.ml | |
| parent | 25ea09274a8b085092963fcccf0400f8826f5544 (diff) | |
Introduction d'univers frais dans les types implicites engendrés par le prétypage
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2172 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping/cases.ml')
| -rw-r--r-- | pretyping/cases.ml | 7 |
1 files changed, 1 insertions, 6 deletions
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 |