diff options
Diffstat (limited to 'interp/constrintern.ml')
| -rw-r--r-- | interp/constrintern.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index a73c22ee5..d56a375bf 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -1611,7 +1611,7 @@ let internalize sigma globalenv env allow_patvar lvar c = let _,args_rel = list_chop nparams (List.rev mip.Declarations.mind_arity_ctxt) in canonize_args args_rel l (Idset.elements forbidden_names_for_gen) [] [] in - match_to_do, Some (cases_pattern_expr_loc t,ind,nparams,List.rev_map snd nal) + match_to_do, Some (cases_pattern_expr_loc t,ind,List.rev_map snd nal) | None -> [], None in (tm',(snd na,typ)), extra_id, match_td |