def STEP

bend-collections-laws-math@1.0.0.0 · proofs/math/typed/f64next.bend:336

import Base
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

336def STEP(+x: F.F64, +y: F.F64) -> F.F64:
337  SF.of_pat(SF.sign(x), SF.pick(Nat, Bool.xor(Cmp.is_lt(SF.ord(x, y)), SF.sign(x)), Nat.add(SF.pat(x), 1n), Nat.sub(SF.pat(x), 1n)))