# 1 "ocaml_util.cppo.mli"
val print_error :
   loc:Location.t
  -> f:(Format.formatter -> 'a -> unit)
  -> Format.formatter
  -> 'a
  -> unit

# 11 "ocaml_util.cppo.mli"
module Utf8_lexeme : sig
  type t = string

  val normalize : t -> (t, string) result
  val is_capitalized : t -> bool

  type validation_result =
    | Valid
    | Invalid_character of Uchar.t   (** Character not allowed *)
    | Invalid_beginning of Uchar.t   (** Character not allowed as first char *)

  val validate_identifier : ?with_dot:bool -> t -> validation_result
  val is_valid_identifier : t -> bool
  val is_lowercase : t -> bool
end
