StartPSP.
inversion H.
auto.
Qed.

(* Specifications: *)
Lemma ChsubscPCP : forall s t : SFSstate, PreservesControlProp s Chsubsc t.
intros; unfold PreservesControlProp in |- *; intros Sub TF; inversion TF;
unfold ControlProperty in |- *.
Lemma WritePCP : forall s t : SFSstate, PreservesControlProp s Write t.
intros; unfold PreservesControlProp in |- *; intros Sub TF; inversion TF;
unfold ControlProperty in |- *.