...

diff --git a/helm/software/components/METAS/meta.helm-grafite_parser.src b/helm/software/components/METAS/meta.helm-grafite_parser.src
index abf16caeb042ff6fb9a3617766cc59553dafbfd5..a214a83dcd4df02683e835bfb847b0343d08243c 100644 (file)
--- a/helm/software/components/METAS/meta.helm-grafite_parser.src
+++ b/helm/software/components/METAS/meta.helm-grafite_parser.src
@@ -1,4 +1,4 @@
-requires="helm-lexicon helm-grafite ulex08"
+requires="helm-lexicon helm-grafite ulex08 helm-ng_disambiguation"
 version="0.0.1"
 archive(byte)="grafite_parser.cma"
 archive(native)="grafite_parser.cmxa"

diff --git a/helm/software/components/grafite_parser/grafiteDisambiguate.ml b/helm/software/components/grafite_parser/grafiteDisambiguate.ml
index 4d7655f6dd65234e0128bbd2884c0813f9c85a54..2fbf5a5a1a38f88e3b622ba107dc94f317585d86 100644 (file)
--- a/helm/software/components/grafite_parser/grafiteDisambiguate.ml
+++ b/helm/software/components/grafite_parser/grafiteDisambiguate.ml
@@ -507,6 +507,23 @@ let disambiguate_obj lexicon_status ?baseuri metasenv (text,prefix_len,obj) =
          | None -> raise BaseUriNotSetYet)
     | CicNotationPt.Inductive _ -> assert false
     | CicNotationPt.Theorem _ -> None in
+  (match obj with
+      CicNotationPt.Theorem (_,_,ty,_) ->
+       (try
+         let [_,_,_,ty],_ =
+          NGrafiteDisambiguator.disambiguate_term
+           ~context:[] ~metasenv:[] ~subst:[]
+           ~aliases:DisambiguateTypes.Environment.empty
+           ~universe:(Some DisambiguateTypes.Environment.empty)
+           ("",0,ty)
+         in
+          prerr_endline ("NUOVA DISAMBIGUAZIONE OK!!!!!!!!!  " ^
+           NCicPp.ppterm ~metasenv:[] ~subst:[] ~context:[] ty)
+       with NGrafiteDisambiguator.DisambiguationError _ ->
+        prerr_endline "ERRORE NUOVA DISAMBIGUAZIONE";
+        assert false)
+    | _ -> ()
+  );
   let (diff, metasenv, _, cic, _) =
     singleton "third"
       (GrafiteDisambiguator.disambiguate_obj ~lookup_in_library