def lift_qr

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

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

98def lift_qr(~T: Data, ~of: Nat -> T, r: Result<&2, &2, M.MathError, M.QuotRem>) -> Result<&2, &2, N.NumError, G.QuotRem<T>>:
99  match r:
100    case Done{M.QR{q, m}}:
101      Done{G.TQR{of(q), of(m)}}
102    case Fail{e}:
103      Fail{err(e)}