Merge branch 'sail2' of https://github.com/rems-project/sail into sail2

1 files changed, 4 insertions, 0 deletions

diff --git a/src/util.mli b/src/util.mli
index 9c57e360..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 *)
@@ -237,6 +240,7 @@ val split_on_char : char -> string -> string list
 
 val termcode : int -> string
 val bold : string -> string
+val dim : string -> string
 val darkgray : string -> string
 val green : string -> string
 val red : string -> string