Operation: sscstat
|
Require Export SFSstate.
Implicit Arguments On.
Section Sscstat.
Variable s: SFSstate.
Operation definition |
Inductive sscstat
[u,user:SUBJECT]: SFSstate -> (Exc SecClass) -> Prop :=
|SscstatOK:
Cases (fSSC (subjectSC s) user)
(fSSC (subjectSC s) u) of
|None _ => True
|_ None => True
|(Some y)
(Some z) => (le_sc y z)
end -> (sscstat u user s (fSSC (subjectSC s) user)).
|
|
End Sscstat.