diff options
Diffstat (limited to 'kernel/modops.ml')
| -rw-r--r-- | kernel/modops.ml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/kernel/modops.ml b/kernel/modops.ml index d4338f0fbc..40a0e84c52 100644 --- a/kernel/modops.ml +++ b/kernel/modops.ml @@ -163,7 +163,10 @@ and add_module mp mb env = let strengthen_const env mp l cb = match cb.const_body with | Some _ -> cb - | None -> {cb with const_body = Some (mkConst (make_kn mp empty_dirpath l))} + | None -> {cb with const_body = + let const = mkConst (make_kn mp empty_dirpath l) in + Some (Lazy.lazy_from_val const) + } let strengthen_mind env mp l mib = match mib.mind_equiv with | Some _ -> mib |