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

Lemma EqfOSC2 :
forall (s : SFSstate) (o : OBJECT) (p : OBJNAME) (u : SUBJECT),
p <> ObjName o -> fOSC (objectSC s) o = fOSC (mkdir_oSC s u p) o.