def Iroot.le
import bend-collections-laws-crypto@1.0.0.0/spec/math/natural.bend as Naturalimport Base
import bend-collections-laws-crypto@1.0.0.0/src/math/natural.bend as M
217def Iroot.le(+n: Nat, +kp: Nat, +r: Nat, +h: {M.iroot(n, 1n+kp) == Done{r} : Result<&2, &2, M.MathError, Nat>}) -> Type:
218 {Nat.is_le(Nat.pow(r, 1n+kp), n) == True{} : Bool}