From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Wed, 21 Oct 2009 14:49:00 +0000 (+0000)
Subject: ...
X-Git-Tag: make_still_working~3266
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=b6dde94d890e89aaaf4e0c2ac84e79bcb617e81f;p=helm.git

...
---

diff --git a/helm/software/matita/nlibrary/topology/cantor.ma b/helm/software/matita/nlibrary/topology/cantor.ma
index 7864a1ea6..bd8a04a22 100644
--- a/helm/software/matita/nlibrary/topology/cantor.ma
+++ b/helm/software/matita/nlibrary/topology/cantor.ma
@@ -87,8 +87,8 @@ ntheorem th3_1: ¬∃a:axs.Z ⊆ S a ∧ S a ⊆ Z.
 *; #a; *; #ZSa; #SaZ; 
 ncut (a ◃ Z); ##[
   nlapply (axiom_cond … a one); #AxCon; nchange in AxCon with (a ◃ S a);
-  (* nauto; *) napply (cover_monotone … AxCon); nassumption; ##] #H; 
-ncut (a ◃ ∅); ##[ napply (transitivity … H); #x; #E; napply E; ##] #H1;
+  napply (cover_monotone … AxCon); nassumption; ##] #H; 
+ncut (a ◃ ∅); ##[ napply (transitivity … H); nwhd in match Z; nauto; ##] #H1;
 ncut (¬ a ∈ S a); ##[ napply (col2_4 … H1); ##] #H2;
 ncut (a ∈ S a); ##[ napply ZSa; napply H1; ##] #H3;
 nauto;