module Adt;

type Bool :=
  | true
  | false;

type Pair (A B : Type) := mkPair A B;

type Nat :=
  | zero
  | suc Nat;

c1 : Bool := true;

c2 : Bool := false;

c3 : Pair Bool Bool := mkPair true false;

c4 : Nat := zero;

c5 : Nat := suc zero;