- transcript: bugfix

[helm.git] / helm / software / matita / library / datatypes / constructors.ma

diff --git a/helm/software/matita/library/datatypes/constructors.ma b/helm/software/matita/library/datatypes/constructors.ma
index d8130d714d1ac75f6d8e52c851ff5dd8eafe743b..6e67c039fe78010f3cc04ab0d41ddf2daa9e09b4 100644 (file)
--- a/helm/software/matita/library/datatypes/constructors.ma
+++ b/helm/software/matita/library/datatypes/constructors.ma
@@ -21,11 +21,9 @@ inductive unit : Set ≝ something: unit.
 inductive Prod (A,B:Type) : Type \def
 pair : A \to B \to Prod A B.
 
-interpretation "Pair construction" 'pair x y =
- (cic:/matita/datatypes/constructors/Prod.ind#xpointer(1/1/1) _ _ x y).
+interpretation "Pair construction" 'pair x y = (pair _ _ x y).
 
-interpretation "Product" 'product x y =
- (cic:/matita/datatypes/constructors/Prod.ind#xpointer(1/1) x y).
+interpretation "Product" 'product x y = (Prod x y).
 
 definition fst \def \lambda A,B:Type.\lambda p: Prod A B.
 match p with
@@ -51,8 +49,7 @@ inductive Sum (A,B:Type) : Type \def
   inl : A \to Sum A B
 | inr : B \to Sum A B.
 
-interpretation "Disjoint union" 'plus A B =
- (cic:/matita/datatypes/constructors/Sum.ind#xpointer(1/1) A B).
+interpretation "Disjoint union" 'plus A B = (Sum A B).
 
 inductive option (A:Type) : Type ≝
    None : option A