(* RELOCATION MAP ***********************************************************)
-let rec tls (f:rtmap) (n:nat) on n: rtmap ≝ match n with
+rec definition tls (f:rtmap) (n:nat) on n: rtmap ≝ match n with
[ O ⇒ f | S m ⇒ ⫱(tls f m) ].
interpretation "tls (rtmap)" 'DropPreds n f = (tls f n).