def mode

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

import Base

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