From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Wed, 26 Nov 2008 17:47:27 +0000 (+0000)
Subject: ...
X-Git-Tag: make_still_working~4498
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;ds=inline;h=051283c78f4b8c6698468a1529e49309f305faf6;p=helm.git

...
---

diff --git a/helm/software/components/METAS/meta.helm-grafite_parser.src b/helm/software/components/METAS/meta.helm-grafite_parser.src
index abf16caeb..a214a83dc 100644
--- 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 4d7655f6d..2fbf5a5a1 100644
--- 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