X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fnat%2Ford.ma;h=cd53cc056eea5fe92a3023995d31c9130672e721;hb=a2b703feae630d0fdd1740bd18e80ee1f6654a88;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..cd53cc056 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.