Inductive Message : Set :=
  | dec : Message
  | inc_dec : Site -> Message
  | copy : Message.Inductive Message : Set :=
  | dec : Message
  | inc_dec : Site -> Message
  | copy : Message.Inductive Message : Set :=
  | dec : Message
  | inc_dec : Site -> Message
  | copy : Message.Inductive Message : Set :=
  | dec : Message
  | inc_dec : Site -> Message
  | copy : Message.

(* Specifications: *)
Theorem eq_message_dec : eq_dec Message.
Theorem eq_message_dec : eq_dec Message.
Theorem eq_message_dec : eq_dec Message.
Theorem eq_message_dec : eq_dec Message.