def mode

bend-collections-laws-math@1.0.0.0 · proofs/math/typed/u64int.bend:915

import Base

915# md: every value >= 1, or every value <= 1 (the base 0 case)
916def mode(md: Bool, +x: Nat) -> Bool:
917  match md:
918    case True{}:
919      Nat.is_le(1n, x)
920    case False{}:
921      Nat.is_le(x, 1n)