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/term_typing.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/term_typing.ml')
| -rw-r--r-- | kernel/term_typing.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/term_typing.ml b/kernel/term_typing.ml index aabefe6bf2..1145ee94b0 100644 --- a/kernel/term_typing.ml +++ b/kernel/term_typing.ml @@ -81,7 +81,7 @@ let infer_declaration env dcl = | DefinitionEntry c -> let (j,cst) = infer env c.const_entry_body in let (typ,cst) = constrain_type env j cst c.const_entry_type in - Some (Lazy.lazy_from_val j.uj_val), typ, cst, c.const_entry_opaque + Some (Declarations.from_val j.uj_val), typ, cst, c.const_entry_opaque | ParameterEntry t -> let (j,cst) = infer env t in None, Typeops.assumption_of_judgment env j, cst, false @@ -91,7 +91,7 @@ let build_constant_declaration env (body,typ,cst,op) = | None -> global_vars_set env typ | Some b -> Idset.union - (global_vars_set env (Lazy.force_val b)) + (global_vars_set env (Declarations.force b)) (global_vars_set env typ) in let hyps = keep_hyps env ids in |