X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fparamodulation%2Fdiscrimination_tree.ml;h=443c5c63bc043d12a61d4ff67f881611120a7307;hb=e67aacd065c5f2bb90dc6b07850b4f4c2bc865fc;hp=9470e1bdec34d17edde11a06eb51b252dbbe21b9;hpb=969fb8763a6d4afb88aef1eaa4a4d1ce7d626264;p=helm.git diff --git a/helm/ocaml/paramodulation/discrimination_tree.ml b/helm/ocaml/paramodulation/discrimination_tree.ml index 9470e1bde..443c5c63b 100644 --- a/helm/ocaml/paramodulation/discrimination_tree.ml +++ b/helm/ocaml/paramodulation/discrimination_tree.ml @@ -94,6 +94,7 @@ module DiscriminationTree = struct end *) + let string_of_discrimination_tree tree = let rec to_string level = function | DiscriminationTree.Node (value, map) ->