sig
  type compare =
      [ `no_polymorphic_compare ] ->
      [ `no_polymorphic_compare ] -> [ `no_polymorphic_compare ]
  val compare : No_polymorphic_compare.compare
  val ( < ) : No_polymorphic_compare.compare
  val ( <= ) : No_polymorphic_compare.compare
  val ( > ) : No_polymorphic_compare.compare
  val ( >= ) : No_polymorphic_compare.compare
  val ( = ) : No_polymorphic_compare.compare
  val ( <> ) : No_polymorphic_compare.compare
  val equal : No_polymorphic_compare.compare
  val min : No_polymorphic_compare.compare
  val max : No_polymorphic_compare.compare
  val _squelch_unused_module_warning_ : unit
end