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

  let min = ./min.dhall nix

  let Number/isZero = ./isZero.dhall nix

  let Optional/map = ../Optional/map.dhall nix

  let listMin
      : List Number → Optional Number
      = λ(xs : List Number) →
          Optional/map
            Number
            Number
            ( λ(n : Number) →
                if Number/isZero n then n else List/fold Number xs Number min n
            )
            (List/head Number xs)

  in  listMin