def ilog_ok

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

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

426def ilog_ok(~T: Data, ~op: N.Op<T> -> T, ~test: N.Test<T> -> Bool, +n: T, +b: T, bad: Bool) -> Result<&2, &2, N.NumError, Nat>:
427  match bad:
428    case True{}:
429      Fail{N.BadDomain{}}
430    case False{}:
431      Done{ilog_go(~T, ~op, ~test, fuel(), op(N.Quot{n, b}), b, 0n, op(N.One{}), le(~T, ~test, op(N.One{}), op(N.Quot{n, b})))}