Definition Cobham_to_BC'' n e :=
comp n n (Cobham_to_BC' n e) [poly_BC (rec_simulation n e)]
(map (proj n n) (seq n n)).

Lemma seq_map : forall A len start (f : nat -> A),
map (fun x => f x) (seq start len) = map (fun x => f (x + start)) (seq 0 len).