Definition False_e n :=
Comp n (Succ false) [Zero_e n].

(* Specifications: *)
Lemma arity_False: forall n : nat, arity (False_e n) = ok_arity n.
Lemma rec_bounded_False: forall n : nat, rec_bounded (False_e n).
Lemma False_correct: forall (n : nat) (l : list bs), bs2nat (Sem (False_e n) l) = 0.
Lemma False_correct_bs: forall (n : nat) (l : list bs), Sem (False_e n) l = [false].
Lemma One_correct n l:
bs2nat (Sem (One_e n) l) = 1.
Lemma One_correct_bs n l:
Sem (One_e n) l = [true].