- Procedural: generation of "exact" is now complete

[helm.git] / helm / software / components / cic_disambiguation / number_notation.ml

diff --git a/helm/software/components/cic_disambiguation/number_notation.ml b/helm/software/components/cic_disambiguation/number_notation.ml
index 37547bf581b97b6512d2a23e5e765cad061b62c6..06099dcfe20a5aa02ab46be5b22835e517b514d6 100644 (file)
--- a/helm/software/components/cic_disambiguation/number_notation.ml
+++ b/helm/software/components/cic_disambiguation/number_notation.ml
@@ -28,16 +28,16 @@
 let _ =
   DisambiguateChoices.add_num_choice
     ("natural number",
-      (fun _ num _ -> LibraryObjects.build_nat (int_of_string num)));
+      `Num_interp (fun num -> LibraryObjects.build_nat (int_of_string num)));
   DisambiguateChoices.add_num_choice
     ("Coq natural number",
-      (fun _ num _ -> HelmLibraryObjects.build_nat (int_of_string num)));
+      `Num_interp (fun num -> HelmLibraryObjects.build_nat (int_of_string num)));
   DisambiguateChoices.add_num_choice
     ("real number",
-      (fun _ num _ -> HelmLibraryObjects.build_real (int_of_string num)));
+      `Num_interp (fun num -> HelmLibraryObjects.build_real (int_of_string num)));
   DisambiguateChoices.add_num_choice
     ("binary positive number",
-      (fun _ num _ ->
+      `Num_interp (fun num ->
         let num = int_of_string num in
         if num = 0 then
           raise (DisambiguateTypes.Invalid_choice (lazy (Stdpp.dummy_loc, "0 is not a valid positive number")))
@@ -45,7 +45,7 @@ let _ =
           HelmLibraryObjects.build_bin_pos num));
   DisambiguateChoices.add_num_choice
     ("binary integer number",
-      (fun _ num _ ->
+      `Num_interp (fun num ->
         let num = int_of_string num in
         if num = 0 then
           HelmLibraryObjects.BinInt.z0