def ptr.gof_app

bend-osdev-apparmor@0.1.0.0 · PROOF.bend:3687

import Base
import bend-osdev-apparmor@0.1.0.0/perm.bend as P
import bend-osdev-apparmor@0.1.0.0/rule_ptrace.bend as RP

3687def ptr.gof_app(+xs: List<&2, RP.AaPtraceRule>, +ys: List<&2, RP.AaPtraceRule>) -> {RP.AaPtraceRule.grants.of(RP.AaPtraceRule.append(xs, ys)) == P.AaGrant.append(RP.AaPtraceRule.grants.of(xs), RP.AaPtraceRule.grants.of(ys)) : List<&2, P.AaGrant>}:
3688  match xs:
3689    case Nil{}:
3690      {==}
3691    case Con{r, t}:
3692      match r:
3693        case RP.AaPtraceRule{qu, p, pe}:
3694          Equal.cong(List<&2, P.AaGrant>, List<&2, P.AaGrant>, x => Con{P.AaGrant.of(qu, p), x}, RP.AaPtraceRule.grants.of(RP.AaPtraceRule.append(t, ys)), P.AaGrant.append(RP.AaPtraceRule.grants.of(t), RP.AaPtraceRule.grants.of(ys)), ptr.gof_app(t, ys))