(** Def 3 of (Rose) *)

Definition OneMinus'_e : Cobham :=
  Rec2
    (One_e 0)
    (Zero_e 2)
    (One_e 1).

(* Specifications: *)
Lemma arity_OneMinus' : arity OneMinus'_e = ok_arity 1.
Lemma rec_bounded_OneMinus' : rec_bounded OneMinus'_e.
Lemma OneMinus'_correct : forall l, hd nil l = nil \/ bs2nat (hd nil l) <> 0 -> bs2nat (Sem OneMinus'_e l) = 1 - bs2nat (hd nil l).
Lemma arity_OneMinus : arity OneMinus_e = ok_arity 1.
Lemma rec_bounded_OneMinus : rec_bounded OneMinus_e.
Lemma OneMinus_correct : forall l, bs2nat (Sem OneMinus_e l) = 1 - bs2nat (hd nil l).