def cs.p.r4

bend-osdev-caps@0.1.0.0 · PROOF.bend:818

import Base
import bend-osdev-caps@0.1.0.0/caps.bend as C
import bend-osdev-caps@0.1.0.0/adjust.bend as A

818def cs.p.r4(+sp: Bool, +iok: Bool, +c: C.CapCred, +e: C.CapSet(), +p: C.CapSet(), +i: C.CapSet()) -> {C.CapSet.subset(p, C.CapState.permitted(C.CapCred.sets(c))) == True{} : Bool} -> {C.CapSet.subset(C.CapState.permitted(C.CapCred.sets(C.Caps.or(A.CapAdjust.capset.r4(sp, iok, c, e, p, i), c))), C.CapState.permitted(C.CapCred.sets(c))) == True{} : Bool}:
819  match sp iok:
820    case True{} iok:
821      h => cs.p.done(c, e, p, i)(h)
822    case False{} True{}:
823      h => cs.p.done(c, e, p, i)(h)
824    case False{} False{}:
825      h => set.sub_refl(C.CapState.permitted(C.CapCred.sets(c)))