diff options
Diffstat (limited to 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index a6934b9dc0..925ca9bf0f 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -470,7 +470,7 @@ let add_mind sp mie env = (ind'::inds, Constraint.union cst cst')) mie.mind_entry_inds params_arity_list - ([],Constraint.empty) in + ([],cst) in (* Finally, we build the inductive packet and push it to env *) let kind = kind_of_path sp in |