X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fnat%2Ford.ma;h=7dd4fb362bce6a7803caf1837ec2430e6370ddf2;hb=25564c06c570e5ab9be455904c0b381842f8d4c4;hp=cd53cc056eea5fe92a3023995d31c9130672e721;hpb=91f0c0e84bfe6bf22e960d466e16f7260a2882ee;p=helm.git

diff --git a/helm/software/matita/library/nat/ord.ma b/helm/software/matita/library/nat/ord.ma
index cd53cc056..7dd4fb362 100644
--- a/helm/software/matita/library/nat/ord.ma
+++ b/helm/software/matita/library/nat/ord.ma
@@ -299,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.