(** * Zero  - with any arities (n, s) *)
Definition zero_e (n s:nat) : BC :=
comp n s zero nil nil.
Global Opaque succ_e.
(** * Zero predicate  - arities: (1,0) *)
Definition is_zero_e : BC :=
rec (one_e 0 0) (proj 1 1 1) (zero_e 1 1).

Lemma is_zero_correct v :
bs2bool (sem is_zero_e [v] nil) = true <->
bs2nat v = 0.