def root_le

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

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

376def root_le(~T: Data, ~op: N.Op<T> -> T, ~test: N.Test<T> -> Bool, +n: T, +k: Nat, +r: T) -> Bool:
377  root_le_fin(~T, ~op, ~test, n, pow_go(~T, ~op, ~test, 1n+k, k, r, True{}, (op(N.One{}), True{})))