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.

Theorem eq_message_dec : eq_dec Message.