X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fdatatypes%2Fconstructors.ma;h=dd2a1760b9c640c7853fafbeb33babe2d7670ad2;hb=7782637e13656ec7d1d0ccc84e0d8cf894431187;hp=6d0a68503bb809a72c689be947ef81f38e812c89;hpb=9962ff269442af5e37c7cefe0bb1582f5ed6af61;p=helm.git

diff --git a/helm/software/matita/library/datatypes/constructors.ma b/helm/software/matita/library/datatypes/constructors.ma
index 6d0a68503..dd2a1760b 100644
--- a/helm/software/matita/library/datatypes/constructors.ma
+++ b/helm/software/matita/library/datatypes/constructors.ma
@@ -34,11 +34,11 @@ interpretation "Product" 'product x y =
 notation "hvbox(x break \times y)" with precedence 89
 for @{ 'product $x $y}.
 
-definition fst \def \lambda A,B:Set.\lambda p: Prod A B.
+definition fst \def \lambda A,B:Type.\lambda p: Prod A B.
 match p with
 [(pair a b) \Rightarrow a]. 
 
-definition snd \def \lambda A,B:Set.\lambda p: Prod A B.
+definition snd \def \lambda A,B:Type.\lambda p: Prod A B.
 match p with
 [(pair a b) \Rightarrow b].
 
@@ -54,25 +54,17 @@ interpretation "Second projection" 'snd x =
 notation "\snd x" with precedence 89
 for @{ 'snd $x}.
 
-theorem eq_pair_fst_snd: \forall A,B:Set.\forall p:Prod A B.
+theorem eq_pair_fst_snd: \forall A,B:Type.\forall p:Prod A B.
 p = 〈 (\fst p), (\snd p) 〉.
 intros.elim p.simplify.reflexivity.
 qed.
 
-inductive Sum (A,B:Set) : Set \def
+inductive Sum (A,B:Type) : Type \def
   inl : A \to Sum A B
 | inr : B \to Sum A B.
 
-inductive ProdT (A,B:Type) : Type \def
-pairT : A \to B \to ProdT A B.
-
-definition fstT \def \lambda A,B:Type.\lambda p: ProdT A B.
-match p with
-[(pairT a b) \Rightarrow a]. 
-
-definition sndT \def \lambda A,B:Type.\lambda p: ProdT A B.
-match p with
-[(pairT a b) \Rightarrow b].
+interpretation "Disjoint union" 'plus A B =
+ (cic:/matita/datatypes/constructors/Sum.ind#xpointer(1/1) A B).
 
 inductive option (A:Type) : Type ≝
    None : option A