def mnt.gof_app

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

import Base
import bend-osdev-apparmor@0.1.0.0/perm.bend as P
import bend-osdev-apparmor@0.1.0.0/rule_mount.bend as RM

3730def mnt.gof_app(+xs: List<&2, RM.AaMountRule>, +ys: List<&2, RM.AaMountRule>) -> {RM.AaMountRule.grants.of(RM.AaMountRule.append(xs, ys)) == P.AaGrant.append(RM.AaMountRule.grants.of(xs), RM.AaMountRule.grants.of(ys)) : List<&2, P.AaGrant>}:
3731  match xs:
3732    case Nil{}:
3733      {==}
3734    case Con{r, t}:
3735      match r:
3736        case RM.AaMountRule{qu, op, fs, os, so, tg}:
3737          Equal.cong(List<&2, P.AaGrant>, List<&2, P.AaGrant>, x => Con{P.AaGrant.of(qu, P.AaPerms.bit(0n)), x}, RM.AaMountRule.grants.of(RM.AaMountRule.append(t, ys)), P.AaGrant.append(RM.AaMountRule.grants.of(t), RM.AaMountRule.grants.of(ys)), mnt.gof_app(t, ys))