## Natural Numbers

We may define the type of (value level) natural numbers in terms of singleton types. The idea is that a natural number is, basically, an unknown singleton type. This is why we use an existential construct in the definition:

```
data Natural = forall n . Natural !(Nat n)
instance Enum Natural
instance Eq Natural
instance Integral Natural
instance Num Natural
instance Ord Natural
instance Read Natural
instance Real Natural
instance Show Natural
```

The instances make it possible to work with 'Naturals' as with any other numeric type.
Note, however, that some of the operations are partial.
For example, subtracting a larger number from a smaller one results in the undefined value of type *Natural*.

We also provide some functions for converting *Integer* values into their corresponding *Natural* ones.
We do this by using an intermediate representation for integers in terms of naturals, *NaturalInteger*. This type
is intended to be used only for the conversion. While, in principle, we could provide numeric instances for the type,
we chose not to, because we would be duplicating functionality provided by the type *Integer*.

```
data NaturalInteger
= Negative Natural
| NonNegative Natural
toNaturalInteger :: Integer -> NaturalInteger
subNatural :: Natural -> Natural -> NaturalInteger
```