intros.
unfold unlink_oSC in |- *.
elim (fOSC (objectSC s) o1).
intro; unfold fOSC in |- *; apply RemEq.
auto.
auto.
Qed.

Lemma Eqfacl1 :
forall (s : SFSstate) (o : OBJECT) (p : OBJNAME) (u : SUBJECT)
(perms : PERMS),
p <> ObjName o -> facl (acl s) o = facl (create_acl s u p perms) o.