Opaque OneMinus'_e.
Definition OneMinus_e : Cobham :=
Comp 1 OneMinus'_e [Normalize_e].

(* Specifications: *)
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).