type s.
type t.

reduc forall x:bitstring; g(x) = x;
      forall y:s, x:t; g((x,y)) = y.

process 0

(* EXPECTPV
Error: the result of function g does not have the same type in all rewrite rules.
xtime: error in child process (status : 2)
END *)
