diff options
Diffstat (limited to 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index 6722b023fb..2c7829ef94 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -63,8 +63,9 @@ let rec execute mf env cstr = | IsMutInd _ -> (make_judge cstr (type_of_inductive env Evd.empty cstr), cst0) - | IsMutConstruct _ -> - let (typ,kind) = destCast (type_of_constructor env Evd.empty cstr) in + | IsMutConstruct (sp,i,j,args) -> + let (typ,kind) = + destCast (type_of_constructor env Evd.empty (((sp,i),j),args)) in ({ uj_val = cstr; uj_type = typ; uj_kind = kind } , cst0) | IsMutCase (_,p,c,lf) -> |