diff options
author | 2000-12-26 10:55:31 +0000 | |
---|---|---|
committer | 2000-12-26 10:55:31 +0000 | |
commit | 4116276142fd33901239def9d45fe41ffbcb248b (patch) | |
tree | 13367907b41b82642de10e684d4490bc02255573 /pretyping | |
parent | 3f5e8953a136d4e9ac5e1f5c616315911e39f4b0 (diff) |
Déplacement du type stack de Reduction vers Closure et utilisation pour accélérer la réduction dans Closure
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1221 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
-rw-r--r-- | pretyping/evarconv.ml | 1 | ||||
-rw-r--r-- | pretyping/tacred.ml | 3 |
2 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/evarconv.ml b/pretyping/evarconv.ml index c90dcddb1..f0b50aa0d 100644 --- a/pretyping/evarconv.ml +++ b/pretyping/evarconv.ml @@ -5,6 +5,7 @@ open Util open Names open Term open Reduction +open Closure open Instantiate open Environ open Typing diff --git a/pretyping/tacred.ml b/pretyping/tacred.ml index 1e162a4bd..715cb798a 100644 --- a/pretyping/tacred.ml +++ b/pretyping/tacred.ml @@ -8,6 +8,7 @@ open Term open Inductive open Environ open Reduction +open Closure open Instantiate (************************************************************************) @@ -582,8 +583,6 @@ let rec substlin env name n ol c = | (IsRel _|IsMeta _|IsVar _|IsXtra _|IsSort _ |IsEvar _|IsConst _|IsMutInd _|IsMutConstruct _) -> (n,ol,c) -open Closure - let unfold env sigma name = clos_norm_flags (unfold_flags name) env sigma |