diff options
| author |  puech <puech@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-07-29 14:23:48 +0000 |
|---|---|---|
| committer | puech <puech@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-07-29 14:23:48 +0000 |
| commit | 54e8894dd3a1787a89d094bb2917ac7cf72d322a (patch) | |
| tree | 6b1e21c776bc003c8b07fb8ac72e1296ab9a6b54 | |
| parent | 6b2d6dc14fdc3f8c0b71843c88c3903d0394f5e2 (diff) | |
argument renaming in liftn (match with usual terminology)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14311 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | kernel/term.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/kernel/term.ml b/kernel/term.ml index 453cc4c17..0d11b666b 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -923,12 +923,12 @@ let rec exliftn el c = match kind_of_term c with (* Lifting the binding depth across k bindings *) -let liftn k n = - match el_liftn (pred n) (el_shft k ELID) with +let liftn n k = + match el_liftn (pred k) (el_shft n ELID) with | ELID -> (fun c -> c) | el -> exliftn el -let lift k = liftn k 1 +let lift n = liftn n 1 (*********************) (* Substituting *) |