(* il y a trois sortes de messages *)
	
Inductive Message : Set :=
  | dec : Message
  | inc_dec : Site -> Message
  | copy : Message.(* il y a trois sortes de messages *)
	
Inductive Message : Set :=
  | dec : Message
  | inc_dec : Site -> Message
  | copy : Message.(* il y a trois sortes de messages *)
	
Inductive Message : Set :=
  | dec : Message
  | inc_dec : Site -> Message
  | copy : Message.(* il y a trois sortes de messages *)
	
Inductive Message : Set :=
  | dec : Message
  | inc_dec : Site -> Message
  | copy : Message.

Theorem eq_message_dec : eq_dec Message.