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

  let Number/nonNegative = ../Number/nonNegative.dhall nix

  in  λ(a : Double) → Number/nonNegative (Number/fromDouble a)