- 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 3567dd915463c8b6c2f809ed8218987a67e78042..6e67c039fe78010f3cc04ab0d41ddf2daa9e09b4 100644 (file)
--- a/helm/software/matita/library/datatypes/constructors.ma
+++ b/helm/software/matita/library/datatypes/constructors.ma
@@ -12,62 +12,45 @@
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/datatypes/constructors/".
 include "logic/equality.ma".
 
 inductive void : Set \def.
 
-inductive Prod (A,B:Set) : Set \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).
+inductive unit : Set ≝ something: unit.
 
-notation "hvbox(\langle x break , y \rangle )" with precedence 89
-for @{ 'pair $x $y}.
+inductive Prod (A,B:Type) : Type \def
+pair : A \to B \to Prod A B.
 
-interpretation "Product" 'product x y =
- (cic:/matita/datatypes/constructors/Prod.ind#xpointer(1/1) x y).
+interpretation "Pair construction" 'pair x y = (pair _ _ x y).
 
-notation "hvbox(x break \times y)" with precedence 89
-for @{ 'product $x $y}.
+interpretation "Product" 'product x y = (Prod 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].
 
-interpretation "First projection" 'fst x =
- (cic:/matita/datatypes/constructors/fst.con _ _ x).
-
-notation "\fst x" with precedence 89
-for @{ 'fst $x}.
-
-interpretation "Second projection" 'snd x =
- (cic:/matita/datatypes/constructors/snd.con _ _ x).
+interpretation "pair pi1" 'pi1 = (fst _ _).
+interpretation "pair pi2" 'pi2 = (snd _ _).
+interpretation "pair pi1" 'pi1a x = (fst _ _ x).
+interpretation "pair pi2" 'pi2a x = (snd _ _ x).
+interpretation "pair pi1" 'pi1b x y = (fst _ _ x y).
+interpretation "pair pi2" 'pi2b x y = (snd _ _ x y).
 
-notation "\snd x" with precedence 89
-for @{ 'snd $x}.
-
-theorem eq_pair_fst_snd: \forall A,B:Set.\forall p:Prod A B.
-p = 〈 (\fst p), (\snd p) 〉.
+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]. 
+interpretation "Disjoint union" 'plus A B = (Sum A B).
 
-definition sndT \def \lambda A,B:Type.\lambda p: ProdT A B.
-match p with
-[(pairT a b) \Rightarrow b].
\ No newline at end of file
+inductive option (A:Type) : Type ≝
+   None : option A
+ | Some : A → option A.