X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcontribs%2Fassembly%2Ffreescale%2Fextra.ma;h=7da45c848e3a2aef8e3f012548998ea217c177ce;hb=e78cf74f8976cf0ca554f64baa9979d0423ee927;hp=207a5a267d386b67af511cedf815e1c242114261;hpb=c6094ab9349aaa41a8c29c5773a3e756ac819e7f;p=helm.git

diff --git a/helm/software/matita/contribs/assembly/freescale/extra.ma b/helm/software/matita/contribs/assembly/freescale/extra.ma
index 207a5a267..7da45c848 100644
--- a/helm/software/matita/contribs/assembly/freescale/extra.ma
+++ b/helm/software/matita/contribs/assembly/freescale/extra.ma
@@ -208,7 +208,7 @@ axiom or_lt_le : ∀n,m. n < m ∨ m ≤ n.
 
 lemma le_to_lt: ∀n,m. n ≤ m → n < S m.
  intros;
- autobatch.
+ unfold;autobatch.
 qed.
 
 alias num (instance 0) = "natural number".
@@ -253,7 +253,7 @@ lemma leq_m_n_to_eq_div_n_m_S: ∀n,m:nat. 0 < m → m ≤ n → ∃z. n/m = S z
         ]
      | elim H1; autobatch
      ]
-  | autobatch
+  | exists;[apply (pred m);]autobatch
   ].
 qed.