(* the following test used to show the following bug: the left
parameter A in the type of t was not unified with the left
parameter A in the type of the constructor of the record *)
(* the following test used to show the following bug: the left
parameter A in the type of t was not unified with the left
parameter A in the type of the constructor of the record *)