Opaque Cobham_to_BC''.
Definition Cobham_to_BC n e :=
comp n 0 (Cobham_to_BC'' n e)
(map (proj n 0) (seq 0 n))
(map (proj n 0) (seq 0 n)).

(* Specifications: *)
Lemma Cobham_to_BC_inf : forall e n,
arity e = ok_arity n ->
arities (Cobham_to_BC n e) = ok_arities n 0.
Lemma Cobham_to_BC_correct : forall e xl n,
rec_bounded e ->
arity e = ok_arity n ->
length xl = n ->
Sem e xl = sem (Cobham_to_BC n e) xl nil.