Release 0.5.9.

[helm.git] / helm / software / matita / contribs / ng_assembly / common / sigma.ma

diff --git a/helm/software/matita/contribs/ng_assembly/common/sigma.ma b/helm/software/matita/contribs/ng_assembly/common/sigma.ma
index 529ca7ada03fc8e242df4987af656be8b0b9ac7d..34ee411cd8cc84191f1ec2641b79830f11264841 100755 (executable)
--- 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 ].