(*This definition generalizes the notion of secure state. It includes*) 
(*all the security relevant conditions and also the mathematicals    *) 
(*ones (for instance the one that asserts that subjectSC is a partial*) 
(*function).                                                         *) 
 
Definition GeneralSecureState (s : SFSstate) : Prop :=
  SecureState s /\
  StarProperty s /\
  FuncPre1 s /\
  FuncPre2 s /\
  FuncPre3 s /\ FuncPre4 s /\ FuncPre5 s /\ FuncPre6 s /\ FuncPre7 s.

Lemma InitialStateIsSecure : GeneralSecureState InitState.