def lift

bend-collections-laws-crypto@1.0.0.0 · spec/math/generic.bend:83

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

83# a Nat result carried to T (values that are no larger than an argument)
84def lift(~T: Data, ~of: Nat -> T, r: Result<&2, &2, M.MathError, Nat>) -> Result<&2, &2, N.NumError, T>:
85  match r:
86    case Done{x}:
87      Done{of(x)}
88    case Fail{e}:
89      Fail{err(e)}