1
1
mirror of https://github.com/anoma/juvix.git synced 2025-01-08 16:51:53 +03:00
juvix/tests/Internal/positive/Mutual.juvix

18 lines
207 B
Plaintext
Raw Normal View History

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;