StartPSP.
inversion H; auto.
Qed.

(* Specifications: *)
Lemma DelUsrGrpFromAclPCP :
forall s t : SFSstate, PreservesControlProp s DelUsrGrpFromAcl t.
Lemma ChmodPCP : forall s t : SFSstate, PreservesControlProp s Chmod t.
intros; unfold PreservesControlProp in |- *; intros Sub TF; inversion TF;
unfold ControlProperty in |- *.
Lemma AddUsrGrpToAclPCP :
forall s t : SFSstate, PreservesControlProp s AddUsrGrpToAcl t.
Lemma ChownPCP : forall s t : SFSstate, PreservesControlProp s Chown t.
intros; unfold PreservesControlProp in |- *; intros Sub TF; inversion TF;
unfold ControlProperty in |- *.