From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Tue, 29 Sep 2009 08:18:25 +0000 (+0000)
Subject: ...
X-Git-Tag: make_still_working~3424
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=d93c422814484956482b1e70d90bb443eb99af21;p=helm.git

...
---

diff --git a/helm/software/matita/nlibrary/sets/partitions.ma b/helm/software/matita/nlibrary/sets/partitions.ma
index c1092c497..1dce8d535 100644
--- a/helm/software/matita/nlibrary/sets/partitions.ma
+++ b/helm/software/matita/nlibrary/sets/partitions.ma
@@ -26,6 +26,7 @@ alias symbol "eq" = "setoid eq".
 alias symbol "eq" = "setoid1 eq".
 alias symbol "eq" = "setoid eq".
 alias symbol "eq" = "setoid1 eq".
+alias symbol "eq" = "setoid eq".
 nrecord partition (A: setoid) : Type[1] ≝ 
  { support: setoid;
    indexes: qpowerclass support;
@@ -175,7 +176,8 @@ napply (. #‡(†?));##[##2: napply Hni2 |##1: ##skip | nassumption]##]
        nlapply(disjoint … P (f i1) (f i1') ???)
        [##2,3: napply f_closed; nassumption
        |##1: @ (fi i1 i2); @;
-         ##[ napply f_closed; nassumption ##| napply (. E‡#);
+         ##[ napply f_closed; nassumption ##| alias symbol "refl" = "refl1".
+napply (. E‡#);
              nwhd; napply f_closed; nassumption]##]
       #E'; ncut(i1 = i1'); ##[ napply (f_inj … E'); nassumption; ##]
       #E''; nrewrite < E''; @;