(* *)
(**************************************************************************)
-set "baseuri" "cic:/matita/tests/record/".
+
record empty : Type \def {}.
pippo : paolo \to paolo;
piero : True
}.
+
+(* 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 *)
+record t (A:Type) : Type := { f : A }.
\ No newline at end of file