X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fng_assembly%2Fcommon%2Fsigma.ma;h=34ee411cd8cc84191f1ec2641b79830f11264841;hb=a90c31c1b53222bd6d57360c5ba5c2d0fe7d5207;hp=529ca7ada03fc8e242df4987af656be8b0b9ac7d;hpb=4377e950998c9c63937582952a79975947aa9a45;p=helm.git

diff --git a/helm/software/matita/contribs/ng_assembly/common/sigma.ma b/helm/software/matita/contribs/ng_assembly/common/sigma.ma
index 529ca7ada..34ee411cd 100755
--- a/helm/software/matita/contribs/ng_assembly/common/sigma.ma
+++ b/helm/software/matita/contribs/ng_assembly/common/sigma.ma
@@ -16,15 +16,13 @@
 (*                          Progetto FreeScale                            *)
 (*                                                                        *)
 (*   Sviluppato da: Ing. Cosimo Oliboni, oliboni@cs.unibo.it              *)
-(*   Sviluppo: 2008-2010                                                  *)
+(*   Ultima modifica: 05/08/2009                                          *)
 (*                                                                        *)
 (* ********************************************************************** *)
 
-include "common/theory.ma".
-
 (* coppia dipendente *)
 
-ninductive sigma (A:Type) (P:A → Type) : Type ≝
+inductive sigma (A:Type) (P:A → Type) : Type ≝
     sigma_intro: ∀x:A.P x → sigma A P.
 
 notation < "hvbox(\Sigma ident i opt (: tx) break . p)"
@@ -46,7 +44,7 @@ interpretation "dependent pair" 'dependent_pair \eta.c a b = (sigma_intro ? c a
 
 interpretation "sigma" 'Sigma \eta.x = (sigma ? x).
 
-ndefinition sigmaFst ≝
+definition sigmaFst ≝
 λT:Type.λf:T → Type.λs:sigma T f.match s with [ sigma_intro x _ ⇒ x ].
-ndefinition sigmaSnd ≝
+definition sigmaSnd ≝
 λT:Type.λf:T → Type.λs:sigma T f.match s return λs.f (sigmaFst ?? s) with [ sigma_intro _ x ⇒ x ].