11 lines
349 B
Text
11 lines
349 B
Text
λ(nix : ../NixPrelude.dhall) →
|
|
let Number/fromNatural = ../Number/fromNatural.dhall nix
|
|
|
|
let Number/divide = ../Number/divide.dhall nix
|
|
|
|
let Number/toNatural = ../Number/toNatural.dhall nix
|
|
|
|
in λ(a : Natural) →
|
|
λ(b : Natural) →
|
|
Number/toNatural
|
|
(Number/divide (Number/fromNatural a) (Number/fromNatural b))
|