From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Thu, 1 Jun 2006 11:23:51 +0000 (+0000)
Subject: ...
X-Git-Tag: 0.4.95@7852~1367
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=613077e2729b7a66cf10b4b930b431b73a0062c2;p=helm.git

...
---

diff --git a/components/binaries/tptp2grafite/main.ml b/components/binaries/tptp2grafite/main.ml
index 3c7d5f934..03f8f2e9f 100644
--- a/components/binaries/tptp2grafite/main.ml
+++ b/components/binaries/tptp2grafite/main.ml
@@ -306,9 +306,17 @@ let _ =
     GA.Executable(floc,GA.Command(floc, GA.Include(floc,"legacy/coq.ma")))]
   in
   List.iter pp extra_statements_start;
-  print_endline
+  List.iter 
+   (fun (n,s) -> 
+   print_endline
     (LexiconAstPp.pp_command 
       (LA.Alias(floc,
-        LA.Ident_alias("eq","cic:/Coq/Init/Logic/eq.ind#xpointer(1/1)"))) ^ ".");
+        LA.Ident_alias(n,s))) ^ "."))
+   [("eq","cic:/Coq/Init/Logic/eq.ind#xpointer(1/1)");
+   ("trans_eq","cic:/Coq/Init/Logic/trans_eq.con");
+   ("eq_ind_r","cic:/Coq/Init/Logic/eq_ind_r.con");
+   ("eq_ind","cic:/Coq/Init/Logic/eq_ind.con");
+   ("sym_eq","cic:/Coq/Init/Logic/sym_eq.con");
+   ("refl_equal","cic:/Coq/Init/Logic/eq.ind#xpointer(1/1/1)")];
   List.iter pp grafite_ast_statements;
   exit 0