X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fnat%2Ford.ma;h=7dd4fb362bce6a7803caf1837ec2430e6370ddf2;hb=8ae1653eb75d2b57c50e077c49cb9d078313ea9d;hp=9d700714585569cb3705be2bb1682ef0148ea7a6;hpb=08fddf59ad83f95ece083c6434bbffee6d0d1ba8;p=helm.git

diff --git a/helm/software/matita/library/nat/ord.ma b/helm/software/matita/library/nat/ord.ma
index 9d7007145..7dd4fb362 100644
--- a/helm/software/matita/library/nat/ord.ma
+++ b/helm/software/matita/library/nat/ord.ma
@@ -249,8 +249,9 @@ unfold.intro.
 elim (divides_times_to_divides ? ? ? H H9).
 apply (absurd ? ? H10 H5).
 apply (absurd ? ? H10 H7).
-(* rewrite > H6.
-rewrite > H8. *)
+(* REGRESSION *)
+rewrite > H6. 
+rewrite > H8.
 autobatch paramodulation.
 unfold prime in H. elim H. assumption.
 qed.
@@ -298,7 +299,7 @@ cut (S O < p)
          apply (lt_to_not_eq O ? H).
          rewrite > H7.
          rewrite < H10.
-         autobatch
+         autobatch;assumption;
         ]
       |elim c
         [rewrite > sym_gcd.