def clamp_c

bend-collections-laws-math@1.0.0.0 · proofs/math/typed/u32int.bend:150

import Base
import bend-collections-laws-math@1.0.0.0/spec/math/generic.bend as SG
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/num.bend as NM
import bend-collections-laws-math@1.0.0.0/src/math/natural.bend as M
import bend-collections-laws-math@1.0.0.0/src/math/instances.bend as I

150def clamp_c(+x: U32, +lo: U32, +hi: U32, +c: Bool, +hc: {I.u32_is(NM.Lt{hi, lo}) == c : Bool}) -> {G.clamp_ok(~U32, ~I.u32_op, ~I.u32_is, x, lo, hi, c) == SG.lift(~U32, ~SG.u32_of, M.clamp(v(x), v(lo), v(hi))) : Result<&2, &2, NM.NumError, U32>}:
151  %Equal.sym(Bool, Nat.is_lt(v(hi), v(lo)), c, lt_of(hi, lo, c, hc)) : {G.clamp_ok(~U32, ~I.u32_op, ~I.u32_is, x, lo, hi, c) == SG.lift(~U32, ~SG.u32_of, M.clamp_ok(v(x), v(lo), v(hi), _)) : Result<&2, &2, NM.NumError, U32>}
152  clamp_d(x, lo, hi, c)