def halve

bend-collections-laws-math@1.0.0.0 · proofs/math/typed/f64sqc.bend:62

import Base

62def halve(+x: Nat, +y: Nat, +h: {Nat.is_le(Nat.add(x, x), Nat.add(y, y)) == True{} : Bool}) -> {Nat.is_le(x, y) == True{} : Bool}:
63  halve_c(x, y, h, Nat.is_le(x, y), {==})