X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fcic_disambiguation%2Fnumber_notation.ml;h=e3cc4fa0bd127807de06b53724fec19b31dee452;hb=d8f3098a13d52841ad0022617e7f7ce3c7848670;hp=781deb90e210629c60c26cd75ca192f790c90191;hpb=6e61c5884aa89838a04659f90dc8d210e3703502;p=helm.git

diff --git a/helm/software/components/cic_disambiguation/number_notation.ml b/helm/software/components/cic_disambiguation/number_notation.ml
index 781deb90e..e3cc4fa0b 100644
--- a/helm/software/components/cic_disambiguation/number_notation.ml
+++ b/helm/software/components/cic_disambiguation/number_notation.ml
@@ -29,7 +29,7 @@ let _ =
   DisambiguateChoices.add_num_choice
     ("natural number",
       (fun _ num _ -> LibraryObjects.build_nat (int_of_string num)));
-  DisambiguateChoices.add_num_choice
+(*  DisambiguateChoices.add_num_choice
     ("Coq natural number",
       (fun _ num _ -> HelmLibraryObjects.build_nat (int_of_string num)));
   DisambiguateChoices.add_num_choice
@@ -40,7 +40,7 @@ let _ =
       (fun _ num _ ->
         let num = int_of_string num in
         if num = 0 then
-          raise (DisambiguateTypes.Invalid_choice (lazy "0 is not a valid positive number"))
+          raise (DisambiguateTypes.Invalid_choice (None, lazy "0 is not a valid positive number"))
         else
           HelmLibraryObjects.build_bin_pos num));
   DisambiguateChoices.add_num_choice
@@ -55,4 +55,4 @@ let _ =
             HelmLibraryObjects.build_bin_pos num ]
         else
           assert false))
-
+*)