diff options
| author | Alasdair Armstrong | 2019-11-07 16:16:14 +0000 |
|---|---|---|
| committer | Alasdair Armstrong | 2019-11-07 17:48:15 +0000 |
| commit | 51811443eeb7c594b8db9bbffd387dc0fbfeffd3 (patch) | |
| tree | d674c7a81d246d2d21b487b96b22395701d551a3 /src/util.mli | |
| parent | e77a9d4b81c042c3aeefbb54e2d2ce9e28ca2132 (diff) | |
Backport fixes to SMT generation from poly_mapping branch
Diffstat (limited to 'src/util.mli')
| -rw-r--r-- | src/util.mli | 3 |
1 files changed, 3 insertions, 0 deletions
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 *) |