auto.
Qed.
Hint Resolve FILECONTeq_dec.
(*DIRCONT: all the possible contents of directories*)
Definition DIRCONT := list OBJNAME.

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