sig
  type +'a id
  val new_elt_id : ?global:bool -> unit -> 'a id
  val create_named_elt :
    id:'a id ->
    'Eliom_content_core.Html5.elt -> 'Eliom_content_core.Html5.elt
  val create_global_elt :
    'Eliom_content_core.Html5.elt -> 'Eliom_content_core.Html5.elt
  val string_of_id : 'a id -> string
end