def inv_ok

bend-collections-laws-math@1.0.0.0 · src/math/generic.bend:589

import Base
import bend-collections-laws-math@1.0.0.0/src/math/num.bend as N

589def inv_ok(~T: Data, ~op: N.Op<T> -> T, ~test: N.Test<T> -> Bool, +a: T, +m: T, zero: Bool) -> Result<&2, &2, N.NumError, T>:
590  match zero:
591    case True{}:
592      Fail{N.DivByZero{}}
593    case False{}:
594      inv_fin(~T, ~op, ~test, m, inv_go(~T, ~op, ~test, fuel(), m, m, op(N.ZeroOp{}), op(N.One{}), zst(~T, ~test, op(N.Rem{a, m}))))