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

  let Number/nonPositive = ./nonPositive.dhall nix

  let Number/negate = ./negate.dhall nix

  in  λ(a : Number) → Number/nonPositive (Number/negate a)