def mul_over

bend-collections-laws-crypto@1.0.0.0 · src/math/w64.bend:102

import Base
import bend-collections-laws-crypto@1.0.0.0/src/math/u64.bend as W

102# a * b >= 2^64
103def mul_over(+a: W.U64, +b: W.U64) -> Bool:
104  Bool.or(Bool.and(Bool.not(U32.is_zero(hi(a))), Bool.not(U32.is_zero(hi(b)))), mul_over_one(mul32(lo(a), lo(b)), add(mul32(hi(a), lo(b)), mul32(lo(a), hi(b)))))