(** * True

  - with any arities (n, s)
*)

Definition true_e (n s:nat) : BC :=
  comp n s (comp 0 0 (succ true) nil (zero :: nil)) nil nil.

(* Specifications: *)
Lemma true_correct n s l1 l2: bs2bool (sem (true_e n s) l1 l2) = true.
Lemma true_correct_nat n s l1 l2: bs2nat (sem (true_e n s) l1 l2) = 1.