sig
  type 'a id = 'Eliom_content_core.Html5.Id.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 have_id : 'a id -> 'Eliom_content_core.Html5.elt -> bool
end