7 lines
144 B
Text
7 lines
144 B
Text
type bool = +{'true : 1, 'false : 1}
|
|
|
|
decl not (x : bool) : bool
|
|
defn not x = match x with
|
|
| 'true () => 'false ()
|
|
| 'false () => 'true ()
|
|
|