intros; intro;
eapply
(NoDACChange s o (subjectSC s) (objectSC s) (files s)
(directories s) (secmat s)).
generalize H; elim s; simpl in |- *; auto.
Qed.

Lemma NoMACObjChange :
forall (s : SFSstate) (o : OBJECT) (FILES : set (OBJECT * FILECONT))
(DIRECTS : set (OBJECT * DIRCONT))
(ACL : set (OBJECT * AccessCtrlListData)) (SSC : set (SUBJECT * SecClass))
(SM : set (OBJECT * ReadersWriters)),
~
MACObjCtrlAttrHaveChanged s
(mkSFS (groups s) (primaryGrp s) SSC (AllGrp s)
(RootGrp s) (SecAdmGrp s) (objectSC s) ACL SM FILES DIRECTS) o.