diff options
| author | herbelin | 2000-06-01 20:44:16 +0000 |
|---|---|---|
| committer | herbelin | 2000-06-01 20:44:16 +0000 |
| commit | 5139432d6087f49ef549d8375a1a61db56f86dd1 (patch) | |
| tree | 5d49a28094c8ae88b21737946f93174318a87cb3 /kernel/indtypes.ml | |
| parent | e563ed5bf7681b910e36d2dc4ea99406da940cec (diff) | |
Mise en place d'un choix constr/typed_type en remplacement de certains Cast
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@484 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/indtypes.ml')
| -rw-r--r-- | kernel/indtypes.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml index 5cedd542c5..979d24536a 100644 --- a/kernel/indtypes.ml +++ b/kernel/indtypes.ml @@ -293,6 +293,7 @@ let listrec_mconstr env ntypes nparams i indlc = let lna = it_dbenv (fun l na t -> na::l) [] (context env) in Array.map (fun c -> + let c = body_of_type c in try check_construct true (1+nparams) (decomp_par nparams c) with IllFormedInd err -> @@ -330,7 +331,7 @@ let cci_inductive env env_ar kind nparams finite inds cst = (fun acc (_,ar,_,_,_,lc) -> Idset.union (global_vars_set (body_of_type ar)) (Array.fold_left - (fun acc c -> Idset.union (global_vars_set c) acc) + (fun acc c -> Idset.union (global_vars_set (body_of_type c)) acc) acc lc)) Idset.empty inds |