From 99c0c1171257384a8d9c1910a3b123fe91bfe29c Mon Sep 17 00:00:00 2001 From: Enrico Tassi Date: Wed, 21 Oct 2009 13:39:28 +0000 Subject: [PATCH] auto is smarter :-) --- helm/software/matita/nlibrary/topology/cantor.ma | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/helm/software/matita/nlibrary/topology/cantor.ma b/helm/software/matita/nlibrary/topology/cantor.ma index f9655f4ca..7864a1ea6 100644 --- a/helm/software/matita/nlibrary/topology/cantor.ma +++ b/helm/software/matita/nlibrary/topology/cantor.ma @@ -133,12 +133,10 @@ nqed. ntheorem th_ch3: ¬∃a:caxs.∀x.ϕ a x = h x. *; #a; #H; ncut (a ◃ { x | x ◃ ∅}); ##[ - napply (replace_char … { x | h x = O }); ##[ ##1,2: #x; ncases (Ph x); - (* nauto; *) #H1; #H2; #H3; nauto; (* ??? *) ##] - napply (replace_char … { x | ϕ a x = O }); ##[##1,2: #x; nrewrite > (H x); - (* nauto; *) #E; napply E; ##] + napply (replace_char … { x | h x = O }); ##[ ##1,2: #x; ncases (Ph x); nauto; ##] + napply (replace_char … { x | ϕ a x = O }); ##[##1,2: #x; nrewrite > (H x); nauto; ##] napply (axiom_cond … a one); ##] #H1; -ncut (a ◃ ∅); ##[ napply (transitivity … H1); #x; nauto; ##] #H2; +ncut (a ◃ ∅); ##[ napply (transitivity … H1); nauto; ##] #H2; nlapply (col2_4 …H2); #H3; ncut (a ∈ 𝐂 a one); ##[ nnormalize; ncases (Ph a); nrewrite > (H a); nauto; ##] #H4; -- 2.39.2