elim x; elim y.
left; auto.
right; intro; discriminate H.
right; intro; discriminate H.
left; auto.
Qed.
Hint Resolve OBJTYPEeq_dec.
(*FILECONT: all the possible contents of files*)
Definition FILECONT := list BYTE.

Lemma FILECONTeq_dec : forall x y : FILECONT, {x = y} + {x <> y}.
unfold FILECONT in |- *; intros; apply Listeq_dec.