diff options
| author | herbelin | 2000-11-20 08:45:05 +0000 |
|---|---|---|
| committer | herbelin | 2000-11-20 08:45:05 +0000 |
| commit | 53e4f67c6dff411646c56663a2e86c45b613f7b9 (patch) | |
| tree | 27713ea049b6db1fed1afc6adad5b1bf7ec347d9 /kernel/closure.ml | |
| parent | 80b2afbc757f1d536e9663d702097be9477bee34 (diff) | |
Introduction constant_path = section_path
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@870 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/closure.ml')
| -rw-r--r-- | kernel/closure.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/kernel/closure.ml b/kernel/closure.ml index 8d65e66d27..7aa464db5b 100644 --- a/kernel/closure.ml +++ b/kernel/closure.ml @@ -34,7 +34,7 @@ let stop() = (* [r_const=(false,cl)] means only those in [cl] *) type reds = { r_beta : bool; - r_const : bool * section_path list; + r_const : bool * constant_path list; r_zeta : bool; r_evar : bool; r_iota : bool } @@ -89,7 +89,7 @@ let unfold_red sp = { type red_kind = BETA | DELTA | ZETA | EVAR | IOTA - | CONST of section_path list | CONSTBUT of section_path list + | CONST of constant_path list | CONSTBUT of constant_path list let rec red_add red = function | BETA -> { red with r_beta = true } @@ -339,7 +339,7 @@ type cbv_value = | LAM of name * constr * constr * cbv_value subs | FIXP of fixpoint * cbv_value subs * cbv_value list | COFIXP of cofixpoint * cbv_value subs * cbv_value list - | CONSTR of int * (section_path * int) * cbv_value array * cbv_value list + | CONSTR of int * inductive_path * cbv_value array * cbv_value list (* les vars pourraient etre des constr, cela permet de retarder les lift: utile ?? *) |