8 lines
144 B
Text
8 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 ()
|
||
|
|
|