Use the inversion!

[helm.git] / helm / software / matita / library / nat / ord.ma

diff --git a/helm/software/matita/library/nat/ord.ma b/helm/software/matita/library/nat/ord.ma
index 9d700714585569cb3705be2bb1682ef0148ea7a6..7dd4fb362bce6a7803caf1837ec2430e6370ddf2 100644 (file)
--- 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.