7 lines
125 B
Text
7 lines
125 B
Text
|
type t = A | B
|
||
|
type tt = C
|
||
|
node t2bool(x: t) returns (b: bool)
|
||
|
let
|
||
|
b = merge x (A-> true) (B-> true) (C-> false)
|
||
|
tel
|