def u.le_not_lt

bend-osdev-u32@0.1.0.0 · PROOF_order.bend:342

import Base

342# a <= b: not b < a
343def u.le_not_lt(+a: U32, +b: U32, +e: {ule(a, b) == True{} : Bool}) -> {ult(b, a) == False{} : Bool}:
344  %Equal.sym(Cmp, U32.cmp(b, a), cm.flip(U32.cmp(a, b)), u.flip(a, b)) : {Cmp.is_lt(_) == False{} : Bool}
345  cm.not_lt_flip(U32.cmp(a, b), e)