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.