(* Add n normal arguments and s safe argument at the beginnings *)
Definition BC_dummies (n n0 s s0 : nat)(e : BC) : BC :=
comp (n+n0) (s+s0) e (map (proj (n+n0) 0)      (seq n        n0))
(map (proj (n+n0) (s+s0)) (seq (n+n0+s) s0)).

Lemma dummies_inf : forall e n n0 s s0,
arities e = ok_arities n0 s0 ->
arities (BC_dummies n n0 s s0 e) = ok_arities (n + n0) (s + s0).