diff options
| -rw-r--r-- | pretyping/inductiveops.ml | 1 | ||||
| -rw-r--r-- | test-suite/bugs/closed/shouldsucceed/3000.v | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/pretyping/inductiveops.ml b/pretyping/inductiveops.ml index 0017fee78..ef95fbb5c 100644 --- a/pretyping/inductiveops.ml +++ b/pretyping/inductiveops.ml @@ -327,6 +327,7 @@ let find_rectype env sigma c = match kind_of_term t with | Ind ind -> let (mib,mip) = Inductive.lookup_mind_specif env ind in + if mib.mind_nparams > List.length l then raise Not_found; let (par,rargs) = List.chop mib.mind_nparams l in IndType((ind, par),rargs) | _ -> raise Not_found diff --git a/test-suite/bugs/closed/shouldsucceed/3000.v b/test-suite/bugs/closed/shouldsucceed/3000.v new file mode 100644 index 000000000..27de34ed1 --- /dev/null +++ b/test-suite/bugs/closed/shouldsucceed/3000.v @@ -0,0 +1,2 @@ +Inductive t (t':Type) : Type := A | B. +Definition d := match t with _ => 1 end. (* used to fail on list_chop *) |