mirror of
https://github.com/anoma/juvix.git
synced 2024-12-12 14:28:08 +03:00
20 lines
250 B
Plaintext
20 lines
250 B
Plaintext
module Main;
|
|
open import Nat;
|
|
|
|
type Unit :=
|
|
| unit : Unit;
|
|
|
|
f : Nat;
|
|
f :=
|
|
case unit
|
|
| is-zero := zero;
|
|
|
|
f2 : Nat;
|
|
f2 :=
|
|
case suc zero
|
|
| suc is-zero := zero;
|
|
|
|
f3 : Nat → Nat;
|
|
f3 (suc is-zero) := is-zero;
|
|
end;
|