mirror of
https://github.com/anoma/juvix.git
synced 2024-12-04 17:07:28 +03:00
24 lines
261 B
Plaintext
24 lines
261 B
Plaintext
module Mutual;
|
|
|
|
type Bool :=
|
|
| true : Bool
|
|
| false : Bool;
|
|
|
|
type Nat :=
|
|
| zero : Nat
|
|
| suc : Nat → Nat;
|
|
|
|
not : _
|
|
| false := true
|
|
| true := false;
|
|
|
|
odd : _
|
|
|
|
| zero := false
|
|
| (suc n) := even n;
|
|
|
|
even : _
|
|
|
|
| zero := true
|
|
| (suc n) := odd n;
|