sig
  type +'a id
  val new_elt_id : ?global:bool -> unit -> 'a Eliom_content.Html5.Id.id
  val create_named_elt :
    id:'a Eliom_content.Html5.Id.id ->
    'a Eliom_content.Html5.elt -> 'a Eliom_content.Html5.elt
  val create_global_elt :
    'a Eliom_content.Html5.elt -> 'a Eliom_content.Html5.elt
  val have_id :
    'a Eliom_content.Html5.Id.id -> 'b Eliom_content.Html5.elt -> bool
end