sig
  type +'a elt
  type +'a attrib
  type uri
  type (_, _, _) star
  type 'a form_param
  type ('a, 'b, 'c) lazy_star =
      ?a:'a Eliom_content_sigs.LINKS_AND_FORMS.attrib list ->
      'b Eliom_content_sigs.LINKS_AND_FORMS.elt list Eliom_lazy.request ->
      'c Eliom_content_sigs.LINKS_AND_FORMS.elt
  val lazy_form :
    ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
     [> Html_types.form ])
    Eliom_content_sigs.LINKS_AND_FORMS.lazy_star
  val make_uri :
    ?absolute:bool ->
    ?absolute_path:bool ->
    ?https:bool ->
    service:('get, unit, Eliom_service.get, 'a, 'b, 'c, 'd,
             [< `WithSuffix | `WithoutSuffix ], 'e, unit, 'f)
            Eliom_service.t ->
    ?hostname:string ->
    ?port:int ->
    ?fragment:string ->
    ?keep_nl_params:[ `All | `None | `Persistent ] ->
    ?nl_params:Eliom_parameter.nl_params_set -> 'get -> uri
  val uri_of_string : (unit -> string) -> uri
  val css_link :
    ?a:[< Html_types.link_attrib ] attrib list ->
    uri:uri -> unit -> [> Html_types.link ] elt
  val js_script :
    ?a:[< Html_types.script_attrib ] attrib list ->
    uri:uri -> unit -> [> Html_types.script ] elt
  val a :
    ?absolute:bool ->
    ?absolute_path:bool ->
    ?https:bool ->
    ?a:[< Html_types.a_attrib ] attrib list ->
    service:('get, unit, Eliom_service.get, 'b, 'c, 'd, 'e,
             [< `WithSuffix | `WithoutSuffix ], 'f, unit,
             Eliom_service.non_ocaml)
            Eliom_service.t ->
    ?hostname:string ->
    ?port:int ->
    ?fragment:string ->
    ?keep_nl_params:[ `All | `None | `Persistent ] ->
    ?nl_params:Eliom_parameter.nl_params_set ->
    ?xhr:bool -> 'a elt list -> 'get -> [> 'a Html_types.a ] elt
  module Form :
    sig
      type 'a param = 'a form_param
      val float : float param
      val int : int param
      val int32 : int32 param
      val int64 : int64 param
      val nativeint : nativeint param
      val bool : bool param
      val string : string param
      val user : ('a -> string) -> 'a param
      val make_post_uri_components :
        ?absolute:bool ->
        ?absolute_path:bool ->
        ?https:bool ->
        service:('get, 'post, Eliom_service.post, 'a, 'b, 'c, 'd,
                 [< `WithSuffix | `WithoutSuffix ], 'e, 'f, 'g)
                Eliom_service.t ->
        ?hostname:string ->
        ?port:int ->
        ?fragment:string ->
        ?keep_nl_params:[ `All | `None | `Persistent ] ->
        ?nl_params:Eliom_parameter.nl_params_set ->
        ?keep_get_na_params:bool ->
        'get ->
        'post ->
        string * (string * Eliommod_parameters.param) list * string option *
        (string * Eliommod_parameters.param) list
      val get_form :
        ?absolute:bool ->
        ?absolute_path:bool ->
        ?https:bool ->
        ?a:[< Html_types.form_attrib ] attrib list ->
        service:('a, unit, Eliom_service.get, 'b, 'c, 'd, 'e,
                 [< `WithSuffix | `WithoutSuffix ], 'gn, 'f,
                 Eliom_service.non_ocaml)
                Eliom_service.t ->
        ?hostname:string ->
        ?port:int ->
        ?fragment:string ->
        ?keep_nl_params:[ `All | `None | `Persistent ] ->
        ?nl_params:Eliom_parameter.nl_params_set ->
        ?xhr:bool ->
        ('gn -> [< Html_types.form_content ] elt list) ->
        [> Html_types.form ] elt
      val lwt_get_form :
        ?absolute:bool ->
        ?absolute_path:bool ->
        ?https:bool ->
        ?a:[< Html_types.form_attrib ] attrib list ->
        service:('a, unit, Eliom_service.get, 'b, 'c, 'd, 'e,
                 [< `WithSuffix | `WithoutSuffix ], 'gn, 'f,
                 Eliom_service.non_ocaml)
                Eliom_service.t ->
        ?hostname:string ->
        ?port:int ->
        ?fragment:string ->
        ?keep_nl_params:[ `All | `None | `Persistent ] ->
        ?nl_params:Eliom_parameter.nl_params_set ->
        ?xhr:bool ->
        ('gn -> [< Html_types.form_content ] elt list Lwt.t) ->
        [> Html_types.form ] elt Lwt.t
      val post_form :
        ?absolute:bool ->
        ?absolute_path:bool ->
        ?https:bool ->
        ?a:[< Html_types.form_attrib ] attrib list ->
        service:('get, 'a, Eliom_service.post, 'b, 'c, 'd, 'e,
                 [< `WithSuffix | `WithoutSuffix ], 'f, 'pn,
                 Eliom_service.non_ocaml)
                Eliom_service.t ->
        ?hostname:string ->
        ?port:int ->
        ?fragment:string ->
        ?keep_nl_params:[ `All | `None | `Persistent ] ->
        ?keep_get_na_params:bool ->
        ?nl_params:Eliom_parameter.nl_params_set ->
        ?xhr:bool ->
        ('pn -> [< Html_types.form_content ] elt list) ->
        'get -> [> Html_types.form ] elt
      val lwt_post_form :
        ?absolute:bool ->
        ?absolute_path:bool ->
        ?https:bool ->
        ?a:[< Html_types.form_attrib ] attrib list ->
        service:('get, 'a, Eliom_service.post, 'b, 'c, 'd, 'e,
                 [< `WithSuffix | `WithoutSuffix ], 'f, 'pn,
                 Eliom_service.non_ocaml)
                Eliom_service.t ->
        ?hostname:string ->
        ?port:int ->
        ?fragment:string ->
        ?keep_nl_params:[ `All | `None | `Persistent ] ->
        ?keep_get_na_params:bool ->
        ?nl_params:Eliom_parameter.nl_params_set ->
        ?xhr:bool ->
        ('pn -> [< Html_types.form_content ] elt list Lwt.t) ->
        'get -> [> Html_types.form ] elt Lwt.t
      val input :
        ?a:[< Html_types.input_attrib ] attrib list ->
        input_type:[< Html_types.input_type ] ->
        ?name:[< 'a Eliom_parameter.setoneradio ] Eliom_parameter.param_name ->
        ?value:'a -> 'a param -> [> Html_types.input ] elt
      val file_input :
        ?a:[< Html_types.input_attrib ] attrib list ->
        name:[< Eliom_lib.file_info Eliom_parameter.setoneradio ]
             Eliom_parameter.param_name ->
        unit -> [> Html_types.input ] elt
      val image_input :
        ?a:[< Html_types.input_attrib ] attrib list ->
        name:[< Eliom_parameter.coordinates Eliom_parameter.oneradio ]
             Eliom_parameter.param_name ->
        ?src:uri -> unit -> [> Html_types.input ] elt
      val checkbox :
        ?a:[< Html_types.input_attrib ] attrib list ->
        ?checked:bool ->
        name:[ `Set of 'a ] Eliom_parameter.param_name ->
        value:'a -> 'a param -> [> Html_types.input ] elt
      val bool_checkbox_one :
        ?a:[< Html_types.input_attrib ] attrib list ->
        ?checked:bool ->
        name:[ `One of bool ] Eliom_parameter.param_name ->
        unit -> [> Html_types.input ] elt
      val radio :
        ?a:[< Html_types.input_attrib ] attrib list ->
        ?checked:bool ->
        name:[ `Radio of 'a ] Eliom_parameter.param_name ->
        value:'a -> 'a param -> [> Html_types.input ] elt
      val string_radio_required :
        ?a:[< Html_types.input_attrib ] attrib list ->
        ?checked:bool ->
        name:[ `One of string ] Eliom_parameter.param_name ->
        value:string -> unit -> [> Html_types.input ] elt
      val button :
        ?a:[< Html_types.button_attrib ] attrib list ->
        button_type:[< Eliom_form_sigs.button_type ] ->
        name:[< 'a Eliom_parameter.setone ] Eliom_parameter.param_name ->
        value:'a ->
        'a param ->
        Html_types.button_content elt list -> [> Html_types.button ] elt
      val button_no_value :
        ?a:[< Html_types.button_attrib ] attrib list ->
        button_type:[< Eliom_form_sigs.button_type ] ->
        Html_types.button_content elt list -> [> Html_types.button ] elt
      val textarea :
        ?a:[< Html_types.textarea_attrib ] attrib list ->
        name:[< string Eliom_parameter.setoneradio ]
             Eliom_parameter.param_name ->
        ?value:string -> unit -> [> Html_types.textarea ] elt
      type 'a soption =
          Html_types.option_attrib attrib list * 'a *
          Html_types.pcdata elt option * bool
      type 'a select_opt =
          Optgroup of
            [ `Accesskey
            | `Aria
            | `Class
            | `Contenteditable
            | `Contextmenu
            | `Dir
            | `Disabled
            | `Draggable
            | `Hidden
            | `Id
            | `Lang
            | `OnAbort
            | `OnBlur
            | `OnCanPlay
            | `OnCanPlayThrough
            | `OnChange
            | `OnClick
            | `OnContextMenu
            | `OnDblClick
            | `OnDrag
            | `OnDragEnd
            | `OnDragEnter
            | `OnDragLeave
            | `OnDragOver
            | `OnDragStart
            | `OnDrop
            | `OnDurationChange
            | `OnEmptied
            | `OnEnded
            | `OnError
            | `OnFocus
            | `OnFormChange
            | `OnFormInput
            | `OnInput
            | `OnInvalid
            | `OnKeyDown
            | `OnKeyPress
            | `OnKeyUp
            | `OnLoad
            | `OnLoadStart
            | `OnLoadedData
            | `OnLoadedMetaData
            | `OnMouseDown
            | `OnMouseMove
            | `OnMouseOut
            | `OnMouseOver
            | `OnMouseUp
            | `OnMouseWheel
            | `OnPause
            | `OnPlay
            | `OnPlaying
            | `OnProgress
            | `OnRateChange
            | `OnReadyStateChange
            | `OnScroll
            | `OnSeeked
            | `OnSeeking
            | `OnSelect
            | `OnShow
            | `OnStalled
            | `OnSubmit
            | `OnSuspend
            | `OnTimeUpdate
            | `OnTouchCancel
            | `OnTouchEnd
            | `OnTouchMove
            | `OnTouchStart
            | `OnVolumeChange
            | `OnWaiting
            | `Role
            | `Spellcheck
            | `Style_Attr
            | `Tabindex
            | `Title
            | `Translate
            | `User_data
            | `XML_lang
            | `XMLns ] attrib list * string * 'a soption * 'a soption list
        | Option of 'a soption
      val select :
        ?a:[< Html_types.select_attrib ] attrib list ->
        ?required:Html_types.pcdata elt ->
        name:[ `One of 'a ] Eliom_parameter.param_name ->
        'a param ->
        'a select_opt -> 'a select_opt list -> [> Html_types.select ] elt
      val multiple_select :
        ?a:[< Html_types.select_attrib ] attrib list ->
        ?required:Html_types.pcdata elt ->
        name:[ `Set of 'a ] Eliom_parameter.param_name ->
        'a param ->
        'a select_opt -> 'a select_opt list -> [> Html_types.select ] elt
    end
end