mirror of
https://github.com/anoma/juvix.git
synced 2024-12-14 17:32:00 +03:00
19 lines
187 B
Plaintext
19 lines
187 B
Plaintext
module M;
|
||
|
||
type ℕ :=
|
||
z : ℕ |
|
||
s : ℕ → ℕ;
|
||
|
||
nat : Type;
|
||
nat := ℕ;
|
||
|
||
nat2 : Type;
|
||
nat2 := nat;
|
||
|
||
infixl 1 +;
|
||
+ : nat2 → nat → nat;
|
||
+ z b := b;
|
||
+ (s a) b := s (a + b);
|
||
|
||
end;
|