Opaque Zero_e One_e False_e Rev_e RemoveLSZ_e.
Definition Normalize_e : Cobham :=
Comp 1 Rev_e [Comp 1 RemoveLSZ_e [Rev_e]].

(* Specifications: *)
Lemma arity_Normalize :
arity Normalize_e = ok_arity 1.
Lemma rec_bounded_Normalize :
rec_bounded Normalize_e.
Lemma Normalize_correct : forall l,
bs2nat (Sem Normalize_e l) = bs2nat (Sem (Proj 1 0) l).
Lemma Normalize_normal : forall l,
Sem Normalize_e l = nil \/ bs2nat (Sem Normalize_e l) <> 0.