]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/relocation/lift.ma
- test.ma on the disambiguation bug moved to ONAG (just out of the way)
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / relocation / lift.ma
index e48d22e20477b0b796a3f26d6a64d13df42bc563..ba117d867f12573db855baa9ca910921ae324bd8 100644 (file)
@@ -21,7 +21,7 @@ include "basic_2/grammar/term_simple.ma".
 (* Basic_1: includes:
             lift_sort lift_lref_lt lift_lref_ge lift_bind lift_flat
 *)
-inductive lift: nat → nat → relation term ≝
+inductive lift: relation4 nat nat term term ≝
 | lift_sort   : ∀k,d,e. lift d e (⋆k) (⋆k)
 | lift_lref_lt: ∀i,d,e. i < d → lift d e (#i) (#i)
 | lift_lref_ge: ∀i,d,e. d ≤ i → lift d e (#i) (#(i + e))