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