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 4a7649a79c..c096008db2 100644 --- a/kernel/inductive.ml +++ b/kernel/inductive.ml @@ -171,8 +171,8 @@ let ith_constructor_of_inductive (ind_sp,args) i = ((ind_sp,i),args) exception Induc -let extract_mrectype env sigma t = - let (t,l) = whd_stack env sigma t [] in +let extract_mrectype t = + let (t,l) = whd_stack t [] in match t with | DOPN(MutInd ind_sp,args) -> ((ind_sp,args),l) | _ -> raise Induc |