intros.
symmetry  in |- *; unfold fOSC in |- *; apply NotInDOMIsUndef.
replace (DOM OBJeq_dec (objectSC s)) with (DOM OBJeq_dec (acl s)).
rewrite H3 in H1; rewrite H3 in H2.
auto.
Qed.

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