def FRAC

bend-collections-laws-math@1.0.0.0 · proofs/math/typed/f64modf.bend:53

import Base
import bend-collections-laws-math@1.0.0.0/spec/lib/common.bend as C
import bend-collections-laws-math@1.0.0.0/spec/math/f64.bend as SF
import bend-collections-laws-math@1.0.0.0/src/math/f64.bend as F

53def FRAC(+x: F.F64) -> F.F64:
54  SF.round(SF.sign(x), C.low(Nat.sub(SF.zb(), SF.xexp(x)), SF.mant(x)), SF.xexp(x))