module Mutual;

axiom A : Type;

terminating f : A -> A -> A;
terminating g : A -> A -> A;

g x y := f x x;
f x y := g x (f x x);

end;