Definition f'_nil := BC_dummies 1 1 2 (sl - 1) g.

(* Specifications: *)
Lemma f'_nil_inf : arities f'_nil = ok_arities 2 (S sl).
Lemma f'_then_inf : arities f'_then = ok_arities 2 (S sl).
Lemma f'_else_inf : arities f'_else = ok_arities 2 (S sl).
Lemma f'_inf : arities f' = ok_arities 2 sl.
Lemma f_inf : arities f = ok_arities 1 sl.
Lemma f_smash_inf : arities f_smash' = ok_arities 1 2.
Lemma Cobham_to_BC'_inf : forall e sl, arity e = ok_arity sl -> arities (Cobham_to_BC' sl e) = ok_arities 1 sl.