]> matita.cs.unibo.it Git - helm.git/commitdiff
no longer depends on MQueryMisc
authorStefano Zacchiroli <zack@upsilon.cc>
Fri, 22 Oct 2004 12:35:15 +0000 (12:35 +0000)
committerStefano Zacchiroli <zack@upsilon.cc>
Fri, 22 Oct 2004 12:35:15 +0000 (12:35 +0000)
helm/ocaml/cic_omdoc/content2cic.ml

index 2cc72933b884cbaca2eeea3ddc2b1d51ed625db3..bf80a5939b47153dd938a84f4a4e2ca96ef65127 100644 (file)
@@ -210,15 +210,9 @@ let proof2cic deannotate p =
                with Not_found -> 
                   prerr_endline ("Not_found in arg2cic: premise " ^ (match prem.Con.premise_binder with None -> "previous" | Some p -> p) ^ ", xref=" ^ prem.Con.premise_xref);
                   raise Not_found))
-      | Con.Lemma lemma -> 
-          MQueryMisc.term_of_cic_textual_parser_uri 
-           (MQueryMisc.cic_textual_parser_uri_of_string
-            (MQueryMisc.wrong_xpointer_format_from_wrong_xpointer_format'
-              lemma.Con.lemma_uri))
-      | Con.Term t -> 
-          deannotate t
-      | Con.ArgProof p ->
-          proof2cic [] p (* empty! *)
+      | Con.Lemma lemma -> CicUtil.term_of_uri lemma.Con.lemma_uri
+      | Con.Term t -> deannotate t
+      | Con.ArgProof p -> proof2cic [] p (* empty! *)
       | Con.ArgMethod s -> raise TO_DO
 
 in proof2cic [] p