intros s t Sub FP7 SS TF; inversion TF.
inversion H.
unfold SecureState in |- *.
BreakSS.
split.
auto.
unfold MACSecureState in |- *; simpl in |- *.
intros; elim (SUBeq_dec u u0); intro y0.
rewrite <- y0.
elim (fsecmat (secmat s) o); elim (fSSC (chsubsc_SC s u sc) u);
elim (fOSC (objectSC s) o); (intros; contradiction || auto).
absurd (set_In u (ActReaders a1) \/ set_In u (ActWriters a1)); auto.
replace (fSSC (chsubsc_SC s u sc) u0) with (fSSC (subjectSC s) u0).
unfold MACSecureState in MAC; apply MAC; auto.
auto.
Qed.

(* Specifications: *)
Lemma ChsubscPSP :
forall (s t : SFSstate) (u : SUBJECT),
StarProperty s -> TransFunc u s Chsubsc t -> StarProperty t.