diff options
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 5cedd542c..979d24536 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 |