Definition RemoveLSZ_e : Cobham :=
Rec
Zero
(Proj 2 1)
(Comp 2 (Succ true) [Proj 2 0])
(Proj 1 0).

(* Specifications: *)
Lemma arity_RemoveLSZ :
arity RemoveLSZ_e = ok_arity 1.
Lemma rec_bounded_RemoveLSZ :
rec_bounded RemoveLSZ_e.
Lemma RemoveLSZ_app u v l :
Sem RemoveLSZ_e ((u++v)::l) =
match Sem RemoveLSZ_e (u::l) with
| nil => Sem RemoveLSZ_e (v::l)
| u' => u'++v
end.