intros.
unfold mkdir_acl in |- *.
elim (fSSC (subjectSC s) u); elim (fsecmat (secmat s) (MyDir p)).
intros; unfold facl in |- *; apply AddEq.
intro y1; apply H; rewrite y1; simpl in |- *; auto.
auto.
auto.
auto.
Qed.

(* Specifications: *)
Lemma Eqfacl3 :
forall (s : SFSstate) (o1 o2 : OBJECT),
o1 <> o2 -> facl (acl s) o2 = facl (unlink_acl s o1) o2.