diff options
| author | herbelin | 2000-05-18 08:16:56 +0000 |
|---|---|---|
| committer | herbelin | 2000-05-18 08:16:56 +0000 |
| commit | f35cee3e3b2cf29822d887a5749800bd311aa971 (patch) | |
| tree | 09ad5c1690ec85ca5bce80b42dc31be7c1cab030 /kernel/generic.ml | |
| parent | aaa56145f319b58300ed7f914b35eb11321838e4 (diff) | |
Ajout lift_context
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@443 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/generic.ml')
| -rw-r--r-- | kernel/generic.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/kernel/generic.ml b/kernel/generic.ml index 329103fa14..2a8af630da 100644 --- a/kernel/generic.ml +++ b/kernel/generic.ml @@ -148,6 +148,9 @@ let liftn k n = let lift k = liftn k 1 let lift1 c = exliftn (ELSHFT(ELID,1)) c +let lift_context n l = + let k = List.length l in + list_map_i (fun i (name,c) -> (name,liftn n (k-i) c)) 0 l (* explicit substitutions of type 'a *) type 'a subs = |