intros.
unfold create_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 Eqfacl2 :
forall (s : SFSstate) (o : OBJECT) (p : OBJNAME) (u : SUBJECT)
(perms : PERMS),
p <> ObjName o -> facl (acl s) o = facl (mkdir_acl s u p perms) o.