(* *)

(* An example *)

Inductive Nat : Type :=
  | Z : Nat
  | Suc : Nat -> Nat.(* *)

(* An example *)

Inductive Nat : Type :=
  | Z : Nat
  | Suc : Nat -> Nat.(* *)

(* An example *)

Inductive Nat : Type :=
  | Z : Nat
  | Suc : Nat -> Nat.Definition Eq_Nat (N1 N2 : Nat) := N1 = N2.

(* Specifications: *)
Lemma Eq_Nat_equiv : Equivalence Eq_Nat.