diff options
Diffstat (limited to 'kernel/inductive.ml')
| -rw-r--r-- | kernel/inductive.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/inductive.ml b/kernel/inductive.ml index dddac2ba0c..740ac8c13d 100644 --- a/kernel/inductive.ml +++ b/kernel/inductive.ml @@ -522,8 +522,8 @@ let branches_specif renv c_spec ci = Array.map (fun t -> Lazy.force (spec_of_tree (lazy t))) vra - | Dead_code -> Array.create nca Dead_code - | _ -> Array.create nca Not_subterm) in + | Dead_code -> Array.make nca Dead_code + | _ -> Array.make nca Not_subterm) in List.tabulate (fun j -> lazy (Lazy.force lvra).(j)) nca) car |