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

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.