(** * False  - with any arities (n, s) *)
Definition false_e (n s:nat) : BC :=
comp n s (comp 0 0 (succ false) nil (zero :: nil)) nil nil.

(* Specifications: *)
Lemma false_correct n s l1 l2:
bs2bool (sem (false_e n s) l1 l2) = false.
Lemma false_correct_nat n s l1 l2:
bs2nat (sem (false_e n s) l1 l2) = 0.