juvix/tests/positive/Internal/Mutual.juvix

module Mutual;

type Bool :=
     true : Bool
  | false : Bool;

type Nat :=
  zero : Nat
  | suc : Nat → Nat;

not : _;
not false := true;
not true := false;

odd : _;
even : _;

odd zero := false;
odd (suc n) := even n;

even zero := true;
even (suc n) := odd n;

end;