def net.gof_app

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

import Base
import bend-osdev-apparmor@0.1.0.0/perm.bend as P
import bend-osdev-apparmor@0.1.0.0/rule_network.bend as RN

3601def net.gof_app(+xs: List<&2, RN.AaNetRule>, +ys: List<&2, RN.AaNetRule>) -> {RN.AaNetRule.grants.of(RN.AaNetRule.append(xs, ys)) == P.AaGrant.append(RN.AaNetRule.grants.of(xs), RN.AaNetRule.grants.of(ys)) : List<&2, P.AaGrant>}:
3602  match xs:
3603    case Nil{}:
3604      {==}
3605    case Con{r, t}:
3606      match r:
3607        case RN.AaNetRule{qu, d, ty, pr}:
3608          Equal.cong(List<&2, P.AaGrant>, List<&2, P.AaGrant>, x => Con{P.AaGrant.of(qu, P.AaPerms.bit(0n)), x}, RN.AaNetRule.grants.of(RN.AaNetRule.append(t, ys)), P.AaGrant.append(RN.AaNetRule.grants.of(t), RN.AaNetRule.grants.of(ys)), net.gof_app(t, ys))