few fixes

diff --git a/components/binaries/tptp2grafite/Makefile b/components/binaries/tptp2grafite/Makefile
index 81e30eab3793606589f8d6bf55b62dfa1c155486..d79c2661dbcdea785e51ae4af7f599e5a8cb090e 100644 (file)
--- a/components/binaries/tptp2grafite/Makefile
+++ b/components/binaries/tptp2grafite/Makefile
@@ -31,3 +31,9 @@ generate:
                > ../../../matita/tests/TPTP/$$X.ma || echo Failed: $$X; \
        done
 
+parse:
+       for X in `cat unit_equality_problems`; do\
+         echo "Parsing $$X"; \
+               ./tptp2grafite -tptppath /home/tassi/TPTP-v3.1.1/ $$X \
+               > /dev/null || echo Failed: $$X; \
+       done

diff --git a/components/binaries/tptp2grafite/main.ml b/components/binaries/tptp2grafite/main.ml
index 8df37fe00e3154f6fd58625bbc24a81ebdb082e8..315bfc1006b94175f94a94f0af3e8ac85dd8d9f4 100644 (file)
--- a/components/binaries/tptp2grafite/main.ml
+++ b/components/binaries/tptp2grafite/main.ml
@@ -51,6 +51,12 @@ let collect_fv_from_atom a =
   HExtlib.list_uniq (List.sort compare (aux a))
 ;;  
 
+let collect_fv_from_formulae = function
+  | A.Disjunction _ -> assert false
+  | A.NegAtom a 
+  | A.Atom a -> collect_fv_from_atom a
+;;
+
 let rec convert_term = function
   | A.Variable x -> mk_ident x
   | A.Constant x -> mk_ident x
@@ -144,6 +150,8 @@ let convert_ast statements context = function
       | A.Hypothesis ->
           statements, f::context
       | A.Negated_conjecture ->
+          if collect_fv_from_formulae f <> [] then
+            (*prerr_endline "CONTIENE FV";*)();
           let f = 
             PT.Binder 
              (`Forall,