added some typechecks to avoid using equations with the wrong type

[helm.git] / helm / ocaml / paramodulation / utils.ml

diff --git a/helm/ocaml/paramodulation/utils.ml b/helm/ocaml/paramodulation/utils.ml
index d6454f2027d4799fdf2dd49bf1ade2bdd685f24d..840b3a828a5483e4c978b2db62572b18fa9b1fed 100644 (file)
--- a/helm/ocaml/paramodulation/utils.ml
+++ b/helm/ocaml/paramodulation/utils.ml
@@ -1,3 +1,8 @@
+let debug = true;;
+
+let debug_print = if debug then prerr_endline else ignore;;
+
+
 let print_metasenv metasenv =
   String.concat "\n--------------------------\n"
     (List.map (fun (i, context, term) ->