diff options
Diffstat (limited to 'plugins/rtauto')
| -rw-r--r-- | plugins/rtauto/proof_search.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/plugins/rtauto/proof_search.ml b/plugins/rtauto/proof_search.ml index 1b9afb7c7..75005f1c8 100644 --- a/plugins/rtauto/proof_search.ml +++ b/plugins/rtauto/proof_search.ml @@ -62,7 +62,8 @@ type form= | Conjunct of form * form | Disjunct of form * form -module Fmap=Map.Make(struct type t=form let compare=compare end) +module FOrd = struct type t = form let compare = Pervasives.compare (** FIXME *) end +module Fmap = Map.Make(FOrd) type sequent = {rev_hyps: form Int.Map.t; |