Sometimes it is useful to create union types with only one case to implement record-like types:
type Point = Point of float * float
let point1 = Point(0.0, 3.0)
let point2 = Point(-2.5, -4.0)
These become very useful because they can be decomposed via pattern matching in the same way as tu...