X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Ftests%2Frecord.ma;h=24bed8ade8da8dc9158fc5523bc2bee7d2b337a3;hb=a5126dcf31146ae630a38e7ca42a61d3eeadd0e6;hp=ed9ecfed89044bb99ba17cf90fcb14f411dab30e;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git

diff --git a/helm/software/matita/tests/record.ma b/helm/software/matita/tests/record.ma
index ed9ecfed8..24bed8ade 100644
--- a/helm/software/matita/tests/record.ma
+++ b/helm/software/matita/tests/record.ma
@@ -12,7 +12,7 @@
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/tests/record/".
+
 
 record empty : Type \def {}.
 
@@ -37,3 +37,8 @@ record paperino: Prop \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