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

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

  in  max