From 51811443eeb7c594b8db9bbffd387dc0fbfeffd3 Mon Sep 17 00:00:00 2001
From: Alasdair Armstrong
Date: Thu, 7 Nov 2019 16:16:14 +0000
Subject: Backport fixes to SMT generation from poly_mapping branch

---
 src/util.mli | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/util.mli')

diff --git a/src/util.mli b/src/util.mli
index a29bdba2..3d83a1a4 100644
--- a/src/util.mli
+++ b/src/util.mli
@@ -73,6 +73,9 @@ val remove_duplicates : 'a list -> 'a list
 (** [remove_dups compare eq l] as remove_duplicates but with parameterised comparison and equality *)
 val remove_dups : ('a -> 'a -> int) -> ('a -> 'a -> bool) -> 'a list -> 'a list
 
+(** Lift a comparison order to the lexical order on lists *)
+val lex_ord_list : ('a -> 'a -> int) -> 'a list -> 'a list -> int
+
 (** [assoc_equal_opt] and [assoc_compare_opt] are like List.assoc_opt
    but take equality/comparison functions as arguments, rather than
    relying on OCaml's built in equality *)
-- 
cgit v1.2.3