diff options
| author | coq | 2002-10-07 16:56:17 +0000 |
|---|---|---|
| committer | coq | 2002-10-07 16:56:17 +0000 |
| commit | 02ae9a0b28366372c9eaad1c25428c65314e6fcb (patch) | |
| tree | 3526dd0b974d94975edab48075eb6b8117ff2ecb /kernel/subtyping.ml | |
| parent | fb8c46171399af936caa3fbab8eff0cfc06ec94d (diff) | |
Lazy manuelles dans le code
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3100 85f007b7-540e-0410-9357-904b9bb8a0f7
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 |