module Data.Bool;

type Bool :=
  | true : Bool
  | false : Bool;

not : Bool → Bool;
not true := false;
not false := true;