

type t1 'a
type t2 'a
type t3 'a

function t2_of_t1 (t1 'a) : t2 ('a,'a)
meta coercion function t2_of_t1

function bool_of_int bool : int
meta coercion function bool_of_int


function h (x: t1 'a) (b: int) : t1 int

goal G: forall x: t1 (int,int), y: t2 int. h x true = y
