def chg.gof_app

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

import Base
import bend-osdev-apparmor@0.1.0.0/perm.bend as P
import bend-osdev-apparmor@0.1.0.0/rule_change_profile.bend as RX

3816def chg.gof_app(+xs: List<&2, RX.AaChangeRule>, +ys: List<&2, RX.AaChangeRule>) -> {RX.AaChangeRule.grants.of(RX.AaChangeRule.append(xs, ys)) == P.AaGrant.append(RX.AaChangeRule.grants.of(xs), RX.AaChangeRule.grants.of(ys)) : List<&2, P.AaGrant>}:
3817  match xs:
3818    case Nil{}:
3819      {==}
3820    case Con{r, t}:
3821      match r:
3822        case RX.AaChangeRule{qu, e, s, tg}:
3823          Equal.cong(List<&2, P.AaGrant>, List<&2, P.AaGrant>, x => Con{P.AaGrant.of(qu, P.AaPerms.bit(0n)), x}, RX.AaChangeRule.grants.of(RX.AaChangeRule.append(t, ys)), P.AaGrant.append(RX.AaChangeRule.grants.of(t), RX.AaChangeRule.grants.of(ys)), chg.gof_app(t, ys))