X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_disambiguation%2Fnumber_notation.ml;h=2b3ce2d601a351ae4bc81628afb6b58e9c049792;hb=7ca56e8a1f819df077d544b890c49ae59fdf3aa7;hp=09f488e863b412a963f556866a2e5d85ceb21cd4;hpb=2bb6c98121db82a1c67565bb528787f2def7192d;p=helm.git

diff --git a/helm/ocaml/cic_disambiguation/number_notation.ml b/helm/ocaml/cic_disambiguation/number_notation.ml
index 09f488e86..2b3ce2d60 100644
--- a/helm/ocaml/cic_disambiguation/number_notation.ml
+++ b/helm/ocaml/cic_disambiguation/number_notation.ml
@@ -23,10 +23,9 @@
  * http://helm.cs.unibo.it/
  *)
 
-let _ =
-  let const s = Cic.Const (s, []) in
-  let mutind s = Cic.MutInd (s, 0, []) in
+(* $Id$ *)
 
+let _ =
   DisambiguateChoices.add_num_choice
     ("natural number",
       (fun _ num _ -> HelmLibraryObjects.build_nat (int_of_string num)));