(* Basic properties *********************************************************)
lemma shift_append_assoc: ∀L,K. ∀T:term. (L @@ K) @@ T = L @@ K @@ T.
-#L #K elim K -K normalize //
+#L #K elim K -K // normalize //
qed.
(* Basic inversion lemmas ***************************************************)