def cs.v.r1

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

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

911def cs.v.r1(+ok: Bool, +c: C.CapCred, +e: C.CapSet(), +p: C.CapSet(), +i: C.CapSet()) -> {C.CapState.valid(C.CapCred.sets(c)) == True{} : Bool} -> {C.CapState.valid(C.CapCred.sets(C.Caps.or(A.CapAdjust.capset.r1(ok, c, e, p, i), c))) == True{} : Bool}:
912  match ok:
913    case False{}:
914      hv => hv
915    case True{}:
916      hv => cs.v.r2(C.CapSet.subset(e, p), c, e, p, i)({==})(hv)