mirror of
https://github.com/anoma/juvix.git
synced 2025-01-07 16:22:14 +03:00
18 lines
207 B
Plaintext
18 lines
207 B
Plaintext
module Mutual;
|
|
|
|
open import Stdlib.Prelude;
|
|
|
|
odd : _;
|
|
even : _;
|
|
|
|
odd zero := false;
|
|
odd (suc n) := even n;
|
|
|
|
even zero := true;
|
|
even (suc n) := odd n;
|
|
|
|
main : Bool;
|
|
main := even (suc (suc (suc zero)));
|
|
|
|
end;
|