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)).

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.