X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_disambiguation%2Fnumber_notation.ml;h=05800ffac70257cda61bf61225fae7fb677254f1;hb=05d666696cb424cd6d1337d9a7e6a420dc8f047a;hp=7ce0ec0a0face58e43e0a041b4733612cb1267bf;hpb=7dbab245dee64ceb23e3f07a661101d6b78ed96a;p=helm.git

diff --git a/helm/ocaml/cic_disambiguation/number_notation.ml b/helm/ocaml/cic_disambiguation/number_notation.ml
index 7ce0ec0a0..05800ffac 100644
--- a/helm/ocaml/cic_disambiguation/number_notation.ml
+++ b/helm/ocaml/cic_disambiguation/number_notation.ml
@@ -24,9 +24,6 @@
  *)
 
 let _ =
-  let const s = Cic.Const (s, []) in
-  let mutind s = Cic.MutInd (s, 0, []) in
-
   DisambiguateChoices.add_num_choice
     ("natural number",
       (fun _ num _ -> HelmLibraryObjects.build_nat (int_of_string num)));
@@ -38,7 +35,7 @@ let _ =
       (fun _ num _ ->
         let num = int_of_string num in
         if num = 0 then
-          raise DisambiguateTypes.Invalid_choice
+          raise (DisambiguateTypes.Invalid_choice (lazy "0 is not a valid positive number"))
         else
           HelmLibraryObjects.build_bin_pos num));
   DisambiguateChoices.add_num_choice