diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/indtypes.ml | 6 | ||||
| -rw-r--r-- | kernel/inductive.ml | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/kernel/indtypes.ml b/kernel/indtypes.ml index e6faaaa85..57e638982 100644 --- a/kernel/indtypes.ml +++ b/kernel/indtypes.ml @@ -386,8 +386,8 @@ let abstract_mind_lc env ntyps npars lc = lc else let make_abs = - List.tabulate - (function i -> lambda_implicit_lift npars (mkRel (i+1))) ntyps + List.init ntyps + (function i -> lambda_implicit_lift npars (mkRel (i+1))) in Array.map (substl make_abs) lc @@ -552,7 +552,7 @@ let check_positivity kn env_ar params inds = let nmr = rel_context_nhyps params in let check_one i (_,lcnames,lc,(sign,_)) = let ra_env = - List.tabulate (fun _ -> (Norec,mk_norec)) lparams @ lra_ind in + List.init lparams (fun _ -> (Norec,mk_norec)) @ lra_ind in let ienv = (env_ar, 1+lparams, ntypes, ra_env) in let nargs = rel_context_nhyps sign - nmr in check_positivity_one ienv params (kn,i) nargs lcnames lc diff --git a/kernel/inductive.ml b/kernel/inductive.ml index 3132b7e79..b93237679 100644 --- a/kernel/inductive.ml +++ b/kernel/inductive.ml @@ -55,7 +55,7 @@ let inductive_params (mib,_) = mib.mind_nparams let ind_subst mind mib = let ntypes = mib.mind_ntypes in let make_Ik k = mkInd (mind,ntypes-k-1) in - List.tabulate make_Ik ntypes + List.init ntypes make_Ik (* Instantiate inductives in constructor type *) let constructor_instantiate mind mib c = @@ -527,7 +527,7 @@ let branches_specif renv c_spec ci = vra | Dead_code -> Array.make nca Dead_code | _ -> Array.make nca Not_subterm) in - List.tabulate (fun j -> lazy (Lazy.force lvra).(j)) nca) + List.init nca (fun j -> lazy (Lazy.force lvra).(j))) car (* [subterm_specif renv t] computes the recursive structure of [t] and |