λ(nix : ../NixPrelude.dhall) →
  let Number = ./Type.dhall

  let lessThanEqual = ./lessThanEqual.dhall nix

  let max
      : Number → Number → Number
      = λ(a : Number) → λ(b : Number) → if lessThanEqual a b then b else a

  in  max