]> matita.cs.unibo.it Git - helm.git/commitdiff
removed a pointless call to auto
authorEnrico Tassi <enrico.tassi@inria.fr>
Mon, 2 Oct 2006 15:15:31 +0000 (15:15 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Mon, 2 Oct 2006 15:15:31 +0000 (15:15 +0000)
helm/software/matita/library/nat/factorization.ma

index 4c8de0f51ff3e112205dda4c97d26ae1b9939bca..fc9352e12395cbb117af7054f01b17bc41d1c38d 100644 (file)
@@ -126,20 +126,13 @@ cut (r \mod (nth_prime (max_prime_factor n)) \neq O);
     ]
   ].
 *)  
-cut (n=r*(nth_prime p)\sup(q));
-  [letin www \def le.letin www1 \def divides.
-   auto.
-(*
 apply (le_to_or_lt_eq (max_prime_factor r)  (max_prime_factor n)).
 apply divides_to_max_prime_factor.
 assumption.assumption.
 apply (witness r n ((nth_prime p) \sup q)).
-*)
- |
 rewrite < sym_times.
 apply (p_ord_aux_to_exp n n ? q r).
 apply lt_O_nth_prime_n.assumption.
-]
 qed.
 
 theorem p_ord_to_lt_max_prime_factor1: \forall n,p,q,r. O < n \to