diff options
Diffstat (limited to 'contrib/funind')
| -rw-r--r-- | contrib/funind/merge.ml | 2 | ||||
| -rw-r--r-- | contrib/funind/rawterm_to_relation.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/contrib/funind/merge.ml b/contrib/funind/merge.ml index b7cee73902..9bbd165dff 100644 --- a/contrib/funind/merge.ml +++ b/contrib/funind/merge.ml @@ -863,7 +863,7 @@ let rawterm_list_to_inductive_expr prms1 prms2 mib1 mib2 shift List.map (* zeta_normalize t ? *) (fun (id,t) -> false, ((dummy_loc,id),rawterm_to_constr_expr t)) rawlist in - lident , bindlist , cstr_expr , lcstor_expr + lident , bindlist , Some cstr_expr , lcstor_expr diff --git a/contrib/funind/rawterm_to_relation.ml b/contrib/funind/rawterm_to_relation.ml index c16e645c73..75f6207fcc 100644 --- a/contrib/funind/rawterm_to_relation.ml +++ b/contrib/funind/rawterm_to_relation.ml @@ -1192,7 +1192,7 @@ let do_build_inductive let rel_ind i ext_rel_constructors = ((dummy_loc,relnames.(i)), rel_params, - rel_arities.(i), + Some rel_arities.(i), ext_rel_constructors),None in let ext_rel_constructors = (Array.mapi rel_ind ext_rels_constructors) in |