diff options
| author | herbelin | 2000-07-24 13:39:23 +0000 |
|---|---|---|
| committer | herbelin | 2000-07-24 13:39:23 +0000 |
| commit | 3afaf3dde673d77cacaabc354f008dfbe49a7cee (patch) | |
| tree | 4264164faf763ab8d18274cd5aeffe5a1de21728 /kernel/generic.mli | |
| parent | 83f038e61a4424fcf71aada9f97c91165b73aef8 (diff) | |
Passage à des contextes de vars et de rels pouvant contenir des déclarations
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@568 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/generic.mli')
| -rw-r--r-- | kernel/generic.mli | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/kernel/generic.mli b/kernel/generic.mli index 3f14efaee1..8c2991ff67 100644 --- a/kernel/generic.mli +++ b/kernel/generic.mli @@ -60,8 +60,12 @@ val subst1 : 'a term -> 'a term -> 'a term val global_vars : 'a term -> identifier list val global_vars_set : 'a term -> Idset.t -val subst_var : identifier -> 'a term -> 'a term val replace_vars : (identifier * 'a term) list -> 'a term -> 'a term +val subst_var : identifier -> 'a term -> 'a term + +(* [subst_vars [id1;...;idn] t] substitute [VAR idj] by [Rel j] in [t] + if two names are identical, the one of least indice is keeped *) +val subst_vars : identifier list -> 'a term -> 'a term (* [rel_list n m] and [rel_vect n m] compute [[Rel (n+m);...;Rel(n+1)]] *) val rel_vect : int -> int -> 'a term array |