mirror of
https://github.com/anoma/juvix.git
synced 2024-11-30 05:42:26 +03:00
18 lines
328 B
Plaintext
18 lines
328 B
Plaintext
-- pattern matching nullary constructor
|
|
module test040;
|
|
|
|
import Stdlib.System.IO open;
|
|
import Stdlib.Data.Bool open;
|
|
import Stdlib.Data.Nat open;
|
|
|
|
type Unit :=
|
|
| unit : Unit;
|
|
|
|
type Foo (A : Type) :=
|
|
| foo : Unit -> A -> Foo A;
|
|
|
|
f : {A : Type} -> Foo A -> A
|
|
| (foo unit a) := a;
|
|
|
|
main : Nat := ite (f (foo unit true)) 1 0;
|