(** * Successor

  - arities: (1, 0)
*)

Definition succ_e : BC := succ true.

(* Specifications: *)
Lemma nat2BC_arities : forall n s x, arities (nat2BC n s x) = ok_arities n s.
Lemma nat2BC_correct : forall n s x nl sl, length (sem (nat2BC n s x) nl sl) = x.