X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2FRELATIONAL%2Fdatatypes%2FList.ma;h=fc989d3767d0ecfdf986cadf705b7f2fcc205de1;hb=d9824956d9132109ed5f23380a0a1f9c5181d18a;hp=69a53f8962d3ec5aea277b0700ebe07cb95a70de;hpb=092d5c718ea90255ce1009acd5aa0942e4449898;p=helm.git

diff --git a/helm/software/matita/contribs/RELATIONAL/datatypes/List.ma b/helm/software/matita/contribs/RELATIONAL/datatypes/List.ma
index 69a53f896..fc989d376 100644
--- a/helm/software/matita/contribs/RELATIONAL/datatypes/List.ma
+++ b/helm/software/matita/contribs/RELATIONAL/datatypes/List.ma
@@ -12,18 +12,18 @@
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/RELATIONAL/datatypes/List".
+
 
 include "preamble.ma".
 
-inductive List (A:Set): Set \def
+inductive List (A: Type): Type \def
    | nil: List A
    | cons: List A \to A \to List A
 .
 
 (*CSC: the URI must disappear: there is a bug now *)
 interpretation "nil" 'nil = 
-   (cic:/matita/RELATIONAL/datatypes/List/List.ind#xpointer(1/1) _).
+   (cic:/matita/RELATIONAL/datatypes/List/List.ind#xpointer(1/1) ?).
 
 notation "hvbox([])"
   non associative with precedence 95
@@ -31,7 +31,7 @@ for @{ 'nil }.
 
 (*CSC: the URI must disappear: there is a bug now *)
 interpretation "right cons" 'rcons x y = 
-   (cic:/matita/RELATIONAL/datatypes/List/List.ind#xpointer(1/2) _ x y).
+   (cic:/matita/RELATIONAL/datatypes/List/List.ind#xpointer(1/2) ? x y).
 
 notation "hvbox([a break @ b])"
   non associative with precedence 95