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 Cobham_to_BC''_inf : forall e n,
arity e = ok_arity n ->
arities (Cobham_to_BC'' n e) = ok_arities n n.