- metas_of_term moved to cicUtil

[helm.git] / helm / software / components / binaries / tptp2grafite / main.ml

diff --git a/helm/software/components/binaries/tptp2grafite/main.ml b/helm/software/components/binaries/tptp2grafite/main.ml
index 8df37fe00e3154f6fd58625bbc24a81ebdb082e8..18fa713a9a05b1f48b71ae81528652018ce28453 100644 (file)
--- a/helm/software/components/binaries/tptp2grafite/main.ml
+++ b/helm/software/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,