diff options
Diffstat (limited to 'kernel/subtyping.ml')
| -rw-r--r-- | kernel/subtyping.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/subtyping.ml b/kernel/subtyping.ml index 6e20ceeb4c..0e24da5876 100644 --- a/kernel/subtyping.ml +++ b/kernel/subtyping.ml @@ -161,9 +161,9 @@ let check_constant cst env msid1 l info1 cb2 spec2 = match cb2.const_body with | None -> cst | Some lc2 -> - let c2 = Lazy.force_val lc2 in + let c2 = Declarations.force lc2 in let c1 = match cb1.const_body with - | Some c1 -> Lazy.force_val c1 + | Some lc1 -> Declarations.force lc1 | None -> mkConst (make_kn (MPself msid1) empty_dirpath l) in check_conv cst conv env c1 c2 |