more notation

[helm.git] / helm / software / matita / contribs / assembly / freescale / exadecim.ma

diff --git a/helm/software/matita/contribs/assembly/freescale/exadecim.ma b/helm/software/matita/contribs/assembly/freescale/exadecim.ma
index 246ab983eef67519ce572b32909c6f352b8b8f0b..3cfa1536a0a9a21801e3d8d8ed13fc8645f96a40 100644 (file)
--- a/helm/software/matita/contribs/assembly/freescale/exadecim.ma
+++ b/helm/software/matita/contribs/assembly/freescale/exadecim.ma
@@ -1450,7 +1450,7 @@ definition nat_of_exadecim ≝
   [ x0 ⇒ 0 | x1 ⇒ 1 | x2 ⇒ 2  | x3 ⇒ 3  | x4 ⇒ 4  | x5 ⇒ 5  | x6 ⇒ 6  | x7 ⇒ 7
   | x8 ⇒ 8 | x9 ⇒ 9 | xA ⇒ 10 | xB ⇒ 11 | xC ⇒ 12 | xD ⇒ 13 | xE ⇒ 14 | xF ⇒ 15 ].
 
-coercion cic:/matita/freescale/exadecim/nat_of_exadecim.con.
+coercion nat_of_exadecim.
 
 (* naturali → esadecimali *)
 let rec exadecim_of_nat n ≝
@@ -1558,7 +1558,7 @@ lemma lt_nat_of_exadecim_16: ∀e.nat_of_exadecim e < 16.
  intro;
  elim e;
  simplify;
- autobatch depth=17.
+ unfold;autobatch depth=17 size=20.
 qed.
 
 lemma exadecim_of_nat_mod:
@@ -1589,7 +1589,7 @@ lemma exadecim_of_nat_mod:
  rewrite < mod_mod;
   [ apply H;
     unfold lt;
-    autobatch.
+    autobatch depth=20 size=20.
   | autobatch
   ]
 qed.