diff --git a/doc/10.x/api/client/Eliom_client_core.ReactState.wiki b/doc/10.x/api/client/Eliom_client_core.ReactState.wiki
deleted file mode 100644
index 8b763c9677..0000000000
--- a/doc/10.x/api/client/Eliom_client_core.ReactState.wiki
+++ /dev/null
@@ -1,5 +0,0 @@
-=Module <<a_api_type subproject="client" | module Eliom_client_core.ReactState >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|ReactState>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_client_core.ReactState >><<span class="ocsforge_color_keyword"|end>>>>
-----
-<<pre class="ocsforge_color odocwiki_code" id="TYPEt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|t>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_delimiter"|~{>>
-<<span class="odocwiki_record"|<<span class="odocwiki_field"|<<span class="odocwiki_field_descr"|  <<span class="ocsforge_color_label"|elt:>> <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_content_core.Xml.elt" | type Eliom_content_core.Xml.elt >>>><<span class="ocsforge_color_delimiter"|~;>> >>>><<span class="odocwiki_field"|<<span class="odocwiki_field_descr"|  <<span class="ocsforge_color_label"|global_version:>> <<span class="odocwiki_type"|int <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|js_array>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>><<span class="ocsforge_color_delimiter"|~;>> >>>><<span class="odocwiki_field"|<<span class="odocwiki_field_descr"|  <<span class="ocsforge_color_label"|version_copy:>> <<span class="odocwiki_type"|int <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|js_array>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>><<span class="ocsforge_color_delimiter"|~;>> >>>><<span class="odocwiki_field"|<<span class="odocwiki_field_descr"|  <<span class="ocsforge_color_label"|pos:>> <<span class="odocwiki_type"|int>><<span class="ocsforge_color_delimiter"|~;>> >>>>>><<span class="ocsforge_color_delimiter"|~}>>>><<pre id="VALget_node" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|get~_node>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<a_api subproject="client" text="t" | type Eliom_client_core.ReactState.t >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|node>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALchange_dom" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|change~_dom>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<a_api subproject="client" text="t" | type Eliom_client_core.ReactState.t >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|node>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> bool>>>><<pre id="VALinit_or_update" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|init~_or~_update>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?state: >><<a_api subproject="client" text="t" | type Eliom_client_core.ReactState.t >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|elt>> <<span class="ocsforge_color_delimiter"| -> >> <<a_api subproject="client" text="t" | type Eliom_client_core.ReactState.t >>>>>>
\ No newline at end of file
diff --git a/doc/10.x/api/client/Eliom_client_core.Xml.wiki b/doc/10.x/api/client/Eliom_client_core.Xml.wiki
deleted file mode 100644
index eaf318d28f..0000000000
--- a/doc/10.x/api/client/Eliom_client_core.Xml.wiki
+++ /dev/null
@@ -1,4 +0,0 @@
-=Module <<a_api_type subproject="client" | module Eliom_client_core.Xml >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Xml>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_content_core.Xml" | module Eliom_content_core.Xml >>>>>>
-----
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="W" | module Eliom_content_core.Xml.W >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Xml_wrap.T>>>><<span class="odocwiki_type"| \\      with type 'a t = 'a\\       and type 'a tlist = 'a list\\       and type (-'a, 'b) ft = 'a -> 'b>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEuri"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|uri>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|string>> >><<pre id="VALuri_of_string" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|uri~_of~_string>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="client" text="uri" | type Eliom_content_core.Xml.uri >> <<span class="ocsforge_color_delimiter"| -> >> string>>>><<pre id="VALstring_of_uri" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|string~_of~_uri>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|string <<span class="ocsforge_color_delimiter"| -> >> <<a_api subproject="client" text="uri" | type Eliom_content_core.Xml.uri >>>>>><<pre id="VALuri_of_fun" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|uri~_of~_fun>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >>unit <<span class="ocsforge_color_delimiter"| -> >> string<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >> <<a_api subproject="client" text="uri" | type Eliom_content_core.Xml.uri >>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEaname"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|aname>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|string>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEattrib"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|attrib>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEcaml_event_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|caml~_event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_registered_closure>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string * <<span class="ocsforge_color_uid"|Eliom_lib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|poly>>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_client_closure>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|event>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_client_closure_mouse>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|mouseEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_client_closure_keyboard>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|keyboardEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_client_closure_touch>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|touchEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_call_service>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>[ `A | `Form_get | `Form_post ] * <<span class="ocsforge_color_delimiter"| ( >>bool * string list<<span class="ocsforge_color_delimiter"| ) >> option *\\     string option * <<span class="ocsforge_color_uid"|Ocsigen_lib_base>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|poly>><<span class="ocsforge_color_delimiter"| ) >>\\    option <<a_api subproject="client" text="Eliom_lazy.request" | type Eliom_lazy.request >>>>>>>>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEinternal_event_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|internal~_event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Raw>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Caml>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|<<a_api subproject="client" text="caml_event_handler" | type Eliom_content_core.Xml.caml_event_handler >>>>>>>>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEevent_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|event>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEmouse_event_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|mouse~_event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|mouseEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEkeyboard_event_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|keyboard~_event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|keyboardEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEtouch_event_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|touch~_event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|touchEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEename"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|ename>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|string>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEelt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|elt>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEwrap"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|wrap>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|'a>> >><<pre class="ocsforge_color odocwiki_code" id="TYPElist_wrap"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|list~_wrap>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|'a list>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEecontent"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|econtent>> <<span class="ocsforge_color_delimiter"|~=>> private <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Empty>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Comment>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|EncodedPCDATA>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|PCDATA>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Entity>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Leaf>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|<<a_api subproject="client" text="ename" | type Eliom_content_core.Xml.ename >> * <<a_api subproject="client" text="attrib" | type Eliom_content_core.Xml.attrib >> list>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Node>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<a_api subproject="client" text="ename" | type Eliom_content_core.Xml.ename >> * <<a_api subproject="client" text="attrib" | type Eliom_content_core.Xml.attrib >> list\\       * <<a_api subproject="client" text="elt" | type Eliom_content_core.Xml.elt >> list>>>>>>>>>>
\ No newline at end of file
diff --git a/doc/10.x/api/client/Eliom_content.Html.D.Raw.wiki b/doc/10.x/api/client/Eliom_content.Html.D.Raw.wiki
deleted file mode 100644
index f916f2a93b..0000000000
--- a/doc/10.x/api/client/Eliom_content.Html.D.Raw.wiki
+++ /dev/null
@@ -1,4 +0,0 @@
-=Module <<a_api_type subproject="client" | module Eliom_content.Html.D.Raw >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Html_sigs.Make>>(Xml)(<<span class="ocsforge_color_uid"|Svg.D.Raw>>).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>>~Cf~. <<a_api project="tyxml" | module Html_sigs.T >> ~.
-
-----
diff --git a/doc/10.x/api/client/Eliom_content.Html.F.Raw.wiki b/doc/10.x/api/client/Eliom_content.Html.F.Raw.wiki
deleted file mode 100644
index 0a1342ed56..0000000000
--- a/doc/10.x/api/client/Eliom_content.Html.F.Raw.wiki
+++ /dev/null
@@ -1,4 +0,0 @@
-=Module <<a_api_type subproject="client" | module Eliom_content.Html.F.Raw >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Html_sigs.Make>>(Xml)(<<span class="ocsforge_color_uid"|Svg.F.Raw>>).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>>~Cf~. <<a_api project="tyxml" | module Html_sigs.T >> ~.
-
-----
diff --git a/doc/10.x/api/client/Eliom_content.Svg.D.Raw.wiki b/doc/10.x/api/client/Eliom_content.Svg.D.Raw.wiki
deleted file mode 100644
index 2d1986fc63..0000000000
--- a/doc/10.x/api/client/Eliom_content.Svg.D.Raw.wiki
+++ /dev/null
@@ -1,4 +0,0 @@
-=Module <<a_api_type subproject="client" | module Eliom_content.Svg.D.Raw >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(Xml).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>>~Cf~. <<a_api project="tyxml" | module Html_sigs.T >> ~.
-
-----
diff --git a/doc/10.x/api/client/Eliom_content.Svg.F.Raw.wiki b/doc/10.x/api/client/Eliom_content.Svg.F.Raw.wiki
deleted file mode 100644
index 5e2cf8b42e..0000000000
--- a/doc/10.x/api/client/Eliom_content.Svg.F.Raw.wiki
+++ /dev/null
@@ -1,4 +0,0 @@
-=Module <<a_api_type subproject="client" | module Eliom_content.Svg.F.Raw >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(Xml).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>>~Cf~. <<a_api project="tyxml" | module Html_sigs.T >> ~.
-
-----
diff --git a/doc/10.x/api/client/Eliom_content_core.Html.D.Raw.wiki b/doc/10.x/api/client/Eliom_content_core.Html.D.Raw.wiki
deleted file mode 100644
index e702586f9c..0000000000
--- a/doc/10.x/api/client/Eliom_content_core.Html.D.Raw.wiki
+++ /dev/null
@@ -1,3 +0,0 @@
-=Module <<a_api_type subproject="client" | module Eliom_content_core.Html.D.Raw >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Html_sigs.Make>>(Xml)(<<span class="ocsforge_color_uid"|Svg.D.Raw>>).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>>
-----
diff --git a/doc/10.x/api/client/Eliom_content_core.Html.F.Raw.wiki b/doc/10.x/api/client/Eliom_content_core.Html.F.Raw.wiki
deleted file mode 100644
index a9f14164f0..0000000000
--- a/doc/10.x/api/client/Eliom_content_core.Html.F.Raw.wiki
+++ /dev/null
@@ -1,3 +0,0 @@
-=Module <<a_api_type subproject="client" | module Eliom_content_core.Html.F.Raw >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Html_sigs.Make>>(Xml)(<<span class="ocsforge_color_uid"|Svg.F.Raw>>).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>>
-----
diff --git a/doc/10.x/api/client/Eliom_content_core.Svg.D.Raw.wiki b/doc/10.x/api/client/Eliom_content_core.Svg.D.Raw.wiki
deleted file mode 100644
index 1719e674e7..0000000000
--- a/doc/10.x/api/client/Eliom_content_core.Svg.D.Raw.wiki
+++ /dev/null
@@ -1,3 +0,0 @@
-=Module <<a_api_type subproject="client" | module Eliom_content_core.Svg.D.Raw >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(Xml).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>>
-----
diff --git a/doc/10.x/api/client/Eliom_content_core.Svg.F.Raw.wiki b/doc/10.x/api/client/Eliom_content_core.Svg.F.Raw.wiki
deleted file mode 100644
index c4a3ac6724..0000000000
--- a/doc/10.x/api/client/Eliom_content_core.Svg.F.Raw.wiki
+++ /dev/null
@@ -1,3 +0,0 @@
-=Module <<a_api_type subproject="client" | module Eliom_content_core.Svg.F.Raw >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(Xml).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>>
-----
diff --git a/doc/10.x/api/client/Eliom_content_core.Xml.wiki b/doc/10.x/api/client/Eliom_content_core.Xml.wiki
deleted file mode 100644
index 823bbd2498..0000000000
--- a/doc/10.x/api/client/Eliom_content_core.Xml.wiki
+++ /dev/null
@@ -1,4 +0,0 @@
-=Module <<a_api_type subproject="client" | module Eliom_content_core.Xml >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Xml>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_content_core.Xml >><<span class="ocsforge_color_keyword"|end>>>>
-----
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="W" | module Eliom_content_core.Xml.W >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Xml_wrap.T>>>><<span class="odocwiki_type"| \\      with type 'a t = 'a\\       and type 'a tlist = 'a list\\       and type (-'a, 'b) ft = 'a -> 'b>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEuri"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|uri>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|string>> >><<pre id="VALuri_of_string" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|uri~_of~_string>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="client" text="uri" | type Eliom_content_core.Xml.uri >> <<span class="ocsforge_color_delimiter"| -> >> string>>>><<pre id="VALstring_of_uri" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|string~_of~_uri>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|string <<span class="ocsforge_color_delimiter"| -> >> <<a_api subproject="client" text="uri" | type Eliom_content_core.Xml.uri >>>>>><<pre id="VALuri_of_fun" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|uri~_of~_fun>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >>unit <<span class="ocsforge_color_delimiter"| -> >> string<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >> <<a_api subproject="client" text="uri" | type Eliom_content_core.Xml.uri >>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEaname"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|aname>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|string>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEattrib"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|attrib>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEcaml_event_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|caml~_event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_registered_closure>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string * <<span class="ocsforge_color_uid"|Eliom_lib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|poly>>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_client_closure>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|event>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_client_closure_mouse>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|mouseEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_client_closure_keyboard>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|keyboardEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_client_closure_touch>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|touchEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_call_service>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>[ `A | `Form_get | `Form_post ] * <<span class="ocsforge_color_delimiter"| ( >>bool * string list<<span class="ocsforge_color_delimiter"| ) >> option *\\     string option * <<span class="ocsforge_color_uid"|Ocsigen_lib_base>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|poly>><<span class="ocsforge_color_delimiter"| ) >>\\    option <<a_api subproject="client" text="Eliom_lazy.request" | type Eliom_lazy.request >>>>>>>>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEinternal_event_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|internal~_event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Raw>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Caml>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|<<a_api subproject="client" text="caml_event_handler" | type Eliom_content_core.Xml.caml_event_handler >>>>>>>>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEevent_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|event>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEmouse_event_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|mouse~_event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|mouseEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEkeyboard_event_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|keyboard~_event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|keyboardEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEtouch_event_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|touch~_event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|touchEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEename"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|ename>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|string>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEelt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|elt>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEwrap"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|wrap>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|'a>> >><<pre class="ocsforge_color odocwiki_code" id="TYPElist_wrap"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|list~_wrap>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|'a list>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEecontent"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|econtent>> <<span class="ocsforge_color_delimiter"|~=>> private <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Empty>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Comment>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|EncodedPCDATA>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|PCDATA>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Entity>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Leaf>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|<<a_api subproject="client" text="ename" | type Eliom_content_core.Xml.ename >> * <<a_api subproject="client" text="attrib" | type Eliom_content_core.Xml.attrib >> list>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Node>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<a_api subproject="client" text="ename" | type Eliom_content_core.Xml.ename >> * <<a_api subproject="client" text="attrib" | type Eliom_content_core.Xml.attrib >> list\\       * <<a_api subproject="client" text="elt" | type Eliom_content_core.Xml.elt >> list>>>>>>>>>>
\ No newline at end of file
diff --git a/doc/10.x/api/client/Eliom_registration.wiki b/doc/10.x/api/client/Eliom_registration.wiki
deleted file mode 100644
index 8154355e09..0000000000
--- a/doc/10.x/api/client/Eliom_registration.wiki
+++ /dev/null
@@ -1,17 +0,0 @@
-=Module <<a_api_type subproject="client" | module Eliom_registration >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Eliom_registration>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_registration >><<span class="ocsforge_color_keyword"|end>>>>~Client~-side service registration~.
-
-
-    ~The interface is meant to be compatible with server~-side
-    ~<~<a~_api subproject~="server" ~| module ~Eliom~_registration ~>~>~.
-
-
-    ~See <<a_manual chapter="clientserver-services"|the manual chapter on client-side services>> 
-    for details~.
-
-----
-<<pre class="ocsforge_color odocwiki_code" id="TYPEkind"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|kind>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEbrowser_content"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|browser~_content>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|[ `Browser ]>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEapplication_content"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|application~_content>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|[ `Appl of 'a ]>> >><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Html" | module Eliom_registration.Html >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_registration_sigs.S" | module Eliom_registration_sigs.S >>>><<span class="odocwiki_type"| \\    with type page = Html_types.html <<a_api subproject="client" text="Eliom_content.Html" | module Eliom_content.Html >>.elt\\     and type options = unit\\     and type return = Eliom_service.non_ocaml\\     and type result = browser_content kind>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Action" | module Eliom_registration.Action >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_registration_sigs.S" | module Eliom_registration_sigs.S >>>><<span class="odocwiki_type"| \\    with type page = unit\\     and type options = [`Reload | `NoReload]\\     and type return = Eliom_service.non_ocaml\\     and type result = browser_content kind>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Unit" | module Eliom_registration.Unit >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_registration_sigs.S" | module Eliom_registration_sigs.S >>>><<span class="odocwiki_type"| \\    with type page = unit\\     and type options = unit\\     and type return = Eliom_service.non_ocaml\\     and type result = browser_content kind>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEappl_service_options"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|appl~_service~_options>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_delimiter"|~{>>
-<<span class="odocwiki_record"|<<span class="odocwiki_field"|<<span class="odocwiki_field_descr"|  <<span class="ocsforge_color_label"|do_not_launch:>> <<span class="odocwiki_type"|bool>><<span class="ocsforge_color_delimiter"|~;>> >>>>>><<span class="ocsforge_color_delimiter"|~}>>>><<div class="odocwiki_info"|~Has no effect on client~; for compatibility with server
->>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="App" | module Eliom_registration.App >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>P <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_registration_sigs.APP_PARAM" | module Eliom_registration_sigs.APP_PARAM >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_registration.App >><<span class="ocsforge_color_keyword"|end>>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEredirection"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'_>> <<span class="odocwiki_name"|redirection>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Redirection>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>unit, unit, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|get>>, 'b, 'c, 'd, 'e,\\     [ `WithoutSuffix ], unit, unit, 'a<<span class="ocsforge_color_delimiter"| ) >>\\    <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>>>>>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Redirection" | module Eliom_registration.Redirection >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_registration_sigs.S_poly_with_send" | module Eliom_registration_sigs.S_poly_with_send >>>><<span class="odocwiki_type"| \\    with type 'a page = Eliom_service.non_ocaml redirection\\     and type options =\\          [ `MovedPermanently\\          | `Found\\          | `SeeOther\\          | `NotNodifed\\          | `UseProxy\\          | `TemporaryRedirect ]\\     and type 'a return = Eliom_service.non_ocaml\\     and type 'a result = browser_content kind>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Any" | module Eliom_registration.Any >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_registration_sigs.S_poly_with_send" | module Eliom_registration_sigs.S_poly_with_send >>>><<span class="odocwiki_type"| \\    with type 'a page = 'a kind\\     and type options = unit\\     and type 'a return = Eliom_service.non_ocaml\\     and type 'a result = 'a kind>>>><<pre id="VALappl_self_redirect" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|appl~_self~_redirect>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_delimiter"| ( >>'page <<span class="ocsforge_color_delimiter"| -> >> [< `Appl of 'a | `Browser ] <<a_api subproject="client" text="kind" | type Eliom_registration.kind >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  'page <<span class="ocsforge_color_delimiter"| -> >>\\  'appl <<a_api subproject="client" text="application_content" | type Eliom_registration.application_content >> <<a_api subproject="client" text="kind" | type Eliom_registration.kind >>\\  <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~For compatibility with server~-side <<span class="odocwiki_inlinecode"|appl~_self~_redirect>>
->>
diff --git a/doc/10.x/api/client/Eliom_registration_sigs.S_poly.wiki b/doc/10.x/api/client/Eliom_registration_sigs.S_poly.wiki
deleted file mode 100644
index ce86b13ce6..0000000000
--- a/doc/10.x/api/client/Eliom_registration_sigs.S_poly.wiki
+++ /dev/null
@@ -1,5 +0,0 @@
-=Module type <<a_api_type subproject="client" | module type Eliom_registration_sigs.S_poly >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module type>> <<span class="ocsforge_color_uid"|S_poly>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module type Eliom_registration_sigs.S_poly >><<span class="ocsforge_color_keyword"|end>>>>
-----
-<<pre class="ocsforge_color odocwiki_code" id="TYPEpage"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'_>> <<span class="odocwiki_name"|page>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEoptions"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|options>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEreturn"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'_>> <<span class="odocwiki_name"|return>>>><<pre id="VALregister" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|register>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?app: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?options: >><<a_api subproject="client" text="options" | type Eliom_registration_sigs.S_poly.options >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?secure_session: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| service: >><<span class="ocsforge_color_delimiter"| ( >>'get, 'post, 'b, 'c, 'd, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>,\\           <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|reg>>, [< `WithSuffix | `WithoutSuffix ], 'e, 'f,\\           'a <<a_api subproject="client" text="return" | type Eliom_registration_sigs.S_poly.return >><<span class="ocsforge_color_delimiter"| ) >>\\          <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?error_handler: >><<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_delimiter"| ( >>string * exn<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >>\\                  'a <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S_poly.page >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'get <<span class="ocsforge_color_delimiter"| -> >> 'post <<span class="ocsforge_color_delimiter"| -> >> 'a <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S_poly.page >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  unit>>>><<div class="odocwiki_info"|~See <<a_api subproject="client" | val Eliom_registration_sigs.S.register >>~.
->>
diff --git a/doc/10.x/api/client/Eliom_registration_sigs.S_poly_with_create.wiki b/doc/10.x/api/client/Eliom_registration_sigs.S_poly_with_create.wiki
deleted file mode 100644
index 3274cb5fe2..0000000000
--- a/doc/10.x/api/client/Eliom_registration_sigs.S_poly_with_create.wiki
+++ /dev/null
@@ -1,10 +0,0 @@
-=Module type <<a_api_type subproject="client" | module type Eliom_registration_sigs.S_poly_with_create >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module type>> <<span class="ocsforge_color_uid"|S_poly_with_create>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module type Eliom_registration_sigs.S_poly_with_create >><<span class="ocsforge_color_keyword"|end>>>>
-----
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module type Eliom_registration_sigs.S_poly >>>>
-<<pre id="VALcreate" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|create>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?app: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?options: >>options <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?secure_session: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?https: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?name: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_safe: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|user_scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_secure: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?max_use: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?timeout: >>float <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| meth: >><<span class="ocsforge_color_delimiter"| ( >>'m, 'gp, 'gn, 'pp, 'pn, [< `WithSuffix | `WithoutSuffix ] as 'b,\\        'gp_<<span class="ocsforge_color_delimiter"| ) >>\\       <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|meth>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| path: >><<span class="ocsforge_color_delimiter"| ( >>'att, 'co, 'gp_<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|path_option>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?error_handler: >><<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_delimiter"| ( >>string * exn<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >> 'a page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp <<span class="ocsforge_color_delimiter"| -> >> 'pp <<span class="ocsforge_color_delimiter"| -> >> 'a page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp, 'pp, 'm, 'att, 'co, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|reg>>,\\   'b, 'gn, 'pn, 'a return<<span class="ocsforge_color_delimiter"| ) >>\\  <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~See <<a_api subproject="client" | val Eliom_registration_sigs.S_with_create.create >>~.
->>
-<<pre id="VALcreate_attached_get" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|create~_attached~_get>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?app: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?options: >>options <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?secure_session: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?https: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?name: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_safe: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|user_scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_secure: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?max_use: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?timeout: >>float <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| fallback: >><<span class="ocsforge_color_delimiter"| ( >>unit, unit, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|get>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|att>>,\\            <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_co>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>, 'b,\\            [ `WithoutSuffix ], unit, unit, 'a return<<span class="ocsforge_color_delimiter"| ) >>\\           <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| get_params: >><<span class="ocsforge_color_delimiter"| ( >>'gp, [ `WithoutSuffix ], 'gn<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_uid"|Eliom_parameter>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|params_type>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?error_handler: >><<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_delimiter"| ( >>string * exn<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >> 'a page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp <<span class="ocsforge_color_delimiter"| -> >> unit <<span class="ocsforge_color_delimiter"| -> >> 'a page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp, unit, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|get>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|att>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|co>>,\\   <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|reg>>, [ `WithoutSuffix ], 'gn,\\   unit, 'a return<<span class="ocsforge_color_delimiter"| ) >>\\  <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~See <<a_api subproject="client" | val Eliom_registration_sigs.S_with_create.create_attached_get >>~.
->>
-<<pre id="VALcreate_attached_post" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|create~_attached~_post>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?app: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?options: >>options <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?secure_session: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?https: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?name: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_safe: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|user_scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_secure: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?max_use: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?timeout: >>float <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| fallback: >><<span class="ocsforge_color_delimiter"| ( >>'gp, unit, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|get>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|att>>,\\            <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_co>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>, 'b,\\            [ `WithoutSuffix ], 'gn, unit, 'a return<<span class="ocsforge_color_delimiter"| ) >>\\           <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| post_params: >><<span class="ocsforge_color_delimiter"| ( >>'pp, [ `WithoutSuffix ], 'pn<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_uid"|Eliom_parameter>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|params_type>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?error_handler: >><<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_delimiter"| ( >>string * exn<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >> 'a page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp <<span class="ocsforge_color_delimiter"| -> >> 'pp <<span class="ocsforge_color_delimiter"| -> >> 'a page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp, 'pp, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|post>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|att>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|co>>,\\   <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|reg>>, [ `WithoutSuffix ], 'gn,\\   'pn, 'a return<<span class="ocsforge_color_delimiter"| ) >>\\  <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~See <<a_api subproject="client" | val Eliom_registration_sigs.S_with_create.create_attached_post >>~.
->>
diff --git a/doc/10.x/api/client/Eliom_registration_sigs.S_with_create.wiki b/doc/10.x/api/client/Eliom_registration_sigs.S_with_create.wiki
deleted file mode 100644
index 095f2b840a..0000000000
--- a/doc/10.x/api/client/Eliom_registration_sigs.S_with_create.wiki
+++ /dev/null
@@ -1,19 +0,0 @@
-=Module type <<a_api_type subproject="client" | module type Eliom_registration_sigs.S_with_create >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module type>> <<span class="ocsforge_color_uid"|S_with_create>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module type Eliom_registration_sigs.S_with_create >><<span class="ocsforge_color_keyword"|end>>>>
-----
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module type Eliom_registration_sigs.S >>>>
-<<pre id="VALcreate" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|create>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?app: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?options: >>options <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?secure_session: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?https: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?name: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_safe: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|user_scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_secure: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?max_use: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?timeout: >>float <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| meth: >><<span class="ocsforge_color_delimiter"| ( >>'m, 'gp, 'gn, 'pp, 'pn, [< `WithSuffix | `WithoutSuffix ] as 'a,\\        'gp_<<span class="ocsforge_color_delimiter"| ) >>\\       <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|meth>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| path: >><<span class="ocsforge_color_delimiter"| ( >>'att, 'co, 'gp_<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|path_option>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?error_handler: >><<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_delimiter"| ( >>string * exn<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >> page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp <<span class="ocsforge_color_delimiter"| -> >> 'pp <<span class="ocsforge_color_delimiter"| -> >> page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp, 'pp, 'm, 'att, 'co, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|reg>>,\\   'a, 'gn, 'pn, return<<span class="ocsforge_color_delimiter"| ) >>\\  <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~Create a service and register it at the same time~.
-      ~It calls <<span class="odocwiki_inlinecode"|~Eliom~_service~.create>> and then performs
-      <<a_api subproject="client" | val Eliom_registration_sigs.S.register >>~.
-      ~Returns the service~.
->>
-<<pre id="VALcreate_attached_get" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|create~_attached~_get>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?app: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?options: >>options <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?secure_session: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?https: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?name: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_safe: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|user_scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_secure: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?max_use: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?timeout: >>float <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| fallback: >><<span class="ocsforge_color_delimiter"| ( >>unit, unit, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|get>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|att>>,\\            <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_co>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>, 'a,\\            [ `WithoutSuffix ], unit, unit, return<<span class="ocsforge_color_delimiter"| ) >>\\           <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| get_params: >><<span class="ocsforge_color_delimiter"| ( >>'gp, [ `WithoutSuffix ], 'gn<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_uid"|Eliom_parameter>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|params_type>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?error_handler: >><<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_delimiter"| ( >>string * exn<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >> page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp <<span class="ocsforge_color_delimiter"| -> >> unit <<span class="ocsforge_color_delimiter"| -> >> page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp, unit, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|get>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|att>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|co>>,\\   <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|reg>>, [ `WithoutSuffix ], 'gn,\\   unit, return<<span class="ocsforge_color_delimiter"| ) >>\\  <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~Create an attached service and register it at the same time~.
-      ~It calls <<span class="odocwiki_inlinecode"|~Eliom~_service~.create~_attached~_get>> and then performs
-      <<a_api subproject="client" | val Eliom_registration_sigs.S.register >>~.
-      ~Returns the new service~.
->>
-<<pre id="VALcreate_attached_post" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|create~_attached~_post>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?app: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?options: >>options <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?secure_session: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?https: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?name: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_safe: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|user_scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_secure: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?max_use: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?timeout: >>float <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| fallback: >><<span class="ocsforge_color_delimiter"| ( >>'gp, unit, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|get>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|att>>,\\            <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_co>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>, 'a,\\            [ `WithoutSuffix ], 'gn, unit, return<<span class="ocsforge_color_delimiter"| ) >>\\           <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| post_params: >><<span class="ocsforge_color_delimiter"| ( >>'pp, [ `WithoutSuffix ], 'pn<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_uid"|Eliom_parameter>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|params_type>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?error_handler: >><<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_delimiter"| ( >>string * exn<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >> page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp <<span class="ocsforge_color_delimiter"| -> >> 'pp <<span class="ocsforge_color_delimiter"| -> >> page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp, 'pp, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|post>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|att>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|co>>,\\   <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|reg>>, [ `WithoutSuffix ], 'gn,\\   'pn, return<<span class="ocsforge_color_delimiter"| ) >>\\  <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~Create an attached ~P~O~S~T service and register it at the same time~.
-      ~It calls <<span class="odocwiki_inlinecode"|~Eliom~_service~.create~_attached~_post>> and then performs
-      <<a_api subproject="client" | val Eliom_registration_sigs.S.register >>~.
-      ~Returns the new service~.
->>
diff --git a/doc/10.x/api/client/type_Eliom_client_core.ReactState.wiki b/doc/10.x/api/client/type_Eliom_client_core.ReactState.wiki
deleted file mode 100644
index a821ad0ec1..0000000000
--- a/doc/10.x/api/client/type_Eliom_client_core.ReactState.wiki
+++ /dev/null
@@ -1,10 +0,0 @@
-<<code language="ocaml" | sig
-  type t
-  val get_node :
-    Eliom_client_core.??.t -> Js_of_ocaml.Dom.node Js_of_ocaml.Js.t
-  val change_dom :
-    Eliom_client_core.??.t -> Js_of_ocaml.Dom.node Js_of_ocaml.Js.t -> bool
-  val init_or_update :
-    ?state:Eliom_client_core.??.t ->
-    Eliom_content_core.Xml.elt -> Eliom_client_core.??.t
-end >>
\ No newline at end of file
diff --git a/doc/10.x/api/ocamlbuild/Ocamlbuild_eliom.wiki b/doc/10.x/api/ocamlbuild/Ocamlbuild_eliom.wiki
deleted file mode 100644
index 7d126ce35c..0000000000
--- a/doc/10.x/api/ocamlbuild/Ocamlbuild_eliom.wiki
+++ /dev/null
@@ -1,5 +0,0 @@
-=Module <<a_api_type subproject="ocamlbuild" | module Ocamlbuild_eliom >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Ocamlbuild_eliom>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="ocamlbuild" text=".." | module Ocamlbuild_eliom >><<span class="ocsforge_color_keyword"|end>>>>~The paths to each eliom directories
-
-----
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module type>> <<a_api subproject="ocamlbuild" text="ELIOM" | module type Ocamlbuild_eliom.ELIOM >> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="ocamlbuild" text=".." | module type Ocamlbuild_eliom.ELIOM >><<span class="ocsforge_color_keyword"|end>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="ocamlbuild" text="Make" | module Ocamlbuild_eliom.Make >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>Eliom <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="ocamlbuild" text="ELIOM" | module Ocamlbuild_eliom.ELIOM >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="ocamlbuild" text=".." | module Ocamlbuild_eliom.Make >><<span class="ocsforge_color_keyword"|end>>>>>>
\ No newline at end of file
diff --git a/doc/10.x/api/ocamlbuild/index.wiki b/doc/10.x/api/ocamlbuild/index.wiki
deleted file mode 100644
index dbe31ccbe6..0000000000
--- a/doc/10.x/api/ocamlbuild/index.wiki
+++ /dev/null
@@ -1,12 +0,0 @@
-==
-
-=@@id="1_Ocamlbuildplugin"@@~Ocamlbuild plugin=
-
-
-
-
-|<<a_api subproject="ocamlbuild" | module Ocamlbuild_eliom >>|<<div class="odocwiki_info"|~The paths to each eliom directories
->>
-|
-
-
diff --git a/doc/10.x/api/ocamlbuild/index_module_types.wiki b/doc/10.x/api/ocamlbuild/index_module_types.wiki
deleted file mode 100644
index 1cda92fe09..0000000000
--- a/doc/10.x/api/ocamlbuild/index_module_types.wiki
+++ /dev/null
@@ -1,5 +0,0 @@
-=Index of module types=
-
-|@@ @style="tet-align: left;"@@\\E|
-|@@class="odocwiki_index"@ @@<<a_api subproject="ocamlbuild" text="ELIOM"| module type Ocamlbuild_eliom.ELIOM >> ~[<<a_api subproject="ocamlbuild" | module Ocamlbuild_eliom >>~]||
-\\
diff --git a/doc/10.x/api/ocamlbuild/index_modules.wiki b/doc/10.x/api/ocamlbuild/index_modules.wiki
deleted file mode 100644
index 447fe1fe72..0000000000
--- a/doc/10.x/api/ocamlbuild/index_modules.wiki
+++ /dev/null
@@ -1,9 +0,0 @@
-=Index of modules=
-
-|@@ @style="tet-align: left;"@@\\M|
-|@@class="odocwiki_index"@ @@<<a_api subproject="ocamlbuild" text="Make"| module Ocamlbuild_eliom.Make >> ~[<<a_api subproject="ocamlbuild" | module Ocamlbuild_eliom >>~]||
-|@@ @style="tet-align: left;"@@\\O|
-|@@class="odocwiki_index"@ @@<<a_api subproject="ocamlbuild" text="Ocamlbuild_eliom"| module Ocamlbuild_eliom >> |<<div class="odocwiki_info"|~The paths to each eliom directories
->>
-|
-\\
diff --git a/doc/10.x/api/ocamlbuild/index_values.wiki b/doc/10.x/api/ocamlbuild/index_values.wiki
deleted file mode 100644
index c027ed7ac6..0000000000
--- a/doc/10.x/api/ocamlbuild/index_values.wiki
+++ /dev/null
@@ -1,13 +0,0 @@
-=Index of values=
-
-|@@ @style="tet-align: left;"@@\\C|
-|@@class="odocwiki_index"@ @@<<a_api subproject="ocamlbuild" text="client_dir"| value Ocamlbuild_eliom.ELIOM.client_dir >> ~[<<a_api subproject="ocamlbuild" | module Ocamlbuild_eliom.ELIOM >>~]||
-|@@ @style="tet-align: left;"@@\\D|
-|@@class="odocwiki_index"@ @@<<a_api subproject="ocamlbuild" text="dispatcher"| value Ocamlbuild_eliom.Make.dispatcher >> ~[<<a_api subproject="ocamlbuild" | module Ocamlbuild_eliom.Make >>~]|<<div class="odocwiki_info"|~The main dispatcher
->>
-|
-|@@ @style="tet-align: left;"@@\\S|
-|@@class="odocwiki_index"@ @@<<a_api subproject="ocamlbuild" text="server_dir"| value Ocamlbuild_eliom.ELIOM.server_dir >> ~[<<a_api subproject="ocamlbuild" | module Ocamlbuild_eliom.ELIOM >>~]||
-|@@ @style="tet-align: left;"@@\\T|
-|@@class="odocwiki_index"@ @@<<a_api subproject="ocamlbuild" text="type_dir"| value Ocamlbuild_eliom.ELIOM.type_dir >> ~[<<a_api subproject="ocamlbuild" | module Ocamlbuild_eliom.ELIOM >>~]||
-\\
diff --git a/doc/10.x/api/ocamlbuild/menu.wiki b/doc/10.x/api/ocamlbuild/menu.wiki
deleted file mode 100644
index a2168f032a..0000000000
--- a/doc/10.x/api/ocamlbuild/menu.wiki
+++ /dev/null
@@ -1,2 +0,0 @@
-=~Ocamlbuild plugin
-==[[ocamlbuild/Ocamlbuild_eliom|Ocamlbuild_eliom]]
diff --git a/doc/10.x/api/server/Eliom_config.wiki b/doc/10.x/api/server/Eliom_config.wiki
deleted file mode 100644
index b5fbe683fd..0000000000
--- a/doc/10.x/api/server/Eliom_config.wiki
+++ /dev/null
@@ -1,73 +0,0 @@
-=Module <<a_api_type subproject="server" | module Eliom_config >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Eliom_config>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="server" text=".." | module Eliom_config >><<span class="ocsforge_color_keyword"|end>>>>~This module makes also possible get information from the configuration
-file~.
-
-
-    ~It make also possible to add configuration options
-    in configuration file for your ~Eliom modules~.
-    ~Use <<a_api subproject="server" | val Eliom_config.parse_config >> for that~.
-
-
-    ~Example~:
-
-
-{{{     <eliommodule ...>
-        <myoption myattr="...">myvalue</myoption>
-     </eliommodule>}}}
-
-----
-<<pre id="VALget_default_hostname" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|get~_default~_hostname>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|unit <<span class="ocsforge_color_delimiter"| -> >> string>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|get~_default~_hostname ~(~)>>returns the hostname
-    declared in the config file ~(<<span class="odocwiki_inlinecode"|~<host defaulthostname~="~.~.~."~>>>~) or
-    the default machine hostname~.
-    ~In that case~, absolute ~U~R~L will use that hostname~.
->>
-<<pre id="VALget_default_port" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|get~_default~_port>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|unit <<span class="ocsforge_color_delimiter"| -> >> int>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|get~_default~_port ~(~)>> returns the port number
-    declared in the config file ~(<<span class="odocwiki_inlinecode"|~<host defaulthttpport~="~.~.~."~>>>~) or
-    ~8~0 if undeclared~.
->>
-<<pre id="VALget_default_sslport" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|get~_default~_sslport>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|unit <<span class="ocsforge_color_delimiter"| -> >> int>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|get~_default~_sslport ~(~)>> returns the https port
-    number declared in the config file ~(<<span class="odocwiki_inlinecode"|~<host
-    defaulthttpsport~="~.~.~."~>>>~) or ~4~4~3 if undeclared~.
->>
-<<pre id="VALdefault_protocol_is_https" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|default~_protocol~_is~_https>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|unit <<span class="ocsforge_color_delimiter"| -> >> bool>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|default~_protocol~_is~_https ~(~)>> returns <<span class="odocwiki_inlinecode"|true>>
-    if there is option ~(<<span class="odocwiki_inlinecode"|~<host
-    defaultprotocol~="https"~>>>~)or false otherwise~.
-    ~In that case~, absolute links will use https protocol even if
-    the current request is http~.
->>
-<<pre id="VALget_config_default_charset" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|get~_config~_default~_charset>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|unit <<span class="ocsforge_color_delimiter"| -> >> string>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|get~_config~_default~_charset ~(~)>> returns the default
-    charset for this site~.
->>
-<<pre id="VALset_default_links_xhr" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|set~_default~_links~_xhr>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_label"| ?override_configfile: >>bool <<span class="ocsforge_color_delimiter"| -> >> bool <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<div class="odocwiki_info"|~The provided value serves as a default value for the optional parameter
-    <<span class="odocwiki_inlinecode"|~~xhr>> in the functions <<span class="odocwiki_inlinecode"|~Eliom~_registration~.~*~.~{a~, get~_form~, post~_form~,
-    lwt~_get~_form~, lwt~_post~_form~}>> ~(cf~. <<span class="odocwiki_inlinecode"|~Eliom~_registration~.~Html~.a>> et al~.~)~.
-    ~This value can also be set in the
-    [[http://ocsigen.org/eliom/dev/manual/config#h5o-25|config file]]~.
->>
-<<pre id="VALget_config" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|get~_config>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|unit <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|xml>> list>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|get~_config ~(~)>> returns the information of the
-    configuration file concerning that site ~(between <<span class="odocwiki_inlinecode"|~<eliommodule~>>> and
-    <<span class="odocwiki_inlinecode"|~<~/eliommodule~>>> or <<span class="odocwiki_inlinecode"|~<eliom~>>> and <<span class="odocwiki_inlinecode"|~<~/eliom~>>>~)~.
-
-
-    //~Warning~: ~You must call that function during the initialisation of
-    your module ~(not during a ~Lwt thread or a service~)
-    otherwise it will raise the exception
-    <<a_api subproject="server" | exception Eliom_common.Eliom_site_information_not_available >>~.
-    ~If you want to build a statically linkable module~, you must call this
-    function inside the initialisation function given to
-    <<a_api subproject="server" | val Eliom_service.register_eliom_module >>~.//
->>
-<<pre id="VALparse_config" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|parse~_config>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?pcdata: >><<span class="ocsforge_color_delimiter"| ( >>string <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?other_elements: >><<span class="ocsforge_color_delimiter"| ( >>string <<span class="ocsforge_color_delimiter"| -> >>\\                   <<span class="ocsforge_color_delimiter"| ( >>string * string<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|xml>> list <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_uid"|Ocsigen_extensions>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Configuration>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|element>> list <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<div class="odocwiki_info"|~Process the configuration
-    ~(same as the one returned by
-    <<a_api module="Eliom_config" | val get_config>> ~)
-    by a given specification ~(cf~. <<a_api project="ocsigenserver" | type Ocsigen_extensions.Configuration.element >> ~)
->>
-<<pre id="VALget_config_info" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|get~_config~_info>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|unit <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Ocsigen_extensions>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|config_info>>>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|get~_config~_info ~(~)>> returns the information
-    concerning the current request from the configuration files
-    ~(must be called during a request~)~.
-    ~The configuration may have been modified by previous ~Ocsigen server
-    extensions~.
->>
-<<pre id="VALget_debugmode" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|get~_debugmode>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|unit <<span class="ocsforge_color_delimiter"| -> >> bool>>>><<div class="odocwiki_info"|~Same as <<span class="odocwiki_inlinecode"|~Ocsigen~_config~.get~_debugmode>>~.
-    ~On client side~, returns <<span class="odocwiki_inlinecode"|false>> for now~.
->>
diff --git a/doc/10.x/api/server/Eliom_content.Html.D.Raw.wiki b/doc/10.x/api/server/Eliom_content.Html.D.Raw.wiki
deleted file mode 100644
index 46da15d5ac..0000000000
--- a/doc/10.x/api/server/Eliom_content.Html.D.Raw.wiki
+++ /dev/null
@@ -1,4 +0,0 @@
-=Module <<a_api_type subproject="server" | module Eliom_content.Html.D.Raw >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Html_sigs.Make>>(Xml)(<<span class="ocsforge_color_uid"|Svg.D.Raw>>).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>>~See <<a_api project="tyxml" | module Html_sigs.T >> ~.
-
-----
diff --git a/doc/10.x/api/server/Eliom_content.Html.F.Raw.wiki b/doc/10.x/api/server/Eliom_content.Html.F.Raw.wiki
deleted file mode 100644
index 3a62aaef82..0000000000
--- a/doc/10.x/api/server/Eliom_content.Html.F.Raw.wiki
+++ /dev/null
@@ -1,4 +0,0 @@
-=Module <<a_api_type subproject="server" | module Eliom_content.Html.F.Raw >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Html_sigs.Make>>(Xml)(<<span class="ocsforge_color_uid"|Svg.F.Raw>>).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>>~See <<a_api project="tyxml" | module Html_sigs.T >> ~.
-
-----
diff --git a/doc/10.x/api/server/Eliom_content.Svg.D.Raw.wiki b/doc/10.x/api/server/Eliom_content.Svg.D.Raw.wiki
deleted file mode 100644
index 9757e6b696..0000000000
--- a/doc/10.x/api/server/Eliom_content.Svg.D.Raw.wiki
+++ /dev/null
@@ -1,4 +0,0 @@
-=Module <<a_api_type subproject="server" | module Eliom_content.Svg.D.Raw >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(Xml).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>>~See <<a_api project="tyxml" | module Html_sigs.T >> ~.
-
-----
diff --git a/doc/10.x/api/server/Eliom_content.Svg.F.Raw.wiki b/doc/10.x/api/server/Eliom_content.Svg.F.Raw.wiki
deleted file mode 100644
index 01b7ac8c03..0000000000
--- a/doc/10.x/api/server/Eliom_content.Svg.F.Raw.wiki
+++ /dev/null
@@ -1,4 +0,0 @@
-=Module <<a_api_type subproject="server" | module Eliom_content.Svg.F.Raw >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(Xml).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>>~See <<a_api project="tyxml" | module Html_sigs.T >> ~.
-
-----
diff --git a/doc/10.x/api/server/Eliom_content.Xml_shared.wiki b/doc/10.x/api/server/Eliom_content.Xml_shared.wiki
deleted file mode 100644
index 7dfa0c8c8e..0000000000
--- a/doc/10.x/api/server/Eliom_content.Xml_shared.wiki
+++ /dev/null
@@ -1,3 +0,0 @@
-=Module <<a_api_type subproject="server" | module Eliom_content.Xml_shared >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Xml_shared>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Xml_sigs.T>>>><<span class="odocwiki_type"| \\    with type 'a W.t = 'a <<a_api subproject="server" text="Eliom_shared.React.S" | module Eliom_shared.React.S >>.t\\     and type 'a W.tlist = 'a <<a_api subproject="server" text="Eliom_shared.ReactiveData.RList" | module Eliom_shared.ReactiveData.RList >>.t\\     and type event_handler = (Dom_html.event Js.t -> unit) Eliom_client_value.t\\     and type mouse_event_handler =\\          (Dom_html.mouseEvent Js.t -> unit) Eliom_client_value.t\\     and type keyboard_event_handler =\\          (Dom_html.keyboardEvent Js.t -> unit) Eliom_client_value.t\\     and type touch_event_handler =\\          (Dom_html.touchEvent Js.t -> unit) Eliom_client_value.t>>>>
-----
diff --git a/doc/10.x/api/server/type_Eliom_config.wiki b/doc/10.x/api/server/type_Eliom_config.wiki
deleted file mode 100644
index 5020219bc1..0000000000
--- a/doc/10.x/api/server/type_Eliom_config.wiki
+++ /dev/null
@@ -1,19 +0,0 @@
-<<code language="ocaml" | sig
-  val get_default_hostname : unit -> string
-  val get_default_port : unit -> int
-  val get_default_sslport : unit -> int
-  val default_protocol_is_https : unit -> bool
-  val get_config_default_charset : unit -> string
-  val set_default_links_xhr : ?override_configfile:bool -> bool -> unit
-  val get_default_links_xhr : unit -> bool
-  val get_config : unit -> Xml.xml list
-  val parse_config :
-    ?pcdata:(string -> unit) ->
-    ?other_elements:(string -> (string * string) list -> Xml.xml list -> unit) ->
-    Ocsigen_extensions.Configuration.element list -> unit
-  val get_config_info : unit -> Ocsigen_extensions.config_info
-  val get_debugmode : unit -> bool
-  val get_config_info_sp :
-    Eliom_common.server_params -> Ocsigen_extensions.config_info
-  val get_config_default_charset_sp : Eliom_common.server_params -> string
-end >>
\ No newline at end of file
diff --git a/doc/10.x/api/server/type_Eliom_registration.App.wiki b/doc/10.x/api/server/type_Eliom_registration.App.wiki
deleted file mode 100644
index 942396d750..0000000000
--- a/doc/10.x/api/server/type_Eliom_registration.App.wiki
+++ /dev/null
@@ -1 +0,0 @@
-<<code language="ocaml" | functor (App_params : Eliom_registration_sigs.APP_PARAM) -> APP >>
\ No newline at end of file
diff --git a/doc/10.x/api/client/Eliom_bus.wiki b/doc/11.x/api/client/Eliom_bus.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_bus.wiki
rename to doc/11.x/api/client/Eliom_bus.wiki
diff --git a/doc/10.x/api/client/Eliom_client.Page_status.Events.wiki b/doc/11.x/api/client/Eliom_client.Page_status.Events.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_client.Page_status.Events.wiki
rename to doc/11.x/api/client/Eliom_client.Page_status.Events.wiki
diff --git a/doc/10.x/api/client/Eliom_client.Page_status.wiki b/doc/11.x/api/client/Eliom_client.Page_status.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_client.Page_status.wiki
rename to doc/11.x/api/client/Eliom_client.Page_status.wiki
diff --git a/doc/10.x/api/client/Eliom_client.wiki b/doc/11.x/api/client/Eliom_client.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_client.wiki
rename to doc/11.x/api/client/Eliom_client.wiki
diff --git a/doc/10.x/api/client/Eliom_client_core.Client_closure.wiki b/doc/11.x/api/client/Eliom_client_core.Client_closure.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_client_core.Client_closure.wiki
rename to doc/11.x/api/client/Eliom_client_core.Client_closure.wiki
diff --git a/doc/10.x/api/client/Eliom_client_core.Client_value.wiki b/doc/11.x/api/client/Eliom_client_core.Client_value.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_client_core.Client_value.wiki
rename to doc/11.x/api/client/Eliom_client_core.Client_value.wiki
diff --git a/doc/10.x/api/client/Eliom_client_core.Injection.wiki b/doc/11.x/api/client/Eliom_client_core.Injection.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_client_core.Injection.wiki
rename to doc/11.x/api/client/Eliom_client_core.Injection.wiki
diff --git a/doc/11.x/api/client/Eliom_client_core.ReactState.wiki b/doc/11.x/api/client/Eliom_client_core.ReactState.wiki
new file mode 100644
index 0000000000..b8cf5ccc94
--- /dev/null
+++ b/doc/11.x/api/client/Eliom_client_core.ReactState.wiki
@@ -0,0 +1,5 @@
+=Module <<a_api_type subproject="client" | module Eliom_client_core.ReactState >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|ReactState>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_client_core.ReactState >><<span class="ocsforge_color_keyword"|end>>>>
+----
+<<pre class="ocsforge_color odocwiki_code" id="TYPEt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|t>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_delimiter"|~{>>
+<<span class="odocwiki_record"|<<span class="odocwiki_field"|<<span class="odocwiki_field_descr"|  <<span class="ocsforge_color_keyword"|mutable >><<span class="ocsforge_color_label"|node:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|node>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> option>><<span class="ocsforge_color_delimiter"|~;>> >>>><<span class="odocwiki_field"|<<span class="odocwiki_field_descr"|  <<span class="ocsforge_color_keyword"|mutable >><<span class="ocsforge_color_label"|signal:>> <<span class="odocwiki_type"|unit <<span class="ocsforge_color_uid"|React>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|S>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> option>><<span class="ocsforge_color_delimiter"|~;>> >>>>>><<span class="ocsforge_color_delimiter"|~}>>>><<pre id="VALstart_signal" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|start~_signal>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_delimiter"| ( >><<a_api subproject="client" text="t" | type Eliom_client_core.ReactState.t >> <<span class="ocsforge_color_delimiter"| -> >> unit <<span class="ocsforge_color_uid"|React>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|S>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|node>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALchange_dom" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|change~_dom>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<a_api subproject="client" text="t" | type Eliom_client_core.ReactState.t >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|node>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit>>>>
\ No newline at end of file
diff --git a/doc/10.x/api/client/Eliom_client_core.Syntax_helpers.wiki b/doc/11.x/api/client/Eliom_client_core.Syntax_helpers.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_client_core.Syntax_helpers.wiki
rename to doc/11.x/api/client/Eliom_client_core.Syntax_helpers.wiki
diff --git a/doc/11.x/api/client/Eliom_client_core.Xml.wiki b/doc/11.x/api/client/Eliom_client_core.Xml.wiki
new file mode 100644
index 0000000000..5aa11de7a9
--- /dev/null
+++ b/doc/11.x/api/client/Eliom_client_core.Xml.wiki
@@ -0,0 +1,4 @@
+=Module <<a_api_type subproject="client" | module Eliom_client_core.Xml >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Xml>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_content_core.Xml" | module Eliom_content_core.Xml >>>>>>
+----
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="W" | module Eliom_content_core.Xml.W >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Xml_wrap.T>>>><<span class="odocwiki_type"| \\    with type 'a t = 'a\\     and type 'a tlist = 'a list\\     and type (-'a, 'b) ft = 'a -> 'b>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEuri"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|uri>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|string>> >><<pre id="VALuri_of_string" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|uri~_of~_string>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="client" text="uri" | type Eliom_content_core.Xml.uri >> <<span class="ocsforge_color_delimiter"| -> >> string>>>><<pre id="VALstring_of_uri" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|string~_of~_uri>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|string <<span class="ocsforge_color_delimiter"| -> >> <<a_api subproject="client" text="uri" | type Eliom_content_core.Xml.uri >>>>>><<pre id="VALuri_of_fun" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|uri~_of~_fun>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >>unit <<span class="ocsforge_color_delimiter"| -> >> string<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >> <<a_api subproject="client" text="uri" | type Eliom_content_core.Xml.uri >>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEaname"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|aname>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|string>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEattrib"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|attrib>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEcaml_event_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|caml~_event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_registered_closure>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string * <<span class="ocsforge_color_uid"|Eliom_lib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|poly>>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_client_closure>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|event>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_client_closure_mouse>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|mouseEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_client_closure_keyboard>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|keyboardEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_client_closure_touch>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|touchEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_call_service>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>[ `A | `Form_get | `Form_post ] * <<span class="ocsforge_color_delimiter"| ( >>bool * string list<<span class="ocsforge_color_delimiter"| ) >> option *\\     string option * <<span class="ocsforge_color_uid"|Ocsigen_lib_base>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|poly>><<span class="ocsforge_color_delimiter"| ) >>\\    option <<a_api subproject="client" text="Eliom_lazy.request" | type Eliom_lazy.request >>>>>>>>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEinternal_event_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|internal~_event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Raw>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Caml>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|<<a_api subproject="client" text="caml_event_handler" | type Eliom_content_core.Xml.caml_event_handler >>>>>>>>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEevent_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|event>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEmouse_event_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|mouse~_event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|mouseEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEkeyboard_event_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|keyboard~_event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|keyboardEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEtouch_event_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|touch~_event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|touchEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEename"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|ename>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|string>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEelt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|elt>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEwrap"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|wrap>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|'a>> >><<pre class="ocsforge_color odocwiki_code" id="TYPElist_wrap"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|list~_wrap>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|'a list>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEecontent"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|econtent>> <<span class="ocsforge_color_delimiter"|~=>> private <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Empty>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Comment>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|EncodedPCDATA>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|PCDATA>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Entity>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Leaf>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|<<a_api subproject="client" text="ename" | type Eliom_content_core.Xml.ename >> * <<a_api subproject="client" text="attrib" | type Eliom_content_core.Xml.attrib >> list>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Node>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<a_api subproject="client" text="ename" | type Eliom_content_core.Xml.ename >> * <<a_api subproject="client" text="attrib" | type Eliom_content_core.Xml.attrib >> list\\       * <<a_api subproject="client" text="elt" | type Eliom_content_core.Xml.elt >> list>>>>>>>>>>
\ No newline at end of file
diff --git a/doc/10.x/api/client/Eliom_client_core.wiki b/doc/11.x/api/client/Eliom_client_core.wiki
similarity index 86%
rename from doc/10.x/api/client/Eliom_client_core.wiki
rename to doc/11.x/api/client/Eliom_client_core.wiki
index 8e1551dd16..482fa34f16 100644
--- a/doc/10.x/api/client/Eliom_client_core.wiki
+++ b/doc/11.x/api/client/Eliom_client_core.wiki
@@ -2,7 +2,7 @@
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Eliom_client_core>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_client_core >><<span class="ocsforge_color_keyword"|end>>>>
 ----
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Xml" | module Eliom_client_core.Xml >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_content_core.Xml" | module Eliom_content_core.Xml >>>>>><<pre id="VALsection" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|section>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Lwt_log_core>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|section>>>>>><<pre id="VALcreate_buffer" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|create~_buffer>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  unit <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'a <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >> * <<span class="ocsforge_color_delimiter"| ( >>unit <<span class="ocsforge_color_delimiter"| -> >> 'a list<<span class="ocsforge_color_delimiter"| ) >> * <<span class="ocsforge_color_delimiter"| ( >>unit <<span class="ocsforge_color_delimiter"| -> >> 'a list<<span class="ocsforge_color_delimiter"| ) >> * <<span class="ocsforge_color_delimiter"| ( >>unit <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >>>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Client_closure" | module Eliom_client_core.Client_closure >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_client_core.Client_closure >><<span class="ocsforge_color_keyword"|end>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Client_value" | module Eliom_client_core.Client_value >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_client_core.Client_value >><<span class="ocsforge_color_keyword"|end>>>><<pre id="VALmiddleClick" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|middle~Click>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|~#<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|event>> <<span class="ocsforge_color_uid"|Js_of_ocaml__>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> bool>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Injection" | module Eliom_client_core.Injection >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_client_core.Injection >><<span class="ocsforge_color_keyword"|end>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEcompilation_unit_global_data"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|compilation~_unit~_global~_data>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_delimiter"|~{>>
-<<span class="odocwiki_record"|<<span class="odocwiki_field"|<<span class="odocwiki_field_descr"|  <<span class="ocsforge_color_keyword"|mutable >><<span class="ocsforge_color_label"|server_section:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Eliom_runtime>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|client_value_datum>> array list>><<span class="ocsforge_color_delimiter"|~;>> >>>><<span class="odocwiki_field"|<<span class="odocwiki_field_descr"|  <<span class="ocsforge_color_keyword"|mutable >><<span class="ocsforge_color_label"|client_section:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Eliom_runtime>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|injection_datum>> array list>><<span class="ocsforge_color_delimiter"|~;>> >>>>>><<span class="ocsforge_color_delimiter"|~}>>>><<pre id="VALglobal_data" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|global~_data>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<a_api subproject="client" text="compilation_unit_global_data" | type Eliom_client_core.compilation_unit_global_data >> <<span class="ocsforge_color_uid"|Eliom_lib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|String_map>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>\\  <<span class="ocsforge_color_uid"|Stdlib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|ref>>>>>><<pre id="VALdo_next_server_section_data" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|do~_next~_server~_section~_data>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| compilation_unit_id: >><<span class="ocsforge_color_uid"|Eliom_lib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|String_map>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|key>> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALdo_next_client_section_data" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|do~_next~_client~_section~_data>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| compilation_unit_id: >><<span class="ocsforge_color_uid"|Eliom_lib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|String_map>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|key>> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALregistered_process_node" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|registered~_process~_node>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|js_string>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> bool>>>><<pre id="VALgetElementById" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|get~Element~By~Id>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|string <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|node>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALload_mutex" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|load~_mutex>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Lwt_mutex>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALchange_page_uri_" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|change~_page~_uri~_>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_label"| ?cookies_info: >>bool * string list <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_label"| ?tmpl: >>string <<span class="ocsforge_color_delimiter"| -> >> string <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >>\\  <<span class="ocsforge_color_uid"|Stdlib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|ref>>>>>><<pre id="VALchange_page_get_form_" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|change~_page~_get~_form~_>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_label"| ?cookies_info: >>bool * string list <<span class="ocsforge_color_delimiter"| -> >>\\   <<span class="ocsforge_color_label"| ?tmpl: >>string <<span class="ocsforge_color_delimiter"| -> >>\\   <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|formElement>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> string <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >>\\  <<span class="ocsforge_color_uid"|Stdlib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|ref>>>>>><<pre id="VALchange_page_post_form_" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|change~_page~_post~_form~_>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_label"| ?cookies_info: >>bool * string list <<span class="ocsforge_color_delimiter"| -> >>\\   <<span class="ocsforge_color_label"| ?tmpl: >>string <<span class="ocsforge_color_delimiter"| -> >>\\   <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|formElement>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> string <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >>\\  <<span class="ocsforge_color_uid"|Stdlib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|ref>>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEclient_form_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|client~_form~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|event>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> bool <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>> >><<pre id="VALraw_a_handler" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|raw~_a~_handler>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  'a <<span class="ocsforge_color_uid"|Js_of_ocaml__Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>bool * string list<<span class="ocsforge_color_delimiter"| ) >> option <<span class="ocsforge_color_delimiter"| -> >>\\  string option <<span class="ocsforge_color_delimiter"| -> >>\\  ~#<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|event>> <<span class="ocsforge_color_uid"|Js_of_ocaml__>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> bool>>>><<pre id="VALraw_form_handler" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|raw~_form~_handler>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|formElement>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  [< `Form_get | `Form_post ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>bool * string list<<span class="ocsforge_color_delimiter"| ) >> option <<span class="ocsforge_color_delimiter"| -> >>\\  string option <<span class="ocsforge_color_delimiter"| -> >> 'a <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_delimiter"| ( >>'a <<span class="ocsforge_color_delimiter"| -> >> bool <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >> bool>>>><<pre id="VALraw_event_handler" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|raw~_event~_handler>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  'a <<span class="ocsforge_color_delimiter"| -> >> ~#<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|event>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> bool>>>><<pre id="VALclosure_name_prefix" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|closure~_name~_prefix>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|string>>>><<pre id="VALclosure_name_prefix_len" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|closure~_name~_prefix~_len>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|int>>>><<pre id="VALreify_caml_event" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|reify~_caml~_event>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  string <<span class="ocsforge_color_delimiter"| -> >>\\  ~#<<span class="ocsforge_color_uid"|Js_of_ocaml__Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|element>> <<span class="ocsforge_color_uid"|Js_of_ocaml__>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|caml_event_handler>> <<span class="ocsforge_color_delimiter"| -> >>\\  string *\\  [> `Keyboard of\\       <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|keyboardEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> bool\\   | `Mouse of <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|mouseEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> bool\\   | `Other of <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|event>> <<span class="ocsforge_color_uid"|Js_of_ocaml__>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> bool\\   | `Touch of <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|touchEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> bool\\  ]>>>><<pre id="VALrebuild_attrib_val" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|rebuild~_attrib~_val>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|acontent>> <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|js_string>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALclass_list_of_racontent" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|class~_list~_of~_racontent>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|acontent>> <<span class="ocsforge_color_delimiter"| -> >> string list>>>><<pre id="VALclass_list_of_racontent_o" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|class~_list~_of~_racontent~_o>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|acontent>> option <<span class="ocsforge_color_delimiter"| -> >> string list>>>><<pre id="VALrebuild_class_list" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|rebuild~_class~_list>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|'a list <<span class="ocsforge_color_delimiter"| -> >> 'a list <<span class="ocsforge_color_delimiter"| -> >> 'a list <<span class="ocsforge_color_delimiter"| -> >> 'a list>>>><<pre id="VALrebuild_class_string" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|rebuild~_class~_string>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  string list <<span class="ocsforge_color_delimiter"| -> >>\\  string list <<span class="ocsforge_color_delimiter"| -> >>\\  string list <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|js_string>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALget_prop" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|get~_prop>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|'a <<span class="ocsforge_color_delimiter"| -> >> 'b <<span class="ocsforge_color_delimiter"| -> >> 'b option>>>><<pre id="VALiter_prop" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|iter~_prop>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|'a <<span class="ocsforge_color_delimiter"| -> >> 'b <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_delimiter"| ( >>'b <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALiter_prop_protected" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|iter~_prop~_protected>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|'a <<span class="ocsforge_color_delimiter"| -> >> 'b <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_delimiter"| ( >>'b <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALspace_re" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|space~_re>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Regexp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|regexp>>>>>><<pre id="VALcurrent_classes" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|current~_classes>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  < getAttribute : <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|js_string>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\                   <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|js_string>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>\\                   <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Opt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|meth>>;\\    .. >\\  <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> string list>>>><<pre id="VALrebuild_reactive_class_rattrib" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|rebuild~_reactive~_class~_rattrib>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  < getAttribute : <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|js_string>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\                   <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|js_string>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>\\                   <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Opt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|meth>>;\\    setAttribute : <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|js_string>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\                   <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|js_string>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\                   'res <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|meth>>;\\    .. >\\  <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|acontent>> option <<span class="ocsforge_color_uid"|React>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|signal>> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALrebuild_rattrib" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|rebuild~_rattrib>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_uid"|Js_of_ocaml__Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|element>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|attrib>> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALdelay" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|delay>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >>unit <<span class="ocsforge_color_delimiter"| -> >> 'a<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="ReactState" | module Eliom_client_core.ReactState >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_client_core.ReactState >><<span class="ocsforge_color_keyword"|end>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEcontent_ns"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|content~_ns>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|[ `HTML5 | `SVG ]>> >><<pre id="VALrebuild_node_with_state" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|rebuild~_node~_with~_state>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  [< `HTML5 | `SVG > `SVG ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?state: >><<a_api subproject="client" text="ReactState.t" | type Eliom_client_core.ReactState.t >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|elt>> <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|node>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALrebuild_node'" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|rebuild~_node~'>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  [< `HTML5 | `SVG > `SVG ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|elt>> <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|node>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALraw_rebuild_node" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|raw~_rebuild~_node>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  [< `HTML5 | `SVG > `SVG ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|econtent>> <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|node>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALrebuild_node_ns" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|rebuild~_node~_ns>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  [< `HTML5 | `SVG > `SVG ] <<span class="ocsforge_color_delimiter"| -> >> string <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|elt>> <<span class="ocsforge_color_delimiter"| -> >> 'a <<span class="ocsforge_color_uid"|Js_of_ocaml__Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALrebuild_node_svg" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|rebuild~_node~_svg>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  string <<span class="ocsforge_color_delimiter"| -> >> 'a <<span class="ocsforge_color_uid"|Eliom_content_core>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Svg>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|F>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|elt>> <<span class="ocsforge_color_delimiter"| -> >> 'b <<span class="ocsforge_color_uid"|Js_of_ocaml__Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALrebuild_node" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|rebuild~_node>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  string <<span class="ocsforge_color_delimiter"| -> >> 'a <<span class="ocsforge_color_uid"|Eliom_content_core>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|F>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|elt>> <<span class="ocsforge_color_delimiter"| -> >> 'b <<span class="ocsforge_color_uid"|Js_of_ocaml__Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~The first argument describes the calling function ~(if any~) in case
+<<span class="odocwiki_record"|<<span class="odocwiki_field"|<<span class="odocwiki_field_descr"|  <<span class="ocsforge_color_keyword"|mutable >><<span class="ocsforge_color_label"|server_section:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Eliom_runtime>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|client_value_datum>> array list>><<span class="ocsforge_color_delimiter"|~;>> >>>><<span class="odocwiki_field"|<<span class="odocwiki_field_descr"|  <<span class="ocsforge_color_keyword"|mutable >><<span class="ocsforge_color_label"|client_section:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Eliom_runtime>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|injection_datum>> array list>><<span class="ocsforge_color_delimiter"|~;>> >>>>>><<span class="ocsforge_color_delimiter"|~}>>>><<pre id="VALglobal_data" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|global~_data>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<a_api subproject="client" text="compilation_unit_global_data" | type Eliom_client_core.compilation_unit_global_data >> <<span class="ocsforge_color_uid"|Eliom_lib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|String_map>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>\\  <<span class="ocsforge_color_uid"|Stdlib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|ref>>>>>><<pre id="VALdo_next_server_section_data" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|do~_next~_server~_section~_data>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| compilation_unit_id: >><<span class="ocsforge_color_uid"|Eliom_lib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|String_map>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|key>> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALdo_next_client_section_data" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|do~_next~_client~_section~_data>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| compilation_unit_id: >><<span class="ocsforge_color_uid"|Eliom_lib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|String_map>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|key>> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALregistered_process_node" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|registered~_process~_node>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|js_string>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> bool>>>><<pre id="VALgetElementById" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|get~Element~By~Id>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|string <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|node>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALload_mutex" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|load~_mutex>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Lwt_mutex>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALchange_page_uri_" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|change~_page~_uri~_>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_label"| ?cookies_info: >>bool * string list <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_label"| ?tmpl: >>string <<span class="ocsforge_color_delimiter"| -> >> string <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >>\\  <<span class="ocsforge_color_uid"|Stdlib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|ref>>>>>><<pre id="VALchange_page_get_form_" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|change~_page~_get~_form~_>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_label"| ?cookies_info: >>bool * string list <<span class="ocsforge_color_delimiter"| -> >>\\   <<span class="ocsforge_color_label"| ?tmpl: >>string <<span class="ocsforge_color_delimiter"| -> >>\\   <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|formElement>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> string <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >>\\  <<span class="ocsforge_color_uid"|Stdlib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|ref>>>>>><<pre id="VALchange_page_post_form_" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|change~_page~_post~_form~_>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_label"| ?cookies_info: >>bool * string list <<span class="ocsforge_color_delimiter"| -> >>\\   <<span class="ocsforge_color_label"| ?tmpl: >>string <<span class="ocsforge_color_delimiter"| -> >>\\   <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|formElement>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> string <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >>\\  <<span class="ocsforge_color_uid"|Stdlib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|ref>>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEclient_form_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|client~_form~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|event>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> bool <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>> >><<pre id="VALraw_a_handler" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|raw~_a~_handler>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  'a <<span class="ocsforge_color_uid"|Js_of_ocaml__Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>bool * string list<<span class="ocsforge_color_delimiter"| ) >> option <<span class="ocsforge_color_delimiter"| -> >>\\  string option <<span class="ocsforge_color_delimiter"| -> >>\\  ~#<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|event>> <<span class="ocsforge_color_uid"|Js_of_ocaml__>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> bool>>>><<pre id="VALraw_form_handler" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|raw~_form~_handler>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|formElement>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  [< `Form_get | `Form_post ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>bool * string list<<span class="ocsforge_color_delimiter"| ) >> option <<span class="ocsforge_color_delimiter"| -> >>\\  string option <<span class="ocsforge_color_delimiter"| -> >> 'a <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_delimiter"| ( >>'a <<span class="ocsforge_color_delimiter"| -> >> bool <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >> bool>>>><<pre id="VALraw_event_handler" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|raw~_event~_handler>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  'a <<span class="ocsforge_color_delimiter"| -> >> ~#<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|event>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> bool>>>><<pre id="VALclosure_name_prefix" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|closure~_name~_prefix>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|string>>>><<pre id="VALclosure_name_prefix_len" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|closure~_name~_prefix~_len>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|int>>>><<pre id="VALreify_caml_event" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|reify~_caml~_event>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  string <<span class="ocsforge_color_delimiter"| -> >>\\  ~#<<span class="ocsforge_color_uid"|Js_of_ocaml__Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|element>> <<span class="ocsforge_color_uid"|Js_of_ocaml__>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|caml_event_handler>> <<span class="ocsforge_color_delimiter"| -> >>\\  string *\\  [> `Keyboard of\\       <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|keyboardEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> bool\\   | `Mouse of <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|mouseEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> bool\\   | `Other of <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|event>> <<span class="ocsforge_color_uid"|Js_of_ocaml__>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> bool\\   | `Touch of <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|touchEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> bool\\  ]>>>><<pre id="VALrebuild_attrib_val" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|rebuild~_attrib~_val>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|acontent>> <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|js_string>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALclass_list_of_racontent" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|class~_list~_of~_racontent>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|acontent>> <<span class="ocsforge_color_delimiter"| -> >> string list>>>><<pre id="VALclass_list_of_racontent_o" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|class~_list~_of~_racontent~_o>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|acontent>> option <<span class="ocsforge_color_delimiter"| -> >> string list>>>><<pre id="VALrebuild_class_list" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|rebuild~_class~_list>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|'a list <<span class="ocsforge_color_delimiter"| -> >> 'a list <<span class="ocsforge_color_delimiter"| -> >> 'a list <<span class="ocsforge_color_delimiter"| -> >> 'a list>>>><<pre id="VALrebuild_class_string" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|rebuild~_class~_string>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  string list <<span class="ocsforge_color_delimiter"| -> >>\\  string list <<span class="ocsforge_color_delimiter"| -> >>\\  string list <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|js_string>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALget_prop" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|get~_prop>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|'a <<span class="ocsforge_color_delimiter"| -> >> 'b <<span class="ocsforge_color_delimiter"| -> >> 'b option>>>><<pre id="VALiter_prop" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|iter~_prop>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|'a <<span class="ocsforge_color_delimiter"| -> >> 'b <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_delimiter"| ( >>'b <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALiter_prop_protected" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|iter~_prop~_protected>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|'a <<span class="ocsforge_color_delimiter"| -> >> 'b <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_delimiter"| ( >>'b <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALspace_re" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|space~_re>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Regexp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|regexp>>>>>><<pre id="VALcurrent_classes" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|current~_classes>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  < getAttribute : <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|js_string>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\                   <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|js_string>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>\\                   <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Opt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|meth>>;\\    .. >\\  <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> string list>>>><<pre id="VALrebuild_reactive_class_rattrib" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|rebuild~_reactive~_class~_rattrib>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  < getAttribute : <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|js_string>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\                   <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|js_string>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>\\                   <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Opt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|meth>>;\\    setAttribute : <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|js_string>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\                   <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|js_string>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\                   'res <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|meth>>;\\    .. >\\  <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|acontent>> option <<span class="ocsforge_color_uid"|React>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|signal>> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALrebuild_rattrib" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|rebuild~_rattrib>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_uid"|Js_of_ocaml__Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|element>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|attrib>> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALdelay" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|delay>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >>unit <<span class="ocsforge_color_delimiter"| -> >> 'a<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="ReactState" | module Eliom_client_core.ReactState >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_client_core.ReactState >><<span class="ocsforge_color_keyword"|end>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEcontent_ns"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|content~_ns>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|[ `HTML5 | `SVG ]>> >><<pre id="VALrebuild_node'" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|rebuild~_node~'>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  [< `HTML5 | `SVG > `SVG ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|elt>> <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|node>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALraw_rebuild_node" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|raw~_rebuild~_node>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  [< `HTML5 | `SVG > `SVG ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|econtent>> <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|node>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALrebuild_node_ns" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|rebuild~_node~_ns>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  [< `HTML5 | `SVG > `SVG ] <<span class="ocsforge_color_delimiter"| -> >> string <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|elt>> <<span class="ocsforge_color_delimiter"| -> >> 'a <<span class="ocsforge_color_uid"|Js_of_ocaml__Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALrebuild_node_svg" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|rebuild~_node~_svg>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  string <<span class="ocsforge_color_delimiter"| -> >> 'a <<span class="ocsforge_color_uid"|Eliom_content_core>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Svg>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|F>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|elt>> <<span class="ocsforge_color_delimiter"| -> >> 'b <<span class="ocsforge_color_uid"|Js_of_ocaml__Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALrebuild_node" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|rebuild~_node>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  string <<span class="ocsforge_color_delimiter"| -> >> 'a <<span class="ocsforge_color_uid"|Eliom_content_core>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|F>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|elt>> <<span class="ocsforge_color_delimiter"| -> >> 'b <<span class="ocsforge_color_uid"|Js_of_ocaml__Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~The first argument describes the calling function ~(if any~) in case
     of an error~.
 >>
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Syntax_helpers" | module Eliom_client_core.Syntax_helpers >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_client_core.Syntax_helpers >><<span class="ocsforge_color_keyword"|end>>>>
\ No newline at end of file
diff --git a/doc/10.x/api/client/Eliom_client_value.wiki b/doc/11.x/api/client/Eliom_client_value.wiki
similarity index 97%
rename from doc/10.x/api/client/Eliom_client_value.wiki
rename to doc/11.x/api/client/Eliom_client_value.wiki
index 2c84283946..6c6016d886 100644
--- a/doc/10.x/api/client/Eliom_client_value.wiki
+++ b/doc/11.x/api/client/Eliom_client_value.wiki
@@ -21,7 +21,7 @@
     <<span class="odocwiki_inlinecode"|~Printexc~.to~_string>>~.
 >>
 
-~Event handlers like <<a_api | Eliom_content.Html.F.a_onclick
+~Event handlers like <<a_api | val Html_sigs.T.a_onclick
     >>  may raise <<span class="odocwiki_inlinecode"|~False>> to cancel the event ~(as if the ~Java~Script
     function returned <<span class="odocwiki_inlinecode"|false>>~)~.
 <<pre id="EXCEPTIONFalse" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|exception>> <<span class="odocwiki_name"|False>>>>
\ No newline at end of file
diff --git a/doc/10.x/api/client/Eliom_comet.Channel.wiki b/doc/11.x/api/client/Eliom_comet.Channel.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_comet.Channel.wiki
rename to doc/11.x/api/client/Eliom_comet.Channel.wiki
diff --git a/doc/10.x/api/client/Eliom_comet.Configuration.wiki b/doc/11.x/api/client/Eliom_comet.Configuration.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_comet.Configuration.wiki
rename to doc/11.x/api/client/Eliom_comet.Configuration.wiki
diff --git a/doc/10.x/api/client/Eliom_comet.wiki b/doc/11.x/api/client/Eliom_comet.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_comet.wiki
rename to doc/11.x/api/client/Eliom_comet.wiki
diff --git a/doc/10.x/api/client/Eliom_config.wiki b/doc/11.x/api/client/Eliom_config.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_config.wiki
rename to doc/11.x/api/client/Eliom_config.wiki
diff --git a/doc/10.x/api/client/Eliom_content.Html.C.wiki b/doc/11.x/api/client/Eliom_content.Html.C.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.Html.C.wiki
rename to doc/11.x/api/client/Eliom_content.Html.C.wiki
diff --git a/doc/10.x/api/client/Eliom_content.Html.Custom_data.wiki b/doc/11.x/api/client/Eliom_content.Html.Custom_data.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.Html.Custom_data.wiki
rename to doc/11.x/api/client/Eliom_content.Html.Custom_data.wiki
diff --git a/doc/11.x/api/client/Eliom_content.Html.D.Raw.wiki b/doc/11.x/api/client/Eliom_content.Html.D.Raw.wiki
new file mode 100644
index 0000000000..95923f9317
--- /dev/null
+++ b/doc/11.x/api/client/Eliom_content.Html.D.Raw.wiki
@@ -0,0 +1,5 @@
+=Module <<a_api_type subproject="client" | module Eliom_content.Html.D.Raw >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_content.Html.D.Raw >><<span class="ocsforge_color_keyword"|end>>>>
+----
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content.Html.D.Raw'>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> ??>>
diff --git a/doc/10.x/api/client/Eliom_content.Html.D.wiki b/doc/11.x/api/client/Eliom_content.Html.D.wiki
similarity index 68%
rename from doc/10.x/api/client/Eliom_content.Html.D.wiki
rename to doc/11.x/api/client/Eliom_content.Html.D.wiki
index 156a500751..e3ab543e51 100644
--- a/doc/10.x/api/client/Eliom_content.Html.D.wiki
+++ b/doc/11.x/api/client/Eliom_content.Html.D.wiki
@@ -7,7 +7,7 @@
 ==@@id="2_Contentcreation"@@~Content creation==
 
         ~See <<a_api project="tyxml" | module Html_sigs.T >> 
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content.Html.D.Raw >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Html_sigs.Make>>(Xml)(<<span class="ocsforge_color_uid"|Svg.D.Raw>>).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>><<div class="odocwiki_info"|~Cf~.
->>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module Eliom_content.Html.D.Raw >>>>
+
+~Cf~. <<a_api project="tyxml" | module Html_sigs.T >> ~.
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content.Html.D.Raw >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_content.Html.D.Raw >><<span class="ocsforge_color_keyword"|end>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content.Html.D.Raw'>>
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module type Eliom_content_sigs.LINKS_AND_FORMS >>>>
diff --git a/doc/11.x/api/client/Eliom_content.Html.F.Raw.wiki b/doc/11.x/api/client/Eliom_content.Html.F.Raw.wiki
new file mode 100644
index 0000000000..bcd666a6b6
--- /dev/null
+++ b/doc/11.x/api/client/Eliom_content.Html.F.Raw.wiki
@@ -0,0 +1,5 @@
+=Module <<a_api_type subproject="client" | module Eliom_content.Html.F.Raw >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_content.Html.F.Raw >><<span class="ocsforge_color_keyword"|end>>>>
+----
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content.Html.F.Raw'>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> ??>>
diff --git a/doc/10.x/api/client/Eliom_content.Html.F.wiki b/doc/11.x/api/client/Eliom_content.Html.F.wiki
similarity index 68%
rename from doc/10.x/api/client/Eliom_content.Html.F.wiki
rename to doc/11.x/api/client/Eliom_content.Html.F.wiki
index 8b913f036a..2aaccf0573 100644
--- a/doc/10.x/api/client/Eliom_content.Html.F.wiki
+++ b/doc/11.x/api/client/Eliom_content.Html.F.wiki
@@ -7,7 +7,7 @@
 ==@@id="2_Contentcreation"@@~Content creation==
 
         ~See <<a_api project="tyxml" | module Html_sigs.T >> 
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content.Html.F.Raw >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Html_sigs.Make>>(Xml)(<<span class="ocsforge_color_uid"|Svg.F.Raw>>).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>><<div class="odocwiki_info"|~Cf~.
->>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module Eliom_content.Html.F.Raw >>>>
+
+~Cf~. <<a_api project="tyxml" | module Html_sigs.T >> ~.
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content.Html.F.Raw >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_content.Html.F.Raw >><<span class="ocsforge_color_keyword"|end>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content.Html.F.Raw'>>
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module type Eliom_content_sigs.LINKS_AND_FORMS >>>>
diff --git a/doc/10.x/api/client/Eliom_content.Html.Id.wiki b/doc/11.x/api/client/Eliom_content.Html.Id.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.Html.Id.wiki
rename to doc/11.x/api/client/Eliom_content.Html.Id.wiki
diff --git a/doc/10.x/api/client/Eliom_content.Html.Manip.Attr.wiki b/doc/11.x/api/client/Eliom_content.Html.Manip.Attr.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.Html.Manip.Attr.wiki
rename to doc/11.x/api/client/Eliom_content.Html.Manip.Attr.wiki
diff --git a/doc/10.x/api/client/Eliom_content.Html.Manip.Class.wiki b/doc/11.x/api/client/Eliom_content.Html.Manip.Class.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.Html.Manip.Class.wiki
rename to doc/11.x/api/client/Eliom_content.Html.Manip.Class.wiki
diff --git a/doc/10.x/api/client/Eliom_content.Html.Manip.Css.wiki b/doc/11.x/api/client/Eliom_content.Html.Manip.Css.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.Html.Manip.Css.wiki
rename to doc/11.x/api/client/Eliom_content.Html.Manip.Css.wiki
diff --git a/doc/10.x/api/client/Eliom_content.Html.Manip.Elt.wiki b/doc/11.x/api/client/Eliom_content.Html.Manip.Elt.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.Html.Manip.Elt.wiki
rename to doc/11.x/api/client/Eliom_content.Html.Manip.Elt.wiki
diff --git a/doc/10.x/api/client/Eliom_content.Html.Manip.Ev.wiki b/doc/11.x/api/client/Eliom_content.Html.Manip.Ev.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.Html.Manip.Ev.wiki
rename to doc/11.x/api/client/Eliom_content.Html.Manip.Ev.wiki
diff --git a/doc/10.x/api/client/Eliom_content.Html.Manip.Named.wiki b/doc/11.x/api/client/Eliom_content.Html.Manip.Named.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.Html.Manip.Named.wiki
rename to doc/11.x/api/client/Eliom_content.Html.Manip.Named.wiki
diff --git a/doc/10.x/api/client/Eliom_content.Html.Manip.SetCss.wiki b/doc/11.x/api/client/Eliom_content.Html.Manip.SetCss.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.Html.Manip.SetCss.wiki
rename to doc/11.x/api/client/Eliom_content.Html.Manip.SetCss.wiki
diff --git a/doc/10.x/api/client/Eliom_content.Html.Manip.wiki b/doc/11.x/api/client/Eliom_content.Html.Manip.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.Html.Manip.wiki
rename to doc/11.x/api/client/Eliom_content.Html.Manip.wiki
diff --git a/doc/10.x/api/client/Eliom_content.Html.Of_dom.wiki b/doc/11.x/api/client/Eliom_content.Html.Of_dom.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.Html.Of_dom.wiki
rename to doc/11.x/api/client/Eliom_content.Html.Of_dom.wiki
diff --git a/doc/10.x/api/client/Eliom_content.Html.R.Raw.wiki b/doc/11.x/api/client/Eliom_content.Html.R.Raw.wiki
similarity index 75%
rename from doc/10.x/api/client/Eliom_content.Html.R.Raw.wiki
rename to doc/11.x/api/client/Eliom_content.Html.R.Raw.wiki
index 62663eeb39..973fe508bc 100644
--- a/doc/10.x/api/client/Eliom_content.Html.R.Raw.wiki
+++ b/doc/11.x/api/client/Eliom_content.Html.R.Raw.wiki
@@ -1,4 +1,4 @@
 =Module <<a_api_type subproject="client" | module Eliom_content.Html.R.Raw >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Html_sigs.Make>>(<<a_api subproject="client" text="Eliom_content_core.Xml_wed" | module Eliom_content_core.Xml_wed >>)(<<span class="ocsforge_color_uid"|Svg.R.Raw>>).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>>~Cf~. <<a_api project="tyxml" | module Html_sigs.T >> ~.
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Html_sigs.Make>>(<<a_api subproject="client" text="Eliom_content_core.Xml_wed" | module Eliom_content_core.Xml_wed >>)(<<span class="ocsforge_color_uid"|Svg.R.Raw>>).T>><<span class="odocwiki_type"| \\      with type +'a elt = 'a elt\\       and type +'a attrib = 'a attrib>>>>~Cf~. <<a_api project="tyxml" | module Html_sigs.T >> ~.
 
 ----
diff --git a/doc/10.x/api/client/Eliom_content.Html.R.wiki b/doc/11.x/api/client/Eliom_content.Html.R.wiki
similarity index 96%
rename from doc/10.x/api/client/Eliom_content.Html.R.wiki
rename to doc/11.x/api/client/Eliom_content.Html.R.wiki
index 84fe1ac33a..cc362ca3e3 100644
--- a/doc/10.x/api/client/Eliom_content.Html.R.wiki
+++ b/doc/11.x/api/client/Eliom_content.Html.R.wiki
@@ -22,6 +22,6 @@
         behave like <<span class="odocwiki_inlinecode"|att>> when <<span class="odocwiki_inlinecode"|on>> is <<span class="odocwiki_inlinecode"|true>>
         and behave like if there was no attribute when <<span class="odocwiki_inlinecode"|on>> is <<span class="odocwiki_inlinecode"|false>>
 >>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content.Html.R.Raw >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Html_sigs.Make>>(<<a_api subproject="client" text="Eliom_content_core.Xml_wed" | module Eliom_content_core.Xml_wed >>)(<<span class="ocsforge_color_uid"|Svg.R.Raw>>).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>><<div class="odocwiki_info"|~Cf~.
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content.Html.R.Raw >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Html_sigs.Make>>(<<a_api subproject="client" text="Eliom_content_core.Xml_wed" | module Eliom_content_core.Xml_wed >>)(<<span class="ocsforge_color_uid"|Svg.R.Raw>>).T>><<span class="odocwiki_type"| \\      with type +'a elt = 'a elt\\       and type +'a attrib = 'a attrib>>>><<div class="odocwiki_info"|~Cf~.
 >>
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module Eliom_content.Html.R.Raw >>>>
diff --git a/doc/10.x/api/client/Eliom_content.Html.To_dom.wiki b/doc/11.x/api/client/Eliom_content.Html.To_dom.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.Html.To_dom.wiki
rename to doc/11.x/api/client/Eliom_content.Html.To_dom.wiki
diff --git a/doc/10.x/api/client/Eliom_content.Html.wiki b/doc/11.x/api/client/Eliom_content.Html.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.Html.wiki
rename to doc/11.x/api/client/Eliom_content.Html.wiki
diff --git a/doc/10.x/api/client/Eliom_content.Svg.C.wiki b/doc/11.x/api/client/Eliom_content.Svg.C.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.Svg.C.wiki
rename to doc/11.x/api/client/Eliom_content.Svg.C.wiki
diff --git a/doc/11.x/api/client/Eliom_content.Svg.D.Raw.wiki b/doc/11.x/api/client/Eliom_content.Svg.D.Raw.wiki
new file mode 100644
index 0000000000..eeb13d89e9
--- /dev/null
+++ b/doc/11.x/api/client/Eliom_content.Svg.D.Raw.wiki
@@ -0,0 +1,5 @@
+=Module <<a_api_type subproject="client" | module Eliom_content.Svg.D.Raw >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_content.Svg.D.Raw >><<span class="ocsforge_color_keyword"|end>>>>
+----
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content.Svg.D.Raw'>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> ??>>
diff --git a/doc/10.x/api/client/Eliom_content.Svg.D.wiki b/doc/11.x/api/client/Eliom_content.Svg.D.wiki
similarity index 64%
rename from doc/10.x/api/client/Eliom_content.Svg.D.wiki
rename to doc/11.x/api/client/Eliom_content.Svg.D.wiki
index 48444d267f..bf6fac38b9 100644
--- a/doc/10.x/api/client/Eliom_content.Svg.D.wiki
+++ b/doc/11.x/api/client/Eliom_content.Svg.D.wiki
@@ -5,6 +5,6 @@
        ~See <<a_api project="tyxml" | module Svg_sigs.T >> 
 
 ----
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content.Svg.D.Raw >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(Xml).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>><<div class="odocwiki_info"|~Cf~.
->>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module Eliom_content.Svg.D.Raw >>>>
+
+~Cf~. <<a_api project="tyxml" | module Html_sigs.T >> ~.
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content.Svg.D.Raw >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_content.Svg.D.Raw >><<span class="ocsforge_color_keyword"|end>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content.Svg.D.Raw'>>
diff --git a/doc/11.x/api/client/Eliom_content.Svg.F.Raw.wiki b/doc/11.x/api/client/Eliom_content.Svg.F.Raw.wiki
new file mode 100644
index 0000000000..acd56d95d1
--- /dev/null
+++ b/doc/11.x/api/client/Eliom_content.Svg.F.Raw.wiki
@@ -0,0 +1,5 @@
+=Module <<a_api_type subproject="client" | module Eliom_content.Svg.F.Raw >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_content.Svg.F.Raw >><<span class="ocsforge_color_keyword"|end>>>>
+----
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content.Svg.F.Raw'>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> ??>>
diff --git a/doc/10.x/api/client/Eliom_content.Svg.F.wiki b/doc/11.x/api/client/Eliom_content.Svg.F.wiki
similarity index 65%
rename from doc/10.x/api/client/Eliom_content.Svg.F.wiki
rename to doc/11.x/api/client/Eliom_content.Svg.F.wiki
index be1556bd20..c1e96eaed7 100644
--- a/doc/10.x/api/client/Eliom_content.Svg.F.wiki
+++ b/doc/11.x/api/client/Eliom_content.Svg.F.wiki
@@ -5,6 +5,6 @@
        ~See <<a_api project="tyxml" | module Svg_sigs.T >> 
 
 ----
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content.Svg.F.Raw >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(Xml).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>><<div class="odocwiki_info"|~Cf~.
->>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module Eliom_content.Svg.F.Raw >>>>
+
+~Cf~. <<a_api project="tyxml" | module Html_sigs.T >> ~.
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content.Svg.F.Raw >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_content.Svg.F.Raw >><<span class="ocsforge_color_keyword"|end>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content.Svg.F.Raw'>>
diff --git a/doc/10.x/api/client/Eliom_content.Svg.Id.wiki b/doc/11.x/api/client/Eliom_content.Svg.Id.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.Svg.Id.wiki
rename to doc/11.x/api/client/Eliom_content.Svg.Id.wiki
diff --git a/doc/10.x/api/client/Eliom_content.Svg.Manip.Class.wiki b/doc/11.x/api/client/Eliom_content.Svg.Manip.Class.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.Svg.Manip.Class.wiki
rename to doc/11.x/api/client/Eliom_content.Svg.Manip.Class.wiki
diff --git a/doc/10.x/api/client/Eliom_content.Svg.Manip.Named.wiki b/doc/11.x/api/client/Eliom_content.Svg.Manip.Named.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.Svg.Manip.Named.wiki
rename to doc/11.x/api/client/Eliom_content.Svg.Manip.Named.wiki
diff --git a/doc/10.x/api/client/Eliom_content.Svg.Manip.wiki b/doc/11.x/api/client/Eliom_content.Svg.Manip.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.Svg.Manip.wiki
rename to doc/11.x/api/client/Eliom_content.Svg.Manip.wiki
diff --git a/doc/10.x/api/client/Eliom_content.Svg.Of_dom.wiki b/doc/11.x/api/client/Eliom_content.Svg.Of_dom.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.Svg.Of_dom.wiki
rename to doc/11.x/api/client/Eliom_content.Svg.Of_dom.wiki
diff --git a/doc/10.x/api/client/Eliom_content.Svg.R.Raw.wiki b/doc/11.x/api/client/Eliom_content.Svg.R.Raw.wiki
similarity index 78%
rename from doc/10.x/api/client/Eliom_content.Svg.R.Raw.wiki
rename to doc/11.x/api/client/Eliom_content.Svg.R.Raw.wiki
index e9539afb58..76bee48838 100644
--- a/doc/10.x/api/client/Eliom_content.Svg.R.Raw.wiki
+++ b/doc/11.x/api/client/Eliom_content.Svg.R.Raw.wiki
@@ -1,3 +1,3 @@
 =Module <<a_api_type subproject="client" | module Eliom_content.Svg.R.Raw >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(<<a_api subproject="client" text="Eliom_content_core.Xml_wed" | module Eliom_content_core.Xml_wed >>).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(<<a_api subproject="client" text="Eliom_content_core.Xml_wed" | module Eliom_content_core.Xml_wed >>).T>><<span class="odocwiki_type"| \\      with type +'a elt = 'a elt\\       and type +'a attrib = 'a attrib>>>>
 ----
diff --git a/doc/10.x/api/client/Eliom_content.Svg.R.wiki b/doc/11.x/api/client/Eliom_content.Svg.R.wiki
similarity index 86%
rename from doc/10.x/api/client/Eliom_content.Svg.R.wiki
rename to doc/11.x/api/client/Eliom_content.Svg.R.wiki
index 0d9f4805bb..d6570fd8d8 100644
--- a/doc/10.x/api/client/Eliom_content.Svg.R.wiki
+++ b/doc/11.x/api/client/Eliom_content.Svg.R.wiki
@@ -6,4 +6,4 @@
         ~The resulting ~S~V~G <<span class="odocwiki_inlinecode"|elt>> can then be used like any other ~S~V~G
         <<span class="odocwiki_inlinecode"|elt>>~.
 >>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content.Svg.R.Raw >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(<<a_api subproject="client" text="Eliom_content_core.Xml_wed" | module Eliom_content_core.Xml_wed >>).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module Eliom_content.Svg.R.Raw >>>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content.Svg.R.Raw >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(<<a_api subproject="client" text="Eliom_content_core.Xml_wed" | module Eliom_content_core.Xml_wed >>).T>><<span class="odocwiki_type"| \\      with type +'a elt = 'a elt\\       and type +'a attrib = 'a attrib>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module Eliom_content.Svg.R.Raw >>>>
diff --git a/doc/10.x/api/client/Eliom_content.Svg.To_dom.wiki b/doc/11.x/api/client/Eliom_content.Svg.To_dom.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.Svg.To_dom.wiki
rename to doc/11.x/api/client/Eliom_content.Svg.To_dom.wiki
diff --git a/doc/10.x/api/client/Eliom_content.Svg.wiki b/doc/11.x/api/client/Eliom_content.Svg.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.Svg.wiki
rename to doc/11.x/api/client/Eliom_content.Svg.wiki
diff --git a/doc/10.x/api/client/Eliom_content.Xml.wiki b/doc/11.x/api/client/Eliom_content.Xml.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.Xml.wiki
rename to doc/11.x/api/client/Eliom_content.Xml.wiki
diff --git a/doc/10.x/api/client/Eliom_content.wiki b/doc/11.x/api/client/Eliom_content.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content.wiki
rename to doc/11.x/api/client/Eliom_content.wiki
diff --git a/doc/10.x/api/client/Eliom_content_core.Html.Custom_data.wiki b/doc/11.x/api/client/Eliom_content_core.Html.Custom_data.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content_core.Html.Custom_data.wiki
rename to doc/11.x/api/client/Eliom_content_core.Html.Custom_data.wiki
diff --git a/doc/11.x/api/client/Eliom_content_core.Html.D.Raw.wiki b/doc/11.x/api/client/Eliom_content_core.Html.D.Raw.wiki
new file mode 100644
index 0000000000..90be617aae
--- /dev/null
+++ b/doc/11.x/api/client/Eliom_content_core.Html.D.Raw.wiki
@@ -0,0 +1,5 @@
+=Module <<a_api_type subproject="client" | module Eliom_content_core.Html.D.Raw >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_content_core.Html.D.Raw >><<span class="ocsforge_color_keyword"|end>>>>
+----
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content_core.Html.D.Raw'>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> ??>>
diff --git a/doc/10.x/api/client/Eliom_content_core.Html.D.wiki b/doc/11.x/api/client/Eliom_content_core.Html.D.wiki
similarity index 64%
rename from doc/10.x/api/client/Eliom_content_core.Html.D.wiki
rename to doc/11.x/api/client/Eliom_content_core.Html.D.wiki
index a4c236defb..d875d650ab 100644
--- a/doc/10.x/api/client/Eliom_content_core.Html.D.wiki
+++ b/doc/11.x/api/client/Eliom_content_core.Html.D.wiki
@@ -3,4 +3,4 @@
       <<a_api project="tyxml" | module type Html_sigs.T >> ~.
 
 ----
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content_core.Html.D.Raw >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Html_sigs.Make>>(Xml)(<<span class="ocsforge_color_uid"|Svg.D.Raw>>).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module Eliom_content_core.Html.D.Raw >>>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content_core.Html.D.Raw >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_content_core.Html.D.Raw >><<span class="ocsforge_color_keyword"|end>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content_core.Html.D.Raw'>>
diff --git a/doc/11.x/api/client/Eliom_content_core.Html.F.Raw.wiki b/doc/11.x/api/client/Eliom_content_core.Html.F.Raw.wiki
new file mode 100644
index 0000000000..2dc2f7ddc1
--- /dev/null
+++ b/doc/11.x/api/client/Eliom_content_core.Html.F.Raw.wiki
@@ -0,0 +1,5 @@
+=Module <<a_api_type subproject="client" | module Eliom_content_core.Html.F.Raw >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_content_core.Html.F.Raw >><<span class="ocsforge_color_keyword"|end>>>>
+----
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content_core.Html.F.Raw'>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> ??>>
diff --git a/doc/10.x/api/client/Eliom_content_core.Html.F.wiki b/doc/11.x/api/client/Eliom_content_core.Html.F.wiki
similarity index 66%
rename from doc/10.x/api/client/Eliom_content_core.Html.F.wiki
rename to doc/11.x/api/client/Eliom_content_core.Html.F.wiki
index 0888420177..215510689b 100644
--- a/doc/10.x/api/client/Eliom_content_core.Html.F.wiki
+++ b/doc/11.x/api/client/Eliom_content_core.Html.F.wiki
@@ -3,6 +3,6 @@
       ~See <<a_api project="tyxml" | module type Html_sigs.T >> ~.
 
 ----
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content_core.Html.F.Raw >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Html_sigs.Make>>(Xml)(<<span class="ocsforge_color_uid"|Svg.F.Raw>>).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module Eliom_content_core.Html.F.Raw >>>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content_core.Html.F.Raw >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_content_core.Html.F.Raw >><<span class="ocsforge_color_keyword"|end>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content_core.Html.F.Raw'>>
 
 ~See <<a_api project="tyxml" | module type Html_sigs.T >> ~.
diff --git a/doc/10.x/api/client/Eliom_content_core.Html.Id.wiki b/doc/11.x/api/client/Eliom_content_core.Html.Id.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content_core.Html.Id.wiki
rename to doc/11.x/api/client/Eliom_content_core.Html.Id.wiki
diff --git a/doc/10.x/api/client/Eliom_content_core.Html.Of_dom.wiki b/doc/11.x/api/client/Eliom_content_core.Html.Of_dom.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content_core.Html.Of_dom.wiki
rename to doc/11.x/api/client/Eliom_content_core.Html.Of_dom.wiki
diff --git a/doc/10.x/api/client/Eliom_content_core.Html.R.Raw.wiki b/doc/11.x/api/client/Eliom_content_core.Html.R.Raw.wiki
similarity index 84%
rename from doc/10.x/api/client/Eliom_content_core.Html.R.Raw.wiki
rename to doc/11.x/api/client/Eliom_content_core.Html.R.Raw.wiki
index f365bab2b4..07d0637010 100644
--- a/doc/10.x/api/client/Eliom_content_core.Html.R.Raw.wiki
+++ b/doc/11.x/api/client/Eliom_content_core.Html.R.Raw.wiki
@@ -1,3 +1,3 @@
 =Module <<a_api_type subproject="client" | module Eliom_content_core.Html.R.Raw >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Html_sigs.Make>>(Xml_wed)(<<span class="ocsforge_color_uid"|Svg.R.Raw>>).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Html_sigs.Make>>(Xml_wed)(<<span class="ocsforge_color_uid"|Svg.R.Raw>>).T>><<span class="odocwiki_type"| \\      with type +'a elt = 'a elt\\       and type +'a attrib = 'a attrib>>>>
 ----
diff --git a/doc/10.x/api/client/Eliom_content_core.Html.R.wiki b/doc/11.x/api/client/Eliom_content_core.Html.R.wiki
similarity index 91%
rename from doc/10.x/api/client/Eliom_content_core.Html.R.wiki
rename to doc/11.x/api/client/Eliom_content_core.Html.R.wiki
index 11a4972995..b9ff4cccb6 100644
--- a/doc/10.x/api/client/Eliom_content_core.Html.R.wiki
+++ b/doc/11.x/api/client/Eliom_content_core.Html.R.wiki
@@ -4,4 +4,4 @@
 <<pre id="VALnode" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|node>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  'a <<a_api subproject="client" text="Eliom_content_core.Html.elt" | type Eliom_content_core.Html.elt >> <<span class="ocsforge_color_uid"|React>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|signal>> <<span class="ocsforge_color_delimiter"| -> >>\\  'a <<a_api subproject="client" text="Eliom_content_core.Html.elt" | type Eliom_content_core.Html.elt >>>>>><<div class="odocwiki_info"|the function <<span class="odocwiki_inlinecode"|node s>> create an ~H~T~M~L~5 <<span class="odocwiki_inlinecode"|elt>> from a signal <<span class="odocwiki_inlinecode"|s>>~.
     ~The resulting ~H~T~M~L~5 <<span class="odocwiki_inlinecode"|elt>> can then be used like any other ~H~T~M~L~5 <<span class="odocwiki_inlinecode"|elt>>
 >>
-<<pre id="VALfilter_attrib" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|filter~_attrib>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  'a <<a_api subproject="client" text="Eliom_content_core.Html.attrib" | type Eliom_content_core.Html.attrib >> <<span class="ocsforge_color_delimiter"| -> >>\\  bool <<span class="ocsforge_color_uid"|React>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|signal>> <<span class="ocsforge_color_delimiter"| -> >> 'a <<a_api subproject="client" text="Eliom_content_core.Html.attrib" | type Eliom_content_core.Html.attrib >>>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content_core.Html.R.Raw >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Html_sigs.Make>>(Xml_wed)(<<span class="ocsforge_color_uid"|Svg.R.Raw>>).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module Eliom_content_core.Html.R.Raw >>>>
+<<pre id="VALfilter_attrib" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|filter~_attrib>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  'a <<a_api subproject="client" text="Eliom_content_core.Html.attrib" | type Eliom_content_core.Html.attrib >> <<span class="ocsforge_color_delimiter"| -> >>\\  bool <<span class="ocsforge_color_uid"|React>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|signal>> <<span class="ocsforge_color_delimiter"| -> >> 'a <<a_api subproject="client" text="Eliom_content_core.Html.attrib" | type Eliom_content_core.Html.attrib >>>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content_core.Html.R.Raw >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Html_sigs.Make>>(Xml_wed)(<<span class="ocsforge_color_uid"|Svg.R.Raw>>).T>><<span class="odocwiki_type"| \\      with type +'a elt = 'a elt\\       and type +'a attrib = 'a attrib>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module Eliom_content_core.Html.R.Raw >>>>
diff --git a/doc/10.x/api/client/Eliom_content_core.Html.wiki b/doc/11.x/api/client/Eliom_content_core.Html.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content_core.Html.wiki
rename to doc/11.x/api/client/Eliom_content_core.Html.wiki
diff --git a/doc/11.x/api/client/Eliom_content_core.Svg.D.Raw.wiki b/doc/11.x/api/client/Eliom_content_core.Svg.D.Raw.wiki
new file mode 100644
index 0000000000..98971e5bd6
--- /dev/null
+++ b/doc/11.x/api/client/Eliom_content_core.Svg.D.Raw.wiki
@@ -0,0 +1,5 @@
+=Module <<a_api_type subproject="client" | module Eliom_content_core.Svg.D.Raw >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_content_core.Svg.D.Raw >><<span class="ocsforge_color_keyword"|end>>>>
+----
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content_core.Svg.D.Raw'>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> ??>>
diff --git a/doc/10.x/api/client/Eliom_content_core.Svg.D.wiki b/doc/11.x/api/client/Eliom_content_core.Svg.D.wiki
similarity index 68%
rename from doc/10.x/api/client/Eliom_content_core.Svg.D.wiki
rename to doc/11.x/api/client/Eliom_content_core.Svg.D.wiki
index 867ce5933c..2d3f2ef0e7 100644
--- a/doc/10.x/api/client/Eliom_content_core.Svg.D.wiki
+++ b/doc/11.x/api/client/Eliom_content_core.Svg.D.wiki
@@ -3,6 +3,6 @@
       <<a_api project="tyxml" | module type Svg_sigs.T >> ~.
 
 ----
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content_core.Svg.D.Raw >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(Xml).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module Eliom_content_core.Svg.D.Raw >>>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content_core.Svg.D.Raw >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_content_core.Svg.D.Raw >><<span class="ocsforge_color_keyword"|end>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content_core.Svg.D.Raw'>>
 
 ~See <<a_api project="tyxml" | module type Svg_sigs.T >> ~.
diff --git a/doc/11.x/api/client/Eliom_content_core.Svg.F.Raw.wiki b/doc/11.x/api/client/Eliom_content_core.Svg.F.Raw.wiki
new file mode 100644
index 0000000000..90c9b743c1
--- /dev/null
+++ b/doc/11.x/api/client/Eliom_content_core.Svg.F.Raw.wiki
@@ -0,0 +1,5 @@
+=Module <<a_api_type subproject="client" | module Eliom_content_core.Svg.F.Raw >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_content_core.Svg.F.Raw >><<span class="ocsforge_color_keyword"|end>>>>
+----
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content_core.Svg.F.Raw'>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> ??>>
diff --git a/doc/10.x/api/client/Eliom_content_core.Svg.F.wiki b/doc/11.x/api/client/Eliom_content_core.Svg.F.wiki
similarity index 68%
rename from doc/10.x/api/client/Eliom_content_core.Svg.F.wiki
rename to doc/11.x/api/client/Eliom_content_core.Svg.F.wiki
index a3e411f92f..8109e26600 100644
--- a/doc/10.x/api/client/Eliom_content_core.Svg.F.wiki
+++ b/doc/11.x/api/client/Eliom_content_core.Svg.F.wiki
@@ -3,6 +3,6 @@
       ~See <<a_api project="tyxml" | module type Svg_sigs.T >> ~.
 
 ----
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content_core.Svg.F.Raw >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(Xml).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module Eliom_content_core.Svg.F.Raw >>>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content_core.Svg.F.Raw >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_content_core.Svg.F.Raw >><<span class="ocsforge_color_keyword"|end>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content_core.Svg.F.Raw'>>
 
 ~See <<a_api project="tyxml" | module type Svg_sigs.T >> ~.
diff --git a/doc/10.x/api/client/Eliom_content_core.Svg.Id.wiki b/doc/11.x/api/client/Eliom_content_core.Svg.Id.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content_core.Svg.Id.wiki
rename to doc/11.x/api/client/Eliom_content_core.Svg.Id.wiki
diff --git a/doc/10.x/api/client/Eliom_content_core.Svg.Of_dom.wiki b/doc/11.x/api/client/Eliom_content_core.Svg.Of_dom.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content_core.Svg.Of_dom.wiki
rename to doc/11.x/api/client/Eliom_content_core.Svg.Of_dom.wiki
diff --git a/doc/10.x/api/client/Eliom_content_core.Svg.R.Raw.wiki b/doc/11.x/api/client/Eliom_content_core.Svg.R.Raw.wiki
similarity index 80%
rename from doc/10.x/api/client/Eliom_content_core.Svg.R.Raw.wiki
rename to doc/11.x/api/client/Eliom_content_core.Svg.R.Raw.wiki
index 2e136f54ee..4db23e42dd 100644
--- a/doc/10.x/api/client/Eliom_content_core.Svg.R.Raw.wiki
+++ b/doc/11.x/api/client/Eliom_content_core.Svg.R.Raw.wiki
@@ -1,3 +1,3 @@
 =Module <<a_api_type subproject="client" | module Eliom_content_core.Svg.R.Raw >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(Xml_wed).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(Xml_wed).T>><<span class="odocwiki_type"| \\      with type +'a elt = 'a elt\\       and type +'a attrib = 'a attrib>>>>
 ----
diff --git a/doc/10.x/api/client/Eliom_content_core.Svg.R.wiki b/doc/11.x/api/client/Eliom_content_core.Svg.R.wiki
similarity index 87%
rename from doc/10.x/api/client/Eliom_content_core.Svg.R.wiki
rename to doc/11.x/api/client/Eliom_content_core.Svg.R.wiki
index e9b1c2c734..31dcbff9d6 100644
--- a/doc/10.x/api/client/Eliom_content_core.Svg.R.wiki
+++ b/doc/11.x/api/client/Eliom_content_core.Svg.R.wiki
@@ -6,6 +6,6 @@
         ~The resulting ~S~V~G <<span class="odocwiki_inlinecode"|elt>> can then be used like any other ~S~V~G
         <<span class="odocwiki_inlinecode"|elt>>~.
 >>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content_core.Svg.R.Raw >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(Xml_wed).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module Eliom_content_core.Svg.R.Raw >>>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Raw" | module Eliom_content_core.Svg.R.Raw >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(Xml_wed).T>><<span class="odocwiki_type"| \\      with type +'a elt = 'a elt\\       and type +'a attrib = 'a attrib>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module Eliom_content_core.Svg.R.Raw >>>>
 
 ~See <<a_api project="tyxml" | module type Svg_sigs.T >> ~.
diff --git a/doc/10.x/api/client/Eliom_content_core.Svg.wiki b/doc/11.x/api/client/Eliom_content_core.Svg.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content_core.Svg.wiki
rename to doc/11.x/api/client/Eliom_content_core.Svg.wiki
diff --git a/doc/10.x/api/client/Eliom_content_core.Xml.W.wiki b/doc/11.x/api/client/Eliom_content_core.Xml.W.wiki
similarity index 78%
rename from doc/10.x/api/client/Eliom_content_core.Xml.W.wiki
rename to doc/11.x/api/client/Eliom_content_core.Xml.W.wiki
index f5450cba65..0446918b85 100644
--- a/doc/10.x/api/client/Eliom_content_core.Xml.W.wiki
+++ b/doc/11.x/api/client/Eliom_content_core.Xml.W.wiki
@@ -1,3 +1,3 @@
 =Module <<a_api_type subproject="client" | module Eliom_content_core.Xml.W >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|W>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Xml_wrap.T>>>><<span class="odocwiki_type"| \\      with type 'a t = 'a\\       and type 'a tlist = 'a list\\       and type (-'a, 'b) ft = 'a -> 'b>>>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|W>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Xml_wrap.T>>>><<span class="odocwiki_type"| \\    with type 'a t = 'a\\     and type 'a tlist = 'a list\\     and type (-'a, 'b) ft = 'a -> 'b>>>>
 ----
diff --git a/doc/11.x/api/client/Eliom_content_core.Xml.wiki b/doc/11.x/api/client/Eliom_content_core.Xml.wiki
new file mode 100644
index 0000000000..d2bbaf5650
--- /dev/null
+++ b/doc/11.x/api/client/Eliom_content_core.Xml.wiki
@@ -0,0 +1,4 @@
+=Module <<a_api_type subproject="client" | module Eliom_content_core.Xml >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Xml>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_content_core.Xml >><<span class="ocsforge_color_keyword"|end>>>>
+----
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="W" | module Eliom_content_core.Xml.W >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Xml_wrap.T>>>><<span class="odocwiki_type"| \\    with type 'a t = 'a\\     and type 'a tlist = 'a list\\     and type (-'a, 'b) ft = 'a -> 'b>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEuri"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|uri>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|string>> >><<pre id="VALuri_of_string" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|uri~_of~_string>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="client" text="uri" | type Eliom_content_core.Xml.uri >> <<span class="ocsforge_color_delimiter"| -> >> string>>>><<pre id="VALstring_of_uri" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|string~_of~_uri>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|string <<span class="ocsforge_color_delimiter"| -> >> <<a_api subproject="client" text="uri" | type Eliom_content_core.Xml.uri >>>>>><<pre id="VALuri_of_fun" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|uri~_of~_fun>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >>unit <<span class="ocsforge_color_delimiter"| -> >> string<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >> <<a_api subproject="client" text="uri" | type Eliom_content_core.Xml.uri >>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEaname"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|aname>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|string>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEattrib"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|attrib>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEcaml_event_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|caml~_event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_registered_closure>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string * <<span class="ocsforge_color_uid"|Eliom_lib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|poly>>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_client_closure>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|event>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_client_closure_mouse>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|mouseEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_client_closure_keyboard>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|keyboardEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_client_closure_touch>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|touchEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|CE_call_service>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>[ `A | `Form_get | `Form_post ] * <<span class="ocsforge_color_delimiter"| ( >>bool * string list<<span class="ocsforge_color_delimiter"| ) >> option *\\     string option * <<span class="ocsforge_color_uid"|Ocsigen_lib_base>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|poly>><<span class="ocsforge_color_delimiter"| ) >>\\    option <<a_api subproject="client" text="Eliom_lazy.request" | type Eliom_lazy.request >>>>>>>>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEinternal_event_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|internal~_event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Raw>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Caml>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|<<a_api subproject="client" text="caml_event_handler" | type Eliom_content_core.Xml.caml_event_handler >>>>>>>>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEevent_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|event>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEmouse_event_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|mouse~_event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|mouseEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEkeyboard_event_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|keyboard~_event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|keyboardEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEtouch_event_handler"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|touch~_event~_handler>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|touchEvent>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEename"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|ename>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|string>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEelt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|elt>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEwrap"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|wrap>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|'a>> >><<pre class="ocsforge_color odocwiki_code" id="TYPElist_wrap"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|list~_wrap>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|'a list>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEecontent"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|econtent>> <<span class="ocsforge_color_delimiter"|~=>> private <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Empty>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Comment>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|EncodedPCDATA>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|PCDATA>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Entity>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|string>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Leaf>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|<<a_api subproject="client" text="ename" | type Eliom_content_core.Xml.ename >> * <<a_api subproject="client" text="attrib" | type Eliom_content_core.Xml.attrib >> list>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Node>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<a_api subproject="client" text="ename" | type Eliom_content_core.Xml.ename >> * <<a_api subproject="client" text="attrib" | type Eliom_content_core.Xml.attrib >> list\\       * <<a_api subproject="client" text="elt" | type Eliom_content_core.Xml.elt >> list>>>>>>>>>>
\ No newline at end of file
diff --git a/doc/10.x/api/client/Eliom_content_core.Xml_wed.wiki b/doc/11.x/api/client/Eliom_content_core.Xml_wed.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content_core.Xml_wed.wiki
rename to doc/11.x/api/client/Eliom_content_core.Xml_wed.wiki
diff --git a/doc/10.x/api/client/Eliom_content_core.wiki b/doc/11.x/api/client/Eliom_content_core.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content_core.wiki
rename to doc/11.x/api/client/Eliom_content_core.wiki
diff --git a/doc/10.x/api/client/Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki b/doc/11.x/api/client/Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki
similarity index 94%
rename from doc/10.x/api/client/Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki
rename to doc/11.x/api/client/Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki
index 17fe0c4b64..0cc8df4e5a 100644
--- a/doc/10.x/api/client/Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki
+++ b/doc/11.x/api/client/Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki
@@ -1,5 +1,5 @@
 =Module <<a_api_type subproject="client" | module Eliom_content_sigs.LINKS_AND_FORMS.Form >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Form>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_form_sigs.S" | module Eliom_form_sigs.S >>>><<span class="odocwiki_type"| \\      with type +'a elt := 'a elt\\       and type +'a attrib := 'a attrib\\       and type uri := uri\\       and type 'a param = 'a form_param>>>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Form>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_form_sigs.S" | module Eliom_form_sigs.S >>>><<span class="odocwiki_type"| \\    with type +'a elt := 'a elt\\     and type +'a attrib := 'a attrib\\     and type uri := uri\\     and type 'a param = 'a form_param>>>>
 ----
 <<pre class="ocsforge_color odocwiki_code" id="TYPEparam"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|param>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEelt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|+'a>> <<span class="odocwiki_name"|elt>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEattrib"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|+'a>> <<span class="odocwiki_name"|attrib>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEuri"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|uri>>>><<pre id="VALfloat" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|float>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|float <<a_api subproject="client" text="param" | type Eliom_form_sigs.S.param >>>>>><<pre id="VALint" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|int>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|int <<a_api subproject="client" text="param" | type Eliom_form_sigs.S.param >>>>>><<pre id="VALint32" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|int~3~2>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|int32 <<a_api subproject="client" text="param" | type Eliom_form_sigs.S.param >>>>>><<pre id="VALint64" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|int~6~4>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|int64 <<a_api subproject="client" text="param" | type Eliom_form_sigs.S.param >>>>>><<pre id="VALnativeint" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|nativeint>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|nativeint <<a_api subproject="client" text="param" | type Eliom_form_sigs.S.param >>>>>><<pre id="VALbool" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|bool>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|bool <<a_api subproject="client" text="param" | type Eliom_form_sigs.S.param >>>>>><<pre id="VALstring" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|string>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|string <<a_api subproject="client" text="param" | type Eliom_form_sigs.S.param >>>>>><<pre id="VALuser" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|user>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >>'a <<span class="ocsforge_color_delimiter"| -> >> string<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >> 'a <<a_api subproject="client" text="param" | type Eliom_form_sigs.S.param >>>>>><<pre id="VALmake_post_uri_components" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|make~_post~_uri~_components>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?absolute: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?absolute_path: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?https: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| service: >><<span class="ocsforge_color_delimiter"| ( >>'get, 'post, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|post>>, 'a, 'b, 'c, 'd,\\           [< `WithSuffix | `WithoutSuffix ], 'e, 'f, 'g<<span class="ocsforge_color_delimiter"| ) >>\\          <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?hostname: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?port: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?fragment: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?keep_nl_params: >>[ `All | `None | `Persistent ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?nl_params: >><<span class="ocsforge_color_uid"|Eliom_parameter>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|nl_params_set>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?keep_get_na_params: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  'get <<span class="ocsforge_color_delimiter"| -> >>\\  'post <<span class="ocsforge_color_delimiter"| -> >>\\  string * <<span class="ocsforge_color_delimiter"| ( >>string * <<span class="ocsforge_color_uid"|Eliommod_parameters>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|param>><<span class="ocsforge_color_delimiter"| ) >> list * string option *\\  <<span class="ocsforge_color_delimiter"| ( >>string * <<span class="ocsforge_color_uid"|Eliommod_parameters>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|param>><<span class="ocsforge_color_delimiter"| ) >> list>>>><<div class="odocwiki_info"|~Same as <<span class="odocwiki_inlinecode"|~L~I~N~K~.make~_uri~_components>>~, but also returns a list of
       post parameters~.
@@ -79,7 +79,7 @@
 >>
 <<pre id="VALtextarea" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|textarea>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?a: >>[< <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|textarea_attrib>> ] <<a_api subproject="client" text="attrib" | type Eliom_form_sigs.S.attrib >> list <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| name: >>[< string <<span class="ocsforge_color_uid"|Eliom_parameter>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|setoneradio>> ]\\       <<span class="ocsforge_color_uid"|Eliom_parameter>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|param_name>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?value: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  unit <<span class="ocsforge_color_delimiter"| -> >> [> <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|textarea>> ] <<a_api subproject="client" text="elt" | type Eliom_form_sigs.S.elt >>>>>><<div class="odocwiki_info"|~Creates a <<span class="odocwiki_inlinecode"|~<textarea~>>> tag
 >>
-<<pre class="ocsforge_color odocwiki_code" id="TYPEsoption"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|soption>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|option_attrib>> <<a_api subproject="client" text="attrib" | type Eliom_form_sigs.S.attrib >> list * 'a *\\  <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|pcdata>> <<a_api subproject="client" text="elt" | type Eliom_form_sigs.S.elt >> option * bool>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEselect_opt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|select~_opt>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Optgroup>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    [ `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 ] <<a_api subproject="client" text="attrib" | type Eliom_form_sigs.S.attrib >> list * string\\       * 'a <<a_api subproject="client" text="soption" | type Eliom_form_sigs.S.soption >>\\       * 'a <<a_api subproject="client" text="soption" | type Eliom_form_sigs.S.soption >> list>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Option>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|'a <<a_api subproject="client" text="soption" | type Eliom_form_sigs.S.soption >>>>>>>>>>>><<div class="odocwiki_info"|~The type for <<span class="odocwiki_inlinecode"|~<select~>>> options and groups of options~.
+<<pre class="ocsforge_color odocwiki_code" id="TYPEsoption"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|soption>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|option_attrib>> <<a_api subproject="client" text="attrib" | type Eliom_form_sigs.S.attrib >> list * 'a *\\  <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|pcdata>> <<a_api subproject="client" text="elt" | type Eliom_form_sigs.S.elt >> option * bool>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEselect_opt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|select~_opt>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Optgroup>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    [ `Accesskey\\    | `Aria\\    | `Class\\    | `Contenteditable\\    | `Contextmenu\\    | `Dir\\    | `Disabled\\    | `Draggable\\    | `Hidden\\    | `Id\\    | `Lang\\    | `OnAbort\\    | `OnBlur\\    | `OnCanPlay\\    | `OnCanPlayThrough\\    | `OnChange\\    | `OnClick\\    | `OnClose\\    | `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 ] <<a_api subproject="client" text="attrib" | type Eliom_form_sigs.S.attrib >> list * string\\       * 'a <<a_api subproject="client" text="soption" | type Eliom_form_sigs.S.soption >>\\       * 'a <<a_api subproject="client" text="soption" | type Eliom_form_sigs.S.soption >> list>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Option>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|'a <<a_api subproject="client" text="soption" | type Eliom_form_sigs.S.soption >>>>>>>>>>>><<div class="odocwiki_info"|~The type for <<span class="odocwiki_inlinecode"|~<select~>>> options and groups of options~.
 
 
 * ~The field of type ~'a in <<span class="odocwiki_inlinecode"|soption>> is the value that will be
diff --git a/doc/10.x/api/client/Eliom_content_sigs.LINKS_AND_FORMS.wiki b/doc/11.x/api/client/Eliom_content_sigs.LINKS_AND_FORMS.wiki
similarity index 94%
rename from doc/10.x/api/client/Eliom_content_sigs.LINKS_AND_FORMS.wiki
rename to doc/11.x/api/client/Eliom_content_sigs.LINKS_AND_FORMS.wiki
index a88db577c2..b9c6cf3fc7 100644
--- a/doc/10.x/api/client/Eliom_content_sigs.LINKS_AND_FORMS.wiki
+++ b/doc/11.x/api/client/Eliom_content_sigs.LINKS_AND_FORMS.wiki
@@ -2,4 +2,4 @@
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module type>> <<span class="ocsforge_color_uid"|LINKS_AND_FORMS>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module type Eliom_content_sigs.LINKS_AND_FORMS >><<span class="ocsforge_color_keyword"|end>>>>
 ----
 <<pre class="ocsforge_color odocwiki_code" id="TYPEelt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|+'a>> <<span class="odocwiki_name"|elt>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEattrib"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|+'a>> <<span class="odocwiki_name"|attrib>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEuri"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|uri>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEstar"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >>'_, '_, '_<<span class="ocsforge_color_delimiter"| ) >>>> <<span class="odocwiki_name"|star>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEform_param"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|form~_param>>>><<pre class="ocsforge_color odocwiki_code" id="TYPElazy_star"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >>'a, 'b, 'c<<span class="ocsforge_color_delimiter"| ) >>>> <<span class="odocwiki_name"|lazy~_star>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?a: >>'a <<a_api subproject="client" text="attrib" | type Eliom_content_sigs.LINKS_AND_FORMS.attrib >> list <<span class="ocsforge_color_delimiter"| -> >>\\  'b <<a_api subproject="client" text="elt" | type Eliom_content_sigs.LINKS_AND_FORMS.elt >> list <<a_api subproject="client" text="Eliom_lazy.request" | type Eliom_lazy.request >> <<span class="ocsforge_color_delimiter"| -> >>\\  'c <<a_api subproject="client" text="elt" | type Eliom_content_sigs.LINKS_AND_FORMS.elt >>>> >><<pre id="VALlazy_form" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|lazy~_form>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_delimiter"| ( >>[< <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|form_attrib>> ], [< <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|form_content_fun>> ],\\   [> <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|form>> ]<<span class="ocsforge_color_delimiter"| ) >>\\  <<a_api subproject="client" text="lazy_star" | type Eliom_content_sigs.LINKS_AND_FORMS.lazy_star >>>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module type Eliom_form_sigs.LINKS >>>>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Form" | module Eliom_content_sigs.LINKS_AND_FORMS.Form >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_form_sigs.S" | module Eliom_form_sigs.S >>>><<span class="odocwiki_type"| \\      with type +'a elt := 'a elt\\       and type +'a attrib := 'a attrib\\       and type uri := uri\\       and type 'a param = 'a form_param>>>>
\ No newline at end of file
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Form" | module Eliom_content_sigs.LINKS_AND_FORMS.Form >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_form_sigs.S" | module Eliom_form_sigs.S >>>><<span class="odocwiki_type"| \\    with type +'a elt := 'a elt\\     and type +'a attrib := 'a attrib\\     and type uri := uri\\     and type 'a param = 'a form_param>>>>
\ No newline at end of file
diff --git a/doc/10.x/api/client/Eliom_content_sigs.wiki b/doc/11.x/api/client/Eliom_content_sigs.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_content_sigs.wiki
rename to doc/11.x/api/client/Eliom_content_sigs.wiki
diff --git a/doc/10.x/api/client/Eliom_cscache.wiki b/doc/11.x/api/client/Eliom_cscache.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_cscache.wiki
rename to doc/11.x/api/client/Eliom_cscache.wiki
diff --git a/doc/10.x/api/client/Eliom_form_sigs.LINKS.wiki b/doc/11.x/api/client/Eliom_form_sigs.LINKS.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_form_sigs.LINKS.wiki
rename to doc/11.x/api/client/Eliom_form_sigs.LINKS.wiki
diff --git a/doc/10.x/api/client/Eliom_form_sigs.S.wiki b/doc/11.x/api/client/Eliom_form_sigs.S.wiki
similarity index 95%
rename from doc/10.x/api/client/Eliom_form_sigs.S.wiki
rename to doc/11.x/api/client/Eliom_form_sigs.S.wiki
index 0fbe92bad0..38827dea88 100644
--- a/doc/10.x/api/client/Eliom_form_sigs.S.wiki
+++ b/doc/11.x/api/client/Eliom_form_sigs.S.wiki
@@ -79,7 +79,7 @@
 >>
 <<pre id="VALtextarea" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|textarea>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?a: >>[< <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|textarea_attrib>> ] <<a_api subproject="client" text="attrib" | type Eliom_form_sigs.S.attrib >> list <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| name: >>[< string <<span class="ocsforge_color_uid"|Eliom_parameter>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|setoneradio>> ]\\       <<span class="ocsforge_color_uid"|Eliom_parameter>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|param_name>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?value: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  unit <<span class="ocsforge_color_delimiter"| -> >> [> <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|textarea>> ] <<a_api subproject="client" text="elt" | type Eliom_form_sigs.S.elt >>>>>><<div class="odocwiki_info"|~Creates a <<span class="odocwiki_inlinecode"|~<textarea~>>> tag
 >>
-<<pre class="ocsforge_color odocwiki_code" id="TYPEsoption"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|soption>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|option_attrib>> <<a_api subproject="client" text="attrib" | type Eliom_form_sigs.S.attrib >> list * 'a *\\  <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|pcdata>> <<a_api subproject="client" text="elt" | type Eliom_form_sigs.S.elt >> option * bool>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEselect_opt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|select~_opt>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Optgroup>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    [ `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 ] <<a_api subproject="client" text="attrib" | type Eliom_form_sigs.S.attrib >> list * string\\       * 'a <<a_api subproject="client" text="soption" | type Eliom_form_sigs.S.soption >>\\       * 'a <<a_api subproject="client" text="soption" | type Eliom_form_sigs.S.soption >> list>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Option>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|'a <<a_api subproject="client" text="soption" | type Eliom_form_sigs.S.soption >>>>>>>>>>>><<div class="odocwiki_info"|~The type for <<span class="odocwiki_inlinecode"|~<select~>>> options and groups of options~.
+<<pre class="ocsforge_color odocwiki_code" id="TYPEsoption"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|soption>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|option_attrib>> <<a_api subproject="client" text="attrib" | type Eliom_form_sigs.S.attrib >> list * 'a *\\  <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|pcdata>> <<a_api subproject="client" text="elt" | type Eliom_form_sigs.S.elt >> option * bool>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEselect_opt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|select~_opt>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Optgroup>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    [ `Accesskey\\    | `Aria\\    | `Class\\    | `Contenteditable\\    | `Contextmenu\\    | `Dir\\    | `Disabled\\    | `Draggable\\    | `Hidden\\    | `Id\\    | `Lang\\    | `OnAbort\\    | `OnBlur\\    | `OnCanPlay\\    | `OnCanPlayThrough\\    | `OnChange\\    | `OnClick\\    | `OnClose\\    | `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 ] <<a_api subproject="client" text="attrib" | type Eliom_form_sigs.S.attrib >> list * string\\       * 'a <<a_api subproject="client" text="soption" | type Eliom_form_sigs.S.soption >>\\       * 'a <<a_api subproject="client" text="soption" | type Eliom_form_sigs.S.soption >> list>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Option>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|'a <<a_api subproject="client" text="soption" | type Eliom_form_sigs.S.soption >>>>>>>>>>>><<div class="odocwiki_info"|~The type for <<span class="odocwiki_inlinecode"|~<select~>>> options and groups of options~.
 
 
 * ~The field of type ~'a in <<span class="odocwiki_inlinecode"|soption>> is the value that will be
diff --git a/doc/10.x/api/client/Eliom_form_sigs.wiki b/doc/11.x/api/client/Eliom_form_sigs.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_form_sigs.wiki
rename to doc/11.x/api/client/Eliom_form_sigs.wiki
diff --git a/doc/10.x/api/client/Eliom_lazy.wiki b/doc/11.x/api/client/Eliom_lazy.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_lazy.wiki
rename to doc/11.x/api/client/Eliom_lazy.wiki
diff --git a/doc/10.x/api/client/Eliom_lib.Lwt_log.wiki b/doc/11.x/api/client/Eliom_lib.Lwt_log.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_lib.Lwt_log.wiki
rename to doc/11.x/api/client/Eliom_lib.Lwt_log.wiki
diff --git a/doc/10.x/api/client/Eliom_lib.String.wiki b/doc/11.x/api/client/Eliom_lib.String.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_lib.String.wiki
rename to doc/11.x/api/client/Eliom_lib.String.wiki
diff --git a/doc/10.x/api/client/Eliom_lib.Url.wiki b/doc/11.x/api/client/Eliom_lib.Url.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_lib.Url.wiki
rename to doc/11.x/api/client/Eliom_lib.Url.wiki
diff --git a/doc/10.x/api/client/Eliom_lib.wiki b/doc/11.x/api/client/Eliom_lib.wiki
similarity index 96%
rename from doc/10.x/api/client/Eliom_lib.wiki
rename to doc/11.x/api/client/Eliom_lib.wiki
index ab9df89f00..04ce1426d6 100644
--- a/doc/10.x/api/client/Eliom_lib.wiki
+++ b/doc/11.x/api/client/Eliom_lib.wiki
@@ -24,3 +24,4 @@
 <<pre id="VALalert" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|alert>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >>'a, unit, string, unit<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_uid"|Stdlib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|format4>> <<span class="ocsforge_color_delimiter"| -> >> 'a>>>><<pre id="VALjsalert" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|jsalert>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|js_string>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALconfirm" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|confirm>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >>'a, unit, string, bool<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_uid"|Stdlib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|format4>> <<span class="ocsforge_color_delimiter"| -> >> 'a>>>><<pre id="VALdebug_var" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|debug~_var>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|string <<span class="ocsforge_color_delimiter"| -> >> 'a <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALtrace" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|trace>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >>'a, unit, string, unit<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_uid"|Stdlib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|format4>> <<span class="ocsforge_color_delimiter"| -> >> 'a>>>><<pre id="VALlwt_ignore" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|lwt~_ignore>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_label"| ?message: >>string <<span class="ocsforge_color_delimiter"| -> >> unit <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALencode_form_value" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|encode~_form~_value>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|'a <<span class="ocsforge_color_delimiter"| -> >> string>>>><<pre id="VALunmarshal_js" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|unmarshal~_js>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|js_string>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> 'a>>>><<pre id="VALencode_header_value" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|encode~_header~_value>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|'a <<span class="ocsforge_color_delimiter"| -> >> string>>>><<pre id="VALmake_cryptographic_safe_string" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|make~_cryptographic~_safe~_string>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_label"| ?len: >>int <<span class="ocsforge_color_delimiter"| -> >> unit <<span class="ocsforge_color_delimiter"| -> >> string>>>><<div class="odocwiki_info"|~Return a base~-~6~4 encoded cryptographic safe string of the given length~.
     ~Not implemented client~-side~.
 >>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Dom_reference" | module Eliom_lib.Dom_reference >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_lib.Dom_reference >><<span class="ocsforge_color_keyword"|end>>>>
\ No newline at end of file
diff --git a/doc/10.x/api/client/Eliom_parameter.wiki b/doc/11.x/api/client/Eliom_parameter.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_parameter.wiki
rename to doc/11.x/api/client/Eliom_parameter.wiki
diff --git a/doc/10.x/api/client/Eliom_parameter_sigs.S.wiki b/doc/11.x/api/client/Eliom_parameter_sigs.S.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_parameter_sigs.S.wiki
rename to doc/11.x/api/client/Eliom_parameter_sigs.S.wiki
diff --git a/doc/10.x/api/client/Eliom_parameter_sigs.wiki b/doc/11.x/api/client/Eliom_parameter_sigs.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_parameter_sigs.wiki
rename to doc/11.x/api/client/Eliom_parameter_sigs.wiki
diff --git a/doc/10.x/api/client/Eliom_react.Down.wiki b/doc/11.x/api/client/Eliom_react.Down.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_react.Down.wiki
rename to doc/11.x/api/client/Eliom_react.Down.wiki
diff --git a/doc/10.x/api/client/Eliom_react.S.Down.wiki b/doc/11.x/api/client/Eliom_react.S.Down.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_react.S.Down.wiki
rename to doc/11.x/api/client/Eliom_react.S.Down.wiki
diff --git a/doc/10.x/api/client/Eliom_react.S.wiki b/doc/11.x/api/client/Eliom_react.S.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_react.S.wiki
rename to doc/11.x/api/client/Eliom_react.S.wiki
diff --git a/doc/10.x/api/client/Eliom_react.Up.wiki b/doc/11.x/api/client/Eliom_react.Up.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_react.Up.wiki
rename to doc/11.x/api/client/Eliom_react.Up.wiki
diff --git a/doc/10.x/api/client/Eliom_react.wiki b/doc/11.x/api/client/Eliom_react.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_react.wiki
rename to doc/11.x/api/client/Eliom_react.wiki
diff --git a/doc/10.x/api/client/Eliom_registration.Action.wiki b/doc/11.x/api/client/Eliom_registration.Action.wiki
similarity index 63%
rename from doc/10.x/api/client/Eliom_registration.Action.wiki
rename to doc/11.x/api/client/Eliom_registration.Action.wiki
index 24453e0822..e9df26af82 100644
--- a/doc/10.x/api/client/Eliom_registration.Action.wiki
+++ b/doc/11.x/api/client/Eliom_registration.Action.wiki
@@ -1,11 +1,11 @@
 =Module <<a_api_type subproject="client" | module Eliom_registration.Action >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Action>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_registration_sigs.S" | module Eliom_registration_sigs.S >>>><<span class="odocwiki_type"| \\    with type page = unit\\     and type options = [`Reload | `NoReload]\\     and type return = Eliom_service.non_ocaml\\     and type result = browser_content kind>>>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Action>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_registration_sigs.S" | module Eliom_registration_sigs.S >>>><<span class="odocwiki_type"| \\  with type page = unit\\   and type options = [`Reload | `NoReload]\\   and type return = Eliom_service.non_ocaml\\   and type result = browser_content kind>>>>
 ----
 <<pre class="ocsforge_color odocwiki_code" id="TYPEpage"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|page>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEoptions"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|options>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEreturn"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|return>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ocaml>>>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEresult"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|result>>>>
 
 ==@@id="2_Serviceregistration"@@~Service registration ==
 
-<<pre id="VALregister" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|register>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?app: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?options: >><<a_api subproject="client" text="options" | type Eliom_registration_sigs.S.options >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?secure_session: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| service: >><<span class="ocsforge_color_delimiter"| ( >>'get, 'post, 'a, 'b, 'c, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>,\\           <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|reg>>, [< `WithSuffix | `WithoutSuffix ], 'd, 'e,\\           <<a_api subproject="client" text="return" | type Eliom_registration_sigs.S.return >><<span class="ocsforge_color_delimiter"| ) >>\\          <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?error_handler: >><<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_delimiter"| ( >>string * exn<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >>\\                  <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'get <<span class="ocsforge_color_delimiter"| -> >> 'post <<span class="ocsforge_color_delimiter"| -> >> <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|register ~~service handler>> associates the
+<<pre id="VALregister" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|register>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?app: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?options: >><<a_api subproject="client" text="options" | type Eliom_registration_sigs.S.options >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?secure_session: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| service: >><<span class="ocsforge_color_delimiter"| ( >>'get, 'post, 'a, 'b, 'c, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>,\\           <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|reg>>, [< `WithSuffix | `WithoutSuffix ], 'd, 'e,\\           <<a_api subproject="client" text="return" | type Eliom_registration_sigs.S.return >><<span class="ocsforge_color_delimiter"| ) >>\\          <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?error_handler: >><<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_delimiter"| ( >>string * exn<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >>\\                  <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'get <<span class="ocsforge_color_delimiter"| -> >> 'post <<span class="ocsforge_color_delimiter"| -> >> <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|register ~~service handler>> associates the
       <<span class="odocwiki_inlinecode"|service>> to the function <<span class="odocwiki_inlinecode"|handler>>~. ~The <<span class="odocwiki_inlinecode"|handler>> function takes
       two parameters~, the ~G~E~T and ~P~O~S~T parameters of the current ~H~T~T~P
       request~, and should return the corresponding page~.
@@ -42,7 +42,7 @@
       expected type~. ~The default error handler is <<span class="odocwiki_inlinecode"| fun l ~-~> raise
       ~(>><<span class="odocwiki_inlinecode"|~Eliom~_common~.~Eliom~_~Typing~_~Error>><<span class="odocwiki_inlinecode"| l~) >>~.
 >>
-<<pre id="VALsend" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?options: >><<a_api subproject="client" text="options" | type Eliom_registration_sigs.S.options >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<a_api subproject="client" text="result" | type Eliom_registration_sigs.S.result >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|send page>> builds the ~H~T~T~P frame corresponding to
+<<pre id="VALsend" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?options: >><<a_api subproject="client" text="options" | type Eliom_registration_sigs.S.options >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<a_api subproject="client" text="result" | type Eliom_registration_sigs.S.result >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|send page>> builds the ~H~T~T~P frame corresponding to
       <<span class="odocwiki_inlinecode"|page>>~. ~This may be used for example in a service handler
       registered with <<span class="odocwiki_inlinecode"|~Eliom~_registration~.~Any~.register>>~, or when
       building a custom output module~.
diff --git a/doc/10.x/api/client/Eliom_registration.Any.wiki b/doc/11.x/api/client/Eliom_registration.Any.wiki
similarity index 66%
rename from doc/10.x/api/client/Eliom_registration.Any.wiki
rename to doc/11.x/api/client/Eliom_registration.Any.wiki
index a3ce636217..b1f3f6085c 100644
--- a/doc/10.x/api/client/Eliom_registration.Any.wiki
+++ b/doc/11.x/api/client/Eliom_registration.Any.wiki
@@ -1,5 +1,5 @@
 =Module <<a_api_type subproject="client" | module Eliom_registration.Any >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Any>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_registration_sigs.S_poly_with_send" | module Eliom_registration_sigs.S_poly_with_send >>>><<span class="odocwiki_type"| \\    with type 'a page = 'a kind\\     and type options = unit\\     and type 'a return = Eliom_service.non_ocaml\\     and type 'a result = 'a kind>>>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Any>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_registration_sigs.S_poly_with_send" | module Eliom_registration_sigs.S_poly_with_send >>>><<span class="odocwiki_type"| \\  with type 'a page = 'a kind\\   and type options = unit\\   and type 'a return = Eliom_service.non_ocaml\\   and type 'a result = 'a kind>>>>
 ----
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module type Eliom_registration_sigs.S_poly >>>>
-<<pre class="ocsforge_color odocwiki_code" id="TYPEresult"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|result>>>><<pre id="VALsend" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?options: >>options <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  'a page <<span class="ocsforge_color_delimiter"| -> >> 'a <<a_api subproject="client" text="result" | type Eliom_registration_sigs.S_poly_with_send.result >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>>
\ No newline at end of file
+<<pre class="ocsforge_color odocwiki_code" id="TYPEresult"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|result>>>><<pre id="VALsend" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?options: >>options <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  'a page <<span class="ocsforge_color_delimiter"| -> >> 'a <<a_api subproject="client" text="result" | type Eliom_registration_sigs.S_poly_with_send.result >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>>
\ No newline at end of file
diff --git a/doc/10.x/api/client/Eliom_registration.App.wiki b/doc/11.x/api/client/Eliom_registration.App.wiki
similarity index 62%
rename from doc/10.x/api/client/Eliom_registration.App.wiki
rename to doc/11.x/api/client/Eliom_registration.App.wiki
index b60dfbc098..3197b27647 100644
--- a/doc/10.x/api/client/Eliom_registration.App.wiki
+++ b/doc/11.x/api/client/Eliom_registration.App.wiki
@@ -1,6 +1,6 @@
 =Functor <<a_api_type subproject="client" | module Eliom_registration.App >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|App>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>P <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_registration_sigs.APP_PARAM" | module Eliom_registration_sigs.APP_PARAM >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_registration.App >><<span class="ocsforge_color_keyword"|end>>>>>><<div class="odocwiki_module_param_list" | <<span class="odocwiki_param_title" |Parameters :>><<div|
-|@@class="odocwiki_paramstable"@ @class="centertop fifteen code"@@{{{P}}}|@@class="centertop"@@:|<<span class="odocwiki_type"|Eliom_registration_sigs.APP_PARAM>>|
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|App>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>* <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<span class="odocwiki_sig_block"|>><<span class="ocsforge_color_keyword"|end>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_registration.App >><<span class="ocsforge_color_keyword"|end>>>>>><<div class="odocwiki_module_param_list" | <<span class="odocwiki_param_title" |Parameters :>><<div|
+|@@class="odocwiki_paramstable"@ @class="centertop fifteen code"@@{{{*}}}|@@class="centertop"@@:|<<span class="odocwiki_type"|Eliom_registration_sigs.APP_PARAM>>|
 >>>>
 
 ----
diff --git a/doc/10.x/api/client/Eliom_registration.Html.wiki b/doc/11.x/api/client/Eliom_registration.Html.wiki
similarity index 63%
rename from doc/10.x/api/client/Eliom_registration.Html.wiki
rename to doc/11.x/api/client/Eliom_registration.Html.wiki
index f4b2ae4934..1fbb75aa20 100644
--- a/doc/10.x/api/client/Eliom_registration.Html.wiki
+++ b/doc/11.x/api/client/Eliom_registration.Html.wiki
@@ -1,11 +1,11 @@
 =Module <<a_api_type subproject="client" | module Eliom_registration.Html >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Html>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_registration_sigs.S" | module Eliom_registration_sigs.S >>>><<span class="odocwiki_type"| \\    with type page = Html_types.html <<a_api subproject="client" text="Eliom_content.Html" | module Eliom_content.Html >>.elt\\     and type options = unit\\     and type return = Eliom_service.non_ocaml\\     and type result = browser_content kind>>>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Html>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_registration_sigs.S" | module Eliom_registration_sigs.S >>>><<span class="odocwiki_type"| \\  with type page = Html_types.html <<a_api subproject="client" text="Eliom_content.Html" | module Eliom_content.Html >>.elt\\   and type options = unit\\   and type return = Eliom_service.non_ocaml\\   and type result = browser_content kind>>>>
 ----
 <<pre class="ocsforge_color odocwiki_code" id="TYPEpage"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|page>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEoptions"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|options>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEreturn"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|return>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ocaml>>>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEresult"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|result>>>>
 
 ==@@id="2_Serviceregistration"@@~Service registration ==
 
-<<pre id="VALregister" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|register>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?app: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?options: >><<a_api subproject="client" text="options" | type Eliom_registration_sigs.S.options >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?secure_session: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| service: >><<span class="ocsforge_color_delimiter"| ( >>'get, 'post, 'a, 'b, 'c, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>,\\           <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|reg>>, [< `WithSuffix | `WithoutSuffix ], 'd, 'e,\\           <<a_api subproject="client" text="return" | type Eliom_registration_sigs.S.return >><<span class="ocsforge_color_delimiter"| ) >>\\          <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?error_handler: >><<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_delimiter"| ( >>string * exn<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >>\\                  <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'get <<span class="ocsforge_color_delimiter"| -> >> 'post <<span class="ocsforge_color_delimiter"| -> >> <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|register ~~service handler>> associates the
+<<pre id="VALregister" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|register>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?app: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?options: >><<a_api subproject="client" text="options" | type Eliom_registration_sigs.S.options >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?secure_session: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| service: >><<span class="ocsforge_color_delimiter"| ( >>'get, 'post, 'a, 'b, 'c, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>,\\           <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|reg>>, [< `WithSuffix | `WithoutSuffix ], 'd, 'e,\\           <<a_api subproject="client" text="return" | type Eliom_registration_sigs.S.return >><<span class="ocsforge_color_delimiter"| ) >>\\          <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?error_handler: >><<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_delimiter"| ( >>string * exn<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >>\\                  <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'get <<span class="ocsforge_color_delimiter"| -> >> 'post <<span class="ocsforge_color_delimiter"| -> >> <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|register ~~service handler>> associates the
       <<span class="odocwiki_inlinecode"|service>> to the function <<span class="odocwiki_inlinecode"|handler>>~. ~The <<span class="odocwiki_inlinecode"|handler>> function takes
       two parameters~, the ~G~E~T and ~P~O~S~T parameters of the current ~H~T~T~P
       request~, and should return the corresponding page~.
@@ -42,7 +42,7 @@
       expected type~. ~The default error handler is <<span class="odocwiki_inlinecode"| fun l ~-~> raise
       ~(>><<span class="odocwiki_inlinecode"|~Eliom~_common~.~Eliom~_~Typing~_~Error>><<span class="odocwiki_inlinecode"| l~) >>~.
 >>
-<<pre id="VALsend" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?options: >><<a_api subproject="client" text="options" | type Eliom_registration_sigs.S.options >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<a_api subproject="client" text="result" | type Eliom_registration_sigs.S.result >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|send page>> builds the ~H~T~T~P frame corresponding to
+<<pre id="VALsend" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?options: >><<a_api subproject="client" text="options" | type Eliom_registration_sigs.S.options >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<a_api subproject="client" text="result" | type Eliom_registration_sigs.S.result >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|send page>> builds the ~H~T~T~P frame corresponding to
       <<span class="odocwiki_inlinecode"|page>>~. ~This may be used for example in a service handler
       registered with <<span class="odocwiki_inlinecode"|~Eliom~_registration~.~Any~.register>>~, or when
       building a custom output module~.
diff --git a/doc/10.x/api/client/Eliom_registration.Redirection.wiki b/doc/11.x/api/client/Eliom_registration.Redirection.wiki
similarity index 61%
rename from doc/10.x/api/client/Eliom_registration.Redirection.wiki
rename to doc/11.x/api/client/Eliom_registration.Redirection.wiki
index ef68a57835..3b18af2e9c 100644
--- a/doc/10.x/api/client/Eliom_registration.Redirection.wiki
+++ b/doc/11.x/api/client/Eliom_registration.Redirection.wiki
@@ -1,5 +1,5 @@
 =Module <<a_api_type subproject="client" | module Eliom_registration.Redirection >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Redirection>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_registration_sigs.S_poly_with_send" | module Eliom_registration_sigs.S_poly_with_send >>>><<span class="odocwiki_type"| \\    with type 'a page = Eliom_service.non_ocaml redirection\\     and type options =\\          [ `MovedPermanently\\          | `Found\\          | `SeeOther\\          | `NotNodifed\\          | `UseProxy\\          | `TemporaryRedirect ]\\     and type 'a return = Eliom_service.non_ocaml\\     and type 'a result = browser_content kind>>>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Redirection>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_registration_sigs.S_poly_with_send" | module Eliom_registration_sigs.S_poly_with_send >>>><<span class="odocwiki_type"| \\  with type 'a page = Eliom_service.non_ocaml redirection\\   and type options =\\    [ `MovedPermanently\\    | `Found\\    | `SeeOther\\    | `NotNodifed\\    | `UseProxy\\    | `TemporaryRedirect ]\\   and type 'a return = Eliom_service.non_ocaml\\   and type 'a result = browser_content kind>>>>
 ----
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module type Eliom_registration_sigs.S_poly >>>>
-<<pre class="ocsforge_color odocwiki_code" id="TYPEresult"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|result>>>><<pre id="VALsend" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?options: >>options <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  'a page <<span class="ocsforge_color_delimiter"| -> >> 'a <<a_api subproject="client" text="result" | type Eliom_registration_sigs.S_poly_with_send.result >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>>
\ No newline at end of file
+<<pre class="ocsforge_color odocwiki_code" id="TYPEresult"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|result>>>><<pre id="VALsend" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?options: >>options <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  'a page <<span class="ocsforge_color_delimiter"| -> >> 'a <<a_api subproject="client" text="result" | type Eliom_registration_sigs.S_poly_with_send.result >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>>
\ No newline at end of file
diff --git a/doc/10.x/api/client/Eliom_registration.Unit.wiki b/doc/11.x/api/client/Eliom_registration.Unit.wiki
similarity index 63%
rename from doc/10.x/api/client/Eliom_registration.Unit.wiki
rename to doc/11.x/api/client/Eliom_registration.Unit.wiki
index ce7bc6ff19..bb3742e3c0 100644
--- a/doc/10.x/api/client/Eliom_registration.Unit.wiki
+++ b/doc/11.x/api/client/Eliom_registration.Unit.wiki
@@ -1,11 +1,11 @@
 =Module <<a_api_type subproject="client" | module Eliom_registration.Unit >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Unit>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_registration_sigs.S" | module Eliom_registration_sigs.S >>>><<span class="odocwiki_type"| \\    with type page = unit\\     and type options = unit\\     and type return = Eliom_service.non_ocaml\\     and type result = browser_content kind>>>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Unit>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_registration_sigs.S" | module Eliom_registration_sigs.S >>>><<span class="odocwiki_type"| \\  with type page = unit\\   and type options = unit\\   and type return = Eliom_service.non_ocaml\\   and type result = browser_content kind>>>>
 ----
 <<pre class="ocsforge_color odocwiki_code" id="TYPEpage"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|page>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEoptions"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|options>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEreturn"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|return>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ocaml>>>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEresult"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|result>>>>
 
 ==@@id="2_Serviceregistration"@@~Service registration ==
 
-<<pre id="VALregister" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|register>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?app: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?options: >><<a_api subproject="client" text="options" | type Eliom_registration_sigs.S.options >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?secure_session: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| service: >><<span class="ocsforge_color_delimiter"| ( >>'get, 'post, 'a, 'b, 'c, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>,\\           <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|reg>>, [< `WithSuffix | `WithoutSuffix ], 'd, 'e,\\           <<a_api subproject="client" text="return" | type Eliom_registration_sigs.S.return >><<span class="ocsforge_color_delimiter"| ) >>\\          <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?error_handler: >><<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_delimiter"| ( >>string * exn<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >>\\                  <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'get <<span class="ocsforge_color_delimiter"| -> >> 'post <<span class="ocsforge_color_delimiter"| -> >> <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|register ~~service handler>> associates the
+<<pre id="VALregister" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|register>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?app: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?options: >><<a_api subproject="client" text="options" | type Eliom_registration_sigs.S.options >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?secure_session: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| service: >><<span class="ocsforge_color_delimiter"| ( >>'get, 'post, 'a, 'b, 'c, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>,\\           <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|reg>>, [< `WithSuffix | `WithoutSuffix ], 'd, 'e,\\           <<a_api subproject="client" text="return" | type Eliom_registration_sigs.S.return >><<span class="ocsforge_color_delimiter"| ) >>\\          <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?error_handler: >><<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_delimiter"| ( >>string * exn<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >>\\                  <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'get <<span class="ocsforge_color_delimiter"| -> >> 'post <<span class="ocsforge_color_delimiter"| -> >> <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|register ~~service handler>> associates the
       <<span class="odocwiki_inlinecode"|service>> to the function <<span class="odocwiki_inlinecode"|handler>>~. ~The <<span class="odocwiki_inlinecode"|handler>> function takes
       two parameters~, the ~G~E~T and ~P~O~S~T parameters of the current ~H~T~T~P
       request~, and should return the corresponding page~.
@@ -42,7 +42,7 @@
       expected type~. ~The default error handler is <<span class="odocwiki_inlinecode"| fun l ~-~> raise
       ~(>><<span class="odocwiki_inlinecode"|~Eliom~_common~.~Eliom~_~Typing~_~Error>><<span class="odocwiki_inlinecode"| l~) >>~.
 >>
-<<pre id="VALsend" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?options: >><<a_api subproject="client" text="options" | type Eliom_registration_sigs.S.options >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<a_api subproject="client" text="result" | type Eliom_registration_sigs.S.result >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|send page>> builds the ~H~T~T~P frame corresponding to
+<<pre id="VALsend" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?options: >><<a_api subproject="client" text="options" | type Eliom_registration_sigs.S.options >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<a_api subproject="client" text="result" | type Eliom_registration_sigs.S.result >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|send page>> builds the ~H~T~T~P frame corresponding to
       <<span class="odocwiki_inlinecode"|page>>~. ~This may be used for example in a service handler
       registered with <<span class="odocwiki_inlinecode"|~Eliom~_registration~.~Any~.register>>~, or when
       building a custom output module~.
diff --git a/doc/11.x/api/client/Eliom_registration.wiki b/doc/11.x/api/client/Eliom_registration.wiki
new file mode 100644
index 0000000000..a6bc0933b8
--- /dev/null
+++ b/doc/11.x/api/client/Eliom_registration.wiki
@@ -0,0 +1,17 @@
+=Module <<a_api_type subproject="client" | module Eliom_registration >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Eliom_registration>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_registration >><<span class="ocsforge_color_keyword"|end>>>>~Client~-side service registration~.
+
+
+    ~The interface is meant to be compatible with server~-side
+    ~<~<a~_api subproject~="server" ~| module ~Eliom~_registration ~>~>~.
+
+
+    ~See <<a_manual chapter="clientserver-services"|the manual chapter on client-side services>> 
+    for details~.
+
+----
+<<pre class="ocsforge_color odocwiki_code" id="TYPEkind"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|kind>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEbrowser_content"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|browser~_content>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|[ `Browser ]>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEapplication_content"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|application~_content>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|[ `Appl of 'a ]>> >><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Html" | module Eliom_registration.Html >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_registration_sigs.S" | module Eliom_registration_sigs.S >>>><<span class="odocwiki_type"| \\  with type page = Html_types.html <<a_api subproject="client" text="Eliom_content.Html" | module Eliom_content.Html >>.elt\\   and type options = unit\\   and type return = Eliom_service.non_ocaml\\   and type result = browser_content kind>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Action" | module Eliom_registration.Action >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_registration_sigs.S" | module Eliom_registration_sigs.S >>>><<span class="odocwiki_type"| \\  with type page = unit\\   and type options = [`Reload | `NoReload]\\   and type return = Eliom_service.non_ocaml\\   and type result = browser_content kind>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Unit" | module Eliom_registration.Unit >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_registration_sigs.S" | module Eliom_registration_sigs.S >>>><<span class="odocwiki_type"| \\  with type page = unit\\   and type options = unit\\   and type return = Eliom_service.non_ocaml\\   and type result = browser_content kind>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEappl_service_options"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|appl~_service~_options>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_delimiter"|~{>>
+<<span class="odocwiki_record"|<<span class="odocwiki_field"|<<span class="odocwiki_field_descr"|  <<span class="ocsforge_color_label"|do_not_launch:>> <<span class="odocwiki_type"|bool>><<span class="ocsforge_color_delimiter"|~;>> >>>>>><<span class="ocsforge_color_delimiter"|~}>>>><<div class="odocwiki_info"|~Has no effect on client~; for compatibility with server
+>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="App" | module Eliom_registration.App >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>* <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<span class="odocwiki_sig_block"|>><<span class="ocsforge_color_keyword"|end>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module Eliom_registration.App >><<span class="ocsforge_color_keyword"|end>>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEredirection"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'_>> <<span class="odocwiki_name"|redirection>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Redirection>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>unit, unit, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|get>>, 'b, 'c, 'd, 'e,\\     [ `WithoutSuffix ], unit, unit, 'a<<span class="ocsforge_color_delimiter"| ) >>\\    <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>>>>>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Redirection" | module Eliom_registration.Redirection >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_registration_sigs.S_poly_with_send" | module Eliom_registration_sigs.S_poly_with_send >>>><<span class="odocwiki_type"| \\  with type 'a page = Eliom_service.non_ocaml redirection\\   and type options =\\    [ `MovedPermanently\\    | `Found\\    | `SeeOther\\    | `NotNodifed\\    | `UseProxy\\    | `TemporaryRedirect ]\\   and type 'a return = Eliom_service.non_ocaml\\   and type 'a result = browser_content kind>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="client" text="Any" | module Eliom_registration.Any >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="client" text="Eliom_registration_sigs.S_poly_with_send" | module Eliom_registration_sigs.S_poly_with_send >>>><<span class="odocwiki_type"| \\  with type 'a page = 'a kind\\   and type options = unit\\   and type 'a return = Eliom_service.non_ocaml\\   and type 'a result = 'a kind>>>><<pre id="VALappl_self_redirect" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|appl~_self~_redirect>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_delimiter"| ( >>'page <<span class="ocsforge_color_delimiter"| -> >> [< `Appl of 'a | `Browser ] <<a_api subproject="client" text="kind" | type Eliom_registration.kind >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  'page <<span class="ocsforge_color_delimiter"| -> >>\\  'appl <<a_api subproject="client" text="application_content" | type Eliom_registration.application_content >> <<a_api subproject="client" text="kind" | type Eliom_registration.kind >>\\  <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~For compatibility with server~-side <<span class="odocwiki_inlinecode"|appl~_self~_redirect>>
+>>
diff --git a/doc/10.x/api/client/Eliom_registration_sigs.APP_PARAM.wiki b/doc/11.x/api/client/Eliom_registration_sigs.APP_PARAM.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_registration_sigs.APP_PARAM.wiki
rename to doc/11.x/api/client/Eliom_registration_sigs.APP_PARAM.wiki
diff --git a/doc/10.x/api/client/Eliom_registration_sigs.PARAM.wiki b/doc/11.x/api/client/Eliom_registration_sigs.PARAM.wiki
similarity index 67%
rename from doc/10.x/api/client/Eliom_registration_sigs.PARAM.wiki
rename to doc/11.x/api/client/Eliom_registration_sigs.PARAM.wiki
index cd5d426d75..361e1c08fe 100644
--- a/doc/10.x/api/client/Eliom_registration_sigs.PARAM.wiki
+++ b/doc/11.x/api/client/Eliom_registration_sigs.PARAM.wiki
@@ -1,7 +1,7 @@
 =Module type <<a_api_type subproject="client" | module type Eliom_registration_sigs.PARAM >> =
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module type>> <<span class="ocsforge_color_uid"|PARAM>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module type Eliom_registration_sigs.PARAM >><<span class="ocsforge_color_keyword"|end>>>>
 ----
-<<pre class="ocsforge_color odocwiki_code" id="TYPEpage"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|page>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEoptions"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|options>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEresult"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|result>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEframe"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|frame>>>><<pre id="VALsend" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?options: >><<a_api subproject="client" text="options" | type Eliom_registration_sigs.PARAM.options >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<a_api subproject="client" text="page" | type Eliom_registration_sigs.PARAM.page >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<a_api subproject="client" text="frame" | type Eliom_registration_sigs.PARAM.frame >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALsend_appl_content" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send~_appl~_content>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|send_appl_content>>>>>><<div class="odocwiki_info"|~Whether the service is capable of sending application content
+<<pre class="ocsforge_color odocwiki_code" id="TYPEpage"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|page>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEoptions"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|options>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEresult"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|result>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEframe"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|frame>>>><<pre id="VALsend" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?options: >><<a_api subproject="client" text="options" | type Eliom_registration_sigs.PARAM.options >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<a_api subproject="client" text="page" | type Eliom_registration_sigs.PARAM.page >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<a_api subproject="client" text="frame" | type Eliom_registration_sigs.PARAM.frame >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALsend_appl_content" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send~_appl~_content>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|send_appl_content>>>>>><<div class="odocwiki_info"|~Whether the service is capable of sending application content
       when required~. ~This field is usually
       <<span class="odocwiki_inlinecode"|~Eliom~_service~.~X~Never>>~. ~This value is recorded inside each
       service just after registration~.
diff --git a/doc/10.x/api/client/Eliom_registration_sigs.PARAM_POLY.wiki b/doc/11.x/api/client/Eliom_registration_sigs.PARAM_POLY.wiki
similarity index 60%
rename from doc/10.x/api/client/Eliom_registration_sigs.PARAM_POLY.wiki
rename to doc/11.x/api/client/Eliom_registration_sigs.PARAM_POLY.wiki
index 673f55b357..d4a6204900 100644
--- a/doc/10.x/api/client/Eliom_registration_sigs.PARAM_POLY.wiki
+++ b/doc/11.x/api/client/Eliom_registration_sigs.PARAM_POLY.wiki
@@ -1,5 +1,5 @@
 =Module type <<a_api_type subproject="client" | module type Eliom_registration_sigs.PARAM_POLY >> =
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module type>> <<span class="ocsforge_color_uid"|PARAM_POLY>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module type Eliom_registration_sigs.PARAM_POLY >><<span class="ocsforge_color_keyword"|end>>>>
 ----
-<<pre class="ocsforge_color odocwiki_code" id="TYPEpage"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'_>> <<span class="odocwiki_name"|page>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEoptions"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|options>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEreturn"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'_>> <<span class="odocwiki_name"|return>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEframe"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|frame>>>><<pre id="VALsend" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?options: >><<a_api subproject="client" text="options" | type Eliom_registration_sigs.PARAM_POLY.options >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  'a <<a_api subproject="client" text="page" | type Eliom_registration_sigs.PARAM_POLY.page >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<a_api subproject="client" text="frame" | type Eliom_registration_sigs.PARAM_POLY.frame >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALsend_appl_content" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send~_appl~_content>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|send_appl_content>>>>>><<div class="odocwiki_info"|~See <<span class="odocwiki_inlinecode"|~Eliom~_reg~_sigs~.~P~A~R~A~M~.send~_appl~_content>>~.
+<<pre class="ocsforge_color odocwiki_code" id="TYPEpage"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'_>> <<span class="odocwiki_name"|page>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEoptions"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|options>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEreturn"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'_>> <<span class="odocwiki_name"|return>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEframe"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|frame>>>><<pre id="VALsend" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?options: >><<a_api subproject="client" text="options" | type Eliom_registration_sigs.PARAM_POLY.options >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  'a <<a_api subproject="client" text="page" | type Eliom_registration_sigs.PARAM_POLY.page >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<a_api subproject="client" text="frame" | type Eliom_registration_sigs.PARAM_POLY.frame >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALsend_appl_content" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send~_appl~_content>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|send_appl_content>>>>>><<div class="odocwiki_info"|~See <<span class="odocwiki_inlinecode"|~Eliom~_reg~_sigs~.~P~A~R~A~M~.send~_appl~_content>>~.
 >>
diff --git a/doc/10.x/api/client/Eliom_registration_sigs.S.wiki b/doc/11.x/api/client/Eliom_registration_sigs.S.wiki
similarity index 65%
rename from doc/10.x/api/client/Eliom_registration_sigs.S.wiki
rename to doc/11.x/api/client/Eliom_registration_sigs.S.wiki
index b4b74d16d9..30ea60bbd6 100644
--- a/doc/10.x/api/client/Eliom_registration_sigs.S.wiki
+++ b/doc/11.x/api/client/Eliom_registration_sigs.S.wiki
@@ -5,7 +5,7 @@
 
 ==@@id="2_Serviceregistration"@@~Service registration ==
 
-<<pre id="VALregister" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|register>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?app: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?options: >><<a_api subproject="client" text="options" | type Eliom_registration_sigs.S.options >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?secure_session: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| service: >><<span class="ocsforge_color_delimiter"| ( >>'get, 'post, 'a, 'b, 'c, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>,\\           <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|reg>>, [< `WithSuffix | `WithoutSuffix ], 'd, 'e,\\           <<a_api subproject="client" text="return" | type Eliom_registration_sigs.S.return >><<span class="ocsforge_color_delimiter"| ) >>\\          <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?error_handler: >><<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_delimiter"| ( >>string * exn<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >>\\                  <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'get <<span class="ocsforge_color_delimiter"| -> >> 'post <<span class="ocsforge_color_delimiter"| -> >> <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|register ~~service handler>> associates the
+<<pre id="VALregister" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|register>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?app: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?options: >><<a_api subproject="client" text="options" | type Eliom_registration_sigs.S.options >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?secure_session: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| service: >><<span class="ocsforge_color_delimiter"| ( >>'get, 'post, 'a, 'b, 'c, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>,\\           <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|reg>>, [< `WithSuffix | `WithoutSuffix ], 'd, 'e,\\           <<a_api subproject="client" text="return" | type Eliom_registration_sigs.S.return >><<span class="ocsforge_color_delimiter"| ) >>\\          <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?error_handler: >><<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_delimiter"| ( >>string * exn<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >>\\                  <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'get <<span class="ocsforge_color_delimiter"| -> >> 'post <<span class="ocsforge_color_delimiter"| -> >> <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|register ~~service handler>> associates the
       <<span class="odocwiki_inlinecode"|service>> to the function <<span class="odocwiki_inlinecode"|handler>>~. ~The <<span class="odocwiki_inlinecode"|handler>> function takes
       two parameters~, the ~G~E~T and ~P~O~S~T parameters of the current ~H~T~T~P
       request~, and should return the corresponding page~.
@@ -42,7 +42,7 @@
       expected type~. ~The default error handler is <<span class="odocwiki_inlinecode"| fun l ~-~> raise
       ~(>><<span class="odocwiki_inlinecode"|~Eliom~_common~.~Eliom~_~Typing~_~Error>><<span class="odocwiki_inlinecode"| l~) >>~.
 >>
-<<pre id="VALsend" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?options: >><<a_api subproject="client" text="options" | type Eliom_registration_sigs.S.options >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<a_api subproject="client" text="result" | type Eliom_registration_sigs.S.result >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|send page>> builds the ~H~T~T~P frame corresponding to
+<<pre id="VALsend" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?options: >><<a_api subproject="client" text="options" | type Eliom_registration_sigs.S.options >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S.page >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<a_api subproject="client" text="result" | type Eliom_registration_sigs.S.result >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|send page>> builds the ~H~T~T~P frame corresponding to
       <<span class="odocwiki_inlinecode"|page>>~. ~This may be used for example in a service handler
       registered with <<span class="odocwiki_inlinecode"|~Eliom~_registration~.~Any~.register>>~, or when
       building a custom output module~.
diff --git a/doc/11.x/api/client/Eliom_registration_sigs.S_poly.wiki b/doc/11.x/api/client/Eliom_registration_sigs.S_poly.wiki
new file mode 100644
index 0000000000..5498213484
--- /dev/null
+++ b/doc/11.x/api/client/Eliom_registration_sigs.S_poly.wiki
@@ -0,0 +1,5 @@
+=Module type <<a_api_type subproject="client" | module type Eliom_registration_sigs.S_poly >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module type>> <<span class="ocsforge_color_uid"|S_poly>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module type Eliom_registration_sigs.S_poly >><<span class="ocsforge_color_keyword"|end>>>>
+----
+<<pre class="ocsforge_color odocwiki_code" id="TYPEpage"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'_>> <<span class="odocwiki_name"|page>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEoptions"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|options>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEreturn"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'_>> <<span class="odocwiki_name"|return>>>><<pre id="VALregister" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|register>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?app: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?options: >><<a_api subproject="client" text="options" | type Eliom_registration_sigs.S_poly.options >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?secure_session: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| service: >><<span class="ocsforge_color_delimiter"| ( >>'get, 'post, 'b, 'c, 'd, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>,\\           <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|reg>>, [< `WithSuffix | `WithoutSuffix ], 'e, 'f,\\           'a <<a_api subproject="client" text="return" | type Eliom_registration_sigs.S_poly.return >><<span class="ocsforge_color_delimiter"| ) >>\\          <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?error_handler: >><<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_delimiter"| ( >>string * exn<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >>\\                  'a <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S_poly.page >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'get <<span class="ocsforge_color_delimiter"| -> >> 'post <<span class="ocsforge_color_delimiter"| -> >> 'a <<a_api subproject="client" text="page" | type Eliom_registration_sigs.S_poly.page >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  unit>>>><<div class="odocwiki_info"|~See <<a_api subproject="client" | val Eliom_registration_sigs.S.register >>~.
+>>
diff --git a/doc/11.x/api/client/Eliom_registration_sigs.S_poly_with_create.wiki b/doc/11.x/api/client/Eliom_registration_sigs.S_poly_with_create.wiki
new file mode 100644
index 0000000000..9a5cb97246
--- /dev/null
+++ b/doc/11.x/api/client/Eliom_registration_sigs.S_poly_with_create.wiki
@@ -0,0 +1,10 @@
+=Module type <<a_api_type subproject="client" | module type Eliom_registration_sigs.S_poly_with_create >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module type>> <<span class="ocsforge_color_uid"|S_poly_with_create>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module type Eliom_registration_sigs.S_poly_with_create >><<span class="ocsforge_color_keyword"|end>>>>
+----
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module type Eliom_registration_sigs.S_poly >>>>
+<<pre id="VALcreate" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|create>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?app: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?options: >>options <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?secure_session: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?https: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?name: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_safe: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|user_scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_secure: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?max_use: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?timeout: >>float <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| meth: >><<span class="ocsforge_color_delimiter"| ( >>'m, 'gp, 'gn, 'pp, 'pn, [< `WithSuffix | `WithoutSuffix ] as 'b,\\        'gp_<<span class="ocsforge_color_delimiter"| ) >>\\       <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|meth>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| path: >><<span class="ocsforge_color_delimiter"| ( >>'att, 'co, 'gp_<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|path_option>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?error_handler: >><<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_delimiter"| ( >>string * exn<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >> 'a page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp <<span class="ocsforge_color_delimiter"| -> >> 'pp <<span class="ocsforge_color_delimiter"| -> >> 'a page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp, 'pp, 'm, 'att, 'co, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|reg>>,\\   'b, 'gn, 'pn, 'a return<<span class="ocsforge_color_delimiter"| ) >>\\  <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~See <<a_api subproject="client" | val Eliom_registration_sigs.S_with_create.create >>~.
+>>
+<<pre id="VALcreate_attached_get" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|create~_attached~_get>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?app: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?options: >>options <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?secure_session: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?https: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?name: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_safe: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|user_scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_secure: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?max_use: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?timeout: >>float <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| fallback: >><<span class="ocsforge_color_delimiter"| ( >>unit, unit, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|get>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|att>>,\\            <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_co>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>, 'b,\\            [ `WithoutSuffix ], unit, unit, 'a return<<span class="ocsforge_color_delimiter"| ) >>\\           <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| get_params: >><<span class="ocsforge_color_delimiter"| ( >>'gp, [ `WithoutSuffix ], 'gn<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_uid"|Eliom_parameter>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|params_type>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?error_handler: >><<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_delimiter"| ( >>string * exn<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >> 'a page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp <<span class="ocsforge_color_delimiter"| -> >> unit <<span class="ocsforge_color_delimiter"| -> >> 'a page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp, unit, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|get>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|att>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|co>>,\\   <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|reg>>, [ `WithoutSuffix ], 'gn,\\   unit, 'a return<<span class="ocsforge_color_delimiter"| ) >>\\  <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~See <<a_api subproject="client" | val Eliom_registration_sigs.S_with_create.create_attached_get >>~.
+>>
+<<pre id="VALcreate_attached_post" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|create~_attached~_post>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?app: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?options: >>options <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?secure_session: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?https: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?name: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_safe: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|user_scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_secure: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?max_use: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?timeout: >>float <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| fallback: >><<span class="ocsforge_color_delimiter"| ( >>'gp, unit, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|get>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|att>>,\\            <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_co>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>, 'b,\\            [ `WithoutSuffix ], 'gn, unit, 'a return<<span class="ocsforge_color_delimiter"| ) >>\\           <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| post_params: >><<span class="ocsforge_color_delimiter"| ( >>'pp, [ `WithoutSuffix ], 'pn<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_uid"|Eliom_parameter>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|params_type>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?error_handler: >><<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_delimiter"| ( >>string * exn<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >> 'a page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp <<span class="ocsforge_color_delimiter"| -> >> 'pp <<span class="ocsforge_color_delimiter"| -> >> 'a page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp, 'pp, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|post>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|att>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|co>>,\\   <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|reg>>, [ `WithoutSuffix ], 'gn,\\   'pn, 'a return<<span class="ocsforge_color_delimiter"| ) >>\\  <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~See <<a_api subproject="client" | val Eliom_registration_sigs.S_with_create.create_attached_post >>~.
+>>
diff --git a/doc/10.x/api/client/Eliom_registration_sigs.S_poly_with_create_with_send.wiki b/doc/11.x/api/client/Eliom_registration_sigs.S_poly_with_create_with_send.wiki
similarity index 71%
rename from doc/10.x/api/client/Eliom_registration_sigs.S_poly_with_create_with_send.wiki
rename to doc/11.x/api/client/Eliom_registration_sigs.S_poly_with_create_with_send.wiki
index 8fd6d7c1bb..d8b40e0d21 100644
--- a/doc/10.x/api/client/Eliom_registration_sigs.S_poly_with_create_with_send.wiki
+++ b/doc/11.x/api/client/Eliom_registration_sigs.S_poly_with_create_with_send.wiki
@@ -2,4 +2,4 @@
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module type>> <<span class="ocsforge_color_uid"|S_poly_with_create_with_send>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module type Eliom_registration_sigs.S_poly_with_create_with_send >><<span class="ocsforge_color_keyword"|end>>>>
 ----
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module type Eliom_registration_sigs.S_poly_with_create >>>>
-<<pre class="ocsforge_color odocwiki_code" id="TYPEresult"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|result>>>><<pre id="VALsend" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?options: >>options <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  'a page <<span class="ocsforge_color_delimiter"| -> >>\\  'a <<a_api subproject="client" text="result" | type Eliom_registration_sigs.S_poly_with_create_with_send.result >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>>
\ No newline at end of file
+<<pre class="ocsforge_color odocwiki_code" id="TYPEresult"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|result>>>><<pre id="VALsend" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?options: >>options <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  'a page <<span class="ocsforge_color_delimiter"| -> >>\\  'a <<a_api subproject="client" text="result" | type Eliom_registration_sigs.S_poly_with_create_with_send.result >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>>
\ No newline at end of file
diff --git a/doc/10.x/api/client/Eliom_registration_sigs.S_poly_with_send.wiki b/doc/11.x/api/client/Eliom_registration_sigs.S_poly_with_send.wiki
similarity index 71%
rename from doc/10.x/api/client/Eliom_registration_sigs.S_poly_with_send.wiki
rename to doc/11.x/api/client/Eliom_registration_sigs.S_poly_with_send.wiki
index c48ed86dbb..31d74f6c30 100644
--- a/doc/10.x/api/client/Eliom_registration_sigs.S_poly_with_send.wiki
+++ b/doc/11.x/api/client/Eliom_registration_sigs.S_poly_with_send.wiki
@@ -2,4 +2,4 @@
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module type>> <<span class="ocsforge_color_uid"|S_poly_with_send>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module type Eliom_registration_sigs.S_poly_with_send >><<span class="ocsforge_color_keyword"|end>>>>
 ----
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module type Eliom_registration_sigs.S_poly >>>>
-<<pre class="ocsforge_color odocwiki_code" id="TYPEresult"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|result>>>><<pre id="VALsend" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?options: >>options <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  'a page <<span class="ocsforge_color_delimiter"| -> >> 'a <<a_api subproject="client" text="result" | type Eliom_registration_sigs.S_poly_with_send.result >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>>
\ No newline at end of file
+<<pre class="ocsforge_color odocwiki_code" id="TYPEresult"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|result>>>><<pre id="VALsend" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|send>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?options: >>options <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  'a page <<span class="ocsforge_color_delimiter"| -> >> 'a <<a_api subproject="client" text="result" | type Eliom_registration_sigs.S_poly_with_send.result >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>>
\ No newline at end of file
diff --git a/doc/11.x/api/client/Eliom_registration_sigs.S_with_create.wiki b/doc/11.x/api/client/Eliom_registration_sigs.S_with_create.wiki
new file mode 100644
index 0000000000..f0d1e2f043
--- /dev/null
+++ b/doc/11.x/api/client/Eliom_registration_sigs.S_with_create.wiki
@@ -0,0 +1,19 @@
+=Module type <<a_api_type subproject="client" | module type Eliom_registration_sigs.S_with_create >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module type>> <<span class="ocsforge_color_uid"|S_with_create>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="client" text=".." | module type Eliom_registration_sigs.S_with_create >><<span class="ocsforge_color_keyword"|end>>>>
+----
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="client" | module type Eliom_registration_sigs.S >>>>
+<<pre id="VALcreate" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|create>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?app: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?options: >>options <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?secure_session: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?https: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?name: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_safe: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|user_scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_secure: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?max_use: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?timeout: >>float <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| meth: >><<span class="ocsforge_color_delimiter"| ( >>'m, 'gp, 'gn, 'pp, 'pn, [< `WithSuffix | `WithoutSuffix ] as 'a,\\        'gp_<<span class="ocsforge_color_delimiter"| ) >>\\       <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|meth>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| path: >><<span class="ocsforge_color_delimiter"| ( >>'att, 'co, 'gp_<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|path_option>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?error_handler: >><<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_delimiter"| ( >>string * exn<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >> page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp <<span class="ocsforge_color_delimiter"| -> >> 'pp <<span class="ocsforge_color_delimiter"| -> >> page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp, 'pp, 'm, 'att, 'co, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|reg>>,\\   'a, 'gn, 'pn, return<<span class="ocsforge_color_delimiter"| ) >>\\  <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~Create a service and register it at the same time~.
+      ~It calls <<span class="odocwiki_inlinecode"|~Eliom~_service~.create>> and then performs
+      <<a_api subproject="client" | val Eliom_registration_sigs.S.register >>~.
+      ~Returns the service~.
+>>
+<<pre id="VALcreate_attached_get" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|create~_attached~_get>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?app: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?options: >>options <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?secure_session: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?https: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?name: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_safe: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|user_scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_secure: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?max_use: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?timeout: >>float <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| fallback: >><<span class="ocsforge_color_delimiter"| ( >>unit, unit, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|get>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|att>>,\\            <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_co>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>, 'a,\\            [ `WithoutSuffix ], unit, unit, return<<span class="ocsforge_color_delimiter"| ) >>\\           <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| get_params: >><<span class="ocsforge_color_delimiter"| ( >>'gp, [ `WithoutSuffix ], 'gn<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_uid"|Eliom_parameter>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|params_type>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?error_handler: >><<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_delimiter"| ( >>string * exn<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >> page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp <<span class="ocsforge_color_delimiter"| -> >> unit <<span class="ocsforge_color_delimiter"| -> >> page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp, unit, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|get>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|att>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|co>>,\\   <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|reg>>, [ `WithoutSuffix ], 'gn,\\   unit, return<<span class="ocsforge_color_delimiter"| ) >>\\  <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~Create an attached service and register it at the same time~.
+      ~It calls <<span class="odocwiki_inlinecode"|~Eliom~_service~.create~_attached~_get>> and then performs
+      <<a_api subproject="client" | val Eliom_registration_sigs.S.register >>~.
+      ~Returns the new service~.
+>>
+<<pre id="VALcreate_attached_post" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|create~_attached~_post>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?app: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?options: >>options <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?charset: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?code: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?content_type: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?headers: >><<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Cohttp>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Header>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?secure_session: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?https: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?name: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_safe: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_scope: >>[< <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|user_scope>> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_secure: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?max_use: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?timeout: >>float <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| fallback: >><<span class="ocsforge_color_delimiter"| ( >>'gp, unit, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|get>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|att>>,\\            <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_co>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>, 'a,\\            [ `WithoutSuffix ], 'gn, unit, return<<span class="ocsforge_color_delimiter"| ) >>\\           <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| post_params: >><<span class="ocsforge_color_delimiter"| ( >>'pp, [ `WithoutSuffix ], 'pn<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_uid"|Eliom_parameter>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|params_type>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?error_handler: >><<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_delimiter"| ( >>string * exn<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >> page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp <<span class="ocsforge_color_delimiter"| -> >> 'pp <<span class="ocsforge_color_delimiter"| -> >> page <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp, 'pp, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|post>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|att>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|co>>,\\   <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|non_ext>>, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|reg>>, [ `WithoutSuffix ], 'gn,\\   'pn, return<<span class="ocsforge_color_delimiter"| ) >>\\  <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~Create an attached ~P~O~S~T service and register it at the same time~.
+      ~It calls <<span class="odocwiki_inlinecode"|~Eliom~_service~.create~_attached~_post>> and then performs
+      <<a_api subproject="client" | val Eliom_registration_sigs.S.register >>~.
+      ~Returns the new service~.
+>>
diff --git a/doc/10.x/api/client/Eliom_registration_sigs.wiki b/doc/11.x/api/client/Eliom_registration_sigs.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_registration_sigs.wiki
rename to doc/11.x/api/client/Eliom_registration_sigs.wiki
diff --git a/doc/10.x/api/client/Eliom_service.wiki b/doc/11.x/api/client/Eliom_service.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_service.wiki
rename to doc/11.x/api/client/Eliom_service.wiki
diff --git a/doc/10.x/api/client/Eliom_service_sigs.S.wiki b/doc/11.x/api/client/Eliom_service_sigs.S.wiki
similarity index 93%
rename from doc/10.x/api/client/Eliom_service_sigs.S.wiki
rename to doc/11.x/api/client/Eliom_service_sigs.S.wiki
index d4af25f58d..cf4f19abee 100644
--- a/doc/10.x/api/client/Eliom_service_sigs.S.wiki
+++ b/doc/11.x/api/client/Eliom_service_sigs.S.wiki
@@ -14,10 +14,9 @@
 
 ===@@id="3_Auxiliarytypes"@@~Auxiliary types===
 
-<<pre class="ocsforge_color odocwiki_code" id="TYPEatt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|att>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEnon_att"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|non~_att>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEattached_info"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|attached~_info>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Attached>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|<<a_api subproject="client" text="att" | type Eliom_service_sigs.S.att >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Nonattached>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|<<a_api subproject="client" text="non_att" | type Eliom_service_sigs.S.non_att >>>>>>>>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_delimiter"| ( >>'get, 'post, 'meth, 'attached, 'co, 'ext, 'reg\\    , +[< `WithSuffix | `WithoutSuffix ], 'gn, 'pn, 'ret<<span class="ocsforge_color_delimiter"| ) >>>> <<span class="odocwiki_name"|t>>>><<div class="odocwiki_info"|**~Type of services**
-
-
-      ~For a service
+<<pre class="ocsforge_color odocwiki_code" id="TYPEatt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|att>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEnon_att"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|non~_att>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEattached_info"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|attached~_info>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Attached>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|<<a_api subproject="client" text="att" | type Eliom_service_sigs.S.att >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Nonattached>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|<<a_api subproject="client" text="non_att" | type Eliom_service_sigs.S.non_att >>>>>>>>>>>>
+**~Type of services**
+<<pre class="ocsforge_color odocwiki_code" id="TYPEt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_delimiter"| ( >>'get, 'post, 'meth, 'attached, 'co, 'ext, 'reg\\    , +[< `WithSuffix | `WithoutSuffix ], 'gn, 'pn, 'ret<<span class="ocsforge_color_delimiter"| ) >>>> <<span class="odocwiki_name"|t>>>><<div class="odocwiki_info"|~For a service
       <<span class="odocwiki_inlinecode"|~(~'get~, ~'post~, ~'meth~, ~'attached~, ~'co~, ~'ext~, ~'reg~,
         ~'tipo~, ~'gn~, ~'pn~, ~'ret~) t>>~:
 
@@ -42,9 +41,9 @@
 
 >>
 <<pre class="ocsforge_color odocwiki_code" id="TYPEresult"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|result>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|No_contents>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Dom>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|element>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Redirect>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>unit, unit, get, 'a, 'b, 'c, 'd, [ `WithoutSuffix ], unit, \\     unit, non_ocaml<<span class="ocsforge_color_delimiter"| ) >>\\    <<a_api subproject="client" text="t" | type Eliom_service_sigs.S.t >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Reload_action>> <<span class="ocsforge_color_keyword"|of>> <<span class="ocsforge_color_delimiter"|~{>>
-<<span class="odocwiki_record"|<<span class="odocwiki_field"|<<span class="odocwiki_field_descr"|      <<span class="ocsforge_color_label"|hidden:>> <<span class="odocwiki_type"|bool>><<span class="ocsforge_color_delimiter"|~;>> >>>><<span class="odocwiki_field"|<<span class="odocwiki_field_descr"|      <<span class="ocsforge_color_label"|https:>> <<span class="odocwiki_type"|bool>><<span class="ocsforge_color_delimiter"|~;>> >>>>>><<span class="ocsforge_color_delimiter"|~}>>>>>>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEunit_service"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|unit~_service>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_delimiter"| ( >>unit, unit, get, <<a_api subproject="client" text="att" | type Eliom_service_sigs.S.att >>, non_co, non_ext, \\   non_reg, [ `WithoutSuffix ], unit, unit, non_ocaml<<span class="ocsforge_color_delimiter"| ) >>\\  <<a_api subproject="client" text="t" | type Eliom_service_sigs.S.t >>>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEpath_option"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >>'_, '_, '_<<span class="ocsforge_color_delimiter"| ) >>>> <<span class="odocwiki_name"|path~_option>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Path>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Eliom_lib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Url>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|path>>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|No_path>>>>>>>>>><<div class="odocwiki_info"|**~Optional service path**
->>
-
+<<span class="odocwiki_record"|<<span class="odocwiki_field"|<<span class="odocwiki_field_descr"|      <<span class="ocsforge_color_label"|hidden:>> <<span class="odocwiki_type"|bool>><<span class="ocsforge_color_delimiter"|~;>> >>>><<span class="odocwiki_field"|<<span class="odocwiki_field_descr"|      <<span class="ocsforge_color_label"|https:>> <<span class="odocwiki_type"|bool>><<span class="ocsforge_color_delimiter"|~;>> >>>>>><<span class="ocsforge_color_delimiter"|~}>>>>>>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEunit_service"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|unit~_service>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_delimiter"| ( >>unit, unit, get, <<a_api subproject="client" text="att" | type Eliom_service_sigs.S.att >>, non_co, non_ext, \\   non_reg, [ `WithoutSuffix ], unit, unit, non_ocaml<<span class="ocsforge_color_delimiter"| ) >>\\  <<a_api subproject="client" text="t" | type Eliom_service_sigs.S.t >>>> >>
+**~Optional service path**
+<<pre class="ocsforge_color odocwiki_code" id="TYPEpath_option"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >>'_, '_, '_<<span class="ocsforge_color_delimiter"| ) >>>> <<span class="odocwiki_name"|path~_option>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Path>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Eliom_lib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Url>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|path>>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|No_path>>>>>>>>>>
 
 ===@@id="3_Predefinedservices"@@~Predefined services===
 
diff --git a/doc/10.x/api/client/Eliom_service_sigs.TYPES.wiki b/doc/11.x/api/client/Eliom_service_sigs.TYPES.wiki
similarity index 90%
rename from doc/10.x/api/client/Eliom_service_sigs.TYPES.wiki
rename to doc/11.x/api/client/Eliom_service_sigs.TYPES.wiki
index c24b96b084..e5b13cee14 100644
--- a/doc/10.x/api/client/Eliom_service_sigs.TYPES.wiki
+++ b/doc/11.x/api/client/Eliom_service_sigs.TYPES.wiki
@@ -9,7 +9,8 @@
 
 ==@@id="2_Methodspecification"@@~Method specification==
 
-<<pre class="ocsforge_color odocwiki_code" id="TYPEmeth"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >>'m, '_, '_, '_, '_, '_, '_<<span class="ocsforge_color_delimiter"| ) >>>> <<span class="odocwiki_name"|meth>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Get>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>'gp, [< `WithSuffix | `WithoutSuffix ], 'gn<<span class="ocsforge_color_delimiter"| ) >>\\    <<a_api subproject="client" text="params" | type Eliom_service_sigs.TYPES.params >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Post>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>'gp0, [< `WithSuffix | `WithoutSuffix ], 'gn0<<span class="ocsforge_color_delimiter"| ) >>\\    <<a_api subproject="client" text="params" | type Eliom_service_sigs.TYPES.params >>\\       * <<span class="ocsforge_color_delimiter"| ( >>'pp, [ `WithoutSuffix ], 'pn<<span class="ocsforge_color_delimiter"| ) >>\\         <<a_api subproject="client" text="params" | type Eliom_service_sigs.TYPES.params >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Put>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>'gp1, [< `WithSuffix | `WithoutSuffix ], 'gn1<<span class="ocsforge_color_delimiter"| ) >>\\    <<a_api subproject="client" text="params" | type Eliom_service_sigs.TYPES.params >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Delete>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>'gp2, [< `WithSuffix | `WithoutSuffix ], 'gn2<<span class="ocsforge_color_delimiter"| ) >>\\    <<a_api subproject="client" text="params" | type Eliom_service_sigs.TYPES.params >>>>>>>>>>>><<div class="odocwiki_info"|**~Method specification datatype**
+
+**~Method specification datatype**
 
 
       ~An ~Eliom service ~(see <<a_api subproject="client" | type Eliom_service_sigs.S.t >>~) can respond to
@@ -39,6 +40,5 @@
                      not unit ~; used to force unit ~G~E~T parameters when
                      needed
 
->>
-<<pre class="ocsforge_color odocwiki_code" id="TYPEwhich_meth"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'m>> <<span class="odocwiki_name"|which~_meth>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Get'>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Post'>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Put'>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Delete'>>>>>>>>>><<div class="odocwiki_info"|~Like <<a_api subproject="client" | type Eliom_service_sigs.TYPES.meth >> but without the parameters
+<<pre class="ocsforge_color odocwiki_code" id="TYPEmeth"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >>'m, '_, '_, '_, '_, '_, '_<<span class="ocsforge_color_delimiter"| ) >>>> <<span class="odocwiki_name"|meth>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Get>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>'gp, [< `WithSuffix | `WithoutSuffix ], 'gn<<span class="ocsforge_color_delimiter"| ) >>\\    <<a_api subproject="client" text="params" | type Eliom_service_sigs.TYPES.params >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Post>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>'gp0, [< `WithSuffix | `WithoutSuffix ], 'gn0<<span class="ocsforge_color_delimiter"| ) >>\\    <<a_api subproject="client" text="params" | type Eliom_service_sigs.TYPES.params >>\\       * <<span class="ocsforge_color_delimiter"| ( >>'pp, [ `WithoutSuffix ], 'pn<<span class="ocsforge_color_delimiter"| ) >>\\         <<a_api subproject="client" text="params" | type Eliom_service_sigs.TYPES.params >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Put>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>'gp1, [< `WithSuffix | `WithoutSuffix ], 'gn1<<span class="ocsforge_color_delimiter"| ) >>\\    <<a_api subproject="client" text="params" | type Eliom_service_sigs.TYPES.params >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Delete>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>'gp2, [< `WithSuffix | `WithoutSuffix ], 'gn2<<span class="ocsforge_color_delimiter"| ) >>\\    <<a_api subproject="client" text="params" | type Eliom_service_sigs.TYPES.params >>>>>>>>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEwhich_meth"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'m>> <<span class="odocwiki_name"|which~_meth>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Get'>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Post'>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Put'>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Delete'>>>>>>>>>><<div class="odocwiki_info"|~Like <<a_api subproject="client" | type Eliom_service_sigs.TYPES.meth >> but without the parameters
 >>
diff --git a/doc/10.x/api/client/Eliom_service_sigs.wiki b/doc/11.x/api/client/Eliom_service_sigs.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_service_sigs.wiki
rename to doc/11.x/api/client/Eliom_service_sigs.wiki
diff --git a/doc/10.x/api/client/Eliom_shared.FakeReactiveData.RList.wiki b/doc/11.x/api/client/Eliom_shared.FakeReactiveData.RList.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_shared.FakeReactiveData.RList.wiki
rename to doc/11.x/api/client/Eliom_shared.FakeReactiveData.RList.wiki
diff --git a/doc/10.x/api/client/Eliom_shared.FakeReactiveData.wiki b/doc/11.x/api/client/Eliom_shared.FakeReactiveData.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_shared.FakeReactiveData.wiki
rename to doc/11.x/api/client/Eliom_shared.FakeReactiveData.wiki
diff --git a/doc/10.x/api/client/Eliom_shared.React.E.wiki b/doc/11.x/api/client/Eliom_shared.React.E.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_shared.React.E.wiki
rename to doc/11.x/api/client/Eliom_shared.React.E.wiki
diff --git a/doc/10.x/api/client/Eliom_shared.React.S.wiki b/doc/11.x/api/client/Eliom_shared.React.S.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_shared.React.S.wiki
rename to doc/11.x/api/client/Eliom_shared.React.S.wiki
diff --git a/doc/10.x/api/client/Eliom_shared.React.wiki b/doc/11.x/api/client/Eliom_shared.React.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_shared.React.wiki
rename to doc/11.x/api/client/Eliom_shared.React.wiki
diff --git a/doc/10.x/api/client/Eliom_shared.ReactiveData.RList.wiki b/doc/11.x/api/client/Eliom_shared.ReactiveData.RList.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_shared.ReactiveData.RList.wiki
rename to doc/11.x/api/client/Eliom_shared.ReactiveData.RList.wiki
diff --git a/doc/10.x/api/client/Eliom_shared.ReactiveData.wiki b/doc/11.x/api/client/Eliom_shared.ReactiveData.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_shared.ReactiveData.wiki
rename to doc/11.x/api/client/Eliom_shared.ReactiveData.wiki
diff --git a/doc/10.x/api/client/Eliom_shared.Value.wiki b/doc/11.x/api/client/Eliom_shared.Value.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_shared.Value.wiki
rename to doc/11.x/api/client/Eliom_shared.Value.wiki
diff --git a/doc/10.x/api/client/Eliom_shared.wiki b/doc/11.x/api/client/Eliom_shared.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_shared.wiki
rename to doc/11.x/api/client/Eliom_shared.wiki
diff --git a/doc/10.x/api/client/Eliom_shared_sigs.RLIST.Lwt.wiki b/doc/11.x/api/client/Eliom_shared_sigs.RLIST.Lwt.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_shared_sigs.RLIST.Lwt.wiki
rename to doc/11.x/api/client/Eliom_shared_sigs.RLIST.Lwt.wiki
diff --git a/doc/10.x/api/client/Eliom_shared_sigs.RLIST.wiki b/doc/11.x/api/client/Eliom_shared_sigs.RLIST.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_shared_sigs.RLIST.wiki
rename to doc/11.x/api/client/Eliom_shared_sigs.RLIST.wiki
diff --git a/doc/10.x/api/client/Eliom_shared_sigs.S.Infix.wiki b/doc/11.x/api/client/Eliom_shared_sigs.S.Infix.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_shared_sigs.S.Infix.wiki
rename to doc/11.x/api/client/Eliom_shared_sigs.S.Infix.wiki
diff --git a/doc/10.x/api/client/Eliom_shared_sigs.S.Lwt.wiki b/doc/11.x/api/client/Eliom_shared_sigs.S.Lwt.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_shared_sigs.S.Lwt.wiki
rename to doc/11.x/api/client/Eliom_shared_sigs.S.Lwt.wiki
diff --git a/doc/10.x/api/client/Eliom_shared_sigs.S.wiki b/doc/11.x/api/client/Eliom_shared_sigs.S.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_shared_sigs.S.wiki
rename to doc/11.x/api/client/Eliom_shared_sigs.S.wiki
diff --git a/doc/10.x/api/client/Eliom_shared_sigs.VALUE.wiki b/doc/11.x/api/client/Eliom_shared_sigs.VALUE.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_shared_sigs.VALUE.wiki
rename to doc/11.x/api/client/Eliom_shared_sigs.VALUE.wiki
diff --git a/doc/10.x/api/client/Eliom_shared_sigs.wiki b/doc/11.x/api/client/Eliom_shared_sigs.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_shared_sigs.wiki
rename to doc/11.x/api/client/Eliom_shared_sigs.wiki
diff --git a/doc/10.x/api/client/Eliom_tools.D.wiki b/doc/11.x/api/client/Eliom_tools.D.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_tools.D.wiki
rename to doc/11.x/api/client/Eliom_tools.D.wiki
diff --git a/doc/10.x/api/client/Eliom_tools.F.wiki b/doc/11.x/api/client/Eliom_tools.F.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_tools.F.wiki
rename to doc/11.x/api/client/Eliom_tools.F.wiki
diff --git a/doc/10.x/api/client/Eliom_tools.HTML5_TOOLS.wiki b/doc/11.x/api/client/Eliom_tools.HTML5_TOOLS.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_tools.HTML5_TOOLS.wiki
rename to doc/11.x/api/client/Eliom_tools.HTML5_TOOLS.wiki
diff --git a/doc/10.x/api/client/Eliom_tools.wiki b/doc/11.x/api/client/Eliom_tools.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_tools.wiki
rename to doc/11.x/api/client/Eliom_tools.wiki
diff --git a/doc/10.x/api/client/Eliom_types.wiki b/doc/11.x/api/client/Eliom_types.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_types.wiki
rename to doc/11.x/api/client/Eliom_types.wiki
diff --git a/doc/10.x/api/client/Eliom_unwrap.wiki b/doc/11.x/api/client/Eliom_unwrap.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_unwrap.wiki
rename to doc/11.x/api/client/Eliom_unwrap.wiki
diff --git a/doc/10.x/api/client/Eliom_uri.wiki b/doc/11.x/api/client/Eliom_uri.wiki
similarity index 100%
rename from doc/10.x/api/client/Eliom_uri.wiki
rename to doc/11.x/api/client/Eliom_uri.wiki
diff --git a/doc/10.x/api/client/index.wiki b/doc/11.x/api/client/index.wiki
similarity index 100%
rename from doc/10.x/api/client/index.wiki
rename to doc/11.x/api/client/index.wiki
index e24d7fbf2b..b709405d5b 100644
--- a/doc/10.x/api/client/index.wiki
+++ b/doc/11.x/api/client/index.wiki
@@ -5,32 +5,13 @@
 
 
 
-|<<a_api subproject="client" | module Eliom_lib >>|<<div class="odocwiki_info"|~Eliom standard library
->>
-|
 |<<a_api subproject="client" | module Eliom_client >>|<<div class="odocwiki_info"|~Call server side services and change the current page~.
 >>
 |
 |<<a_api subproject="client" | module Eliom_client_value >>|<<div class="odocwiki_info"|~Client and shared values
 >>
 |
-
-
-
-
-
-==@@id="2_Contentandformcreation"@@~Content and form creation==
-
-
-
-
-|<<a_api subproject="client" | module Eliom_content.Html >>|<<div class="odocwiki_info"|~Building valid ~(~X~)~H~T~M~L~5~.
->>
-|
-|<<a_api subproject="client" | module Eliom_content.Svg >>|<<div class="odocwiki_info"|~Building valid ~S~V~G ~.
->>
-|
-|<<a_api subproject="client" | module Eliom_content.Xml >>|<<div class="odocwiki_info"|~Low~-level ~X~M~L manipulation~.
+|<<a_api subproject="client" | module Eliom_lib >>|<<div class="odocwiki_info"|~Eliom standard library
 >>
 |
 
@@ -69,6 +50,25 @@
 
 
 
+==@@id="2_Contentandformcreation"@@~Content and form creation==
+
+
+
+
+|<<a_api subproject="client" | module Eliom_content.Html >>|<<div class="odocwiki_info"|~Building valid ~(~X~)~H~T~M~L~5~.
+>>
+|
+|<<a_api subproject="client" | module Eliom_content.Svg >>|<<div class="odocwiki_info"|~Building valid ~S~V~G ~.
+>>
+|
+|<<a_api subproject="client" | module Eliom_content.Xml >>|<<div class="odocwiki_info"|~Low~-level ~X~M~L manipulation~.
+>>
+|
+
+
+
+
+
 ==@@id="2_Index"@@~Index==
 
 
diff --git a/doc/10.x/api/client/index_attributes.wiki b/doc/11.x/api/client/index_attributes.wiki
similarity index 100%
rename from doc/10.x/api/client/index_attributes.wiki
rename to doc/11.x/api/client/index_attributes.wiki
diff --git a/doc/10.x/api/client/index_class_types.wiki b/doc/11.x/api/client/index_class_types.wiki
similarity index 100%
rename from doc/10.x/api/client/index_class_types.wiki
rename to doc/11.x/api/client/index_class_types.wiki
diff --git a/doc/10.x/api/client/index_classes.wiki b/doc/11.x/api/client/index_classes.wiki
similarity index 100%
rename from doc/10.x/api/client/index_classes.wiki
rename to doc/11.x/api/client/index_classes.wiki
diff --git a/doc/10.x/api/client/index_exceptions.wiki b/doc/11.x/api/client/index_exceptions.wiki
similarity index 100%
rename from doc/10.x/api/client/index_exceptions.wiki
rename to doc/11.x/api/client/index_exceptions.wiki
diff --git a/doc/10.x/api/client/index_methods.wiki b/doc/11.x/api/client/index_methods.wiki
similarity index 100%
rename from doc/10.x/api/client/index_methods.wiki
rename to doc/11.x/api/client/index_methods.wiki
diff --git a/doc/10.x/api/client/index_module_types.wiki b/doc/11.x/api/client/index_module_types.wiki
similarity index 100%
rename from doc/10.x/api/client/index_module_types.wiki
rename to doc/11.x/api/client/index_module_types.wiki
diff --git a/doc/10.x/api/client/index_modules.wiki b/doc/11.x/api/client/index_modules.wiki
similarity index 98%
rename from doc/10.x/api/client/index_modules.wiki
rename to doc/11.x/api/client/index_modules.wiki
index 3e46aed54a..e65e2c6d19 100644
--- a/doc/10.x/api/client/index_modules.wiki
+++ b/doc/11.x/api/client/index_modules.wiki
@@ -43,6 +43,7 @@
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="D"| module Eliom_content.Svg.D >> ~[<<a_api subproject="client" | module Eliom_content.Svg >>~]|<<div class="odocwiki_info"|~Creation of content with //~D//~O~M semantics ~(referable
 >>
 |
+|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="Dom_reference"| module Eliom_lib.Dom_reference >> ~[<<a_api subproject="client" | module Eliom_lib >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="Down"| module Eliom_react.S.Down >> ~[<<a_api subproject="client" | module Eliom_react.S >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="Down"| module Eliom_react.Down >> ~[<<a_api subproject="client" | module Eliom_react >>~]||
 |@@ @style="tet-align: left;"@@\\E|
@@ -217,19 +218,11 @@
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="Raw"| module Eliom_content.Html.R.Raw >> ~[<<a_api subproject="client" | module Eliom_content.Html.R >>~]|<<div class="odocwiki_info"|~Cf~.
 >>
 |
-|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="Raw"| module Eliom_content.Html.D.Raw >> ~[<<a_api subproject="client" | module Eliom_content.Html.D >>~]|<<div class="odocwiki_info"|~Cf~.
->>
-|
-|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="Raw"| module Eliom_content.Html.F.Raw >> ~[<<a_api subproject="client" | module Eliom_content.Html.F >>~]|<<div class="odocwiki_info"|~Cf~.
->>
-|
+|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="Raw"| module Eliom_content.Html.D.Raw >> ~[<<a_api subproject="client" | module Eliom_content.Html.D >>~]||
+|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="Raw"| module Eliom_content.Html.F.Raw >> ~[<<a_api subproject="client" | module Eliom_content.Html.F >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="Raw"| module Eliom_content.Svg.R.Raw >> ~[<<a_api subproject="client" | module Eliom_content.Svg.R >>~]||
-|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="Raw"| module Eliom_content.Svg.D.Raw >> ~[<<a_api subproject="client" | module Eliom_content.Svg.D >>~]|<<div class="odocwiki_info"|~Cf~.
->>
-|
-|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="Raw"| module Eliom_content.Svg.F.Raw >> ~[<<a_api subproject="client" | module Eliom_content.Svg.F >>~]|<<div class="odocwiki_info"|~Cf~.
->>
-|
+|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="Raw"| module Eliom_content.Svg.D.Raw >> ~[<<a_api subproject="client" | module Eliom_content.Svg.D >>~]||
+|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="Raw"| module Eliom_content.Svg.F.Raw >> ~[<<a_api subproject="client" | module Eliom_content.Svg.F >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="React"| module Eliom_shared.React >> ~[<<a_api subproject="client" | module Eliom_shared >>~]|<<div class="odocwiki_info"|~Shared implementation of ~React~; client~-side behavior is like
     standard ~React
 >>
diff --git a/doc/10.x/api/client/index_types.wiki b/doc/11.x/api/client/index_types.wiki
similarity index 98%
rename from doc/10.x/api/client/index_types.wiki
rename to doc/11.x/api/client/index_types.wiki
index 8776d36127..1138342b78 100644
--- a/doc/10.x/api/client/index_types.wiki
+++ b/doc/11.x/api/client/index_types.wiki
@@ -96,6 +96,7 @@
 |
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="internal_event_handler"| type Eliom_content_core.Xml.internal_event_handler >> ~[<<a_api subproject="client" | module Eliom_content_core.Xml >>~]||
 |@@ @style="tet-align: left;"@@\\K|
+|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="key"| type Eliom_lib.Dom_reference.key >> ~[<<a_api subproject="client" | module Eliom_lib.Dom_reference >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="keyboard_event_handler"| type Eliom_content_core.Xml.keyboard_event_handler >> ~[<<a_api subproject="client" | module Eliom_content_core.Xml >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="kind"| type Eliom_registration.kind >> ~[<<a_api subproject="client" | module Eliom_registration >>~]||
 |@@ @style="tet-align: left;"@@\\L|
@@ -110,9 +111,7 @@
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="main_page"| type Eliom_tools.main_page >> ~[<<a_api subproject="client" | module Eliom_tools >>~]|<<div class="odocwiki_info"|~Main page description for a section of a hierarchical site~.
 >>
 |
-|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="meth"| type Eliom_service_sigs.TYPES.meth >> ~[<<a_api subproject="client" | module Eliom_service_sigs.TYPES >>~]|<<div class="odocwiki_info"|**~Method specification datatype**
->>
-|
+|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="meth"| type Eliom_service_sigs.TYPES.meth >> ~[<<a_api subproject="client" | module Eliom_service_sigs.TYPES >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="mouse_event_handler"| type Eliom_content_core.Xml.mouse_event_handler >> ~[<<a_api subproject="client" | module Eliom_content_core.Xml >>~]||
 |@@ @style="tet-align: left;"@@\\N|
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="nl_params_set"| type Eliom_parameter_sigs.S.nl_params_set >> ~[<<a_api subproject="client" | module Eliom_parameter_sigs.S >>~]|<<div class="odocwiki_info"|~Use this type to give non localized parameters to a link or a
@@ -154,9 +153,7 @@
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="params_type"| type Eliom_parameter_sigs.S.params_type >> ~[<<a_api subproject="client" | module Eliom_parameter_sigs.S >>~]|<<div class="odocwiki_info"|~Abstract type for service parameters~.
 >>
 |
-|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="path_option"| type Eliom_service_sigs.S.path_option >> ~[<<a_api subproject="client" | module Eliom_service_sigs.S >>~]|<<div class="odocwiki_info"|**~Optional service path**
->>
-|
+|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="path_option"| type Eliom_service_sigs.S.path_option >> ~[<<a_api subproject="client" | module Eliom_service_sigs.S >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="post"| type Eliom_service_sigs.TYPES.post >> ~[<<a_api subproject="client" | module Eliom_service_sigs.TYPES >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="put"| type Eliom_service_sigs.TYPES.put >> ~[<<a_api subproject="client" | module Eliom_service_sigs.TYPES >>~]||
 |@@ @style="tet-align: left;"@@\\R|
@@ -233,7 +230,9 @@
 |
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="t"| type Eliom_shared_sigs.S.t >> ~[<<a_api subproject="client" | module Eliom_shared_sigs.S >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="t"| type Eliom_shared_sigs.VALUE.t >> ~[<<a_api subproject="client" | module Eliom_shared_sigs.VALUE >>~]||
-|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="t"| type Eliom_service_sigs.S.t >> ~[<<a_api subproject="client" | module Eliom_service_sigs.S >>~]|<<div class="odocwiki_info"|**~Type of services**
+|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="t"| type Eliom_service_sigs.S.t >> ~[<<a_api subproject="client" | module Eliom_service_sigs.S >>~]|<<div class="odocwiki_info"|~For a service
+      <<span class="odocwiki_inlinecode"|~(~'get~, ~'post~, ~'meth~, ~'attached~, ~'co~, ~'ext~, ~'reg~,
+        ~'tipo~, ~'gn~, ~'pn~, ~'ret~) t>>~:
 >>
 |
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="to_and_of"| type Eliom_parameter_sigs.S.to_and_of >> ~[<<a_api subproject="client" | module Eliom_parameter_sigs.S >>~]||
diff --git a/doc/10.x/api/client/index_values.wiki b/doc/11.x/api/client/index_values.wiki
similarity index 98%
rename from doc/10.x/api/client/index_values.wiki
rename to doc/11.x/api/client/index_values.wiki
index 4738067e01..3f952ec374 100644
--- a/doc/10.x/api/client/index_values.wiki
+++ b/doc/11.x/api/client/index_values.wiki
@@ -498,7 +498,6 @@
 |
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="get_injection"| value Eliom_client_core.Syntax_helpers.get_injection >> ~[<<a_api subproject="client" | module Eliom_client_core.Syntax_helpers >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="get_nl_params_names"| value Eliom_parameter_sigs.S.get_nl_params_names >> ~[<<a_api subproject="client" | module Eliom_parameter_sigs.S >>~]||
-|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="get_node"| value Eliom_client_core.ReactState.get_node >> ~[<<a_api subproject="client" | module Eliom_client_core.ReactState >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="get_non_localized_get_parameters"| value Eliom_parameter.get_non_localized_get_parameters >> ~[<<a_api subproject="client" | module Eliom_parameter >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="get_prop"| value Eliom_client_core.get_prop >> ~[<<a_api subproject="client" | module Eliom_client_core >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="get_ssl"| value Eliom_lib.Url.get_ssl >> ~[<<a_api subproject="client" | module Eliom_lib.Url >>~]||
@@ -555,7 +554,6 @@
     app is not sent by the server~.
 >>
 |
-|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="init_or_update"| value Eliom_client_core.ReactState.init_or_update >> ~[<<a_api subproject="client" | module Eliom_client_core.ReactState >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="initialize"| value Eliom_client_core.Injection.initialize >> ~[<<a_api subproject="client" | module Eliom_client_core.Injection >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="initialize"| value Eliom_client_core.Client_value.initialize >> ~[<<a_api subproject="client" | module Eliom_client_core.Client_value >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="input"| value Eliom_form_sigs.S.input >> ~[<<a_api subproject="client" | module Eliom_form_sigs.S >>~]|<<div class="odocwiki_info"|~Creates an <<span class="odocwiki_inlinecode"|~<input~>>> tag~.
@@ -778,6 +776,7 @@
         identifier~.
 >>
 |
+|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="new_key"| value Eliom_lib.Dom_reference.new_key >> ~[<<a_api subproject="client" | module Eliom_lib.Dom_reference >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="nextSibling"| value Eliom_content.Html.Manip.nextSibling >> ~[<<a_api subproject="client" | module Eliom_content.Html.Manip >>~]|<<div class="odocwiki_info"|<<span class="odocwiki_inlinecode"|next~Sibling elt>> returns the next element that has the same parent~,
         if <<span class="odocwiki_inlinecode"|elt>> is not the last~.
 >>
@@ -977,7 +976,6 @@
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="rebuild_node'"| value Eliom_client_core.rebuild_node' >> ~[<<a_api subproject="client" | module Eliom_client_core >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="rebuild_node_ns"| value Eliom_client_core.rebuild_node_ns >> ~[<<a_api subproject="client" | module Eliom_client_core >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="rebuild_node_svg"| value Eliom_client_core.rebuild_node_svg >> ~[<<a_api subproject="client" | module Eliom_client_core >>~]||
-|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="rebuild_node_with_state"| value Eliom_client_core.rebuild_node_with_state >> ~[<<a_api subproject="client" | module Eliom_client_core >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="rebuild_rattrib"| value Eliom_client_core.rebuild_rattrib >> ~[<<a_api subproject="client" | module Eliom_client_core >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="rebuild_reactive_class_rattrib"| value Eliom_client_core.rebuild_reactive_class_rattrib >> ~[<<a_api subproject="client" | module Eliom_client_core >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="reconstruct_params_form"| value Eliom_parameter.reconstruct_params_form >> ~[<<a_api subproject="client" | module Eliom_parameter >>~]||
@@ -996,6 +994,10 @@
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="register_client_closure"| value Eliom_client_core.Syntax_helpers.register_client_closure >> ~[<<a_api subproject="client" | module Eliom_client_core.Syntax_helpers >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="registered_process_node"| value Eliom_client_core.registered_process_node >> ~[<<a_api subproject="client" | module Eliom_client_core >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="reify_caml_event"| value Eliom_client_core.reify_caml_event >> ~[<<a_api subproject="client" | module Eliom_client_core >>~]||
+|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="release"| value Eliom_lib.Dom_reference.release >> ~[<<a_api subproject="client" | module Eliom_lib.Dom_reference >>~]|<<div class="odocwiki_info"|<<span class="odocwiki_inlinecode"|release ~~key o>> removes the association between the value <<span class="odocwiki_inlinecode"|v>> and
+      the value associated to <<span class="odocwiki_inlinecode"|key>>~.
+>>
+|
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="reload_action"| value Eliom_service_sigs.S.reload_action >> ~[<<a_api subproject="client" | module Eliom_service_sigs.S >>~]|<<div class="odocwiki_info"|~The service <<span class="odocwiki_inlinecode"|reload~_action>> is a predefined non~-attached action
       with special behaviour~: it has no parameter at all~, even
       non~-attached parameters~.
@@ -1086,6 +1088,13 @@
 |
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="resolve"| value Eliom_lib.Url.resolve >> ~[<<a_api subproject="client" | module Eliom_lib.Url >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="result_of_http_result"| value Eliom_registration_sigs.PARAM.result_of_http_result >> ~[<<a_api subproject="client" | module Eliom_registration_sigs.PARAM >>~]||
+|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="retain"| value Eliom_lib.Dom_reference.retain >> ~[<<a_api subproject="client" | module Eliom_lib.Dom_reference >>~]|<<div class="odocwiki_info"|<<span class="odocwiki_inlinecode"|retain v ~~keep>> prevents <<span class="odocwiki_inlinecode"|keep>> from being garbage collected
+      while <<span class="odocwiki_inlinecode"|v>> is live~.
+>>
+|
+|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="retain_generic"| value Eliom_lib.Dom_reference.retain_generic >> ~[<<a_api subproject="client" | module Eliom_lib.Dom_reference >>~]|<<div class="odocwiki_info"|~Same as <<span class="odocwiki_inlinecode"|retain>> but works with any object~.
+>>
+|
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="right"| value Eliom_content.Html.Manip.SetCss.right >> ~[<<a_api subproject="client" | module Eliom_content.Html.Manip.SetCss >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="right"| value Eliom_content.Html.Manip.Css.right >> ~[<<a_api subproject="client" | module Eliom_content.Html.Manip.Css >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="rightPx"| value Eliom_content.Html.Manip.SetCss.rightPx >> ~[<<a_api subproject="client" | module Eliom_content.Html.Manip.SetCss >>~]||
@@ -1180,6 +1189,7 @@
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="space_re"| value Eliom_client_core.space_re >> ~[<<a_api subproject="client" | module Eliom_client_core >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="space_sep_attrib"| value Eliom_content_core.Xml_wed.space_sep_attrib >> ~[<<a_api subproject="client" | module Eliom_content_core.Xml_wed >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="split_path"| value Eliom_lib.Url.split_path >> ~[<<a_api subproject="client" | module Eliom_lib.Url >>~]||
+|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="start_signal"| value Eliom_client_core.ReactState.start_signal >> ~[<<a_api subproject="client" | module Eliom_client_core.ReactState >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="static_dir"| value Eliom_service_sigs.S.static_dir >> ~[<<a_api subproject="client" | module Eliom_service_sigs.S >>~]|<<div class="odocwiki_info"|~The predefined service <<span class="odocwiki_inlinecode"|static~_dir>> allows one to create links
       to static files~.
 >>
@@ -1250,6 +1260,11 @@
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="topPx"| value Eliom_content.Html.Manip.SetCss.topPx >> ~[<<a_api subproject="client" | module Eliom_content.Html.Manip.SetCss >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="topPx"| value Eliom_content.Html.Manip.Css.topPx >> ~[<<a_api subproject="client" | module Eliom_content.Html.Manip.Css >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="trace"| value Eliom_lib.trace >> ~[<<a_api subproject="client" | module Eliom_lib >>~]||
+|@@class="odocwiki_index"@ @@<<a_api subproject="client" text="transfer"| value Eliom_lib.Dom_reference.transfer >> ~[<<a_api subproject="client" | module Eliom_lib.Dom_reference >>~]|<<div class="odocwiki_info"|<<span class="odocwiki_inlinecode"|transfer ~~key ~~src ~~dst>> transfers the association between the
+      value <<span class="odocwiki_inlinecode"|src>> and the value associated to key <<span class="odocwiki_inlinecode"|key>> to value
+      <<span class="odocwiki_inlinecode"|dst>>~.
+>>
+|
 |@@ @style="tet-align: left;"@@\\U|
 |@@class="odocwiki_index"@ @@<<a_api subproject="client" text="unit"| value Eliom_parameter_sigs.S.unit >> ~[<<a_api subproject="client" | module Eliom_parameter_sigs.S >>~]|<<div class="odocwiki_info"|~Specifying parameter as <<span class="odocwiki_inlinecode"|unit>> is used for services that don~'t
       have any parameters
diff --git a/doc/10.x/api/client/menu.wiki b/doc/11.x/api/client/menu.wiki
similarity index 100%
rename from doc/10.x/api/client/menu.wiki
rename to doc/11.x/api/client/menu.wiki
index dd05d788c1..3df7851314 100644
--- a/doc/10.x/api/client/menu.wiki
+++ b/doc/11.x/api/client/menu.wiki
@@ -1,11 +1,7 @@
 =~Client ~A~P~I
-==[[client/Eliom_lib|Eliom_lib]]
 ==[[client/Eliom_client|Eliom_client]]
 ==[[client/Eliom_client_value|Eliom_client_value]]
-==~Content and form creation
-===[[client/Eliom_content.Html|Eliom_content.Html]]
-===[[client/Eliom_content.Svg|Eliom_content.Svg]]
-===[[client/Eliom_content.Xml|Eliom_content.Xml]]
+==[[client/Eliom_lib|Eliom_lib]]
 ==~Client~/server communication
 ===[[client/Eliom_service|Eliom_service]]
 ===[[client/Eliom_shared|Eliom_shared]]
@@ -13,6 +9,10 @@
 ===[[client/Eliom_bus|Eliom_bus]]
 ===[[client/Eliom_comet|Eliom_comet]]
 ===[[client/Eliom_react|Eliom_react]]
+==~Content and form creation
+===[[client/Eliom_content.Html|Eliom_content.Html]]
+===[[client/Eliom_content.Svg|Eliom_content.Svg]]
+===[[client/Eliom_content.Xml|Eliom_content.Xml]]
 ==~Index
 === <<a_api subproject="client" text="Index of types" | index types >>
 === <<a_api subproject="client" text="Index of exceptions" | index exceptions >>
diff --git a/doc/10.x/api/client/type_Eliom_bus.wiki b/doc/11.x/api/client/type_Eliom_bus.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_bus.wiki
rename to doc/11.x/api/client/type_Eliom_bus.wiki
diff --git a/doc/10.x/api/client/type_Eliom_client.Page_status.Events.wiki b/doc/11.x/api/client/type_Eliom_client.Page_status.Events.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_client.Page_status.Events.wiki
rename to doc/11.x/api/client/type_Eliom_client.Page_status.Events.wiki
diff --git a/doc/10.x/api/client/type_Eliom_client.Page_status.wiki b/doc/11.x/api/client/type_Eliom_client.Page_status.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_client.Page_status.wiki
rename to doc/11.x/api/client/type_Eliom_client.Page_status.wiki
diff --git a/doc/10.x/api/client/type_Eliom_client.wiki b/doc/11.x/api/client/type_Eliom_client.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_client.wiki
rename to doc/11.x/api/client/type_Eliom_client.wiki
diff --git a/doc/10.x/api/client/type_Eliom_client_core.Client_closure.wiki b/doc/11.x/api/client/type_Eliom_client_core.Client_closure.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_client_core.Client_closure.wiki
rename to doc/11.x/api/client/type_Eliom_client_core.Client_closure.wiki
diff --git a/doc/10.x/api/client/type_Eliom_client_core.Client_value.wiki b/doc/11.x/api/client/type_Eliom_client_core.Client_value.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_client_core.Client_value.wiki
rename to doc/11.x/api/client/type_Eliom_client_core.Client_value.wiki
diff --git a/doc/10.x/api/client/type_Eliom_client_core.Injection.wiki b/doc/11.x/api/client/type_Eliom_client_core.Injection.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_client_core.Injection.wiki
rename to doc/11.x/api/client/type_Eliom_client_core.Injection.wiki
diff --git a/doc/11.x/api/client/type_Eliom_client_core.ReactState.wiki b/doc/11.x/api/client/type_Eliom_client_core.ReactState.wiki
new file mode 100644
index 0000000000..f7d0ee2a57
--- /dev/null
+++ b/doc/11.x/api/client/type_Eliom_client_core.ReactState.wiki
@@ -0,0 +1,8 @@
+<<code language="ocaml" | sig
+  type t
+  val start_signal :
+    (Eliom_client_core.??.t -> unit React.signal) ->
+    Js_of_ocaml.Dom.node Js_of_ocaml.Js.t
+  val change_dom :
+    Eliom_client_core.??.t -> Js_of_ocaml.Dom.node Js_of_ocaml.Js.t -> unit
+end >>
\ No newline at end of file
diff --git a/doc/10.x/api/client/type_Eliom_client_core.Syntax_helpers.wiki b/doc/11.x/api/client/type_Eliom_client_core.Syntax_helpers.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_client_core.Syntax_helpers.wiki
rename to doc/11.x/api/client/type_Eliom_client_core.Syntax_helpers.wiki
diff --git a/doc/10.x/api/client/type_Eliom_client_core.Xml.wiki b/doc/11.x/api/client/type_Eliom_client_core.Xml.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_client_core.Xml.wiki
rename to doc/11.x/api/client/type_Eliom_client_core.Xml.wiki
diff --git a/doc/10.x/api/client/type_Eliom_client_core.wiki b/doc/11.x/api/client/type_Eliom_client_core.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_client_core.wiki
rename to doc/11.x/api/client/type_Eliom_client_core.wiki
diff --git a/doc/10.x/api/client/type_Eliom_client_value.wiki b/doc/11.x/api/client/type_Eliom_client_value.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_client_value.wiki
rename to doc/11.x/api/client/type_Eliom_client_value.wiki
diff --git a/doc/10.x/api/client/type_Eliom_comet.Channel.wiki b/doc/11.x/api/client/type_Eliom_comet.Channel.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_comet.Channel.wiki
rename to doc/11.x/api/client/type_Eliom_comet.Channel.wiki
diff --git a/doc/10.x/api/client/type_Eliom_comet.Configuration.wiki b/doc/11.x/api/client/type_Eliom_comet.Configuration.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_comet.Configuration.wiki
rename to doc/11.x/api/client/type_Eliom_comet.Configuration.wiki
diff --git a/doc/10.x/api/client/type_Eliom_comet.wiki b/doc/11.x/api/client/type_Eliom_comet.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_comet.wiki
rename to doc/11.x/api/client/type_Eliom_comet.wiki
diff --git a/doc/10.x/api/client/type_Eliom_config.wiki b/doc/11.x/api/client/type_Eliom_config.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_config.wiki
rename to doc/11.x/api/client/type_Eliom_config.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content.Html.C.wiki b/doc/11.x/api/client/type_Eliom_content.Html.C.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content.Html.C.wiki
rename to doc/11.x/api/client/type_Eliom_content.Html.C.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content.Html.Custom_data.wiki b/doc/11.x/api/client/type_Eliom_content.Html.Custom_data.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content.Html.Custom_data.wiki
rename to doc/11.x/api/client/type_Eliom_content.Html.Custom_data.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content.Html.D.Raw.wiki b/doc/11.x/api/client/type_Eliom_content.Html.D.Raw.wiki
similarity index 84%
rename from doc/10.x/api/client/type_Eliom_content.Html.D.Raw.wiki
rename to doc/11.x/api/client/type_Eliom_content.Html.D.Raw.wiki
index 87f6260c65..33caf70750 100644
--- a/doc/10.x/api/client/type_Eliom_content.Html.D.Raw.wiki
+++ b/doc/11.x/api/client/type_Eliom_content.Html.D.Raw.wiki
@@ -69,83 +69,10 @@
   val a_title : Html_types.text wrap -> [> `Title ] attrib
   val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
   val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-  val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-  val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
-  val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
-  val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
-  val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-  val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-  val a_oncanplaythrough : Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-  val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-  val a_ondurationchange : Xml.event_handler -> [> `OnDurationChange ] attrib
-  val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-  val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-  val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-  val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-  val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
-  val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
-  val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
-  val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-  val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-  val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
-  val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-  val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-  val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-  val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-  val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-  val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-  val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-  val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-  val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-  val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
-  val a_onreadystatechange :
-    Xml.event_handler -> [> `OnReadyStateChange ] attrib
-  val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-  val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-  val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-  val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-  val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-  val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-  val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-  val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-  val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-  val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-  val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-  val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
-  val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-  val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-  val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
-  val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-  val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-  val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
-  val a_onloadedmetadata : Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-  val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
-  val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-  val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-  val a_oncontextmenu : Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-  val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-  val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-  val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-  val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-  val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-  val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-  val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-  val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-  val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-  val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-  val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-  val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-  val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-  val a_ontouchstart : Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-  val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-  val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-  val a_ontouchcancel : Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-  val a_onkeypress : Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-  val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-  val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
   val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
   val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-  val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+  val a_autocomplete :
+    Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
   val a_async : unit -> [> `Async ] attrib
   val a_autofocus : unit -> [> `Autofocus ] attrib
   val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -244,7 +171,7 @@
   val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
   val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
   val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-  val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+  val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
   val a_multiple : unit -> [> `Multiple ] attrib
   val a_name : Html_types.text wrap -> [> `Name ] attrib
   val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -285,6 +212,7 @@
   val a_readonly : unit -> [> `ReadOnly ] attrib
   val a_button_type :
     [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+  val a_script_type : Html_types.script_type wrap -> [> `Script_type ] attrib
   val a_command_type :
     [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
   val a_menu_type : [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
@@ -343,8 +271,8 @@
      [> Html_types.body ])
     star
   val svg :
-    ?a:[< Html_types.svg_attrib ] Svg.D.Raw.attrib list ->
-    [< Html_types.svg_content ] Svg.D.Raw.elt list_wrap ->
+    ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+    [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
     [> Html_types.svg ] elt
   val footer :
     ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
@@ -418,6 +346,10 @@
     ([< Html_types.blockquote_attrib ],
      [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
     star
+  val dialog :
+    ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+     [> Html_types.dialog ])
+    star
   val div :
     ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
      [> Html_types.div ])
@@ -596,6 +528,7 @@
       | `OnCanPlayThrough
       | `OnChange
       | `OnClick
+      | `OnClose
       | `OnContextMenu
       | `OnDblClick
       | `OnDrag
@@ -845,4 +778,78 @@
       val space_sep_attrib : string -> string list wrap -> 'a attrib
       val comma_sep_attrib : string -> string list wrap -> 'a attrib
     end
+  val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+  val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+  val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+  val a_onbeforeunload : string -> [> `OnBeforeUnload ] Raw'.attrib
+  val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+  val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+  val a_oncanplaythrough : string -> [> `OnCanPlayThrough ] Raw'.attrib
+  val a_onchange : string -> [> `OnChange ] Raw'.attrib
+  val a_onclose : string -> [> `OnClose ] Raw'.attrib
+  val a_ondurationchange : string -> [> `OnDurationChange ] Raw'.attrib
+  val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+  val a_onended : string -> [> `OnEnded ] Raw'.attrib
+  val a_onerror : string -> [> `OnError ] Raw'.attrib
+  val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+  val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+  val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+  val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+  val a_oninput : string -> [> `OnInput ] Raw'.attrib
+  val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+  val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+  val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+  val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+  val a_onpause : string -> [> `OnPause ] Raw'.attrib
+  val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+  val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+  val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+  val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+  val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+  val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+  val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+  val a_onreadystatechange : string -> [> `OnReadyStateChange ] Raw'.attrib
+  val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+  val a_onresize : string -> [> `OnResize ] Raw'.attrib
+  val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+  val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+  val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+  val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+  val a_onshow : string -> [> `OnShow ] Raw'.attrib
+  val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+  val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+  val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+  val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+  val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+  val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+  val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+  val a_onvolumechange : string -> [> `OnVolumeChange ] Raw'.attrib
+  val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+  val a_onload : string -> [> `OnLoad ] Raw'.attrib
+  val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+  val a_onloadedmetadata : string -> [> `OnLoadedMetaData ] Raw'.attrib
+  val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+  val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+  val a_onclick : string -> [> `OnClick ] Raw'.attrib
+  val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+  val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+  val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+  val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+  val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+  val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+  val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+  val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+  val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+  val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+  val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+  val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+  val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+  val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+  val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+  val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+  val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+  val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+  val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+  val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+  val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/server/type_Eliom_content.Html.D.wiki b/doc/11.x/api/client/type_Eliom_content.Html.D.wiki
similarity index 67%
rename from doc/10.x/api/server/type_Eliom_content.Html.D.wiki
rename to doc/11.x/api/client/type_Eliom_content.Html.D.wiki
index 5789c67a56..e07369f051 100644
--- a/doc/10.x/api/server/type_Eliom_content.Html.D.wiki
+++ b/doc/11.x/api/client/type_Eliom_content.Html.D.wiki
@@ -1,4 +1,890 @@
 <<code language="ocaml" | sig
+  module Raw' :
+    sig
+      type 'a elt = 'a elt
+      type doc = Html_types.html elt
+      type 'a attrib = 'a attrib
+      module Xml :
+        sig
+          module W :
+            sig
+              type 'a t = 'a Xml.W.t
+              val return : 'a -> 'a t
+              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+              val fmap : ('a, 'b) ft -> 'a t -> 'b t
+              type 'a tlist = 'a Xml.W.tlist
+              val nil : unit -> 'a tlist
+              val singleton : 'a t -> 'a tlist
+              val cons : 'a t -> 'a tlist -> 'a tlist
+              val append : 'a tlist -> 'a tlist -> 'a tlist
+              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+            end
+          type 'a wrap = 'a W.t
+          type 'a list_wrap = 'a W.tlist
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) W.ft
+          val uri_of_string : (string, uri) W.ft
+          type aname = string
+          type event_handler = Xml.event_handler
+          type mouse_event_handler = Xml.mouse_event_handler
+          type keyboard_event_handler = Xml.keyboard_event_handler
+          type touch_event_handler = Xml.touch_event_handler
+          type attrib = Xml.attrib
+          val float_attrib : aname -> float wrap -> attrib
+          val int_attrib : aname -> int wrap -> attrib
+          val string_attrib : aname -> string wrap -> attrib
+          val space_sep_attrib : aname -> string list wrap -> attrib
+          val comma_sep_attrib : aname -> string list wrap -> attrib
+          val event_handler_attrib : aname -> event_handler -> attrib
+          val mouse_event_handler_attrib :
+            aname -> mouse_event_handler -> attrib
+          val keyboard_event_handler_attrib :
+            aname -> keyboard_event_handler -> attrib
+          val touch_event_handler_attrib :
+            aname -> touch_event_handler -> attrib
+          val uri_attrib : aname -> uri wrap -> attrib
+          val uris_attrib : aname -> uri list wrap -> attrib
+          type elt = Xml.elt
+          type ename = string
+          val empty : unit -> elt
+          val comment : string -> elt
+          val pcdata : string wrap -> elt
+          val encodedpcdata : string wrap -> elt
+          val entity : string -> elt
+          val leaf : ?a:attrib list -> ename -> elt
+          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+          val cdata : string -> elt
+          val cdata_script : string -> elt
+          val cdata_style : string -> elt
+        end
+      type 'a wrap = 'a Xml.W.t
+      type 'a list_wrap = 'a Xml.W.tlist
+      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
+      type ('a, 'b, 'c) star =
+          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+      module Info : Xml_sigs.Info
+      type uri = Xml.uri
+      val string_of_uri : (uri, string) Xml.W.ft
+      val uri_of_string : (string, uri) Xml.W.ft
+      val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+      val a_user_data :
+        Html_types.nmtoken -> Html_types.text wrap -> [> `User_data ] attrib
+      val a_id : Html_types.text wrap -> [> `Id ] attrib
+      val a_title : Html_types.text wrap -> [> `Title ] attrib
+      val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
+      val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
+      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+      val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
+      val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
+      val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
+      val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
+      val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
+      val a_oncanplaythrough :
+        Xml.event_handler -> [> `OnCanPlayThrough ] attrib
+      val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+      val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
+      val a_ondurationchange :
+        Xml.event_handler -> [> `OnDurationChange ] attrib
+      val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
+      val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
+      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+      val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
+      val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
+      val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
+      val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
+      val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
+      val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
+      val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
+      val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
+      val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
+      val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
+      val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
+      val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
+      val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
+      val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
+      val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
+      val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
+      val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
+      val a_onreadystatechange :
+        Xml.event_handler -> [> `OnReadyStateChange ] attrib
+      val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
+      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+      val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
+      val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
+      val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
+      val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
+      val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
+      val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
+      val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
+      val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
+      val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
+      val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
+      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+      val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
+      val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
+      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+      val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
+      val a_onloadedmetadata :
+        Xml.event_handler -> [> `OnLoadedMetaData ] attrib
+      val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
+      val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
+      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+      val a_oncontextmenu :
+        Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
+      val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
+      val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
+      val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
+      val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
+      val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
+      val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
+      val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
+      val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
+      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+      val a_ontouchstart :
+        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+      val a_ontouchcancel :
+        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+      val a_onkeypress :
+        Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
+      val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
+      val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+      val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
+      val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
+      val a_autocomplete :
+        Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
+      val a_async : unit -> [> `Async ] attrib
+      val a_autofocus : unit -> [> `Autofocus ] attrib
+      val a_autoplay : unit -> [> `Autoplay ] attrib
+      val a_muted : unit -> [> `Muted ] attrib
+      val a_crossorigin :
+        [< `Anonymous | `Use_credentials ] wrap -> [> `Crossorigin ] attrib
+      val a_integrity : string wrap -> [> `Integrity ] attrib
+      val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
+      val a_challenge : Html_types.text wrap -> [> `Challenge ] attrib
+      val a_contenteditable : bool wrap -> [> `Contenteditable ] attrib
+      val a_contextmenu : Html_types.idref wrap -> [> `Contextmenu ] attrib
+      val a_controls : unit -> [> `Controls ] attrib
+      val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
+      val a_draggable : bool wrap -> [> `Draggable ] attrib
+      val a_form : Html_types.idref wrap -> [> `Form ] attrib
+      val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
+      val a_formenctype :
+        Html_types.contenttype wrap -> [> `Formenctype ] attrib
+      val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
+      val a_formtarget : Html_types.text wrap -> [> `Formtarget ] attrib
+      val a_hidden : unit -> [> `Hidden ] attrib
+      val a_high : Html_types.float_number wrap -> [> `High ] attrib
+      val a_icon : Xml.uri wrap -> [> `Icon ] attrib
+      val a_ismap : unit -> [> `Ismap ] attrib
+      val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
+      val a_list : Html_types.idref wrap -> [> `List ] attrib
+      val a_loop : unit -> [> `Loop ] attrib
+      val a_low : Html_types.float_number wrap -> [> `High ] attrib
+      val a_max : Html_types.float_number wrap -> [> `Max ] attrib
+      val a_input_max :
+        Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
+      val a_min : Html_types.float_number wrap -> [> `Min ] attrib
+      val a_input_min :
+        Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
+      val a_inputmode :
+        [< `Decimal
+         | `Email
+         | `None
+         | `Numeric
+         | `Search
+         | `Tel
+         | `Text
+         | `Url ]
+        wrap -> [> `Inputmode ] attrib
+      val a_novalidate : unit -> [> `Novalidate ] attrib
+      val a_open : unit -> [> `Open ] attrib
+      val a_optimum : Html_types.float_number wrap -> [> `Optimum ] attrib
+      val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
+      val a_placeholder : Html_types.text wrap -> [> `Placeholder ] attrib
+      val a_poster : Xml.uri wrap -> [> `Poster ] attrib
+      val a_preload :
+        [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
+      val a_pubdate : unit -> [> `Pubdate ] attrib
+      val a_radiogroup : Html_types.text wrap -> [> `Radiogroup ] attrib
+      val a_referrerpolicy :
+        Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
+      val a_required : unit -> [> `Required ] attrib
+      val a_reversed : unit -> [> `Reversed ] attrib
+      val a_sandbox :
+        [< Html_types.sandbox_token ] list wrap -> [> `Sandbox ] attrib
+      val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
+      val a_scoped : unit -> [> `Scoped ] attrib
+      val a_seamless : unit -> [> `Seamless ] attrib
+      val a_sizes :
+        (Html_types.number * Html_types.number) list option wrap ->
+        [> `Sizes ] attrib
+      val a_span : Html_types.number wrap -> [> `Span ] attrib
+      val a_srclang : Html_types.nmtoken wrap -> [> `XML_lang ] attrib
+      type image_candidate =
+          [ `Url of uri
+          | `Url_pixel of uri * Html_types.float_number
+          | `Url_width of uri * Html_types.number ]
+      val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
+      val a_img_sizes : Html_types.text list wrap -> [> `Img_sizes ] attrib
+      val a_start : Html_types.number wrap -> [> `Start ] attrib
+      val a_step : Html_types.float_number option wrap -> [> `Step ] attrib
+      val a_translate : [< `No | `Yes ] wrap -> [> `Translate ] attrib
+      val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
+      val a_version : Html_types.cdata wrap -> [> `Version ] attrib
+      val a_xmlns : [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
+      val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
+      val a_cite : Xml.uri wrap -> [> `Cite ] attrib
+      val a_xml_space :
+        [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
+      val a_accesskey : Html_types.character wrap -> [> `Accesskey ] attrib
+      val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
+      val a_accept_charset :
+        Html_types.charsets wrap -> [> `Accept_charset ] attrib
+      val a_accept : Html_types.contenttypes wrap -> [> `Accept ] attrib
+      val a_href : Xml.uri wrap -> [> `Href ] attrib
+      val a_hreflang : Html_types.languagecode wrap -> [> `Hreflang ] attrib
+      val a_download : string option wrap -> [> `Download ] attrib
+      val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
+      val a_tabindex : Html_types.number wrap -> [> `Tabindex ] attrib
+      val a_mime_type : Html_types.contenttype wrap -> [> `Mime_type ] attrib
+      val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
+      val a_action : Xml.uri wrap -> [> `Action ] attrib
+      val a_checked : unit -> [> `Checked ] attrib
+      val a_cols : Html_types.number wrap -> [> `Cols ] attrib
+      val a_enctype : Html_types.contenttype wrap -> [> `Enctype ] attrib
+      val a_label_for : Html_types.idref wrap -> [> `Label_for ] attrib
+      val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
+      val a_output_for : Html_types.idrefs wrap -> [> `Output_for ] attrib
+      val a_for_list : Html_types.idrefs wrap -> [> `Output_for ] attrib
+      val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
+      val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
+      val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
+      val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
+      val a_multiple : unit -> [> `Multiple ] attrib
+      val a_name : Html_types.text wrap -> [> `Name ] attrib
+      val a_rows : Html_types.number wrap -> [> `Rows ] attrib
+      val a_selected : unit -> [> `Selected ] attrib
+      val a_size : Html_types.number wrap -> [> `Size ] attrib
+      val a_src : Xml.uri wrap -> [> `Src ] attrib
+      val a_input_type :
+        [< `Button
+         | `Checkbox
+         | `Color
+         | `Date
+         | `Datetime
+         | `Datetime_local
+         | `Email
+         | `File
+         | `Hidden
+         | `Image
+         | `Month
+         | `Number
+         | `Password
+         | `Radio
+         | `Range
+         | `Reset
+         | `Search
+         | `Submit
+         | `Tel
+         | `Text
+         | `Time
+         | `Url
+         | `Week ]
+        wrap -> [> `Input_Type ] attrib
+      val a_text_value : Html_types.text wrap -> [> `Text_Value ] attrib
+      val a_int_value : Html_types.number wrap -> [> `Int_Value ] attrib
+      val a_value : Html_types.cdata wrap -> [> `Value ] attrib
+      val a_float_value :
+        Html_types.float_number wrap -> [> `Float_Value ] attrib
+      val a_disabled : unit -> [> `Disabled ] attrib
+      val a_readonly : unit -> [> `ReadOnly ] attrib
+      val a_button_type :
+        [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+      val a_script_type :
+        Html_types.script_type wrap -> [> `Script_type ] attrib
+      val a_command_type :
+        [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
+      val a_menu_type :
+        [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
+      val a_label : Html_types.text wrap -> [> `Label ] attrib
+      val a_align :
+        [< `Char | `Justify | `Left | `Right ] wrap -> [> `Align ] attrib
+      val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
+      val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
+      val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
+      val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
+      val a_scope :
+        [< `Col | `Colgroup | `Row | `Rowgroup ] wrap -> [> `Scope ] attrib
+      val a_summary : Html_types.text wrap -> [> `Summary ] attrib
+      val a_border : Html_types.pixels wrap -> [> `Border ] attrib
+      val a_rules :
+        [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
+        [> `Rules ] attrib
+      val a_char : Html_types.character wrap -> [> `Char ] attrib
+      val a_alt : Html_types.text wrap -> [> `Alt ] attrib
+      val a_height : Html_types.number wrap -> [> `Height ] attrib
+      val a_width : Html_types.number wrap -> [> `Width ] attrib
+      type shape = [ `Circle | `Default | `Poly | `Rect ]
+      val a_shape : shape wrap -> [> `Shape ] attrib
+      val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
+      val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
+      val a_data : Xml.uri wrap -> [> `Data ] attrib
+      val a_codetype : Html_types.contenttype wrap -> [> `Codetype ] attrib
+      val a_frameborder : [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
+      val a_marginheight :
+        Html_types.pixels wrap -> [> `Marginheight ] attrib
+      val a_marginwidth : Html_types.pixels wrap -> [> `Marginwidth ] attrib
+      val a_scrolling :
+        [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
+      val a_target : Html_types.frametarget wrap -> [> `Target ] attrib
+      val a_content : Html_types.text wrap -> [> `Content ] attrib
+      val a_http_equiv : Html_types.text wrap -> [> `Http_equiv ] attrib
+      val a_defer : unit -> [> `Defer ] attrib
+      val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
+      val a_style : string wrap -> [> `Style_Attr ] attrib
+      val a_property : string wrap -> [> `Property ] attrib
+      val a_role : string list wrap -> [> `Role ] attrib
+      val a_aria : string -> string list wrap -> [> `Aria ] attrib
+      val txt : string wrap -> [> Html_types.txt ] elt
+      val html :
+        ?a:Html_types.html_attrib attrib list ->
+        [< Html_types.head ] elt wrap ->
+        [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
+      val head :
+        ?a:Html_types.head_attrib attrib list ->
+        [< Html_types.title ] elt wrap ->
+        Html_types.head_content_fun elt list_wrap -> [> Html_types.head ] elt
+      val base : ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
+      val title :
+        (Html_types.title_attrib, [< Html_types.title_content_fun ],
+         [> Html_types.title ])
+        unary
+      val body :
+        ([< Html_types.body_attrib ], [< Html_types.body_content_fun ],
+         [> Html_types.body ])
+        star
+      val svg :
+        ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+        [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
+        [> Html_types.svg ] elt
+      val footer :
+        ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
+         [> Html_types.footer ])
+        star
+      val header :
+        ([< Html_types.header_attrib ], [< Html_types.header_content_fun ],
+         [> Html_types.header ])
+        star
+      val section :
+        ([< Html_types.section_attrib ], [< Html_types.section_content_fun ],
+         [> Html_types.section ])
+        star
+      val nav :
+        ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
+         [> Html_types.nav ])
+        star
+      val h1 :
+        ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
+         [> Html_types.h1 ])
+        star
+      val h2 :
+        ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
+         [> Html_types.h2 ])
+        star
+      val h3 :
+        ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
+         [> Html_types.h3 ])
+        star
+      val h4 :
+        ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
+         [> Html_types.h4 ])
+        star
+      val h5 :
+        ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
+         [> Html_types.h5 ])
+        star
+      val h6 :
+        ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
+         [> Html_types.h6 ])
+        star
+      val hgroup :
+        ([< Html_types.hgroup_attrib ], [< Html_types.hgroup_content_fun ],
+         [> Html_types.hgroup ])
+        star
+      val address :
+        ([< Html_types.address_attrib ], [< Html_types.address_content_fun ],
+         [> Html_types.address ])
+        star
+      val article :
+        ([< Html_types.article_attrib ], [< Html_types.article_content_fun ],
+         [> Html_types.article ])
+        star
+      val aside :
+        ([< Html_types.aside_attrib ], [< Html_types.aside_content_fun ],
+         [> Html_types.aside ])
+        star
+      val main :
+        ([< Html_types.main_attrib ], [< Html_types.main_content_fun ],
+         [> Html_types.main ])
+        star
+      val p :
+        ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
+         [> Html_types.p ])
+        star
+      val pre :
+        ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
+         [> Html_types.pre ])
+        star
+      val blockquote :
+        ([< Html_types.blockquote_attrib ],
+         [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
+        star
+      val dialog :
+        ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+         [> Html_types.dialog ])
+        star
+      val div :
+        ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
+         [> Html_types.div ])
+        star
+      val dl :
+        ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
+         [> Html_types.dl ])
+        star
+      val ol :
+        ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
+         [> Html_types.ol ])
+        star
+      val ul :
+        ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
+         [> Html_types.ul ])
+        star
+      val dd :
+        ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
+         [> Html_types.dd ])
+        star
+      val dt :
+        ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
+         [> Html_types.dt ])
+        star
+      val li :
+        ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
+         [> Html_types.li ])
+        star
+      val figcaption :
+        ([< Html_types.figcaption_attrib ],
+         [< Html_types.figcaption_content_fun ], [> Html_types.figcaption ])
+        star
+      val figure :
+        ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
+                    | `Top of [< Html_types.figcaption ] elt wrap ] ->
+        ([< Html_types.figure_attrib ], [< Html_types.figure_content_fun ],
+         [> Html_types.figure ])
+        star
+      val hr : ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
+      val b :
+        ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
+         [> Html_types.b ])
+        star
+      val i :
+        ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
+         [> Html_types.i ])
+        star
+      val u :
+        ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
+         [> Html_types.u ])
+        star
+      val small :
+        ([< Html_types.small_attrib ], [< Html_types.small_content_fun ],
+         [> Html_types.small ])
+        star
+      val sub :
+        ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
+         [> Html_types.sub ])
+        star
+      val sup :
+        ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
+         [> Html_types.sup ])
+        star
+      val mark :
+        ([< Html_types.mark_attrib ], [< Html_types.mark_content_fun ],
+         [> Html_types.mark ])
+        star
+      val wbr : ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
+      val bdo :
+        dir:[< `Ltr | `Rtl ] wrap ->
+        ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
+         [> Html_types.bdo ])
+        star
+      val abbr :
+        ([< Html_types.abbr_attrib ], [< Html_types.abbr_content_fun ],
+         [> Html_types.abbr ])
+        star
+      val br : ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
+      val cite :
+        ([< Html_types.cite_attrib ], [< Html_types.cite_content_fun ],
+         [> Html_types.cite ])
+        star
+      val code :
+        ([< Html_types.code_attrib ], [< Html_types.code_content_fun ],
+         [> Html_types.code ])
+        star
+      val dfn :
+        ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
+         [> Html_types.dfn ])
+        star
+      val em :
+        ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
+         [> Html_types.em ])
+        star
+      val kbd :
+        ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
+         [> Html_types.kbd ])
+        star
+      val q :
+        ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
+         [> Html_types.q ])
+        star
+      val samp :
+        ([< Html_types.samp_attrib ], [< Html_types.samp_content_fun ],
+         [> Html_types.samp ])
+        star
+      val span :
+        ([< Html_types.span_attrib ], [< Html_types.span_content_fun ],
+         [> Html_types.span ])
+        star
+      val strong :
+        ([< Html_types.strong_attrib ], [< Html_types.strong_content_fun ],
+         [> Html_types.strong ])
+        star
+      val time :
+        ([< Html_types.time_attrib ], [< Html_types.time_content_fun ],
+         [> Html_types.time ])
+        star
+      val var :
+        ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
+         [> Html_types.var ])
+        star
+      val a : ([< Html_types.a_attrib ], 'a, [> 'a Html_types.a ]) star
+      val del : ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
+      val ins : ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
+      val img :
+        src:Xml.uri wrap ->
+        alt:Html_types.text wrap ->
+        ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
+      val picture :
+        img:[< Html_types.img ] elt wrap ->
+        ([< Html_types.picture_attrib ], [< Html_types.picture_content_fun ],
+         [> Html_types.picture ])
+        star
+      val iframe :
+        ([< Html_types.iframe_attrib ], [< Html_types.iframe_content_fun ],
+         [> Html_types.iframe ])
+        star
+      val object_ :
+        ?params:[< Html_types.param ] elt list_wrap ->
+        ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
+      val param :
+        ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
+      val embed :
+        ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
+      val audio :
+        ?src:Xml.uri wrap ->
+        ?srcs:[< Html_types.source ] elt list_wrap ->
+        ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ]) star
+      val video :
+        ?src:Xml.uri wrap ->
+        ?srcs:[< Html_types.source ] elt list_wrap ->
+        ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ]) star
+      val canvas :
+        ([< Html_types.canvas_attrib ], 'a, [> 'a Html_types.canvas ]) star
+      val source :
+        ([< Html_types.source_attrib ], [> Html_types.source ]) nullary
+      val area :
+        alt:Html_types.text wrap ->
+        ([< `Accesskey
+          | `Alt
+          | `Aria
+          | `Class
+          | `Contenteditable
+          | `Contextmenu
+          | `Coords
+          | `Dir
+          | `Draggable
+          | `Hidden
+          | `Hreflang
+          | `Id
+          | `Lang
+          | `Media
+          | `Mime_type
+          | `OnAbort
+          | `OnBlur
+          | `OnCanPlay
+          | `OnCanPlayThrough
+          | `OnChange
+          | `OnClick
+          | `OnClose
+          | `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
+          | `Rel
+          | `Role
+          | `Shape
+          | `Spellcheck
+          | `Style_Attr
+          | `Tabindex
+          | `Target
+          | `Title
+          | `Translate
+          | `User_data
+          | `XML_lang
+          | `XMLns ],
+         [> Html_types.area ])
+        nullary
+      val map : ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
+      val caption :
+        ([< Html_types.caption_attrib ], [< Html_types.caption_content_fun ],
+         [> Html_types.caption ])
+        star
+      val table :
+        ?caption:[< Html_types.caption ] elt wrap ->
+        ?columns:[< Html_types.colgroup ] elt list_wrap ->
+        ?thead:[< Html_types.thead ] elt wrap ->
+        ?tfoot:[< Html_types.tfoot ] elt wrap ->
+        ([< Html_types.table_attrib ], [< Html_types.table_content_fun ],
+         [> Html_types.table ])
+        star
+      val tablex :
+        ?caption:[< Html_types.caption ] elt wrap ->
+        ?columns:[< Html_types.colgroup ] elt list_wrap ->
+        ?thead:[< Html_types.thead ] elt wrap ->
+        ?tfoot:[< Html_types.tfoot ] elt wrap ->
+        ([< Html_types.tablex_attrib ], [< Html_types.tablex_content_fun ],
+         [> Html_types.tablex ])
+        star
+      val colgroup :
+        ([< Html_types.colgroup_attrib ],
+         [< Html_types.colgroup_content_fun ], [> Html_types.colgroup ])
+        star
+      val col : ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
+      val thead :
+        ([< Html_types.thead_attrib ], [< Html_types.thead_content_fun ],
+         [> Html_types.thead ])
+        star
+      val tbody :
+        ([< Html_types.tbody_attrib ], [< Html_types.tbody_content_fun ],
+         [> Html_types.tbody ])
+        star
+      val tfoot :
+        ([< Html_types.tfoot_attrib ], [< Html_types.tfoot_content_fun ],
+         [> Html_types.tfoot ])
+        star
+      val td :
+        ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
+         [> Html_types.td ])
+        star
+      val th :
+        ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
+         [> Html_types.th ])
+        star
+      val tr :
+        ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
+         [> Html_types.tr ])
+        star
+      val form :
+        ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
+         [> Html_types.form ])
+        star
+      val fieldset :
+        ?legend:[< Html_types.legend ] elt wrap ->
+        ([< Html_types.fieldset_attrib ],
+         [< Html_types.fieldset_content_fun ], [> Html_types.fieldset ])
+        star
+      val legend :
+        ([< Html_types.legend_attrib ], [< Html_types.legend_content_fun ],
+         [> Html_types.legend ])
+        star
+      val label :
+        ([< Html_types.label_attrib ], [< Html_types.label_content_fun ],
+         [> Html_types.label ])
+        star
+      val input :
+        ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
+      val button :
+        ([< Html_types.button_attrib ], [< Html_types.button_content_fun ],
+         [> Html_types.button ])
+        star
+      val select :
+        ([< Html_types.select_attrib ], [< Html_types.select_content_fun ],
+         [> Html_types.select ])
+        star
+      val datalist :
+        ?children:[< `Options of [< Html_types.selectoption ] elt list_wrap
+                   | `Phras of [< Html_types.phrasing ] elt list_wrap ] ->
+        ([< Html_types.datalist_attrib ], [> Html_types.datalist ]) nullary
+      val optgroup :
+        label:Html_types.text wrap ->
+        ([< Html_types.optgroup_attrib ],
+         [< Html_types.optgroup_content_fun ], [> Html_types.optgroup ])
+        star
+      val option :
+        ([< Html_types.option_attrib ], [< Html_types.option_content_fun ],
+         [> Html_types.selectoption ])
+        unary
+      val textarea :
+        ([< Html_types.textarea_attrib ],
+         [< Html_types.textarea_content_fun ], [> Html_types.textarea ])
+        unary
+      val keygen :
+        ([< Html_types.keygen_attrib ], [> Html_types.keygen ]) nullary
+      val progress :
+        ([< Html_types.progress_attrib ],
+         [< Html_types.progress_content_fun ], [> Html_types.progress ])
+        star
+      val meter :
+        ([< Html_types.meter_attrib ], [< Html_types.meter_content_fun ],
+         [> Html_types.meter ])
+        star
+      val output_elt :
+        ([< Html_types.output_elt_attrib ],
+         [< Html_types.output_elt_content_fun ], [> Html_types.output_elt ])
+        star
+      val entity : string -> [> Html_types.txt ] elt
+      val space : unit -> [> Html_types.txt ] elt
+      val cdata : string -> [> Html_types.txt ] elt
+      val cdata_script : string -> [> Html_types.txt ] elt
+      val cdata_style : string -> [> Html_types.txt ] elt
+      val details :
+        [< Html_types.summary ] elt wrap ->
+        ([< Html_types.details_attrib ], [< Html_types.details_content_fun ],
+         [> Html_types.details ])
+        star
+      val summary :
+        ([< Html_types.summary_attrib ], [< Html_types.summary_content_fun ],
+         [> Html_types.summary ])
+        star
+      val command :
+        label:Html_types.text wrap ->
+        ([< Html_types.command_attrib ], [> Html_types.command ]) nullary
+      val menu :
+        ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
+                   | `Lis of [< `Li of [< Html_types.common ] ] elt list_wrap
+                  ] ->
+        ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
+      val script :
+        ([< Html_types.script_attrib ], [< Html_types.script_content_fun ],
+         [> Html_types.script ])
+        unary
+      val noscript :
+        ([< Html_types.noscript_attrib ],
+         [< Html_types.noscript_content_fun ], [> Html_types.noscript ])
+        star
+      val template :
+        ([< Html_types.template_attrib ],
+         [< Html_types.template_content_fun ], [> Html_types.template ])
+        star
+      val meta : ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
+      val style :
+        ([< Html_types.style_attrib ], [< Html_types.style_content_fun ],
+         [> Html_types.style ])
+        star
+      val link :
+        rel:Html_types.linktypes wrap ->
+        href:Xml.uri wrap ->
+        ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
+      val rt :
+        ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
+         [> Html_types.rt ])
+        star
+      val rp :
+        ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
+         [> Html_types.rp ])
+        star
+      val ruby :
+        ([< Html_types.ruby_attrib ], [< Html_types.ruby_content_fun ],
+         [> Html_types.ruby ])
+        star
+      val pcdata : string wrap -> [> Html_types.pcdata ] elt
+      val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+      val tot : Xml.elt -> 'a elt
+      val totl : Xml.elt list_wrap -> 'a elt list_wrap
+      val toelt : 'a elt -> Xml.elt
+      val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+      val doc_toelt : doc -> Xml.elt
+      val to_xmlattribs : 'a attrib list -> Xml.attrib list
+      val to_attrib : Xml.attrib -> 'a attrib
+      module Unsafe :
+        sig
+          val data : string wrap -> 'a elt
+          val node :
+            string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+          val coerce_elt : 'a elt -> 'b elt
+          val string_attrib : string -> string wrap -> 'a attrib
+          val float_attrib : string -> float wrap -> 'a attrib
+          val int_attrib : string -> int wrap -> 'a attrib
+          val uri_attrib : string -> uri wrap -> 'a attrib
+          val space_sep_attrib : string -> string list wrap -> 'a attrib
+          val comma_sep_attrib : string -> string list wrap -> 'a attrib
+        end
+    end
   module Raw :
     sig
       type 'a elt = 'a elt
@@ -74,90 +960,10 @@
       val a_title : Html_types.text wrap -> [> `Title ] attrib
       val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
       val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-      val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
-      val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
-      val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
-      val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-      val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-      val a_oncanplaythrough :
-        Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-      val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-      val a_ondurationchange :
-        Xml.event_handler -> [> `OnDurationChange ] attrib
-      val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-      val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-      val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-      val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
-      val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
-      val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
-      val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-      val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-      val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
-      val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-      val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-      val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-      val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-      val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-      val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-      val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-      val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-      val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-      val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
-      val a_onreadystatechange :
-        Xml.event_handler -> [> `OnReadyStateChange ] attrib
-      val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-      val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-      val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-      val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-      val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-      val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-      val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-      val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-      val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-      val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
-      val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-      val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
-      val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-      val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
-      val a_onloadedmetadata :
-        Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-      val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
-      val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-      val a_oncontextmenu :
-        Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-      val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-      val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-      val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-      val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-      val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-      val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-      val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-      val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-      val a_ontouchstart :
-        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-      val a_ontouchcancel :
-        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-      val a_onkeypress :
-        Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-      val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-      val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
       val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
       val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-      val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+      val a_autocomplete :
+        Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
       val a_async : unit -> [> `Async ] attrib
       val a_autofocus : unit -> [> `Autofocus ] attrib
       val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -265,7 +1071,7 @@
       val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
       val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
       val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-      val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+      val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
       val a_multiple : unit -> [> `Multiple ] attrib
       val a_name : Html_types.text wrap -> [> `Name ] attrib
       val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -306,6 +1112,8 @@
       val a_readonly : unit -> [> `ReadOnly ] attrib
       val a_button_type :
         [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+      val a_script_type :
+        Html_types.script_type wrap -> [> `Script_type ] attrib
       val a_command_type :
         [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
       val a_menu_type :
@@ -368,8 +1176,8 @@
          [> Html_types.body ])
         star
       val svg :
-        ?a:[< Html_types.svg_attrib ] Svg.D.Raw.attrib list ->
-        [< Html_types.svg_content ] Svg.D.Raw.elt list_wrap ->
+        ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+        [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
         [> Html_types.svg ] elt
       val footer :
         ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
@@ -443,6 +1251,10 @@
         ([< Html_types.blockquote_attrib ],
          [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
         star
+      val dialog :
+        ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+         [> Html_types.dialog ])
+        star
       val div :
         ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
          [> Html_types.div ])
@@ -623,6 +1435,7 @@
           | `OnCanPlayThrough
           | `OnChange
           | `OnClick
+          | `OnClose
           | `OnContextMenu
           | `OnDblClick
           | `OnDrag
@@ -875,6 +1688,81 @@
           val space_sep_attrib : string -> string list wrap -> 'a attrib
           val comma_sep_attrib : string -> string list wrap -> 'a attrib
         end
+      val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+      val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+      val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+      val a_onbeforeunload : string -> [> `OnBeforeUnload ] Raw'.attrib
+      val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+      val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+      val a_oncanplaythrough : string -> [> `OnCanPlayThrough ] Raw'.attrib
+      val a_onchange : string -> [> `OnChange ] Raw'.attrib
+      val a_onclose : string -> [> `OnClose ] Raw'.attrib
+      val a_ondurationchange : string -> [> `OnDurationChange ] Raw'.attrib
+      val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+      val a_onended : string -> [> `OnEnded ] Raw'.attrib
+      val a_onerror : string -> [> `OnError ] Raw'.attrib
+      val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+      val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+      val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+      val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+      val a_oninput : string -> [> `OnInput ] Raw'.attrib
+      val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+      val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+      val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+      val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+      val a_onpause : string -> [> `OnPause ] Raw'.attrib
+      val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+      val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+      val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+      val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+      val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+      val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+      val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+      val a_onreadystatechange :
+        string -> [> `OnReadyStateChange ] Raw'.attrib
+      val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+      val a_onresize : string -> [> `OnResize ] Raw'.attrib
+      val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+      val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+      val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+      val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+      val a_onshow : string -> [> `OnShow ] Raw'.attrib
+      val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+      val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+      val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+      val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+      val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+      val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+      val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+      val a_onvolumechange : string -> [> `OnVolumeChange ] Raw'.attrib
+      val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+      val a_onload : string -> [> `OnLoad ] Raw'.attrib
+      val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+      val a_onloadedmetadata : string -> [> `OnLoadedMetaData ] Raw'.attrib
+      val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+      val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+      val a_onclick : string -> [> `OnClick ] Raw'.attrib
+      val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+      val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+      val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+      val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+      val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+      val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+      val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+      val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+      val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+      val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+      val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+      val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+      val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+      val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+      val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+      val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+      val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+      val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+      val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+      val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+      val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
     end
   type 'a elt = 'a elt
   type doc = Html_types.html elt
@@ -953,6 +1841,7 @@
   val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
   val a_oncanplaythrough : Xml.event_handler -> [> `OnCanPlayThrough ] attrib
   val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+  val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
   val a_ondurationchange : Xml.event_handler -> [> `OnDurationChange ] attrib
   val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
   val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
@@ -1021,7 +1910,8 @@
   val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
   val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
   val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-  val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+  val a_autocomplete :
+    Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
   val a_async : unit -> [> `Async ] attrib
   val a_autofocus : unit -> [> `Autofocus ] attrib
   val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -1120,7 +2010,7 @@
   val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
   val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
   val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-  val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+  val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
   val a_multiple : unit -> [> `Multiple ] attrib
   val a_name : Html_types.text wrap -> [> `Name ] attrib
   val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -1161,6 +2051,7 @@
   val a_readonly : unit -> [> `ReadOnly ] attrib
   val a_button_type :
     [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+  val a_script_type : Html_types.script_type wrap -> [> `Script_type ] attrib
   val a_command_type :
     [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
   val a_menu_type : [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
@@ -1219,8 +2110,8 @@
      [> Html_types.body ])
     star
   val svg :
-    ?a:[< Html_types.svg_attrib ] Svg.D.Raw.attrib list ->
-    [< Html_types.svg_content ] Svg.D.Raw.elt list_wrap ->
+    ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+    [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
     [> Html_types.svg ] elt
   val footer :
     ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
@@ -1294,6 +2185,10 @@
     ([< Html_types.blockquote_attrib ],
      [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
     star
+  val dialog :
+    ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+     [> Html_types.dialog ])
+    star
   val div :
     ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
      [> Html_types.div ])
@@ -1471,6 +2366,7 @@
       | `OnCanPlayThrough
       | `OnChange
       | `OnClick
+      | `OnClose
       | `OnContextMenu
       | `OnDblClick
       | `OnDrag
@@ -1931,6 +2827,7 @@
             | `OnCanPlayThrough
             | `OnChange
             | `OnClick
+            | `OnClose
             | `OnContextMenu
             | `OnDblClick
             | `OnDrag
diff --git a/doc/10.x/api/client/type_Eliom_content.Html.F.Raw.wiki b/doc/11.x/api/client/type_Eliom_content.Html.F.Raw.wiki
similarity index 84%
rename from doc/10.x/api/client/type_Eliom_content.Html.F.Raw.wiki
rename to doc/11.x/api/client/type_Eliom_content.Html.F.Raw.wiki
index 80cd193d9e..f2eaf2ed4e 100644
--- a/doc/10.x/api/client/type_Eliom_content.Html.F.Raw.wiki
+++ b/doc/11.x/api/client/type_Eliom_content.Html.F.Raw.wiki
@@ -69,83 +69,10 @@
   val a_title : Html_types.text wrap -> [> `Title ] attrib
   val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
   val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-  val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-  val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
-  val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
-  val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
-  val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-  val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-  val a_oncanplaythrough : Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-  val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-  val a_ondurationchange : Xml.event_handler -> [> `OnDurationChange ] attrib
-  val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-  val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-  val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-  val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-  val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
-  val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
-  val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
-  val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-  val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-  val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
-  val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-  val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-  val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-  val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-  val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-  val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-  val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-  val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-  val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-  val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
-  val a_onreadystatechange :
-    Xml.event_handler -> [> `OnReadyStateChange ] attrib
-  val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-  val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-  val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-  val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-  val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-  val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-  val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-  val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-  val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-  val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-  val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-  val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
-  val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-  val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-  val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
-  val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-  val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-  val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
-  val a_onloadedmetadata : Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-  val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
-  val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-  val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-  val a_oncontextmenu : Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-  val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-  val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-  val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-  val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-  val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-  val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-  val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-  val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-  val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-  val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-  val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-  val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-  val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-  val a_ontouchstart : Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-  val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-  val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-  val a_ontouchcancel : Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-  val a_onkeypress : Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-  val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-  val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
   val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
   val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-  val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+  val a_autocomplete :
+    Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
   val a_async : unit -> [> `Async ] attrib
   val a_autofocus : unit -> [> `Autofocus ] attrib
   val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -244,7 +171,7 @@
   val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
   val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
   val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-  val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+  val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
   val a_multiple : unit -> [> `Multiple ] attrib
   val a_name : Html_types.text wrap -> [> `Name ] attrib
   val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -285,6 +212,7 @@
   val a_readonly : unit -> [> `ReadOnly ] attrib
   val a_button_type :
     [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+  val a_script_type : Html_types.script_type wrap -> [> `Script_type ] attrib
   val a_command_type :
     [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
   val a_menu_type : [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
@@ -343,8 +271,8 @@
      [> Html_types.body ])
     star
   val svg :
-    ?a:[< Html_types.svg_attrib ] Svg.F.Raw.attrib list ->
-    [< Html_types.svg_content ] Svg.F.Raw.elt list_wrap ->
+    ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+    [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
     [> Html_types.svg ] elt
   val footer :
     ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
@@ -418,6 +346,10 @@
     ([< Html_types.blockquote_attrib ],
      [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
     star
+  val dialog :
+    ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+     [> Html_types.dialog ])
+    star
   val div :
     ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
      [> Html_types.div ])
@@ -596,6 +528,7 @@
       | `OnCanPlayThrough
       | `OnChange
       | `OnClick
+      | `OnClose
       | `OnContextMenu
       | `OnDblClick
       | `OnDrag
@@ -845,4 +778,78 @@
       val space_sep_attrib : string -> string list wrap -> 'a attrib
       val comma_sep_attrib : string -> string list wrap -> 'a attrib
     end
+  val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+  val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+  val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+  val a_onbeforeunload : string -> [> `OnBeforeUnload ] Raw'.attrib
+  val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+  val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+  val a_oncanplaythrough : string -> [> `OnCanPlayThrough ] Raw'.attrib
+  val a_onchange : string -> [> `OnChange ] Raw'.attrib
+  val a_onclose : string -> [> `OnClose ] Raw'.attrib
+  val a_ondurationchange : string -> [> `OnDurationChange ] Raw'.attrib
+  val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+  val a_onended : string -> [> `OnEnded ] Raw'.attrib
+  val a_onerror : string -> [> `OnError ] Raw'.attrib
+  val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+  val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+  val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+  val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+  val a_oninput : string -> [> `OnInput ] Raw'.attrib
+  val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+  val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+  val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+  val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+  val a_onpause : string -> [> `OnPause ] Raw'.attrib
+  val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+  val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+  val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+  val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+  val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+  val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+  val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+  val a_onreadystatechange : string -> [> `OnReadyStateChange ] Raw'.attrib
+  val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+  val a_onresize : string -> [> `OnResize ] Raw'.attrib
+  val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+  val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+  val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+  val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+  val a_onshow : string -> [> `OnShow ] Raw'.attrib
+  val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+  val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+  val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+  val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+  val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+  val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+  val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+  val a_onvolumechange : string -> [> `OnVolumeChange ] Raw'.attrib
+  val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+  val a_onload : string -> [> `OnLoad ] Raw'.attrib
+  val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+  val a_onloadedmetadata : string -> [> `OnLoadedMetaData ] Raw'.attrib
+  val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+  val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+  val a_onclick : string -> [> `OnClick ] Raw'.attrib
+  val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+  val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+  val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+  val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+  val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+  val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+  val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+  val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+  val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+  val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+  val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+  val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+  val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+  val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+  val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+  val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+  val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+  val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+  val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+  val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+  val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/client/type_Eliom_content.Html.F.wiki b/doc/11.x/api/client/type_Eliom_content.Html.F.wiki
similarity index 67%
rename from doc/10.x/api/client/type_Eliom_content.Html.F.wiki
rename to doc/11.x/api/client/type_Eliom_content.Html.F.wiki
index 65a62bf7ca..0611ca9ea8 100644
--- a/doc/10.x/api/client/type_Eliom_content.Html.F.wiki
+++ b/doc/11.x/api/client/type_Eliom_content.Html.F.wiki
@@ -1,4 +1,890 @@
 <<code language="ocaml" | sig
+  module Raw' :
+    sig
+      type 'a elt = 'a elt
+      type doc = Html_types.html elt
+      type 'a attrib = 'a attrib
+      module Xml :
+        sig
+          module W :
+            sig
+              type 'a t = 'a Xml.W.t
+              val return : 'a -> 'a t
+              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+              val fmap : ('a, 'b) ft -> 'a t -> 'b t
+              type 'a tlist = 'a Xml.W.tlist
+              val nil : unit -> 'a tlist
+              val singleton : 'a t -> 'a tlist
+              val cons : 'a t -> 'a tlist -> 'a tlist
+              val append : 'a tlist -> 'a tlist -> 'a tlist
+              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+            end
+          type 'a wrap = 'a W.t
+          type 'a list_wrap = 'a W.tlist
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) W.ft
+          val uri_of_string : (string, uri) W.ft
+          type aname = string
+          type event_handler = Xml.event_handler
+          type mouse_event_handler = Xml.mouse_event_handler
+          type keyboard_event_handler = Xml.keyboard_event_handler
+          type touch_event_handler = Xml.touch_event_handler
+          type attrib = Xml.attrib
+          val float_attrib : aname -> float wrap -> attrib
+          val int_attrib : aname -> int wrap -> attrib
+          val string_attrib : aname -> string wrap -> attrib
+          val space_sep_attrib : aname -> string list wrap -> attrib
+          val comma_sep_attrib : aname -> string list wrap -> attrib
+          val event_handler_attrib : aname -> event_handler -> attrib
+          val mouse_event_handler_attrib :
+            aname -> mouse_event_handler -> attrib
+          val keyboard_event_handler_attrib :
+            aname -> keyboard_event_handler -> attrib
+          val touch_event_handler_attrib :
+            aname -> touch_event_handler -> attrib
+          val uri_attrib : aname -> uri wrap -> attrib
+          val uris_attrib : aname -> uri list wrap -> attrib
+          type elt = Xml.elt
+          type ename = string
+          val empty : unit -> elt
+          val comment : string -> elt
+          val pcdata : string wrap -> elt
+          val encodedpcdata : string wrap -> elt
+          val entity : string -> elt
+          val leaf : ?a:attrib list -> ename -> elt
+          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+          val cdata : string -> elt
+          val cdata_script : string -> elt
+          val cdata_style : string -> elt
+        end
+      type 'a wrap = 'a Xml.W.t
+      type 'a list_wrap = 'a Xml.W.tlist
+      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
+      type ('a, 'b, 'c) star =
+          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+      module Info : Xml_sigs.Info
+      type uri = Xml.uri
+      val string_of_uri : (uri, string) Xml.W.ft
+      val uri_of_string : (string, uri) Xml.W.ft
+      val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+      val a_user_data :
+        Html_types.nmtoken -> Html_types.text wrap -> [> `User_data ] attrib
+      val a_id : Html_types.text wrap -> [> `Id ] attrib
+      val a_title : Html_types.text wrap -> [> `Title ] attrib
+      val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
+      val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
+      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+      val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
+      val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
+      val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
+      val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
+      val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
+      val a_oncanplaythrough :
+        Xml.event_handler -> [> `OnCanPlayThrough ] attrib
+      val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+      val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
+      val a_ondurationchange :
+        Xml.event_handler -> [> `OnDurationChange ] attrib
+      val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
+      val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
+      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+      val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
+      val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
+      val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
+      val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
+      val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
+      val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
+      val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
+      val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
+      val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
+      val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
+      val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
+      val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
+      val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
+      val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
+      val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
+      val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
+      val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
+      val a_onreadystatechange :
+        Xml.event_handler -> [> `OnReadyStateChange ] attrib
+      val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
+      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+      val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
+      val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
+      val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
+      val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
+      val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
+      val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
+      val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
+      val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
+      val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
+      val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
+      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+      val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
+      val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
+      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+      val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
+      val a_onloadedmetadata :
+        Xml.event_handler -> [> `OnLoadedMetaData ] attrib
+      val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
+      val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
+      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+      val a_oncontextmenu :
+        Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
+      val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
+      val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
+      val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
+      val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
+      val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
+      val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
+      val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
+      val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
+      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+      val a_ontouchstart :
+        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+      val a_ontouchcancel :
+        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+      val a_onkeypress :
+        Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
+      val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
+      val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+      val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
+      val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
+      val a_autocomplete :
+        Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
+      val a_async : unit -> [> `Async ] attrib
+      val a_autofocus : unit -> [> `Autofocus ] attrib
+      val a_autoplay : unit -> [> `Autoplay ] attrib
+      val a_muted : unit -> [> `Muted ] attrib
+      val a_crossorigin :
+        [< `Anonymous | `Use_credentials ] wrap -> [> `Crossorigin ] attrib
+      val a_integrity : string wrap -> [> `Integrity ] attrib
+      val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
+      val a_challenge : Html_types.text wrap -> [> `Challenge ] attrib
+      val a_contenteditable : bool wrap -> [> `Contenteditable ] attrib
+      val a_contextmenu : Html_types.idref wrap -> [> `Contextmenu ] attrib
+      val a_controls : unit -> [> `Controls ] attrib
+      val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
+      val a_draggable : bool wrap -> [> `Draggable ] attrib
+      val a_form : Html_types.idref wrap -> [> `Form ] attrib
+      val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
+      val a_formenctype :
+        Html_types.contenttype wrap -> [> `Formenctype ] attrib
+      val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
+      val a_formtarget : Html_types.text wrap -> [> `Formtarget ] attrib
+      val a_hidden : unit -> [> `Hidden ] attrib
+      val a_high : Html_types.float_number wrap -> [> `High ] attrib
+      val a_icon : Xml.uri wrap -> [> `Icon ] attrib
+      val a_ismap : unit -> [> `Ismap ] attrib
+      val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
+      val a_list : Html_types.idref wrap -> [> `List ] attrib
+      val a_loop : unit -> [> `Loop ] attrib
+      val a_low : Html_types.float_number wrap -> [> `High ] attrib
+      val a_max : Html_types.float_number wrap -> [> `Max ] attrib
+      val a_input_max :
+        Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
+      val a_min : Html_types.float_number wrap -> [> `Min ] attrib
+      val a_input_min :
+        Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
+      val a_inputmode :
+        [< `Decimal
+         | `Email
+         | `None
+         | `Numeric
+         | `Search
+         | `Tel
+         | `Text
+         | `Url ]
+        wrap -> [> `Inputmode ] attrib
+      val a_novalidate : unit -> [> `Novalidate ] attrib
+      val a_open : unit -> [> `Open ] attrib
+      val a_optimum : Html_types.float_number wrap -> [> `Optimum ] attrib
+      val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
+      val a_placeholder : Html_types.text wrap -> [> `Placeholder ] attrib
+      val a_poster : Xml.uri wrap -> [> `Poster ] attrib
+      val a_preload :
+        [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
+      val a_pubdate : unit -> [> `Pubdate ] attrib
+      val a_radiogroup : Html_types.text wrap -> [> `Radiogroup ] attrib
+      val a_referrerpolicy :
+        Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
+      val a_required : unit -> [> `Required ] attrib
+      val a_reversed : unit -> [> `Reversed ] attrib
+      val a_sandbox :
+        [< Html_types.sandbox_token ] list wrap -> [> `Sandbox ] attrib
+      val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
+      val a_scoped : unit -> [> `Scoped ] attrib
+      val a_seamless : unit -> [> `Seamless ] attrib
+      val a_sizes :
+        (Html_types.number * Html_types.number) list option wrap ->
+        [> `Sizes ] attrib
+      val a_span : Html_types.number wrap -> [> `Span ] attrib
+      val a_srclang : Html_types.nmtoken wrap -> [> `XML_lang ] attrib
+      type image_candidate =
+          [ `Url of uri
+          | `Url_pixel of uri * Html_types.float_number
+          | `Url_width of uri * Html_types.number ]
+      val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
+      val a_img_sizes : Html_types.text list wrap -> [> `Img_sizes ] attrib
+      val a_start : Html_types.number wrap -> [> `Start ] attrib
+      val a_step : Html_types.float_number option wrap -> [> `Step ] attrib
+      val a_translate : [< `No | `Yes ] wrap -> [> `Translate ] attrib
+      val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
+      val a_version : Html_types.cdata wrap -> [> `Version ] attrib
+      val a_xmlns : [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
+      val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
+      val a_cite : Xml.uri wrap -> [> `Cite ] attrib
+      val a_xml_space :
+        [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
+      val a_accesskey : Html_types.character wrap -> [> `Accesskey ] attrib
+      val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
+      val a_accept_charset :
+        Html_types.charsets wrap -> [> `Accept_charset ] attrib
+      val a_accept : Html_types.contenttypes wrap -> [> `Accept ] attrib
+      val a_href : Xml.uri wrap -> [> `Href ] attrib
+      val a_hreflang : Html_types.languagecode wrap -> [> `Hreflang ] attrib
+      val a_download : string option wrap -> [> `Download ] attrib
+      val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
+      val a_tabindex : Html_types.number wrap -> [> `Tabindex ] attrib
+      val a_mime_type : Html_types.contenttype wrap -> [> `Mime_type ] attrib
+      val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
+      val a_action : Xml.uri wrap -> [> `Action ] attrib
+      val a_checked : unit -> [> `Checked ] attrib
+      val a_cols : Html_types.number wrap -> [> `Cols ] attrib
+      val a_enctype : Html_types.contenttype wrap -> [> `Enctype ] attrib
+      val a_label_for : Html_types.idref wrap -> [> `Label_for ] attrib
+      val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
+      val a_output_for : Html_types.idrefs wrap -> [> `Output_for ] attrib
+      val a_for_list : Html_types.idrefs wrap -> [> `Output_for ] attrib
+      val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
+      val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
+      val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
+      val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
+      val a_multiple : unit -> [> `Multiple ] attrib
+      val a_name : Html_types.text wrap -> [> `Name ] attrib
+      val a_rows : Html_types.number wrap -> [> `Rows ] attrib
+      val a_selected : unit -> [> `Selected ] attrib
+      val a_size : Html_types.number wrap -> [> `Size ] attrib
+      val a_src : Xml.uri wrap -> [> `Src ] attrib
+      val a_input_type :
+        [< `Button
+         | `Checkbox
+         | `Color
+         | `Date
+         | `Datetime
+         | `Datetime_local
+         | `Email
+         | `File
+         | `Hidden
+         | `Image
+         | `Month
+         | `Number
+         | `Password
+         | `Radio
+         | `Range
+         | `Reset
+         | `Search
+         | `Submit
+         | `Tel
+         | `Text
+         | `Time
+         | `Url
+         | `Week ]
+        wrap -> [> `Input_Type ] attrib
+      val a_text_value : Html_types.text wrap -> [> `Text_Value ] attrib
+      val a_int_value : Html_types.number wrap -> [> `Int_Value ] attrib
+      val a_value : Html_types.cdata wrap -> [> `Value ] attrib
+      val a_float_value :
+        Html_types.float_number wrap -> [> `Float_Value ] attrib
+      val a_disabled : unit -> [> `Disabled ] attrib
+      val a_readonly : unit -> [> `ReadOnly ] attrib
+      val a_button_type :
+        [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+      val a_script_type :
+        Html_types.script_type wrap -> [> `Script_type ] attrib
+      val a_command_type :
+        [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
+      val a_menu_type :
+        [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
+      val a_label : Html_types.text wrap -> [> `Label ] attrib
+      val a_align :
+        [< `Char | `Justify | `Left | `Right ] wrap -> [> `Align ] attrib
+      val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
+      val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
+      val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
+      val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
+      val a_scope :
+        [< `Col | `Colgroup | `Row | `Rowgroup ] wrap -> [> `Scope ] attrib
+      val a_summary : Html_types.text wrap -> [> `Summary ] attrib
+      val a_border : Html_types.pixels wrap -> [> `Border ] attrib
+      val a_rules :
+        [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
+        [> `Rules ] attrib
+      val a_char : Html_types.character wrap -> [> `Char ] attrib
+      val a_alt : Html_types.text wrap -> [> `Alt ] attrib
+      val a_height : Html_types.number wrap -> [> `Height ] attrib
+      val a_width : Html_types.number wrap -> [> `Width ] attrib
+      type shape = [ `Circle | `Default | `Poly | `Rect ]
+      val a_shape : shape wrap -> [> `Shape ] attrib
+      val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
+      val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
+      val a_data : Xml.uri wrap -> [> `Data ] attrib
+      val a_codetype : Html_types.contenttype wrap -> [> `Codetype ] attrib
+      val a_frameborder : [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
+      val a_marginheight :
+        Html_types.pixels wrap -> [> `Marginheight ] attrib
+      val a_marginwidth : Html_types.pixels wrap -> [> `Marginwidth ] attrib
+      val a_scrolling :
+        [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
+      val a_target : Html_types.frametarget wrap -> [> `Target ] attrib
+      val a_content : Html_types.text wrap -> [> `Content ] attrib
+      val a_http_equiv : Html_types.text wrap -> [> `Http_equiv ] attrib
+      val a_defer : unit -> [> `Defer ] attrib
+      val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
+      val a_style : string wrap -> [> `Style_Attr ] attrib
+      val a_property : string wrap -> [> `Property ] attrib
+      val a_role : string list wrap -> [> `Role ] attrib
+      val a_aria : string -> string list wrap -> [> `Aria ] attrib
+      val txt : string wrap -> [> Html_types.txt ] elt
+      val html :
+        ?a:Html_types.html_attrib attrib list ->
+        [< Html_types.head ] elt wrap ->
+        [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
+      val head :
+        ?a:Html_types.head_attrib attrib list ->
+        [< Html_types.title ] elt wrap ->
+        Html_types.head_content_fun elt list_wrap -> [> Html_types.head ] elt
+      val base : ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
+      val title :
+        (Html_types.title_attrib, [< Html_types.title_content_fun ],
+         [> Html_types.title ])
+        unary
+      val body :
+        ([< Html_types.body_attrib ], [< Html_types.body_content_fun ],
+         [> Html_types.body ])
+        star
+      val svg :
+        ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+        [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
+        [> Html_types.svg ] elt
+      val footer :
+        ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
+         [> Html_types.footer ])
+        star
+      val header :
+        ([< Html_types.header_attrib ], [< Html_types.header_content_fun ],
+         [> Html_types.header ])
+        star
+      val section :
+        ([< Html_types.section_attrib ], [< Html_types.section_content_fun ],
+         [> Html_types.section ])
+        star
+      val nav :
+        ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
+         [> Html_types.nav ])
+        star
+      val h1 :
+        ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
+         [> Html_types.h1 ])
+        star
+      val h2 :
+        ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
+         [> Html_types.h2 ])
+        star
+      val h3 :
+        ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
+         [> Html_types.h3 ])
+        star
+      val h4 :
+        ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
+         [> Html_types.h4 ])
+        star
+      val h5 :
+        ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
+         [> Html_types.h5 ])
+        star
+      val h6 :
+        ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
+         [> Html_types.h6 ])
+        star
+      val hgroup :
+        ([< Html_types.hgroup_attrib ], [< Html_types.hgroup_content_fun ],
+         [> Html_types.hgroup ])
+        star
+      val address :
+        ([< Html_types.address_attrib ], [< Html_types.address_content_fun ],
+         [> Html_types.address ])
+        star
+      val article :
+        ([< Html_types.article_attrib ], [< Html_types.article_content_fun ],
+         [> Html_types.article ])
+        star
+      val aside :
+        ([< Html_types.aside_attrib ], [< Html_types.aside_content_fun ],
+         [> Html_types.aside ])
+        star
+      val main :
+        ([< Html_types.main_attrib ], [< Html_types.main_content_fun ],
+         [> Html_types.main ])
+        star
+      val p :
+        ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
+         [> Html_types.p ])
+        star
+      val pre :
+        ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
+         [> Html_types.pre ])
+        star
+      val blockquote :
+        ([< Html_types.blockquote_attrib ],
+         [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
+        star
+      val dialog :
+        ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+         [> Html_types.dialog ])
+        star
+      val div :
+        ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
+         [> Html_types.div ])
+        star
+      val dl :
+        ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
+         [> Html_types.dl ])
+        star
+      val ol :
+        ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
+         [> Html_types.ol ])
+        star
+      val ul :
+        ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
+         [> Html_types.ul ])
+        star
+      val dd :
+        ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
+         [> Html_types.dd ])
+        star
+      val dt :
+        ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
+         [> Html_types.dt ])
+        star
+      val li :
+        ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
+         [> Html_types.li ])
+        star
+      val figcaption :
+        ([< Html_types.figcaption_attrib ],
+         [< Html_types.figcaption_content_fun ], [> Html_types.figcaption ])
+        star
+      val figure :
+        ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
+                    | `Top of [< Html_types.figcaption ] elt wrap ] ->
+        ([< Html_types.figure_attrib ], [< Html_types.figure_content_fun ],
+         [> Html_types.figure ])
+        star
+      val hr : ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
+      val b :
+        ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
+         [> Html_types.b ])
+        star
+      val i :
+        ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
+         [> Html_types.i ])
+        star
+      val u :
+        ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
+         [> Html_types.u ])
+        star
+      val small :
+        ([< Html_types.small_attrib ], [< Html_types.small_content_fun ],
+         [> Html_types.small ])
+        star
+      val sub :
+        ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
+         [> Html_types.sub ])
+        star
+      val sup :
+        ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
+         [> Html_types.sup ])
+        star
+      val mark :
+        ([< Html_types.mark_attrib ], [< Html_types.mark_content_fun ],
+         [> Html_types.mark ])
+        star
+      val wbr : ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
+      val bdo :
+        dir:[< `Ltr | `Rtl ] wrap ->
+        ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
+         [> Html_types.bdo ])
+        star
+      val abbr :
+        ([< Html_types.abbr_attrib ], [< Html_types.abbr_content_fun ],
+         [> Html_types.abbr ])
+        star
+      val br : ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
+      val cite :
+        ([< Html_types.cite_attrib ], [< Html_types.cite_content_fun ],
+         [> Html_types.cite ])
+        star
+      val code :
+        ([< Html_types.code_attrib ], [< Html_types.code_content_fun ],
+         [> Html_types.code ])
+        star
+      val dfn :
+        ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
+         [> Html_types.dfn ])
+        star
+      val em :
+        ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
+         [> Html_types.em ])
+        star
+      val kbd :
+        ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
+         [> Html_types.kbd ])
+        star
+      val q :
+        ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
+         [> Html_types.q ])
+        star
+      val samp :
+        ([< Html_types.samp_attrib ], [< Html_types.samp_content_fun ],
+         [> Html_types.samp ])
+        star
+      val span :
+        ([< Html_types.span_attrib ], [< Html_types.span_content_fun ],
+         [> Html_types.span ])
+        star
+      val strong :
+        ([< Html_types.strong_attrib ], [< Html_types.strong_content_fun ],
+         [> Html_types.strong ])
+        star
+      val time :
+        ([< Html_types.time_attrib ], [< Html_types.time_content_fun ],
+         [> Html_types.time ])
+        star
+      val var :
+        ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
+         [> Html_types.var ])
+        star
+      val a : ([< Html_types.a_attrib ], 'a, [> 'a Html_types.a ]) star
+      val del : ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
+      val ins : ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
+      val img :
+        src:Xml.uri wrap ->
+        alt:Html_types.text wrap ->
+        ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
+      val picture :
+        img:[< Html_types.img ] elt wrap ->
+        ([< Html_types.picture_attrib ], [< Html_types.picture_content_fun ],
+         [> Html_types.picture ])
+        star
+      val iframe :
+        ([< Html_types.iframe_attrib ], [< Html_types.iframe_content_fun ],
+         [> Html_types.iframe ])
+        star
+      val object_ :
+        ?params:[< Html_types.param ] elt list_wrap ->
+        ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
+      val param :
+        ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
+      val embed :
+        ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
+      val audio :
+        ?src:Xml.uri wrap ->
+        ?srcs:[< Html_types.source ] elt list_wrap ->
+        ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ]) star
+      val video :
+        ?src:Xml.uri wrap ->
+        ?srcs:[< Html_types.source ] elt list_wrap ->
+        ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ]) star
+      val canvas :
+        ([< Html_types.canvas_attrib ], 'a, [> 'a Html_types.canvas ]) star
+      val source :
+        ([< Html_types.source_attrib ], [> Html_types.source ]) nullary
+      val area :
+        alt:Html_types.text wrap ->
+        ([< `Accesskey
+          | `Alt
+          | `Aria
+          | `Class
+          | `Contenteditable
+          | `Contextmenu
+          | `Coords
+          | `Dir
+          | `Draggable
+          | `Hidden
+          | `Hreflang
+          | `Id
+          | `Lang
+          | `Media
+          | `Mime_type
+          | `OnAbort
+          | `OnBlur
+          | `OnCanPlay
+          | `OnCanPlayThrough
+          | `OnChange
+          | `OnClick
+          | `OnClose
+          | `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
+          | `Rel
+          | `Role
+          | `Shape
+          | `Spellcheck
+          | `Style_Attr
+          | `Tabindex
+          | `Target
+          | `Title
+          | `Translate
+          | `User_data
+          | `XML_lang
+          | `XMLns ],
+         [> Html_types.area ])
+        nullary
+      val map : ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
+      val caption :
+        ([< Html_types.caption_attrib ], [< Html_types.caption_content_fun ],
+         [> Html_types.caption ])
+        star
+      val table :
+        ?caption:[< Html_types.caption ] elt wrap ->
+        ?columns:[< Html_types.colgroup ] elt list_wrap ->
+        ?thead:[< Html_types.thead ] elt wrap ->
+        ?tfoot:[< Html_types.tfoot ] elt wrap ->
+        ([< Html_types.table_attrib ], [< Html_types.table_content_fun ],
+         [> Html_types.table ])
+        star
+      val tablex :
+        ?caption:[< Html_types.caption ] elt wrap ->
+        ?columns:[< Html_types.colgroup ] elt list_wrap ->
+        ?thead:[< Html_types.thead ] elt wrap ->
+        ?tfoot:[< Html_types.tfoot ] elt wrap ->
+        ([< Html_types.tablex_attrib ], [< Html_types.tablex_content_fun ],
+         [> Html_types.tablex ])
+        star
+      val colgroup :
+        ([< Html_types.colgroup_attrib ],
+         [< Html_types.colgroup_content_fun ], [> Html_types.colgroup ])
+        star
+      val col : ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
+      val thead :
+        ([< Html_types.thead_attrib ], [< Html_types.thead_content_fun ],
+         [> Html_types.thead ])
+        star
+      val tbody :
+        ([< Html_types.tbody_attrib ], [< Html_types.tbody_content_fun ],
+         [> Html_types.tbody ])
+        star
+      val tfoot :
+        ([< Html_types.tfoot_attrib ], [< Html_types.tfoot_content_fun ],
+         [> Html_types.tfoot ])
+        star
+      val td :
+        ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
+         [> Html_types.td ])
+        star
+      val th :
+        ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
+         [> Html_types.th ])
+        star
+      val tr :
+        ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
+         [> Html_types.tr ])
+        star
+      val form :
+        ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
+         [> Html_types.form ])
+        star
+      val fieldset :
+        ?legend:[< Html_types.legend ] elt wrap ->
+        ([< Html_types.fieldset_attrib ],
+         [< Html_types.fieldset_content_fun ], [> Html_types.fieldset ])
+        star
+      val legend :
+        ([< Html_types.legend_attrib ], [< Html_types.legend_content_fun ],
+         [> Html_types.legend ])
+        star
+      val label :
+        ([< Html_types.label_attrib ], [< Html_types.label_content_fun ],
+         [> Html_types.label ])
+        star
+      val input :
+        ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
+      val button :
+        ([< Html_types.button_attrib ], [< Html_types.button_content_fun ],
+         [> Html_types.button ])
+        star
+      val select :
+        ([< Html_types.select_attrib ], [< Html_types.select_content_fun ],
+         [> Html_types.select ])
+        star
+      val datalist :
+        ?children:[< `Options of [< Html_types.selectoption ] elt list_wrap
+                   | `Phras of [< Html_types.phrasing ] elt list_wrap ] ->
+        ([< Html_types.datalist_attrib ], [> Html_types.datalist ]) nullary
+      val optgroup :
+        label:Html_types.text wrap ->
+        ([< Html_types.optgroup_attrib ],
+         [< Html_types.optgroup_content_fun ], [> Html_types.optgroup ])
+        star
+      val option :
+        ([< Html_types.option_attrib ], [< Html_types.option_content_fun ],
+         [> Html_types.selectoption ])
+        unary
+      val textarea :
+        ([< Html_types.textarea_attrib ],
+         [< Html_types.textarea_content_fun ], [> Html_types.textarea ])
+        unary
+      val keygen :
+        ([< Html_types.keygen_attrib ], [> Html_types.keygen ]) nullary
+      val progress :
+        ([< Html_types.progress_attrib ],
+         [< Html_types.progress_content_fun ], [> Html_types.progress ])
+        star
+      val meter :
+        ([< Html_types.meter_attrib ], [< Html_types.meter_content_fun ],
+         [> Html_types.meter ])
+        star
+      val output_elt :
+        ([< Html_types.output_elt_attrib ],
+         [< Html_types.output_elt_content_fun ], [> Html_types.output_elt ])
+        star
+      val entity : string -> [> Html_types.txt ] elt
+      val space : unit -> [> Html_types.txt ] elt
+      val cdata : string -> [> Html_types.txt ] elt
+      val cdata_script : string -> [> Html_types.txt ] elt
+      val cdata_style : string -> [> Html_types.txt ] elt
+      val details :
+        [< Html_types.summary ] elt wrap ->
+        ([< Html_types.details_attrib ], [< Html_types.details_content_fun ],
+         [> Html_types.details ])
+        star
+      val summary :
+        ([< Html_types.summary_attrib ], [< Html_types.summary_content_fun ],
+         [> Html_types.summary ])
+        star
+      val command :
+        label:Html_types.text wrap ->
+        ([< Html_types.command_attrib ], [> Html_types.command ]) nullary
+      val menu :
+        ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
+                   | `Lis of [< `Li of [< Html_types.common ] ] elt list_wrap
+                  ] ->
+        ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
+      val script :
+        ([< Html_types.script_attrib ], [< Html_types.script_content_fun ],
+         [> Html_types.script ])
+        unary
+      val noscript :
+        ([< Html_types.noscript_attrib ],
+         [< Html_types.noscript_content_fun ], [> Html_types.noscript ])
+        star
+      val template :
+        ([< Html_types.template_attrib ],
+         [< Html_types.template_content_fun ], [> Html_types.template ])
+        star
+      val meta : ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
+      val style :
+        ([< Html_types.style_attrib ], [< Html_types.style_content_fun ],
+         [> Html_types.style ])
+        star
+      val link :
+        rel:Html_types.linktypes wrap ->
+        href:Xml.uri wrap ->
+        ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
+      val rt :
+        ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
+         [> Html_types.rt ])
+        star
+      val rp :
+        ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
+         [> Html_types.rp ])
+        star
+      val ruby :
+        ([< Html_types.ruby_attrib ], [< Html_types.ruby_content_fun ],
+         [> Html_types.ruby ])
+        star
+      val pcdata : string wrap -> [> Html_types.pcdata ] elt
+      val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+      val tot : Xml.elt -> 'a elt
+      val totl : Xml.elt list_wrap -> 'a elt list_wrap
+      val toelt : 'a elt -> Xml.elt
+      val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+      val doc_toelt : doc -> Xml.elt
+      val to_xmlattribs : 'a attrib list -> Xml.attrib list
+      val to_attrib : Xml.attrib -> 'a attrib
+      module Unsafe :
+        sig
+          val data : string wrap -> 'a elt
+          val node :
+            string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+          val coerce_elt : 'a elt -> 'b elt
+          val string_attrib : string -> string wrap -> 'a attrib
+          val float_attrib : string -> float wrap -> 'a attrib
+          val int_attrib : string -> int wrap -> 'a attrib
+          val uri_attrib : string -> uri wrap -> 'a attrib
+          val space_sep_attrib : string -> string list wrap -> 'a attrib
+          val comma_sep_attrib : string -> string list wrap -> 'a attrib
+        end
+    end
   module Raw :
     sig
       type 'a elt = 'a elt
@@ -74,90 +960,10 @@
       val a_title : Html_types.text wrap -> [> `Title ] attrib
       val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
       val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-      val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
-      val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
-      val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
-      val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-      val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-      val a_oncanplaythrough :
-        Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-      val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-      val a_ondurationchange :
-        Xml.event_handler -> [> `OnDurationChange ] attrib
-      val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-      val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-      val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-      val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
-      val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
-      val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
-      val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-      val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-      val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
-      val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-      val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-      val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-      val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-      val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-      val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-      val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-      val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-      val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-      val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
-      val a_onreadystatechange :
-        Xml.event_handler -> [> `OnReadyStateChange ] attrib
-      val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-      val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-      val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-      val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-      val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-      val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-      val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-      val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-      val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-      val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
-      val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-      val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
-      val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-      val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
-      val a_onloadedmetadata :
-        Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-      val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
-      val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-      val a_oncontextmenu :
-        Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-      val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-      val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-      val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-      val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-      val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-      val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-      val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-      val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-      val a_ontouchstart :
-        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-      val a_ontouchcancel :
-        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-      val a_onkeypress :
-        Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-      val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-      val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
       val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
       val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-      val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+      val a_autocomplete :
+        Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
       val a_async : unit -> [> `Async ] attrib
       val a_autofocus : unit -> [> `Autofocus ] attrib
       val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -265,7 +1071,7 @@
       val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
       val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
       val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-      val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+      val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
       val a_multiple : unit -> [> `Multiple ] attrib
       val a_name : Html_types.text wrap -> [> `Name ] attrib
       val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -306,6 +1112,8 @@
       val a_readonly : unit -> [> `ReadOnly ] attrib
       val a_button_type :
         [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+      val a_script_type :
+        Html_types.script_type wrap -> [> `Script_type ] attrib
       val a_command_type :
         [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
       val a_menu_type :
@@ -368,8 +1176,8 @@
          [> Html_types.body ])
         star
       val svg :
-        ?a:[< Html_types.svg_attrib ] Svg.F.Raw.attrib list ->
-        [< Html_types.svg_content ] Svg.F.Raw.elt list_wrap ->
+        ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+        [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
         [> Html_types.svg ] elt
       val footer :
         ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
@@ -443,6 +1251,10 @@
         ([< Html_types.blockquote_attrib ],
          [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
         star
+      val dialog :
+        ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+         [> Html_types.dialog ])
+        star
       val div :
         ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
          [> Html_types.div ])
@@ -623,6 +1435,7 @@
           | `OnCanPlayThrough
           | `OnChange
           | `OnClick
+          | `OnClose
           | `OnContextMenu
           | `OnDblClick
           | `OnDrag
@@ -875,6 +1688,81 @@
           val space_sep_attrib : string -> string list wrap -> 'a attrib
           val comma_sep_attrib : string -> string list wrap -> 'a attrib
         end
+      val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+      val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+      val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+      val a_onbeforeunload : string -> [> `OnBeforeUnload ] Raw'.attrib
+      val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+      val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+      val a_oncanplaythrough : string -> [> `OnCanPlayThrough ] Raw'.attrib
+      val a_onchange : string -> [> `OnChange ] Raw'.attrib
+      val a_onclose : string -> [> `OnClose ] Raw'.attrib
+      val a_ondurationchange : string -> [> `OnDurationChange ] Raw'.attrib
+      val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+      val a_onended : string -> [> `OnEnded ] Raw'.attrib
+      val a_onerror : string -> [> `OnError ] Raw'.attrib
+      val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+      val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+      val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+      val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+      val a_oninput : string -> [> `OnInput ] Raw'.attrib
+      val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+      val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+      val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+      val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+      val a_onpause : string -> [> `OnPause ] Raw'.attrib
+      val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+      val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+      val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+      val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+      val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+      val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+      val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+      val a_onreadystatechange :
+        string -> [> `OnReadyStateChange ] Raw'.attrib
+      val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+      val a_onresize : string -> [> `OnResize ] Raw'.attrib
+      val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+      val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+      val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+      val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+      val a_onshow : string -> [> `OnShow ] Raw'.attrib
+      val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+      val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+      val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+      val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+      val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+      val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+      val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+      val a_onvolumechange : string -> [> `OnVolumeChange ] Raw'.attrib
+      val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+      val a_onload : string -> [> `OnLoad ] Raw'.attrib
+      val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+      val a_onloadedmetadata : string -> [> `OnLoadedMetaData ] Raw'.attrib
+      val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+      val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+      val a_onclick : string -> [> `OnClick ] Raw'.attrib
+      val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+      val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+      val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+      val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+      val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+      val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+      val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+      val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+      val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+      val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+      val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+      val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+      val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+      val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+      val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+      val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+      val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+      val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+      val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+      val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+      val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
     end
   type 'a elt = 'a elt
   type doc = Html_types.html elt
@@ -953,6 +1841,7 @@
   val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
   val a_oncanplaythrough : Xml.event_handler -> [> `OnCanPlayThrough ] attrib
   val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+  val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
   val a_ondurationchange : Xml.event_handler -> [> `OnDurationChange ] attrib
   val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
   val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
@@ -1021,7 +1910,8 @@
   val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
   val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
   val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-  val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+  val a_autocomplete :
+    Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
   val a_async : unit -> [> `Async ] attrib
   val a_autofocus : unit -> [> `Autofocus ] attrib
   val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -1120,7 +2010,7 @@
   val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
   val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
   val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-  val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+  val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
   val a_multiple : unit -> [> `Multiple ] attrib
   val a_name : Html_types.text wrap -> [> `Name ] attrib
   val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -1161,6 +2051,7 @@
   val a_readonly : unit -> [> `ReadOnly ] attrib
   val a_button_type :
     [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+  val a_script_type : Html_types.script_type wrap -> [> `Script_type ] attrib
   val a_command_type :
     [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
   val a_menu_type : [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
@@ -1219,8 +2110,8 @@
      [> Html_types.body ])
     star
   val svg :
-    ?a:[< Html_types.svg_attrib ] Svg.F.Raw.attrib list ->
-    [< Html_types.svg_content ] Svg.F.Raw.elt list_wrap ->
+    ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+    [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
     [> Html_types.svg ] elt
   val footer :
     ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
@@ -1294,6 +2185,10 @@
     ([< Html_types.blockquote_attrib ],
      [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
     star
+  val dialog :
+    ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+     [> Html_types.dialog ])
+    star
   val div :
     ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
      [> Html_types.div ])
@@ -1471,6 +2366,7 @@
       | `OnCanPlayThrough
       | `OnChange
       | `OnClick
+      | `OnClose
       | `OnContextMenu
       | `OnDblClick
       | `OnDrag
@@ -1931,6 +2827,7 @@
             | `OnCanPlayThrough
             | `OnChange
             | `OnClick
+            | `OnClose
             | `OnContextMenu
             | `OnDblClick
             | `OnDrag
diff --git a/doc/10.x/api/client/type_Eliom_content.Html.Id.wiki b/doc/11.x/api/client/type_Eliom_content.Html.Id.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content.Html.Id.wiki
rename to doc/11.x/api/client/type_Eliom_content.Html.Id.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content.Html.Manip.Attr.wiki b/doc/11.x/api/client/type_Eliom_content.Html.Manip.Attr.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content.Html.Manip.Attr.wiki
rename to doc/11.x/api/client/type_Eliom_content.Html.Manip.Attr.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content.Html.Manip.Class.wiki b/doc/11.x/api/client/type_Eliom_content.Html.Manip.Class.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content.Html.Manip.Class.wiki
rename to doc/11.x/api/client/type_Eliom_content.Html.Manip.Class.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content.Html.Manip.Css.wiki b/doc/11.x/api/client/type_Eliom_content.Html.Manip.Css.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content.Html.Manip.Css.wiki
rename to doc/11.x/api/client/type_Eliom_content.Html.Manip.Css.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content.Html.Manip.Elt.wiki b/doc/11.x/api/client/type_Eliom_content.Html.Manip.Elt.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content.Html.Manip.Elt.wiki
rename to doc/11.x/api/client/type_Eliom_content.Html.Manip.Elt.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content.Html.Manip.Ev.wiki b/doc/11.x/api/client/type_Eliom_content.Html.Manip.Ev.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content.Html.Manip.Ev.wiki
rename to doc/11.x/api/client/type_Eliom_content.Html.Manip.Ev.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content.Html.Manip.Named.wiki b/doc/11.x/api/client/type_Eliom_content.Html.Manip.Named.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content.Html.Manip.Named.wiki
rename to doc/11.x/api/client/type_Eliom_content.Html.Manip.Named.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content.Html.Manip.SetCss.wiki b/doc/11.x/api/client/type_Eliom_content.Html.Manip.SetCss.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content.Html.Manip.SetCss.wiki
rename to doc/11.x/api/client/type_Eliom_content.Html.Manip.SetCss.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content.Html.Manip.wiki b/doc/11.x/api/client/type_Eliom_content.Html.Manip.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content.Html.Manip.wiki
rename to doc/11.x/api/client/type_Eliom_content.Html.Manip.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content.Html.Of_dom.wiki b/doc/11.x/api/client/type_Eliom_content.Html.Of_dom.wiki
similarity index 97%
rename from doc/10.x/api/client/type_Eliom_content.Html.Of_dom.wiki
rename to doc/11.x/api/client/type_Eliom_content.Html.Of_dom.wiki
index d0bf68449c..4db3ad9a11 100644
--- a/doc/10.x/api/client/type_Eliom_content.Html.Of_dom.wiki
+++ b/doc/11.x/api/client/type_Eliom_content.Html.Of_dom.wiki
@@ -66,6 +66,9 @@
     [> Html_types.dl ] elt
   val of_li :
     Js_of_ocaml.Dom_html.liElement Js_of_ocaml.Js.t -> [> Html_types.li ] elt
+  val of_dialog :
+    Js_of_ocaml.Dom_html.dialogElement Js_of_ocaml.Js.t ->
+    [> Html_types.dialog ] elt
   val of_div :
     Js_of_ocaml.Dom_html.divElement Js_of_ocaml.Js.t ->
     [> Html_types.div ] elt
diff --git a/doc/10.x/api/client/type_Eliom_content.Html.R.Raw.wiki b/doc/11.x/api/client/type_Eliom_content.Html.R.Raw.wiki
similarity index 98%
rename from doc/10.x/api/client/type_Eliom_content.Html.R.Raw.wiki
rename to doc/11.x/api/client/type_Eliom_content.Html.R.Raw.wiki
index e96b12ea61..3e8f86e13f 100644
--- a/doc/10.x/api/client/type_Eliom_content.Html.R.Raw.wiki
+++ b/doc/11.x/api/client/type_Eliom_content.Html.R.Raw.wiki
@@ -80,6 +80,7 @@
   val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
   val a_oncanplaythrough : Xml.event_handler -> [> `OnCanPlayThrough ] attrib
   val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+  val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
   val a_ondurationchange : Xml.event_handler -> [> `OnDurationChange ] attrib
   val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
   val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
@@ -148,7 +149,8 @@
   val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
   val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
   val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-  val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+  val a_autocomplete :
+    Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
   val a_async : unit -> [> `Async ] attrib
   val a_autofocus : unit -> [> `Autofocus ] attrib
   val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -247,7 +249,7 @@
   val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
   val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
   val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-  val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+  val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
   val a_multiple : unit -> [> `Multiple ] attrib
   val a_name : Html_types.text wrap -> [> `Name ] attrib
   val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -288,6 +290,7 @@
   val a_readonly : unit -> [> `ReadOnly ] attrib
   val a_button_type :
     [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+  val a_script_type : Html_types.script_type wrap -> [> `Script_type ] attrib
   val a_command_type :
     [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
   val a_menu_type : [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
@@ -421,6 +424,10 @@
     ([< Html_types.blockquote_attrib ],
      [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
     star
+  val dialog :
+    ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+     [> Html_types.dialog ])
+    star
   val div :
     ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
      [> Html_types.div ])
@@ -599,6 +606,7 @@
       | `OnCanPlayThrough
       | `OnChange
       | `OnClick
+      | `OnClose
       | `OnContextMenu
       | `OnDblClick
       | `OnDrag
diff --git a/doc/10.x/api/client/type_Eliom_content.Html.R.wiki b/doc/11.x/api/client/type_Eliom_content.Html.R.wiki
similarity index 98%
rename from doc/10.x/api/client/type_Eliom_content.Html.R.wiki
rename to doc/11.x/api/client/type_Eliom_content.Html.R.wiki
index 71c7c8ce5d..16c91ff8e9 100644
--- a/doc/10.x/api/client/type_Eliom_content.Html.R.wiki
+++ b/doc/11.x/api/client/type_Eliom_content.Html.R.wiki
@@ -92,6 +92,7 @@
       val a_oncanplaythrough :
         Xml.event_handler -> [> `OnCanPlayThrough ] attrib
       val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+      val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
       val a_ondurationchange :
         Xml.event_handler -> [> `OnDurationChange ] attrib
       val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
@@ -166,7 +167,8 @@
       val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
       val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
       val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-      val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+      val a_autocomplete :
+        Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
       val a_async : unit -> [> `Async ] attrib
       val a_autofocus : unit -> [> `Autofocus ] attrib
       val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -274,7 +276,7 @@
       val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
       val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
       val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-      val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+      val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
       val a_multiple : unit -> [> `Multiple ] attrib
       val a_name : Html_types.text wrap -> [> `Name ] attrib
       val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -315,6 +317,8 @@
       val a_readonly : unit -> [> `ReadOnly ] attrib
       val a_button_type :
         [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+      val a_script_type :
+        Html_types.script_type wrap -> [> `Script_type ] attrib
       val a_command_type :
         [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
       val a_menu_type :
@@ -452,6 +456,10 @@
         ([< Html_types.blockquote_attrib ],
          [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
         star
+      val dialog :
+        ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+         [> Html_types.dialog ])
+        star
       val div :
         ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
          [> Html_types.div ])
@@ -632,6 +640,7 @@
           | `OnCanPlayThrough
           | `OnChange
           | `OnClick
+          | `OnClose
           | `OnContextMenu
           | `OnDblClick
           | `OnDrag
@@ -966,6 +975,7 @@
   val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
   val a_oncanplaythrough : Xml.event_handler -> [> `OnCanPlayThrough ] attrib
   val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+  val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
   val a_ondurationchange : Xml.event_handler -> [> `OnDurationChange ] attrib
   val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
   val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
@@ -1034,7 +1044,8 @@
   val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
   val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
   val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-  val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+  val a_autocomplete :
+    Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
   val a_async : unit -> [> `Async ] attrib
   val a_autofocus : unit -> [> `Autofocus ] attrib
   val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -1133,7 +1144,7 @@
   val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
   val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
   val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-  val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+  val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
   val a_multiple : unit -> [> `Multiple ] attrib
   val a_name : Html_types.text wrap -> [> `Name ] attrib
   val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -1174,6 +1185,7 @@
   val a_readonly : unit -> [> `ReadOnly ] attrib
   val a_button_type :
     [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+  val a_script_type : Html_types.script_type wrap -> [> `Script_type ] attrib
   val a_command_type :
     [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
   val a_menu_type : [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
@@ -1307,6 +1319,10 @@
     ([< Html_types.blockquote_attrib ],
      [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
     star
+  val dialog :
+    ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+     [> Html_types.dialog ])
+    star
   val div :
     ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
      [> Html_types.div ])
@@ -1485,6 +1501,7 @@
       | `OnCanPlayThrough
       | `OnChange
       | `OnClick
+      | `OnClose
       | `OnContextMenu
       | `OnDblClick
       | `OnDrag
diff --git a/doc/10.x/api/client/type_Eliom_content.Html.To_dom.wiki b/doc/11.x/api/client/type_Eliom_content.Html.To_dom.wiki
similarity index 99%
rename from doc/10.x/api/client/type_Eliom_content.Html.To_dom.wiki
rename to doc/11.x/api/client/type_Eliom_content.Html.To_dom.wiki
index 5061e85603..798e6b5ad3 100644
--- a/doc/10.x/api/client/type_Eliom_content.Html.To_dom.wiki
+++ b/doc/11.x/api/client/type_Eliom_content.Html.To_dom.wiki
@@ -69,6 +69,9 @@
     Js_of_ocaml.Dom_html.dListElement Js_of_ocaml.Js.t
   val of_li :
     [< Html_types.li ] elt -> Js_of_ocaml.Dom_html.liElement Js_of_ocaml.Js.t
+  val of_dialog :
+    [< Html_types.dialog ] elt ->
+    Js_of_ocaml.Dom_html.dialogElement Js_of_ocaml.Js.t
   val of_div :
     [< Html_types.div ] elt ->
     Js_of_ocaml.Dom_html.divElement Js_of_ocaml.Js.t
diff --git a/doc/10.x/api/server/type_Eliom_content.Html.wiki b/doc/11.x/api/client/type_Eliom_content.Html.wiki
similarity index 56%
rename from doc/10.x/api/server/type_Eliom_content.Html.wiki
rename to doc/11.x/api/client/type_Eliom_content.Html.wiki
index 5db7754be5..1696838700 100644
--- a/doc/10.x/api/server/type_Eliom_content.Html.wiki
+++ b/doc/11.x/api/client/type_Eliom_content.Html.wiki
@@ -3,9 +3,10 @@
   type +'a attrib
   type uri = Eliom_content.Xml.uri
   type 'a form_param
+  module Ev' = Eliom_content_core.Html.Ev'
   module F :
     sig
-      module Raw :
+      module Raw' :
         sig
           type 'a elt = 'a elt
           type doc = Html_types.html elt
@@ -94,6 +95,7 @@
           val a_oncanplaythrough :
             Xml.event_handler -> [> `OnCanPlayThrough ] attrib
           val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+          val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
           val a_ondurationchange :
             Xml.event_handler -> [> `OnDurationChange ] attrib
           val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
@@ -182,7 +184,8 @@
           val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
           val a_allowpaymentrequest :
             unit -> [> `Allowpaymentrequest ] attrib
-          val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+          val a_autocomplete :
+            Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
           val a_async : unit -> [> `Async ] attrib
           val a_autofocus : unit -> [> `Autofocus ] attrib
           val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -300,7 +303,8 @@
           val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
           val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
           val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-          val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+          val a_formmethod :
+            [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
           val a_multiple : unit -> [> `Multiple ] attrib
           val a_name : Html_types.text wrap -> [> `Name ] attrib
           val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -341,6 +345,8 @@
           val a_readonly : unit -> [> `ReadOnly ] attrib
           val a_button_type :
             [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+          val a_script_type :
+            Html_types.script_type wrap -> [> `Script_type ] attrib
           val a_command_type :
             [< `Checkbox | `Command | `Radio ] wrap ->
             [> `Command_Type ] attrib
@@ -410,8 +416,8 @@
              [> Html_types.body ])
             star
           val svg :
-            ?a:[< Html_types.svg_attrib ] Svg.F.Raw.attrib list ->
-            [< Html_types.svg_content ] Svg.F.Raw.elt list_wrap ->
+            ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+            [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
             [> Html_types.svg ] elt
           val footer :
             ([< Html_types.footer_attrib ],
@@ -486,6 +492,10 @@
              [< Html_types.blockquote_content_fun ],
              [> Html_types.blockquote ])
             star
+          val dialog :
+            ([< Html_types.dialog_attrib ],
+             [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+            star
           val div :
             ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
              [> Html_types.div ])
@@ -670,6 +680,7 @@
               | `OnCanPlayThrough
               | `OnChange
               | `OnClick
+              | `OnClose
               | `OnContextMenu
               | `OnDblClick
               | `OnDrag
@@ -929,202 +940,1119 @@
               val comma_sep_attrib : string -> string list wrap -> 'a attrib
             end
         end
-      type 'a elt = 'a elt
-      type doc = Html_types.html elt
-      type 'a attrib = 'a attrib
-      module Xml :
+      module Raw :
         sig
-          module W :
+          type 'a elt = 'a elt
+          type doc = Html_types.html elt
+          type 'a attrib = 'a attrib
+          module Xml :
             sig
-              type 'a t = 'a Xml.W.t
-              val return : 'a -> 'a t
-              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
-              val fmap : ('a, 'b) ft -> 'a t -> 'b t
-              type 'a tlist = 'a Xml.W.tlist
-              val nil : unit -> 'a tlist
-              val singleton : 'a t -> 'a tlist
-              val cons : 'a t -> 'a tlist -> 'a tlist
-              val append : 'a tlist -> 'a tlist -> 'a tlist
-              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+              module W :
+                sig
+                  type 'a t = 'a Xml.W.t
+                  val return : 'a -> 'a t
+                  type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                  type 'a tlist = 'a Xml.W.tlist
+                  val nil : unit -> 'a tlist
+                  val singleton : 'a t -> 'a tlist
+                  val cons : 'a t -> 'a tlist -> 'a tlist
+                  val append : 'a tlist -> 'a tlist -> 'a tlist
+                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                end
+              type 'a wrap = 'a W.t
+              type 'a list_wrap = 'a W.tlist
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) W.ft
+              val uri_of_string : (string, uri) W.ft
+              type aname = string
+              type event_handler = Xml.event_handler
+              type mouse_event_handler = Xml.mouse_event_handler
+              type keyboard_event_handler = Xml.keyboard_event_handler
+              type touch_event_handler = Xml.touch_event_handler
+              type attrib = Xml.attrib
+              val float_attrib : aname -> float wrap -> attrib
+              val int_attrib : aname -> int wrap -> attrib
+              val string_attrib : aname -> string wrap -> attrib
+              val space_sep_attrib : aname -> string list wrap -> attrib
+              val comma_sep_attrib : aname -> string list wrap -> attrib
+              val event_handler_attrib : aname -> event_handler -> attrib
+              val mouse_event_handler_attrib :
+                aname -> mouse_event_handler -> attrib
+              val keyboard_event_handler_attrib :
+                aname -> keyboard_event_handler -> attrib
+              val touch_event_handler_attrib :
+                aname -> touch_event_handler -> attrib
+              val uri_attrib : aname -> uri wrap -> attrib
+              val uris_attrib : aname -> uri list wrap -> attrib
+              type elt = Xml.elt
+              type ename = string
+              val empty : unit -> elt
+              val comment : string -> elt
+              val pcdata : string wrap -> elt
+              val encodedpcdata : string wrap -> elt
+              val entity : string -> elt
+              val leaf : ?a:attrib list -> ename -> elt
+              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+              val cdata : string -> elt
+              val cdata_script : string -> elt
+              val cdata_style : string -> elt
             end
-          type 'a wrap = 'a W.t
-          type 'a list_wrap = 'a W.tlist
+          type 'a wrap = 'a Xml.W.t
+          type 'a list_wrap = 'a Xml.W.tlist
+          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+          type ('a, 'b, 'c) unary =
+              ?a:'a attrib list -> 'b elt wrap -> 'c elt
+          type ('a, 'b, 'c) star =
+              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          module Info : Xml_sigs.Info
           type uri = Xml.uri
-          val string_of_uri : (uri, string) W.ft
-          val uri_of_string : (string, uri) W.ft
-          type aname = string
-          type event_handler = Xml.event_handler
-          type mouse_event_handler = Xml.mouse_event_handler
-          type keyboard_event_handler = Xml.keyboard_event_handler
-          type touch_event_handler = Xml.touch_event_handler
-          type attrib = Xml.attrib
-          val float_attrib : aname -> float wrap -> attrib
-          val int_attrib : aname -> int wrap -> attrib
-          val string_attrib : aname -> string wrap -> attrib
-          val space_sep_attrib : aname -> string list wrap -> attrib
-          val comma_sep_attrib : aname -> string list wrap -> attrib
-          val event_handler_attrib : aname -> event_handler -> attrib
-          val mouse_event_handler_attrib :
-            aname -> mouse_event_handler -> attrib
-          val keyboard_event_handler_attrib :
-            aname -> keyboard_event_handler -> attrib
-          val touch_event_handler_attrib :
-            aname -> touch_event_handler -> attrib
-          val uri_attrib : aname -> uri wrap -> attrib
-          val uris_attrib : aname -> uri list wrap -> attrib
-          type elt = Xml.elt
-          type ename = string
-          val empty : unit -> elt
-          val comment : string -> elt
-          val pcdata : string wrap -> elt
-          val encodedpcdata : string wrap -> elt
-          val entity : string -> elt
-          val leaf : ?a:attrib list -> ename -> elt
-          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
-          val cdata : string -> elt
-          val cdata_script : string -> elt
-          val cdata_style : string -> elt
-        end
-      type 'a wrap = 'a Xml.W.t
-      type 'a list_wrap = 'a Xml.W.tlist
-      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
-      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
-      type ('a, 'b, 'c) star =
-          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-      module Info : Xml_sigs.Info
-      type uri = Xml.uri
-      val string_of_uri : (uri, string) Xml.W.ft
-      val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
-      val a_user_data :
-        Html_types.nmtoken -> Html_types.text wrap -> [> `User_data ] attrib
-      val a_id : Html_types.text wrap -> [> `Id ] attrib
-      val a_title : Html_types.text wrap -> [> `Title ] attrib
-      val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
-      val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-      val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
-      val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
-      val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
-      val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-      val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-      val a_oncanplaythrough :
-        Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-      val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-      val a_ondurationchange :
-        Xml.event_handler -> [> `OnDurationChange ] attrib
-      val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-      val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-      val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-      val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
-      val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
-      val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
-      val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-      val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-      val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
-      val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-      val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-      val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-      val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-      val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-      val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-      val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-      val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-      val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-      val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
-      val a_onreadystatechange :
-        Xml.event_handler -> [> `OnReadyStateChange ] attrib
-      val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-      val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-      val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-      val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-      val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-      val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-      val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-      val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-      val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-      val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
-      val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-      val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
-      val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-      val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
-      val a_onloadedmetadata :
-        Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-      val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
-      val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-      val a_oncontextmenu :
-        Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-      val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-      val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-      val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-      val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-      val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-      val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-      val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-      val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-      val a_ontouchstart :
-        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-      val a_ontouchcancel :
-        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-      val a_onkeypress :
-        Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-      val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-      val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
-      val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
-      val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-      val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
-      val a_async : unit -> [> `Async ] attrib
-      val a_autofocus : unit -> [> `Autofocus ] attrib
-      val a_autoplay : unit -> [> `Autoplay ] attrib
-      val a_muted : unit -> [> `Muted ] attrib
-      val a_crossorigin :
-        [< `Anonymous | `Use_credentials ] wrap -> [> `Crossorigin ] attrib
-      val a_integrity : string wrap -> [> `Integrity ] attrib
-      val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
-      val a_challenge : Html_types.text wrap -> [> `Challenge ] attrib
-      val a_contenteditable : bool wrap -> [> `Contenteditable ] attrib
-      val a_contextmenu : Html_types.idref wrap -> [> `Contextmenu ] attrib
-      val a_controls : unit -> [> `Controls ] attrib
-      val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
-      val a_draggable : bool wrap -> [> `Draggable ] attrib
-      val a_form : Html_types.idref wrap -> [> `Form ] attrib
-      val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
-      val a_formenctype :
-        Html_types.contenttype wrap -> [> `Formenctype ] attrib
-      val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
-      val a_formtarget : Html_types.text wrap -> [> `Formtarget ] attrib
-      val a_hidden : unit -> [> `Hidden ] attrib
-      val a_high : Html_types.float_number wrap -> [> `High ] attrib
-      val a_icon : Xml.uri wrap -> [> `Icon ] attrib
-      val a_ismap : unit -> [> `Ismap ] attrib
-      val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
-      val a_list : Html_types.idref wrap -> [> `List ] attrib
-      val a_loop : unit -> [> `Loop ] attrib
-      val a_low : Html_types.float_number wrap -> [> `High ] attrib
-      val a_max : Html_types.float_number wrap -> [> `Max ] attrib
-      val a_input_max :
-        Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
-      val a_min : Html_types.float_number wrap -> [> `Min ] attrib
-      val a_input_min :
-        Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
-      val a_inputmode :
-        [< `Decimal
-         | `Email
-         | `None
-         | `Numeric
-         | `Search
+          val string_of_uri : (uri, string) Xml.W.ft
+          val uri_of_string : (string, uri) Xml.W.ft
+          val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+          val a_user_data :
+            Html_types.nmtoken ->
+            Html_types.text wrap -> [> `User_data ] attrib
+          val a_id : Html_types.text wrap -> [> `Id ] attrib
+          val a_title : Html_types.text wrap -> [> `Title ] attrib
+          val a_xml_lang :
+            Html_types.languagecode wrap -> [> `XML_lang ] attrib
+          val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
+          val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
+          val a_allowpaymentrequest :
+            unit -> [> `Allowpaymentrequest ] attrib
+          val a_autocomplete :
+            Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
+          val a_async : unit -> [> `Async ] attrib
+          val a_autofocus : unit -> [> `Autofocus ] attrib
+          val a_autoplay : unit -> [> `Autoplay ] attrib
+          val a_muted : unit -> [> `Muted ] attrib
+          val a_crossorigin :
+            [< `Anonymous | `Use_credentials ] wrap ->
+            [> `Crossorigin ] attrib
+          val a_integrity : string wrap -> [> `Integrity ] attrib
+          val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
+          val a_challenge : Html_types.text wrap -> [> `Challenge ] attrib
+          val a_contenteditable : bool wrap -> [> `Contenteditable ] attrib
+          val a_contextmenu :
+            Html_types.idref wrap -> [> `Contextmenu ] attrib
+          val a_controls : unit -> [> `Controls ] attrib
+          val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
+          val a_draggable : bool wrap -> [> `Draggable ] attrib
+          val a_form : Html_types.idref wrap -> [> `Form ] attrib
+          val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
+          val a_formenctype :
+            Html_types.contenttype wrap -> [> `Formenctype ] attrib
+          val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
+          val a_formtarget : Html_types.text wrap -> [> `Formtarget ] attrib
+          val a_hidden : unit -> [> `Hidden ] attrib
+          val a_high : Html_types.float_number wrap -> [> `High ] attrib
+          val a_icon : Xml.uri wrap -> [> `Icon ] attrib
+          val a_ismap : unit -> [> `Ismap ] attrib
+          val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
+          val a_list : Html_types.idref wrap -> [> `List ] attrib
+          val a_loop : unit -> [> `Loop ] attrib
+          val a_low : Html_types.float_number wrap -> [> `High ] attrib
+          val a_max : Html_types.float_number wrap -> [> `Max ] attrib
+          val a_input_max :
+            Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
+          val a_min : Html_types.float_number wrap -> [> `Min ] attrib
+          val a_input_min :
+            Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
+          val a_inputmode :
+            [< `Decimal
+             | `Email
+             | `None
+             | `Numeric
+             | `Search
+             | `Tel
+             | `Text
+             | `Url ]
+            wrap -> [> `Inputmode ] attrib
+          val a_novalidate : unit -> [> `Novalidate ] attrib
+          val a_open : unit -> [> `Open ] attrib
+          val a_optimum :
+            Html_types.float_number wrap -> [> `Optimum ] attrib
+          val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
+          val a_placeholder :
+            Html_types.text wrap -> [> `Placeholder ] attrib
+          val a_poster : Xml.uri wrap -> [> `Poster ] attrib
+          val a_preload :
+            [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
+          val a_pubdate : unit -> [> `Pubdate ] attrib
+          val a_radiogroup : Html_types.text wrap -> [> `Radiogroup ] attrib
+          val a_referrerpolicy :
+            Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
+          val a_required : unit -> [> `Required ] attrib
+          val a_reversed : unit -> [> `Reversed ] attrib
+          val a_sandbox :
+            [< Html_types.sandbox_token ] list wrap -> [> `Sandbox ] attrib
+          val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
+          val a_scoped : unit -> [> `Scoped ] attrib
+          val a_seamless : unit -> [> `Seamless ] attrib
+          val a_sizes :
+            (Html_types.number * Html_types.number) list option wrap ->
+            [> `Sizes ] attrib
+          val a_span : Html_types.number wrap -> [> `Span ] attrib
+          val a_srclang : Html_types.nmtoken wrap -> [> `XML_lang ] attrib
+          type image_candidate =
+              [ `Url of uri
+              | `Url_pixel of uri * Html_types.float_number
+              | `Url_width of uri * Html_types.number ]
+          val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
+          val a_img_sizes :
+            Html_types.text list wrap -> [> `Img_sizes ] attrib
+          val a_start : Html_types.number wrap -> [> `Start ] attrib
+          val a_step :
+            Html_types.float_number option wrap -> [> `Step ] attrib
+          val a_translate : [< `No | `Yes ] wrap -> [> `Translate ] attrib
+          val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
+          val a_version : Html_types.cdata wrap -> [> `Version ] attrib
+          val a_xmlns : [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
+          val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
+          val a_cite : Xml.uri wrap -> [> `Cite ] attrib
+          val a_xml_space :
+            [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
+          val a_accesskey :
+            Html_types.character wrap -> [> `Accesskey ] attrib
+          val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
+          val a_accept_charset :
+            Html_types.charsets wrap -> [> `Accept_charset ] attrib
+          val a_accept : Html_types.contenttypes wrap -> [> `Accept ] attrib
+          val a_href : Xml.uri wrap -> [> `Href ] attrib
+          val a_hreflang :
+            Html_types.languagecode wrap -> [> `Hreflang ] attrib
+          val a_download : string option wrap -> [> `Download ] attrib
+          val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
+          val a_tabindex : Html_types.number wrap -> [> `Tabindex ] attrib
+          val a_mime_type :
+            Html_types.contenttype wrap -> [> `Mime_type ] attrib
+          val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
+          val a_action : Xml.uri wrap -> [> `Action ] attrib
+          val a_checked : unit -> [> `Checked ] attrib
+          val a_cols : Html_types.number wrap -> [> `Cols ] attrib
+          val a_enctype : Html_types.contenttype wrap -> [> `Enctype ] attrib
+          val a_label_for : Html_types.idref wrap -> [> `Label_for ] attrib
+          val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
+          val a_output_for :
+            Html_types.idrefs wrap -> [> `Output_for ] attrib
+          val a_for_list : Html_types.idrefs wrap -> [> `Output_for ] attrib
+          val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
+          val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
+          val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
+          val a_formmethod :
+            [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
+          val a_multiple : unit -> [> `Multiple ] attrib
+          val a_name : Html_types.text wrap -> [> `Name ] attrib
+          val a_rows : Html_types.number wrap -> [> `Rows ] attrib
+          val a_selected : unit -> [> `Selected ] attrib
+          val a_size : Html_types.number wrap -> [> `Size ] attrib
+          val a_src : Xml.uri wrap -> [> `Src ] attrib
+          val a_input_type :
+            [< `Button
+             | `Checkbox
+             | `Color
+             | `Date
+             | `Datetime
+             | `Datetime_local
+             | `Email
+             | `File
+             | `Hidden
+             | `Image
+             | `Month
+             | `Number
+             | `Password
+             | `Radio
+             | `Range
+             | `Reset
+             | `Search
+             | `Submit
+             | `Tel
+             | `Text
+             | `Time
+             | `Url
+             | `Week ]
+            wrap -> [> `Input_Type ] attrib
+          val a_text_value : Html_types.text wrap -> [> `Text_Value ] attrib
+          val a_int_value : Html_types.number wrap -> [> `Int_Value ] attrib
+          val a_value : Html_types.cdata wrap -> [> `Value ] attrib
+          val a_float_value :
+            Html_types.float_number wrap -> [> `Float_Value ] attrib
+          val a_disabled : unit -> [> `Disabled ] attrib
+          val a_readonly : unit -> [> `ReadOnly ] attrib
+          val a_button_type :
+            [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+          val a_script_type :
+            Html_types.script_type wrap -> [> `Script_type ] attrib
+          val a_command_type :
+            [< `Checkbox | `Command | `Radio ] wrap ->
+            [> `Command_Type ] attrib
+          val a_menu_type :
+            [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
+          val a_label : Html_types.text wrap -> [> `Label ] attrib
+          val a_align :
+            [< `Char | `Justify | `Left | `Right ] wrap -> [> `Align ] attrib
+          val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
+          val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
+          val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
+          val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
+          val a_scope :
+            [< `Col | `Colgroup | `Row | `Rowgroup ] wrap ->
+            [> `Scope ] attrib
+          val a_summary : Html_types.text wrap -> [> `Summary ] attrib
+          val a_border : Html_types.pixels wrap -> [> `Border ] attrib
+          val a_rules :
+            [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
+            [> `Rules ] attrib
+          val a_char : Html_types.character wrap -> [> `Char ] attrib
+          val a_alt : Html_types.text wrap -> [> `Alt ] attrib
+          val a_height : Html_types.number wrap -> [> `Height ] attrib
+          val a_width : Html_types.number wrap -> [> `Width ] attrib
+          type shape = [ `Circle | `Default | `Poly | `Rect ]
+          val a_shape : shape wrap -> [> `Shape ] attrib
+          val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
+          val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
+          val a_data : Xml.uri wrap -> [> `Data ] attrib
+          val a_codetype :
+            Html_types.contenttype wrap -> [> `Codetype ] attrib
+          val a_frameborder :
+            [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
+          val a_marginheight :
+            Html_types.pixels wrap -> [> `Marginheight ] attrib
+          val a_marginwidth :
+            Html_types.pixels wrap -> [> `Marginwidth ] attrib
+          val a_scrolling :
+            [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
+          val a_target : Html_types.frametarget wrap -> [> `Target ] attrib
+          val a_content : Html_types.text wrap -> [> `Content ] attrib
+          val a_http_equiv : Html_types.text wrap -> [> `Http_equiv ] attrib
+          val a_defer : unit -> [> `Defer ] attrib
+          val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
+          val a_style : string wrap -> [> `Style_Attr ] attrib
+          val a_property : string wrap -> [> `Property ] attrib
+          val a_role : string list wrap -> [> `Role ] attrib
+          val a_aria : string -> string list wrap -> [> `Aria ] attrib
+          val txt : string wrap -> [> Html_types.txt ] elt
+          val html :
+            ?a:Html_types.html_attrib attrib list ->
+            [< Html_types.head ] elt wrap ->
+            [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
+          val head :
+            ?a:Html_types.head_attrib attrib list ->
+            [< Html_types.title ] elt wrap ->
+            Html_types.head_content_fun elt list_wrap ->
+            [> Html_types.head ] elt
+          val base :
+            ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
+          val title :
+            (Html_types.title_attrib, [< Html_types.title_content_fun ],
+             [> Html_types.title ])
+            unary
+          val body :
+            ([< Html_types.body_attrib ], [< Html_types.body_content_fun ],
+             [> Html_types.body ])
+            star
+          val svg :
+            ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+            [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
+            [> Html_types.svg ] elt
+          val footer :
+            ([< Html_types.footer_attrib ],
+             [< Html_types.footer_content_fun ], [> Html_types.footer ])
+            star
+          val header :
+            ([< Html_types.header_attrib ],
+             [< Html_types.header_content_fun ], [> Html_types.header ])
+            star
+          val section :
+            ([< Html_types.section_attrib ],
+             [< Html_types.section_content_fun ], [> Html_types.section ])
+            star
+          val nav :
+            ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
+             [> Html_types.nav ])
+            star
+          val h1 :
+            ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
+             [> Html_types.h1 ])
+            star
+          val h2 :
+            ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
+             [> Html_types.h2 ])
+            star
+          val h3 :
+            ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
+             [> Html_types.h3 ])
+            star
+          val h4 :
+            ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
+             [> Html_types.h4 ])
+            star
+          val h5 :
+            ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
+             [> Html_types.h5 ])
+            star
+          val h6 :
+            ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
+             [> Html_types.h6 ])
+            star
+          val hgroup :
+            ([< Html_types.hgroup_attrib ],
+             [< Html_types.hgroup_content_fun ], [> Html_types.hgroup ])
+            star
+          val address :
+            ([< Html_types.address_attrib ],
+             [< Html_types.address_content_fun ], [> Html_types.address ])
+            star
+          val article :
+            ([< Html_types.article_attrib ],
+             [< Html_types.article_content_fun ], [> Html_types.article ])
+            star
+          val aside :
+            ([< Html_types.aside_attrib ], [< Html_types.aside_content_fun ],
+             [> Html_types.aside ])
+            star
+          val main :
+            ([< Html_types.main_attrib ], [< Html_types.main_content_fun ],
+             [> Html_types.main ])
+            star
+          val p :
+            ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
+             [> Html_types.p ])
+            star
+          val pre :
+            ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
+             [> Html_types.pre ])
+            star
+          val blockquote :
+            ([< Html_types.blockquote_attrib ],
+             [< Html_types.blockquote_content_fun ],
+             [> Html_types.blockquote ])
+            star
+          val dialog :
+            ([< Html_types.dialog_attrib ],
+             [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+            star
+          val div :
+            ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
+             [> Html_types.div ])
+            star
+          val dl :
+            ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
+             [> Html_types.dl ])
+            star
+          val ol :
+            ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
+             [> Html_types.ol ])
+            star
+          val ul :
+            ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
+             [> Html_types.ul ])
+            star
+          val dd :
+            ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
+             [> Html_types.dd ])
+            star
+          val dt :
+            ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
+             [> Html_types.dt ])
+            star
+          val li :
+            ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
+             [> Html_types.li ])
+            star
+          val figcaption :
+            ([< Html_types.figcaption_attrib ],
+             [< Html_types.figcaption_content_fun ],
+             [> Html_types.figcaption ])
+            star
+          val figure :
+            ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
+                        | `Top of [< Html_types.figcaption ] elt wrap ] ->
+            ([< Html_types.figure_attrib ],
+             [< Html_types.figure_content_fun ], [> Html_types.figure ])
+            star
+          val hr : ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
+          val b :
+            ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
+             [> Html_types.b ])
+            star
+          val i :
+            ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
+             [> Html_types.i ])
+            star
+          val u :
+            ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
+             [> Html_types.u ])
+            star
+          val small :
+            ([< Html_types.small_attrib ], [< Html_types.small_content_fun ],
+             [> Html_types.small ])
+            star
+          val sub :
+            ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
+             [> Html_types.sub ])
+            star
+          val sup :
+            ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
+             [> Html_types.sup ])
+            star
+          val mark :
+            ([< Html_types.mark_attrib ], [< Html_types.mark_content_fun ],
+             [> Html_types.mark ])
+            star
+          val wbr : ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
+          val bdo :
+            dir:[< `Ltr | `Rtl ] wrap ->
+            ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
+             [> Html_types.bdo ])
+            star
+          val abbr :
+            ([< Html_types.abbr_attrib ], [< Html_types.abbr_content_fun ],
+             [> Html_types.abbr ])
+            star
+          val br : ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
+          val cite :
+            ([< Html_types.cite_attrib ], [< Html_types.cite_content_fun ],
+             [> Html_types.cite ])
+            star
+          val code :
+            ([< Html_types.code_attrib ], [< Html_types.code_content_fun ],
+             [> Html_types.code ])
+            star
+          val dfn :
+            ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
+             [> Html_types.dfn ])
+            star
+          val em :
+            ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
+             [> Html_types.em ])
+            star
+          val kbd :
+            ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
+             [> Html_types.kbd ])
+            star
+          val q :
+            ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
+             [> Html_types.q ])
+            star
+          val samp :
+            ([< Html_types.samp_attrib ], [< Html_types.samp_content_fun ],
+             [> Html_types.samp ])
+            star
+          val span :
+            ([< Html_types.span_attrib ], [< Html_types.span_content_fun ],
+             [> Html_types.span ])
+            star
+          val strong :
+            ([< Html_types.strong_attrib ],
+             [< Html_types.strong_content_fun ], [> Html_types.strong ])
+            star
+          val time :
+            ([< Html_types.time_attrib ], [< Html_types.time_content_fun ],
+             [> Html_types.time ])
+            star
+          val var :
+            ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
+             [> Html_types.var ])
+            star
+          val a : ([< Html_types.a_attrib ], 'a, [> 'a Html_types.a ]) star
+          val del :
+            ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
+          val ins :
+            ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
+          val img :
+            src:Xml.uri wrap ->
+            alt:Html_types.text wrap ->
+            ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
+          val picture :
+            img:[< Html_types.img ] elt wrap ->
+            ([< Html_types.picture_attrib ],
+             [< Html_types.picture_content_fun ], [> Html_types.picture ])
+            star
+          val iframe :
+            ([< Html_types.iframe_attrib ],
+             [< Html_types.iframe_content_fun ], [> Html_types.iframe ])
+            star
+          val object_ :
+            ?params:[< Html_types.param ] elt list_wrap ->
+            ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
+          val param :
+            ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
+          val embed :
+            ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
+          val audio :
+            ?src:Xml.uri wrap ->
+            ?srcs:[< Html_types.source ] elt list_wrap ->
+            ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ]) star
+          val video :
+            ?src:Xml.uri wrap ->
+            ?srcs:[< Html_types.source ] elt list_wrap ->
+            ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ]) star
+          val canvas :
+            ([< Html_types.canvas_attrib ], 'a, [> 'a Html_types.canvas ])
+            star
+          val source :
+            ([< Html_types.source_attrib ], [> Html_types.source ]) nullary
+          val area :
+            alt:Html_types.text wrap ->
+            ([< `Accesskey
+              | `Alt
+              | `Aria
+              | `Class
+              | `Contenteditable
+              | `Contextmenu
+              | `Coords
+              | `Dir
+              | `Draggable
+              | `Hidden
+              | `Hreflang
+              | `Id
+              | `Lang
+              | `Media
+              | `Mime_type
+              | `OnAbort
+              | `OnBlur
+              | `OnCanPlay
+              | `OnCanPlayThrough
+              | `OnChange
+              | `OnClick
+              | `OnClose
+              | `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
+              | `Rel
+              | `Role
+              | `Shape
+              | `Spellcheck
+              | `Style_Attr
+              | `Tabindex
+              | `Target
+              | `Title
+              | `Translate
+              | `User_data
+              | `XML_lang
+              | `XMLns ],
+             [> Html_types.area ])
+            nullary
+          val map :
+            ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
+          val caption :
+            ([< Html_types.caption_attrib ],
+             [< Html_types.caption_content_fun ], [> Html_types.caption ])
+            star
+          val table :
+            ?caption:[< Html_types.caption ] elt wrap ->
+            ?columns:[< Html_types.colgroup ] elt list_wrap ->
+            ?thead:[< Html_types.thead ] elt wrap ->
+            ?tfoot:[< Html_types.tfoot ] elt wrap ->
+            ([< Html_types.table_attrib ], [< Html_types.table_content_fun ],
+             [> Html_types.table ])
+            star
+          val tablex :
+            ?caption:[< Html_types.caption ] elt wrap ->
+            ?columns:[< Html_types.colgroup ] elt list_wrap ->
+            ?thead:[< Html_types.thead ] elt wrap ->
+            ?tfoot:[< Html_types.tfoot ] elt wrap ->
+            ([< Html_types.tablex_attrib ],
+             [< Html_types.tablex_content_fun ], [> Html_types.tablex ])
+            star
+          val colgroup :
+            ([< Html_types.colgroup_attrib ],
+             [< Html_types.colgroup_content_fun ], [> Html_types.colgroup ])
+            star
+          val col : ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
+          val thead :
+            ([< Html_types.thead_attrib ], [< Html_types.thead_content_fun ],
+             [> Html_types.thead ])
+            star
+          val tbody :
+            ([< Html_types.tbody_attrib ], [< Html_types.tbody_content_fun ],
+             [> Html_types.tbody ])
+            star
+          val tfoot :
+            ([< Html_types.tfoot_attrib ], [< Html_types.tfoot_content_fun ],
+             [> Html_types.tfoot ])
+            star
+          val td :
+            ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
+             [> Html_types.td ])
+            star
+          val th :
+            ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
+             [> Html_types.th ])
+            star
+          val tr :
+            ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
+             [> Html_types.tr ])
+            star
+          val form :
+            ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
+             [> Html_types.form ])
+            star
+          val fieldset :
+            ?legend:[< Html_types.legend ] elt wrap ->
+            ([< Html_types.fieldset_attrib ],
+             [< Html_types.fieldset_content_fun ], [> Html_types.fieldset ])
+            star
+          val legend :
+            ([< Html_types.legend_attrib ],
+             [< Html_types.legend_content_fun ], [> Html_types.legend ])
+            star
+          val label :
+            ([< Html_types.label_attrib ], [< Html_types.label_content_fun ],
+             [> Html_types.label ])
+            star
+          val input :
+            ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
+          val button :
+            ([< Html_types.button_attrib ],
+             [< Html_types.button_content_fun ], [> Html_types.button ])
+            star
+          val select :
+            ([< Html_types.select_attrib ],
+             [< Html_types.select_content_fun ], [> Html_types.select ])
+            star
+          val datalist :
+            ?children:[< `Options of
+                           [< Html_types.selectoption ] elt list_wrap
+                       | `Phras of [< Html_types.phrasing ] elt list_wrap ] ->
+            ([< Html_types.datalist_attrib ], [> Html_types.datalist ])
+            nullary
+          val optgroup :
+            label:Html_types.text wrap ->
+            ([< Html_types.optgroup_attrib ],
+             [< Html_types.optgroup_content_fun ], [> Html_types.optgroup ])
+            star
+          val option :
+            ([< Html_types.option_attrib ],
+             [< Html_types.option_content_fun ],
+             [> Html_types.selectoption ])
+            unary
+          val textarea :
+            ([< Html_types.textarea_attrib ],
+             [< Html_types.textarea_content_fun ], [> Html_types.textarea ])
+            unary
+          val keygen :
+            ([< Html_types.keygen_attrib ], [> Html_types.keygen ]) nullary
+          val progress :
+            ([< Html_types.progress_attrib ],
+             [< Html_types.progress_content_fun ], [> Html_types.progress ])
+            star
+          val meter :
+            ([< Html_types.meter_attrib ], [< Html_types.meter_content_fun ],
+             [> Html_types.meter ])
+            star
+          val output_elt :
+            ([< Html_types.output_elt_attrib ],
+             [< Html_types.output_elt_content_fun ],
+             [> Html_types.output_elt ])
+            star
+          val entity : string -> [> Html_types.txt ] elt
+          val space : unit -> [> Html_types.txt ] elt
+          val cdata : string -> [> Html_types.txt ] elt
+          val cdata_script : string -> [> Html_types.txt ] elt
+          val cdata_style : string -> [> Html_types.txt ] elt
+          val details :
+            [< Html_types.summary ] elt wrap ->
+            ([< Html_types.details_attrib ],
+             [< Html_types.details_content_fun ], [> Html_types.details ])
+            star
+          val summary :
+            ([< Html_types.summary_attrib ],
+             [< Html_types.summary_content_fun ], [> Html_types.summary ])
+            star
+          val command :
+            label:Html_types.text wrap ->
+            ([< Html_types.command_attrib ], [> Html_types.command ]) nullary
+          val menu :
+            ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
+                       | `Lis of
+                           [< `Li of [< Html_types.common ] ] elt list_wrap ] ->
+            ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
+          val script :
+            ([< Html_types.script_attrib ],
+             [< Html_types.script_content_fun ], [> Html_types.script ])
+            unary
+          val noscript :
+            ([< Html_types.noscript_attrib ],
+             [< Html_types.noscript_content_fun ], [> Html_types.noscript ])
+            star
+          val template :
+            ([< Html_types.template_attrib ],
+             [< Html_types.template_content_fun ], [> Html_types.template ])
+            star
+          val meta :
+            ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
+          val style :
+            ([< Html_types.style_attrib ], [< Html_types.style_content_fun ],
+             [> Html_types.style ])
+            star
+          val link :
+            rel:Html_types.linktypes wrap ->
+            href:Xml.uri wrap ->
+            ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
+          val rt :
+            ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
+             [> Html_types.rt ])
+            star
+          val rp :
+            ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
+             [> Html_types.rp ])
+            star
+          val ruby :
+            ([< Html_types.ruby_attrib ], [< Html_types.ruby_content_fun ],
+             [> Html_types.ruby ])
+            star
+          val pcdata : string wrap -> [> Html_types.pcdata ] elt
+          val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+          val tot : Xml.elt -> 'a elt
+          val totl : Xml.elt list_wrap -> 'a elt list_wrap
+          val toelt : 'a elt -> Xml.elt
+          val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+          val doc_toelt : doc -> Xml.elt
+          val to_xmlattribs : 'a attrib list -> Xml.attrib list
+          val to_attrib : Xml.attrib -> 'a attrib
+          module Unsafe :
+            sig
+              val data : string wrap -> 'a elt
+              val node :
+                string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+              val coerce_elt : 'a elt -> 'b elt
+              val string_attrib : string -> string wrap -> 'a attrib
+              val float_attrib : string -> float wrap -> 'a attrib
+              val int_attrib : string -> int wrap -> 'a attrib
+              val uri_attrib : string -> uri wrap -> 'a attrib
+              val space_sep_attrib : string -> string list wrap -> 'a attrib
+              val comma_sep_attrib : string -> string list wrap -> 'a attrib
+            end
+          val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+          val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+          val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+          val a_onbeforeunload : string -> [> `OnBeforeUnload ] Raw'.attrib
+          val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+          val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+          val a_oncanplaythrough :
+            string -> [> `OnCanPlayThrough ] Raw'.attrib
+          val a_onchange : string -> [> `OnChange ] Raw'.attrib
+          val a_onclose : string -> [> `OnClose ] Raw'.attrib
+          val a_ondurationchange :
+            string -> [> `OnDurationChange ] Raw'.attrib
+          val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+          val a_onended : string -> [> `OnEnded ] Raw'.attrib
+          val a_onerror : string -> [> `OnError ] Raw'.attrib
+          val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+          val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+          val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+          val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+          val a_oninput : string -> [> `OnInput ] Raw'.attrib
+          val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+          val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+          val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+          val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+          val a_onpause : string -> [> `OnPause ] Raw'.attrib
+          val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+          val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+          val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+          val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+          val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+          val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+          val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+          val a_onreadystatechange :
+            string -> [> `OnReadyStateChange ] Raw'.attrib
+          val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+          val a_onresize : string -> [> `OnResize ] Raw'.attrib
+          val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+          val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+          val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+          val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+          val a_onshow : string -> [> `OnShow ] Raw'.attrib
+          val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+          val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+          val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+          val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+          val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+          val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+          val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+          val a_onvolumechange : string -> [> `OnVolumeChange ] Raw'.attrib
+          val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+          val a_onload : string -> [> `OnLoad ] Raw'.attrib
+          val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+          val a_onloadedmetadata :
+            string -> [> `OnLoadedMetaData ] Raw'.attrib
+          val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+          val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+          val a_onclick : string -> [> `OnClick ] Raw'.attrib
+          val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+          val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+          val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+          val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+          val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+          val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+          val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+          val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+          val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+          val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+          val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+          val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+          val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+          val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+          val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+          val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+          val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+          val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+          val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+          val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+          val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
+        end
+      type 'a elt = 'a elt
+      type doc = Html_types.html elt
+      type 'a attrib = 'a attrib
+      module Xml :
+        sig
+          module W :
+            sig
+              type 'a t = 'a Xml.W.t
+              val return : 'a -> 'a t
+              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+              val fmap : ('a, 'b) ft -> 'a t -> 'b t
+              type 'a tlist = 'a Xml.W.tlist
+              val nil : unit -> 'a tlist
+              val singleton : 'a t -> 'a tlist
+              val cons : 'a t -> 'a tlist -> 'a tlist
+              val append : 'a tlist -> 'a tlist -> 'a tlist
+              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+            end
+          type 'a wrap = 'a W.t
+          type 'a list_wrap = 'a W.tlist
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) W.ft
+          val uri_of_string : (string, uri) W.ft
+          type aname = string
+          type event_handler = Xml.event_handler
+          type mouse_event_handler = Xml.mouse_event_handler
+          type keyboard_event_handler = Xml.keyboard_event_handler
+          type touch_event_handler = Xml.touch_event_handler
+          type attrib = Xml.attrib
+          val float_attrib : aname -> float wrap -> attrib
+          val int_attrib : aname -> int wrap -> attrib
+          val string_attrib : aname -> string wrap -> attrib
+          val space_sep_attrib : aname -> string list wrap -> attrib
+          val comma_sep_attrib : aname -> string list wrap -> attrib
+          val event_handler_attrib : aname -> event_handler -> attrib
+          val mouse_event_handler_attrib :
+            aname -> mouse_event_handler -> attrib
+          val keyboard_event_handler_attrib :
+            aname -> keyboard_event_handler -> attrib
+          val touch_event_handler_attrib :
+            aname -> touch_event_handler -> attrib
+          val uri_attrib : aname -> uri wrap -> attrib
+          val uris_attrib : aname -> uri list wrap -> attrib
+          type elt = Xml.elt
+          type ename = string
+          val empty : unit -> elt
+          val comment : string -> elt
+          val pcdata : string wrap -> elt
+          val encodedpcdata : string wrap -> elt
+          val entity : string -> elt
+          val leaf : ?a:attrib list -> ename -> elt
+          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+          val cdata : string -> elt
+          val cdata_script : string -> elt
+          val cdata_style : string -> elt
+        end
+      type 'a wrap = 'a Xml.W.t
+      type 'a list_wrap = 'a Xml.W.tlist
+      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
+      type ('a, 'b, 'c) star =
+          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+      module Info : Xml_sigs.Info
+      type uri = Xml.uri
+      val string_of_uri : (uri, string) Xml.W.ft
+      val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+      val a_user_data :
+        Html_types.nmtoken -> Html_types.text wrap -> [> `User_data ] attrib
+      val a_id : Html_types.text wrap -> [> `Id ] attrib
+      val a_title : Html_types.text wrap -> [> `Title ] attrib
+      val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
+      val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
+      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+      val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
+      val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
+      val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
+      val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
+      val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
+      val a_oncanplaythrough :
+        Xml.event_handler -> [> `OnCanPlayThrough ] attrib
+      val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+      val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
+      val a_ondurationchange :
+        Xml.event_handler -> [> `OnDurationChange ] attrib
+      val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
+      val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
+      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+      val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
+      val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
+      val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
+      val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
+      val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
+      val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
+      val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
+      val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
+      val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
+      val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
+      val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
+      val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
+      val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
+      val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
+      val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
+      val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
+      val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
+      val a_onreadystatechange :
+        Xml.event_handler -> [> `OnReadyStateChange ] attrib
+      val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
+      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+      val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
+      val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
+      val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
+      val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
+      val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
+      val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
+      val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
+      val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
+      val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
+      val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
+      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+      val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
+      val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
+      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+      val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
+      val a_onloadedmetadata :
+        Xml.event_handler -> [> `OnLoadedMetaData ] attrib
+      val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
+      val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
+      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+      val a_oncontextmenu :
+        Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
+      val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
+      val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
+      val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
+      val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
+      val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
+      val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
+      val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
+      val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
+      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+      val a_ontouchstart :
+        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+      val a_ontouchcancel :
+        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+      val a_onkeypress :
+        Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
+      val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
+      val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+      val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
+      val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
+      val a_autocomplete :
+        Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
+      val a_async : unit -> [> `Async ] attrib
+      val a_autofocus : unit -> [> `Autofocus ] attrib
+      val a_autoplay : unit -> [> `Autoplay ] attrib
+      val a_muted : unit -> [> `Muted ] attrib
+      val a_crossorigin :
+        [< `Anonymous | `Use_credentials ] wrap -> [> `Crossorigin ] attrib
+      val a_integrity : string wrap -> [> `Integrity ] attrib
+      val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
+      val a_challenge : Html_types.text wrap -> [> `Challenge ] attrib
+      val a_contenteditable : bool wrap -> [> `Contenteditable ] attrib
+      val a_contextmenu : Html_types.idref wrap -> [> `Contextmenu ] attrib
+      val a_controls : unit -> [> `Controls ] attrib
+      val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
+      val a_draggable : bool wrap -> [> `Draggable ] attrib
+      val a_form : Html_types.idref wrap -> [> `Form ] attrib
+      val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
+      val a_formenctype :
+        Html_types.contenttype wrap -> [> `Formenctype ] attrib
+      val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
+      val a_formtarget : Html_types.text wrap -> [> `Formtarget ] attrib
+      val a_hidden : unit -> [> `Hidden ] attrib
+      val a_high : Html_types.float_number wrap -> [> `High ] attrib
+      val a_icon : Xml.uri wrap -> [> `Icon ] attrib
+      val a_ismap : unit -> [> `Ismap ] attrib
+      val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
+      val a_list : Html_types.idref wrap -> [> `List ] attrib
+      val a_loop : unit -> [> `Loop ] attrib
+      val a_low : Html_types.float_number wrap -> [> `High ] attrib
+      val a_max : Html_types.float_number wrap -> [> `Max ] attrib
+      val a_input_max :
+        Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
+      val a_min : Html_types.float_number wrap -> [> `Min ] attrib
+      val a_input_min :
+        Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
+      val a_inputmode :
+        [< `Decimal
+         | `Email
+         | `None
+         | `Numeric
+         | `Search
          | `Tel
          | `Text
          | `Url ]
@@ -1192,7 +2120,7 @@
       val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
       val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
       val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-      val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+      val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
       val a_multiple : unit -> [> `Multiple ] attrib
       val a_name : Html_types.text wrap -> [> `Name ] attrib
       val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -1233,6 +2161,8 @@
       val a_readonly : unit -> [> `ReadOnly ] attrib
       val a_button_type :
         [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+      val a_script_type :
+        Html_types.script_type wrap -> [> `Script_type ] attrib
       val a_command_type :
         [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
       val a_menu_type :
@@ -1295,8 +2225,8 @@
          [> Html_types.body ])
         star
       val svg :
-        ?a:[< Html_types.svg_attrib ] Svg.F.Raw.attrib list ->
-        [< Html_types.svg_content ] Svg.F.Raw.elt list_wrap ->
+        ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+        [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
         [> Html_types.svg ] elt
       val footer :
         ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
@@ -1370,6 +2300,10 @@
         ([< Html_types.blockquote_attrib ],
          [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
         star
+      val dialog :
+        ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+         [> Html_types.dialog ])
+        star
       val div :
         ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
          [> Html_types.div ])
@@ -1549,6 +2483,7 @@
           | `OnCanPlayThrough
           | `OnChange
           | `OnClick
+          | `OnClose
           | `OnContextMenu
           | `OnDblClick
           | `OnDrag
@@ -2013,6 +2948,7 @@
                 | `OnCanPlayThrough
                 | `OnChange
                 | `OnClick
+                | `OnClose
                 | `OnContextMenu
                 | `OnDblClick
                 | `OnDrag
@@ -2077,21 +3013,955 @@
                 '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
+            ?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
+  module D :
+    sig
+      module Raw' :
+        sig
+          type 'a elt = 'a elt
+          type doc = Html_types.html elt
+          type 'a attrib = 'a attrib
+          module Xml :
+            sig
+              module W :
+                sig
+                  type 'a t = 'a Xml.W.t
+                  val return : 'a -> 'a t
+                  type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                  type 'a tlist = 'a Xml.W.tlist
+                  val nil : unit -> 'a tlist
+                  val singleton : 'a t -> 'a tlist
+                  val cons : 'a t -> 'a tlist -> 'a tlist
+                  val append : 'a tlist -> 'a tlist -> 'a tlist
+                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                end
+              type 'a wrap = 'a W.t
+              type 'a list_wrap = 'a W.tlist
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) W.ft
+              val uri_of_string : (string, uri) W.ft
+              type aname = string
+              type event_handler = Xml.event_handler
+              type mouse_event_handler = Xml.mouse_event_handler
+              type keyboard_event_handler = Xml.keyboard_event_handler
+              type touch_event_handler = Xml.touch_event_handler
+              type attrib = Xml.attrib
+              val float_attrib : aname -> float wrap -> attrib
+              val int_attrib : aname -> int wrap -> attrib
+              val string_attrib : aname -> string wrap -> attrib
+              val space_sep_attrib : aname -> string list wrap -> attrib
+              val comma_sep_attrib : aname -> string list wrap -> attrib
+              val event_handler_attrib : aname -> event_handler -> attrib
+              val mouse_event_handler_attrib :
+                aname -> mouse_event_handler -> attrib
+              val keyboard_event_handler_attrib :
+                aname -> keyboard_event_handler -> attrib
+              val touch_event_handler_attrib :
+                aname -> touch_event_handler -> attrib
+              val uri_attrib : aname -> uri wrap -> attrib
+              val uris_attrib : aname -> uri list wrap -> attrib
+              type elt = Xml.elt
+              type ename = string
+              val empty : unit -> elt
+              val comment : string -> elt
+              val pcdata : string wrap -> elt
+              val encodedpcdata : string wrap -> elt
+              val entity : string -> elt
+              val leaf : ?a:attrib list -> ename -> elt
+              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+              val cdata : string -> elt
+              val cdata_script : string -> elt
+              val cdata_style : string -> elt
+            end
+          type 'a wrap = 'a Xml.W.t
+          type 'a list_wrap = 'a Xml.W.tlist
+          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+          type ('a, 'b, 'c) unary =
+              ?a:'a attrib list -> 'b elt wrap -> 'c elt
+          type ('a, 'b, 'c) star =
+              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          module Info : Xml_sigs.Info
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) Xml.W.ft
+          val uri_of_string : (string, uri) Xml.W.ft
+          val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+          val a_user_data :
+            Html_types.nmtoken ->
+            Html_types.text wrap -> [> `User_data ] attrib
+          val a_id : Html_types.text wrap -> [> `Id ] attrib
+          val a_title : Html_types.text wrap -> [> `Title ] attrib
+          val a_xml_lang :
+            Html_types.languagecode wrap -> [> `XML_lang ] attrib
+          val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
+          val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+          val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
+          val a_onbeforeprint :
+            Xml.event_handler -> [> `OnBeforePrint ] attrib
+          val a_onbeforeunload :
+            Xml.event_handler -> [> `OnBeforeUnload ] attrib
+          val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
+          val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
+          val a_oncanplaythrough :
+            Xml.event_handler -> [> `OnCanPlayThrough ] attrib
+          val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+          val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
+          val a_ondurationchange :
+            Xml.event_handler -> [> `OnDurationChange ] attrib
+          val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
+          val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
+          val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+          val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
+          val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
+          val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
+          val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
+          val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
+          val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
+          val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
+          val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
+          val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
+          val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
+          val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
+          val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
+          val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
+          val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
+          val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
+          val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
+          val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
+          val a_onreadystatechange :
+            Xml.event_handler -> [> `OnReadyStateChange ] attrib
+          val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
+          val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+          val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+          val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
+          val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
+          val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
+          val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
+          val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
+          val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
+          val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
+          val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
+          val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
+          val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
+          val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+          val a_onvolumechange :
+            Xml.event_handler -> [> `OnVolumeChange ] attrib
+          val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
+          val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+          val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
+          val a_onloadedmetadata :
+            Xml.event_handler -> [> `OnLoadedMetaData ] attrib
+          val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
+          val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
+          val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+          val a_oncontextmenu :
+            Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
+          val a_ondblclick :
+            Xml.mouse_event_handler -> [> `OnDblClick ] attrib
+          val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
+          val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
+          val a_ondragenter :
+            Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
+          val a_ondragleave :
+            Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
+          val a_ondragover :
+            Xml.mouse_event_handler -> [> `OnDragOver ] attrib
+          val a_ondragstart :
+            Xml.mouse_event_handler -> [> `OnDragStart ] attrib
+          val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
+          val a_onmousedown :
+            Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+          val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+          val a_onmouseover :
+            Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+          val a_onmousemove :
+            Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+          val a_onmouseout :
+            Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+          val a_ontouchstart :
+            Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+          val a_ontouchend :
+            Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+          val a_ontouchmove :
+            Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+          val a_ontouchcancel :
+            Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+          val a_onkeypress :
+            Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
+          val a_onkeydown :
+            Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
+          val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+          val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
+          val a_allowpaymentrequest :
+            unit -> [> `Allowpaymentrequest ] attrib
+          val a_autocomplete :
+            Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
+          val a_async : unit -> [> `Async ] attrib
+          val a_autofocus : unit -> [> `Autofocus ] attrib
+          val a_autoplay : unit -> [> `Autoplay ] attrib
+          val a_muted : unit -> [> `Muted ] attrib
+          val a_crossorigin :
+            [< `Anonymous | `Use_credentials ] wrap ->
+            [> `Crossorigin ] attrib
+          val a_integrity : string wrap -> [> `Integrity ] attrib
+          val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
+          val a_challenge : Html_types.text wrap -> [> `Challenge ] attrib
+          val a_contenteditable : bool wrap -> [> `Contenteditable ] attrib
+          val a_contextmenu :
+            Html_types.idref wrap -> [> `Contextmenu ] attrib
+          val a_controls : unit -> [> `Controls ] attrib
+          val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
+          val a_draggable : bool wrap -> [> `Draggable ] attrib
+          val a_form : Html_types.idref wrap -> [> `Form ] attrib
+          val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
+          val a_formenctype :
+            Html_types.contenttype wrap -> [> `Formenctype ] attrib
+          val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
+          val a_formtarget : Html_types.text wrap -> [> `Formtarget ] attrib
+          val a_hidden : unit -> [> `Hidden ] attrib
+          val a_high : Html_types.float_number wrap -> [> `High ] attrib
+          val a_icon : Xml.uri wrap -> [> `Icon ] attrib
+          val a_ismap : unit -> [> `Ismap ] attrib
+          val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
+          val a_list : Html_types.idref wrap -> [> `List ] attrib
+          val a_loop : unit -> [> `Loop ] attrib
+          val a_low : Html_types.float_number wrap -> [> `High ] attrib
+          val a_max : Html_types.float_number wrap -> [> `Max ] attrib
+          val a_input_max :
+            Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
+          val a_min : Html_types.float_number wrap -> [> `Min ] attrib
+          val a_input_min :
+            Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
+          val a_inputmode :
+            [< `Decimal
+             | `Email
+             | `None
+             | `Numeric
+             | `Search
+             | `Tel
+             | `Text
+             | `Url ]
+            wrap -> [> `Inputmode ] attrib
+          val a_novalidate : unit -> [> `Novalidate ] attrib
+          val a_open : unit -> [> `Open ] attrib
+          val a_optimum :
+            Html_types.float_number wrap -> [> `Optimum ] attrib
+          val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
+          val a_placeholder :
+            Html_types.text wrap -> [> `Placeholder ] attrib
+          val a_poster : Xml.uri wrap -> [> `Poster ] attrib
+          val a_preload :
+            [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
+          val a_pubdate : unit -> [> `Pubdate ] attrib
+          val a_radiogroup : Html_types.text wrap -> [> `Radiogroup ] attrib
+          val a_referrerpolicy :
+            Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
+          val a_required : unit -> [> `Required ] attrib
+          val a_reversed : unit -> [> `Reversed ] attrib
+          val a_sandbox :
+            [< Html_types.sandbox_token ] list wrap -> [> `Sandbox ] attrib
+          val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
+          val a_scoped : unit -> [> `Scoped ] attrib
+          val a_seamless : unit -> [> `Seamless ] attrib
+          val a_sizes :
+            (Html_types.number * Html_types.number) list option wrap ->
+            [> `Sizes ] attrib
+          val a_span : Html_types.number wrap -> [> `Span ] attrib
+          val a_srclang : Html_types.nmtoken wrap -> [> `XML_lang ] attrib
+          type image_candidate =
+              [ `Url of uri
+              | `Url_pixel of uri * Html_types.float_number
+              | `Url_width of uri * Html_types.number ]
+          val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
+          val a_img_sizes :
+            Html_types.text list wrap -> [> `Img_sizes ] attrib
+          val a_start : Html_types.number wrap -> [> `Start ] attrib
+          val a_step :
+            Html_types.float_number option wrap -> [> `Step ] attrib
+          val a_translate : [< `No | `Yes ] wrap -> [> `Translate ] attrib
+          val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
+          val a_version : Html_types.cdata wrap -> [> `Version ] attrib
+          val a_xmlns : [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
+          val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
+          val a_cite : Xml.uri wrap -> [> `Cite ] attrib
+          val a_xml_space :
+            [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
+          val a_accesskey :
+            Html_types.character wrap -> [> `Accesskey ] attrib
+          val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
+          val a_accept_charset :
+            Html_types.charsets wrap -> [> `Accept_charset ] attrib
+          val a_accept : Html_types.contenttypes wrap -> [> `Accept ] attrib
+          val a_href : Xml.uri wrap -> [> `Href ] attrib
+          val a_hreflang :
+            Html_types.languagecode wrap -> [> `Hreflang ] attrib
+          val a_download : string option wrap -> [> `Download ] attrib
+          val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
+          val a_tabindex : Html_types.number wrap -> [> `Tabindex ] attrib
+          val a_mime_type :
+            Html_types.contenttype wrap -> [> `Mime_type ] attrib
+          val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
+          val a_action : Xml.uri wrap -> [> `Action ] attrib
+          val a_checked : unit -> [> `Checked ] attrib
+          val a_cols : Html_types.number wrap -> [> `Cols ] attrib
+          val a_enctype : Html_types.contenttype wrap -> [> `Enctype ] attrib
+          val a_label_for : Html_types.idref wrap -> [> `Label_for ] attrib
+          val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
+          val a_output_for :
+            Html_types.idrefs wrap -> [> `Output_for ] attrib
+          val a_for_list : Html_types.idrefs wrap -> [> `Output_for ] attrib
+          val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
+          val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
+          val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
+          val a_formmethod :
+            [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
+          val a_multiple : unit -> [> `Multiple ] attrib
+          val a_name : Html_types.text wrap -> [> `Name ] attrib
+          val a_rows : Html_types.number wrap -> [> `Rows ] attrib
+          val a_selected : unit -> [> `Selected ] attrib
+          val a_size : Html_types.number wrap -> [> `Size ] attrib
+          val a_src : Xml.uri wrap -> [> `Src ] attrib
+          val a_input_type :
+            [< `Button
+             | `Checkbox
+             | `Color
+             | `Date
+             | `Datetime
+             | `Datetime_local
+             | `Email
+             | `File
+             | `Hidden
+             | `Image
+             | `Month
+             | `Number
+             | `Password
+             | `Radio
+             | `Range
+             | `Reset
+             | `Search
+             | `Submit
+             | `Tel
+             | `Text
+             | `Time
+             | `Url
+             | `Week ]
+            wrap -> [> `Input_Type ] attrib
+          val a_text_value : Html_types.text wrap -> [> `Text_Value ] attrib
+          val a_int_value : Html_types.number wrap -> [> `Int_Value ] attrib
+          val a_value : Html_types.cdata wrap -> [> `Value ] attrib
+          val a_float_value :
+            Html_types.float_number wrap -> [> `Float_Value ] attrib
+          val a_disabled : unit -> [> `Disabled ] attrib
+          val a_readonly : unit -> [> `ReadOnly ] attrib
+          val a_button_type :
+            [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+          val a_script_type :
+            Html_types.script_type wrap -> [> `Script_type ] attrib
+          val a_command_type :
+            [< `Checkbox | `Command | `Radio ] wrap ->
+            [> `Command_Type ] attrib
+          val a_menu_type :
+            [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
+          val a_label : Html_types.text wrap -> [> `Label ] attrib
+          val a_align :
+            [< `Char | `Justify | `Left | `Right ] wrap -> [> `Align ] attrib
+          val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
+          val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
+          val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
+          val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
+          val a_scope :
+            [< `Col | `Colgroup | `Row | `Rowgroup ] wrap ->
+            [> `Scope ] attrib
+          val a_summary : Html_types.text wrap -> [> `Summary ] attrib
+          val a_border : Html_types.pixels wrap -> [> `Border ] attrib
+          val a_rules :
+            [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
+            [> `Rules ] attrib
+          val a_char : Html_types.character wrap -> [> `Char ] attrib
+          val a_alt : Html_types.text wrap -> [> `Alt ] attrib
+          val a_height : Html_types.number wrap -> [> `Height ] attrib
+          val a_width : Html_types.number wrap -> [> `Width ] attrib
+          type shape = [ `Circle | `Default | `Poly | `Rect ]
+          val a_shape : shape wrap -> [> `Shape ] attrib
+          val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
+          val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
+          val a_data : Xml.uri wrap -> [> `Data ] attrib
+          val a_codetype :
+            Html_types.contenttype wrap -> [> `Codetype ] attrib
+          val a_frameborder :
+            [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
+          val a_marginheight :
+            Html_types.pixels wrap -> [> `Marginheight ] attrib
+          val a_marginwidth :
+            Html_types.pixels wrap -> [> `Marginwidth ] attrib
+          val a_scrolling :
+            [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
+          val a_target : Html_types.frametarget wrap -> [> `Target ] attrib
+          val a_content : Html_types.text wrap -> [> `Content ] attrib
+          val a_http_equiv : Html_types.text wrap -> [> `Http_equiv ] attrib
+          val a_defer : unit -> [> `Defer ] attrib
+          val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
+          val a_style : string wrap -> [> `Style_Attr ] attrib
+          val a_property : string wrap -> [> `Property ] attrib
+          val a_role : string list wrap -> [> `Role ] attrib
+          val a_aria : string -> string list wrap -> [> `Aria ] attrib
+          val txt : string wrap -> [> Html_types.txt ] elt
+          val html :
+            ?a:Html_types.html_attrib attrib list ->
+            [< Html_types.head ] elt wrap ->
+            [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
+          val head :
+            ?a:Html_types.head_attrib attrib list ->
+            [< Html_types.title ] elt wrap ->
+            Html_types.head_content_fun elt list_wrap ->
+            [> Html_types.head ] elt
+          val base :
+            ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
+          val title :
+            (Html_types.title_attrib, [< Html_types.title_content_fun ],
+             [> Html_types.title ])
+            unary
+          val body :
+            ([< Html_types.body_attrib ], [< Html_types.body_content_fun ],
+             [> Html_types.body ])
+            star
+          val svg :
+            ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+            [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
+            [> Html_types.svg ] elt
+          val footer :
+            ([< Html_types.footer_attrib ],
+             [< Html_types.footer_content_fun ], [> Html_types.footer ])
+            star
+          val header :
+            ([< Html_types.header_attrib ],
+             [< Html_types.header_content_fun ], [> Html_types.header ])
+            star
+          val section :
+            ([< Html_types.section_attrib ],
+             [< Html_types.section_content_fun ], [> Html_types.section ])
+            star
+          val nav :
+            ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
+             [> Html_types.nav ])
+            star
+          val h1 :
+            ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
+             [> Html_types.h1 ])
+            star
+          val h2 :
+            ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
+             [> Html_types.h2 ])
+            star
+          val h3 :
+            ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
+             [> Html_types.h3 ])
+            star
+          val h4 :
+            ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
+             [> Html_types.h4 ])
+            star
+          val h5 :
+            ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
+             [> Html_types.h5 ])
+            star
+          val h6 :
+            ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
+             [> Html_types.h6 ])
+            star
+          val hgroup :
+            ([< Html_types.hgroup_attrib ],
+             [< Html_types.hgroup_content_fun ], [> Html_types.hgroup ])
+            star
+          val address :
+            ([< Html_types.address_attrib ],
+             [< Html_types.address_content_fun ], [> Html_types.address ])
+            star
+          val article :
+            ([< Html_types.article_attrib ],
+             [< Html_types.article_content_fun ], [> Html_types.article ])
+            star
+          val aside :
+            ([< Html_types.aside_attrib ], [< Html_types.aside_content_fun ],
+             [> Html_types.aside ])
+            star
+          val main :
+            ([< Html_types.main_attrib ], [< Html_types.main_content_fun ],
+             [> Html_types.main ])
+            star
+          val p :
+            ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
+             [> Html_types.p ])
+            star
+          val pre :
+            ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
+             [> Html_types.pre ])
+            star
+          val blockquote :
+            ([< Html_types.blockquote_attrib ],
+             [< Html_types.blockquote_content_fun ],
+             [> Html_types.blockquote ])
+            star
+          val dialog :
+            ([< Html_types.dialog_attrib ],
+             [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+            star
+          val div :
+            ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
+             [> Html_types.div ])
+            star
+          val dl :
+            ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
+             [> Html_types.dl ])
+            star
+          val ol :
+            ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
+             [> Html_types.ol ])
+            star
+          val ul :
+            ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
+             [> Html_types.ul ])
+            star
+          val dd :
+            ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
+             [> Html_types.dd ])
+            star
+          val dt :
+            ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
+             [> Html_types.dt ])
+            star
+          val li :
+            ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
+             [> Html_types.li ])
+            star
+          val figcaption :
+            ([< Html_types.figcaption_attrib ],
+             [< Html_types.figcaption_content_fun ],
+             [> Html_types.figcaption ])
+            star
+          val figure :
+            ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
+                        | `Top of [< Html_types.figcaption ] elt wrap ] ->
+            ([< Html_types.figure_attrib ],
+             [< Html_types.figure_content_fun ], [> Html_types.figure ])
+            star
+          val hr : ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
+          val b :
+            ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
+             [> Html_types.b ])
+            star
+          val i :
+            ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
+             [> Html_types.i ])
+            star
+          val u :
+            ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
+             [> Html_types.u ])
+            star
+          val small :
+            ([< Html_types.small_attrib ], [< Html_types.small_content_fun ],
+             [> Html_types.small ])
+            star
+          val sub :
+            ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
+             [> Html_types.sub ])
+            star
+          val sup :
+            ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
+             [> Html_types.sup ])
+            star
+          val mark :
+            ([< Html_types.mark_attrib ], [< Html_types.mark_content_fun ],
+             [> Html_types.mark ])
+            star
+          val wbr : ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
+          val bdo :
+            dir:[< `Ltr | `Rtl ] wrap ->
+            ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
+             [> Html_types.bdo ])
+            star
+          val abbr :
+            ([< Html_types.abbr_attrib ], [< Html_types.abbr_content_fun ],
+             [> Html_types.abbr ])
+            star
+          val br : ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
+          val cite :
+            ([< Html_types.cite_attrib ], [< Html_types.cite_content_fun ],
+             [> Html_types.cite ])
+            star
+          val code :
+            ([< Html_types.code_attrib ], [< Html_types.code_content_fun ],
+             [> Html_types.code ])
+            star
+          val dfn :
+            ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
+             [> Html_types.dfn ])
+            star
+          val em :
+            ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
+             [> Html_types.em ])
+            star
+          val kbd :
+            ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
+             [> Html_types.kbd ])
+            star
+          val q :
+            ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
+             [> Html_types.q ])
+            star
+          val samp :
+            ([< Html_types.samp_attrib ], [< Html_types.samp_content_fun ],
+             [> Html_types.samp ])
+            star
+          val span :
+            ([< Html_types.span_attrib ], [< Html_types.span_content_fun ],
+             [> Html_types.span ])
+            star
+          val strong :
+            ([< Html_types.strong_attrib ],
+             [< Html_types.strong_content_fun ], [> Html_types.strong ])
+            star
+          val time :
+            ([< Html_types.time_attrib ], [< Html_types.time_content_fun ],
+             [> Html_types.time ])
+            star
+          val var :
+            ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
+             [> Html_types.var ])
+            star
+          val a : ([< Html_types.a_attrib ], 'a, [> 'a Html_types.a ]) star
+          val del :
+            ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
+          val ins :
+            ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
+          val img :
+            src:Xml.uri wrap ->
+            alt:Html_types.text wrap ->
+            ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
+          val picture :
+            img:[< Html_types.img ] elt wrap ->
+            ([< Html_types.picture_attrib ],
+             [< Html_types.picture_content_fun ], [> Html_types.picture ])
+            star
+          val iframe :
+            ([< Html_types.iframe_attrib ],
+             [< Html_types.iframe_content_fun ], [> Html_types.iframe ])
+            star
+          val object_ :
+            ?params:[< Html_types.param ] elt list_wrap ->
+            ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
+          val param :
+            ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
+          val embed :
+            ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
+          val audio :
+            ?src:Xml.uri wrap ->
+            ?srcs:[< Html_types.source ] elt list_wrap ->
+            ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ]) star
+          val video :
+            ?src:Xml.uri wrap ->
+            ?srcs:[< Html_types.source ] elt list_wrap ->
+            ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ]) star
+          val canvas :
+            ([< Html_types.canvas_attrib ], 'a, [> 'a Html_types.canvas ])
+            star
+          val source :
+            ([< Html_types.source_attrib ], [> Html_types.source ]) nullary
+          val area :
+            alt:Html_types.text wrap ->
+            ([< `Accesskey
+              | `Alt
+              | `Aria
+              | `Class
+              | `Contenteditable
+              | `Contextmenu
+              | `Coords
+              | `Dir
+              | `Draggable
+              | `Hidden
+              | `Hreflang
+              | `Id
+              | `Lang
+              | `Media
+              | `Mime_type
+              | `OnAbort
+              | `OnBlur
+              | `OnCanPlay
+              | `OnCanPlayThrough
+              | `OnChange
+              | `OnClick
+              | `OnClose
+              | `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
+              | `Rel
+              | `Role
+              | `Shape
+              | `Spellcheck
+              | `Style_Attr
+              | `Tabindex
+              | `Target
+              | `Title
+              | `Translate
+              | `User_data
+              | `XML_lang
+              | `XMLns ],
+             [> Html_types.area ])
+            nullary
+          val map :
+            ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
+          val caption :
+            ([< Html_types.caption_attrib ],
+             [< Html_types.caption_content_fun ], [> Html_types.caption ])
+            star
+          val table :
+            ?caption:[< Html_types.caption ] elt wrap ->
+            ?columns:[< Html_types.colgroup ] elt list_wrap ->
+            ?thead:[< Html_types.thead ] elt wrap ->
+            ?tfoot:[< Html_types.tfoot ] elt wrap ->
+            ([< Html_types.table_attrib ], [< Html_types.table_content_fun ],
+             [> Html_types.table ])
+            star
+          val tablex :
+            ?caption:[< Html_types.caption ] elt wrap ->
+            ?columns:[< Html_types.colgroup ] elt list_wrap ->
+            ?thead:[< Html_types.thead ] elt wrap ->
+            ?tfoot:[< Html_types.tfoot ] elt wrap ->
+            ([< Html_types.tablex_attrib ],
+             [< Html_types.tablex_content_fun ], [> Html_types.tablex ])
+            star
+          val colgroup :
+            ([< Html_types.colgroup_attrib ],
+             [< Html_types.colgroup_content_fun ], [> Html_types.colgroup ])
+            star
+          val col : ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
+          val thead :
+            ([< Html_types.thead_attrib ], [< Html_types.thead_content_fun ],
+             [> Html_types.thead ])
+            star
+          val tbody :
+            ([< Html_types.tbody_attrib ], [< Html_types.tbody_content_fun ],
+             [> Html_types.tbody ])
+            star
+          val tfoot :
+            ([< Html_types.tfoot_attrib ], [< Html_types.tfoot_content_fun ],
+             [> Html_types.tfoot ])
+            star
+          val td :
+            ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
+             [> Html_types.td ])
+            star
+          val th :
+            ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
+             [> Html_types.th ])
+            star
+          val tr :
+            ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
+             [> Html_types.tr ])
+            star
+          val form :
+            ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
+             [> Html_types.form ])
+            star
+          val fieldset :
+            ?legend:[< Html_types.legend ] elt wrap ->
+            ([< Html_types.fieldset_attrib ],
+             [< Html_types.fieldset_content_fun ], [> Html_types.fieldset ])
+            star
+          val legend :
+            ([< Html_types.legend_attrib ],
+             [< Html_types.legend_content_fun ], [> Html_types.legend ])
+            star
+          val label :
+            ([< Html_types.label_attrib ], [< Html_types.label_content_fun ],
+             [> Html_types.label ])
+            star
+          val input :
+            ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
+          val button :
+            ([< Html_types.button_attrib ],
+             [< Html_types.button_content_fun ], [> Html_types.button ])
+            star
+          val select :
+            ([< Html_types.select_attrib ],
+             [< Html_types.select_content_fun ], [> Html_types.select ])
+            star
+          val datalist :
+            ?children:[< `Options of
+                           [< Html_types.selectoption ] elt list_wrap
+                       | `Phras of [< Html_types.phrasing ] elt list_wrap ] ->
+            ([< Html_types.datalist_attrib ], [> Html_types.datalist ])
+            nullary
+          val optgroup :
+            label:Html_types.text wrap ->
+            ([< Html_types.optgroup_attrib ],
+             [< Html_types.optgroup_content_fun ], [> Html_types.optgroup ])
+            star
+          val option :
+            ([< Html_types.option_attrib ],
+             [< Html_types.option_content_fun ],
+             [> Html_types.selectoption ])
+            unary
+          val textarea :
+            ([< Html_types.textarea_attrib ],
+             [< Html_types.textarea_content_fun ], [> Html_types.textarea ])
+            unary
+          val keygen :
+            ([< Html_types.keygen_attrib ], [> Html_types.keygen ]) nullary
+          val progress :
+            ([< Html_types.progress_attrib ],
+             [< Html_types.progress_content_fun ], [> Html_types.progress ])
+            star
+          val meter :
+            ([< Html_types.meter_attrib ], [< Html_types.meter_content_fun ],
+             [> Html_types.meter ])
+            star
+          val output_elt :
+            ([< Html_types.output_elt_attrib ],
+             [< Html_types.output_elt_content_fun ],
+             [> Html_types.output_elt ])
+            star
+          val entity : string -> [> Html_types.txt ] elt
+          val space : unit -> [> Html_types.txt ] elt
+          val cdata : string -> [> Html_types.txt ] elt
+          val cdata_script : string -> [> Html_types.txt ] elt
+          val cdata_style : string -> [> Html_types.txt ] elt
+          val details :
+            [< Html_types.summary ] elt wrap ->
+            ([< Html_types.details_attrib ],
+             [< Html_types.details_content_fun ], [> Html_types.details ])
+            star
+          val summary :
+            ([< Html_types.summary_attrib ],
+             [< Html_types.summary_content_fun ], [> Html_types.summary ])
+            star
+          val command :
+            label:Html_types.text wrap ->
+            ([< Html_types.command_attrib ], [> Html_types.command ]) nullary
+          val menu :
+            ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
+                       | `Lis of
+                           [< `Li of [< Html_types.common ] ] elt list_wrap ] ->
+            ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
+          val script :
+            ([< Html_types.script_attrib ],
+             [< Html_types.script_content_fun ], [> Html_types.script ])
+            unary
+          val noscript :
+            ([< Html_types.noscript_attrib ],
+             [< Html_types.noscript_content_fun ], [> Html_types.noscript ])
+            star
+          val template :
+            ([< Html_types.template_attrib ],
+             [< Html_types.template_content_fun ], [> Html_types.template ])
+            star
+          val meta :
+            ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
+          val style :
+            ([< Html_types.style_attrib ], [< Html_types.style_content_fun ],
+             [> Html_types.style ])
+            star
+          val link :
+            rel:Html_types.linktypes wrap ->
+            href:Xml.uri wrap ->
+            ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
+          val rt :
+            ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
+             [> Html_types.rt ])
+            star
+          val rp :
+            ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
+             [> Html_types.rp ])
+            star
+          val ruby :
+            ([< Html_types.ruby_attrib ], [< Html_types.ruby_content_fun ],
+             [> Html_types.ruby ])
+            star
+          val pcdata : string wrap -> [> Html_types.pcdata ] elt
+          val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+          val tot : Xml.elt -> 'a elt
+          val totl : Xml.elt list_wrap -> 'a elt list_wrap
+          val toelt : 'a elt -> Xml.elt
+          val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+          val doc_toelt : doc -> Xml.elt
+          val to_xmlattribs : 'a attrib list -> Xml.attrib list
+          val to_attrib : Xml.attrib -> 'a attrib
+          module Unsafe :
+            sig
+              val data : string wrap -> 'a elt
+              val node :
+                string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+              val coerce_elt : 'a elt -> 'b elt
+              val string_attrib : string -> string wrap -> 'a attrib
+              val float_attrib : string -> float wrap -> 'a attrib
+              val int_attrib : string -> int wrap -> 'a attrib
+              val uri_attrib : string -> uri wrap -> 'a attrib
+              val space_sep_attrib : string -> string list wrap -> 'a attrib
+              val comma_sep_attrib : string -> string list wrap -> 'a attrib
+            end
         end
-    end
-  module D :
-    sig
       module Raw :
         sig
           type 'a elt = 'a elt
@@ -2160,116 +4030,21 @@
           module Info : Xml_sigs.Info
           type uri = Xml.uri
           val string_of_uri : (uri, string) Xml.W.ft
-          val uri_of_string : (string, uri) Xml.W.ft
-          val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
-          val a_user_data :
-            Html_types.nmtoken ->
-            Html_types.text wrap -> [> `User_data ] attrib
-          val a_id : Html_types.text wrap -> [> `Id ] attrib
-          val a_title : Html_types.text wrap -> [> `Title ] attrib
-          val a_xml_lang :
-            Html_types.languagecode wrap -> [> `XML_lang ] attrib
-          val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-          val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-          val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
-          val a_onbeforeprint :
-            Xml.event_handler -> [> `OnBeforePrint ] attrib
-          val a_onbeforeunload :
-            Xml.event_handler -> [> `OnBeforeUnload ] attrib
-          val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-          val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-          val a_oncanplaythrough :
-            Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-          val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-          val a_ondurationchange :
-            Xml.event_handler -> [> `OnDurationChange ] attrib
-          val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-          val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-          val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-          val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-          val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
-          val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
-          val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
-          val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-          val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-          val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
-          val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-          val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-          val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-          val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-          val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-          val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-          val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-          val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-          val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-          val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
-          val a_onreadystatechange :
-            Xml.event_handler -> [> `OnReadyStateChange ] attrib
-          val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-          val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-          val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-          val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-          val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-          val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-          val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-          val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-          val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-          val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-          val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-          val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
-          val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-          val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-          val a_onvolumechange :
-            Xml.event_handler -> [> `OnVolumeChange ] attrib
-          val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-          val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-          val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
-          val a_onloadedmetadata :
-            Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-          val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
-          val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-          val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-          val a_oncontextmenu :
-            Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-          val a_ondblclick :
-            Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-          val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-          val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-          val a_ondragenter :
-            Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-          val a_ondragleave :
-            Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-          val a_ondragover :
-            Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-          val a_ondragstart :
-            Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-          val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-          val a_onmousedown :
-            Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-          val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-          val a_onmouseover :
-            Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-          val a_onmousemove :
-            Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-          val a_onmouseout :
-            Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-          val a_ontouchstart :
-            Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-          val a_ontouchend :
-            Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-          val a_ontouchmove :
-            Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-          val a_ontouchcancel :
-            Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-          val a_onkeypress :
-            Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-          val a_onkeydown :
-            Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-          val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+          val uri_of_string : (string, uri) Xml.W.ft
+          val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+          val a_user_data :
+            Html_types.nmtoken ->
+            Html_types.text wrap -> [> `User_data ] attrib
+          val a_id : Html_types.text wrap -> [> `Id ] attrib
+          val a_title : Html_types.text wrap -> [> `Title ] attrib
+          val a_xml_lang :
+            Html_types.languagecode wrap -> [> `XML_lang ] attrib
+          val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
           val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
           val a_allowpaymentrequest :
             unit -> [> `Allowpaymentrequest ] attrib
-          val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+          val a_autocomplete :
+            Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
           val a_async : unit -> [> `Async ] attrib
           val a_autofocus : unit -> [> `Autofocus ] attrib
           val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -2387,7 +4162,8 @@
           val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
           val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
           val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-          val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+          val a_formmethod :
+            [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
           val a_multiple : unit -> [> `Multiple ] attrib
           val a_name : Html_types.text wrap -> [> `Name ] attrib
           val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -2428,6 +4204,8 @@
           val a_readonly : unit -> [> `ReadOnly ] attrib
           val a_button_type :
             [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+          val a_script_type :
+            Html_types.script_type wrap -> [> `Script_type ] attrib
           val a_command_type :
             [< `Checkbox | `Command | `Radio ] wrap ->
             [> `Command_Type ] attrib
@@ -2497,8 +4275,8 @@
              [> Html_types.body ])
             star
           val svg :
-            ?a:[< Html_types.svg_attrib ] Svg.D.Raw.attrib list ->
-            [< Html_types.svg_content ] Svg.D.Raw.elt list_wrap ->
+            ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+            [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
             [> Html_types.svg ] elt
           val footer :
             ([< Html_types.footer_attrib ],
@@ -2573,6 +4351,10 @@
              [< Html_types.blockquote_content_fun ],
              [> Html_types.blockquote ])
             star
+          val dialog :
+            ([< Html_types.dialog_attrib ],
+             [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+            star
           val div :
             ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
              [> Html_types.div ])
@@ -2757,6 +4539,7 @@
               | `OnCanPlayThrough
               | `OnChange
               | `OnClick
+              | `OnClose
               | `OnContextMenu
               | `OnDblClick
               | `OnDrag
@@ -3015,6 +4798,84 @@
               val space_sep_attrib : string -> string list wrap -> 'a attrib
               val comma_sep_attrib : string -> string list wrap -> 'a attrib
             end
+          val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+          val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+          val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+          val a_onbeforeunload : string -> [> `OnBeforeUnload ] Raw'.attrib
+          val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+          val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+          val a_oncanplaythrough :
+            string -> [> `OnCanPlayThrough ] Raw'.attrib
+          val a_onchange : string -> [> `OnChange ] Raw'.attrib
+          val a_onclose : string -> [> `OnClose ] Raw'.attrib
+          val a_ondurationchange :
+            string -> [> `OnDurationChange ] Raw'.attrib
+          val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+          val a_onended : string -> [> `OnEnded ] Raw'.attrib
+          val a_onerror : string -> [> `OnError ] Raw'.attrib
+          val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+          val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+          val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+          val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+          val a_oninput : string -> [> `OnInput ] Raw'.attrib
+          val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+          val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+          val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+          val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+          val a_onpause : string -> [> `OnPause ] Raw'.attrib
+          val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+          val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+          val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+          val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+          val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+          val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+          val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+          val a_onreadystatechange :
+            string -> [> `OnReadyStateChange ] Raw'.attrib
+          val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+          val a_onresize : string -> [> `OnResize ] Raw'.attrib
+          val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+          val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+          val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+          val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+          val a_onshow : string -> [> `OnShow ] Raw'.attrib
+          val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+          val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+          val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+          val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+          val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+          val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+          val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+          val a_onvolumechange : string -> [> `OnVolumeChange ] Raw'.attrib
+          val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+          val a_onload : string -> [> `OnLoad ] Raw'.attrib
+          val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+          val a_onloadedmetadata :
+            string -> [> `OnLoadedMetaData ] Raw'.attrib
+          val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+          val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+          val a_onclick : string -> [> `OnClick ] Raw'.attrib
+          val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+          val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+          val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+          val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+          val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+          val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+          val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+          val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+          val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+          val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+          val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+          val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+          val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+          val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+          val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+          val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+          val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+          val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+          val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+          val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+          val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
         end
       type 'a elt = 'a elt
       type doc = Html_types.html elt
@@ -3097,6 +4958,7 @@
       val a_oncanplaythrough :
         Xml.event_handler -> [> `OnCanPlayThrough ] attrib
       val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+      val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
       val a_ondurationchange :
         Xml.event_handler -> [> `OnDurationChange ] attrib
       val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
@@ -3171,7 +5033,8 @@
       val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
       val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
       val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-      val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+      val a_autocomplete :
+        Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
       val a_async : unit -> [> `Async ] attrib
       val a_autofocus : unit -> [> `Autofocus ] attrib
       val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -3279,7 +5142,7 @@
       val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
       val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
       val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-      val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+      val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
       val a_multiple : unit -> [> `Multiple ] attrib
       val a_name : Html_types.text wrap -> [> `Name ] attrib
       val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -3320,6 +5183,8 @@
       val a_readonly : unit -> [> `ReadOnly ] attrib
       val a_button_type :
         [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+      val a_script_type :
+        Html_types.script_type wrap -> [> `Script_type ] attrib
       val a_command_type :
         [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
       val a_menu_type :
@@ -3382,8 +5247,8 @@
          [> Html_types.body ])
         star
       val svg :
-        ?a:[< Html_types.svg_attrib ] Svg.D.Raw.attrib list ->
-        [< Html_types.svg_content ] Svg.D.Raw.elt list_wrap ->
+        ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+        [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
         [> Html_types.svg ] elt
       val footer :
         ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
@@ -3457,6 +5322,10 @@
         ([< Html_types.blockquote_attrib ],
          [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
         star
+      val dialog :
+        ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+         [> Html_types.dialog ])
+        star
       val div :
         ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
          [> Html_types.div ])
@@ -3636,6 +5505,7 @@
           | `OnCanPlayThrough
           | `OnChange
           | `OnClick
+          | `OnClose
           | `OnContextMenu
           | `OnDblClick
           | `OnDrag
@@ -4100,6 +5970,7 @@
                 | `OnCanPlayThrough
                 | `OnChange
                 | `OnClick
+                | `OnClose
                 | `OnContextMenu
                 | `OnDblClick
                 | `OnDrag
@@ -4164,46 +6035,964 @@
                 '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
+            ?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
+  module R :
+    sig
+      val node :
+        'a Eliom_content.Html.elt React.signal Eliom_client_value.t ->
+        'a Eliom_content.Html.elt
+      val filter_attrib :
+        'a Eliom_content.Html.attrib ->
+        bool React.signal -> 'a Eliom_content.Html.attrib
+      module Raw :
+        sig
+          type 'a elt = 'a elt
+          type doc = Html_types.html elt
+          type 'a attrib = 'a attrib
+          module Xml :
+            sig
+              module W :
+                sig
+                  type 'a t = 'a Eliom_content_core.Xml_wed.W.t
+                  val return : 'a -> 'a t
+                  type ('a, 'b) ft = ('a, 'b) Eliom_content_core.Xml_wed.W.ft
+                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                  type 'a tlist = 'a Eliom_content_core.Xml_wed.W.tlist
+                  val nil : unit -> 'a tlist
+                  val singleton : 'a t -> 'a tlist
+                  val cons : 'a t -> 'a tlist -> 'a tlist
+                  val append : 'a tlist -> 'a tlist -> 'a tlist
+                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                end
+              type 'a wrap = 'a W.t
+              type 'a list_wrap = 'a W.tlist
+              type uri = Eliom_content_core.Xml_wed.uri
+              val string_of_uri : (uri, string) W.ft
+              val uri_of_string : (string, uri) W.ft
+              type aname = string
+              type event_handler = Eliom_content_core.Xml_wed.event_handler
+              type mouse_event_handler =
+                  Eliom_content_core.Xml_wed.mouse_event_handler
+              type keyboard_event_handler =
+                  Eliom_content_core.Xml_wed.keyboard_event_handler
+              type touch_event_handler =
+                  Eliom_content_core.Xml_wed.touch_event_handler
+              type attrib = Eliom_content_core.Xml_wed.attrib
+              val float_attrib : aname -> float wrap -> attrib
+              val int_attrib : aname -> int wrap -> attrib
+              val string_attrib : aname -> string wrap -> attrib
+              val space_sep_attrib : aname -> string list wrap -> attrib
+              val comma_sep_attrib : aname -> string list wrap -> attrib
+              val event_handler_attrib : aname -> event_handler -> attrib
+              val mouse_event_handler_attrib :
+                aname -> mouse_event_handler -> attrib
+              val keyboard_event_handler_attrib :
+                aname -> keyboard_event_handler -> attrib
+              val touch_event_handler_attrib :
+                aname -> touch_event_handler -> attrib
+              val uri_attrib : aname -> uri wrap -> attrib
+              val uris_attrib : aname -> uri list wrap -> attrib
+              type elt = Eliom_content_core.Xml_wed.elt
+              type ename = string
+              val empty : unit -> elt
+              val comment : string -> elt
+              val pcdata : string wrap -> elt
+              val encodedpcdata : string wrap -> elt
+              val entity : string -> elt
+              val leaf : ?a:attrib list -> ename -> elt
+              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+              val cdata : string -> elt
+              val cdata_script : string -> elt
+              val cdata_style : string -> elt
+            end
+          type 'a wrap = 'a Xml.W.t
+          type 'a list_wrap = 'a Xml.W.tlist
+          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+          type ('a, 'b, 'c) unary =
+              ?a:'a attrib list -> 'b elt wrap -> 'c elt
+          type ('a, 'b, 'c) star =
+              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          module Info : Xml_sigs.Info
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) Xml.W.ft
+          val uri_of_string : (string, uri) Xml.W.ft
+          val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+          val a_user_data :
+            Html_types.nmtoken ->
+            Html_types.text wrap -> [> `User_data ] attrib
+          val a_id : Html_types.text wrap -> [> `Id ] attrib
+          val a_title : Html_types.text wrap -> [> `Title ] attrib
+          val a_xml_lang :
+            Html_types.languagecode wrap -> [> `XML_lang ] attrib
+          val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
+          val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+          val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
+          val a_onbeforeprint :
+            Xml.event_handler -> [> `OnBeforePrint ] attrib
+          val a_onbeforeunload :
+            Xml.event_handler -> [> `OnBeforeUnload ] attrib
+          val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
+          val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
+          val a_oncanplaythrough :
+            Xml.event_handler -> [> `OnCanPlayThrough ] attrib
+          val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+          val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
+          val a_ondurationchange :
+            Xml.event_handler -> [> `OnDurationChange ] attrib
+          val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
+          val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
+          val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+          val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
+          val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
+          val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
+          val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
+          val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
+          val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
+          val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
+          val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
+          val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
+          val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
+          val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
+          val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
+          val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
+          val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
+          val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
+          val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
+          val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
+          val a_onreadystatechange :
+            Xml.event_handler -> [> `OnReadyStateChange ] attrib
+          val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
+          val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+          val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+          val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
+          val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
+          val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
+          val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
+          val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
+          val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
+          val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
+          val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
+          val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
+          val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
+          val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+          val a_onvolumechange :
+            Xml.event_handler -> [> `OnVolumeChange ] attrib
+          val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
+          val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+          val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
+          val a_onloadedmetadata :
+            Xml.event_handler -> [> `OnLoadedMetaData ] attrib
+          val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
+          val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
+          val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+          val a_oncontextmenu :
+            Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
+          val a_ondblclick :
+            Xml.mouse_event_handler -> [> `OnDblClick ] attrib
+          val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
+          val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
+          val a_ondragenter :
+            Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
+          val a_ondragleave :
+            Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
+          val a_ondragover :
+            Xml.mouse_event_handler -> [> `OnDragOver ] attrib
+          val a_ondragstart :
+            Xml.mouse_event_handler -> [> `OnDragStart ] attrib
+          val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
+          val a_onmousedown :
+            Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+          val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+          val a_onmouseover :
+            Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+          val a_onmousemove :
+            Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+          val a_onmouseout :
+            Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+          val a_ontouchstart :
+            Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+          val a_ontouchend :
+            Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+          val a_ontouchmove :
+            Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+          val a_ontouchcancel :
+            Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+          val a_onkeypress :
+            Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
+          val a_onkeydown :
+            Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
+          val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+          val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
+          val a_allowpaymentrequest :
+            unit -> [> `Allowpaymentrequest ] attrib
+          val a_autocomplete :
+            Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
+          val a_async : unit -> [> `Async ] attrib
+          val a_autofocus : unit -> [> `Autofocus ] attrib
+          val a_autoplay : unit -> [> `Autoplay ] attrib
+          val a_muted : unit -> [> `Muted ] attrib
+          val a_crossorigin :
+            [< `Anonymous | `Use_credentials ] wrap ->
+            [> `Crossorigin ] attrib
+          val a_integrity : string wrap -> [> `Integrity ] attrib
+          val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
+          val a_challenge : Html_types.text wrap -> [> `Challenge ] attrib
+          val a_contenteditable : bool wrap -> [> `Contenteditable ] attrib
+          val a_contextmenu :
+            Html_types.idref wrap -> [> `Contextmenu ] attrib
+          val a_controls : unit -> [> `Controls ] attrib
+          val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
+          val a_draggable : bool wrap -> [> `Draggable ] attrib
+          val a_form : Html_types.idref wrap -> [> `Form ] attrib
+          val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
+          val a_formenctype :
+            Html_types.contenttype wrap -> [> `Formenctype ] attrib
+          val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
+          val a_formtarget : Html_types.text wrap -> [> `Formtarget ] attrib
+          val a_hidden : unit -> [> `Hidden ] attrib
+          val a_high : Html_types.float_number wrap -> [> `High ] attrib
+          val a_icon : Xml.uri wrap -> [> `Icon ] attrib
+          val a_ismap : unit -> [> `Ismap ] attrib
+          val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
+          val a_list : Html_types.idref wrap -> [> `List ] attrib
+          val a_loop : unit -> [> `Loop ] attrib
+          val a_low : Html_types.float_number wrap -> [> `High ] attrib
+          val a_max : Html_types.float_number wrap -> [> `Max ] attrib
+          val a_input_max :
+            Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
+          val a_min : Html_types.float_number wrap -> [> `Min ] attrib
+          val a_input_min :
+            Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
+          val a_inputmode :
+            [< `Decimal
+             | `Email
+             | `None
+             | `Numeric
+             | `Search
+             | `Tel
+             | `Text
+             | `Url ]
+            wrap -> [> `Inputmode ] attrib
+          val a_novalidate : unit -> [> `Novalidate ] attrib
+          val a_open : unit -> [> `Open ] attrib
+          val a_optimum :
+            Html_types.float_number wrap -> [> `Optimum ] attrib
+          val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
+          val a_placeholder :
+            Html_types.text wrap -> [> `Placeholder ] attrib
+          val a_poster : Xml.uri wrap -> [> `Poster ] attrib
+          val a_preload :
+            [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
+          val a_pubdate : unit -> [> `Pubdate ] attrib
+          val a_radiogroup : Html_types.text wrap -> [> `Radiogroup ] attrib
+          val a_referrerpolicy :
+            Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
+          val a_required : unit -> [> `Required ] attrib
+          val a_reversed : unit -> [> `Reversed ] attrib
+          val a_sandbox :
+            [< Html_types.sandbox_token ] list wrap -> [> `Sandbox ] attrib
+          val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
+          val a_scoped : unit -> [> `Scoped ] attrib
+          val a_seamless : unit -> [> `Seamless ] attrib
+          val a_sizes :
+            (Html_types.number * Html_types.number) list option wrap ->
+            [> `Sizes ] attrib
+          val a_span : Html_types.number wrap -> [> `Span ] attrib
+          val a_srclang : Html_types.nmtoken wrap -> [> `XML_lang ] attrib
+          type image_candidate =
+              [ `Url of uri
+              | `Url_pixel of uri * Html_types.float_number
+              | `Url_width of uri * Html_types.number ]
+          val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
+          val a_img_sizes :
+            Html_types.text list wrap -> [> `Img_sizes ] attrib
+          val a_start : Html_types.number wrap -> [> `Start ] attrib
+          val a_step :
+            Html_types.float_number option wrap -> [> `Step ] attrib
+          val a_translate : [< `No | `Yes ] wrap -> [> `Translate ] attrib
+          val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
+          val a_version : Html_types.cdata wrap -> [> `Version ] attrib
+          val a_xmlns : [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
+          val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
+          val a_cite : Xml.uri wrap -> [> `Cite ] attrib
+          val a_xml_space :
+            [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
+          val a_accesskey :
+            Html_types.character wrap -> [> `Accesskey ] attrib
+          val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
+          val a_accept_charset :
+            Html_types.charsets wrap -> [> `Accept_charset ] attrib
+          val a_accept : Html_types.contenttypes wrap -> [> `Accept ] attrib
+          val a_href : Xml.uri wrap -> [> `Href ] attrib
+          val a_hreflang :
+            Html_types.languagecode wrap -> [> `Hreflang ] attrib
+          val a_download : string option wrap -> [> `Download ] attrib
+          val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
+          val a_tabindex : Html_types.number wrap -> [> `Tabindex ] attrib
+          val a_mime_type :
+            Html_types.contenttype wrap -> [> `Mime_type ] attrib
+          val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
+          val a_action : Xml.uri wrap -> [> `Action ] attrib
+          val a_checked : unit -> [> `Checked ] attrib
+          val a_cols : Html_types.number wrap -> [> `Cols ] attrib
+          val a_enctype : Html_types.contenttype wrap -> [> `Enctype ] attrib
+          val a_label_for : Html_types.idref wrap -> [> `Label_for ] attrib
+          val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
+          val a_output_for :
+            Html_types.idrefs wrap -> [> `Output_for ] attrib
+          val a_for_list : Html_types.idrefs wrap -> [> `Output_for ] attrib
+          val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
+          val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
+          val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
+          val a_formmethod :
+            [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
+          val a_multiple : unit -> [> `Multiple ] attrib
+          val a_name : Html_types.text wrap -> [> `Name ] attrib
+          val a_rows : Html_types.number wrap -> [> `Rows ] attrib
+          val a_selected : unit -> [> `Selected ] attrib
+          val a_size : Html_types.number wrap -> [> `Size ] attrib
+          val a_src : Xml.uri wrap -> [> `Src ] attrib
+          val a_input_type :
+            [< `Button
+             | `Checkbox
+             | `Color
+             | `Date
+             | `Datetime
+             | `Datetime_local
+             | `Email
+             | `File
+             | `Hidden
+             | `Image
+             | `Month
+             | `Number
+             | `Password
+             | `Radio
+             | `Range
+             | `Reset
+             | `Search
+             | `Submit
+             | `Tel
+             | `Text
+             | `Time
+             | `Url
+             | `Week ]
+            wrap -> [> `Input_Type ] attrib
+          val a_text_value : Html_types.text wrap -> [> `Text_Value ] attrib
+          val a_int_value : Html_types.number wrap -> [> `Int_Value ] attrib
+          val a_value : Html_types.cdata wrap -> [> `Value ] attrib
+          val a_float_value :
+            Html_types.float_number wrap -> [> `Float_Value ] attrib
+          val a_disabled : unit -> [> `Disabled ] attrib
+          val a_readonly : unit -> [> `ReadOnly ] attrib
+          val a_button_type :
+            [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+          val a_script_type :
+            Html_types.script_type wrap -> [> `Script_type ] attrib
+          val a_command_type :
+            [< `Checkbox | `Command | `Radio ] wrap ->
+            [> `Command_Type ] attrib
+          val a_menu_type :
+            [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
+          val a_label : Html_types.text wrap -> [> `Label ] attrib
+          val a_align :
+            [< `Char | `Justify | `Left | `Right ] wrap -> [> `Align ] attrib
+          val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
+          val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
+          val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
+          val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
+          val a_scope :
+            [< `Col | `Colgroup | `Row | `Rowgroup ] wrap ->
+            [> `Scope ] attrib
+          val a_summary : Html_types.text wrap -> [> `Summary ] attrib
+          val a_border : Html_types.pixels wrap -> [> `Border ] attrib
+          val a_rules :
+            [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
+            [> `Rules ] attrib
+          val a_char : Html_types.character wrap -> [> `Char ] attrib
+          val a_alt : Html_types.text wrap -> [> `Alt ] attrib
+          val a_height : Html_types.number wrap -> [> `Height ] attrib
+          val a_width : Html_types.number wrap -> [> `Width ] attrib
+          type shape = [ `Circle | `Default | `Poly | `Rect ]
+          val a_shape : shape wrap -> [> `Shape ] attrib
+          val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
+          val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
+          val a_data : Xml.uri wrap -> [> `Data ] attrib
+          val a_codetype :
+            Html_types.contenttype wrap -> [> `Codetype ] attrib
+          val a_frameborder :
+            [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
+          val a_marginheight :
+            Html_types.pixels wrap -> [> `Marginheight ] attrib
+          val a_marginwidth :
+            Html_types.pixels wrap -> [> `Marginwidth ] attrib
+          val a_scrolling :
+            [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
+          val a_target : Html_types.frametarget wrap -> [> `Target ] attrib
+          val a_content : Html_types.text wrap -> [> `Content ] attrib
+          val a_http_equiv : Html_types.text wrap -> [> `Http_equiv ] attrib
+          val a_defer : unit -> [> `Defer ] attrib
+          val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
+          val a_style : string wrap -> [> `Style_Attr ] attrib
+          val a_property : string wrap -> [> `Property ] attrib
+          val a_role : string list wrap -> [> `Role ] attrib
+          val a_aria : string -> string list wrap -> [> `Aria ] attrib
+          val txt : string wrap -> [> Html_types.txt ] elt
+          val html :
+            ?a:Html_types.html_attrib attrib list ->
+            [< Html_types.head ] elt wrap ->
+            [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
+          val head :
+            ?a:Html_types.head_attrib attrib list ->
+            [< Html_types.title ] elt wrap ->
+            Html_types.head_content_fun elt list_wrap ->
+            [> Html_types.head ] elt
+          val base :
+            ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
+          val title :
+            (Html_types.title_attrib, [< Html_types.title_content_fun ],
+             [> Html_types.title ])
+            unary
+          val body :
+            ([< Html_types.body_attrib ], [< Html_types.body_content_fun ],
+             [> Html_types.body ])
+            star
+          val svg :
+            ?a:[< Html_types.svg_attrib ] Svg.R.Raw.attrib list ->
+            [< Html_types.svg_content ] Svg.R.Raw.elt list_wrap ->
+            [> Html_types.svg ] elt
+          val footer :
+            ([< Html_types.footer_attrib ],
+             [< Html_types.footer_content_fun ], [> Html_types.footer ])
+            star
+          val header :
+            ([< Html_types.header_attrib ],
+             [< Html_types.header_content_fun ], [> Html_types.header ])
+            star
+          val section :
+            ([< Html_types.section_attrib ],
+             [< Html_types.section_content_fun ], [> Html_types.section ])
+            star
+          val nav :
+            ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
+             [> Html_types.nav ])
+            star
+          val h1 :
+            ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
+             [> Html_types.h1 ])
+            star
+          val h2 :
+            ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
+             [> Html_types.h2 ])
+            star
+          val h3 :
+            ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
+             [> Html_types.h3 ])
+            star
+          val h4 :
+            ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
+             [> Html_types.h4 ])
+            star
+          val h5 :
+            ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
+             [> Html_types.h5 ])
+            star
+          val h6 :
+            ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
+             [> Html_types.h6 ])
+            star
+          val hgroup :
+            ([< Html_types.hgroup_attrib ],
+             [< Html_types.hgroup_content_fun ], [> Html_types.hgroup ])
+            star
+          val address :
+            ([< Html_types.address_attrib ],
+             [< Html_types.address_content_fun ], [> Html_types.address ])
+            star
+          val article :
+            ([< Html_types.article_attrib ],
+             [< Html_types.article_content_fun ], [> Html_types.article ])
+            star
+          val aside :
+            ([< Html_types.aside_attrib ], [< Html_types.aside_content_fun ],
+             [> Html_types.aside ])
+            star
+          val main :
+            ([< Html_types.main_attrib ], [< Html_types.main_content_fun ],
+             [> Html_types.main ])
+            star
+          val p :
+            ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
+             [> Html_types.p ])
+            star
+          val pre :
+            ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
+             [> Html_types.pre ])
+            star
+          val blockquote :
+            ([< Html_types.blockquote_attrib ],
+             [< Html_types.blockquote_content_fun ],
+             [> Html_types.blockquote ])
+            star
+          val dialog :
+            ([< Html_types.dialog_attrib ],
+             [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+            star
+          val div :
+            ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
+             [> Html_types.div ])
+            star
+          val dl :
+            ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
+             [> Html_types.dl ])
+            star
+          val ol :
+            ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
+             [> Html_types.ol ])
+            star
+          val ul :
+            ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
+             [> Html_types.ul ])
+            star
+          val dd :
+            ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
+             [> Html_types.dd ])
+            star
+          val dt :
+            ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
+             [> Html_types.dt ])
+            star
+          val li :
+            ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
+             [> Html_types.li ])
+            star
+          val figcaption :
+            ([< Html_types.figcaption_attrib ],
+             [< Html_types.figcaption_content_fun ],
+             [> Html_types.figcaption ])
+            star
+          val figure :
+            ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
+                        | `Top of [< Html_types.figcaption ] elt wrap ] ->
+            ([< Html_types.figure_attrib ],
+             [< Html_types.figure_content_fun ], [> Html_types.figure ])
+            star
+          val hr : ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
+          val b :
+            ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
+             [> Html_types.b ])
+            star
+          val i :
+            ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
+             [> Html_types.i ])
+            star
+          val u :
+            ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
+             [> Html_types.u ])
+            star
+          val small :
+            ([< Html_types.small_attrib ], [< Html_types.small_content_fun ],
+             [> Html_types.small ])
+            star
+          val sub :
+            ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
+             [> Html_types.sub ])
+            star
+          val sup :
+            ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
+             [> Html_types.sup ])
+            star
+          val mark :
+            ([< Html_types.mark_attrib ], [< Html_types.mark_content_fun ],
+             [> Html_types.mark ])
+            star
+          val wbr : ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
+          val bdo :
+            dir:[< `Ltr | `Rtl ] wrap ->
+            ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
+             [> Html_types.bdo ])
+            star
+          val abbr :
+            ([< Html_types.abbr_attrib ], [< Html_types.abbr_content_fun ],
+             [> Html_types.abbr ])
+            star
+          val br : ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
+          val cite :
+            ([< Html_types.cite_attrib ], [< Html_types.cite_content_fun ],
+             [> Html_types.cite ])
+            star
+          val code :
+            ([< Html_types.code_attrib ], [< Html_types.code_content_fun ],
+             [> Html_types.code ])
+            star
+          val dfn :
+            ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
+             [> Html_types.dfn ])
+            star
+          val em :
+            ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
+             [> Html_types.em ])
+            star
+          val kbd :
+            ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
+             [> Html_types.kbd ])
+            star
+          val q :
+            ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
+             [> Html_types.q ])
+            star
+          val samp :
+            ([< Html_types.samp_attrib ], [< Html_types.samp_content_fun ],
+             [> Html_types.samp ])
+            star
+          val span :
+            ([< Html_types.span_attrib ], [< Html_types.span_content_fun ],
+             [> Html_types.span ])
+            star
+          val strong :
+            ([< Html_types.strong_attrib ],
+             [< Html_types.strong_content_fun ], [> Html_types.strong ])
+            star
+          val time :
+            ([< Html_types.time_attrib ], [< Html_types.time_content_fun ],
+             [> Html_types.time ])
+            star
+          val var :
+            ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
+             [> Html_types.var ])
+            star
+          val a : ([< Html_types.a_attrib ], 'a, [> 'a Html_types.a ]) star
+          val del :
+            ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
+          val ins :
+            ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
+          val img :
+            src:Xml.uri wrap ->
+            alt:Html_types.text wrap ->
+            ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
+          val picture :
+            img:[< Html_types.img ] elt wrap ->
+            ([< Html_types.picture_attrib ],
+             [< Html_types.picture_content_fun ], [> Html_types.picture ])
+            star
+          val iframe :
+            ([< Html_types.iframe_attrib ],
+             [< Html_types.iframe_content_fun ], [> Html_types.iframe ])
+            star
+          val object_ :
+            ?params:[< Html_types.param ] elt list_wrap ->
+            ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
+          val param :
+            ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
+          val embed :
+            ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
+          val audio :
+            ?src:Xml.uri wrap ->
+            ?srcs:[< Html_types.source ] elt list_wrap ->
+            ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ]) star
+          val video :
+            ?src:Xml.uri wrap ->
+            ?srcs:[< Html_types.source ] elt list_wrap ->
+            ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ]) star
+          val canvas :
+            ([< Html_types.canvas_attrib ], 'a, [> 'a Html_types.canvas ])
+            star
+          val source :
+            ([< Html_types.source_attrib ], [> Html_types.source ]) nullary
+          val area :
+            alt:Html_types.text wrap ->
+            ([< `Accesskey
+              | `Alt
+              | `Aria
+              | `Class
+              | `Contenteditable
+              | `Contextmenu
+              | `Coords
+              | `Dir
+              | `Draggable
+              | `Hidden
+              | `Hreflang
+              | `Id
+              | `Lang
+              | `Media
+              | `Mime_type
+              | `OnAbort
+              | `OnBlur
+              | `OnCanPlay
+              | `OnCanPlayThrough
+              | `OnChange
+              | `OnClick
+              | `OnClose
+              | `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
+              | `Rel
+              | `Role
+              | `Shape
+              | `Spellcheck
+              | `Style_Attr
+              | `Tabindex
+              | `Target
+              | `Title
+              | `Translate
+              | `User_data
+              | `XML_lang
+              | `XMLns ],
+             [> Html_types.area ])
+            nullary
+          val map :
+            ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
+          val caption :
+            ([< Html_types.caption_attrib ],
+             [< Html_types.caption_content_fun ], [> Html_types.caption ])
+            star
+          val table :
+            ?caption:[< Html_types.caption ] elt wrap ->
+            ?columns:[< Html_types.colgroup ] elt list_wrap ->
+            ?thead:[< Html_types.thead ] elt wrap ->
+            ?tfoot:[< Html_types.tfoot ] elt wrap ->
+            ([< Html_types.table_attrib ], [< Html_types.table_content_fun ],
+             [> Html_types.table ])
+            star
+          val tablex :
+            ?caption:[< Html_types.caption ] elt wrap ->
+            ?columns:[< Html_types.colgroup ] elt list_wrap ->
+            ?thead:[< Html_types.thead ] elt wrap ->
+            ?tfoot:[< Html_types.tfoot ] elt wrap ->
+            ([< Html_types.tablex_attrib ],
+             [< Html_types.tablex_content_fun ], [> Html_types.tablex ])
+            star
+          val colgroup :
+            ([< Html_types.colgroup_attrib ],
+             [< Html_types.colgroup_content_fun ], [> Html_types.colgroup ])
+            star
+          val col : ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
+          val thead :
+            ([< Html_types.thead_attrib ], [< Html_types.thead_content_fun ],
+             [> Html_types.thead ])
+            star
+          val tbody :
+            ([< Html_types.tbody_attrib ], [< Html_types.tbody_content_fun ],
+             [> Html_types.tbody ])
+            star
+          val tfoot :
+            ([< Html_types.tfoot_attrib ], [< Html_types.tfoot_content_fun ],
+             [> Html_types.tfoot ])
+            star
+          val td :
+            ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
+             [> Html_types.td ])
+            star
+          val th :
+            ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
+             [> Html_types.th ])
+            star
+          val tr :
+            ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
+             [> Html_types.tr ])
+            star
+          val form :
+            ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
+             [> Html_types.form ])
+            star
+          val fieldset :
+            ?legend:[< Html_types.legend ] elt wrap ->
+            ([< Html_types.fieldset_attrib ],
+             [< Html_types.fieldset_content_fun ], [> Html_types.fieldset ])
+            star
+          val legend :
+            ([< Html_types.legend_attrib ],
+             [< Html_types.legend_content_fun ], [> Html_types.legend ])
+            star
+          val label :
+            ([< Html_types.label_attrib ], [< Html_types.label_content_fun ],
+             [> Html_types.label ])
+            star
+          val input :
+            ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
+          val button :
+            ([< Html_types.button_attrib ],
+             [< Html_types.button_content_fun ], [> Html_types.button ])
+            star
+          val select :
+            ([< Html_types.select_attrib ],
+             [< Html_types.select_content_fun ], [> Html_types.select ])
+            star
+          val datalist :
+            ?children:[< `Options of
+                           [< Html_types.selectoption ] elt list_wrap
+                       | `Phras of [< Html_types.phrasing ] elt list_wrap ] ->
+            ([< Html_types.datalist_attrib ], [> Html_types.datalist ])
+            nullary
+          val optgroup :
+            label:Html_types.text wrap ->
+            ([< Html_types.optgroup_attrib ],
+             [< Html_types.optgroup_content_fun ], [> Html_types.optgroup ])
+            star
+          val option :
+            ([< Html_types.option_attrib ],
+             [< Html_types.option_content_fun ],
+             [> Html_types.selectoption ])
+            unary
+          val textarea :
+            ([< Html_types.textarea_attrib ],
+             [< Html_types.textarea_content_fun ], [> Html_types.textarea ])
+            unary
+          val keygen :
+            ([< Html_types.keygen_attrib ], [> Html_types.keygen ]) nullary
+          val progress :
+            ([< Html_types.progress_attrib ],
+             [< Html_types.progress_content_fun ], [> Html_types.progress ])
+            star
+          val meter :
+            ([< Html_types.meter_attrib ], [< Html_types.meter_content_fun ],
+             [> Html_types.meter ])
+            star
+          val output_elt :
+            ([< Html_types.output_elt_attrib ],
+             [< Html_types.output_elt_content_fun ],
+             [> Html_types.output_elt ])
+            star
+          val entity : string -> [> Html_types.txt ] elt
+          val space : unit -> [> Html_types.txt ] elt
+          val cdata : string -> [> Html_types.txt ] elt
+          val cdata_script : string -> [> Html_types.txt ] elt
+          val cdata_style : string -> [> Html_types.txt ] elt
+          val details :
+            [< Html_types.summary ] elt wrap ->
+            ([< Html_types.details_attrib ],
+             [< Html_types.details_content_fun ], [> Html_types.details ])
+            star
+          val summary :
+            ([< Html_types.summary_attrib ],
+             [< Html_types.summary_content_fun ], [> Html_types.summary ])
+            star
+          val command :
+            label:Html_types.text wrap ->
+            ([< Html_types.command_attrib ], [> Html_types.command ]) nullary
+          val menu :
+            ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
+                       | `Lis of
+                           [< `Li of [< Html_types.common ] ] elt list_wrap ] ->
+            ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
+          val script :
+            ([< Html_types.script_attrib ],
+             [< Html_types.script_content_fun ], [> Html_types.script ])
+            unary
+          val noscript :
+            ([< Html_types.noscript_attrib ],
+             [< Html_types.noscript_content_fun ], [> Html_types.noscript ])
+            star
+          val template :
+            ([< Html_types.template_attrib ],
+             [< Html_types.template_content_fun ], [> Html_types.template ])
+            star
+          val meta :
+            ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
+          val style :
+            ([< Html_types.style_attrib ], [< Html_types.style_content_fun ],
+             [> Html_types.style ])
+            star
+          val link :
+            rel:Html_types.linktypes wrap ->
+            href:Xml.uri wrap ->
+            ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
+          val rt :
+            ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
+             [> Html_types.rt ])
+            star
+          val rp :
+            ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
+             [> Html_types.rp ])
+            star
+          val ruby :
+            ([< Html_types.ruby_attrib ], [< Html_types.ruby_content_fun ],
+             [> Html_types.ruby ])
+            star
+          val pcdata : string wrap -> [> Html_types.pcdata ] elt
+          val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+          val tot : Xml.elt -> 'a elt
+          val totl : Xml.elt list_wrap -> 'a elt list_wrap
+          val toelt : 'a elt -> Xml.elt
+          val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+          val doc_toelt : doc -> Xml.elt
+          val to_xmlattribs : 'a attrib list -> Xml.attrib list
+          val to_attrib : Xml.attrib -> 'a attrib
+          module Unsafe :
+            sig
+              val data : string wrap -> 'a elt
+              val node :
+                string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+              val coerce_elt : 'a elt -> 'b elt
+              val string_attrib : string -> string wrap -> 'a attrib
+              val float_attrib : string -> float wrap -> 'a attrib
+              val int_attrib : string -> int wrap -> 'a attrib
+              val uri_attrib : string -> uri wrap -> 'a attrib
+              val space_sep_attrib : string -> string list wrap -> 'a attrib
+              val comma_sep_attrib : string -> string list wrap -> 'a attrib
+            end
         end
-    end
-  module C :
-    sig
-      val node :
-        ?init:'a Eliom_content.Html.elt ->
-        'a Eliom_content.Html.elt Eliom_client_value.t ->
-        'a Eliom_content.Html.elt
-      val attr :
-        ?init:'a Eliom_content.Html.attrib ->
-        'a Eliom_content.Html.attrib Eliom_client_value.t ->
-        'a Eliom_content.Html.attrib
-    end
-  module Id :
-    sig
-      type +'a id
-      val new_elt_id : ?global:bool -> unit -> 'a Eliom_content.Html.Id.id
-      val create_named_elt :
-        id:'a Eliom_content.Html.Id.id ->
-        'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
-      val create_global_elt :
-        'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
-      val create_request_elt :
-        ?reset:bool -> 'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
-      val have_id :
-        'a Eliom_content.Html.Id.id -> 'b Eliom_content.Html.elt -> bool
-    end
-  module R :
-    sig
       type 'a elt = 'a elt
       type doc = Html_types.html elt
       type 'a attrib = 'a attrib
@@ -4211,11 +7000,11 @@
         sig
           module W :
             sig
-              type 'a t = 'a Xml_shared.W.t
+              type 'a t = 'a Eliom_content_core.Xml_wed.W.t
               val return : 'a -> 'a t
-              type ('a, 'b) ft = ('a, 'b) Xml_shared.W.ft
+              type ('a, 'b) ft = ('a, 'b) Eliom_content_core.Xml_wed.W.ft
               val fmap : ('a, 'b) ft -> 'a t -> 'b t
-              type 'a tlist = 'a Xml_shared.W.tlist
+              type 'a tlist = 'a Eliom_content_core.Xml_wed.W.tlist
               val nil : unit -> 'a tlist
               val singleton : 'a t -> 'a tlist
               val cons : 'a t -> 'a tlist -> 'a tlist
@@ -4224,15 +7013,18 @@
             end
           type 'a wrap = 'a W.t
           type 'a list_wrap = 'a W.tlist
-          type uri = Xml_shared.uri
+          type uri = Eliom_content_core.Xml_wed.uri
           val string_of_uri : (uri, string) W.ft
           val uri_of_string : (string, uri) W.ft
           type aname = string
-          type event_handler = Xml_shared.event_handler
-          type mouse_event_handler = Xml_shared.mouse_event_handler
-          type keyboard_event_handler = Xml_shared.keyboard_event_handler
-          type touch_event_handler = Xml_shared.touch_event_handler
-          type attrib = Xml_shared.attrib
+          type event_handler = Eliom_content_core.Xml_wed.event_handler
+          type mouse_event_handler =
+              Eliom_content_core.Xml_wed.mouse_event_handler
+          type keyboard_event_handler =
+              Eliom_content_core.Xml_wed.keyboard_event_handler
+          type touch_event_handler =
+              Eliom_content_core.Xml_wed.touch_event_handler
+          type attrib = Eliom_content_core.Xml_wed.attrib
           val float_attrib : aname -> float wrap -> attrib
           val int_attrib : aname -> int wrap -> attrib
           val string_attrib : aname -> string wrap -> attrib
@@ -4247,7 +7039,7 @@
             aname -> touch_event_handler -> attrib
           val uri_attrib : aname -> uri wrap -> attrib
           val uris_attrib : aname -> uri list wrap -> attrib
-          type elt = Xml_shared.elt
+          type elt = Eliom_content_core.Xml_wed.elt
           type ename = string
           val empty : unit -> elt
           val comment : string -> elt
@@ -4286,6 +7078,7 @@
       val a_oncanplaythrough :
         Xml.event_handler -> [> `OnCanPlayThrough ] attrib
       val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+      val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
       val a_ondurationchange :
         Xml.event_handler -> [> `OnDurationChange ] attrib
       val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
@@ -4360,7 +7153,8 @@
       val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
       val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
       val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-      val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+      val a_autocomplete :
+        Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
       val a_async : unit -> [> `Async ] attrib
       val a_autofocus : unit -> [> `Autofocus ] attrib
       val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -4468,7 +7262,7 @@
       val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
       val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
       val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-      val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+      val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
       val a_multiple : unit -> [> `Multiple ] attrib
       val a_name : Html_types.text wrap -> [> `Name ] attrib
       val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -4509,6 +7303,8 @@
       val a_readonly : unit -> [> `ReadOnly ] attrib
       val a_button_type :
         [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+      val a_script_type :
+        Html_types.script_type wrap -> [> `Script_type ] attrib
       val a_command_type :
         [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
       val a_menu_type :
@@ -4646,6 +7442,10 @@
         ([< Html_types.blockquote_attrib ],
          [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
         star
+      val dialog :
+        ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+         [> Html_types.dialog ])
+        star
       val div :
         ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
          [> Html_types.div ])
@@ -4826,6 +7626,7 @@
           | `OnCanPlayThrough
           | `OnChange
           | `OnClick
+          | `OnClose
           | `OnContextMenu
           | `OnDblClick
           | `OnDrag
@@ -5055,6 +7856,7 @@
         ([< Html_types.ruby_attrib ], [< Html_types.ruby_content_fun ],
          [> Html_types.ruby ])
         star
+      val pcdata : string wrap -> [> Html_types.pcdata ] elt
       val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
       val tot : Xml.elt -> 'a elt
       val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -5077,15 +7879,31 @@
           val space_sep_attrib : string -> string list wrap -> 'a attrib
           val comma_sep_attrib : string -> string list wrap -> 'a attrib
         end
-      val pcdata :
-        string Eliom_shared.React.S.t ->
-        [> Html_types.span ] Eliom_content.Html.elt
+    end
+  module C :
+    sig
       val node :
-        'a Eliom_content.Html.elt Eliom_shared.React.S.t ->
-        'a Eliom_content.Html.elt
-      val filter_attrib :
-        'a Eliom_content.Html.attrib ->
-        bool Eliom_shared.React.S.t -> 'a Eliom_content.Html.attrib
+        ?init:'a Eliom_content.Html.D.elt ->
+        'a Eliom_content.Html.elt Eliom_client_value.t ->
+        'a Eliom_content.Html.D.elt
+      val attr :
+        ?init:'a Eliom_content.Html.attrib ->
+        'a Eliom_content.Html.attrib Eliom_client_value.t ->
+        'a Eliom_content.Html.attrib
+    end
+  module Id :
+    sig
+      type +'a id
+      val new_elt_id : ?global:bool -> unit -> 'a Eliom_content.Html.Id.id
+      val create_named_elt :
+        id:'a Eliom_content.Html.Id.id ->
+        'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
+      val create_global_elt :
+        'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
+      val create_request_elt :
+        ?reset:bool -> 'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
+      val get_element :
+        'a Eliom_content.Html.Id.id -> 'a Eliom_content.Html.elt option
     end
   module Custom_data :
     sig
@@ -5103,15 +7921,897 @@
       val attrib :
         'a Eliom_content.Html.Custom_data.t ->
         'a -> [> `User_data ] Eliom_content.Html.attrib
+      val get_dom :
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t ->
+        'a Eliom_content.Html.Custom_data.t -> 'a
+      val set_dom :
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t ->
+        'a Eliom_content.Html.Custom_data.t -> 'a -> unit
+    end
+  module To_dom :
+    sig
+      type 'a elt = 'a elt
+      val of_element :
+        'a elt -> Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_node : 'a elt -> Js_of_ocaml.Dom.node Js_of_ocaml.Js.t
+      val of_pcdata :
+        [< Html_types.pcdata ] elt -> Js_of_ocaml.Dom.text Js_of_ocaml.Js.t
+      val of_html :
+        [< Html_types.html ] elt ->
+        Js_of_ocaml.Dom_html.htmlElement Js_of_ocaml.Js.t
+      val of_head :
+        [< Html_types.head ] elt ->
+        Js_of_ocaml.Dom_html.headElement Js_of_ocaml.Js.t
+      val of_link :
+        [< Html_types.link ] elt ->
+        Js_of_ocaml.Dom_html.linkElement Js_of_ocaml.Js.t
+      val of_title :
+        [< Html_types.title ] elt ->
+        Js_of_ocaml.Dom_html.titleElement Js_of_ocaml.Js.t
+      val of_meta :
+        [< Html_types.meta ] elt ->
+        Js_of_ocaml.Dom_html.metaElement Js_of_ocaml.Js.t
+      val of_base :
+        [< Html_types.base ] elt ->
+        Js_of_ocaml.Dom_html.baseElement Js_of_ocaml.Js.t
+      val of_style :
+        [< Html_types.style ] elt ->
+        Js_of_ocaml.Dom_html.styleElement Js_of_ocaml.Js.t
+      val of_body :
+        [< Html_types.body ] elt ->
+        Js_of_ocaml.Dom_html.bodyElement Js_of_ocaml.Js.t
+      val of_form :
+        [< Html_types.form ] elt ->
+        Js_of_ocaml.Dom_html.formElement Js_of_ocaml.Js.t
+      val of_optgroup :
+        [< Html_types.optgroup ] elt ->
+        Js_of_ocaml.Dom_html.optGroupElement Js_of_ocaml.Js.t
+      val of_option :
+        [< Html_types.selectoption ] elt ->
+        Js_of_ocaml.Dom_html.optionElement Js_of_ocaml.Js.t
+      val of_select :
+        [< Html_types.select ] elt ->
+        Js_of_ocaml.Dom_html.selectElement Js_of_ocaml.Js.t
+      val of_input :
+        [< Html_types.input ] elt ->
+        Js_of_ocaml.Dom_html.inputElement Js_of_ocaml.Js.t
+      val of_textarea :
+        [< Html_types.textarea ] elt ->
+        Js_of_ocaml.Dom_html.textAreaElement Js_of_ocaml.Js.t
+      val of_button :
+        [< Html_types.button ] elt ->
+        Js_of_ocaml.Dom_html.buttonElement Js_of_ocaml.Js.t
+      val of_label :
+        [< Html_types.label ] elt ->
+        Js_of_ocaml.Dom_html.labelElement Js_of_ocaml.Js.t
+      val of_fieldset :
+        [< Html_types.fieldset ] elt ->
+        Js_of_ocaml.Dom_html.fieldSetElement Js_of_ocaml.Js.t
+      val of_legend :
+        [< Html_types.legend ] elt ->
+        Js_of_ocaml.Dom_html.legendElement Js_of_ocaml.Js.t
+      val of_ul :
+        [< Html_types.ul ] elt ->
+        Js_of_ocaml.Dom_html.uListElement Js_of_ocaml.Js.t
+      val of_ol :
+        [< Html_types.ol ] elt ->
+        Js_of_ocaml.Dom_html.oListElement Js_of_ocaml.Js.t
+      val of_dl :
+        [< Html_types.dl ] elt ->
+        Js_of_ocaml.Dom_html.dListElement Js_of_ocaml.Js.t
+      val of_li :
+        [< Html_types.li ] elt ->
+        Js_of_ocaml.Dom_html.liElement Js_of_ocaml.Js.t
+      val of_dialog :
+        [< Html_types.dialog ] elt ->
+        Js_of_ocaml.Dom_html.dialogElement Js_of_ocaml.Js.t
+      val of_div :
+        [< Html_types.div ] elt ->
+        Js_of_ocaml.Dom_html.divElement Js_of_ocaml.Js.t
+      val of_p :
+        [< Html_types.p ] elt ->
+        Js_of_ocaml.Dom_html.paragraphElement Js_of_ocaml.Js.t
+      val of_heading :
+        [< Html_types.heading ] elt ->
+        Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
+      val of_blockquote :
+        [< Html_types.blockquote ] elt ->
+        Js_of_ocaml.Dom_html.quoteElement Js_of_ocaml.Js.t
+      val of_pre :
+        [< Html_types.pre ] elt ->
+        Js_of_ocaml.Dom_html.preElement Js_of_ocaml.Js.t
+      val of_br :
+        [< Html_types.br ] elt ->
+        Js_of_ocaml.Dom_html.brElement Js_of_ocaml.Js.t
+      val of_hr :
+        [< Html_types.hr ] elt ->
+        Js_of_ocaml.Dom_html.hrElement Js_of_ocaml.Js.t
+      val of_del :
+        [< 'a Html_types.del ] elt ->
+        Js_of_ocaml.Dom_html.modElement Js_of_ocaml.Js.t
+      val of_ins :
+        [< 'a Html_types.ins ] elt ->
+        Js_of_ocaml.Dom_html.modElement Js_of_ocaml.Js.t
+      val of_a :
+        [< 'a Html_types.a ] elt ->
+        Js_of_ocaml.Dom_html.anchorElement Js_of_ocaml.Js.t
+      val of_img :
+        [< Html_types.img_interactive ] elt ->
+        Js_of_ocaml.Dom_html.imageElement Js_of_ocaml.Js.t
+      val of_object :
+        [< 'a Html_types.object_ ] elt ->
+        Js_of_ocaml.Dom_html.objectElement Js_of_ocaml.Js.t
+      val of_param :
+        [< Html_types.param ] elt ->
+        Js_of_ocaml.Dom_html.paramElement Js_of_ocaml.Js.t
+      val of_area :
+        [< Html_types.area ] elt ->
+        Js_of_ocaml.Dom_html.areaElement Js_of_ocaml.Js.t
+      val of_map :
+        [< 'a Html_types.map ] elt ->
+        Js_of_ocaml.Dom_html.mapElement Js_of_ocaml.Js.t
+      val of_script :
+        [< Html_types.script ] elt ->
+        Js_of_ocaml.Dom_html.scriptElement Js_of_ocaml.Js.t
+      val of_td :
+        [< `Td ] elt ->
+        Js_of_ocaml.Dom_html.tableCellElement Js_of_ocaml.Js.t
+      val of_tr :
+        [< Html_types.tr ] elt ->
+        Js_of_ocaml.Dom_html.tableRowElement Js_of_ocaml.Js.t
+      val of_col :
+        [< Html_types.col ] elt ->
+        Js_of_ocaml.Dom_html.tableColElement Js_of_ocaml.Js.t
+      val of_tfoot :
+        [< Html_types.tfoot ] elt ->
+        Js_of_ocaml.Dom_html.tableSectionElement Js_of_ocaml.Js.t
+      val of_thead :
+        [< Html_types.thead ] elt ->
+        Js_of_ocaml.Dom_html.tableSectionElement Js_of_ocaml.Js.t
+      val of_tbody :
+        [< Html_types.tbody ] elt ->
+        Js_of_ocaml.Dom_html.tableSectionElement Js_of_ocaml.Js.t
+      val of_caption :
+        [< Html_types.caption ] elt ->
+        Js_of_ocaml.Dom_html.tableCaptionElement Js_of_ocaml.Js.t
+      val of_table :
+        [< Html_types.table ] elt ->
+        Js_of_ocaml.Dom_html.tableElement Js_of_ocaml.Js.t
+      val of_canvas :
+        [< 'a Html_types.canvas ] elt ->
+        Js_of_ocaml.Dom_html.canvasElement Js_of_ocaml.Js.t
+      val of_iframe :
+        [< Html_types.iframe ] elt ->
+        Js_of_ocaml.Dom_html.iFrameElement Js_of_ocaml.Js.t
+      val of_audio :
+        [< 'a Html_types.audio_interactive ] elt ->
+        Js_of_ocaml.Dom_html.audioElement Js_of_ocaml.Js.t
+      val of_video :
+        [< 'a Html_types.video_interactive ] elt ->
+        Js_of_ocaml.Dom_html.videoElement Js_of_ocaml.Js.t
+      val of_h1 :
+        Html_types.heading elt ->
+        Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
+      val of_h2 :
+        Html_types.heading elt ->
+        Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
+      val of_h3 :
+        Html_types.heading elt ->
+        Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
+      val of_h4 :
+        Html_types.heading elt ->
+        Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
+      val of_h5 :
+        Html_types.heading elt ->
+        Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
+      val of_h6 :
+        Html_types.heading elt ->
+        Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
+      val of_abbr :
+        [> Html_types.abbr ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_address :
+        [> Html_types.address ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_article :
+        [> Html_types.article ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_aside :
+        [> Html_types.aside ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_b :
+        [> Html_types.b ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_bdo :
+        [> Html_types.bdo ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_cite :
+        [> Html_types.cite ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_code :
+        [> Html_types.code ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_colgroup :
+        [> Html_types.colgroup ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_command :
+        [> Html_types.command ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_datalist :
+        [> Html_types.datalist ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_dd :
+        [> Html_types.dd ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_details :
+        [> Html_types.details ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_dfn :
+        [> Html_types.dfn ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_dt :
+        [> Html_types.dt ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_em :
+        [> Html_types.em ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_embed :
+        [> Html_types.embed ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_figcaption :
+        [> Html_types.figcaption ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_figure :
+        [> Html_types.figure ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_footer :
+        [> Html_types.footer ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_header :
+        [> Html_types.header ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_hgroup :
+        [> Html_types.hgroup ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_i :
+        [> Html_types.i ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_kbd :
+        [> Html_types.kbd ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_keygen :
+        [> Html_types.keygen ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_main :
+        [> Html_types.main ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_mark :
+        [> Html_types.mark ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_menu :
+        [> Html_types.menu ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_meter :
+        [> Html_types.meter ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_nav :
+        [> Html_types.nav ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_noscript :
+        [> Html_types.noscript ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_output :
+        [> Html_types.output_elt ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_progress :
+        [> Html_types.progress ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_q :
+        [> Html_types.q ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_rp :
+        [> Html_types.rp ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_rt :
+        [> Html_types.rt ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_ruby :
+        [> Html_types.ruby ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_samp :
+        [> Html_types.samp ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_section :
+        [> Html_types.section ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_small :
+        [> Html_types.small ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_source :
+        [> Html_types.source ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_span :
+        [> Html_types.span ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_strong :
+        [> Html_types.strong ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_sub :
+        [> Html_types.sub ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_summary :
+        [> Html_types.summary ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_sup :
+        [> Html_types.sup ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_th :
+        [> Html_types.th ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_time :
+        [> Html_types.time ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_u :
+        [> Html_types.u ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_var :
+        [> Html_types.var ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+      val of_wbr :
+        [> Html_types.wbr ] elt ->
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+    end
+  module Manip :
+    sig
+      val appendChild :
+        ?before:'a Eliom_content.Html.elt ->
+        'b Eliom_content.Html.elt -> 'c Eliom_content.Html.elt -> unit
+      val appendToBody :
+        ?before:'a Eliom_content.Html.elt ->
+        'c Eliom_content.Html.elt -> unit
+      val appendChildren :
+        ?before:'a Eliom_content.Html.elt ->
+        'b Eliom_content.Html.elt -> 'c Eliom_content.Html.elt list -> unit
+      val insertFirstChild :
+        'b Eliom_content.Html.elt -> 'c Eliom_content.Html.elt -> unit
+      val nth :
+        'a Eliom_content.Html.elt -> int -> 'b Eliom_content.Html.elt option
+      val childLength : 'a Eliom_content.Html.elt -> int
+      val removeChild :
+        'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt -> unit
+      val replaceChild :
+        'a Eliom_content.Html.elt ->
+        'b Eliom_content.Html.elt -> 'c Eliom_content.Html.elt -> unit
+      val removeChildren : 'a Eliom_content.Html.elt -> unit
+      val removeSelf : 'a Eliom_content.Html.elt -> unit
+      val replaceChildren :
+        'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt list -> unit
+      val parentNode :
+        'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt option
+      val nextSibling :
+        'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt option
+      val previousSibling :
+        'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt option
+      val insertBefore :
+        before:'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt -> unit
+      val insertAfter :
+        after:'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt -> unit
+      val replaceSelf :
+        'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt -> unit
+      val children :
+        'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt list
+      val addEventListener :
+        ?capture:bool ->
+        'a Eliom_content.Html.elt ->
+        (#Js_of_ocaml.Dom_html.event as 'b) Js_of_ocaml.Js.t
+        Js_of_ocaml.Dom_html.Event.typ ->
+        ('a Eliom_content.Html.elt -> 'b Js_of_ocaml.Js.t -> bool) ->
+        Js_of_ocaml.Dom_html.event_listener_id
+      module Named :
+        sig
+          val appendChild :
+            ?before:'a Eliom_content.Html.elt ->
+            'b Eliom_content.Html.Id.id -> 'c Eliom_content.Html.elt -> unit
+          val appendChildren :
+            ?before:'a Eliom_content.Html.elt ->
+            'b Eliom_content.Html.Id.id ->
+            'c Eliom_content.Html.elt list -> unit
+          val removeChild :
+            'a Eliom_content.Html.Id.id -> 'b Eliom_content.Html.elt -> unit
+          val replaceChild :
+            'a Eliom_content.Html.Id.id ->
+            'b Eliom_content.Html.elt -> 'c Eliom_content.Html.elt -> unit
+          val removeChildren : 'a Eliom_content.Html.Id.id -> unit
+          val replaceChildren :
+            'a Eliom_content.Html.Id.id ->
+            'b Eliom_content.Html.elt list -> unit
+          val addEventListener :
+            ?capture:bool ->
+            'a Eliom_content.Html.Id.id ->
+            (#Js_of_ocaml.Dom_html.event as 'b) Js_of_ocaml.Js.t
+            Js_of_ocaml.Dom_html.Event.typ ->
+            ('a Eliom_content.Html.elt -> 'b Js_of_ocaml.Js.t -> bool) ->
+            Js_of_ocaml.Dom_html.event_listener_id
+        end
+      val scrollIntoView : ?bottom:bool -> 'a Eliom_content.Html.elt -> unit
+      val childNodes :
+        'a Eliom_content.Html.elt ->
+        Js_of_ocaml.Dom.node Js_of_ocaml.Js.t list
+      val childElements :
+        'a Eliom_content.Html.elt ->
+        Js_of_ocaml.Dom.element Js_of_ocaml.Js.t list
+      module Class :
+        sig
+          val contain : 'a Eliom_content.Html.elt -> string -> bool
+          val remove : 'a Eliom_content.Html.elt -> string -> unit
+          val removes : 'a Eliom_content.Html.elt -> string list -> unit
+          val add : 'a Eliom_content.Html.elt -> string -> unit
+          val adds : 'a Eliom_content.Html.elt -> string list -> unit
+          val replace : 'a Eliom_content.Html.elt -> string -> string -> unit
+          val clear : 'a Eliom_content.Html.elt -> unit
+          val toggle : 'a Eliom_content.Html.elt -> string -> unit
+          val toggle2 : 'a Eliom_content.Html.elt -> string -> string -> unit
+        end
+      module Elt :
+        sig val body : unit -> [ `Body ] Eliom_content.Html.elt end
+      module Ev :
+        sig
+          type ('a, 'b) ev =
+              'a Eliom_content.Html.elt ->
+              ('b Js_of_ocaml.Js.t -> bool) -> unit
+          type ('a, 'b) ev_unit =
+              'a Eliom_content.Html.elt ->
+              ('b Js_of_ocaml.Js.t -> unit) -> unit
+          val onkeyup :
+            ('a, Js_of_ocaml.Dom_html.keyboardEvent)
+            Eliom_content.Html.Manip.Ev.ev
+          val onkeydown :
+            ('a, Js_of_ocaml.Dom_html.keyboardEvent)
+            Eliom_content.Html.Manip.Ev.ev
+          val onmouseup :
+            ('a, Js_of_ocaml.Dom_html.mouseEvent)
+            Eliom_content.Html.Manip.Ev.ev
+          val onmousedown :
+            ('a, Js_of_ocaml.Dom_html.mouseEvent)
+            Eliom_content.Html.Manip.Ev.ev
+          val onmouseout :
+            ('a, Js_of_ocaml.Dom_html.mouseEvent)
+            Eliom_content.Html.Manip.Ev.ev
+          val onmouseover :
+            ('a, Js_of_ocaml.Dom_html.mouseEvent)
+            Eliom_content.Html.Manip.Ev.ev
+          val onclick :
+            ('a, Js_of_ocaml.Dom_html.mouseEvent)
+            Eliom_content.Html.Manip.Ev.ev
+          val ondblclick :
+            ('a, Js_of_ocaml.Dom_html.mouseEvent)
+            Eliom_content.Html.Manip.Ev.ev
+          val onload :
+            ('a, Js_of_ocaml.Dom_html.event) Eliom_content.Html.Manip.Ev.ev
+          val onerror :
+            ('a, Js_of_ocaml.Dom_html.event) Eliom_content.Html.Manip.Ev.ev
+          val onabort :
+            ('a, Js_of_ocaml.Dom_html.event) Eliom_content.Html.Manip.Ev.ev
+          val onfocus :
+            ('a, Js_of_ocaml.Dom_html.event) Eliom_content.Html.Manip.Ev.ev
+          val onblur :
+            ('a, Js_of_ocaml.Dom_html.event) Eliom_content.Html.Manip.Ev.ev
+          val onfocus_textarea :
+            ('a, Js_of_ocaml.Dom_html.event) Eliom_content.Html.Manip.Ev.ev
+          val onblur_textarea :
+            ('a, Js_of_ocaml.Dom_html.event) Eliom_content.Html.Manip.Ev.ev
+          val onscroll :
+            ('a, Js_of_ocaml.Dom_html.event) Eliom_content.Html.Manip.Ev.ev
+          val onreturn :
+            ('a, Js_of_ocaml.Dom_html.keyboardEvent)
+            Eliom_content.Html.Manip.Ev.ev_unit
+          val onchange :
+            ('a, Js_of_ocaml.Dom_html.event) Eliom_content.Html.Manip.Ev.ev
+          val onchange_select :
+            ('a, Js_of_ocaml.Dom_html.event) Eliom_content.Html.Manip.Ev.ev
+        end
+      module Attr :
+        sig
+          val clientWidth : 'a Eliom_content.Html.elt -> int
+          val clientHeight : 'a Eliom_content.Html.elt -> int
+          val offsetWidth : 'a Eliom_content.Html.elt -> int
+          val offsetHeight : 'a Eliom_content.Html.elt -> int
+          val clientLeft : 'a Eliom_content.Html.elt -> int
+          val clientTop : 'a Eliom_content.Html.elt -> int
+        end
+      module Css :
+        sig
+          val background : 'a Eliom_content.Html.elt -> string
+          val backgroundAttachment : 'a Eliom_content.Html.elt -> string
+          val backgroundColor : 'a Eliom_content.Html.elt -> string
+          val backgroundImage : 'a Eliom_content.Html.elt -> string
+          val backgroundPosition : 'a Eliom_content.Html.elt -> string
+          val backgroundRepeat : 'a Eliom_content.Html.elt -> string
+          val border : 'a Eliom_content.Html.elt -> string
+          val borderBottom : 'a Eliom_content.Html.elt -> string
+          val borderBottomColor : 'a Eliom_content.Html.elt -> string
+          val borderBottomStyle : 'a Eliom_content.Html.elt -> string
+          val borderBottomWidth : 'a Eliom_content.Html.elt -> string
+          val borderBottomWidthPx : 'a Eliom_content.Html.elt -> int
+          val borderCollapse : 'a Eliom_content.Html.elt -> string
+          val borderColor : 'a Eliom_content.Html.elt -> string
+          val borderLeft : 'a Eliom_content.Html.elt -> string
+          val borderLeftColor : 'a Eliom_content.Html.elt -> string
+          val borderLeftStyle : 'a Eliom_content.Html.elt -> string
+          val borderLeftWidth : 'a Eliom_content.Html.elt -> string
+          val borderLeftWidthPx : 'a Eliom_content.Html.elt -> int
+          val borderRight : 'a Eliom_content.Html.elt -> string
+          val borderRightColor : 'a Eliom_content.Html.elt -> string
+          val borderRightStyle : 'a Eliom_content.Html.elt -> string
+          val borderRightWidth : 'a Eliom_content.Html.elt -> string
+          val borderRightWidthPx : 'a Eliom_content.Html.elt -> int
+          val borderSpacing : 'a Eliom_content.Html.elt -> string
+          val borderStyle : 'a Eliom_content.Html.elt -> string
+          val borderTop : 'a Eliom_content.Html.elt -> string
+          val borderTopColor : 'a Eliom_content.Html.elt -> string
+          val borderTopStyle : 'a Eliom_content.Html.elt -> string
+          val borderTopWidth : 'a Eliom_content.Html.elt -> string
+          val borderTopWidthPx : 'a Eliom_content.Html.elt -> int
+          val borderWidth : 'a Eliom_content.Html.elt -> string
+          val bottom : 'a Eliom_content.Html.elt -> string
+          val captionSide : 'a Eliom_content.Html.elt -> string
+          val clear : 'a Eliom_content.Html.elt -> string
+          val clip : 'a Eliom_content.Html.elt -> string
+          val color : 'a Eliom_content.Html.elt -> string
+          val content : 'a Eliom_content.Html.elt -> string
+          val counterIncrement : 'a Eliom_content.Html.elt -> string
+          val counterReset : 'a Eliom_content.Html.elt -> string
+          val cssFloat : 'a Eliom_content.Html.elt -> string
+          val cssText : 'a Eliom_content.Html.elt -> string
+          val cursor : 'a Eliom_content.Html.elt -> string
+          val direction : 'a Eliom_content.Html.elt -> string
+          val display : 'a Eliom_content.Html.elt -> string
+          val emptyCells : 'a Eliom_content.Html.elt -> string
+          val font : 'a Eliom_content.Html.elt -> string
+          val fontFamily : 'a Eliom_content.Html.elt -> string
+          val fontSize : 'a Eliom_content.Html.elt -> string
+          val fontStyle : 'a Eliom_content.Html.elt -> string
+          val fontVariant : 'a Eliom_content.Html.elt -> string
+          val fontWeight : 'a Eliom_content.Html.elt -> string
+          val height : 'a Eliom_content.Html.elt -> string
+          val heightPx : 'a Eliom_content.Html.elt -> int
+          val left : 'a Eliom_content.Html.elt -> string
+          val leftPx : 'a Eliom_content.Html.elt -> int
+          val letterSpacing : 'a Eliom_content.Html.elt -> string
+          val lineHeight : 'a Eliom_content.Html.elt -> string
+          val listStyle : 'a Eliom_content.Html.elt -> string
+          val listStyleImage : 'a Eliom_content.Html.elt -> string
+          val listStylePosition : 'a Eliom_content.Html.elt -> string
+          val listStyleType : 'a Eliom_content.Html.elt -> string
+          val margin : 'a Eliom_content.Html.elt -> string
+          val marginBottom : 'a Eliom_content.Html.elt -> string
+          val marginBottomPx : 'a Eliom_content.Html.elt -> int
+          val marginLeft : 'a Eliom_content.Html.elt -> string
+          val marginLeftPx : 'a Eliom_content.Html.elt -> int
+          val marginRight : 'a Eliom_content.Html.elt -> string
+          val marginRightPx : 'a Eliom_content.Html.elt -> int
+          val marginTop : 'a Eliom_content.Html.elt -> string
+          val marginTopPx : 'a Eliom_content.Html.elt -> int
+          val maxHeight : 'a Eliom_content.Html.elt -> string
+          val maxHeightPx : 'a Eliom_content.Html.elt -> int
+          val maxWidth : 'a Eliom_content.Html.elt -> string
+          val maxWidthPx : 'a Eliom_content.Html.elt -> int
+          val minHeight : 'a Eliom_content.Html.elt -> string
+          val minHeightPx : 'a Eliom_content.Html.elt -> int
+          val minWidth : 'a Eliom_content.Html.elt -> string
+          val minWidthPx : 'a Eliom_content.Html.elt -> int
+          val opacity : 'a Eliom_content.Html.elt -> string option
+          val outline : 'a Eliom_content.Html.elt -> string
+          val outlineColor : 'a Eliom_content.Html.elt -> string
+          val outlineOffset : 'a Eliom_content.Html.elt -> string
+          val outlineStyle : 'a Eliom_content.Html.elt -> string
+          val outlineWidth : 'a Eliom_content.Html.elt -> string
+          val overflow : 'a Eliom_content.Html.elt -> string
+          val overflowX : 'a Eliom_content.Html.elt -> string
+          val overflowY : 'a Eliom_content.Html.elt -> string
+          val padding : 'a Eliom_content.Html.elt -> string
+          val paddingBottom : 'a Eliom_content.Html.elt -> string
+          val paddingBottomPx : 'a Eliom_content.Html.elt -> int
+          val paddingLeft : 'a Eliom_content.Html.elt -> string
+          val paddingLeftPx : 'a Eliom_content.Html.elt -> int
+          val paddingRight : 'a Eliom_content.Html.elt -> string
+          val paddingRightPx : 'a Eliom_content.Html.elt -> int
+          val paddingTop : 'a Eliom_content.Html.elt -> string
+          val paddingTopPx : 'a Eliom_content.Html.elt -> int
+          val pageBreakAfter : 'a Eliom_content.Html.elt -> string
+          val pageBreakBefore : 'a Eliom_content.Html.elt -> string
+          val position : 'a Eliom_content.Html.elt -> string
+          val right : 'a Eliom_content.Html.elt -> string
+          val rightPx : 'a Eliom_content.Html.elt -> int
+          val tableLayout : 'a Eliom_content.Html.elt -> string
+          val textAlign : 'a Eliom_content.Html.elt -> string
+          val textDecoration : 'a Eliom_content.Html.elt -> string
+          val textIndent : 'a Eliom_content.Html.elt -> string
+          val textTransform : 'a Eliom_content.Html.elt -> string
+          val top : 'a Eliom_content.Html.elt -> string
+          val topPx : 'a Eliom_content.Html.elt -> int
+          val verticalAlign : 'a Eliom_content.Html.elt -> string
+          val visibility : 'a Eliom_content.Html.elt -> string
+          val whiteSpace : 'a Eliom_content.Html.elt -> string
+          val width : 'a Eliom_content.Html.elt -> string
+          val widthPx : 'a Eliom_content.Html.elt -> int
+          val wordSpacing : 'a Eliom_content.Html.elt -> string
+          val zIndex : 'a Eliom_content.Html.elt -> string
+        end
+      module SetCss :
+        sig
+          val background : 'a Eliom_content.Html.elt -> string -> unit
+          val backgroundAttachment :
+            'a Eliom_content.Html.elt -> string -> unit
+          val backgroundColor : 'a Eliom_content.Html.elt -> string -> unit
+          val backgroundImage : 'a Eliom_content.Html.elt -> string -> unit
+          val backgroundPosition :
+            'a Eliom_content.Html.elt -> string -> unit
+          val backgroundRepeat : 'a Eliom_content.Html.elt -> string -> unit
+          val border : 'a Eliom_content.Html.elt -> string -> unit
+          val borderBottom : 'a Eliom_content.Html.elt -> string -> unit
+          val borderBottomColor : 'a Eliom_content.Html.elt -> string -> unit
+          val borderBottomStyle : 'a Eliom_content.Html.elt -> string -> unit
+          val borderBottomWidth : 'a Eliom_content.Html.elt -> string -> unit
+          val borderBottomWidthPx : 'a Eliom_content.Html.elt -> int -> unit
+          val borderCollapse : 'a Eliom_content.Html.elt -> string -> unit
+          val borderColor : 'a Eliom_content.Html.elt -> string -> unit
+          val borderLeft : 'a Eliom_content.Html.elt -> string -> unit
+          val borderLeftColor : 'a Eliom_content.Html.elt -> string -> unit
+          val borderLeftStyle : 'a Eliom_content.Html.elt -> string -> unit
+          val borderLeftWidth : 'a Eliom_content.Html.elt -> string -> unit
+          val borderLeftWidthPx : 'a Eliom_content.Html.elt -> int -> unit
+          val borderRight : 'a Eliom_content.Html.elt -> string -> unit
+          val borderRightColor : 'a Eliom_content.Html.elt -> string -> unit
+          val borderRightStyle : 'a Eliom_content.Html.elt -> string -> unit
+          val borderRightWidth : 'a Eliom_content.Html.elt -> string -> unit
+          val borderRightWidthPx : 'a Eliom_content.Html.elt -> int -> unit
+          val borderSpacing : 'a Eliom_content.Html.elt -> string -> unit
+          val borderStyle : 'a Eliom_content.Html.elt -> string -> unit
+          val borderTop : 'a Eliom_content.Html.elt -> string -> unit
+          val borderTopColor : 'a Eliom_content.Html.elt -> string -> unit
+          val borderTopStyle : 'a Eliom_content.Html.elt -> string -> unit
+          val borderTopWidth : 'a Eliom_content.Html.elt -> string -> unit
+          val borderTopWidthPx : 'a Eliom_content.Html.elt -> int -> unit
+          val borderWidth : 'a Eliom_content.Html.elt -> string -> unit
+          val bottom : 'a Eliom_content.Html.elt -> string -> unit
+          val bottomPx : 'a Eliom_content.Html.elt -> int -> unit
+          val captionSide : 'a Eliom_content.Html.elt -> string -> unit
+          val clear : 'a Eliom_content.Html.elt -> string -> unit
+          val clip : 'a Eliom_content.Html.elt -> string -> unit
+          val color : 'a Eliom_content.Html.elt -> string -> unit
+          val content : 'a Eliom_content.Html.elt -> string -> unit
+          val counterIncrement : 'a Eliom_content.Html.elt -> string -> unit
+          val counterReset : 'a Eliom_content.Html.elt -> string -> unit
+          val cssFloat : 'a Eliom_content.Html.elt -> string -> unit
+          val cssText : 'a Eliom_content.Html.elt -> string -> unit
+          val cursor : 'a Eliom_content.Html.elt -> string -> unit
+          val direction : 'a Eliom_content.Html.elt -> string -> unit
+          val display : 'a Eliom_content.Html.elt -> string -> unit
+          val emptyCells : 'a Eliom_content.Html.elt -> string -> unit
+          val font : 'a Eliom_content.Html.elt -> string -> unit
+          val fontFamily : 'a Eliom_content.Html.elt -> string -> unit
+          val fontSize : 'a Eliom_content.Html.elt -> string -> unit
+          val fontStyle : 'a Eliom_content.Html.elt -> string -> unit
+          val fontVariant : 'a Eliom_content.Html.elt -> string -> unit
+          val fontWeight : 'a Eliom_content.Html.elt -> string -> unit
+          val height : 'a Eliom_content.Html.elt -> string -> unit
+          val heightPx : 'a Eliom_content.Html.elt -> int -> unit
+          val left : 'a Eliom_content.Html.elt -> string -> unit
+          val leftPx : 'a Eliom_content.Html.elt -> int -> unit
+          val letterSpacing : 'a Eliom_content.Html.elt -> string -> unit
+          val lineHeight : 'a Eliom_content.Html.elt -> string -> unit
+          val listStyle : 'a Eliom_content.Html.elt -> string -> unit
+          val listStyleImage : 'a Eliom_content.Html.elt -> string -> unit
+          val listStylePosition : 'a Eliom_content.Html.elt -> string -> unit
+          val listStyleType : 'a Eliom_content.Html.elt -> string -> unit
+          val margin : 'a Eliom_content.Html.elt -> string -> unit
+          val marginBottom : 'a Eliom_content.Html.elt -> string -> unit
+          val marginBottomPx : 'a Eliom_content.Html.elt -> int -> unit
+          val marginLeft : 'a Eliom_content.Html.elt -> string -> unit
+          val marginLeftPx : 'a Eliom_content.Html.elt -> int -> unit
+          val marginRight : 'a Eliom_content.Html.elt -> string -> unit
+          val marginRightPx : 'a Eliom_content.Html.elt -> int -> unit
+          val marginTop : 'a Eliom_content.Html.elt -> string -> unit
+          val marginTopPx : 'a Eliom_content.Html.elt -> int -> unit
+          val maxHeight : 'a Eliom_content.Html.elt -> string -> unit
+          val maxHeightPx : 'a Eliom_content.Html.elt -> int -> unit
+          val maxWidth : 'a Eliom_content.Html.elt -> string -> unit
+          val maxWidthPx : 'a Eliom_content.Html.elt -> int -> unit
+          val minHeight : 'a Eliom_content.Html.elt -> string -> unit
+          val minHeightPx : 'a Eliom_content.Html.elt -> int -> unit
+          val minWidth : 'a Eliom_content.Html.elt -> string -> unit
+          val minWidthPx : 'a Eliom_content.Html.elt -> int -> unit
+          val opacity : 'a Eliom_content.Html.elt -> string -> unit
+          val outline : 'a Eliom_content.Html.elt -> string -> unit
+          val outlineColor : 'a Eliom_content.Html.elt -> string -> unit
+          val outlineOffset : 'a Eliom_content.Html.elt -> string -> unit
+          val outlineStyle : 'a Eliom_content.Html.elt -> string -> unit
+          val outlineWidth : 'a Eliom_content.Html.elt -> string -> unit
+          val overflow : 'a Eliom_content.Html.elt -> string -> unit
+          val overflowX : 'a Eliom_content.Html.elt -> string -> unit
+          val overflowY : 'a Eliom_content.Html.elt -> string -> unit
+          val padding : 'a Eliom_content.Html.elt -> string -> unit
+          val paddingBottom : 'a Eliom_content.Html.elt -> string -> unit
+          val paddingBottomPx : 'a Eliom_content.Html.elt -> int -> unit
+          val paddingLeft : 'a Eliom_content.Html.elt -> string -> unit
+          val paddingLeftPx : 'a Eliom_content.Html.elt -> int -> unit
+          val paddingRight : 'a Eliom_content.Html.elt -> string -> unit
+          val paddingRightPx : 'a Eliom_content.Html.elt -> int -> unit
+          val paddingTop : 'a Eliom_content.Html.elt -> string -> unit
+          val paddingTopPx : 'a Eliom_content.Html.elt -> int -> unit
+          val pageBreakAfter : 'a Eliom_content.Html.elt -> string -> unit
+          val pageBreakBefore : 'a Eliom_content.Html.elt -> string -> unit
+          val position : 'a Eliom_content.Html.elt -> string -> unit
+          val right : 'a Eliom_content.Html.elt -> string -> unit
+          val rightPx : 'a Eliom_content.Html.elt -> int -> unit
+          val tableLayout : 'a Eliom_content.Html.elt -> string -> unit
+          val textAlign : 'a Eliom_content.Html.elt -> string -> unit
+          val textDecoration : 'a Eliom_content.Html.elt -> string -> unit
+          val textIndent : 'a Eliom_content.Html.elt -> string -> unit
+          val textTransform : 'a Eliom_content.Html.elt -> string -> unit
+          val top : 'a Eliom_content.Html.elt -> string -> unit
+          val topPx : 'a Eliom_content.Html.elt -> int -> unit
+          val verticalAlign : 'a Eliom_content.Html.elt -> string -> unit
+          val visibility : 'a Eliom_content.Html.elt -> string -> unit
+          val whiteSpace : 'a Eliom_content.Html.elt -> string -> unit
+          val width : 'a Eliom_content.Html.elt -> string -> unit
+          val widthPx : 'a Eliom_content.Html.elt -> int -> unit
+          val wordSpacing : 'a Eliom_content.Html.elt -> string -> unit
+          val zIndex : 'a Eliom_content.Html.elt -> string -> unit
+        end
     end
-  module Printer :
+  module Of_dom :
     sig
-      val pp_elt :
-        ?encode:(string -> string) ->
-        ?indent:bool -> unit -> Format.formatter -> 'a elt -> unit
-      val pp :
-        ?encode:(string -> string) ->
-        ?indent:bool ->
-        ?advert:string -> unit -> Format.formatter -> F.doc -> unit
+      type 'a elt = 'a elt
+      val of_element :
+        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t -> 'a elt
+      val of_html :
+        Js_of_ocaml.Dom_html.htmlElement Js_of_ocaml.Js.t ->
+        [> Html_types.html ] elt
+      val of_head :
+        Js_of_ocaml.Dom_html.headElement Js_of_ocaml.Js.t ->
+        [> Html_types.head ] elt
+      val of_link :
+        Js_of_ocaml.Dom_html.linkElement Js_of_ocaml.Js.t ->
+        [> Html_types.link ] elt
+      val of_title :
+        Js_of_ocaml.Dom_html.titleElement Js_of_ocaml.Js.t ->
+        [> Html_types.title ] elt
+      val of_meta :
+        Js_of_ocaml.Dom_html.metaElement Js_of_ocaml.Js.t ->
+        [> Html_types.meta ] elt
+      val of_base :
+        Js_of_ocaml.Dom_html.baseElement Js_of_ocaml.Js.t ->
+        [> Html_types.base ] elt
+      val of_style :
+        Js_of_ocaml.Dom_html.styleElement Js_of_ocaml.Js.t ->
+        [> Html_types.style ] elt
+      val of_body :
+        Js_of_ocaml.Dom_html.bodyElement Js_of_ocaml.Js.t ->
+        [> Html_types.body ] elt
+      val of_form :
+        Js_of_ocaml.Dom_html.formElement Js_of_ocaml.Js.t ->
+        [> Html_types.form ] elt
+      val of_optGroup :
+        Js_of_ocaml.Dom_html.optGroupElement Js_of_ocaml.Js.t ->
+        [> Html_types.optgroup ] elt
+      val of_option :
+        Js_of_ocaml.Dom_html.optionElement Js_of_ocaml.Js.t ->
+        [> Html_types.selectoption ] elt
+      val of_select :
+        Js_of_ocaml.Dom_html.selectElement Js_of_ocaml.Js.t ->
+        [> Html_types.select ] elt
+      val of_input :
+        Js_of_ocaml.Dom_html.inputElement Js_of_ocaml.Js.t ->
+        [> Html_types.input ] elt
+      val of_textArea :
+        Js_of_ocaml.Dom_html.textAreaElement Js_of_ocaml.Js.t ->
+        [> Html_types.textarea ] elt
+      val of_button :
+        Js_of_ocaml.Dom_html.buttonElement Js_of_ocaml.Js.t ->
+        [> Html_types.button ] elt
+      val of_label :
+        Js_of_ocaml.Dom_html.labelElement Js_of_ocaml.Js.t ->
+        [> Html_types.label ] elt
+      val of_fieldSet :
+        Js_of_ocaml.Dom_html.fieldSetElement Js_of_ocaml.Js.t ->
+        [> Html_types.fieldset ] elt
+      val of_legend :
+        Js_of_ocaml.Dom_html.legendElement Js_of_ocaml.Js.t ->
+        [> Html_types.legend ] elt
+      val of_uList :
+        Js_of_ocaml.Dom_html.uListElement Js_of_ocaml.Js.t ->
+        [> Html_types.ul ] elt
+      val of_oList :
+        Js_of_ocaml.Dom_html.oListElement Js_of_ocaml.Js.t ->
+        [> Html_types.ol ] elt
+      val of_dList :
+        Js_of_ocaml.Dom_html.dListElement Js_of_ocaml.Js.t ->
+        [> Html_types.dl ] elt
+      val of_li :
+        Js_of_ocaml.Dom_html.liElement Js_of_ocaml.Js.t ->
+        [> Html_types.li ] elt
+      val of_dialog :
+        Js_of_ocaml.Dom_html.dialogElement Js_of_ocaml.Js.t ->
+        [> Html_types.dialog ] elt
+      val of_div :
+        Js_of_ocaml.Dom_html.divElement Js_of_ocaml.Js.t ->
+        [> Html_types.div ] elt
+      val of_paragraph :
+        Js_of_ocaml.Dom_html.paragraphElement Js_of_ocaml.Js.t ->
+        [> Html_types.p ] elt
+      val of_heading :
+        Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t ->
+        [> Html_types.heading ] elt
+      val of_quote :
+        Js_of_ocaml.Dom_html.quoteElement Js_of_ocaml.Js.t ->
+        [> Html_types.blockquote ] elt
+      val of_pre :
+        Js_of_ocaml.Dom_html.preElement Js_of_ocaml.Js.t ->
+        [> Html_types.pre ] elt
+      val of_br :
+        Js_of_ocaml.Dom_html.brElement Js_of_ocaml.Js.t ->
+        [> Html_types.br ] elt
+      val of_hr :
+        Js_of_ocaml.Dom_html.hrElement Js_of_ocaml.Js.t ->
+        [> Html_types.hr ] elt
+      val of_mod :
+        Js_of_ocaml.Dom_html.modElement Js_of_ocaml.Js.t ->
+        [> `Del of 'a | `Ins of 'a ] elt
+      val of_anchor :
+        Js_of_ocaml.Dom_html.anchorElement Js_of_ocaml.Js.t ->
+        [> 'a Html_types.a ] elt
+      val of_image :
+        Js_of_ocaml.Dom_html.imageElement Js_of_ocaml.Js.t ->
+        [> Html_types.img ] elt
+      val of_object :
+        Js_of_ocaml.Dom_html.objectElement Js_of_ocaml.Js.t ->
+        [> 'a Html_types.object_ ] elt
+      val of_param :
+        Js_of_ocaml.Dom_html.paramElement Js_of_ocaml.Js.t ->
+        [> Html_types.param ] elt
+      val of_area :
+        Js_of_ocaml.Dom_html.areaElement Js_of_ocaml.Js.t ->
+        [> Html_types.area ] elt
+      val of_map :
+        Js_of_ocaml.Dom_html.mapElement Js_of_ocaml.Js.t ->
+        [> 'a Html_types.map ] elt
+      val of_script :
+        Js_of_ocaml.Dom_html.scriptElement Js_of_ocaml.Js.t ->
+        [> Html_types.script ] elt
+      val of_embed :
+        Js_of_ocaml.Dom_html.embedElement Js_of_ocaml.Js.t ->
+        [> Html_types.embed ] elt
+      val of_tableCell :
+        Js_of_ocaml.Dom_html.tableCellElement Js_of_ocaml.Js.t ->
+        [> `Td | `Th ] elt
+      val of_tableRow :
+        Js_of_ocaml.Dom_html.tableRowElement Js_of_ocaml.Js.t ->
+        [> Html_types.tr ] elt
+      val of_tableCol :
+        Js_of_ocaml.Dom_html.tableColElement Js_of_ocaml.Js.t ->
+        [> Html_types.col ] elt
+      val of_tableSection :
+        Js_of_ocaml.Dom_html.tableSectionElement Js_of_ocaml.Js.t ->
+        [> `Tbody | `Tfoot | `Thead ] elt
+      val of_tableCaption :
+        Js_of_ocaml.Dom_html.tableCaptionElement Js_of_ocaml.Js.t ->
+        [> Html_types.caption ] elt
+      val of_table :
+        Js_of_ocaml.Dom_html.tableElement Js_of_ocaml.Js.t ->
+        [> Html_types.table ] elt
+      val of_canvas :
+        Js_of_ocaml.Dom_html.canvasElement Js_of_ocaml.Js.t ->
+        [> 'a Html_types.canvas ] elt
+      val of_iFrame :
+        Js_of_ocaml.Dom_html.iFrameElement Js_of_ocaml.Js.t ->
+        [> Html_types.iframe ] elt
+      val of_audio :
+        Js_of_ocaml.Dom_html.audioElement Js_of_ocaml.Js.t ->
+        [> 'a Html_types.audio ] elt
+      val of_video :
+        Js_of_ocaml.Dom_html.videoElement Js_of_ocaml.Js.t ->
+        [> 'a Html_types.video ] elt
     end
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/client/type_Eliom_content.Svg.C.wiki b/doc/11.x/api/client/type_Eliom_content.Svg.C.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content.Svg.C.wiki
rename to doc/11.x/api/client/type_Eliom_content.Svg.C.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content.Svg.D.Raw.wiki b/doc/11.x/api/client/type_Eliom_content.Svg.D.Raw.wiki
similarity index 94%
rename from doc/10.x/api/client/type_Eliom_content.Svg.D.Raw.wiki
rename to doc/11.x/api/client/type_Eliom_content.Svg.D.Raw.wiki
index 2da2dd1419..d44b014540 100644
--- a/doc/10.x/api/client/type_Eliom_content.Svg.D.Raw.wiki
+++ b/doc/11.x/api/client/type_Eliom_content.Svg.D.Raw.wiki
@@ -154,7 +154,7 @@
     [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
     [ `GradientUnits ] attrib
   val a_gradientTransform :
-    Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+    Svg_types.transforms wrap -> [> `GradientTransform ] attrib
   val a_spreadMethod :
     [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
   val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -285,6 +285,7 @@
   val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
   val a_animation_fill :
     [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+  val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
   val a_calcMode :
     [< `Discrete | `Linear | `Paced | `Spline ] wrap -> [> `CalcMode ] attrib
   val a_animation_values : Svg_types.strings wrap -> [> `Valuesanim ] attrib
@@ -403,29 +404,6 @@
   val a_stroke_dashoffset :
     Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
   val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
-  val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-  val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
-  val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
-  val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
-  val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-  val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
-  val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
-  val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-  val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
-  val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-  val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-  val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-  val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
-  val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-  val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-  val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-  val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-  val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-  val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-  val a_ontouchstart : Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-  val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-  val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-  val a_ontouchcancel : Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
   val txt : string wrap -> [> Svg_types.txt ] elt
   val svg :
     ([< Svg_types.svg_attr ], [< Svg_types.svg_content ], [> Svg_types.svg ])
@@ -667,9 +645,9 @@
     ([< Svg_types.script_attr ], [< Svg_types.script_content ],
      [> Svg_types.script ])
     unary
-  val animation :
-    ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-     [> Svg_types.animation ])
+  val animate :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
     star
   val set :
     ([< Svg_types.set_attr ], [< Svg_types.set_content ], [> Svg_types.set ])
@@ -728,6 +706,10 @@
     ?a:Svg_types.foreignobject_attr attrib list ->
     Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
   val pcdata : string wrap -> [> Svg_types.txt ] elt
+  val animation :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
+    star
   val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
   val tot : Xml.elt -> 'a elt
   val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -749,4 +731,27 @@
       val space_sep_attrib : string -> string list wrap -> 'a attrib
       val comma_sep_attrib : string -> string list wrap -> 'a attrib
     end
+  val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+  val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+  val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+  val a_onend : string -> [> `OnEnd ] Raw'.attrib
+  val a_onerror : string -> [> `OnError ] Raw'.attrib
+  val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+  val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+  val a_onload : string -> [> `OnLoad ] Raw'.attrib
+  val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+  val a_onresize : string -> [> `OnResize ] Raw'.attrib
+  val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+  val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+  val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+  val a_onclick : string -> [> `OnClick ] Raw'.attrib
+  val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+  val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+  val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+  val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+  val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+  val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+  val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+  val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+  val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/client/type_Eliom_content.Svg.D.wiki b/doc/11.x/api/client/type_Eliom_content.Svg.D.wiki
similarity index 64%
rename from doc/10.x/api/client/type_Eliom_content.Svg.D.wiki
rename to doc/11.x/api/client/type_Eliom_content.Svg.D.wiki
index 11f7f95969..0a069f3646 100644
--- a/doc/10.x/api/client/type_Eliom_content.Svg.D.wiki
+++ b/doc/11.x/api/client/type_Eliom_content.Svg.D.wiki
@@ -1,4 +1,795 @@
 <<code language="ocaml" | sig
+  module Raw' :
+    sig
+      type 'a elt = 'a elt
+      type doc = [ `Svg ] elt
+      type 'a attrib = 'a attrib
+      module Xml :
+        sig
+          module W :
+            sig
+              type 'a t = 'a Xml.W.t
+              val return : 'a -> 'a t
+              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+              val fmap : ('a, 'b) ft -> 'a t -> 'b t
+              type 'a tlist = 'a Xml.W.tlist
+              val nil : unit -> 'a tlist
+              val singleton : 'a t -> 'a tlist
+              val cons : 'a t -> 'a tlist -> 'a tlist
+              val append : 'a tlist -> 'a tlist -> 'a tlist
+              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+            end
+          type 'a wrap = 'a W.t
+          type 'a list_wrap = 'a W.tlist
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) W.ft
+          val uri_of_string : (string, uri) W.ft
+          type aname = string
+          type event_handler = Xml.event_handler
+          type mouse_event_handler = Xml.mouse_event_handler
+          type keyboard_event_handler = Xml.keyboard_event_handler
+          type touch_event_handler = Xml.touch_event_handler
+          type attrib = Xml.attrib
+          val float_attrib : aname -> float wrap -> attrib
+          val int_attrib : aname -> int wrap -> attrib
+          val string_attrib : aname -> string wrap -> attrib
+          val space_sep_attrib : aname -> string list wrap -> attrib
+          val comma_sep_attrib : aname -> string list wrap -> attrib
+          val event_handler_attrib : aname -> event_handler -> attrib
+          val mouse_event_handler_attrib :
+            aname -> mouse_event_handler -> attrib
+          val keyboard_event_handler_attrib :
+            aname -> keyboard_event_handler -> attrib
+          val touch_event_handler_attrib :
+            aname -> touch_event_handler -> attrib
+          val uri_attrib : aname -> uri wrap -> attrib
+          val uris_attrib : aname -> uri list wrap -> attrib
+          type elt = Xml.elt
+          type ename = string
+          val empty : unit -> elt
+          val comment : string -> elt
+          val pcdata : string wrap -> elt
+          val encodedpcdata : string wrap -> elt
+          val entity : string -> elt
+          val leaf : ?a:attrib list -> ename -> elt
+          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+          val cdata : string -> elt
+          val cdata_script : string -> elt
+          val cdata_style : string -> elt
+        end
+      type 'a wrap = 'a Xml.W.t
+      type 'a list_wrap = 'a Xml.W.tlist
+      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
+      type ('a, 'b, 'c) star =
+          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+      module Info : Xml_sigs.Info
+      type uri = Xml.uri
+      val string_of_uri : (uri, string) Xml.W.ft
+      val uri_of_string : (string, uri) Xml.W.ft
+      val a_version : string wrap -> [> `Version ] attrib
+      val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+      val a_x : Svg_types.coord wrap -> [> `X ] attrib
+      val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+      val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+      val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
+      val a_preserveAspectRatio :
+        string wrap -> [> `PreserveAspectRatio ] attrib
+      val a_contentScriptType : string wrap -> [> `ContentScriptType ] attrib
+      val a_contentStyleType : string wrap -> [> `ContentStyleType ] attrib
+      val a_zoomAndPan :
+        [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+      val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+      val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+      val a_requiredFeatures :
+        Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+      val a_requiredExtensions :
+        Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+      val a_systemLanguage :
+        Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+      val a_externalRessourcesRequired :
+        bool wrap -> [> `ExternalRessourcesRequired ] attrib
+      val a_id : string wrap -> [> `Id ] attrib
+      val a_user_data : string -> string wrap -> [> `User_data ] attrib
+      val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+      val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+      val a_xml_space :
+        [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+      val a_type : string wrap -> [> `Type ] attrib
+      val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+      val a_xlink_title : string wrap -> [> `Title ] attrib
+      val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+      val a_style : string wrap -> [> `Style ] attrib
+      val a_transform : Svg_types.transforms wrap -> [> `Transform ] attrib
+      val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+      val a_d : string wrap -> [> `D ] attrib
+      val a_pathLength : float wrap -> [> `PathLength ] attrib
+      val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+      val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+      val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+      val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+      val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+      val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+      val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+      val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+      val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+      val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+      val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+      val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+      val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+      val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+      val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+      val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+      val a_lengthAdjust :
+        [< `Spacing | `SpacingAndGlyphs ] wrap -> [> `LengthAdjust ] attrib
+      val a_textLength :
+        Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+      val a_text_anchor :
+        [< `End | `Inherit | `Middle | `Start ] wrap ->
+        [> `Text_Anchor ] attrib
+      val a_text_decoration :
+        [< `Blink | `Inherit | `Line_through | `None | `Overline | `Underline
+        ] wrap -> [> `Text_Decoration ] attrib
+      val a_text_rendering :
+        [< `Auto
+         | `GeometricPrecision
+         | `Inherit
+         | `OptimizeLegibility
+         | `OptimizeSpeed ]
+        wrap -> [> `Text_Rendering ] attrib
+      val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+      val a_startOffset :
+        Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+      val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+      val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+      val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+      val a_format : string wrap -> [> `Format ] attrib
+      val a_markerUnits :
+        [< `StrokeWidth | `UserSpaceOnUse ] wrap -> [> `MarkerUnits ] attrib
+      val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+      val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+      val a_markerWidth :
+        Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+      val a_markerHeight :
+        Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+      val a_orient : Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+      val a_local : string wrap -> [> `Local ] attrib
+      val a_rendering_intent :
+        [< `Absolute_colorimetric
+         | `Auto
+         | `Perceptual
+         | `Relative_colorimetric
+         | `Saturation ]
+        wrap -> [> `Rendering_Indent ] attrib
+      val a_gradientUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [ `GradientUnits ] attrib
+      val a_gradientTransform :
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+      val a_spreadMethod :
+        [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
+      val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+      val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+      val a_offset :
+        [< `Number of Svg_types.number | `Percentage of Svg_types.percentage
+        ] wrap -> [> `Offset ] attrib
+      val a_patternUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PatternUnits ] attrib
+      val a_patternContentUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PatternContentUnits ] attrib
+      val a_patternTransform :
+        Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+      val a_clipPathUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `ClipPathUnits ] attrib
+      val a_maskUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `MaskUnits ] attrib
+      val a_maskContentUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `MaskContentUnits ] attrib
+      val a_primitiveUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PrimitiveUnits ] attrib
+      val a_filterRes :
+        Svg_types.number_optional_number wrap -> [> `FilterResUnits ] attrib
+      val a_result : string wrap -> [> `Result ] attrib
+      val a_in :
+        [< `BackgroundAlpha
+         | `BackgroundImage
+         | `FillPaint
+         | `Ref of string
+         | `SourceAlpha
+         | `SourceGraphic
+         | `StrokePaint ]
+        wrap -> [> `In ] attrib
+      val a_in2 :
+        [< `BackgroundAlpha
+         | `BackgroundImage
+         | `FillPaint
+         | `Ref of string
+         | `SourceAlpha
+         | `SourceGraphic
+         | `StrokePaint ]
+        wrap -> [> `In2 ] attrib
+      val a_azimuth : float wrap -> [> `Azimuth ] attrib
+      val a_elevation : float wrap -> [> `Elevation ] attrib
+      val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
+      val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
+      val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
+      val a_specularExponent : float wrap -> [> `SpecularExponent ] attrib
+      val a_specularConstant : float wrap -> [> `SpecularConstant ] attrib
+      val a_limitingConeAngle : float wrap -> [> `LimitingConeAngle ] attrib
+      val a_mode :
+        [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
+        [> `Mode ] attrib
+      val a_feColorMatrix_type :
+        [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ] wrap ->
+        [> `Typefecolor ] attrib
+      val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
+      val a_transfer_type :
+        [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
+        [> `Type_transfert ] attrib
+      val a_tableValues : Svg_types.numbers wrap -> [> `TableValues ] attrib
+      val a_intercept : Svg_types.number wrap -> [> `Intercept ] attrib
+      val a_amplitude : Svg_types.number wrap -> [> `Amplitude ] attrib
+      val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
+      val a_transfer_offset :
+        Svg_types.number wrap -> [> `Offset_transfer ] attrib
+      val a_feComposite_operator :
+        [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
+        [> `OperatorComposite ] attrib
+      val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
+      val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
+      val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
+      val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
+      val a_order :
+        Svg_types.number_optional_number wrap -> [> `Order ] attrib
+      val a_kernelMatrix :
+        Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
+      val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
+      val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
+      val a_kernelUnitLength :
+        Svg_types.number_optional_number wrap ->
+        [> `KernelUnitLength ] attrib
+      val a_targetX : int wrap -> [> `TargetX ] attrib
+      val a_targetY : int wrap -> [> `TargetY ] attrib
+      val a_edgeMode :
+        [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
+      val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
+      val a_surfaceScale : Svg_types.number wrap -> [> `SurfaceScale ] attrib
+      val a_diffuseConstant :
+        Svg_types.number wrap -> [> `DiffuseConstant ] attrib
+      val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
+      val a_xChannelSelector :
+        [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
+      val a_yChannelSelector :
+        [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
+      val a_stdDeviation :
+        Svg_types.number_optional_number wrap -> [> `StdDeviation ] attrib
+      val a_feMorphology_operator :
+        [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
+      val a_radius :
+        Svg_types.number_optional_number wrap -> [> `Radius ] attrib
+      val a_baseFrenquency :
+        Svg_types.number_optional_number wrap -> [> `BaseFrequency ] attrib
+      val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
+      val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
+      val a_stitchTiles :
+        [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
+      val a_feTurbulence_type :
+        [< `FractalNoise | `Turbulence ] wrap -> [> `TypeStitch ] attrib
+      val a_xlink_show : [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
+      val a_xlink_actuate :
+        [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
+        [> `Xlink_actuate ] attrib
+      val a_target : string wrap -> [> `Xlink_target ] attrib
+      val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
+      val a_attributeName : string wrap -> [> `AttributeName ] attrib
+      val a_attributeType :
+        [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
+      val a_begin : string wrap -> [> `Begin ] attrib
+      val a_dur : string wrap -> [> `Dur ] attrib
+      val a_min : string wrap -> [> `Min ] attrib
+      val a_max : string wrap -> [> `Max ] attrib
+      val a_restart :
+        [< `Always | `Never | `WhenNotActive ] wrap -> [> `Restart ] attrib
+      val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
+      val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
+      val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
+      val a_animation_fill :
+        [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
+      val a_calcMode :
+        [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
+        [> `CalcMode ] attrib
+      val a_animation_values :
+        Svg_types.strings wrap -> [> `Valuesanim ] attrib
+      val a_keyTimes : Svg_types.strings wrap -> [> `KeyTimes ] attrib
+      val a_keySplines : Svg_types.strings wrap -> [> `KeySplines ] attrib
+      val a_from : string wrap -> [> `From ] attrib
+      val a_to : string wrap -> [> `To ] attrib
+      val a_by : string wrap -> [> `By ] attrib
+      val a_additive : [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
+      val a_accumulate : [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
+      val a_keyPoints :
+        Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
+      val a_path : string wrap -> [> `Path ] attrib
+      val a_animateTransform_type :
+        [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
+        [ `Typeanimatetransform ] attrib
+      val a_horiz_origin_x :
+        Svg_types.number wrap -> [> `HorizOriginX ] attrib
+      val a_horiz_origin_y :
+        Svg_types.number wrap -> [> `HorizOriginY ] attrib
+      val a_horiz_adv_x : Svg_types.number wrap -> [> `HorizAdvX ] attrib
+      val a_vert_origin_x : Svg_types.number wrap -> [> `VertOriginX ] attrib
+      val a_vert_origin_y : Svg_types.number wrap -> [> `VertOriginY ] attrib
+      val a_vert_adv_y : Svg_types.number wrap -> [> `VertAdvY ] attrib
+      val a_unicode : string wrap -> [> `Unicode ] attrib
+      val a_glyph_name : string wrap -> [> `glyphname ] attrib
+      val a_orientation : [< `H | `V ] wrap -> [> `Orientation ] attrib
+      val a_arabic_form :
+        [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
+        [> `Arabicform ] attrib
+      val a_lang : string wrap -> [> `Lang ] attrib
+      val a_u1 : string wrap -> [> `U1 ] attrib
+      val a_u2 : string wrap -> [> `U2 ] attrib
+      val a_g1 : string wrap -> [> `G1 ] attrib
+      val a_g2 : string wrap -> [> `G2 ] attrib
+      val a_k : string wrap -> [> `K ] attrib
+      val a_font_family : string wrap -> [> `Font_Family ] attrib
+      val a_font_style : string wrap -> [> `Font_Style ] attrib
+      val a_font_variant : string wrap -> [> `Font_Variant ] attrib
+      val a_font_weight : string wrap -> [> `Font_Weight ] attrib
+      val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
+      val a_font_size : string wrap -> [> `Font_Size ] attrib
+      val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
+      val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
+      val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
+      val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
+      val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
+      val a_cap_height : Svg_types.number wrap -> [> `CapHeight ] attrib
+      val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
+      val a_accent_height :
+        Svg_types.number wrap -> [> `AccentHeight ] attrib
+      val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
+      val a_widths : string wrap -> [> `Widths ] attrib
+      val a_bbox : string wrap -> [> `Bbox ] attrib
+      val a_ideographic : Svg_types.number wrap -> [> `Ideographic ] attrib
+      val a_alphabetic : Svg_types.number wrap -> [> `Alphabetic ] attrib
+      val a_mathematical : Svg_types.number wrap -> [> `Mathematical ] attrib
+      val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
+      val a_videographic : Svg_types.number wrap -> [> `VIdeographic ] attrib
+      val a_v_alphabetic : Svg_types.number wrap -> [> `VAlphabetic ] attrib
+      val a_v_mathematical :
+        Svg_types.number wrap -> [> `VMathematical ] attrib
+      val a_v_hanging : Svg_types.number wrap -> [> `VHanging ] attrib
+      val a_underline_position :
+        Svg_types.number wrap -> [> `UnderlinePosition ] attrib
+      val a_underline_thickness :
+        Svg_types.number wrap -> [> `UnderlineThickness ] attrib
+      val a_strikethrough_position :
+        Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
+      val a_strikethrough_thickness :
+        Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
+      val a_overline_position :
+        Svg_types.number wrap -> [> `OverlinePosition ] attrib
+      val a_overline_thickness :
+        Svg_types.number wrap -> [> `OverlineThickness ] attrib
+      val a_string : string wrap -> [> `String ] attrib
+      val a_name : string wrap -> [> `Name ] attrib
+      val a_alignment_baseline :
+        [< `After_edge
+         | `Alphabetic
+         | `Auto
+         | `Baseline
+         | `Before_edge
+         | `Central
+         | `Hanging
+         | `Ideographic
+         | `Inherit
+         | `Mathematical
+         | `Middle
+         | `Text_after_edge
+         | `Text_before_edge ]
+        wrap -> [> `Alignment_Baseline ] attrib
+      val a_dominant_baseline :
+        [< `Alphabetic
+         | `Auto
+         | `Central
+         | `Hanging
+         | `Ideographic
+         | `Inherit
+         | `Mathematical
+         | `Middle
+         | `No_change
+         | `Reset_size
+         | `Text_after_edge
+         | `Text_before_edge
+         | `Use_script ]
+        wrap -> [> `Dominant_Baseline ] attrib
+      val a_stop_color : Svg_types.color wrap -> [> `Stop_Color ] attrib
+      val a_stop_opacity : Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+      val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+      val a_stroke_width :
+        Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+      val a_stroke_linecap :
+        [< `Butt | `Round | `Square ] wrap -> [> `Stroke_Linecap ] attrib
+      val a_stroke_linejoin :
+        [< `Bever | `Miter | `Round ] wrap -> [> `Stroke_Linejoin ] attrib
+      val a_stroke_miterlimit : float wrap -> [> `Stroke_Miterlimit ] attrib
+      val a_stroke_dasharray :
+        Svg_types.Unit.length list wrap -> [> `Stroke_Dasharray ] attrib
+      val a_stroke_dashoffset :
+        Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+      val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
+      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+      val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
+      val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
+      val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
+      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+      val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
+      val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
+      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+      val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
+      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+      val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
+      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+      val a_ontouchstart :
+        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+      val a_ontouchcancel :
+        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+      val txt : string wrap -> [> Svg_types.txt ] elt
+      val svg :
+        ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
+         [> Svg_types.svg ])
+        star
+      val g :
+        ([< Svg_types.g_attr ], [< Svg_types.g_content ], [> Svg_types.g ])
+        star
+      val defs :
+        ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
+         [> Svg_types.defs ])
+        star
+      val desc :
+        ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
+         [> Svg_types.desc ])
+        unary
+      val title :
+        ([< Svg_types.title_attr ], [< Svg_types.title_content ],
+         [> Svg_types.title ])
+        unary
+      val symbol :
+        ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
+         [> Svg_types.symbol ])
+        star
+      val use :
+        ([< Svg_types.use_attr ], [< Svg_types.use_content ],
+         [> Svg_types.use ])
+        star
+      val image :
+        ([< Svg_types.image_attr ], [< Svg_types.image_content ],
+         [> Svg_types.image ])
+        star
+      val switch :
+        ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
+         [> Svg_types.switch ])
+        star
+      val style :
+        ([< Svg_types.style_attr ], [< Svg_types.style_content ],
+         [> Svg_types.style ])
+        unary
+      val path :
+        ([< Svg_types.path_attr ], [< Svg_types.path_content ],
+         [> Svg_types.path ])
+        star
+      val rect :
+        ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
+         [> Svg_types.rect ])
+        star
+      val circle :
+        ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
+         [> Svg_types.circle ])
+        star
+      val ellipse :
+        ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
+         [> Svg_types.ellipse ])
+        star
+      val line :
+        ([< Svg_types.line_attr ], [< Svg_types.line_content ],
+         [> Svg_types.line ])
+        star
+      val polyline :
+        ([< Svg_types.polyline_attr ], [< Svg_types.polyline_content ],
+         [> Svg_types.polyline ])
+        star
+      val polygon :
+        ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
+         [> Svg_types.polygon ])
+        star
+      val text :
+        ([< Svg_types.text_attr ], [< Svg_types.text_content ],
+         [> Svg_types.text ])
+        star
+      val tspan :
+        ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
+         [> Svg_types.tspan ])
+        star
+      val tref :
+        ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
+         [> Svg_types.tref ])
+        star
+      val textPath :
+        ([< Svg_types.textpath_attr ], [< Svg_types.textpath_content ],
+         [> Svg_types.textpath ])
+        star
+      val altGlyph :
+        ([< Svg_types.altglyph_attr ], [< Svg_types.altglyph_content ],
+         [> Svg_types.altglyph ])
+        unary
+      type altglyphdef_content =
+          [ `Item of Svg_types.altglyphitem elt list
+          | `Ref of Svg_types.glyphref elt list ]
+      val altGlyphDef :
+        ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
+         [> Svg_types.altglyphdef ])
+        unary
+      val altGlyphItem :
+        ([< Svg_types.altglyphitem_attr ],
+         [< Svg_types.altglyphitem_content ], [> Svg_types.altglyphitem ])
+        star
+      val glyphRef :
+        ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ]) nullary
+      val marker :
+        ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
+         [> Svg_types.marker ])
+        star
+      val color_profile :
+        ([< Svg_types.colorprofile_attr ],
+         [< Svg_types.colorprofile_content ], [> Svg_types.colorprofile ])
+        star
+      val linearGradient :
+        ([< Svg_types.lineargradient_attr ],
+         [< Svg_types.lineargradient_content ],
+         [> Svg_types.lineargradient ])
+        star
+      val radialGradient :
+        ([< Svg_types.radialgradient_attr ],
+         [< Svg_types.radialgradient_content ],
+         [> Svg_types.radialgradient ])
+        star
+      val stop :
+        ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
+         [> Svg_types.stop ])
+        star
+      val pattern :
+        ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
+         [> Svg_types.pattern ])
+        star
+      val clipPath :
+        ([< Svg_types.clippath_attr ], [< Svg_types.clippath_content ],
+         [> Svg_types.clippath ])
+        star
+      val filter :
+        ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
+         [> Svg_types.filter ])
+        star
+      val feDistantLight :
+        ([< Svg_types.fedistantlight_attr ],
+         [< Svg_types.fedistantlight_content ],
+         [> Svg_types.fedistantlight ])
+        star
+      val fePointLight :
+        ([< Svg_types.fepointlight_attr ],
+         [< Svg_types.fepointlight_content ], [> Svg_types.fepointlight ])
+        star
+      val feSpotLight :
+        ([< Svg_types.fespotlight_attr ], [< Svg_types.fespotlight_content ],
+         [> Svg_types.fespotlight ])
+        star
+      val feBlend :
+        ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
+         [> Svg_types.feblend ])
+        star
+      val feColorMatrix :
+        ([< Svg_types.fecolormatrix_attr ],
+         [< Svg_types.fecolormatrix_content ], [> Svg_types.fecolormatrix ])
+        star
+      val feComponentTransfer :
+        ([< Svg_types.fecomponenttransfer_attr ],
+         [< Svg_types.fecomponenttransfer_content ],
+         [> Svg_types.fecomponenttransfer ])
+        star
+      val feFuncA :
+        ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
+         [> Svg_types.fefunca ])
+        star
+      val feFuncG :
+        ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
+         [> Svg_types.fefuncg ])
+        star
+      val feFuncB :
+        ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
+         [> Svg_types.fefuncb ])
+        star
+      val feFuncR :
+        ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
+         [> Svg_types.fefuncr ])
+        star
+      val feComposite :
+        ([< Svg_types.fecomposite_attr ], [< Svg_types.fecomposite_content ],
+         [> Svg_types.fecomposite ])
+        star
+      val feConvolveMatrix :
+        ([< Svg_types.feconvolvematrix_attr ],
+         [< Svg_types.feconvolvematrix_content ],
+         [> Svg_types.feconvolvematrix ])
+        star
+      val feDiffuseLighting :
+        ([< Svg_types.fediffuselighting_attr ],
+         [< Svg_types.fediffuselighting_content ],
+         [> Svg_types.fediffuselighting ])
+        star
+      val feDisplacementMap :
+        ([< Svg_types.fedisplacementmap_attr ],
+         [< Svg_types.fedisplacementmap_content ],
+         [> Svg_types.fedisplacementmap ])
+        star
+      val feFlood :
+        ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
+         [> Svg_types.feflood ])
+        star
+      val feGaussianBlur :
+        ([< Svg_types.fegaussianblur_attr ],
+         [< Svg_types.fegaussianblur_content ],
+         [> Svg_types.fegaussianblur ])
+        star
+      val feImage :
+        ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
+         [> Svg_types.feimage ])
+        star
+      val feMerge :
+        ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
+         [> Svg_types.femerge ])
+        star
+      val feMorphology :
+        ([< Svg_types.femorphology_attr ],
+         [< Svg_types.femorphology_content ], [> Svg_types.femorphology ])
+        star
+      val feOffset :
+        ([< Svg_types.feoffset_attr ], [< Svg_types.feoffset_content ],
+         [> Svg_types.feoffset ])
+        star
+      val feSpecularLighting :
+        ([< Svg_types.fespecularlighting_attr ],
+         [< Svg_types.fespecularlighting_content ],
+         [> Svg_types.fespecularlighting ])
+        star
+      val feTile :
+        ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
+         [> Svg_types.fetile ])
+        star
+      val feTurbulence :
+        ([< Svg_types.feturbulence_attr ],
+         [< Svg_types.feturbulence_content ], [> Svg_types.feturbulence ])
+        star
+      val cursor :
+        ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
+         [> Svg_types.cursor ])
+        star
+      val a :
+        ([< Svg_types.a_attr ], [< Svg_types.a_content ], [> Svg_types.a ])
+        star
+      val view :
+        ([< Svg_types.view_attr ], [< Svg_types.view_content ],
+         [> Svg_types.view ])
+        star
+      val script :
+        ([< Svg_types.script_attr ], [< Svg_types.script_content ],
+         [> Svg_types.script ])
+        unary
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
+      val set :
+        ([< Svg_types.set_attr ], [< Svg_types.set_content ],
+         [> Svg_types.set ])
+        star
+      val animateMotion :
+        ([< Svg_types.animatemotion_attr ],
+         [< Svg_types.animatemotion_content ], [> Svg_types.animatemotion ])
+        star
+      val mpath :
+        ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
+         [> Svg_types.mpath ])
+        star
+      val animateColor :
+        ([< Svg_types.animatecolor_attr ],
+         [< Svg_types.animatecolor_content ], [> Svg_types.animatecolor ])
+        star
+      val animateTransform :
+        ([< Svg_types.animatetransform_attr ],
+         [< Svg_types.animatetransform_content ],
+         [> Svg_types.animatetransform ])
+        star
+      val font :
+        ([< Svg_types.font_attr ], [< Svg_types.font_content ],
+         [> Svg_types.font ])
+        star
+      val glyph :
+        ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
+         [> Svg_types.glyph ])
+        star
+      val missing_glyph :
+        ([< Svg_types.missingglyph_attr ],
+         [< Svg_types.missingglyph_content ], [> Svg_types.missingglyph ])
+        star
+      val hkern : ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
+      val vkern : ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
+      val font_face :
+        ([< Svg_types.font_face_attr ], [> Svg_types.font_face ]) nullary
+      val font_face_src :
+        ([< Svg_types.font_face_src_attr ],
+         [< Svg_types.font_face_src_content ], [> Svg_types.font_face_src ])
+        star
+      val font_face_uri :
+        ([< Svg_types.font_face_uri_attr ],
+         [< Svg_types.font_face_uri_content ], [> Svg_types.font_face_uri ])
+        star
+      val font_face_format :
+        ([< Svg_types.font_face_format_attr ],
+         [> Svg_types.font_face_format ])
+        nullary
+      val font_face_name :
+        ([< Svg_types.font_face_name_attr ], [> Svg_types.font_face_name ])
+        nullary
+      val metadata :
+        ?a:Svg_types.metadata_attr attrib list ->
+        Xml.elt list_wrap -> [> Svg_types.metadata ] elt
+      val foreignObject :
+        ?a:Svg_types.foreignobject_attr attrib list ->
+        Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+      val pcdata : string wrap -> [> Svg_types.txt ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
+      val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+      val tot : Xml.elt -> 'a elt
+      val totl : Xml.elt list_wrap -> 'a elt list_wrap
+      val toelt : 'a elt -> Xml.elt
+      val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+      val doc_toelt : doc -> Xml.elt
+      val to_xmlattribs : 'a attrib list -> Xml.attrib list
+      val to_attrib : Xml.attrib -> 'a attrib
+      module Unsafe :
+        sig
+          val data : string wrap -> 'a elt
+          val node :
+            string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+          val coerce_elt : 'a elt -> 'b elt
+          val string_attrib : string -> string wrap -> 'a attrib
+          val float_attrib : string -> float wrap -> 'a attrib
+          val int_attrib : string -> int wrap -> 'a attrib
+          val uri_attrib : string -> uri wrap -> 'a attrib
+          val space_sep_attrib : string -> string list wrap -> 'a attrib
+          val comma_sep_attrib : string -> string list wrap -> 'a attrib
+        end
+    end
   module Raw :
     sig
       type 'a elt = 'a elt
@@ -165,7 +956,7 @@
         [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
         [ `GradientUnits ] attrib
       val a_gradientTransform :
-        Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
       val a_spreadMethod :
         [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
       val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -301,6 +1092,7 @@
       val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
       val a_animation_fill :
         [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
       val a_calcMode :
         [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
         [> `CalcMode ] attrib
@@ -425,31 +1217,6 @@
       val a_stroke_dashoffset :
         Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
       val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
-      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-      val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
-      val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
-      val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
-      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-      val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
-      val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
-      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-      val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
-      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-      val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
-      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-      val a_ontouchstart :
-        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-      val a_ontouchcancel :
-        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
       val txt : string wrap -> [> Svg_types.txt ] elt
       val svg :
         ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
@@ -699,9 +1466,9 @@
         ([< Svg_types.script_attr ], [< Svg_types.script_content ],
          [> Svg_types.script ])
         unary
-      val animation :
-        ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-         [> Svg_types.animation ])
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
         star
       val set :
         ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -762,6 +1529,10 @@
         ?a:Svg_types.foreignobject_attr attrib list ->
         Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
       val pcdata : string wrap -> [> Svg_types.txt ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
       val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
       val tot : Xml.elt -> 'a elt
       val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -784,6 +1555,29 @@
           val space_sep_attrib : string -> string list wrap -> 'a attrib
           val comma_sep_attrib : string -> string list wrap -> 'a attrib
         end
+      val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+      val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+      val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+      val a_onend : string -> [> `OnEnd ] Raw'.attrib
+      val a_onerror : string -> [> `OnError ] Raw'.attrib
+      val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+      val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+      val a_onload : string -> [> `OnLoad ] Raw'.attrib
+      val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+      val a_onresize : string -> [> `OnResize ] Raw'.attrib
+      val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+      val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+      val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+      val a_onclick : string -> [> `OnClick ] Raw'.attrib
+      val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+      val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+      val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+      val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+      val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+      val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+      val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+      val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+      val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
     end
   type 'a elt = 'a elt
   type doc = [ `Svg ] elt
@@ -940,7 +1734,7 @@
     [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
     [ `GradientUnits ] attrib
   val a_gradientTransform :
-    Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+    Svg_types.transforms wrap -> [> `GradientTransform ] attrib
   val a_spreadMethod :
     [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
   val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -1071,6 +1865,7 @@
   val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
   val a_animation_fill :
     [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+  val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
   val a_calcMode :
     [< `Discrete | `Linear | `Paced | `Spline ] wrap -> [> `CalcMode ] attrib
   val a_animation_values : Svg_types.strings wrap -> [> `Valuesanim ] attrib
@@ -1453,9 +2248,9 @@
     ([< Svg_types.script_attr ], [< Svg_types.script_content ],
      [> Svg_types.script ])
     unary
-  val animation :
-    ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-     [> Svg_types.animation ])
+  val animate :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
     star
   val set :
     ([< Svg_types.set_attr ], [< Svg_types.set_content ], [> Svg_types.set ])
@@ -1514,6 +2309,10 @@
     ?a:Svg_types.foreignobject_attr attrib list ->
     Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
   val pcdata : string wrap -> [> Svg_types.txt ] elt
+  val animation :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
+    star
   val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
   val tot : Xml.elt -> 'a elt
   val totl : Xml.elt list_wrap -> 'a elt list_wrap
diff --git a/doc/10.x/api/server/type_Eliom_content.Svg.F.Raw.wiki b/doc/11.x/api/client/type_Eliom_content.Svg.F.Raw.wiki
similarity index 94%
rename from doc/10.x/api/server/type_Eliom_content.Svg.F.Raw.wiki
rename to doc/11.x/api/client/type_Eliom_content.Svg.F.Raw.wiki
index 2da2dd1419..d44b014540 100644
--- a/doc/10.x/api/server/type_Eliom_content.Svg.F.Raw.wiki
+++ b/doc/11.x/api/client/type_Eliom_content.Svg.F.Raw.wiki
@@ -154,7 +154,7 @@
     [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
     [ `GradientUnits ] attrib
   val a_gradientTransform :
-    Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+    Svg_types.transforms wrap -> [> `GradientTransform ] attrib
   val a_spreadMethod :
     [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
   val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -285,6 +285,7 @@
   val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
   val a_animation_fill :
     [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+  val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
   val a_calcMode :
     [< `Discrete | `Linear | `Paced | `Spline ] wrap -> [> `CalcMode ] attrib
   val a_animation_values : Svg_types.strings wrap -> [> `Valuesanim ] attrib
@@ -403,29 +404,6 @@
   val a_stroke_dashoffset :
     Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
   val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
-  val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-  val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
-  val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
-  val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
-  val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-  val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
-  val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
-  val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-  val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
-  val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-  val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-  val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-  val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
-  val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-  val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-  val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-  val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-  val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-  val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-  val a_ontouchstart : Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-  val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-  val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-  val a_ontouchcancel : Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
   val txt : string wrap -> [> Svg_types.txt ] elt
   val svg :
     ([< Svg_types.svg_attr ], [< Svg_types.svg_content ], [> Svg_types.svg ])
@@ -667,9 +645,9 @@
     ([< Svg_types.script_attr ], [< Svg_types.script_content ],
      [> Svg_types.script ])
     unary
-  val animation :
-    ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-     [> Svg_types.animation ])
+  val animate :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
     star
   val set :
     ([< Svg_types.set_attr ], [< Svg_types.set_content ], [> Svg_types.set ])
@@ -728,6 +706,10 @@
     ?a:Svg_types.foreignobject_attr attrib list ->
     Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
   val pcdata : string wrap -> [> Svg_types.txt ] elt
+  val animation :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
+    star
   val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
   val tot : Xml.elt -> 'a elt
   val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -749,4 +731,27 @@
       val space_sep_attrib : string -> string list wrap -> 'a attrib
       val comma_sep_attrib : string -> string list wrap -> 'a attrib
     end
+  val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+  val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+  val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+  val a_onend : string -> [> `OnEnd ] Raw'.attrib
+  val a_onerror : string -> [> `OnError ] Raw'.attrib
+  val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+  val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+  val a_onload : string -> [> `OnLoad ] Raw'.attrib
+  val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+  val a_onresize : string -> [> `OnResize ] Raw'.attrib
+  val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+  val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+  val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+  val a_onclick : string -> [> `OnClick ] Raw'.attrib
+  val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+  val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+  val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+  val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+  val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+  val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+  val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+  val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+  val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/server/type_Eliom_content.Svg.F.wiki b/doc/11.x/api/client/type_Eliom_content.Svg.F.wiki
similarity index 64%
rename from doc/10.x/api/server/type_Eliom_content.Svg.F.wiki
rename to doc/11.x/api/client/type_Eliom_content.Svg.F.wiki
index 11f7f95969..0a069f3646 100644
--- a/doc/10.x/api/server/type_Eliom_content.Svg.F.wiki
+++ b/doc/11.x/api/client/type_Eliom_content.Svg.F.wiki
@@ -1,4 +1,795 @@
 <<code language="ocaml" | sig
+  module Raw' :
+    sig
+      type 'a elt = 'a elt
+      type doc = [ `Svg ] elt
+      type 'a attrib = 'a attrib
+      module Xml :
+        sig
+          module W :
+            sig
+              type 'a t = 'a Xml.W.t
+              val return : 'a -> 'a t
+              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+              val fmap : ('a, 'b) ft -> 'a t -> 'b t
+              type 'a tlist = 'a Xml.W.tlist
+              val nil : unit -> 'a tlist
+              val singleton : 'a t -> 'a tlist
+              val cons : 'a t -> 'a tlist -> 'a tlist
+              val append : 'a tlist -> 'a tlist -> 'a tlist
+              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+            end
+          type 'a wrap = 'a W.t
+          type 'a list_wrap = 'a W.tlist
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) W.ft
+          val uri_of_string : (string, uri) W.ft
+          type aname = string
+          type event_handler = Xml.event_handler
+          type mouse_event_handler = Xml.mouse_event_handler
+          type keyboard_event_handler = Xml.keyboard_event_handler
+          type touch_event_handler = Xml.touch_event_handler
+          type attrib = Xml.attrib
+          val float_attrib : aname -> float wrap -> attrib
+          val int_attrib : aname -> int wrap -> attrib
+          val string_attrib : aname -> string wrap -> attrib
+          val space_sep_attrib : aname -> string list wrap -> attrib
+          val comma_sep_attrib : aname -> string list wrap -> attrib
+          val event_handler_attrib : aname -> event_handler -> attrib
+          val mouse_event_handler_attrib :
+            aname -> mouse_event_handler -> attrib
+          val keyboard_event_handler_attrib :
+            aname -> keyboard_event_handler -> attrib
+          val touch_event_handler_attrib :
+            aname -> touch_event_handler -> attrib
+          val uri_attrib : aname -> uri wrap -> attrib
+          val uris_attrib : aname -> uri list wrap -> attrib
+          type elt = Xml.elt
+          type ename = string
+          val empty : unit -> elt
+          val comment : string -> elt
+          val pcdata : string wrap -> elt
+          val encodedpcdata : string wrap -> elt
+          val entity : string -> elt
+          val leaf : ?a:attrib list -> ename -> elt
+          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+          val cdata : string -> elt
+          val cdata_script : string -> elt
+          val cdata_style : string -> elt
+        end
+      type 'a wrap = 'a Xml.W.t
+      type 'a list_wrap = 'a Xml.W.tlist
+      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
+      type ('a, 'b, 'c) star =
+          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+      module Info : Xml_sigs.Info
+      type uri = Xml.uri
+      val string_of_uri : (uri, string) Xml.W.ft
+      val uri_of_string : (string, uri) Xml.W.ft
+      val a_version : string wrap -> [> `Version ] attrib
+      val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+      val a_x : Svg_types.coord wrap -> [> `X ] attrib
+      val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+      val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+      val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
+      val a_preserveAspectRatio :
+        string wrap -> [> `PreserveAspectRatio ] attrib
+      val a_contentScriptType : string wrap -> [> `ContentScriptType ] attrib
+      val a_contentStyleType : string wrap -> [> `ContentStyleType ] attrib
+      val a_zoomAndPan :
+        [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+      val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+      val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+      val a_requiredFeatures :
+        Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+      val a_requiredExtensions :
+        Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+      val a_systemLanguage :
+        Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+      val a_externalRessourcesRequired :
+        bool wrap -> [> `ExternalRessourcesRequired ] attrib
+      val a_id : string wrap -> [> `Id ] attrib
+      val a_user_data : string -> string wrap -> [> `User_data ] attrib
+      val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+      val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+      val a_xml_space :
+        [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+      val a_type : string wrap -> [> `Type ] attrib
+      val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+      val a_xlink_title : string wrap -> [> `Title ] attrib
+      val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+      val a_style : string wrap -> [> `Style ] attrib
+      val a_transform : Svg_types.transforms wrap -> [> `Transform ] attrib
+      val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+      val a_d : string wrap -> [> `D ] attrib
+      val a_pathLength : float wrap -> [> `PathLength ] attrib
+      val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+      val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+      val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+      val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+      val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+      val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+      val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+      val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+      val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+      val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+      val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+      val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+      val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+      val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+      val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+      val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+      val a_lengthAdjust :
+        [< `Spacing | `SpacingAndGlyphs ] wrap -> [> `LengthAdjust ] attrib
+      val a_textLength :
+        Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+      val a_text_anchor :
+        [< `End | `Inherit | `Middle | `Start ] wrap ->
+        [> `Text_Anchor ] attrib
+      val a_text_decoration :
+        [< `Blink | `Inherit | `Line_through | `None | `Overline | `Underline
+        ] wrap -> [> `Text_Decoration ] attrib
+      val a_text_rendering :
+        [< `Auto
+         | `GeometricPrecision
+         | `Inherit
+         | `OptimizeLegibility
+         | `OptimizeSpeed ]
+        wrap -> [> `Text_Rendering ] attrib
+      val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+      val a_startOffset :
+        Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+      val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+      val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+      val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+      val a_format : string wrap -> [> `Format ] attrib
+      val a_markerUnits :
+        [< `StrokeWidth | `UserSpaceOnUse ] wrap -> [> `MarkerUnits ] attrib
+      val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+      val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+      val a_markerWidth :
+        Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+      val a_markerHeight :
+        Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+      val a_orient : Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+      val a_local : string wrap -> [> `Local ] attrib
+      val a_rendering_intent :
+        [< `Absolute_colorimetric
+         | `Auto
+         | `Perceptual
+         | `Relative_colorimetric
+         | `Saturation ]
+        wrap -> [> `Rendering_Indent ] attrib
+      val a_gradientUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [ `GradientUnits ] attrib
+      val a_gradientTransform :
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+      val a_spreadMethod :
+        [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
+      val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+      val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+      val a_offset :
+        [< `Number of Svg_types.number | `Percentage of Svg_types.percentage
+        ] wrap -> [> `Offset ] attrib
+      val a_patternUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PatternUnits ] attrib
+      val a_patternContentUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PatternContentUnits ] attrib
+      val a_patternTransform :
+        Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+      val a_clipPathUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `ClipPathUnits ] attrib
+      val a_maskUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `MaskUnits ] attrib
+      val a_maskContentUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `MaskContentUnits ] attrib
+      val a_primitiveUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PrimitiveUnits ] attrib
+      val a_filterRes :
+        Svg_types.number_optional_number wrap -> [> `FilterResUnits ] attrib
+      val a_result : string wrap -> [> `Result ] attrib
+      val a_in :
+        [< `BackgroundAlpha
+         | `BackgroundImage
+         | `FillPaint
+         | `Ref of string
+         | `SourceAlpha
+         | `SourceGraphic
+         | `StrokePaint ]
+        wrap -> [> `In ] attrib
+      val a_in2 :
+        [< `BackgroundAlpha
+         | `BackgroundImage
+         | `FillPaint
+         | `Ref of string
+         | `SourceAlpha
+         | `SourceGraphic
+         | `StrokePaint ]
+        wrap -> [> `In2 ] attrib
+      val a_azimuth : float wrap -> [> `Azimuth ] attrib
+      val a_elevation : float wrap -> [> `Elevation ] attrib
+      val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
+      val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
+      val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
+      val a_specularExponent : float wrap -> [> `SpecularExponent ] attrib
+      val a_specularConstant : float wrap -> [> `SpecularConstant ] attrib
+      val a_limitingConeAngle : float wrap -> [> `LimitingConeAngle ] attrib
+      val a_mode :
+        [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
+        [> `Mode ] attrib
+      val a_feColorMatrix_type :
+        [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ] wrap ->
+        [> `Typefecolor ] attrib
+      val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
+      val a_transfer_type :
+        [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
+        [> `Type_transfert ] attrib
+      val a_tableValues : Svg_types.numbers wrap -> [> `TableValues ] attrib
+      val a_intercept : Svg_types.number wrap -> [> `Intercept ] attrib
+      val a_amplitude : Svg_types.number wrap -> [> `Amplitude ] attrib
+      val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
+      val a_transfer_offset :
+        Svg_types.number wrap -> [> `Offset_transfer ] attrib
+      val a_feComposite_operator :
+        [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
+        [> `OperatorComposite ] attrib
+      val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
+      val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
+      val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
+      val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
+      val a_order :
+        Svg_types.number_optional_number wrap -> [> `Order ] attrib
+      val a_kernelMatrix :
+        Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
+      val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
+      val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
+      val a_kernelUnitLength :
+        Svg_types.number_optional_number wrap ->
+        [> `KernelUnitLength ] attrib
+      val a_targetX : int wrap -> [> `TargetX ] attrib
+      val a_targetY : int wrap -> [> `TargetY ] attrib
+      val a_edgeMode :
+        [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
+      val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
+      val a_surfaceScale : Svg_types.number wrap -> [> `SurfaceScale ] attrib
+      val a_diffuseConstant :
+        Svg_types.number wrap -> [> `DiffuseConstant ] attrib
+      val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
+      val a_xChannelSelector :
+        [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
+      val a_yChannelSelector :
+        [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
+      val a_stdDeviation :
+        Svg_types.number_optional_number wrap -> [> `StdDeviation ] attrib
+      val a_feMorphology_operator :
+        [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
+      val a_radius :
+        Svg_types.number_optional_number wrap -> [> `Radius ] attrib
+      val a_baseFrenquency :
+        Svg_types.number_optional_number wrap -> [> `BaseFrequency ] attrib
+      val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
+      val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
+      val a_stitchTiles :
+        [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
+      val a_feTurbulence_type :
+        [< `FractalNoise | `Turbulence ] wrap -> [> `TypeStitch ] attrib
+      val a_xlink_show : [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
+      val a_xlink_actuate :
+        [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
+        [> `Xlink_actuate ] attrib
+      val a_target : string wrap -> [> `Xlink_target ] attrib
+      val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
+      val a_attributeName : string wrap -> [> `AttributeName ] attrib
+      val a_attributeType :
+        [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
+      val a_begin : string wrap -> [> `Begin ] attrib
+      val a_dur : string wrap -> [> `Dur ] attrib
+      val a_min : string wrap -> [> `Min ] attrib
+      val a_max : string wrap -> [> `Max ] attrib
+      val a_restart :
+        [< `Always | `Never | `WhenNotActive ] wrap -> [> `Restart ] attrib
+      val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
+      val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
+      val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
+      val a_animation_fill :
+        [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
+      val a_calcMode :
+        [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
+        [> `CalcMode ] attrib
+      val a_animation_values :
+        Svg_types.strings wrap -> [> `Valuesanim ] attrib
+      val a_keyTimes : Svg_types.strings wrap -> [> `KeyTimes ] attrib
+      val a_keySplines : Svg_types.strings wrap -> [> `KeySplines ] attrib
+      val a_from : string wrap -> [> `From ] attrib
+      val a_to : string wrap -> [> `To ] attrib
+      val a_by : string wrap -> [> `By ] attrib
+      val a_additive : [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
+      val a_accumulate : [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
+      val a_keyPoints :
+        Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
+      val a_path : string wrap -> [> `Path ] attrib
+      val a_animateTransform_type :
+        [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
+        [ `Typeanimatetransform ] attrib
+      val a_horiz_origin_x :
+        Svg_types.number wrap -> [> `HorizOriginX ] attrib
+      val a_horiz_origin_y :
+        Svg_types.number wrap -> [> `HorizOriginY ] attrib
+      val a_horiz_adv_x : Svg_types.number wrap -> [> `HorizAdvX ] attrib
+      val a_vert_origin_x : Svg_types.number wrap -> [> `VertOriginX ] attrib
+      val a_vert_origin_y : Svg_types.number wrap -> [> `VertOriginY ] attrib
+      val a_vert_adv_y : Svg_types.number wrap -> [> `VertAdvY ] attrib
+      val a_unicode : string wrap -> [> `Unicode ] attrib
+      val a_glyph_name : string wrap -> [> `glyphname ] attrib
+      val a_orientation : [< `H | `V ] wrap -> [> `Orientation ] attrib
+      val a_arabic_form :
+        [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
+        [> `Arabicform ] attrib
+      val a_lang : string wrap -> [> `Lang ] attrib
+      val a_u1 : string wrap -> [> `U1 ] attrib
+      val a_u2 : string wrap -> [> `U2 ] attrib
+      val a_g1 : string wrap -> [> `G1 ] attrib
+      val a_g2 : string wrap -> [> `G2 ] attrib
+      val a_k : string wrap -> [> `K ] attrib
+      val a_font_family : string wrap -> [> `Font_Family ] attrib
+      val a_font_style : string wrap -> [> `Font_Style ] attrib
+      val a_font_variant : string wrap -> [> `Font_Variant ] attrib
+      val a_font_weight : string wrap -> [> `Font_Weight ] attrib
+      val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
+      val a_font_size : string wrap -> [> `Font_Size ] attrib
+      val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
+      val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
+      val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
+      val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
+      val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
+      val a_cap_height : Svg_types.number wrap -> [> `CapHeight ] attrib
+      val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
+      val a_accent_height :
+        Svg_types.number wrap -> [> `AccentHeight ] attrib
+      val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
+      val a_widths : string wrap -> [> `Widths ] attrib
+      val a_bbox : string wrap -> [> `Bbox ] attrib
+      val a_ideographic : Svg_types.number wrap -> [> `Ideographic ] attrib
+      val a_alphabetic : Svg_types.number wrap -> [> `Alphabetic ] attrib
+      val a_mathematical : Svg_types.number wrap -> [> `Mathematical ] attrib
+      val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
+      val a_videographic : Svg_types.number wrap -> [> `VIdeographic ] attrib
+      val a_v_alphabetic : Svg_types.number wrap -> [> `VAlphabetic ] attrib
+      val a_v_mathematical :
+        Svg_types.number wrap -> [> `VMathematical ] attrib
+      val a_v_hanging : Svg_types.number wrap -> [> `VHanging ] attrib
+      val a_underline_position :
+        Svg_types.number wrap -> [> `UnderlinePosition ] attrib
+      val a_underline_thickness :
+        Svg_types.number wrap -> [> `UnderlineThickness ] attrib
+      val a_strikethrough_position :
+        Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
+      val a_strikethrough_thickness :
+        Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
+      val a_overline_position :
+        Svg_types.number wrap -> [> `OverlinePosition ] attrib
+      val a_overline_thickness :
+        Svg_types.number wrap -> [> `OverlineThickness ] attrib
+      val a_string : string wrap -> [> `String ] attrib
+      val a_name : string wrap -> [> `Name ] attrib
+      val a_alignment_baseline :
+        [< `After_edge
+         | `Alphabetic
+         | `Auto
+         | `Baseline
+         | `Before_edge
+         | `Central
+         | `Hanging
+         | `Ideographic
+         | `Inherit
+         | `Mathematical
+         | `Middle
+         | `Text_after_edge
+         | `Text_before_edge ]
+        wrap -> [> `Alignment_Baseline ] attrib
+      val a_dominant_baseline :
+        [< `Alphabetic
+         | `Auto
+         | `Central
+         | `Hanging
+         | `Ideographic
+         | `Inherit
+         | `Mathematical
+         | `Middle
+         | `No_change
+         | `Reset_size
+         | `Text_after_edge
+         | `Text_before_edge
+         | `Use_script ]
+        wrap -> [> `Dominant_Baseline ] attrib
+      val a_stop_color : Svg_types.color wrap -> [> `Stop_Color ] attrib
+      val a_stop_opacity : Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+      val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+      val a_stroke_width :
+        Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+      val a_stroke_linecap :
+        [< `Butt | `Round | `Square ] wrap -> [> `Stroke_Linecap ] attrib
+      val a_stroke_linejoin :
+        [< `Bever | `Miter | `Round ] wrap -> [> `Stroke_Linejoin ] attrib
+      val a_stroke_miterlimit : float wrap -> [> `Stroke_Miterlimit ] attrib
+      val a_stroke_dasharray :
+        Svg_types.Unit.length list wrap -> [> `Stroke_Dasharray ] attrib
+      val a_stroke_dashoffset :
+        Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+      val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
+      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+      val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
+      val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
+      val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
+      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+      val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
+      val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
+      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+      val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
+      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+      val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
+      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+      val a_ontouchstart :
+        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+      val a_ontouchcancel :
+        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+      val txt : string wrap -> [> Svg_types.txt ] elt
+      val svg :
+        ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
+         [> Svg_types.svg ])
+        star
+      val g :
+        ([< Svg_types.g_attr ], [< Svg_types.g_content ], [> Svg_types.g ])
+        star
+      val defs :
+        ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
+         [> Svg_types.defs ])
+        star
+      val desc :
+        ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
+         [> Svg_types.desc ])
+        unary
+      val title :
+        ([< Svg_types.title_attr ], [< Svg_types.title_content ],
+         [> Svg_types.title ])
+        unary
+      val symbol :
+        ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
+         [> Svg_types.symbol ])
+        star
+      val use :
+        ([< Svg_types.use_attr ], [< Svg_types.use_content ],
+         [> Svg_types.use ])
+        star
+      val image :
+        ([< Svg_types.image_attr ], [< Svg_types.image_content ],
+         [> Svg_types.image ])
+        star
+      val switch :
+        ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
+         [> Svg_types.switch ])
+        star
+      val style :
+        ([< Svg_types.style_attr ], [< Svg_types.style_content ],
+         [> Svg_types.style ])
+        unary
+      val path :
+        ([< Svg_types.path_attr ], [< Svg_types.path_content ],
+         [> Svg_types.path ])
+        star
+      val rect :
+        ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
+         [> Svg_types.rect ])
+        star
+      val circle :
+        ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
+         [> Svg_types.circle ])
+        star
+      val ellipse :
+        ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
+         [> Svg_types.ellipse ])
+        star
+      val line :
+        ([< Svg_types.line_attr ], [< Svg_types.line_content ],
+         [> Svg_types.line ])
+        star
+      val polyline :
+        ([< Svg_types.polyline_attr ], [< Svg_types.polyline_content ],
+         [> Svg_types.polyline ])
+        star
+      val polygon :
+        ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
+         [> Svg_types.polygon ])
+        star
+      val text :
+        ([< Svg_types.text_attr ], [< Svg_types.text_content ],
+         [> Svg_types.text ])
+        star
+      val tspan :
+        ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
+         [> Svg_types.tspan ])
+        star
+      val tref :
+        ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
+         [> Svg_types.tref ])
+        star
+      val textPath :
+        ([< Svg_types.textpath_attr ], [< Svg_types.textpath_content ],
+         [> Svg_types.textpath ])
+        star
+      val altGlyph :
+        ([< Svg_types.altglyph_attr ], [< Svg_types.altglyph_content ],
+         [> Svg_types.altglyph ])
+        unary
+      type altglyphdef_content =
+          [ `Item of Svg_types.altglyphitem elt list
+          | `Ref of Svg_types.glyphref elt list ]
+      val altGlyphDef :
+        ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
+         [> Svg_types.altglyphdef ])
+        unary
+      val altGlyphItem :
+        ([< Svg_types.altglyphitem_attr ],
+         [< Svg_types.altglyphitem_content ], [> Svg_types.altglyphitem ])
+        star
+      val glyphRef :
+        ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ]) nullary
+      val marker :
+        ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
+         [> Svg_types.marker ])
+        star
+      val color_profile :
+        ([< Svg_types.colorprofile_attr ],
+         [< Svg_types.colorprofile_content ], [> Svg_types.colorprofile ])
+        star
+      val linearGradient :
+        ([< Svg_types.lineargradient_attr ],
+         [< Svg_types.lineargradient_content ],
+         [> Svg_types.lineargradient ])
+        star
+      val radialGradient :
+        ([< Svg_types.radialgradient_attr ],
+         [< Svg_types.radialgradient_content ],
+         [> Svg_types.radialgradient ])
+        star
+      val stop :
+        ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
+         [> Svg_types.stop ])
+        star
+      val pattern :
+        ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
+         [> Svg_types.pattern ])
+        star
+      val clipPath :
+        ([< Svg_types.clippath_attr ], [< Svg_types.clippath_content ],
+         [> Svg_types.clippath ])
+        star
+      val filter :
+        ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
+         [> Svg_types.filter ])
+        star
+      val feDistantLight :
+        ([< Svg_types.fedistantlight_attr ],
+         [< Svg_types.fedistantlight_content ],
+         [> Svg_types.fedistantlight ])
+        star
+      val fePointLight :
+        ([< Svg_types.fepointlight_attr ],
+         [< Svg_types.fepointlight_content ], [> Svg_types.fepointlight ])
+        star
+      val feSpotLight :
+        ([< Svg_types.fespotlight_attr ], [< Svg_types.fespotlight_content ],
+         [> Svg_types.fespotlight ])
+        star
+      val feBlend :
+        ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
+         [> Svg_types.feblend ])
+        star
+      val feColorMatrix :
+        ([< Svg_types.fecolormatrix_attr ],
+         [< Svg_types.fecolormatrix_content ], [> Svg_types.fecolormatrix ])
+        star
+      val feComponentTransfer :
+        ([< Svg_types.fecomponenttransfer_attr ],
+         [< Svg_types.fecomponenttransfer_content ],
+         [> Svg_types.fecomponenttransfer ])
+        star
+      val feFuncA :
+        ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
+         [> Svg_types.fefunca ])
+        star
+      val feFuncG :
+        ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
+         [> Svg_types.fefuncg ])
+        star
+      val feFuncB :
+        ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
+         [> Svg_types.fefuncb ])
+        star
+      val feFuncR :
+        ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
+         [> Svg_types.fefuncr ])
+        star
+      val feComposite :
+        ([< Svg_types.fecomposite_attr ], [< Svg_types.fecomposite_content ],
+         [> Svg_types.fecomposite ])
+        star
+      val feConvolveMatrix :
+        ([< Svg_types.feconvolvematrix_attr ],
+         [< Svg_types.feconvolvematrix_content ],
+         [> Svg_types.feconvolvematrix ])
+        star
+      val feDiffuseLighting :
+        ([< Svg_types.fediffuselighting_attr ],
+         [< Svg_types.fediffuselighting_content ],
+         [> Svg_types.fediffuselighting ])
+        star
+      val feDisplacementMap :
+        ([< Svg_types.fedisplacementmap_attr ],
+         [< Svg_types.fedisplacementmap_content ],
+         [> Svg_types.fedisplacementmap ])
+        star
+      val feFlood :
+        ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
+         [> Svg_types.feflood ])
+        star
+      val feGaussianBlur :
+        ([< Svg_types.fegaussianblur_attr ],
+         [< Svg_types.fegaussianblur_content ],
+         [> Svg_types.fegaussianblur ])
+        star
+      val feImage :
+        ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
+         [> Svg_types.feimage ])
+        star
+      val feMerge :
+        ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
+         [> Svg_types.femerge ])
+        star
+      val feMorphology :
+        ([< Svg_types.femorphology_attr ],
+         [< Svg_types.femorphology_content ], [> Svg_types.femorphology ])
+        star
+      val feOffset :
+        ([< Svg_types.feoffset_attr ], [< Svg_types.feoffset_content ],
+         [> Svg_types.feoffset ])
+        star
+      val feSpecularLighting :
+        ([< Svg_types.fespecularlighting_attr ],
+         [< Svg_types.fespecularlighting_content ],
+         [> Svg_types.fespecularlighting ])
+        star
+      val feTile :
+        ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
+         [> Svg_types.fetile ])
+        star
+      val feTurbulence :
+        ([< Svg_types.feturbulence_attr ],
+         [< Svg_types.feturbulence_content ], [> Svg_types.feturbulence ])
+        star
+      val cursor :
+        ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
+         [> Svg_types.cursor ])
+        star
+      val a :
+        ([< Svg_types.a_attr ], [< Svg_types.a_content ], [> Svg_types.a ])
+        star
+      val view :
+        ([< Svg_types.view_attr ], [< Svg_types.view_content ],
+         [> Svg_types.view ])
+        star
+      val script :
+        ([< Svg_types.script_attr ], [< Svg_types.script_content ],
+         [> Svg_types.script ])
+        unary
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
+      val set :
+        ([< Svg_types.set_attr ], [< Svg_types.set_content ],
+         [> Svg_types.set ])
+        star
+      val animateMotion :
+        ([< Svg_types.animatemotion_attr ],
+         [< Svg_types.animatemotion_content ], [> Svg_types.animatemotion ])
+        star
+      val mpath :
+        ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
+         [> Svg_types.mpath ])
+        star
+      val animateColor :
+        ([< Svg_types.animatecolor_attr ],
+         [< Svg_types.animatecolor_content ], [> Svg_types.animatecolor ])
+        star
+      val animateTransform :
+        ([< Svg_types.animatetransform_attr ],
+         [< Svg_types.animatetransform_content ],
+         [> Svg_types.animatetransform ])
+        star
+      val font :
+        ([< Svg_types.font_attr ], [< Svg_types.font_content ],
+         [> Svg_types.font ])
+        star
+      val glyph :
+        ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
+         [> Svg_types.glyph ])
+        star
+      val missing_glyph :
+        ([< Svg_types.missingglyph_attr ],
+         [< Svg_types.missingglyph_content ], [> Svg_types.missingglyph ])
+        star
+      val hkern : ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
+      val vkern : ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
+      val font_face :
+        ([< Svg_types.font_face_attr ], [> Svg_types.font_face ]) nullary
+      val font_face_src :
+        ([< Svg_types.font_face_src_attr ],
+         [< Svg_types.font_face_src_content ], [> Svg_types.font_face_src ])
+        star
+      val font_face_uri :
+        ([< Svg_types.font_face_uri_attr ],
+         [< Svg_types.font_face_uri_content ], [> Svg_types.font_face_uri ])
+        star
+      val font_face_format :
+        ([< Svg_types.font_face_format_attr ],
+         [> Svg_types.font_face_format ])
+        nullary
+      val font_face_name :
+        ([< Svg_types.font_face_name_attr ], [> Svg_types.font_face_name ])
+        nullary
+      val metadata :
+        ?a:Svg_types.metadata_attr attrib list ->
+        Xml.elt list_wrap -> [> Svg_types.metadata ] elt
+      val foreignObject :
+        ?a:Svg_types.foreignobject_attr attrib list ->
+        Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+      val pcdata : string wrap -> [> Svg_types.txt ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
+      val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+      val tot : Xml.elt -> 'a elt
+      val totl : Xml.elt list_wrap -> 'a elt list_wrap
+      val toelt : 'a elt -> Xml.elt
+      val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+      val doc_toelt : doc -> Xml.elt
+      val to_xmlattribs : 'a attrib list -> Xml.attrib list
+      val to_attrib : Xml.attrib -> 'a attrib
+      module Unsafe :
+        sig
+          val data : string wrap -> 'a elt
+          val node :
+            string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+          val coerce_elt : 'a elt -> 'b elt
+          val string_attrib : string -> string wrap -> 'a attrib
+          val float_attrib : string -> float wrap -> 'a attrib
+          val int_attrib : string -> int wrap -> 'a attrib
+          val uri_attrib : string -> uri wrap -> 'a attrib
+          val space_sep_attrib : string -> string list wrap -> 'a attrib
+          val comma_sep_attrib : string -> string list wrap -> 'a attrib
+        end
+    end
   module Raw :
     sig
       type 'a elt = 'a elt
@@ -165,7 +956,7 @@
         [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
         [ `GradientUnits ] attrib
       val a_gradientTransform :
-        Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
       val a_spreadMethod :
         [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
       val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -301,6 +1092,7 @@
       val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
       val a_animation_fill :
         [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
       val a_calcMode :
         [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
         [> `CalcMode ] attrib
@@ -425,31 +1217,6 @@
       val a_stroke_dashoffset :
         Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
       val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
-      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-      val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
-      val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
-      val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
-      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-      val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
-      val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
-      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-      val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
-      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-      val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
-      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-      val a_ontouchstart :
-        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-      val a_ontouchcancel :
-        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
       val txt : string wrap -> [> Svg_types.txt ] elt
       val svg :
         ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
@@ -699,9 +1466,9 @@
         ([< Svg_types.script_attr ], [< Svg_types.script_content ],
          [> Svg_types.script ])
         unary
-      val animation :
-        ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-         [> Svg_types.animation ])
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
         star
       val set :
         ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -762,6 +1529,10 @@
         ?a:Svg_types.foreignobject_attr attrib list ->
         Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
       val pcdata : string wrap -> [> Svg_types.txt ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
       val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
       val tot : Xml.elt -> 'a elt
       val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -784,6 +1555,29 @@
           val space_sep_attrib : string -> string list wrap -> 'a attrib
           val comma_sep_attrib : string -> string list wrap -> 'a attrib
         end
+      val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+      val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+      val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+      val a_onend : string -> [> `OnEnd ] Raw'.attrib
+      val a_onerror : string -> [> `OnError ] Raw'.attrib
+      val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+      val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+      val a_onload : string -> [> `OnLoad ] Raw'.attrib
+      val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+      val a_onresize : string -> [> `OnResize ] Raw'.attrib
+      val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+      val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+      val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+      val a_onclick : string -> [> `OnClick ] Raw'.attrib
+      val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+      val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+      val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+      val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+      val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+      val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+      val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+      val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+      val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
     end
   type 'a elt = 'a elt
   type doc = [ `Svg ] elt
@@ -940,7 +1734,7 @@
     [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
     [ `GradientUnits ] attrib
   val a_gradientTransform :
-    Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+    Svg_types.transforms wrap -> [> `GradientTransform ] attrib
   val a_spreadMethod :
     [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
   val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -1071,6 +1865,7 @@
   val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
   val a_animation_fill :
     [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+  val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
   val a_calcMode :
     [< `Discrete | `Linear | `Paced | `Spline ] wrap -> [> `CalcMode ] attrib
   val a_animation_values : Svg_types.strings wrap -> [> `Valuesanim ] attrib
@@ -1453,9 +2248,9 @@
     ([< Svg_types.script_attr ], [< Svg_types.script_content ],
      [> Svg_types.script ])
     unary
-  val animation :
-    ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-     [> Svg_types.animation ])
+  val animate :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
     star
   val set :
     ([< Svg_types.set_attr ], [< Svg_types.set_content ], [> Svg_types.set ])
@@ -1514,6 +2309,10 @@
     ?a:Svg_types.foreignobject_attr attrib list ->
     Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
   val pcdata : string wrap -> [> Svg_types.txt ] elt
+  val animation :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
+    star
   val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
   val tot : Xml.elt -> 'a elt
   val totl : Xml.elt list_wrap -> 'a elt list_wrap
diff --git a/doc/10.x/api/client/type_Eliom_content.Svg.Id.wiki b/doc/11.x/api/client/type_Eliom_content.Svg.Id.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content.Svg.Id.wiki
rename to doc/11.x/api/client/type_Eliom_content.Svg.Id.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content.Svg.Manip.Class.wiki b/doc/11.x/api/client/type_Eliom_content.Svg.Manip.Class.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content.Svg.Manip.Class.wiki
rename to doc/11.x/api/client/type_Eliom_content.Svg.Manip.Class.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content.Svg.Manip.Named.wiki b/doc/11.x/api/client/type_Eliom_content.Svg.Manip.Named.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content.Svg.Manip.Named.wiki
rename to doc/11.x/api/client/type_Eliom_content.Svg.Manip.Named.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content.Svg.Manip.wiki b/doc/11.x/api/client/type_Eliom_content.Svg.Manip.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content.Svg.Manip.wiki
rename to doc/11.x/api/client/type_Eliom_content.Svg.Manip.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content.Svg.Of_dom.wiki b/doc/11.x/api/client/type_Eliom_content.Svg.Of_dom.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content.Svg.Of_dom.wiki
rename to doc/11.x/api/client/type_Eliom_content.Svg.Of_dom.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content.Svg.R.Raw.wiki b/doc/11.x/api/client/type_Eliom_content.Svg.R.Raw.wiki
similarity index 98%
rename from doc/10.x/api/client/type_Eliom_content.Svg.R.Raw.wiki
rename to doc/11.x/api/client/type_Eliom_content.Svg.R.Raw.wiki
index 32652fd3b7..0e0dec5bab 100644
--- a/doc/10.x/api/client/type_Eliom_content.Svg.R.Raw.wiki
+++ b/doc/11.x/api/client/type_Eliom_content.Svg.R.Raw.wiki
@@ -157,7 +157,7 @@
     [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
     [ `GradientUnits ] attrib
   val a_gradientTransform :
-    Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+    Svg_types.transforms wrap -> [> `GradientTransform ] attrib
   val a_spreadMethod :
     [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
   val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -288,6 +288,7 @@
   val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
   val a_animation_fill :
     [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+  val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
   val a_calcMode :
     [< `Discrete | `Linear | `Paced | `Spline ] wrap -> [> `CalcMode ] attrib
   val a_animation_values : Svg_types.strings wrap -> [> `Valuesanim ] attrib
@@ -670,9 +671,9 @@
     ([< Svg_types.script_attr ], [< Svg_types.script_content ],
      [> Svg_types.script ])
     unary
-  val animation :
-    ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-     [> Svg_types.animation ])
+  val animate :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
     star
   val set :
     ([< Svg_types.set_attr ], [< Svg_types.set_content ], [> Svg_types.set ])
@@ -731,6 +732,10 @@
     ?a:Svg_types.foreignobject_attr attrib list ->
     Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
   val pcdata : string wrap -> [> Svg_types.txt ] elt
+  val animation :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
+    star
   val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
   val tot : Xml.elt -> 'a elt
   val totl : Xml.elt list_wrap -> 'a elt list_wrap
diff --git a/doc/10.x/api/client/type_Eliom_content.Svg.R.wiki b/doc/11.x/api/client/type_Eliom_content.Svg.R.wiki
similarity index 98%
rename from doc/10.x/api/client/type_Eliom_content.Svg.R.wiki
rename to doc/11.x/api/client/type_Eliom_content.Svg.R.wiki
index 5c582482ec..85d09cbccf 100644
--- a/doc/10.x/api/client/type_Eliom_content.Svg.R.wiki
+++ b/doc/11.x/api/client/type_Eliom_content.Svg.R.wiki
@@ -170,7 +170,7 @@
         [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
         [ `GradientUnits ] attrib
       val a_gradientTransform :
-        Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
       val a_spreadMethod :
         [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
       val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -306,6 +306,7 @@
       val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
       val a_animation_fill :
         [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
       val a_calcMode :
         [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
         [> `CalcMode ] attrib
@@ -704,9 +705,9 @@
         ([< Svg_types.script_attr ], [< Svg_types.script_content ],
          [> Svg_types.script ])
         unary
-      val animation :
-        ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-         [> Svg_types.animation ])
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
         star
       val set :
         ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -767,6 +768,10 @@
         ?a:Svg_types.foreignobject_attr attrib list ->
         Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
       val pcdata : string wrap -> [> Svg_types.txt ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
       val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
       val tot : Xml.elt -> 'a elt
       val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -948,7 +953,7 @@
     [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
     [ `GradientUnits ] attrib
   val a_gradientTransform :
-    Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+    Svg_types.transforms wrap -> [> `GradientTransform ] attrib
   val a_spreadMethod :
     [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
   val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -1079,6 +1084,7 @@
   val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
   val a_animation_fill :
     [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+  val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
   val a_calcMode :
     [< `Discrete | `Linear | `Paced | `Spline ] wrap -> [> `CalcMode ] attrib
   val a_animation_values : Svg_types.strings wrap -> [> `Valuesanim ] attrib
@@ -1461,9 +1467,9 @@
     ([< Svg_types.script_attr ], [< Svg_types.script_content ],
      [> Svg_types.script ])
     unary
-  val animation :
-    ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-     [> Svg_types.animation ])
+  val animate :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
     star
   val set :
     ([< Svg_types.set_attr ], [< Svg_types.set_content ], [> Svg_types.set ])
@@ -1522,6 +1528,10 @@
     ?a:Svg_types.foreignobject_attr attrib list ->
     Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
   val pcdata : string wrap -> [> Svg_types.txt ] elt
+  val animation :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
+    star
   val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
   val tot : Xml.elt -> 'a elt
   val totl : Xml.elt list_wrap -> 'a elt list_wrap
diff --git a/doc/10.x/api/client/type_Eliom_content.Svg.To_dom.wiki b/doc/11.x/api/client/type_Eliom_content.Svg.To_dom.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content.Svg.To_dom.wiki
rename to doc/11.x/api/client/type_Eliom_content.Svg.To_dom.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content.Svg.wiki b/doc/11.x/api/client/type_Eliom_content.Svg.wiki
similarity index 73%
rename from doc/10.x/api/client/type_Eliom_content.Svg.wiki
rename to doc/11.x/api/client/type_Eliom_content.Svg.wiki
index 2354303ccf..c0b38b8109 100644
--- a/doc/10.x/api/client/type_Eliom_content.Svg.wiki
+++ b/doc/11.x/api/client/type_Eliom_content.Svg.wiki
@@ -2,9 +2,10 @@
   type +'a elt
   type +'a attrib
   type uri = Eliom_content.Xml.uri
+  module Ev' = Eliom_content_core.Svg.Ev'
   module F :
     sig
-      module Raw :
+      module Raw' :
         sig
           type 'a elt = 'a elt
           type doc = [ `Svg ] elt
@@ -182,7 +183,7 @@
             [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
             [ `GradientUnits ] attrib
           val a_gradientTransform :
-            Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
           val a_spreadMethod :
             [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
           val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -329,6 +330,8 @@
           val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
           val a_animation_fill :
             [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
           val a_calcMode :
             [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
             [> `CalcMode ] attrib
@@ -752,9 +755,9 @@
             ([< Svg_types.script_attr ], [< Svg_types.script_content ],
              [> Svg_types.script ])
             unary
-          val animation :
-            ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-             [> Svg_types.animation ])
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
             star
           val set :
             ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -823,6 +826,10 @@
             ?a:Svg_types.foreignobject_attr attrib list ->
             Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
           val pcdata : string wrap -> [> Svg_types.txt ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
           val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
           val tot : Xml.elt -> 'a elt
           val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -846,200 +853,1040 @@
               val comma_sep_attrib : string -> string list wrap -> 'a attrib
             end
         end
-      type 'a elt = 'a elt
-      type doc = [ `Svg ] elt
-      type 'a attrib = 'a attrib
-      module Xml :
+      module Raw :
         sig
-          module W :
+          type 'a elt = 'a elt
+          type doc = [ `Svg ] elt
+          type 'a attrib = 'a attrib
+          module Xml :
             sig
-              type 'a t = 'a Xml.W.t
-              val return : 'a -> 'a t
-              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
-              val fmap : ('a, 'b) ft -> 'a t -> 'b t
-              type 'a tlist = 'a Xml.W.tlist
-              val nil : unit -> 'a tlist
-              val singleton : 'a t -> 'a tlist
-              val cons : 'a t -> 'a tlist -> 'a tlist
-              val append : 'a tlist -> 'a tlist -> 'a tlist
-              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+              module W :
+                sig
+                  type 'a t = 'a Xml.W.t
+                  val return : 'a -> 'a t
+                  type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                  type 'a tlist = 'a Xml.W.tlist
+                  val nil : unit -> 'a tlist
+                  val singleton : 'a t -> 'a tlist
+                  val cons : 'a t -> 'a tlist -> 'a tlist
+                  val append : 'a tlist -> 'a tlist -> 'a tlist
+                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                end
+              type 'a wrap = 'a W.t
+              type 'a list_wrap = 'a W.tlist
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) W.ft
+              val uri_of_string : (string, uri) W.ft
+              type aname = string
+              type event_handler = Xml.event_handler
+              type mouse_event_handler = Xml.mouse_event_handler
+              type keyboard_event_handler = Xml.keyboard_event_handler
+              type touch_event_handler = Xml.touch_event_handler
+              type attrib = Xml.attrib
+              val float_attrib : aname -> float wrap -> attrib
+              val int_attrib : aname -> int wrap -> attrib
+              val string_attrib : aname -> string wrap -> attrib
+              val space_sep_attrib : aname -> string list wrap -> attrib
+              val comma_sep_attrib : aname -> string list wrap -> attrib
+              val event_handler_attrib : aname -> event_handler -> attrib
+              val mouse_event_handler_attrib :
+                aname -> mouse_event_handler -> attrib
+              val keyboard_event_handler_attrib :
+                aname -> keyboard_event_handler -> attrib
+              val touch_event_handler_attrib :
+                aname -> touch_event_handler -> attrib
+              val uri_attrib : aname -> uri wrap -> attrib
+              val uris_attrib : aname -> uri list wrap -> attrib
+              type elt = Xml.elt
+              type ename = string
+              val empty : unit -> elt
+              val comment : string -> elt
+              val pcdata : string wrap -> elt
+              val encodedpcdata : string wrap -> elt
+              val entity : string -> elt
+              val leaf : ?a:attrib list -> ename -> elt
+              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+              val cdata : string -> elt
+              val cdata_script : string -> elt
+              val cdata_style : string -> elt
             end
-          type 'a wrap = 'a W.t
-          type 'a list_wrap = 'a W.tlist
+          type 'a wrap = 'a Xml.W.t
+          type 'a list_wrap = 'a Xml.W.tlist
+          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+          type ('a, 'b, 'c) unary =
+              ?a:'a attrib list -> 'b elt wrap -> 'c elt
+          type ('a, 'b, 'c) star =
+              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          module Info : Xml_sigs.Info
           type uri = Xml.uri
-          val string_of_uri : (uri, string) W.ft
-          val uri_of_string : (string, uri) W.ft
-          type aname = string
-          type event_handler = Xml.event_handler
-          type mouse_event_handler = Xml.mouse_event_handler
-          type keyboard_event_handler = Xml.keyboard_event_handler
-          type touch_event_handler = Xml.touch_event_handler
-          type attrib = Xml.attrib
-          val float_attrib : aname -> float wrap -> attrib
-          val int_attrib : aname -> int wrap -> attrib
-          val string_attrib : aname -> string wrap -> attrib
-          val space_sep_attrib : aname -> string list wrap -> attrib
-          val comma_sep_attrib : aname -> string list wrap -> attrib
-          val event_handler_attrib : aname -> event_handler -> attrib
-          val mouse_event_handler_attrib :
-            aname -> mouse_event_handler -> attrib
-          val keyboard_event_handler_attrib :
-            aname -> keyboard_event_handler -> attrib
-          val touch_event_handler_attrib :
-            aname -> touch_event_handler -> attrib
-          val uri_attrib : aname -> uri wrap -> attrib
-          val uris_attrib : aname -> uri list wrap -> attrib
-          type elt = Xml.elt
-          type ename = string
-          val empty : unit -> elt
-          val comment : string -> elt
-          val pcdata : string wrap -> elt
-          val encodedpcdata : string wrap -> elt
-          val entity : string -> elt
-          val leaf : ?a:attrib list -> ename -> elt
-          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
-          val cdata : string -> elt
-          val cdata_script : string -> elt
-          val cdata_style : string -> elt
-        end
-      type 'a wrap = 'a Xml.W.t
-      type 'a list_wrap = 'a Xml.W.tlist
-      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
-      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
-      type ('a, 'b, 'c) star =
-          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-      module Info : Xml_sigs.Info
-      type uri = Xml.uri
-      val string_of_uri : (uri, string) Xml.W.ft
-      val uri_of_string : (string, uri) Xml.W.ft
-      val a_version : string wrap -> [> `Version ] attrib
-      val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
-      val a_x : Svg_types.coord wrap -> [> `X ] attrib
-      val a_y : Svg_types.coord wrap -> [> `Y ] attrib
-      val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
-      val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
-      val a_preserveAspectRatio :
-        string wrap -> [> `PreserveAspectRatio ] attrib
-      val a_contentScriptType : string wrap -> [> `ContentScriptType ] attrib
-      val a_contentStyleType : string wrap -> [> `ContentStyleType ] attrib
-      val a_zoomAndPan :
-        [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
-      val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
-      val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
-      val a_requiredFeatures :
-        Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
-      val a_requiredExtensions :
-        Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
-      val a_systemLanguage :
-        Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
-      val a_externalRessourcesRequired :
-        bool wrap -> [> `ExternalRessourcesRequired ] attrib
-      val a_id : string wrap -> [> `Id ] attrib
-      val a_user_data : string -> string wrap -> [> `User_data ] attrib
-      val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
-      val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
-      val a_xml_space :
-        [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
-      val a_type : string wrap -> [> `Type ] attrib
-      val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
-      val a_xlink_title : string wrap -> [> `Title ] attrib
-      val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
-      val a_style : string wrap -> [> `Style ] attrib
-      val a_transform : Svg_types.transforms wrap -> [> `Transform ] attrib
-      val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
-      val a_d : string wrap -> [> `D ] attrib
-      val a_pathLength : float wrap -> [> `PathLength ] attrib
-      val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
-      val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
-      val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
-      val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
-      val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
-      val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
-      val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
-      val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
-      val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
-      val a_points : Svg_types.coords wrap -> [> `Points ] attrib
-      val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
-      val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
-      val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
-      val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
-      val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
-      val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
-      val a_lengthAdjust :
-        [< `Spacing | `SpacingAndGlyphs ] wrap -> [> `LengthAdjust ] attrib
-      val a_textLength :
-        Svg_types.Unit.length wrap -> [> `TextLength ] attrib
-      val a_text_anchor :
-        [< `End | `Inherit | `Middle | `Start ] wrap ->
-        [> `Text_Anchor ] attrib
-      val a_text_decoration :
-        [< `Blink | `Inherit | `Line_through | `None | `Overline | `Underline
-        ] wrap -> [> `Text_Decoration ] attrib
-      val a_text_rendering :
-        [< `Auto
-         | `GeometricPrecision
-         | `Inherit
-         | `OptimizeLegibility
-         | `OptimizeSpeed ]
-        wrap -> [> `Text_Rendering ] attrib
-      val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
-      val a_startOffset :
-        Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
-      val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
-      val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
-      val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
-      val a_format : string wrap -> [> `Format ] attrib
-      val a_markerUnits :
-        [< `StrokeWidth | `UserSpaceOnUse ] wrap -> [> `MarkerUnits ] attrib
-      val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
-      val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
-      val a_markerWidth :
-        Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
-      val a_markerHeight :
-        Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
-      val a_orient : Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
-      val a_local : string wrap -> [> `Local ] attrib
-      val a_rendering_intent :
-        [< `Absolute_colorimetric
-         | `Auto
-         | `Perceptual
-         | `Relative_colorimetric
-         | `Saturation ]
-        wrap -> [> `Rendering_Indent ] attrib
-      val a_gradientUnits :
-        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-        [ `GradientUnits ] attrib
-      val a_gradientTransform :
-        Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
-      val a_spreadMethod :
-        [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
-      val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
-      val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
-      val a_offset :
-        [< `Number of Svg_types.number | `Percentage of Svg_types.percentage
-        ] wrap -> [> `Offset ] attrib
-      val a_patternUnits :
-        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-        [> `PatternUnits ] attrib
-      val a_patternContentUnits :
-        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-        [> `PatternContentUnits ] attrib
-      val a_patternTransform :
-        Svg_types.transforms wrap -> [> `PatternTransform ] attrib
-      val a_clipPathUnits :
-        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-        [> `ClipPathUnits ] attrib
-      val a_maskUnits :
-        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-        [> `MaskUnits ] attrib
-      val a_maskContentUnits :
-        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-        [> `MaskContentUnits ] attrib
-      val a_primitiveUnits :
-        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-        [> `PrimitiveUnits ] attrib
-      val a_filterRes :
-        Svg_types.number_optional_number wrap -> [> `FilterResUnits ] attrib
+          val string_of_uri : (uri, string) Xml.W.ft
+          val uri_of_string : (string, uri) Xml.W.ft
+          val a_version : string wrap -> [> `Version ] attrib
+          val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+          val a_x : Svg_types.coord wrap -> [> `X ] attrib
+          val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+          val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+          val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
+          val a_preserveAspectRatio :
+            string wrap -> [> `PreserveAspectRatio ] attrib
+          val a_contentScriptType :
+            string wrap -> [> `ContentScriptType ] attrib
+          val a_contentStyleType :
+            string wrap -> [> `ContentStyleType ] attrib
+          val a_zoomAndPan :
+            [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+          val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+          val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+          val a_requiredFeatures :
+            Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+          val a_requiredExtensions :
+            Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+          val a_systemLanguage :
+            Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+          val a_externalRessourcesRequired :
+            bool wrap -> [> `ExternalRessourcesRequired ] attrib
+          val a_id : string wrap -> [> `Id ] attrib
+          val a_user_data : string -> string wrap -> [> `User_data ] attrib
+          val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+          val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+          val a_xml_space :
+            [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+          val a_type : string wrap -> [> `Type ] attrib
+          val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+          val a_xlink_title : string wrap -> [> `Title ] attrib
+          val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+          val a_style : string wrap -> [> `Style ] attrib
+          val a_transform :
+            Svg_types.transforms wrap -> [> `Transform ] attrib
+          val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+          val a_d : string wrap -> [> `D ] attrib
+          val a_pathLength : float wrap -> [> `PathLength ] attrib
+          val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+          val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+          val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+          val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+          val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+          val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+          val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+          val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+          val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+          val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+          val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+          val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+          val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+          val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+          val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+          val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+          val a_lengthAdjust :
+            [< `Spacing | `SpacingAndGlyphs ] wrap ->
+            [> `LengthAdjust ] attrib
+          val a_textLength :
+            Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+          val a_text_anchor :
+            [< `End | `Inherit | `Middle | `Start ] wrap ->
+            [> `Text_Anchor ] attrib
+          val a_text_decoration :
+            [< `Blink
+             | `Inherit
+             | `Line_through
+             | `None
+             | `Overline
+             | `Underline ]
+            wrap -> [> `Text_Decoration ] attrib
+          val a_text_rendering :
+            [< `Auto
+             | `GeometricPrecision
+             | `Inherit
+             | `OptimizeLegibility
+             | `OptimizeSpeed ]
+            wrap -> [> `Text_Rendering ] attrib
+          val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+          val a_startOffset :
+            Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+          val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+          val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+          val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+          val a_format : string wrap -> [> `Format ] attrib
+          val a_markerUnits :
+            [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
+            [> `MarkerUnits ] attrib
+          val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+          val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+          val a_markerWidth :
+            Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+          val a_markerHeight :
+            Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+          val a_orient :
+            Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+          val a_local : string wrap -> [> `Local ] attrib
+          val a_rendering_intent :
+            [< `Absolute_colorimetric
+             | `Auto
+             | `Perceptual
+             | `Relative_colorimetric
+             | `Saturation ]
+            wrap -> [> `Rendering_Indent ] attrib
+          val a_gradientUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [ `GradientUnits ] attrib
+          val a_gradientTransform :
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+          val a_spreadMethod :
+            [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
+          val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+          val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+          val a_offset :
+            [< `Number of Svg_types.number
+             | `Percentage of Svg_types.percentage ]
+            wrap -> [> `Offset ] attrib
+          val a_patternUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PatternUnits ] attrib
+          val a_patternContentUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PatternContentUnits ] attrib
+          val a_patternTransform :
+            Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+          val a_clipPathUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `ClipPathUnits ] attrib
+          val a_maskUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `MaskUnits ] attrib
+          val a_maskContentUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `MaskContentUnits ] attrib
+          val a_primitiveUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PrimitiveUnits ] attrib
+          val a_filterRes :
+            Svg_types.number_optional_number wrap ->
+            [> `FilterResUnits ] attrib
+          val a_result : string wrap -> [> `Result ] attrib
+          val a_in :
+            [< `BackgroundAlpha
+             | `BackgroundImage
+             | `FillPaint
+             | `Ref of string
+             | `SourceAlpha
+             | `SourceGraphic
+             | `StrokePaint ]
+            wrap -> [> `In ] attrib
+          val a_in2 :
+            [< `BackgroundAlpha
+             | `BackgroundImage
+             | `FillPaint
+             | `Ref of string
+             | `SourceAlpha
+             | `SourceGraphic
+             | `StrokePaint ]
+            wrap -> [> `In2 ] attrib
+          val a_azimuth : float wrap -> [> `Azimuth ] attrib
+          val a_elevation : float wrap -> [> `Elevation ] attrib
+          val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
+          val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
+          val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
+          val a_specularExponent :
+            float wrap -> [> `SpecularExponent ] attrib
+          val a_specularConstant :
+            float wrap -> [> `SpecularConstant ] attrib
+          val a_limitingConeAngle :
+            float wrap -> [> `LimitingConeAngle ] attrib
+          val a_mode :
+            [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
+            [> `Mode ] attrib
+          val a_feColorMatrix_type :
+            [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ] wrap ->
+            [> `Typefecolor ] attrib
+          val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
+          val a_transfer_type :
+            [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
+            [> `Type_transfert ] attrib
+          val a_tableValues :
+            Svg_types.numbers wrap -> [> `TableValues ] attrib
+          val a_intercept : Svg_types.number wrap -> [> `Intercept ] attrib
+          val a_amplitude : Svg_types.number wrap -> [> `Amplitude ] attrib
+          val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
+          val a_transfer_offset :
+            Svg_types.number wrap -> [> `Offset_transfer ] attrib
+          val a_feComposite_operator :
+            [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
+            [> `OperatorComposite ] attrib
+          val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
+          val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
+          val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
+          val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
+          val a_order :
+            Svg_types.number_optional_number wrap -> [> `Order ] attrib
+          val a_kernelMatrix :
+            Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
+          val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
+          val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
+          val a_kernelUnitLength :
+            Svg_types.number_optional_number wrap ->
+            [> `KernelUnitLength ] attrib
+          val a_targetX : int wrap -> [> `TargetX ] attrib
+          val a_targetY : int wrap -> [> `TargetY ] attrib
+          val a_edgeMode :
+            [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
+          val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
+          val a_surfaceScale :
+            Svg_types.number wrap -> [> `SurfaceScale ] attrib
+          val a_diffuseConstant :
+            Svg_types.number wrap -> [> `DiffuseConstant ] attrib
+          val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
+          val a_xChannelSelector :
+            [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
+          val a_yChannelSelector :
+            [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
+          val a_stdDeviation :
+            Svg_types.number_optional_number wrap ->
+            [> `StdDeviation ] attrib
+          val a_feMorphology_operator :
+            [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
+          val a_radius :
+            Svg_types.number_optional_number wrap -> [> `Radius ] attrib
+          val a_baseFrenquency :
+            Svg_types.number_optional_number wrap ->
+            [> `BaseFrequency ] attrib
+          val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
+          val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
+          val a_stitchTiles :
+            [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
+          val a_feTurbulence_type :
+            [< `FractalNoise | `Turbulence ] wrap -> [> `TypeStitch ] attrib
+          val a_xlink_show :
+            [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
+          val a_xlink_actuate :
+            [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
+            [> `Xlink_actuate ] attrib
+          val a_target : string wrap -> [> `Xlink_target ] attrib
+          val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
+          val a_attributeName : string wrap -> [> `AttributeName ] attrib
+          val a_attributeType :
+            [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
+          val a_begin : string wrap -> [> `Begin ] attrib
+          val a_dur : string wrap -> [> `Dur ] attrib
+          val a_min : string wrap -> [> `Min ] attrib
+          val a_max : string wrap -> [> `Max ] attrib
+          val a_restart :
+            [< `Always | `Never | `WhenNotActive ] wrap ->
+            [> `Restart ] attrib
+          val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
+          val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
+          val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
+          val a_animation_fill :
+            [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
+          val a_calcMode :
+            [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
+            [> `CalcMode ] attrib
+          val a_animation_values :
+            Svg_types.strings wrap -> [> `Valuesanim ] attrib
+          val a_keyTimes : Svg_types.strings wrap -> [> `KeyTimes ] attrib
+          val a_keySplines :
+            Svg_types.strings wrap -> [> `KeySplines ] attrib
+          val a_from : string wrap -> [> `From ] attrib
+          val a_to : string wrap -> [> `To ] attrib
+          val a_by : string wrap -> [> `By ] attrib
+          val a_additive : [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
+          val a_accumulate :
+            [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
+          val a_keyPoints :
+            Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
+          val a_path : string wrap -> [> `Path ] attrib
+          val a_animateTransform_type :
+            [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
+            [ `Typeanimatetransform ] attrib
+          val a_horiz_origin_x :
+            Svg_types.number wrap -> [> `HorizOriginX ] attrib
+          val a_horiz_origin_y :
+            Svg_types.number wrap -> [> `HorizOriginY ] attrib
+          val a_horiz_adv_x : Svg_types.number wrap -> [> `HorizAdvX ] attrib
+          val a_vert_origin_x :
+            Svg_types.number wrap -> [> `VertOriginX ] attrib
+          val a_vert_origin_y :
+            Svg_types.number wrap -> [> `VertOriginY ] attrib
+          val a_vert_adv_y : Svg_types.number wrap -> [> `VertAdvY ] attrib
+          val a_unicode : string wrap -> [> `Unicode ] attrib
+          val a_glyph_name : string wrap -> [> `glyphname ] attrib
+          val a_orientation : [< `H | `V ] wrap -> [> `Orientation ] attrib
+          val a_arabic_form :
+            [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
+            [> `Arabicform ] attrib
+          val a_lang : string wrap -> [> `Lang ] attrib
+          val a_u1 : string wrap -> [> `U1 ] attrib
+          val a_u2 : string wrap -> [> `U2 ] attrib
+          val a_g1 : string wrap -> [> `G1 ] attrib
+          val a_g2 : string wrap -> [> `G2 ] attrib
+          val a_k : string wrap -> [> `K ] attrib
+          val a_font_family : string wrap -> [> `Font_Family ] attrib
+          val a_font_style : string wrap -> [> `Font_Style ] attrib
+          val a_font_variant : string wrap -> [> `Font_Variant ] attrib
+          val a_font_weight : string wrap -> [> `Font_Weight ] attrib
+          val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
+          val a_font_size : string wrap -> [> `Font_Size ] attrib
+          val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
+          val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
+          val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
+          val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
+          val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
+          val a_cap_height : Svg_types.number wrap -> [> `CapHeight ] attrib
+          val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
+          val a_accent_height :
+            Svg_types.number wrap -> [> `AccentHeight ] attrib
+          val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
+          val a_widths : string wrap -> [> `Widths ] attrib
+          val a_bbox : string wrap -> [> `Bbox ] attrib
+          val a_ideographic :
+            Svg_types.number wrap -> [> `Ideographic ] attrib
+          val a_alphabetic : Svg_types.number wrap -> [> `Alphabetic ] attrib
+          val a_mathematical :
+            Svg_types.number wrap -> [> `Mathematical ] attrib
+          val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
+          val a_videographic :
+            Svg_types.number wrap -> [> `VIdeographic ] attrib
+          val a_v_alphabetic :
+            Svg_types.number wrap -> [> `VAlphabetic ] attrib
+          val a_v_mathematical :
+            Svg_types.number wrap -> [> `VMathematical ] attrib
+          val a_v_hanging : Svg_types.number wrap -> [> `VHanging ] attrib
+          val a_underline_position :
+            Svg_types.number wrap -> [> `UnderlinePosition ] attrib
+          val a_underline_thickness :
+            Svg_types.number wrap -> [> `UnderlineThickness ] attrib
+          val a_strikethrough_position :
+            Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
+          val a_strikethrough_thickness :
+            Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
+          val a_overline_position :
+            Svg_types.number wrap -> [> `OverlinePosition ] attrib
+          val a_overline_thickness :
+            Svg_types.number wrap -> [> `OverlineThickness ] attrib
+          val a_string : string wrap -> [> `String ] attrib
+          val a_name : string wrap -> [> `Name ] attrib
+          val a_alignment_baseline :
+            [< `After_edge
+             | `Alphabetic
+             | `Auto
+             | `Baseline
+             | `Before_edge
+             | `Central
+             | `Hanging
+             | `Ideographic
+             | `Inherit
+             | `Mathematical
+             | `Middle
+             | `Text_after_edge
+             | `Text_before_edge ]
+            wrap -> [> `Alignment_Baseline ] attrib
+          val a_dominant_baseline :
+            [< `Alphabetic
+             | `Auto
+             | `Central
+             | `Hanging
+             | `Ideographic
+             | `Inherit
+             | `Mathematical
+             | `Middle
+             | `No_change
+             | `Reset_size
+             | `Text_after_edge
+             | `Text_before_edge
+             | `Use_script ]
+            wrap -> [> `Dominant_Baseline ] attrib
+          val a_stop_color : Svg_types.color wrap -> [> `Stop_Color ] attrib
+          val a_stop_opacity :
+            Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+          val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+          val a_stroke_width :
+            Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+          val a_stroke_linecap :
+            [< `Butt | `Round | `Square ] wrap -> [> `Stroke_Linecap ] attrib
+          val a_stroke_linejoin :
+            [< `Bever | `Miter | `Round ] wrap ->
+            [> `Stroke_Linejoin ] attrib
+          val a_stroke_miterlimit :
+            float wrap -> [> `Stroke_Miterlimit ] attrib
+          val a_stroke_dasharray :
+            Svg_types.Unit.length list wrap -> [> `Stroke_Dasharray ] attrib
+          val a_stroke_dashoffset :
+            Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+          val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
+          val txt : string wrap -> [> Svg_types.txt ] elt
+          val svg :
+            ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
+             [> Svg_types.svg ])
+            star
+          val g :
+            ([< Svg_types.g_attr ], [< Svg_types.g_content ],
+             [> Svg_types.g ])
+            star
+          val defs :
+            ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
+             [> Svg_types.defs ])
+            star
+          val desc :
+            ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
+             [> Svg_types.desc ])
+            unary
+          val title :
+            ([< Svg_types.title_attr ], [< Svg_types.title_content ],
+             [> Svg_types.title ])
+            unary
+          val symbol :
+            ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
+             [> Svg_types.symbol ])
+            star
+          val use :
+            ([< Svg_types.use_attr ], [< Svg_types.use_content ],
+             [> Svg_types.use ])
+            star
+          val image :
+            ([< Svg_types.image_attr ], [< Svg_types.image_content ],
+             [> Svg_types.image ])
+            star
+          val switch :
+            ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
+             [> Svg_types.switch ])
+            star
+          val style :
+            ([< Svg_types.style_attr ], [< Svg_types.style_content ],
+             [> Svg_types.style ])
+            unary
+          val path :
+            ([< Svg_types.path_attr ], [< Svg_types.path_content ],
+             [> Svg_types.path ])
+            star
+          val rect :
+            ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
+             [> Svg_types.rect ])
+            star
+          val circle :
+            ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
+             [> Svg_types.circle ])
+            star
+          val ellipse :
+            ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
+             [> Svg_types.ellipse ])
+            star
+          val line :
+            ([< Svg_types.line_attr ], [< Svg_types.line_content ],
+             [> Svg_types.line ])
+            star
+          val polyline :
+            ([< Svg_types.polyline_attr ], [< Svg_types.polyline_content ],
+             [> Svg_types.polyline ])
+            star
+          val polygon :
+            ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
+             [> Svg_types.polygon ])
+            star
+          val text :
+            ([< Svg_types.text_attr ], [< Svg_types.text_content ],
+             [> Svg_types.text ])
+            star
+          val tspan :
+            ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
+             [> Svg_types.tspan ])
+            star
+          val tref :
+            ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
+             [> Svg_types.tref ])
+            star
+          val textPath :
+            ([< Svg_types.textpath_attr ], [< Svg_types.textpath_content ],
+             [> Svg_types.textpath ])
+            star
+          val altGlyph :
+            ([< Svg_types.altglyph_attr ], [< Svg_types.altglyph_content ],
+             [> Svg_types.altglyph ])
+            unary
+          type altglyphdef_content =
+              [ `Item of Svg_types.altglyphitem elt list
+              | `Ref of Svg_types.glyphref elt list ]
+          val altGlyphDef :
+            ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
+             [> Svg_types.altglyphdef ])
+            unary
+          val altGlyphItem :
+            ([< Svg_types.altglyphitem_attr ],
+             [< Svg_types.altglyphitem_content ],
+             [> Svg_types.altglyphitem ])
+            star
+          val glyphRef :
+            ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ]) nullary
+          val marker :
+            ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
+             [> Svg_types.marker ])
+            star
+          val color_profile :
+            ([< Svg_types.colorprofile_attr ],
+             [< Svg_types.colorprofile_content ],
+             [> Svg_types.colorprofile ])
+            star
+          val linearGradient :
+            ([< Svg_types.lineargradient_attr ],
+             [< Svg_types.lineargradient_content ],
+             [> Svg_types.lineargradient ])
+            star
+          val radialGradient :
+            ([< Svg_types.radialgradient_attr ],
+             [< Svg_types.radialgradient_content ],
+             [> Svg_types.radialgradient ])
+            star
+          val stop :
+            ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
+             [> Svg_types.stop ])
+            star
+          val pattern :
+            ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
+             [> Svg_types.pattern ])
+            star
+          val clipPath :
+            ([< Svg_types.clippath_attr ], [< Svg_types.clippath_content ],
+             [> Svg_types.clippath ])
+            star
+          val filter :
+            ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
+             [> Svg_types.filter ])
+            star
+          val feDistantLight :
+            ([< Svg_types.fedistantlight_attr ],
+             [< Svg_types.fedistantlight_content ],
+             [> Svg_types.fedistantlight ])
+            star
+          val fePointLight :
+            ([< Svg_types.fepointlight_attr ],
+             [< Svg_types.fepointlight_content ],
+             [> Svg_types.fepointlight ])
+            star
+          val feSpotLight :
+            ([< Svg_types.fespotlight_attr ],
+             [< Svg_types.fespotlight_content ], [> Svg_types.fespotlight ])
+            star
+          val feBlend :
+            ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
+             [> Svg_types.feblend ])
+            star
+          val feColorMatrix :
+            ([< Svg_types.fecolormatrix_attr ],
+             [< Svg_types.fecolormatrix_content ],
+             [> Svg_types.fecolormatrix ])
+            star
+          val feComponentTransfer :
+            ([< Svg_types.fecomponenttransfer_attr ],
+             [< Svg_types.fecomponenttransfer_content ],
+             [> Svg_types.fecomponenttransfer ])
+            star
+          val feFuncA :
+            ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
+             [> Svg_types.fefunca ])
+            star
+          val feFuncG :
+            ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
+             [> Svg_types.fefuncg ])
+            star
+          val feFuncB :
+            ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
+             [> Svg_types.fefuncb ])
+            star
+          val feFuncR :
+            ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
+             [> Svg_types.fefuncr ])
+            star
+          val feComposite :
+            ([< Svg_types.fecomposite_attr ],
+             [< Svg_types.fecomposite_content ], [> Svg_types.fecomposite ])
+            star
+          val feConvolveMatrix :
+            ([< Svg_types.feconvolvematrix_attr ],
+             [< Svg_types.feconvolvematrix_content ],
+             [> Svg_types.feconvolvematrix ])
+            star
+          val feDiffuseLighting :
+            ([< Svg_types.fediffuselighting_attr ],
+             [< Svg_types.fediffuselighting_content ],
+             [> Svg_types.fediffuselighting ])
+            star
+          val feDisplacementMap :
+            ([< Svg_types.fedisplacementmap_attr ],
+             [< Svg_types.fedisplacementmap_content ],
+             [> Svg_types.fedisplacementmap ])
+            star
+          val feFlood :
+            ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
+             [> Svg_types.feflood ])
+            star
+          val feGaussianBlur :
+            ([< Svg_types.fegaussianblur_attr ],
+             [< Svg_types.fegaussianblur_content ],
+             [> Svg_types.fegaussianblur ])
+            star
+          val feImage :
+            ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
+             [> Svg_types.feimage ])
+            star
+          val feMerge :
+            ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
+             [> Svg_types.femerge ])
+            star
+          val feMorphology :
+            ([< Svg_types.femorphology_attr ],
+             [< Svg_types.femorphology_content ],
+             [> Svg_types.femorphology ])
+            star
+          val feOffset :
+            ([< Svg_types.feoffset_attr ], [< Svg_types.feoffset_content ],
+             [> Svg_types.feoffset ])
+            star
+          val feSpecularLighting :
+            ([< Svg_types.fespecularlighting_attr ],
+             [< Svg_types.fespecularlighting_content ],
+             [> Svg_types.fespecularlighting ])
+            star
+          val feTile :
+            ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
+             [> Svg_types.fetile ])
+            star
+          val feTurbulence :
+            ([< Svg_types.feturbulence_attr ],
+             [< Svg_types.feturbulence_content ],
+             [> Svg_types.feturbulence ])
+            star
+          val cursor :
+            ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
+             [> Svg_types.cursor ])
+            star
+          val a :
+            ([< Svg_types.a_attr ], [< Svg_types.a_content ],
+             [> Svg_types.a ])
+            star
+          val view :
+            ([< Svg_types.view_attr ], [< Svg_types.view_content ],
+             [> Svg_types.view ])
+            star
+          val script :
+            ([< Svg_types.script_attr ], [< Svg_types.script_content ],
+             [> Svg_types.script ])
+            unary
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
+          val set :
+            ([< Svg_types.set_attr ], [< Svg_types.set_content ],
+             [> Svg_types.set ])
+            star
+          val animateMotion :
+            ([< Svg_types.animatemotion_attr ],
+             [< Svg_types.animatemotion_content ],
+             [> Svg_types.animatemotion ])
+            star
+          val mpath :
+            ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
+             [> Svg_types.mpath ])
+            star
+          val animateColor :
+            ([< Svg_types.animatecolor_attr ],
+             [< Svg_types.animatecolor_content ],
+             [> Svg_types.animatecolor ])
+            star
+          val animateTransform :
+            ([< Svg_types.animatetransform_attr ],
+             [< Svg_types.animatetransform_content ],
+             [> Svg_types.animatetransform ])
+            star
+          val font :
+            ([< Svg_types.font_attr ], [< Svg_types.font_content ],
+             [> Svg_types.font ])
+            star
+          val glyph :
+            ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
+             [> Svg_types.glyph ])
+            star
+          val missing_glyph :
+            ([< Svg_types.missingglyph_attr ],
+             [< Svg_types.missingglyph_content ],
+             [> Svg_types.missingglyph ])
+            star
+          val hkern :
+            ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
+          val vkern :
+            ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
+          val font_face :
+            ([< Svg_types.font_face_attr ], [> Svg_types.font_face ]) nullary
+          val font_face_src :
+            ([< Svg_types.font_face_src_attr ],
+             [< Svg_types.font_face_src_content ],
+             [> Svg_types.font_face_src ])
+            star
+          val font_face_uri :
+            ([< Svg_types.font_face_uri_attr ],
+             [< Svg_types.font_face_uri_content ],
+             [> Svg_types.font_face_uri ])
+            star
+          val font_face_format :
+            ([< Svg_types.font_face_format_attr ],
+             [> Svg_types.font_face_format ])
+            nullary
+          val font_face_name :
+            ([< Svg_types.font_face_name_attr ],
+             [> Svg_types.font_face_name ])
+            nullary
+          val metadata :
+            ?a:Svg_types.metadata_attr attrib list ->
+            Xml.elt list_wrap -> [> Svg_types.metadata ] elt
+          val foreignObject :
+            ?a:Svg_types.foreignobject_attr attrib list ->
+            Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+          val pcdata : string wrap -> [> Svg_types.txt ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
+          val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+          val tot : Xml.elt -> 'a elt
+          val totl : Xml.elt list_wrap -> 'a elt list_wrap
+          val toelt : 'a elt -> Xml.elt
+          val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+          val doc_toelt : doc -> Xml.elt
+          val to_xmlattribs : 'a attrib list -> Xml.attrib list
+          val to_attrib : Xml.attrib -> 'a attrib
+          module Unsafe :
+            sig
+              val data : string wrap -> 'a elt
+              val node :
+                string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+              val coerce_elt : 'a elt -> 'b elt
+              val string_attrib : string -> string wrap -> 'a attrib
+              val float_attrib : string -> float wrap -> 'a attrib
+              val int_attrib : string -> int wrap -> 'a attrib
+              val uri_attrib : string -> uri wrap -> 'a attrib
+              val space_sep_attrib : string -> string list wrap -> 'a attrib
+              val comma_sep_attrib : string -> string list wrap -> 'a attrib
+            end
+          val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+          val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+          val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+          val a_onend : string -> [> `OnEnd ] Raw'.attrib
+          val a_onerror : string -> [> `OnError ] Raw'.attrib
+          val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+          val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+          val a_onload : string -> [> `OnLoad ] Raw'.attrib
+          val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+          val a_onresize : string -> [> `OnResize ] Raw'.attrib
+          val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+          val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+          val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+          val a_onclick : string -> [> `OnClick ] Raw'.attrib
+          val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+          val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+          val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+          val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+          val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+          val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+          val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+          val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+          val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+        end
+      type 'a elt = 'a elt
+      type doc = [ `Svg ] elt
+      type 'a attrib = 'a attrib
+      module Xml :
+        sig
+          module W :
+            sig
+              type 'a t = 'a Xml.W.t
+              val return : 'a -> 'a t
+              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+              val fmap : ('a, 'b) ft -> 'a t -> 'b t
+              type 'a tlist = 'a Xml.W.tlist
+              val nil : unit -> 'a tlist
+              val singleton : 'a t -> 'a tlist
+              val cons : 'a t -> 'a tlist -> 'a tlist
+              val append : 'a tlist -> 'a tlist -> 'a tlist
+              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+            end
+          type 'a wrap = 'a W.t
+          type 'a list_wrap = 'a W.tlist
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) W.ft
+          val uri_of_string : (string, uri) W.ft
+          type aname = string
+          type event_handler = Xml.event_handler
+          type mouse_event_handler = Xml.mouse_event_handler
+          type keyboard_event_handler = Xml.keyboard_event_handler
+          type touch_event_handler = Xml.touch_event_handler
+          type attrib = Xml.attrib
+          val float_attrib : aname -> float wrap -> attrib
+          val int_attrib : aname -> int wrap -> attrib
+          val string_attrib : aname -> string wrap -> attrib
+          val space_sep_attrib : aname -> string list wrap -> attrib
+          val comma_sep_attrib : aname -> string list wrap -> attrib
+          val event_handler_attrib : aname -> event_handler -> attrib
+          val mouse_event_handler_attrib :
+            aname -> mouse_event_handler -> attrib
+          val keyboard_event_handler_attrib :
+            aname -> keyboard_event_handler -> attrib
+          val touch_event_handler_attrib :
+            aname -> touch_event_handler -> attrib
+          val uri_attrib : aname -> uri wrap -> attrib
+          val uris_attrib : aname -> uri list wrap -> attrib
+          type elt = Xml.elt
+          type ename = string
+          val empty : unit -> elt
+          val comment : string -> elt
+          val pcdata : string wrap -> elt
+          val encodedpcdata : string wrap -> elt
+          val entity : string -> elt
+          val leaf : ?a:attrib list -> ename -> elt
+          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+          val cdata : string -> elt
+          val cdata_script : string -> elt
+          val cdata_style : string -> elt
+        end
+      type 'a wrap = 'a Xml.W.t
+      type 'a list_wrap = 'a Xml.W.tlist
+      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
+      type ('a, 'b, 'c) star =
+          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+      module Info : Xml_sigs.Info
+      type uri = Xml.uri
+      val string_of_uri : (uri, string) Xml.W.ft
+      val uri_of_string : (string, uri) Xml.W.ft
+      val a_version : string wrap -> [> `Version ] attrib
+      val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+      val a_x : Svg_types.coord wrap -> [> `X ] attrib
+      val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+      val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+      val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
+      val a_preserveAspectRatio :
+        string wrap -> [> `PreserveAspectRatio ] attrib
+      val a_contentScriptType : string wrap -> [> `ContentScriptType ] attrib
+      val a_contentStyleType : string wrap -> [> `ContentStyleType ] attrib
+      val a_zoomAndPan :
+        [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+      val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+      val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+      val a_requiredFeatures :
+        Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+      val a_requiredExtensions :
+        Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+      val a_systemLanguage :
+        Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+      val a_externalRessourcesRequired :
+        bool wrap -> [> `ExternalRessourcesRequired ] attrib
+      val a_id : string wrap -> [> `Id ] attrib
+      val a_user_data : string -> string wrap -> [> `User_data ] attrib
+      val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+      val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+      val a_xml_space :
+        [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+      val a_type : string wrap -> [> `Type ] attrib
+      val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+      val a_xlink_title : string wrap -> [> `Title ] attrib
+      val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+      val a_style : string wrap -> [> `Style ] attrib
+      val a_transform : Svg_types.transforms wrap -> [> `Transform ] attrib
+      val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+      val a_d : string wrap -> [> `D ] attrib
+      val a_pathLength : float wrap -> [> `PathLength ] attrib
+      val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+      val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+      val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+      val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+      val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+      val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+      val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+      val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+      val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+      val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+      val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+      val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+      val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+      val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+      val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+      val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+      val a_lengthAdjust :
+        [< `Spacing | `SpacingAndGlyphs ] wrap -> [> `LengthAdjust ] attrib
+      val a_textLength :
+        Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+      val a_text_anchor :
+        [< `End | `Inherit | `Middle | `Start ] wrap ->
+        [> `Text_Anchor ] attrib
+      val a_text_decoration :
+        [< `Blink | `Inherit | `Line_through | `None | `Overline | `Underline
+        ] wrap -> [> `Text_Decoration ] attrib
+      val a_text_rendering :
+        [< `Auto
+         | `GeometricPrecision
+         | `Inherit
+         | `OptimizeLegibility
+         | `OptimizeSpeed ]
+        wrap -> [> `Text_Rendering ] attrib
+      val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+      val a_startOffset :
+        Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+      val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+      val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+      val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+      val a_format : string wrap -> [> `Format ] attrib
+      val a_markerUnits :
+        [< `StrokeWidth | `UserSpaceOnUse ] wrap -> [> `MarkerUnits ] attrib
+      val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+      val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+      val a_markerWidth :
+        Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+      val a_markerHeight :
+        Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+      val a_orient : Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+      val a_local : string wrap -> [> `Local ] attrib
+      val a_rendering_intent :
+        [< `Absolute_colorimetric
+         | `Auto
+         | `Perceptual
+         | `Relative_colorimetric
+         | `Saturation ]
+        wrap -> [> `Rendering_Indent ] attrib
+      val a_gradientUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [ `GradientUnits ] attrib
+      val a_gradientTransform :
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+      val a_spreadMethod :
+        [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
+      val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+      val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+      val a_offset :
+        [< `Number of Svg_types.number | `Percentage of Svg_types.percentage
+        ] wrap -> [> `Offset ] attrib
+      val a_patternUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PatternUnits ] attrib
+      val a_patternContentUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PatternContentUnits ] attrib
+      val a_patternTransform :
+        Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+      val a_clipPathUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `ClipPathUnits ] attrib
+      val a_maskUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `MaskUnits ] attrib
+      val a_maskContentUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `MaskContentUnits ] attrib
+      val a_primitiveUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PrimitiveUnits ] attrib
+      val a_filterRes :
+        Svg_types.number_optional_number wrap -> [> `FilterResUnits ] attrib
       val a_result : string wrap -> [> `Result ] attrib
       val a_in :
         [< `BackgroundAlpha
@@ -1146,6 +1993,7 @@
       val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
       val a_animation_fill :
         [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
       val a_calcMode :
         [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
         [> `CalcMode ] attrib
@@ -1544,9 +2392,9 @@
         ([< Svg_types.script_attr ], [< Svg_types.script_content ],
          [> Svg_types.script ])
         unary
-      val animation :
-        ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-         [> Svg_types.animation ])
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
         star
       val set :
         ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -1607,6 +2455,10 @@
         ?a:Svg_types.foreignobject_attr attrib list ->
         Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
       val pcdata : string wrap -> [> Svg_types.txt ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
       val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
       val tot : Xml.elt -> 'a elt
       val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -1629,9 +2481,857 @@
           val space_sep_attrib : string -> string list wrap -> 'a attrib
           val comma_sep_attrib : string -> string list wrap -> 'a attrib
         end
-    end
-  module D :
-    sig
+    end
+  module D :
+    sig
+      module Raw' :
+        sig
+          type 'a elt = 'a elt
+          type doc = [ `Svg ] elt
+          type 'a attrib = 'a attrib
+          module Xml :
+            sig
+              module W :
+                sig
+                  type 'a t = 'a Xml.W.t
+                  val return : 'a -> 'a t
+                  type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                  type 'a tlist = 'a Xml.W.tlist
+                  val nil : unit -> 'a tlist
+                  val singleton : 'a t -> 'a tlist
+                  val cons : 'a t -> 'a tlist -> 'a tlist
+                  val append : 'a tlist -> 'a tlist -> 'a tlist
+                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                end
+              type 'a wrap = 'a W.t
+              type 'a list_wrap = 'a W.tlist
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) W.ft
+              val uri_of_string : (string, uri) W.ft
+              type aname = string
+              type event_handler = Xml.event_handler
+              type mouse_event_handler = Xml.mouse_event_handler
+              type keyboard_event_handler = Xml.keyboard_event_handler
+              type touch_event_handler = Xml.touch_event_handler
+              type attrib = Xml.attrib
+              val float_attrib : aname -> float wrap -> attrib
+              val int_attrib : aname -> int wrap -> attrib
+              val string_attrib : aname -> string wrap -> attrib
+              val space_sep_attrib : aname -> string list wrap -> attrib
+              val comma_sep_attrib : aname -> string list wrap -> attrib
+              val event_handler_attrib : aname -> event_handler -> attrib
+              val mouse_event_handler_attrib :
+                aname -> mouse_event_handler -> attrib
+              val keyboard_event_handler_attrib :
+                aname -> keyboard_event_handler -> attrib
+              val touch_event_handler_attrib :
+                aname -> touch_event_handler -> attrib
+              val uri_attrib : aname -> uri wrap -> attrib
+              val uris_attrib : aname -> uri list wrap -> attrib
+              type elt = Xml.elt
+              type ename = string
+              val empty : unit -> elt
+              val comment : string -> elt
+              val pcdata : string wrap -> elt
+              val encodedpcdata : string wrap -> elt
+              val entity : string -> elt
+              val leaf : ?a:attrib list -> ename -> elt
+              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+              val cdata : string -> elt
+              val cdata_script : string -> elt
+              val cdata_style : string -> elt
+            end
+          type 'a wrap = 'a Xml.W.t
+          type 'a list_wrap = 'a Xml.W.tlist
+          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+          type ('a, 'b, 'c) unary =
+              ?a:'a attrib list -> 'b elt wrap -> 'c elt
+          type ('a, 'b, 'c) star =
+              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          module Info : Xml_sigs.Info
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) Xml.W.ft
+          val uri_of_string : (string, uri) Xml.W.ft
+          val a_version : string wrap -> [> `Version ] attrib
+          val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+          val a_x : Svg_types.coord wrap -> [> `X ] attrib
+          val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+          val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+          val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
+          val a_preserveAspectRatio :
+            string wrap -> [> `PreserveAspectRatio ] attrib
+          val a_contentScriptType :
+            string wrap -> [> `ContentScriptType ] attrib
+          val a_contentStyleType :
+            string wrap -> [> `ContentStyleType ] attrib
+          val a_zoomAndPan :
+            [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+          val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+          val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+          val a_requiredFeatures :
+            Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+          val a_requiredExtensions :
+            Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+          val a_systemLanguage :
+            Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+          val a_externalRessourcesRequired :
+            bool wrap -> [> `ExternalRessourcesRequired ] attrib
+          val a_id : string wrap -> [> `Id ] attrib
+          val a_user_data : string -> string wrap -> [> `User_data ] attrib
+          val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+          val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+          val a_xml_space :
+            [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+          val a_type : string wrap -> [> `Type ] attrib
+          val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+          val a_xlink_title : string wrap -> [> `Title ] attrib
+          val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+          val a_style : string wrap -> [> `Style ] attrib
+          val a_transform :
+            Svg_types.transforms wrap -> [> `Transform ] attrib
+          val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+          val a_d : string wrap -> [> `D ] attrib
+          val a_pathLength : float wrap -> [> `PathLength ] attrib
+          val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+          val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+          val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+          val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+          val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+          val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+          val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+          val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+          val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+          val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+          val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+          val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+          val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+          val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+          val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+          val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+          val a_lengthAdjust :
+            [< `Spacing | `SpacingAndGlyphs ] wrap ->
+            [> `LengthAdjust ] attrib
+          val a_textLength :
+            Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+          val a_text_anchor :
+            [< `End | `Inherit | `Middle | `Start ] wrap ->
+            [> `Text_Anchor ] attrib
+          val a_text_decoration :
+            [< `Blink
+             | `Inherit
+             | `Line_through
+             | `None
+             | `Overline
+             | `Underline ]
+            wrap -> [> `Text_Decoration ] attrib
+          val a_text_rendering :
+            [< `Auto
+             | `GeometricPrecision
+             | `Inherit
+             | `OptimizeLegibility
+             | `OptimizeSpeed ]
+            wrap -> [> `Text_Rendering ] attrib
+          val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+          val a_startOffset :
+            Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+          val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+          val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+          val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+          val a_format : string wrap -> [> `Format ] attrib
+          val a_markerUnits :
+            [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
+            [> `MarkerUnits ] attrib
+          val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+          val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+          val a_markerWidth :
+            Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+          val a_markerHeight :
+            Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+          val a_orient :
+            Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+          val a_local : string wrap -> [> `Local ] attrib
+          val a_rendering_intent :
+            [< `Absolute_colorimetric
+             | `Auto
+             | `Perceptual
+             | `Relative_colorimetric
+             | `Saturation ]
+            wrap -> [> `Rendering_Indent ] attrib
+          val a_gradientUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [ `GradientUnits ] attrib
+          val a_gradientTransform :
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+          val a_spreadMethod :
+            [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
+          val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+          val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+          val a_offset :
+            [< `Number of Svg_types.number
+             | `Percentage of Svg_types.percentage ]
+            wrap -> [> `Offset ] attrib
+          val a_patternUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PatternUnits ] attrib
+          val a_patternContentUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PatternContentUnits ] attrib
+          val a_patternTransform :
+            Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+          val a_clipPathUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `ClipPathUnits ] attrib
+          val a_maskUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `MaskUnits ] attrib
+          val a_maskContentUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `MaskContentUnits ] attrib
+          val a_primitiveUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PrimitiveUnits ] attrib
+          val a_filterRes :
+            Svg_types.number_optional_number wrap ->
+            [> `FilterResUnits ] attrib
+          val a_result : string wrap -> [> `Result ] attrib
+          val a_in :
+            [< `BackgroundAlpha
+             | `BackgroundImage
+             | `FillPaint
+             | `Ref of string
+             | `SourceAlpha
+             | `SourceGraphic
+             | `StrokePaint ]
+            wrap -> [> `In ] attrib
+          val a_in2 :
+            [< `BackgroundAlpha
+             | `BackgroundImage
+             | `FillPaint
+             | `Ref of string
+             | `SourceAlpha
+             | `SourceGraphic
+             | `StrokePaint ]
+            wrap -> [> `In2 ] attrib
+          val a_azimuth : float wrap -> [> `Azimuth ] attrib
+          val a_elevation : float wrap -> [> `Elevation ] attrib
+          val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
+          val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
+          val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
+          val a_specularExponent :
+            float wrap -> [> `SpecularExponent ] attrib
+          val a_specularConstant :
+            float wrap -> [> `SpecularConstant ] attrib
+          val a_limitingConeAngle :
+            float wrap -> [> `LimitingConeAngle ] attrib
+          val a_mode :
+            [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
+            [> `Mode ] attrib
+          val a_feColorMatrix_type :
+            [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ] wrap ->
+            [> `Typefecolor ] attrib
+          val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
+          val a_transfer_type :
+            [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
+            [> `Type_transfert ] attrib
+          val a_tableValues :
+            Svg_types.numbers wrap -> [> `TableValues ] attrib
+          val a_intercept : Svg_types.number wrap -> [> `Intercept ] attrib
+          val a_amplitude : Svg_types.number wrap -> [> `Amplitude ] attrib
+          val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
+          val a_transfer_offset :
+            Svg_types.number wrap -> [> `Offset_transfer ] attrib
+          val a_feComposite_operator :
+            [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
+            [> `OperatorComposite ] attrib
+          val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
+          val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
+          val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
+          val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
+          val a_order :
+            Svg_types.number_optional_number wrap -> [> `Order ] attrib
+          val a_kernelMatrix :
+            Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
+          val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
+          val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
+          val a_kernelUnitLength :
+            Svg_types.number_optional_number wrap ->
+            [> `KernelUnitLength ] attrib
+          val a_targetX : int wrap -> [> `TargetX ] attrib
+          val a_targetY : int wrap -> [> `TargetY ] attrib
+          val a_edgeMode :
+            [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
+          val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
+          val a_surfaceScale :
+            Svg_types.number wrap -> [> `SurfaceScale ] attrib
+          val a_diffuseConstant :
+            Svg_types.number wrap -> [> `DiffuseConstant ] attrib
+          val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
+          val a_xChannelSelector :
+            [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
+          val a_yChannelSelector :
+            [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
+          val a_stdDeviation :
+            Svg_types.number_optional_number wrap ->
+            [> `StdDeviation ] attrib
+          val a_feMorphology_operator :
+            [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
+          val a_radius :
+            Svg_types.number_optional_number wrap -> [> `Radius ] attrib
+          val a_baseFrenquency :
+            Svg_types.number_optional_number wrap ->
+            [> `BaseFrequency ] attrib
+          val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
+          val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
+          val a_stitchTiles :
+            [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
+          val a_feTurbulence_type :
+            [< `FractalNoise | `Turbulence ] wrap -> [> `TypeStitch ] attrib
+          val a_xlink_show :
+            [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
+          val a_xlink_actuate :
+            [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
+            [> `Xlink_actuate ] attrib
+          val a_target : string wrap -> [> `Xlink_target ] attrib
+          val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
+          val a_attributeName : string wrap -> [> `AttributeName ] attrib
+          val a_attributeType :
+            [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
+          val a_begin : string wrap -> [> `Begin ] attrib
+          val a_dur : string wrap -> [> `Dur ] attrib
+          val a_min : string wrap -> [> `Min ] attrib
+          val a_max : string wrap -> [> `Max ] attrib
+          val a_restart :
+            [< `Always | `Never | `WhenNotActive ] wrap ->
+            [> `Restart ] attrib
+          val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
+          val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
+          val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
+          val a_animation_fill :
+            [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
+          val a_calcMode :
+            [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
+            [> `CalcMode ] attrib
+          val a_animation_values :
+            Svg_types.strings wrap -> [> `Valuesanim ] attrib
+          val a_keyTimes : Svg_types.strings wrap -> [> `KeyTimes ] attrib
+          val a_keySplines :
+            Svg_types.strings wrap -> [> `KeySplines ] attrib
+          val a_from : string wrap -> [> `From ] attrib
+          val a_to : string wrap -> [> `To ] attrib
+          val a_by : string wrap -> [> `By ] attrib
+          val a_additive : [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
+          val a_accumulate :
+            [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
+          val a_keyPoints :
+            Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
+          val a_path : string wrap -> [> `Path ] attrib
+          val a_animateTransform_type :
+            [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
+            [ `Typeanimatetransform ] attrib
+          val a_horiz_origin_x :
+            Svg_types.number wrap -> [> `HorizOriginX ] attrib
+          val a_horiz_origin_y :
+            Svg_types.number wrap -> [> `HorizOriginY ] attrib
+          val a_horiz_adv_x : Svg_types.number wrap -> [> `HorizAdvX ] attrib
+          val a_vert_origin_x :
+            Svg_types.number wrap -> [> `VertOriginX ] attrib
+          val a_vert_origin_y :
+            Svg_types.number wrap -> [> `VertOriginY ] attrib
+          val a_vert_adv_y : Svg_types.number wrap -> [> `VertAdvY ] attrib
+          val a_unicode : string wrap -> [> `Unicode ] attrib
+          val a_glyph_name : string wrap -> [> `glyphname ] attrib
+          val a_orientation : [< `H | `V ] wrap -> [> `Orientation ] attrib
+          val a_arabic_form :
+            [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
+            [> `Arabicform ] attrib
+          val a_lang : string wrap -> [> `Lang ] attrib
+          val a_u1 : string wrap -> [> `U1 ] attrib
+          val a_u2 : string wrap -> [> `U2 ] attrib
+          val a_g1 : string wrap -> [> `G1 ] attrib
+          val a_g2 : string wrap -> [> `G2 ] attrib
+          val a_k : string wrap -> [> `K ] attrib
+          val a_font_family : string wrap -> [> `Font_Family ] attrib
+          val a_font_style : string wrap -> [> `Font_Style ] attrib
+          val a_font_variant : string wrap -> [> `Font_Variant ] attrib
+          val a_font_weight : string wrap -> [> `Font_Weight ] attrib
+          val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
+          val a_font_size : string wrap -> [> `Font_Size ] attrib
+          val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
+          val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
+          val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
+          val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
+          val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
+          val a_cap_height : Svg_types.number wrap -> [> `CapHeight ] attrib
+          val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
+          val a_accent_height :
+            Svg_types.number wrap -> [> `AccentHeight ] attrib
+          val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
+          val a_widths : string wrap -> [> `Widths ] attrib
+          val a_bbox : string wrap -> [> `Bbox ] attrib
+          val a_ideographic :
+            Svg_types.number wrap -> [> `Ideographic ] attrib
+          val a_alphabetic : Svg_types.number wrap -> [> `Alphabetic ] attrib
+          val a_mathematical :
+            Svg_types.number wrap -> [> `Mathematical ] attrib
+          val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
+          val a_videographic :
+            Svg_types.number wrap -> [> `VIdeographic ] attrib
+          val a_v_alphabetic :
+            Svg_types.number wrap -> [> `VAlphabetic ] attrib
+          val a_v_mathematical :
+            Svg_types.number wrap -> [> `VMathematical ] attrib
+          val a_v_hanging : Svg_types.number wrap -> [> `VHanging ] attrib
+          val a_underline_position :
+            Svg_types.number wrap -> [> `UnderlinePosition ] attrib
+          val a_underline_thickness :
+            Svg_types.number wrap -> [> `UnderlineThickness ] attrib
+          val a_strikethrough_position :
+            Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
+          val a_strikethrough_thickness :
+            Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
+          val a_overline_position :
+            Svg_types.number wrap -> [> `OverlinePosition ] attrib
+          val a_overline_thickness :
+            Svg_types.number wrap -> [> `OverlineThickness ] attrib
+          val a_string : string wrap -> [> `String ] attrib
+          val a_name : string wrap -> [> `Name ] attrib
+          val a_alignment_baseline :
+            [< `After_edge
+             | `Alphabetic
+             | `Auto
+             | `Baseline
+             | `Before_edge
+             | `Central
+             | `Hanging
+             | `Ideographic
+             | `Inherit
+             | `Mathematical
+             | `Middle
+             | `Text_after_edge
+             | `Text_before_edge ]
+            wrap -> [> `Alignment_Baseline ] attrib
+          val a_dominant_baseline :
+            [< `Alphabetic
+             | `Auto
+             | `Central
+             | `Hanging
+             | `Ideographic
+             | `Inherit
+             | `Mathematical
+             | `Middle
+             | `No_change
+             | `Reset_size
+             | `Text_after_edge
+             | `Text_before_edge
+             | `Use_script ]
+            wrap -> [> `Dominant_Baseline ] attrib
+          val a_stop_color : Svg_types.color wrap -> [> `Stop_Color ] attrib
+          val a_stop_opacity :
+            Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+          val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+          val a_stroke_width :
+            Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+          val a_stroke_linecap :
+            [< `Butt | `Round | `Square ] wrap -> [> `Stroke_Linecap ] attrib
+          val a_stroke_linejoin :
+            [< `Bever | `Miter | `Round ] wrap ->
+            [> `Stroke_Linejoin ] attrib
+          val a_stroke_miterlimit :
+            float wrap -> [> `Stroke_Miterlimit ] attrib
+          val a_stroke_dasharray :
+            Svg_types.Unit.length list wrap -> [> `Stroke_Dasharray ] attrib
+          val a_stroke_dashoffset :
+            Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+          val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
+          val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+          val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
+          val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
+          val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
+          val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+          val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
+          val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
+          val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+          val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
+          val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+          val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+          val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+          val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
+          val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+          val a_onmousedown :
+            Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+          val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+          val a_onmouseover :
+            Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+          val a_onmouseout :
+            Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+          val a_onmousemove :
+            Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+          val a_ontouchstart :
+            Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+          val a_ontouchend :
+            Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+          val a_ontouchmove :
+            Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+          val a_ontouchcancel :
+            Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+          val txt : string wrap -> [> Svg_types.txt ] elt
+          val svg :
+            ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
+             [> Svg_types.svg ])
+            star
+          val g :
+            ([< Svg_types.g_attr ], [< Svg_types.g_content ],
+             [> Svg_types.g ])
+            star
+          val defs :
+            ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
+             [> Svg_types.defs ])
+            star
+          val desc :
+            ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
+             [> Svg_types.desc ])
+            unary
+          val title :
+            ([< Svg_types.title_attr ], [< Svg_types.title_content ],
+             [> Svg_types.title ])
+            unary
+          val symbol :
+            ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
+             [> Svg_types.symbol ])
+            star
+          val use :
+            ([< Svg_types.use_attr ], [< Svg_types.use_content ],
+             [> Svg_types.use ])
+            star
+          val image :
+            ([< Svg_types.image_attr ], [< Svg_types.image_content ],
+             [> Svg_types.image ])
+            star
+          val switch :
+            ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
+             [> Svg_types.switch ])
+            star
+          val style :
+            ([< Svg_types.style_attr ], [< Svg_types.style_content ],
+             [> Svg_types.style ])
+            unary
+          val path :
+            ([< Svg_types.path_attr ], [< Svg_types.path_content ],
+             [> Svg_types.path ])
+            star
+          val rect :
+            ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
+             [> Svg_types.rect ])
+            star
+          val circle :
+            ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
+             [> Svg_types.circle ])
+            star
+          val ellipse :
+            ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
+             [> Svg_types.ellipse ])
+            star
+          val line :
+            ([< Svg_types.line_attr ], [< Svg_types.line_content ],
+             [> Svg_types.line ])
+            star
+          val polyline :
+            ([< Svg_types.polyline_attr ], [< Svg_types.polyline_content ],
+             [> Svg_types.polyline ])
+            star
+          val polygon :
+            ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
+             [> Svg_types.polygon ])
+            star
+          val text :
+            ([< Svg_types.text_attr ], [< Svg_types.text_content ],
+             [> Svg_types.text ])
+            star
+          val tspan :
+            ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
+             [> Svg_types.tspan ])
+            star
+          val tref :
+            ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
+             [> Svg_types.tref ])
+            star
+          val textPath :
+            ([< Svg_types.textpath_attr ], [< Svg_types.textpath_content ],
+             [> Svg_types.textpath ])
+            star
+          val altGlyph :
+            ([< Svg_types.altglyph_attr ], [< Svg_types.altglyph_content ],
+             [> Svg_types.altglyph ])
+            unary
+          type altglyphdef_content =
+              [ `Item of Svg_types.altglyphitem elt list
+              | `Ref of Svg_types.glyphref elt list ]
+          val altGlyphDef :
+            ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
+             [> Svg_types.altglyphdef ])
+            unary
+          val altGlyphItem :
+            ([< Svg_types.altglyphitem_attr ],
+             [< Svg_types.altglyphitem_content ],
+             [> Svg_types.altglyphitem ])
+            star
+          val glyphRef :
+            ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ]) nullary
+          val marker :
+            ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
+             [> Svg_types.marker ])
+            star
+          val color_profile :
+            ([< Svg_types.colorprofile_attr ],
+             [< Svg_types.colorprofile_content ],
+             [> Svg_types.colorprofile ])
+            star
+          val linearGradient :
+            ([< Svg_types.lineargradient_attr ],
+             [< Svg_types.lineargradient_content ],
+             [> Svg_types.lineargradient ])
+            star
+          val radialGradient :
+            ([< Svg_types.radialgradient_attr ],
+             [< Svg_types.radialgradient_content ],
+             [> Svg_types.radialgradient ])
+            star
+          val stop :
+            ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
+             [> Svg_types.stop ])
+            star
+          val pattern :
+            ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
+             [> Svg_types.pattern ])
+            star
+          val clipPath :
+            ([< Svg_types.clippath_attr ], [< Svg_types.clippath_content ],
+             [> Svg_types.clippath ])
+            star
+          val filter :
+            ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
+             [> Svg_types.filter ])
+            star
+          val feDistantLight :
+            ([< Svg_types.fedistantlight_attr ],
+             [< Svg_types.fedistantlight_content ],
+             [> Svg_types.fedistantlight ])
+            star
+          val fePointLight :
+            ([< Svg_types.fepointlight_attr ],
+             [< Svg_types.fepointlight_content ],
+             [> Svg_types.fepointlight ])
+            star
+          val feSpotLight :
+            ([< Svg_types.fespotlight_attr ],
+             [< Svg_types.fespotlight_content ], [> Svg_types.fespotlight ])
+            star
+          val feBlend :
+            ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
+             [> Svg_types.feblend ])
+            star
+          val feColorMatrix :
+            ([< Svg_types.fecolormatrix_attr ],
+             [< Svg_types.fecolormatrix_content ],
+             [> Svg_types.fecolormatrix ])
+            star
+          val feComponentTransfer :
+            ([< Svg_types.fecomponenttransfer_attr ],
+             [< Svg_types.fecomponenttransfer_content ],
+             [> Svg_types.fecomponenttransfer ])
+            star
+          val feFuncA :
+            ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
+             [> Svg_types.fefunca ])
+            star
+          val feFuncG :
+            ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
+             [> Svg_types.fefuncg ])
+            star
+          val feFuncB :
+            ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
+             [> Svg_types.fefuncb ])
+            star
+          val feFuncR :
+            ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
+             [> Svg_types.fefuncr ])
+            star
+          val feComposite :
+            ([< Svg_types.fecomposite_attr ],
+             [< Svg_types.fecomposite_content ], [> Svg_types.fecomposite ])
+            star
+          val feConvolveMatrix :
+            ([< Svg_types.feconvolvematrix_attr ],
+             [< Svg_types.feconvolvematrix_content ],
+             [> Svg_types.feconvolvematrix ])
+            star
+          val feDiffuseLighting :
+            ([< Svg_types.fediffuselighting_attr ],
+             [< Svg_types.fediffuselighting_content ],
+             [> Svg_types.fediffuselighting ])
+            star
+          val feDisplacementMap :
+            ([< Svg_types.fedisplacementmap_attr ],
+             [< Svg_types.fedisplacementmap_content ],
+             [> Svg_types.fedisplacementmap ])
+            star
+          val feFlood :
+            ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
+             [> Svg_types.feflood ])
+            star
+          val feGaussianBlur :
+            ([< Svg_types.fegaussianblur_attr ],
+             [< Svg_types.fegaussianblur_content ],
+             [> Svg_types.fegaussianblur ])
+            star
+          val feImage :
+            ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
+             [> Svg_types.feimage ])
+            star
+          val feMerge :
+            ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
+             [> Svg_types.femerge ])
+            star
+          val feMorphology :
+            ([< Svg_types.femorphology_attr ],
+             [< Svg_types.femorphology_content ],
+             [> Svg_types.femorphology ])
+            star
+          val feOffset :
+            ([< Svg_types.feoffset_attr ], [< Svg_types.feoffset_content ],
+             [> Svg_types.feoffset ])
+            star
+          val feSpecularLighting :
+            ([< Svg_types.fespecularlighting_attr ],
+             [< Svg_types.fespecularlighting_content ],
+             [> Svg_types.fespecularlighting ])
+            star
+          val feTile :
+            ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
+             [> Svg_types.fetile ])
+            star
+          val feTurbulence :
+            ([< Svg_types.feturbulence_attr ],
+             [< Svg_types.feturbulence_content ],
+             [> Svg_types.feturbulence ])
+            star
+          val cursor :
+            ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
+             [> Svg_types.cursor ])
+            star
+          val a :
+            ([< Svg_types.a_attr ], [< Svg_types.a_content ],
+             [> Svg_types.a ])
+            star
+          val view :
+            ([< Svg_types.view_attr ], [< Svg_types.view_content ],
+             [> Svg_types.view ])
+            star
+          val script :
+            ([< Svg_types.script_attr ], [< Svg_types.script_content ],
+             [> Svg_types.script ])
+            unary
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
+          val set :
+            ([< Svg_types.set_attr ], [< Svg_types.set_content ],
+             [> Svg_types.set ])
+            star
+          val animateMotion :
+            ([< Svg_types.animatemotion_attr ],
+             [< Svg_types.animatemotion_content ],
+             [> Svg_types.animatemotion ])
+            star
+          val mpath :
+            ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
+             [> Svg_types.mpath ])
+            star
+          val animateColor :
+            ([< Svg_types.animatecolor_attr ],
+             [< Svg_types.animatecolor_content ],
+             [> Svg_types.animatecolor ])
+            star
+          val animateTransform :
+            ([< Svg_types.animatetransform_attr ],
+             [< Svg_types.animatetransform_content ],
+             [> Svg_types.animatetransform ])
+            star
+          val font :
+            ([< Svg_types.font_attr ], [< Svg_types.font_content ],
+             [> Svg_types.font ])
+            star
+          val glyph :
+            ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
+             [> Svg_types.glyph ])
+            star
+          val missing_glyph :
+            ([< Svg_types.missingglyph_attr ],
+             [< Svg_types.missingglyph_content ],
+             [> Svg_types.missingglyph ])
+            star
+          val hkern :
+            ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
+          val vkern :
+            ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
+          val font_face :
+            ([< Svg_types.font_face_attr ], [> Svg_types.font_face ]) nullary
+          val font_face_src :
+            ([< Svg_types.font_face_src_attr ],
+             [< Svg_types.font_face_src_content ],
+             [> Svg_types.font_face_src ])
+            star
+          val font_face_uri :
+            ([< Svg_types.font_face_uri_attr ],
+             [< Svg_types.font_face_uri_content ],
+             [> Svg_types.font_face_uri ])
+            star
+          val font_face_format :
+            ([< Svg_types.font_face_format_attr ],
+             [> Svg_types.font_face_format ])
+            nullary
+          val font_face_name :
+            ([< Svg_types.font_face_name_attr ],
+             [> Svg_types.font_face_name ])
+            nullary
+          val metadata :
+            ?a:Svg_types.metadata_attr attrib list ->
+            Xml.elt list_wrap -> [> Svg_types.metadata ] elt
+          val foreignObject :
+            ?a:Svg_types.foreignobject_attr attrib list ->
+            Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+          val pcdata : string wrap -> [> Svg_types.txt ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
+          val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+          val tot : Xml.elt -> 'a elt
+          val totl : Xml.elt list_wrap -> 'a elt list_wrap
+          val toelt : 'a elt -> Xml.elt
+          val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+          val doc_toelt : doc -> Xml.elt
+          val to_xmlattribs : 'a attrib list -> Xml.attrib list
+          val to_attrib : Xml.attrib -> 'a attrib
+          module Unsafe :
+            sig
+              val data : string wrap -> 'a elt
+              val node :
+                string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+              val coerce_elt : 'a elt -> 'b elt
+              val string_attrib : string -> string wrap -> 'a attrib
+              val float_attrib : string -> float wrap -> 'a attrib
+              val int_attrib : string -> int wrap -> 'a attrib
+              val uri_attrib : string -> uri wrap -> 'a attrib
+              val space_sep_attrib : string -> string list wrap -> 'a attrib
+              val comma_sep_attrib : string -> string list wrap -> 'a attrib
+            end
+        end
       module Raw :
         sig
           type 'a elt = 'a elt
@@ -1810,7 +3510,7 @@
             [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
             [ `GradientUnits ] attrib
           val a_gradientTransform :
-            Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
           val a_spreadMethod :
             [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
           val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -1957,6 +3657,8 @@
           val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
           val a_animation_fill :
             [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
           val a_calcMode :
             [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
             [> `CalcMode ] attrib
@@ -2092,37 +3794,6 @@
           val a_stroke_dashoffset :
             Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
           val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
-          val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-          val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
-          val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
-          val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
-          val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-          val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
-          val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
-          val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-          val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
-          val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-          val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-          val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-          val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
-          val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-          val a_onmousedown :
-            Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-          val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-          val a_onmouseover :
-            Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-          val a_onmouseout :
-            Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-          val a_onmousemove :
-            Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-          val a_ontouchstart :
-            Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-          val a_ontouchend :
-            Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-          val a_ontouchmove :
-            Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-          val a_ontouchcancel :
-            Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
           val txt : string wrap -> [> Svg_types.txt ] elt
           val svg :
             ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
@@ -2380,9 +4051,9 @@
             ([< Svg_types.script_attr ], [< Svg_types.script_content ],
              [> Svg_types.script ])
             unary
-          val animation :
-            ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-             [> Svg_types.animation ])
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
             star
           val set :
             ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -2451,6 +4122,10 @@
             ?a:Svg_types.foreignobject_attr attrib list ->
             Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
           val pcdata : string wrap -> [> Svg_types.txt ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
           val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
           val tot : Xml.elt -> 'a elt
           val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -2473,6 +4148,29 @@
               val space_sep_attrib : string -> string list wrap -> 'a attrib
               val comma_sep_attrib : string -> string list wrap -> 'a attrib
             end
+          val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+          val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+          val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+          val a_onend : string -> [> `OnEnd ] Raw'.attrib
+          val a_onerror : string -> [> `OnError ] Raw'.attrib
+          val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+          val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+          val a_onload : string -> [> `OnLoad ] Raw'.attrib
+          val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+          val a_onresize : string -> [> `OnResize ] Raw'.attrib
+          val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+          val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+          val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+          val a_onclick : string -> [> `OnClick ] Raw'.attrib
+          val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+          val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+          val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+          val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+          val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+          val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+          val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+          val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+          val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
         end
       type 'a elt = 'a elt
       type doc = [ `Svg ] elt
@@ -2638,7 +4336,7 @@
         [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
         [ `GradientUnits ] attrib
       val a_gradientTransform :
-        Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
       val a_spreadMethod :
         [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
       val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -2774,6 +4472,7 @@
       val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
       val a_animation_fill :
         [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
       val a_calcMode :
         [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
         [> `CalcMode ] attrib
@@ -3172,9 +4871,9 @@
         ([< Svg_types.script_attr ], [< Svg_types.script_content ],
          [> Svg_types.script ])
         unary
-      val animation :
-        ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-         [> Svg_types.animation ])
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
         star
       val set :
         ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -3235,6 +4934,10 @@
         ?a:Svg_types.foreignobject_attr attrib list ->
         Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
       val pcdata : string wrap -> [> Svg_types.txt ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
       val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
       val tot : Xml.elt -> 'a elt
       val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -3443,7 +5146,7 @@
             [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
             [ `GradientUnits ] attrib
           val a_gradientTransform :
-            Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
           val a_spreadMethod :
             [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
           val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -3590,6 +5293,8 @@
           val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
           val a_animation_fill :
             [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
           val a_calcMode :
             [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
             [> `CalcMode ] attrib
@@ -4013,9 +5718,9 @@
             ([< Svg_types.script_attr ], [< Svg_types.script_content ],
              [> Svg_types.script ])
             unary
-          val animation :
-            ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-             [> Svg_types.animation ])
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
             star
           val set :
             ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -4084,6 +5789,10 @@
             ?a:Svg_types.foreignobject_attr attrib list ->
             Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
           val pcdata : string wrap -> [> Svg_types.txt ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
           val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
           val tot : Xml.elt -> 'a elt
           val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -4274,7 +5983,7 @@
         [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
         [ `GradientUnits ] attrib
       val a_gradientTransform :
-        Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
       val a_spreadMethod :
         [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
       val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -4410,6 +6119,7 @@
       val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
       val a_animation_fill :
         [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
       val a_calcMode :
         [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
         [> `CalcMode ] attrib
@@ -4808,9 +6518,9 @@
         ([< Svg_types.script_attr ], [< Svg_types.script_content ],
          [> Svg_types.script ])
         unary
-      val animation :
-        ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-         [> Svg_types.animation ])
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
         star
       val set :
         ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -4871,6 +6581,10 @@
         ?a:Svg_types.foreignobject_attr attrib list ->
         Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
       val pcdata : string wrap -> [> Svg_types.txt ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
       val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
       val tot : Xml.elt -> 'a elt
       val totl : Xml.elt list_wrap -> 'a elt list_wrap
diff --git a/doc/10.x/api/client/type_Eliom_content.Xml.wiki b/doc/11.x/api/client/type_Eliom_content.Xml.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content.Xml.wiki
rename to doc/11.x/api/client/type_Eliom_content.Xml.wiki
diff --git a/doc/10.x/api/server/type_Eliom_content.wiki b/doc/11.x/api/client/type_Eliom_content.wiki
similarity index 63%
rename from doc/10.x/api/server/type_Eliom_content.wiki
rename to doc/11.x/api/client/type_Eliom_content.wiki
index 47eaf38492..d00ff0318d 100644
--- a/doc/10.x/api/server/type_Eliom_content.wiki
+++ b/doc/11.x/api/client/type_Eliom_content.wiki
@@ -14,57 +14,41 @@
           val append : 'a tlist -> 'a tlist -> 'a tlist
           val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
         end
-      type 'a wrap = 'a
-      type 'a list_wrap = 'a list
-      type uri
-      val string_of_uri : (uri, string) W.ft
-      val uri_of_string : (string, uri) W.ft
+      type uri = string
+      val uri_of_string : uri -> string
+      val string_of_uri : string -> uri
+      val uri_of_fun : (unit -> string) -> uri
       type aname = string
+      type attrib
+      type caml_event_handler =
+          CE_registered_closure of string * Eliom_lib.poly
+        | CE_client_closure of
+            (Js_of_ocaml.Dom_html.event Js_of_ocaml.Js.t -> unit)
+        | CE_client_closure_mouse of
+            (Js_of_ocaml.Dom_html.mouseEvent Js_of_ocaml.Js.t -> unit)
+        | CE_client_closure_keyboard of
+            (Js_of_ocaml.Dom_html.keyboardEvent Js_of_ocaml.Js.t -> unit)
+        | CE_client_closure_touch of
+            (Js_of_ocaml.Dom_html.touchEvent Js_of_ocaml.Js.t -> unit)
+        | CE_call_service of
+            ([ `A | `Form_get | `Form_post ] * (bool * string list) option *
+             string option * Ocsigen_lib_base.poly)
+            option Eliom_lazy.request
+      type internal_event_handler =
+          Raw of string
+        | Caml of caml_event_handler
       type event_handler =
-          (Js_of_ocaml.Dom_html.event Js_of_ocaml.Js.t -> unit)
-          Eliom_client_value.t
+          Js_of_ocaml.Dom_html.event Js_of_ocaml.Js.t -> unit
       type mouse_event_handler =
-          (Js_of_ocaml.Dom_html.mouseEvent Js_of_ocaml.Js.t -> unit)
-          Eliom_client_value.t
+          Js_of_ocaml.Dom_html.mouseEvent Js_of_ocaml.Js.t -> unit
       type keyboard_event_handler =
-          (Js_of_ocaml.Dom_html.keyboardEvent Js_of_ocaml.Js.t -> unit)
-          Eliom_client_value.t
+          Js_of_ocaml.Dom_html.keyboardEvent Js_of_ocaml.Js.t -> unit
       type touch_event_handler =
-          (Js_of_ocaml.Dom_html.touchEvent Js_of_ocaml.Js.t -> unit)
-          Eliom_client_value.t
-      type attrib
-      val float_attrib : aname -> float wrap -> attrib
-      val int_attrib : aname -> int wrap -> attrib
-      val string_attrib : aname -> string wrap -> attrib
-      val space_sep_attrib : aname -> string list wrap -> attrib
-      val comma_sep_attrib : aname -> string list wrap -> attrib
-      val event_handler_attrib : aname -> event_handler -> attrib
-      val mouse_event_handler_attrib : aname -> mouse_event_handler -> attrib
-      val keyboard_event_handler_attrib :
-        aname -> keyboard_event_handler -> attrib
-      val touch_event_handler_attrib : aname -> touch_event_handler -> attrib
-      val uri_attrib : aname -> uri wrap -> attrib
-      val uris_attrib : aname -> uri list wrap -> attrib
-      type elt
+          Js_of_ocaml.Dom_html.touchEvent Js_of_ocaml.Js.t -> unit
       type ename = string
-      val empty : unit -> elt
-      val comment : string -> elt
-      val pcdata : string wrap -> elt
-      val encodedpcdata : string wrap -> elt
-      val entity : string -> elt
-      val leaf : ?a:attrib list -> ename -> elt
-      val node : ?a:attrib list -> ename -> elt list_wrap -> elt
-      val cdata : string -> elt
-      val cdata_script : string -> elt
-      val cdata_style : string -> elt
-      type separator = Space | Comma
-      val aname : attrib -> aname
-      type acontent = private
-          AFloat of float
-        | AInt of int
-        | AStr of string
-        | AStrL of separator * string list
-      val acontent : attrib -> acontent
+      type elt
+      type 'a wrap = 'a
+      type 'a list_wrap = 'a list
       type econtent = private
           Empty
         | Comment of string
@@ -73,101 +57,82 @@
         | Entity of string
         | Leaf of ename * attrib list
         | Node of ename * attrib list * elt list
-      val content : elt -> econtent
-      type caml_event_handler
-      val make_process_node : ?id:string -> elt -> elt
-      val make_request_node : ?reset:bool -> elt -> elt
-      val uri_of_fun : (unit -> string) -> uri
-      type node_id
-      val get_node_id : elt -> Eliom_content.Xml.node_id
-      val make_event_handler_table :
-        elt -> Eliom_runtime.RawXML.event_handler_table
-      val make_client_attrib_table :
-        elt -> Eliom_runtime.RawXML.client_attrib_table
-      val caml_event_handler :
-        (Js_of_ocaml.Dom_html.event Js_of_ocaml.Js.t -> unit)
-        Eliom_client_value.t -> Eliom_content.Xml.caml_event_handler
+      val internal_event_handler_of_service :
+        ([ `A | `Form_get | `Form_post ] * (bool * string list) option *
+         string option * Eliom_lib.poly)
+        option Eliom_lazy.request -> internal_event_handler
+      type separator = Space | Comma
+      type acontent = private
+          AFloat of float
+        | AInt of int
+        | AStr of string
+        | AStrL of separator * string list
+      val acontent : attrib -> acontent
       type racontent =
           RA of acontent
         | RAReact of acontent option React.signal
-        | RACamlEventHandler of Eliom_content.Xml.caml_event_handler
+        | RACamlEventHandler of caml_event_handler
         | RALazyStr of string Eliom_lazy.request
         | RALazyStrL of separator * string Eliom_lazy.request list
         | RAClient of string * attrib option * Eliom_lib.poly
-      val racontent : attrib -> Eliom_content.Xml.racontent
-      val lazy_node :
-        ?a:attrib list -> ename -> elt list Eliom_lazy.request -> elt
-      val wrap : elt -> 'a -> 'a Eliom_wrap.wrapped_value
-    end
-  module Xml_shared :
-    sig
-      module W :
-        sig
-          type 'a t = 'a Eliom_shared.React.S.t
-          val return : 'a -> 'a t
-          type (-'a, 'b) ft
-          val fmap : ('a, 'b) ft -> 'a t -> 'b t
-          type 'a tlist = 'a Eliom_shared.ReactiveData.RList.t
-          val nil : unit -> 'a tlist
-          val singleton : 'a t -> 'a tlist
-          val cons : 'a t -> 'a tlist -> 'a tlist
-          val append : 'a tlist -> 'a tlist -> 'a tlist
-          val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
-        end
-      type 'a wrap = 'a W.t
-      type 'a list_wrap = 'a W.tlist
-      type uri
-      val string_of_uri : (uri, string) W.ft
-      val uri_of_string : (string, uri) W.ft
-      type aname = string
-      type event_handler =
-          (Js_of_ocaml.Dom_html.event Js_of_ocaml.Js.t -> unit)
-          Eliom_client_value.t
-      type mouse_event_handler =
-          (Js_of_ocaml.Dom_html.mouseEvent Js_of_ocaml.Js.t -> unit)
-          Eliom_client_value.t
-      type keyboard_event_handler =
-          (Js_of_ocaml.Dom_html.keyboardEvent Js_of_ocaml.Js.t -> unit)
-          Eliom_client_value.t
-      type touch_event_handler =
-          (Js_of_ocaml.Dom_html.touchEvent Js_of_ocaml.Js.t -> unit)
-          Eliom_client_value.t
-      type attrib
-      val float_attrib : aname -> float wrap -> attrib
-      val int_attrib : aname -> int wrap -> attrib
-      val string_attrib : aname -> string wrap -> attrib
-      val space_sep_attrib : aname -> string list wrap -> attrib
-      val comma_sep_attrib : aname -> string list wrap -> attrib
+      val racontent : attrib -> racontent
+      val aname : attrib -> aname
+      val float_attrib : aname -> float -> attrib
+      val int_attrib : aname -> int -> attrib
+      val string_attrib : aname -> string -> attrib
+      val space_sep_attrib : aname -> string list -> attrib
+      val comma_sep_attrib : aname -> string list -> attrib
+      val internal_event_handler_attrib :
+        aname -> internal_event_handler -> attrib
       val event_handler_attrib : aname -> event_handler -> attrib
       val mouse_event_handler_attrib : aname -> mouse_event_handler -> attrib
       val keyboard_event_handler_attrib :
         aname -> keyboard_event_handler -> attrib
       val touch_event_handler_attrib : aname -> touch_event_handler -> attrib
-      val uri_attrib : aname -> uri wrap -> attrib
-      val uris_attrib : aname -> uri list wrap -> attrib
-      type elt
-      type ename = string
+      val uri_attrib : aname -> uri -> attrib
+      val uris_attrib : aname -> uri list -> attrib
+      val content : elt -> econtent
+      val pcdata : string -> elt
+      val encodedpcdata : string -> elt
+      val entity : string -> elt
       val empty : unit -> elt
       val comment : string -> elt
-      val pcdata : string wrap -> elt
-      val encodedpcdata : string wrap -> elt
-      val entity : string -> elt
       val leaf : ?a:attrib list -> ename -> elt
-      val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+      val node : ?a:attrib list -> ename -> elt list -> elt
+      val lazy_node :
+        ?a:attrib list -> ename -> elt list Eliom_lazy.request -> elt
       val cdata : string -> elt
       val cdata_script : string -> elt
       val cdata_style : string -> elt
+      type node_id = NoId | ProcessId of string | RequestId of string
+      val string_of_node_id : node_id -> string
+      val make : ?id:node_id -> econtent -> elt
+      val make_dom :
+        ?id:node_id -> Js_of_ocaml.Dom.node Js_of_ocaml.Js.t -> elt
+      val make_lazy : ?id:node_id -> elt lazy_t -> elt
+      val force_lazy : elt -> unit
+      val make_react : ?id:node_id -> elt React.signal -> elt
+      val make_process_node : ?id:string -> elt -> elt
+      val make_request_node : ?reset:bool -> elt -> elt
+      val get_node_id : elt -> node_id
+      type node =
+          DomNode of Js_of_ocaml.Dom.node Js_of_ocaml.Js.t
+        | TyXMLNode of econtent
+        | ReactNode of elt React.signal
+        | ReactChildren of econtent * elt ReactiveData.RList.t
+      val get_node : elt -> node
+      val set_dom_node : elt -> Js_of_ocaml.Dom.node Js_of_ocaml.Js.t -> unit
+      val set_classes_of_elt : elt -> elt
     end
   module Svg :
     sig
       type +'a elt
       type +'a attrib
-      type 'a wrap = 'a
-      type 'a list_wrap = 'a list
       type uri = Eliom_content.Xml.uri
+      module Ev' = Eliom_content_core.Svg.Ev'
       module F :
         sig
-          module Raw :
+          module Raw' :
             sig
               type 'a elt = 'a elt
               type doc = [ `Svg ] elt
@@ -351,7 +316,7 @@
                 [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
                 [ `GradientUnits ] attrib
               val a_gradientTransform :
-                Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+                Svg_types.transforms wrap -> [> `GradientTransform ] attrib
               val a_spreadMethod :
                 [< `Pad | `Reflect | `Repeat ] wrap ->
                 [> `SpreadMethod ] attrib
@@ -502,6 +467,8 @@
               val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
               val a_animation_fill :
                 [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+              val a_fill_rule :
+                Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
               val a_calcMode :
                 [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
                 [> `CalcMode ] attrib
@@ -941,9 +908,9 @@
                 ([< Svg_types.script_attr ], [< Svg_types.script_content ],
                  [> Svg_types.script ])
                 unary
-              val animation :
-                ([< Svg_types.animation_attr ],
-                 [< Svg_types.animation_content ], [> Svg_types.animation ])
+              val animate :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
                 star
               val set :
                 ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -1013,6 +980,10 @@
                 ?a:Svg_types.foreignobject_attr attrib list ->
                 Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
               val pcdata : string wrap -> [> Svg_types.txt ] elt
+              val animation :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
+                star
               val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
               val tot : Xml.elt -> 'a elt
               val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -1038,127 +1009,995 @@
                     string -> string list wrap -> 'a attrib
                 end
             end
-          type 'a elt = 'a elt
-          type doc = [ `Svg ] elt
-          type 'a attrib = 'a attrib
-          module Xml :
+          module Raw :
             sig
-              module W :
+              type 'a elt = 'a elt
+              type doc = [ `Svg ] elt
+              type 'a attrib = 'a attrib
+              module Xml :
                 sig
-                  type 'a t = 'a Xml.W.t
-                  val return : 'a -> 'a t
-                  type ('a, 'b) ft = ('a, 'b) Xml.W.ft
-                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
-                  type 'a tlist = 'a Xml.W.tlist
-                  val nil : unit -> 'a tlist
-                  val singleton : 'a t -> 'a tlist
-                  val cons : 'a t -> 'a tlist -> 'a tlist
-                  val append : 'a tlist -> 'a tlist -> 'a tlist
-                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                  module W :
+                    sig
+                      type 'a t = 'a Xml.W.t
+                      val return : 'a -> 'a t
+                      type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                      val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                      type 'a tlist = 'a Xml.W.tlist
+                      val nil : unit -> 'a tlist
+                      val singleton : 'a t -> 'a tlist
+                      val cons : 'a t -> 'a tlist -> 'a tlist
+                      val append : 'a tlist -> 'a tlist -> 'a tlist
+                      val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                    end
+                  type 'a wrap = 'a W.t
+                  type 'a list_wrap = 'a W.tlist
+                  type uri = Xml.uri
+                  val string_of_uri : (uri, string) W.ft
+                  val uri_of_string : (string, uri) W.ft
+                  type aname = string
+                  type event_handler = Xml.event_handler
+                  type mouse_event_handler = Xml.mouse_event_handler
+                  type keyboard_event_handler = Xml.keyboard_event_handler
+                  type touch_event_handler = Xml.touch_event_handler
+                  type attrib = Xml.attrib
+                  val float_attrib : aname -> float wrap -> attrib
+                  val int_attrib : aname -> int wrap -> attrib
+                  val string_attrib : aname -> string wrap -> attrib
+                  val space_sep_attrib : aname -> string list wrap -> attrib
+                  val comma_sep_attrib : aname -> string list wrap -> attrib
+                  val event_handler_attrib : aname -> event_handler -> attrib
+                  val mouse_event_handler_attrib :
+                    aname -> mouse_event_handler -> attrib
+                  val keyboard_event_handler_attrib :
+                    aname -> keyboard_event_handler -> attrib
+                  val touch_event_handler_attrib :
+                    aname -> touch_event_handler -> attrib
+                  val uri_attrib : aname -> uri wrap -> attrib
+                  val uris_attrib : aname -> uri list wrap -> attrib
+                  type elt = Xml.elt
+                  type ename = string
+                  val empty : unit -> elt
+                  val comment : string -> elt
+                  val pcdata : string wrap -> elt
+                  val encodedpcdata : string wrap -> elt
+                  val entity : string -> elt
+                  val leaf : ?a:attrib list -> ename -> elt
+                  val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+                  val cdata : string -> elt
+                  val cdata_script : string -> elt
+                  val cdata_style : string -> elt
                 end
-              type 'a wrap = 'a W.t
-              type 'a list_wrap = 'a W.tlist
+              type 'a wrap = 'a Xml.W.t
+              type 'a list_wrap = 'a Xml.W.tlist
+              type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+              type ('a, 'b, 'c) unary =
+                  ?a:'a attrib list -> 'b elt wrap -> 'c elt
+              type ('a, 'b, 'c) star =
+                  ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              module Info : Xml_sigs.Info
               type uri = Xml.uri
-              val string_of_uri : (uri, string) W.ft
-              val uri_of_string : (string, uri) W.ft
-              type aname = string
-              type event_handler = Xml.event_handler
-              type mouse_event_handler = Xml.mouse_event_handler
-              type keyboard_event_handler = Xml.keyboard_event_handler
-              type touch_event_handler = Xml.touch_event_handler
-              type attrib = Xml.attrib
-              val float_attrib : aname -> float wrap -> attrib
-              val int_attrib : aname -> int wrap -> attrib
-              val string_attrib : aname -> string wrap -> attrib
-              val space_sep_attrib : aname -> string list wrap -> attrib
-              val comma_sep_attrib : aname -> string list wrap -> attrib
-              val event_handler_attrib : aname -> event_handler -> attrib
-              val mouse_event_handler_attrib :
-                aname -> mouse_event_handler -> attrib
-              val keyboard_event_handler_attrib :
-                aname -> keyboard_event_handler -> attrib
-              val touch_event_handler_attrib :
-                aname -> touch_event_handler -> attrib
-              val uri_attrib : aname -> uri wrap -> attrib
-              val uris_attrib : aname -> uri list wrap -> attrib
-              type elt = Xml.elt
-              type ename = string
-              val empty : unit -> elt
-              val comment : string -> elt
-              val pcdata : string wrap -> elt
-              val encodedpcdata : string wrap -> elt
-              val entity : string -> elt
-              val leaf : ?a:attrib list -> ename -> elt
-              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
-              val cdata : string -> elt
-              val cdata_script : string -> elt
-              val cdata_style : string -> elt
-            end
-          type 'a wrap = 'a Xml.W.t
-          type 'a list_wrap = 'a Xml.W.tlist
-          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
-          type ('a, 'b, 'c) unary =
-              ?a:'a attrib list -> 'b elt wrap -> 'c elt
-          type ('a, 'b, 'c) star =
-              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-          module Info : Xml_sigs.Info
-          type uri = Xml.uri
-          val string_of_uri : (uri, string) Xml.W.ft
-          val uri_of_string : (string, uri) Xml.W.ft
-          val a_version : string wrap -> [> `Version ] attrib
-          val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
-          val a_x : Svg_types.coord wrap -> [> `X ] attrib
-          val a_y : Svg_types.coord wrap -> [> `Y ] attrib
-          val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
-          val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
-          val a_preserveAspectRatio :
-            string wrap -> [> `PreserveAspectRatio ] attrib
-          val a_contentScriptType :
-            string wrap -> [> `ContentScriptType ] attrib
-          val a_contentStyleType :
-            string wrap -> [> `ContentStyleType ] attrib
-          val a_zoomAndPan :
-            [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
-          val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
-          val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
-          val a_requiredFeatures :
-            Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
-          val a_requiredExtensions :
-            Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
-          val a_systemLanguage :
-            Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
-          val a_externalRessourcesRequired :
-            bool wrap -> [> `ExternalRessourcesRequired ] attrib
-          val a_id : string wrap -> [> `Id ] attrib
-          val a_user_data : string -> string wrap -> [> `User_data ] attrib
-          val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
-          val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
-          val a_xml_space :
-            [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
-          val a_type : string wrap -> [> `Type ] attrib
-          val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
-          val a_xlink_title : string wrap -> [> `Title ] attrib
-          val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
-          val a_style : string wrap -> [> `Style ] attrib
-          val a_transform :
-            Svg_types.transforms wrap -> [> `Transform ] attrib
-          val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
-          val a_d : string wrap -> [> `D ] attrib
-          val a_pathLength : float wrap -> [> `PathLength ] attrib
-          val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
-          val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
-          val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
-          val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
-          val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
-          val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
-          val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
-          val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
-          val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
-          val a_points : Svg_types.coords wrap -> [> `Points ] attrib
-          val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
-          val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
-          val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
-          val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+              val string_of_uri : (uri, string) Xml.W.ft
+              val uri_of_string : (string, uri) Xml.W.ft
+              val a_version : string wrap -> [> `Version ] attrib
+              val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+              val a_x : Svg_types.coord wrap -> [> `X ] attrib
+              val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+              val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+              val a_height :
+                Svg_types.Unit.length wrap -> [> `Height ] attrib
+              val a_preserveAspectRatio :
+                string wrap -> [> `PreserveAspectRatio ] attrib
+              val a_contentScriptType :
+                string wrap -> [> `ContentScriptType ] attrib
+              val a_contentStyleType :
+                string wrap -> [> `ContentStyleType ] attrib
+              val a_zoomAndPan :
+                [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+              val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+              val a_xlink_href :
+                Svg_types.iri wrap -> [> `Xlink_href ] attrib
+              val a_requiredFeatures :
+                Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+              val a_requiredExtensions :
+                Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+              val a_systemLanguage :
+                Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+              val a_externalRessourcesRequired :
+                bool wrap -> [> `ExternalRessourcesRequired ] attrib
+              val a_id : string wrap -> [> `Id ] attrib
+              val a_user_data :
+                string -> string wrap -> [> `User_data ] attrib
+              val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+              val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+              val a_xml_space :
+                [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+              val a_type : string wrap -> [> `Type ] attrib
+              val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+              val a_xlink_title : string wrap -> [> `Title ] attrib
+              val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+              val a_style : string wrap -> [> `Style ] attrib
+              val a_transform :
+                Svg_types.transforms wrap -> [> `Transform ] attrib
+              val a_viewBox :
+                Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+              val a_d : string wrap -> [> `D ] attrib
+              val a_pathLength : float wrap -> [> `PathLength ] attrib
+              val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+              val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+              val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+              val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+              val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+              val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+              val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+              val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+              val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+              val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+              val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+              val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+              val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+              val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+              val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+              val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+              val a_lengthAdjust :
+                [< `Spacing | `SpacingAndGlyphs ] wrap ->
+                [> `LengthAdjust ] attrib
+              val a_textLength :
+                Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+              val a_text_anchor :
+                [< `End | `Inherit | `Middle | `Start ] wrap ->
+                [> `Text_Anchor ] attrib
+              val a_text_decoration :
+                [< `Blink
+                 | `Inherit
+                 | `Line_through
+                 | `None
+                 | `Overline
+                 | `Underline ]
+                wrap -> [> `Text_Decoration ] attrib
+              val a_text_rendering :
+                [< `Auto
+                 | `GeometricPrecision
+                 | `Inherit
+                 | `OptimizeLegibility
+                 | `OptimizeSpeed ]
+                wrap -> [> `Text_Rendering ] attrib
+              val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+              val a_startOffset :
+                Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+              val a_method :
+                [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+              val a_spacing :
+                [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+              val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+              val a_format : string wrap -> [> `Format ] attrib
+              val a_markerUnits :
+                [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
+                [> `MarkerUnits ] attrib
+              val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+              val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+              val a_markerWidth :
+                Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+              val a_markerHeight :
+                Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+              val a_orient :
+                Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+              val a_local : string wrap -> [> `Local ] attrib
+              val a_rendering_intent :
+                [< `Absolute_colorimetric
+                 | `Auto
+                 | `Perceptual
+                 | `Relative_colorimetric
+                 | `Saturation ]
+                wrap -> [> `Rendering_Indent ] attrib
+              val a_gradientUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [ `GradientUnits ] attrib
+              val a_gradientTransform :
+                Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+              val a_spreadMethod :
+                [< `Pad | `Reflect | `Repeat ] wrap ->
+                [> `SpreadMethod ] attrib
+              val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+              val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+              val a_offset :
+                [< `Number of Svg_types.number
+                 | `Percentage of Svg_types.percentage ]
+                wrap -> [> `Offset ] attrib
+              val a_patternUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PatternUnits ] attrib
+              val a_patternContentUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PatternContentUnits ] attrib
+              val a_patternTransform :
+                Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+              val a_clipPathUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `ClipPathUnits ] attrib
+              val a_maskUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `MaskUnits ] attrib
+              val a_maskContentUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `MaskContentUnits ] attrib
+              val a_primitiveUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PrimitiveUnits ] attrib
+              val a_filterRes :
+                Svg_types.number_optional_number wrap ->
+                [> `FilterResUnits ] attrib
+              val a_result : string wrap -> [> `Result ] attrib
+              val a_in :
+                [< `BackgroundAlpha
+                 | `BackgroundImage
+                 | `FillPaint
+                 | `Ref of string
+                 | `SourceAlpha
+                 | `SourceGraphic
+                 | `StrokePaint ]
+                wrap -> [> `In ] attrib
+              val a_in2 :
+                [< `BackgroundAlpha
+                 | `BackgroundImage
+                 | `FillPaint
+                 | `Ref of string
+                 | `SourceAlpha
+                 | `SourceGraphic
+                 | `StrokePaint ]
+                wrap -> [> `In2 ] attrib
+              val a_azimuth : float wrap -> [> `Azimuth ] attrib
+              val a_elevation : float wrap -> [> `Elevation ] attrib
+              val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
+              val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
+              val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
+              val a_specularExponent :
+                float wrap -> [> `SpecularExponent ] attrib
+              val a_specularConstant :
+                float wrap -> [> `SpecularConstant ] attrib
+              val a_limitingConeAngle :
+                float wrap -> [> `LimitingConeAngle ] attrib
+              val a_mode :
+                [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
+                [> `Mode ] attrib
+              val a_feColorMatrix_type :
+                [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ]
+                wrap -> [> `Typefecolor ] attrib
+              val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
+              val a_transfer_type :
+                [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
+                [> `Type_transfert ] attrib
+              val a_tableValues :
+                Svg_types.numbers wrap -> [> `TableValues ] attrib
+              val a_intercept :
+                Svg_types.number wrap -> [> `Intercept ] attrib
+              val a_amplitude :
+                Svg_types.number wrap -> [> `Amplitude ] attrib
+              val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
+              val a_transfer_offset :
+                Svg_types.number wrap -> [> `Offset_transfer ] attrib
+              val a_feComposite_operator :
+                [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
+                [> `OperatorComposite ] attrib
+              val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
+              val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
+              val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
+              val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
+              val a_order :
+                Svg_types.number_optional_number wrap -> [> `Order ] attrib
+              val a_kernelMatrix :
+                Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
+              val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
+              val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
+              val a_kernelUnitLength :
+                Svg_types.number_optional_number wrap ->
+                [> `KernelUnitLength ] attrib
+              val a_targetX : int wrap -> [> `TargetX ] attrib
+              val a_targetY : int wrap -> [> `TargetY ] attrib
+              val a_edgeMode :
+                [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
+              val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
+              val a_surfaceScale :
+                Svg_types.number wrap -> [> `SurfaceScale ] attrib
+              val a_diffuseConstant :
+                Svg_types.number wrap -> [> `DiffuseConstant ] attrib
+              val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
+              val a_xChannelSelector :
+                [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
+              val a_yChannelSelector :
+                [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
+              val a_stdDeviation :
+                Svg_types.number_optional_number wrap ->
+                [> `StdDeviation ] attrib
+              val a_feMorphology_operator :
+                [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
+              val a_radius :
+                Svg_types.number_optional_number wrap -> [> `Radius ] attrib
+              val a_baseFrenquency :
+                Svg_types.number_optional_number wrap ->
+                [> `BaseFrequency ] attrib
+              val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
+              val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
+              val a_stitchTiles :
+                [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
+              val a_feTurbulence_type :
+                [< `FractalNoise | `Turbulence ] wrap ->
+                [> `TypeStitch ] attrib
+              val a_xlink_show :
+                [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
+              val a_xlink_actuate :
+                [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
+                [> `Xlink_actuate ] attrib
+              val a_target : string wrap -> [> `Xlink_target ] attrib
+              val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
+              val a_attributeName : string wrap -> [> `AttributeName ] attrib
+              val a_attributeType :
+                [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
+              val a_begin : string wrap -> [> `Begin ] attrib
+              val a_dur : string wrap -> [> `Dur ] attrib
+              val a_min : string wrap -> [> `Min ] attrib
+              val a_max : string wrap -> [> `Max ] attrib
+              val a_restart :
+                [< `Always | `Never | `WhenNotActive ] wrap ->
+                [> `Restart ] attrib
+              val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
+              val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
+              val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
+              val a_animation_fill :
+                [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+              val a_fill_rule :
+                Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
+              val a_calcMode :
+                [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
+                [> `CalcMode ] attrib
+              val a_animation_values :
+                Svg_types.strings wrap -> [> `Valuesanim ] attrib
+              val a_keyTimes :
+                Svg_types.strings wrap -> [> `KeyTimes ] attrib
+              val a_keySplines :
+                Svg_types.strings wrap -> [> `KeySplines ] attrib
+              val a_from : string wrap -> [> `From ] attrib
+              val a_to : string wrap -> [> `To ] attrib
+              val a_by : string wrap -> [> `By ] attrib
+              val a_additive :
+                [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
+              val a_accumulate :
+                [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
+              val a_keyPoints :
+                Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
+              val a_path : string wrap -> [> `Path ] attrib
+              val a_animateTransform_type :
+                [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
+                [ `Typeanimatetransform ] attrib
+              val a_horiz_origin_x :
+                Svg_types.number wrap -> [> `HorizOriginX ] attrib
+              val a_horiz_origin_y :
+                Svg_types.number wrap -> [> `HorizOriginY ] attrib
+              val a_horiz_adv_x :
+                Svg_types.number wrap -> [> `HorizAdvX ] attrib
+              val a_vert_origin_x :
+                Svg_types.number wrap -> [> `VertOriginX ] attrib
+              val a_vert_origin_y :
+                Svg_types.number wrap -> [> `VertOriginY ] attrib
+              val a_vert_adv_y :
+                Svg_types.number wrap -> [> `VertAdvY ] attrib
+              val a_unicode : string wrap -> [> `Unicode ] attrib
+              val a_glyph_name : string wrap -> [> `glyphname ] attrib
+              val a_orientation :
+                [< `H | `V ] wrap -> [> `Orientation ] attrib
+              val a_arabic_form :
+                [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
+                [> `Arabicform ] attrib
+              val a_lang : string wrap -> [> `Lang ] attrib
+              val a_u1 : string wrap -> [> `U1 ] attrib
+              val a_u2 : string wrap -> [> `U2 ] attrib
+              val a_g1 : string wrap -> [> `G1 ] attrib
+              val a_g2 : string wrap -> [> `G2 ] attrib
+              val a_k : string wrap -> [> `K ] attrib
+              val a_font_family : string wrap -> [> `Font_Family ] attrib
+              val a_font_style : string wrap -> [> `Font_Style ] attrib
+              val a_font_variant : string wrap -> [> `Font_Variant ] attrib
+              val a_font_weight : string wrap -> [> `Font_Weight ] attrib
+              val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
+              val a_font_size : string wrap -> [> `Font_Size ] attrib
+              val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
+              val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
+              val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
+              val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
+              val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
+              val a_cap_height :
+                Svg_types.number wrap -> [> `CapHeight ] attrib
+              val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
+              val a_accent_height :
+                Svg_types.number wrap -> [> `AccentHeight ] attrib
+              val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
+              val a_widths : string wrap -> [> `Widths ] attrib
+              val a_bbox : string wrap -> [> `Bbox ] attrib
+              val a_ideographic :
+                Svg_types.number wrap -> [> `Ideographic ] attrib
+              val a_alphabetic :
+                Svg_types.number wrap -> [> `Alphabetic ] attrib
+              val a_mathematical :
+                Svg_types.number wrap -> [> `Mathematical ] attrib
+              val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
+              val a_videographic :
+                Svg_types.number wrap -> [> `VIdeographic ] attrib
+              val a_v_alphabetic :
+                Svg_types.number wrap -> [> `VAlphabetic ] attrib
+              val a_v_mathematical :
+                Svg_types.number wrap -> [> `VMathematical ] attrib
+              val a_v_hanging :
+                Svg_types.number wrap -> [> `VHanging ] attrib
+              val a_underline_position :
+                Svg_types.number wrap -> [> `UnderlinePosition ] attrib
+              val a_underline_thickness :
+                Svg_types.number wrap -> [> `UnderlineThickness ] attrib
+              val a_strikethrough_position :
+                Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
+              val a_strikethrough_thickness :
+                Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
+              val a_overline_position :
+                Svg_types.number wrap -> [> `OverlinePosition ] attrib
+              val a_overline_thickness :
+                Svg_types.number wrap -> [> `OverlineThickness ] attrib
+              val a_string : string wrap -> [> `String ] attrib
+              val a_name : string wrap -> [> `Name ] attrib
+              val a_alignment_baseline :
+                [< `After_edge
+                 | `Alphabetic
+                 | `Auto
+                 | `Baseline
+                 | `Before_edge
+                 | `Central
+                 | `Hanging
+                 | `Ideographic
+                 | `Inherit
+                 | `Mathematical
+                 | `Middle
+                 | `Text_after_edge
+                 | `Text_before_edge ]
+                wrap -> [> `Alignment_Baseline ] attrib
+              val a_dominant_baseline :
+                [< `Alphabetic
+                 | `Auto
+                 | `Central
+                 | `Hanging
+                 | `Ideographic
+                 | `Inherit
+                 | `Mathematical
+                 | `Middle
+                 | `No_change
+                 | `Reset_size
+                 | `Text_after_edge
+                 | `Text_before_edge
+                 | `Use_script ]
+                wrap -> [> `Dominant_Baseline ] attrib
+              val a_stop_color :
+                Svg_types.color wrap -> [> `Stop_Color ] attrib
+              val a_stop_opacity :
+                Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+              val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+              val a_stroke_width :
+                Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+              val a_stroke_linecap :
+                [< `Butt | `Round | `Square ] wrap ->
+                [> `Stroke_Linecap ] attrib
+              val a_stroke_linejoin :
+                [< `Bever | `Miter | `Round ] wrap ->
+                [> `Stroke_Linejoin ] attrib
+              val a_stroke_miterlimit :
+                float wrap -> [> `Stroke_Miterlimit ] attrib
+              val a_stroke_dasharray :
+                Svg_types.Unit.length list wrap ->
+                [> `Stroke_Dasharray ] attrib
+              val a_stroke_dashoffset :
+                Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+              val a_stroke_opacity :
+                float wrap -> [> `Stroke_Opacity ] attrib
+              val txt : string wrap -> [> Svg_types.txt ] elt
+              val svg :
+                ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
+                 [> Svg_types.svg ])
+                star
+              val g :
+                ([< Svg_types.g_attr ], [< Svg_types.g_content ],
+                 [> Svg_types.g ])
+                star
+              val defs :
+                ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
+                 [> Svg_types.defs ])
+                star
+              val desc :
+                ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
+                 [> Svg_types.desc ])
+                unary
+              val title :
+                ([< Svg_types.title_attr ], [< Svg_types.title_content ],
+                 [> Svg_types.title ])
+                unary
+              val symbol :
+                ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
+                 [> Svg_types.symbol ])
+                star
+              val use :
+                ([< Svg_types.use_attr ], [< Svg_types.use_content ],
+                 [> Svg_types.use ])
+                star
+              val image :
+                ([< Svg_types.image_attr ], [< Svg_types.image_content ],
+                 [> Svg_types.image ])
+                star
+              val switch :
+                ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
+                 [> Svg_types.switch ])
+                star
+              val style :
+                ([< Svg_types.style_attr ], [< Svg_types.style_content ],
+                 [> Svg_types.style ])
+                unary
+              val path :
+                ([< Svg_types.path_attr ], [< Svg_types.path_content ],
+                 [> Svg_types.path ])
+                star
+              val rect :
+                ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
+                 [> Svg_types.rect ])
+                star
+              val circle :
+                ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
+                 [> Svg_types.circle ])
+                star
+              val ellipse :
+                ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
+                 [> Svg_types.ellipse ])
+                star
+              val line :
+                ([< Svg_types.line_attr ], [< Svg_types.line_content ],
+                 [> Svg_types.line ])
+                star
+              val polyline :
+                ([< Svg_types.polyline_attr ],
+                 [< Svg_types.polyline_content ], [> Svg_types.polyline ])
+                star
+              val polygon :
+                ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
+                 [> Svg_types.polygon ])
+                star
+              val text :
+                ([< Svg_types.text_attr ], [< Svg_types.text_content ],
+                 [> Svg_types.text ])
+                star
+              val tspan :
+                ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
+                 [> Svg_types.tspan ])
+                star
+              val tref :
+                ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
+                 [> Svg_types.tref ])
+                star
+              val textPath :
+                ([< Svg_types.textpath_attr ],
+                 [< Svg_types.textpath_content ], [> Svg_types.textpath ])
+                star
+              val altGlyph :
+                ([< Svg_types.altglyph_attr ],
+                 [< Svg_types.altglyph_content ], [> Svg_types.altglyph ])
+                unary
+              type altglyphdef_content =
+                  [ `Item of Svg_types.altglyphitem elt list
+                  | `Ref of Svg_types.glyphref elt list ]
+              val altGlyphDef :
+                ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
+                 [> Svg_types.altglyphdef ])
+                unary
+              val altGlyphItem :
+                ([< Svg_types.altglyphitem_attr ],
+                 [< Svg_types.altglyphitem_content ],
+                 [> Svg_types.altglyphitem ])
+                star
+              val glyphRef :
+                ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ])
+                nullary
+              val marker :
+                ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
+                 [> Svg_types.marker ])
+                star
+              val color_profile :
+                ([< Svg_types.colorprofile_attr ],
+                 [< Svg_types.colorprofile_content ],
+                 [> Svg_types.colorprofile ])
+                star
+              val linearGradient :
+                ([< Svg_types.lineargradient_attr ],
+                 [< Svg_types.lineargradient_content ],
+                 [> Svg_types.lineargradient ])
+                star
+              val radialGradient :
+                ([< Svg_types.radialgradient_attr ],
+                 [< Svg_types.radialgradient_content ],
+                 [> Svg_types.radialgradient ])
+                star
+              val stop :
+                ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
+                 [> Svg_types.stop ])
+                star
+              val pattern :
+                ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
+                 [> Svg_types.pattern ])
+                star
+              val clipPath :
+                ([< Svg_types.clippath_attr ],
+                 [< Svg_types.clippath_content ], [> Svg_types.clippath ])
+                star
+              val filter :
+                ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
+                 [> Svg_types.filter ])
+                star
+              val feDistantLight :
+                ([< Svg_types.fedistantlight_attr ],
+                 [< Svg_types.fedistantlight_content ],
+                 [> Svg_types.fedistantlight ])
+                star
+              val fePointLight :
+                ([< Svg_types.fepointlight_attr ],
+                 [< Svg_types.fepointlight_content ],
+                 [> Svg_types.fepointlight ])
+                star
+              val feSpotLight :
+                ([< Svg_types.fespotlight_attr ],
+                 [< Svg_types.fespotlight_content ],
+                 [> Svg_types.fespotlight ])
+                star
+              val feBlend :
+                ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
+                 [> Svg_types.feblend ])
+                star
+              val feColorMatrix :
+                ([< Svg_types.fecolormatrix_attr ],
+                 [< Svg_types.fecolormatrix_content ],
+                 [> Svg_types.fecolormatrix ])
+                star
+              val feComponentTransfer :
+                ([< Svg_types.fecomponenttransfer_attr ],
+                 [< Svg_types.fecomponenttransfer_content ],
+                 [> Svg_types.fecomponenttransfer ])
+                star
+              val feFuncA :
+                ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
+                 [> Svg_types.fefunca ])
+                star
+              val feFuncG :
+                ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
+                 [> Svg_types.fefuncg ])
+                star
+              val feFuncB :
+                ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
+                 [> Svg_types.fefuncb ])
+                star
+              val feFuncR :
+                ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
+                 [> Svg_types.fefuncr ])
+                star
+              val feComposite :
+                ([< Svg_types.fecomposite_attr ],
+                 [< Svg_types.fecomposite_content ],
+                 [> Svg_types.fecomposite ])
+                star
+              val feConvolveMatrix :
+                ([< Svg_types.feconvolvematrix_attr ],
+                 [< Svg_types.feconvolvematrix_content ],
+                 [> Svg_types.feconvolvematrix ])
+                star
+              val feDiffuseLighting :
+                ([< Svg_types.fediffuselighting_attr ],
+                 [< Svg_types.fediffuselighting_content ],
+                 [> Svg_types.fediffuselighting ])
+                star
+              val feDisplacementMap :
+                ([< Svg_types.fedisplacementmap_attr ],
+                 [< Svg_types.fedisplacementmap_content ],
+                 [> Svg_types.fedisplacementmap ])
+                star
+              val feFlood :
+                ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
+                 [> Svg_types.feflood ])
+                star
+              val feGaussianBlur :
+                ([< Svg_types.fegaussianblur_attr ],
+                 [< Svg_types.fegaussianblur_content ],
+                 [> Svg_types.fegaussianblur ])
+                star
+              val feImage :
+                ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
+                 [> Svg_types.feimage ])
+                star
+              val feMerge :
+                ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
+                 [> Svg_types.femerge ])
+                star
+              val feMorphology :
+                ([< Svg_types.femorphology_attr ],
+                 [< Svg_types.femorphology_content ],
+                 [> Svg_types.femorphology ])
+                star
+              val feOffset :
+                ([< Svg_types.feoffset_attr ],
+                 [< Svg_types.feoffset_content ], [> Svg_types.feoffset ])
+                star
+              val feSpecularLighting :
+                ([< Svg_types.fespecularlighting_attr ],
+                 [< Svg_types.fespecularlighting_content ],
+                 [> Svg_types.fespecularlighting ])
+                star
+              val feTile :
+                ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
+                 [> Svg_types.fetile ])
+                star
+              val feTurbulence :
+                ([< Svg_types.feturbulence_attr ],
+                 [< Svg_types.feturbulence_content ],
+                 [> Svg_types.feturbulence ])
+                star
+              val cursor :
+                ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
+                 [> Svg_types.cursor ])
+                star
+              val a :
+                ([< Svg_types.a_attr ], [< Svg_types.a_content ],
+                 [> Svg_types.a ])
+                star
+              val view :
+                ([< Svg_types.view_attr ], [< Svg_types.view_content ],
+                 [> Svg_types.view ])
+                star
+              val script :
+                ([< Svg_types.script_attr ], [< Svg_types.script_content ],
+                 [> Svg_types.script ])
+                unary
+              val animate :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
+                star
+              val set :
+                ([< Svg_types.set_attr ], [< Svg_types.set_content ],
+                 [> Svg_types.set ])
+                star
+              val animateMotion :
+                ([< Svg_types.animatemotion_attr ],
+                 [< Svg_types.animatemotion_content ],
+                 [> Svg_types.animatemotion ])
+                star
+              val mpath :
+                ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
+                 [> Svg_types.mpath ])
+                star
+              val animateColor :
+                ([< Svg_types.animatecolor_attr ],
+                 [< Svg_types.animatecolor_content ],
+                 [> Svg_types.animatecolor ])
+                star
+              val animateTransform :
+                ([< Svg_types.animatetransform_attr ],
+                 [< Svg_types.animatetransform_content ],
+                 [> Svg_types.animatetransform ])
+                star
+              val font :
+                ([< Svg_types.font_attr ], [< Svg_types.font_content ],
+                 [> Svg_types.font ])
+                star
+              val glyph :
+                ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
+                 [> Svg_types.glyph ])
+                star
+              val missing_glyph :
+                ([< Svg_types.missingglyph_attr ],
+                 [< Svg_types.missingglyph_content ],
+                 [> Svg_types.missingglyph ])
+                star
+              val hkern :
+                ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
+              val vkern :
+                ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
+              val font_face :
+                ([< Svg_types.font_face_attr ], [> Svg_types.font_face ])
+                nullary
+              val font_face_src :
+                ([< Svg_types.font_face_src_attr ],
+                 [< Svg_types.font_face_src_content ],
+                 [> Svg_types.font_face_src ])
+                star
+              val font_face_uri :
+                ([< Svg_types.font_face_uri_attr ],
+                 [< Svg_types.font_face_uri_content ],
+                 [> Svg_types.font_face_uri ])
+                star
+              val font_face_format :
+                ([< Svg_types.font_face_format_attr ],
+                 [> Svg_types.font_face_format ])
+                nullary
+              val font_face_name :
+                ([< Svg_types.font_face_name_attr ],
+                 [> Svg_types.font_face_name ])
+                nullary
+              val metadata :
+                ?a:Svg_types.metadata_attr attrib list ->
+                Xml.elt list_wrap -> [> Svg_types.metadata ] elt
+              val foreignObject :
+                ?a:Svg_types.foreignobject_attr attrib list ->
+                Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+              val pcdata : string wrap -> [> Svg_types.txt ] elt
+              val animation :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
+                star
+              val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+              val tot : Xml.elt -> 'a elt
+              val totl : Xml.elt list_wrap -> 'a elt list_wrap
+              val toelt : 'a elt -> Xml.elt
+              val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+              val doc_toelt : doc -> Xml.elt
+              val to_xmlattribs : 'a attrib list -> Xml.attrib list
+              val to_attrib : Xml.attrib -> 'a attrib
+              module Unsafe :
+                sig
+                  val data : string wrap -> 'a elt
+                  val node :
+                    string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+                  val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+                  val coerce_elt : 'a elt -> 'b elt
+                  val string_attrib : string -> string wrap -> 'a attrib
+                  val float_attrib : string -> float wrap -> 'a attrib
+                  val int_attrib : string -> int wrap -> 'a attrib
+                  val uri_attrib : string -> uri wrap -> 'a attrib
+                  val space_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                  val comma_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                end
+              val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+              val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+              val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+              val a_onend : string -> [> `OnEnd ] Raw'.attrib
+              val a_onerror : string -> [> `OnError ] Raw'.attrib
+              val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+              val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+              val a_onload : string -> [> `OnLoad ] Raw'.attrib
+              val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+              val a_onresize : string -> [> `OnResize ] Raw'.attrib
+              val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+              val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+              val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+              val a_onclick : string -> [> `OnClick ] Raw'.attrib
+              val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+              val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+              val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+              val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+              val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+              val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+              val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+              val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+              val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+            end
+          type 'a elt = 'a elt
+          type doc = [ `Svg ] elt
+          type 'a attrib = 'a attrib
+          module Xml :
+            sig
+              module W :
+                sig
+                  type 'a t = 'a Xml.W.t
+                  val return : 'a -> 'a t
+                  type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                  type 'a tlist = 'a Xml.W.tlist
+                  val nil : unit -> 'a tlist
+                  val singleton : 'a t -> 'a tlist
+                  val cons : 'a t -> 'a tlist -> 'a tlist
+                  val append : 'a tlist -> 'a tlist -> 'a tlist
+                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                end
+              type 'a wrap = 'a W.t
+              type 'a list_wrap = 'a W.tlist
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) W.ft
+              val uri_of_string : (string, uri) W.ft
+              type aname = string
+              type event_handler = Xml.event_handler
+              type mouse_event_handler = Xml.mouse_event_handler
+              type keyboard_event_handler = Xml.keyboard_event_handler
+              type touch_event_handler = Xml.touch_event_handler
+              type attrib = Xml.attrib
+              val float_attrib : aname -> float wrap -> attrib
+              val int_attrib : aname -> int wrap -> attrib
+              val string_attrib : aname -> string wrap -> attrib
+              val space_sep_attrib : aname -> string list wrap -> attrib
+              val comma_sep_attrib : aname -> string list wrap -> attrib
+              val event_handler_attrib : aname -> event_handler -> attrib
+              val mouse_event_handler_attrib :
+                aname -> mouse_event_handler -> attrib
+              val keyboard_event_handler_attrib :
+                aname -> keyboard_event_handler -> attrib
+              val touch_event_handler_attrib :
+                aname -> touch_event_handler -> attrib
+              val uri_attrib : aname -> uri wrap -> attrib
+              val uris_attrib : aname -> uri list wrap -> attrib
+              type elt = Xml.elt
+              type ename = string
+              val empty : unit -> elt
+              val comment : string -> elt
+              val pcdata : string wrap -> elt
+              val encodedpcdata : string wrap -> elt
+              val entity : string -> elt
+              val leaf : ?a:attrib list -> ename -> elt
+              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+              val cdata : string -> elt
+              val cdata_script : string -> elt
+              val cdata_style : string -> elt
+            end
+          type 'a wrap = 'a Xml.W.t
+          type 'a list_wrap = 'a Xml.W.tlist
+          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+          type ('a, 'b, 'c) unary =
+              ?a:'a attrib list -> 'b elt wrap -> 'c elt
+          type ('a, 'b, 'c) star =
+              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          module Info : Xml_sigs.Info
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) Xml.W.ft
+          val uri_of_string : (string, uri) Xml.W.ft
+          val a_version : string wrap -> [> `Version ] attrib
+          val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+          val a_x : Svg_types.coord wrap -> [> `X ] attrib
+          val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+          val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+          val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
+          val a_preserveAspectRatio :
+            string wrap -> [> `PreserveAspectRatio ] attrib
+          val a_contentScriptType :
+            string wrap -> [> `ContentScriptType ] attrib
+          val a_contentStyleType :
+            string wrap -> [> `ContentStyleType ] attrib
+          val a_zoomAndPan :
+            [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+          val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+          val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+          val a_requiredFeatures :
+            Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+          val a_requiredExtensions :
+            Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+          val a_systemLanguage :
+            Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+          val a_externalRessourcesRequired :
+            bool wrap -> [> `ExternalRessourcesRequired ] attrib
+          val a_id : string wrap -> [> `Id ] attrib
+          val a_user_data : string -> string wrap -> [> `User_data ] attrib
+          val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+          val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+          val a_xml_space :
+            [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+          val a_type : string wrap -> [> `Type ] attrib
+          val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+          val a_xlink_title : string wrap -> [> `Title ] attrib
+          val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+          val a_style : string wrap -> [> `Style ] attrib
+          val a_transform :
+            Svg_types.transforms wrap -> [> `Transform ] attrib
+          val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+          val a_d : string wrap -> [> `D ] attrib
+          val a_pathLength : float wrap -> [> `PathLength ] attrib
+          val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+          val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+          val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+          val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+          val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+          val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+          val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+          val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+          val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+          val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+          val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+          val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+          val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+          val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
           val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
           val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
           val a_lengthAdjust :
@@ -1214,7 +2053,7 @@
             [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
             [ `GradientUnits ] attrib
           val a_gradientTransform :
-            Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
           val a_spreadMethod :
             [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
           val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -1361,6 +2200,8 @@
           val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
           val a_animation_fill :
             [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
           val a_calcMode :
             [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
             [> `CalcMode ] attrib
@@ -1784,9 +2625,9 @@
             ([< Svg_types.script_attr ], [< Svg_types.script_content ],
              [> Svg_types.script ])
             unary
-          val animation :
-            ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-             [> Svg_types.animation ])
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
             star
           val set :
             ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -1855,6 +2696,10 @@
             ?a:Svg_types.foreignobject_attr attrib list ->
             Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
           val pcdata : string wrap -> [> Svg_types.txt ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
           val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
           val tot : Xml.elt -> 'a elt
           val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -1877,9 +2722,886 @@
               val space_sep_attrib : string -> string list wrap -> 'a attrib
               val comma_sep_attrib : string -> string list wrap -> 'a attrib
             end
-        end
-      module D :
-        sig
+        end
+      module D :
+        sig
+          module Raw' :
+            sig
+              type 'a elt = 'a elt
+              type doc = [ `Svg ] elt
+              type 'a attrib = 'a attrib
+              module Xml :
+                sig
+                  module W :
+                    sig
+                      type 'a t = 'a Xml.W.t
+                      val return : 'a -> 'a t
+                      type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                      val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                      type 'a tlist = 'a Xml.W.tlist
+                      val nil : unit -> 'a tlist
+                      val singleton : 'a t -> 'a tlist
+                      val cons : 'a t -> 'a tlist -> 'a tlist
+                      val append : 'a tlist -> 'a tlist -> 'a tlist
+                      val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                    end
+                  type 'a wrap = 'a W.t
+                  type 'a list_wrap = 'a W.tlist
+                  type uri = Xml.uri
+                  val string_of_uri : (uri, string) W.ft
+                  val uri_of_string : (string, uri) W.ft
+                  type aname = string
+                  type event_handler = Xml.event_handler
+                  type mouse_event_handler = Xml.mouse_event_handler
+                  type keyboard_event_handler = Xml.keyboard_event_handler
+                  type touch_event_handler = Xml.touch_event_handler
+                  type attrib = Xml.attrib
+                  val float_attrib : aname -> float wrap -> attrib
+                  val int_attrib : aname -> int wrap -> attrib
+                  val string_attrib : aname -> string wrap -> attrib
+                  val space_sep_attrib : aname -> string list wrap -> attrib
+                  val comma_sep_attrib : aname -> string list wrap -> attrib
+                  val event_handler_attrib : aname -> event_handler -> attrib
+                  val mouse_event_handler_attrib :
+                    aname -> mouse_event_handler -> attrib
+                  val keyboard_event_handler_attrib :
+                    aname -> keyboard_event_handler -> attrib
+                  val touch_event_handler_attrib :
+                    aname -> touch_event_handler -> attrib
+                  val uri_attrib : aname -> uri wrap -> attrib
+                  val uris_attrib : aname -> uri list wrap -> attrib
+                  type elt = Xml.elt
+                  type ename = string
+                  val empty : unit -> elt
+                  val comment : string -> elt
+                  val pcdata : string wrap -> elt
+                  val encodedpcdata : string wrap -> elt
+                  val entity : string -> elt
+                  val leaf : ?a:attrib list -> ename -> elt
+                  val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+                  val cdata : string -> elt
+                  val cdata_script : string -> elt
+                  val cdata_style : string -> elt
+                end
+              type 'a wrap = 'a Xml.W.t
+              type 'a list_wrap = 'a Xml.W.tlist
+              type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+              type ('a, 'b, 'c) unary =
+                  ?a:'a attrib list -> 'b elt wrap -> 'c elt
+              type ('a, 'b, 'c) star =
+                  ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              module Info : Xml_sigs.Info
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) Xml.W.ft
+              val uri_of_string : (string, uri) Xml.W.ft
+              val a_version : string wrap -> [> `Version ] attrib
+              val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+              val a_x : Svg_types.coord wrap -> [> `X ] attrib
+              val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+              val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+              val a_height :
+                Svg_types.Unit.length wrap -> [> `Height ] attrib
+              val a_preserveAspectRatio :
+                string wrap -> [> `PreserveAspectRatio ] attrib
+              val a_contentScriptType :
+                string wrap -> [> `ContentScriptType ] attrib
+              val a_contentStyleType :
+                string wrap -> [> `ContentStyleType ] attrib
+              val a_zoomAndPan :
+                [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+              val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+              val a_xlink_href :
+                Svg_types.iri wrap -> [> `Xlink_href ] attrib
+              val a_requiredFeatures :
+                Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+              val a_requiredExtensions :
+                Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+              val a_systemLanguage :
+                Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+              val a_externalRessourcesRequired :
+                bool wrap -> [> `ExternalRessourcesRequired ] attrib
+              val a_id : string wrap -> [> `Id ] attrib
+              val a_user_data :
+                string -> string wrap -> [> `User_data ] attrib
+              val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+              val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+              val a_xml_space :
+                [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+              val a_type : string wrap -> [> `Type ] attrib
+              val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+              val a_xlink_title : string wrap -> [> `Title ] attrib
+              val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+              val a_style : string wrap -> [> `Style ] attrib
+              val a_transform :
+                Svg_types.transforms wrap -> [> `Transform ] attrib
+              val a_viewBox :
+                Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+              val a_d : string wrap -> [> `D ] attrib
+              val a_pathLength : float wrap -> [> `PathLength ] attrib
+              val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+              val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+              val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+              val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+              val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+              val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+              val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+              val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+              val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+              val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+              val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+              val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+              val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+              val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+              val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+              val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+              val a_lengthAdjust :
+                [< `Spacing | `SpacingAndGlyphs ] wrap ->
+                [> `LengthAdjust ] attrib
+              val a_textLength :
+                Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+              val a_text_anchor :
+                [< `End | `Inherit | `Middle | `Start ] wrap ->
+                [> `Text_Anchor ] attrib
+              val a_text_decoration :
+                [< `Blink
+                 | `Inherit
+                 | `Line_through
+                 | `None
+                 | `Overline
+                 | `Underline ]
+                wrap -> [> `Text_Decoration ] attrib
+              val a_text_rendering :
+                [< `Auto
+                 | `GeometricPrecision
+                 | `Inherit
+                 | `OptimizeLegibility
+                 | `OptimizeSpeed ]
+                wrap -> [> `Text_Rendering ] attrib
+              val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+              val a_startOffset :
+                Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+              val a_method :
+                [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+              val a_spacing :
+                [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+              val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+              val a_format : string wrap -> [> `Format ] attrib
+              val a_markerUnits :
+                [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
+                [> `MarkerUnits ] attrib
+              val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+              val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+              val a_markerWidth :
+                Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+              val a_markerHeight :
+                Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+              val a_orient :
+                Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+              val a_local : string wrap -> [> `Local ] attrib
+              val a_rendering_intent :
+                [< `Absolute_colorimetric
+                 | `Auto
+                 | `Perceptual
+                 | `Relative_colorimetric
+                 | `Saturation ]
+                wrap -> [> `Rendering_Indent ] attrib
+              val a_gradientUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [ `GradientUnits ] attrib
+              val a_gradientTransform :
+                Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+              val a_spreadMethod :
+                [< `Pad | `Reflect | `Repeat ] wrap ->
+                [> `SpreadMethod ] attrib
+              val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+              val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+              val a_offset :
+                [< `Number of Svg_types.number
+                 | `Percentage of Svg_types.percentage ]
+                wrap -> [> `Offset ] attrib
+              val a_patternUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PatternUnits ] attrib
+              val a_patternContentUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PatternContentUnits ] attrib
+              val a_patternTransform :
+                Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+              val a_clipPathUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `ClipPathUnits ] attrib
+              val a_maskUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `MaskUnits ] attrib
+              val a_maskContentUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `MaskContentUnits ] attrib
+              val a_primitiveUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PrimitiveUnits ] attrib
+              val a_filterRes :
+                Svg_types.number_optional_number wrap ->
+                [> `FilterResUnits ] attrib
+              val a_result : string wrap -> [> `Result ] attrib
+              val a_in :
+                [< `BackgroundAlpha
+                 | `BackgroundImage
+                 | `FillPaint
+                 | `Ref of string
+                 | `SourceAlpha
+                 | `SourceGraphic
+                 | `StrokePaint ]
+                wrap -> [> `In ] attrib
+              val a_in2 :
+                [< `BackgroundAlpha
+                 | `BackgroundImage
+                 | `FillPaint
+                 | `Ref of string
+                 | `SourceAlpha
+                 | `SourceGraphic
+                 | `StrokePaint ]
+                wrap -> [> `In2 ] attrib
+              val a_azimuth : float wrap -> [> `Azimuth ] attrib
+              val a_elevation : float wrap -> [> `Elevation ] attrib
+              val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
+              val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
+              val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
+              val a_specularExponent :
+                float wrap -> [> `SpecularExponent ] attrib
+              val a_specularConstant :
+                float wrap -> [> `SpecularConstant ] attrib
+              val a_limitingConeAngle :
+                float wrap -> [> `LimitingConeAngle ] attrib
+              val a_mode :
+                [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
+                [> `Mode ] attrib
+              val a_feColorMatrix_type :
+                [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ]
+                wrap -> [> `Typefecolor ] attrib
+              val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
+              val a_transfer_type :
+                [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
+                [> `Type_transfert ] attrib
+              val a_tableValues :
+                Svg_types.numbers wrap -> [> `TableValues ] attrib
+              val a_intercept :
+                Svg_types.number wrap -> [> `Intercept ] attrib
+              val a_amplitude :
+                Svg_types.number wrap -> [> `Amplitude ] attrib
+              val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
+              val a_transfer_offset :
+                Svg_types.number wrap -> [> `Offset_transfer ] attrib
+              val a_feComposite_operator :
+                [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
+                [> `OperatorComposite ] attrib
+              val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
+              val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
+              val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
+              val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
+              val a_order :
+                Svg_types.number_optional_number wrap -> [> `Order ] attrib
+              val a_kernelMatrix :
+                Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
+              val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
+              val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
+              val a_kernelUnitLength :
+                Svg_types.number_optional_number wrap ->
+                [> `KernelUnitLength ] attrib
+              val a_targetX : int wrap -> [> `TargetX ] attrib
+              val a_targetY : int wrap -> [> `TargetY ] attrib
+              val a_edgeMode :
+                [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
+              val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
+              val a_surfaceScale :
+                Svg_types.number wrap -> [> `SurfaceScale ] attrib
+              val a_diffuseConstant :
+                Svg_types.number wrap -> [> `DiffuseConstant ] attrib
+              val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
+              val a_xChannelSelector :
+                [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
+              val a_yChannelSelector :
+                [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
+              val a_stdDeviation :
+                Svg_types.number_optional_number wrap ->
+                [> `StdDeviation ] attrib
+              val a_feMorphology_operator :
+                [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
+              val a_radius :
+                Svg_types.number_optional_number wrap -> [> `Radius ] attrib
+              val a_baseFrenquency :
+                Svg_types.number_optional_number wrap ->
+                [> `BaseFrequency ] attrib
+              val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
+              val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
+              val a_stitchTiles :
+                [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
+              val a_feTurbulence_type :
+                [< `FractalNoise | `Turbulence ] wrap ->
+                [> `TypeStitch ] attrib
+              val a_xlink_show :
+                [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
+              val a_xlink_actuate :
+                [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
+                [> `Xlink_actuate ] attrib
+              val a_target : string wrap -> [> `Xlink_target ] attrib
+              val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
+              val a_attributeName : string wrap -> [> `AttributeName ] attrib
+              val a_attributeType :
+                [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
+              val a_begin : string wrap -> [> `Begin ] attrib
+              val a_dur : string wrap -> [> `Dur ] attrib
+              val a_min : string wrap -> [> `Min ] attrib
+              val a_max : string wrap -> [> `Max ] attrib
+              val a_restart :
+                [< `Always | `Never | `WhenNotActive ] wrap ->
+                [> `Restart ] attrib
+              val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
+              val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
+              val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
+              val a_animation_fill :
+                [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+              val a_fill_rule :
+                Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
+              val a_calcMode :
+                [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
+                [> `CalcMode ] attrib
+              val a_animation_values :
+                Svg_types.strings wrap -> [> `Valuesanim ] attrib
+              val a_keyTimes :
+                Svg_types.strings wrap -> [> `KeyTimes ] attrib
+              val a_keySplines :
+                Svg_types.strings wrap -> [> `KeySplines ] attrib
+              val a_from : string wrap -> [> `From ] attrib
+              val a_to : string wrap -> [> `To ] attrib
+              val a_by : string wrap -> [> `By ] attrib
+              val a_additive :
+                [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
+              val a_accumulate :
+                [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
+              val a_keyPoints :
+                Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
+              val a_path : string wrap -> [> `Path ] attrib
+              val a_animateTransform_type :
+                [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
+                [ `Typeanimatetransform ] attrib
+              val a_horiz_origin_x :
+                Svg_types.number wrap -> [> `HorizOriginX ] attrib
+              val a_horiz_origin_y :
+                Svg_types.number wrap -> [> `HorizOriginY ] attrib
+              val a_horiz_adv_x :
+                Svg_types.number wrap -> [> `HorizAdvX ] attrib
+              val a_vert_origin_x :
+                Svg_types.number wrap -> [> `VertOriginX ] attrib
+              val a_vert_origin_y :
+                Svg_types.number wrap -> [> `VertOriginY ] attrib
+              val a_vert_adv_y :
+                Svg_types.number wrap -> [> `VertAdvY ] attrib
+              val a_unicode : string wrap -> [> `Unicode ] attrib
+              val a_glyph_name : string wrap -> [> `glyphname ] attrib
+              val a_orientation :
+                [< `H | `V ] wrap -> [> `Orientation ] attrib
+              val a_arabic_form :
+                [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
+                [> `Arabicform ] attrib
+              val a_lang : string wrap -> [> `Lang ] attrib
+              val a_u1 : string wrap -> [> `U1 ] attrib
+              val a_u2 : string wrap -> [> `U2 ] attrib
+              val a_g1 : string wrap -> [> `G1 ] attrib
+              val a_g2 : string wrap -> [> `G2 ] attrib
+              val a_k : string wrap -> [> `K ] attrib
+              val a_font_family : string wrap -> [> `Font_Family ] attrib
+              val a_font_style : string wrap -> [> `Font_Style ] attrib
+              val a_font_variant : string wrap -> [> `Font_Variant ] attrib
+              val a_font_weight : string wrap -> [> `Font_Weight ] attrib
+              val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
+              val a_font_size : string wrap -> [> `Font_Size ] attrib
+              val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
+              val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
+              val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
+              val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
+              val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
+              val a_cap_height :
+                Svg_types.number wrap -> [> `CapHeight ] attrib
+              val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
+              val a_accent_height :
+                Svg_types.number wrap -> [> `AccentHeight ] attrib
+              val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
+              val a_widths : string wrap -> [> `Widths ] attrib
+              val a_bbox : string wrap -> [> `Bbox ] attrib
+              val a_ideographic :
+                Svg_types.number wrap -> [> `Ideographic ] attrib
+              val a_alphabetic :
+                Svg_types.number wrap -> [> `Alphabetic ] attrib
+              val a_mathematical :
+                Svg_types.number wrap -> [> `Mathematical ] attrib
+              val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
+              val a_videographic :
+                Svg_types.number wrap -> [> `VIdeographic ] attrib
+              val a_v_alphabetic :
+                Svg_types.number wrap -> [> `VAlphabetic ] attrib
+              val a_v_mathematical :
+                Svg_types.number wrap -> [> `VMathematical ] attrib
+              val a_v_hanging :
+                Svg_types.number wrap -> [> `VHanging ] attrib
+              val a_underline_position :
+                Svg_types.number wrap -> [> `UnderlinePosition ] attrib
+              val a_underline_thickness :
+                Svg_types.number wrap -> [> `UnderlineThickness ] attrib
+              val a_strikethrough_position :
+                Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
+              val a_strikethrough_thickness :
+                Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
+              val a_overline_position :
+                Svg_types.number wrap -> [> `OverlinePosition ] attrib
+              val a_overline_thickness :
+                Svg_types.number wrap -> [> `OverlineThickness ] attrib
+              val a_string : string wrap -> [> `String ] attrib
+              val a_name : string wrap -> [> `Name ] attrib
+              val a_alignment_baseline :
+                [< `After_edge
+                 | `Alphabetic
+                 | `Auto
+                 | `Baseline
+                 | `Before_edge
+                 | `Central
+                 | `Hanging
+                 | `Ideographic
+                 | `Inherit
+                 | `Mathematical
+                 | `Middle
+                 | `Text_after_edge
+                 | `Text_before_edge ]
+                wrap -> [> `Alignment_Baseline ] attrib
+              val a_dominant_baseline :
+                [< `Alphabetic
+                 | `Auto
+                 | `Central
+                 | `Hanging
+                 | `Ideographic
+                 | `Inherit
+                 | `Mathematical
+                 | `Middle
+                 | `No_change
+                 | `Reset_size
+                 | `Text_after_edge
+                 | `Text_before_edge
+                 | `Use_script ]
+                wrap -> [> `Dominant_Baseline ] attrib
+              val a_stop_color :
+                Svg_types.color wrap -> [> `Stop_Color ] attrib
+              val a_stop_opacity :
+                Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+              val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+              val a_stroke_width :
+                Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+              val a_stroke_linecap :
+                [< `Butt | `Round | `Square ] wrap ->
+                [> `Stroke_Linecap ] attrib
+              val a_stroke_linejoin :
+                [< `Bever | `Miter | `Round ] wrap ->
+                [> `Stroke_Linejoin ] attrib
+              val a_stroke_miterlimit :
+                float wrap -> [> `Stroke_Miterlimit ] attrib
+              val a_stroke_dasharray :
+                Svg_types.Unit.length list wrap ->
+                [> `Stroke_Dasharray ] attrib
+              val a_stroke_dashoffset :
+                Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+              val a_stroke_opacity :
+                float wrap -> [> `Stroke_Opacity ] attrib
+              val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+              val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
+              val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
+              val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
+              val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+              val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
+              val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
+              val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+              val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
+              val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+              val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+              val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+              val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
+              val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+              val a_onmousedown :
+                Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+              val a_onmouseup :
+                Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+              val a_onmouseover :
+                Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+              val a_onmouseout :
+                Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+              val a_onmousemove :
+                Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+              val a_ontouchstart :
+                Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+              val a_ontouchend :
+                Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+              val a_ontouchmove :
+                Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+              val a_ontouchcancel :
+                Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+              val txt : string wrap -> [> Svg_types.txt ] elt
+              val svg :
+                ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
+                 [> Svg_types.svg ])
+                star
+              val g :
+                ([< Svg_types.g_attr ], [< Svg_types.g_content ],
+                 [> Svg_types.g ])
+                star
+              val defs :
+                ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
+                 [> Svg_types.defs ])
+                star
+              val desc :
+                ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
+                 [> Svg_types.desc ])
+                unary
+              val title :
+                ([< Svg_types.title_attr ], [< Svg_types.title_content ],
+                 [> Svg_types.title ])
+                unary
+              val symbol :
+                ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
+                 [> Svg_types.symbol ])
+                star
+              val use :
+                ([< Svg_types.use_attr ], [< Svg_types.use_content ],
+                 [> Svg_types.use ])
+                star
+              val image :
+                ([< Svg_types.image_attr ], [< Svg_types.image_content ],
+                 [> Svg_types.image ])
+                star
+              val switch :
+                ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
+                 [> Svg_types.switch ])
+                star
+              val style :
+                ([< Svg_types.style_attr ], [< Svg_types.style_content ],
+                 [> Svg_types.style ])
+                unary
+              val path :
+                ([< Svg_types.path_attr ], [< Svg_types.path_content ],
+                 [> Svg_types.path ])
+                star
+              val rect :
+                ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
+                 [> Svg_types.rect ])
+                star
+              val circle :
+                ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
+                 [> Svg_types.circle ])
+                star
+              val ellipse :
+                ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
+                 [> Svg_types.ellipse ])
+                star
+              val line :
+                ([< Svg_types.line_attr ], [< Svg_types.line_content ],
+                 [> Svg_types.line ])
+                star
+              val polyline :
+                ([< Svg_types.polyline_attr ],
+                 [< Svg_types.polyline_content ], [> Svg_types.polyline ])
+                star
+              val polygon :
+                ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
+                 [> Svg_types.polygon ])
+                star
+              val text :
+                ([< Svg_types.text_attr ], [< Svg_types.text_content ],
+                 [> Svg_types.text ])
+                star
+              val tspan :
+                ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
+                 [> Svg_types.tspan ])
+                star
+              val tref :
+                ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
+                 [> Svg_types.tref ])
+                star
+              val textPath :
+                ([< Svg_types.textpath_attr ],
+                 [< Svg_types.textpath_content ], [> Svg_types.textpath ])
+                star
+              val altGlyph :
+                ([< Svg_types.altglyph_attr ],
+                 [< Svg_types.altglyph_content ], [> Svg_types.altglyph ])
+                unary
+              type altglyphdef_content =
+                  [ `Item of Svg_types.altglyphitem elt list
+                  | `Ref of Svg_types.glyphref elt list ]
+              val altGlyphDef :
+                ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
+                 [> Svg_types.altglyphdef ])
+                unary
+              val altGlyphItem :
+                ([< Svg_types.altglyphitem_attr ],
+                 [< Svg_types.altglyphitem_content ],
+                 [> Svg_types.altglyphitem ])
+                star
+              val glyphRef :
+                ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ])
+                nullary
+              val marker :
+                ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
+                 [> Svg_types.marker ])
+                star
+              val color_profile :
+                ([< Svg_types.colorprofile_attr ],
+                 [< Svg_types.colorprofile_content ],
+                 [> Svg_types.colorprofile ])
+                star
+              val linearGradient :
+                ([< Svg_types.lineargradient_attr ],
+                 [< Svg_types.lineargradient_content ],
+                 [> Svg_types.lineargradient ])
+                star
+              val radialGradient :
+                ([< Svg_types.radialgradient_attr ],
+                 [< Svg_types.radialgradient_content ],
+                 [> Svg_types.radialgradient ])
+                star
+              val stop :
+                ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
+                 [> Svg_types.stop ])
+                star
+              val pattern :
+                ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
+                 [> Svg_types.pattern ])
+                star
+              val clipPath :
+                ([< Svg_types.clippath_attr ],
+                 [< Svg_types.clippath_content ], [> Svg_types.clippath ])
+                star
+              val filter :
+                ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
+                 [> Svg_types.filter ])
+                star
+              val feDistantLight :
+                ([< Svg_types.fedistantlight_attr ],
+                 [< Svg_types.fedistantlight_content ],
+                 [> Svg_types.fedistantlight ])
+                star
+              val fePointLight :
+                ([< Svg_types.fepointlight_attr ],
+                 [< Svg_types.fepointlight_content ],
+                 [> Svg_types.fepointlight ])
+                star
+              val feSpotLight :
+                ([< Svg_types.fespotlight_attr ],
+                 [< Svg_types.fespotlight_content ],
+                 [> Svg_types.fespotlight ])
+                star
+              val feBlend :
+                ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
+                 [> Svg_types.feblend ])
+                star
+              val feColorMatrix :
+                ([< Svg_types.fecolormatrix_attr ],
+                 [< Svg_types.fecolormatrix_content ],
+                 [> Svg_types.fecolormatrix ])
+                star
+              val feComponentTransfer :
+                ([< Svg_types.fecomponenttransfer_attr ],
+                 [< Svg_types.fecomponenttransfer_content ],
+                 [> Svg_types.fecomponenttransfer ])
+                star
+              val feFuncA :
+                ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
+                 [> Svg_types.fefunca ])
+                star
+              val feFuncG :
+                ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
+                 [> Svg_types.fefuncg ])
+                star
+              val feFuncB :
+                ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
+                 [> Svg_types.fefuncb ])
+                star
+              val feFuncR :
+                ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
+                 [> Svg_types.fefuncr ])
+                star
+              val feComposite :
+                ([< Svg_types.fecomposite_attr ],
+                 [< Svg_types.fecomposite_content ],
+                 [> Svg_types.fecomposite ])
+                star
+              val feConvolveMatrix :
+                ([< Svg_types.feconvolvematrix_attr ],
+                 [< Svg_types.feconvolvematrix_content ],
+                 [> Svg_types.feconvolvematrix ])
+                star
+              val feDiffuseLighting :
+                ([< Svg_types.fediffuselighting_attr ],
+                 [< Svg_types.fediffuselighting_content ],
+                 [> Svg_types.fediffuselighting ])
+                star
+              val feDisplacementMap :
+                ([< Svg_types.fedisplacementmap_attr ],
+                 [< Svg_types.fedisplacementmap_content ],
+                 [> Svg_types.fedisplacementmap ])
+                star
+              val feFlood :
+                ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
+                 [> Svg_types.feflood ])
+                star
+              val feGaussianBlur :
+                ([< Svg_types.fegaussianblur_attr ],
+                 [< Svg_types.fegaussianblur_content ],
+                 [> Svg_types.fegaussianblur ])
+                star
+              val feImage :
+                ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
+                 [> Svg_types.feimage ])
+                star
+              val feMerge :
+                ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
+                 [> Svg_types.femerge ])
+                star
+              val feMorphology :
+                ([< Svg_types.femorphology_attr ],
+                 [< Svg_types.femorphology_content ],
+                 [> Svg_types.femorphology ])
+                star
+              val feOffset :
+                ([< Svg_types.feoffset_attr ],
+                 [< Svg_types.feoffset_content ], [> Svg_types.feoffset ])
+                star
+              val feSpecularLighting :
+                ([< Svg_types.fespecularlighting_attr ],
+                 [< Svg_types.fespecularlighting_content ],
+                 [> Svg_types.fespecularlighting ])
+                star
+              val feTile :
+                ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
+                 [> Svg_types.fetile ])
+                star
+              val feTurbulence :
+                ([< Svg_types.feturbulence_attr ],
+                 [< Svg_types.feturbulence_content ],
+                 [> Svg_types.feturbulence ])
+                star
+              val cursor :
+                ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
+                 [> Svg_types.cursor ])
+                star
+              val a :
+                ([< Svg_types.a_attr ], [< Svg_types.a_content ],
+                 [> Svg_types.a ])
+                star
+              val view :
+                ([< Svg_types.view_attr ], [< Svg_types.view_content ],
+                 [> Svg_types.view ])
+                star
+              val script :
+                ([< Svg_types.script_attr ], [< Svg_types.script_content ],
+                 [> Svg_types.script ])
+                unary
+              val animate :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
+                star
+              val set :
+                ([< Svg_types.set_attr ], [< Svg_types.set_content ],
+                 [> Svg_types.set ])
+                star
+              val animateMotion :
+                ([< Svg_types.animatemotion_attr ],
+                 [< Svg_types.animatemotion_content ],
+                 [> Svg_types.animatemotion ])
+                star
+              val mpath :
+                ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
+                 [> Svg_types.mpath ])
+                star
+              val animateColor :
+                ([< Svg_types.animatecolor_attr ],
+                 [< Svg_types.animatecolor_content ],
+                 [> Svg_types.animatecolor ])
+                star
+              val animateTransform :
+                ([< Svg_types.animatetransform_attr ],
+                 [< Svg_types.animatetransform_content ],
+                 [> Svg_types.animatetransform ])
+                star
+              val font :
+                ([< Svg_types.font_attr ], [< Svg_types.font_content ],
+                 [> Svg_types.font ])
+                star
+              val glyph :
+                ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
+                 [> Svg_types.glyph ])
+                star
+              val missing_glyph :
+                ([< Svg_types.missingglyph_attr ],
+                 [< Svg_types.missingglyph_content ],
+                 [> Svg_types.missingglyph ])
+                star
+              val hkern :
+                ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
+              val vkern :
+                ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
+              val font_face :
+                ([< Svg_types.font_face_attr ], [> Svg_types.font_face ])
+                nullary
+              val font_face_src :
+                ([< Svg_types.font_face_src_attr ],
+                 [< Svg_types.font_face_src_content ],
+                 [> Svg_types.font_face_src ])
+                star
+              val font_face_uri :
+                ([< Svg_types.font_face_uri_attr ],
+                 [< Svg_types.font_face_uri_content ],
+                 [> Svg_types.font_face_uri ])
+                star
+              val font_face_format :
+                ([< Svg_types.font_face_format_attr ],
+                 [> Svg_types.font_face_format ])
+                nullary
+              val font_face_name :
+                ([< Svg_types.font_face_name_attr ],
+                 [> Svg_types.font_face_name ])
+                nullary
+              val metadata :
+                ?a:Svg_types.metadata_attr attrib list ->
+                Xml.elt list_wrap -> [> Svg_types.metadata ] elt
+              val foreignObject :
+                ?a:Svg_types.foreignobject_attr attrib list ->
+                Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+              val pcdata : string wrap -> [> Svg_types.txt ] elt
+              val animation :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
+                star
+              val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+              val tot : Xml.elt -> 'a elt
+              val totl : Xml.elt list_wrap -> 'a elt list_wrap
+              val toelt : 'a elt -> Xml.elt
+              val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+              val doc_toelt : doc -> Xml.elt
+              val to_xmlattribs : 'a attrib list -> Xml.attrib list
+              val to_attrib : Xml.attrib -> 'a attrib
+              module Unsafe :
+                sig
+                  val data : string wrap -> 'a elt
+                  val node :
+                    string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+                  val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+                  val coerce_elt : 'a elt -> 'b elt
+                  val string_attrib : string -> string wrap -> 'a attrib
+                  val float_attrib : string -> float wrap -> 'a attrib
+                  val int_attrib : string -> int wrap -> 'a attrib
+                  val uri_attrib : string -> uri wrap -> 'a attrib
+                  val space_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                  val comma_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                end
+            end
           module Raw :
             sig
               type 'a elt = 'a elt
@@ -2064,7 +3786,7 @@
                 [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
                 [ `GradientUnits ] attrib
               val a_gradientTransform :
-                Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+                Svg_types.transforms wrap -> [> `GradientTransform ] attrib
               val a_spreadMethod :
                 [< `Pad | `Reflect | `Repeat ] wrap ->
                 [> `SpreadMethod ] attrib
@@ -2215,6 +3937,8 @@
               val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
               val a_animation_fill :
                 [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+              val a_fill_rule :
+                Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
               val a_calcMode :
                 [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
                 [> `CalcMode ] attrib
@@ -2331,69 +4055,37 @@
                  | `Central
                  | `Hanging
                  | `Ideographic
-                 | `Inherit
-                 | `Mathematical
-                 | `Middle
-                 | `No_change
-                 | `Reset_size
-                 | `Text_after_edge
-                 | `Text_before_edge
-                 | `Use_script ]
-                wrap -> [> `Dominant_Baseline ] attrib
-              val a_stop_color :
-                Svg_types.color wrap -> [> `Stop_Color ] attrib
-              val a_stop_opacity :
-                Svg_types.number wrap -> [> `Stop_Opacity ] attrib
-              val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
-              val a_stroke_width :
-                Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
-              val a_stroke_linecap :
-                [< `Butt | `Round | `Square ] wrap ->
-                [> `Stroke_Linecap ] attrib
-              val a_stroke_linejoin :
-                [< `Bever | `Miter | `Round ] wrap ->
-                [> `Stroke_Linejoin ] attrib
-              val a_stroke_miterlimit :
-                float wrap -> [> `Stroke_Miterlimit ] attrib
-              val a_stroke_dasharray :
-                Svg_types.Unit.length list wrap ->
-                [> `Stroke_Dasharray ] attrib
-              val a_stroke_dashoffset :
-                Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
-              val a_stroke_opacity :
-                float wrap -> [> `Stroke_Opacity ] attrib
-              val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-              val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
-              val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
-              val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
-              val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-              val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
-              val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
-              val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-              val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
-              val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-              val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-              val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-              val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
-              val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-              val a_onmousedown :
-                Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-              val a_onmouseup :
-                Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-              val a_onmouseover :
-                Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-              val a_onmouseout :
-                Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-              val a_onmousemove :
-                Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-              val a_ontouchstart :
-                Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-              val a_ontouchend :
-                Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-              val a_ontouchmove :
-                Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-              val a_ontouchcancel :
-                Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+                 | `Inherit
+                 | `Mathematical
+                 | `Middle
+                 | `No_change
+                 | `Reset_size
+                 | `Text_after_edge
+                 | `Text_before_edge
+                 | `Use_script ]
+                wrap -> [> `Dominant_Baseline ] attrib
+              val a_stop_color :
+                Svg_types.color wrap -> [> `Stop_Color ] attrib
+              val a_stop_opacity :
+                Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+              val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+              val a_stroke_width :
+                Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+              val a_stroke_linecap :
+                [< `Butt | `Round | `Square ] wrap ->
+                [> `Stroke_Linecap ] attrib
+              val a_stroke_linejoin :
+                [< `Bever | `Miter | `Round ] wrap ->
+                [> `Stroke_Linejoin ] attrib
+              val a_stroke_miterlimit :
+                float wrap -> [> `Stroke_Miterlimit ] attrib
+              val a_stroke_dasharray :
+                Svg_types.Unit.length list wrap ->
+                [> `Stroke_Dasharray ] attrib
+              val a_stroke_dashoffset :
+                Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+              val a_stroke_opacity :
+                float wrap -> [> `Stroke_Opacity ] attrib
               val txt : string wrap -> [> Svg_types.txt ] elt
               val svg :
                 ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
@@ -2654,9 +4346,9 @@
                 ([< Svg_types.script_attr ], [< Svg_types.script_content ],
                  [> Svg_types.script ])
                 unary
-              val animation :
-                ([< Svg_types.animation_attr ],
-                 [< Svg_types.animation_content ], [> Svg_types.animation ])
+              val animate :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
                 star
               val set :
                 ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -2726,6 +4418,10 @@
                 ?a:Svg_types.foreignobject_attr attrib list ->
                 Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
               val pcdata : string wrap -> [> Svg_types.txt ] elt
+              val animation :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
+                star
               val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
               val tot : Xml.elt -> 'a elt
               val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -2750,6 +4446,29 @@
                   val comma_sep_attrib :
                     string -> string list wrap -> 'a attrib
                 end
+              val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+              val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+              val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+              val a_onend : string -> [> `OnEnd ] Raw'.attrib
+              val a_onerror : string -> [> `OnError ] Raw'.attrib
+              val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+              val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+              val a_onload : string -> [> `OnLoad ] Raw'.attrib
+              val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+              val a_onresize : string -> [> `OnResize ] Raw'.attrib
+              val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+              val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+              val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+              val a_onclick : string -> [> `OnClick ] Raw'.attrib
+              val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+              val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+              val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+              val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+              val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+              val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+              val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+              val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+              val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
             end
           type 'a elt = 'a elt
           type doc = [ `Svg ] elt
@@ -2927,7 +4646,7 @@
             [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
             [ `GradientUnits ] attrib
           val a_gradientTransform :
-            Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
           val a_spreadMethod :
             [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
           val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -3074,6 +4793,8 @@
           val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
           val a_animation_fill :
             [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
           val a_calcMode :
             [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
             [> `CalcMode ] attrib
@@ -3497,9 +5218,9 @@
             ([< Svg_types.script_attr ], [< Svg_types.script_content ],
              [> Svg_types.script ])
             unary
-          val animation :
-            ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-             [> Svg_types.animation ])
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
             star
           val set :
             ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -3568,6 +5289,10 @@
             ?a:Svg_types.foreignobject_attr attrib list ->
             Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
           val pcdata : string wrap -> [> Svg_types.txt ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
           val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
           val tot : Xml.elt -> 'a elt
           val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -3593,6 +5318,8 @@
         end
       module R :
         sig
+          val node :
+            'a Eliom_content.Svg.elt React.signal -> 'a Eliom_content.Svg.elt
           module Raw :
             sig
               type 'a elt = 'a elt
@@ -3602,11 +5329,12 @@
                 sig
                   module W :
                     sig
-                      type 'a t = 'a Xml_shared.W.t
+                      type 'a t = 'a Eliom_content_core.Xml_wed.W.t
                       val return : 'a -> 'a t
-                      type ('a, 'b) ft = ('a, 'b) Xml_shared.W.ft
+                      type ('a, 'b) ft =
+                          ('a, 'b) Eliom_content_core.Xml_wed.W.ft
                       val fmap : ('a, 'b) ft -> 'a t -> 'b t
-                      type 'a tlist = 'a Xml_shared.W.tlist
+                      type 'a tlist = 'a Eliom_content_core.Xml_wed.W.tlist
                       val nil : unit -> 'a tlist
                       val singleton : 'a t -> 'a tlist
                       val cons : 'a t -> 'a tlist -> 'a tlist
@@ -3615,16 +5343,19 @@
                     end
                   type 'a wrap = 'a W.t
                   type 'a list_wrap = 'a W.tlist
-                  type uri = Xml_shared.uri
+                  type uri = Eliom_content_core.Xml_wed.uri
                   val string_of_uri : (uri, string) W.ft
                   val uri_of_string : (string, uri) W.ft
                   type aname = string
-                  type event_handler = Xml_shared.event_handler
-                  type mouse_event_handler = Xml_shared.mouse_event_handler
+                  type event_handler =
+                      Eliom_content_core.Xml_wed.event_handler
+                  type mouse_event_handler =
+                      Eliom_content_core.Xml_wed.mouse_event_handler
                   type keyboard_event_handler =
-                      Xml_shared.keyboard_event_handler
-                  type touch_event_handler = Xml_shared.touch_event_handler
-                  type attrib = Xml_shared.attrib
+                      Eliom_content_core.Xml_wed.keyboard_event_handler
+                  type touch_event_handler =
+                      Eliom_content_core.Xml_wed.touch_event_handler
+                  type attrib = Eliom_content_core.Xml_wed.attrib
                   val float_attrib : aname -> float wrap -> attrib
                   val int_attrib : aname -> int wrap -> attrib
                   val string_attrib : aname -> string wrap -> attrib
@@ -3639,7 +5370,7 @@
                     aname -> touch_event_handler -> attrib
                   val uri_attrib : aname -> uri wrap -> attrib
                   val uris_attrib : aname -> uri list wrap -> attrib
-                  type elt = Xml_shared.elt
+                  type elt = Eliom_content_core.Xml_wed.elt
                   type ename = string
                   val empty : unit -> elt
                   val comment : string -> elt
@@ -3778,7 +5509,7 @@
                 [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
                 [ `GradientUnits ] attrib
               val a_gradientTransform :
-                Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+                Svg_types.transforms wrap -> [> `GradientTransform ] attrib
               val a_spreadMethod :
                 [< `Pad | `Reflect | `Repeat ] wrap ->
                 [> `SpreadMethod ] attrib
@@ -3929,6 +5660,8 @@
               val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
               val a_animation_fill :
                 [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+              val a_fill_rule :
+                Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
               val a_calcMode :
                 [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
                 [> `CalcMode ] attrib
@@ -4368,9 +6101,9 @@
                 ([< Svg_types.script_attr ], [< Svg_types.script_content ],
                  [> Svg_types.script ])
                 unary
-              val animation :
-                ([< Svg_types.animation_attr ],
-                 [< Svg_types.animation_content ], [> Svg_types.animation ])
+              val animate :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
                 star
               val set :
                 ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -4440,6 +6173,10 @@
                 ?a:Svg_types.foreignobject_attr attrib list ->
                 Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
               val pcdata : string wrap -> [> Svg_types.txt ] elt
+              val animation :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
+                star
               val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
               val tot : Xml.elt -> 'a elt
               val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -4472,11 +6209,11 @@
             sig
               module W :
                 sig
-                  type 'a t = 'a Xml_shared.W.t
+                  type 'a t = 'a Eliom_content_core.Xml_wed.W.t
                   val return : 'a -> 'a t
-                  type ('a, 'b) ft = ('a, 'b) Xml_shared.W.ft
+                  type ('a, 'b) ft = ('a, 'b) Eliom_content_core.Xml_wed.W.ft
                   val fmap : ('a, 'b) ft -> 'a t -> 'b t
-                  type 'a tlist = 'a Xml_shared.W.tlist
+                  type 'a tlist = 'a Eliom_content_core.Xml_wed.W.tlist
                   val nil : unit -> 'a tlist
                   val singleton : 'a t -> 'a tlist
                   val cons : 'a t -> 'a tlist -> 'a tlist
@@ -4485,15 +6222,18 @@
                 end
               type 'a wrap = 'a W.t
               type 'a list_wrap = 'a W.tlist
-              type uri = Xml_shared.uri
+              type uri = Eliom_content_core.Xml_wed.uri
               val string_of_uri : (uri, string) W.ft
               val uri_of_string : (string, uri) W.ft
               type aname = string
-              type event_handler = Xml_shared.event_handler
-              type mouse_event_handler = Xml_shared.mouse_event_handler
-              type keyboard_event_handler = Xml_shared.keyboard_event_handler
-              type touch_event_handler = Xml_shared.touch_event_handler
-              type attrib = Xml_shared.attrib
+              type event_handler = Eliom_content_core.Xml_wed.event_handler
+              type mouse_event_handler =
+                  Eliom_content_core.Xml_wed.mouse_event_handler
+              type keyboard_event_handler =
+                  Eliom_content_core.Xml_wed.keyboard_event_handler
+              type touch_event_handler =
+                  Eliom_content_core.Xml_wed.touch_event_handler
+              type attrib = Eliom_content_core.Xml_wed.attrib
               val float_attrib : aname -> float wrap -> attrib
               val int_attrib : aname -> int wrap -> attrib
               val string_attrib : aname -> string wrap -> attrib
@@ -4508,7 +6248,7 @@
                 aname -> touch_event_handler -> attrib
               val uri_attrib : aname -> uri wrap -> attrib
               val uris_attrib : aname -> uri list wrap -> attrib
-              type elt = Xml_shared.elt
+              type elt = Eliom_content_core.Xml_wed.elt
               type ename = string
               val empty : unit -> elt
               val comment : string -> elt
@@ -4641,7 +6381,7 @@
             [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
             [ `GradientUnits ] attrib
           val a_gradientTransform :
-            Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
           val a_spreadMethod :
             [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
           val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -4788,6 +6528,8 @@
           val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
           val a_animation_fill :
             [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
           val a_calcMode :
             [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
             [> `CalcMode ] attrib
@@ -5211,9 +6953,9 @@
             ([< Svg_types.script_attr ], [< Svg_types.script_content ],
              [> Svg_types.script ])
             unary
-          val animation :
-            ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-             [> Svg_types.animation ])
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
             star
           val set :
             ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -5281,6 +7023,11 @@
           val foreignObject :
             ?a:Svg_types.foreignobject_attr attrib list ->
             Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+          val pcdata : string wrap -> [> Svg_types.txt ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
           val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
           val tot : Xml.elt -> 'a elt
           val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -5303,54 +7050,1136 @@
               val space_sep_attrib : string -> string list wrap -> 'a attrib
               val comma_sep_attrib : string -> string list wrap -> 'a attrib
             end
-          val pcdata : string Eliom_content.Xml.W.t -> [> `Unimplemented ]
-          val node :
-            'a Eliom_content.Svg.elt Eliom_shared.React.S.t ->
-            'a Eliom_content.Svg.elt
-        end
-      module C :
-        sig
-          val node :
-            ?init:'a Eliom_content.Svg.elt ->
-            'a Eliom_content.Svg.elt Eliom_client_value.t ->
-            'a Eliom_content.Svg.elt
-          val attr :
-            ?init:'a Eliom_content.Svg.attrib ->
-            'a Eliom_content.Svg.attrib Eliom_client_value.t ->
-            'a Eliom_content.Svg.attrib
-        end
-      module Id :
-        sig
-          type +'a id
-          val new_elt_id : ?global:bool -> unit -> 'a Eliom_content.Svg.Id.id
-          val create_named_elt :
-            id:'a Eliom_content.Svg.Id.id ->
-            'a Eliom_content.Svg.elt -> 'a Eliom_content.Svg.elt
-          val create_global_elt :
-            'a Eliom_content.Svg.elt -> 'a Eliom_content.Svg.elt
-          val create_request_elt :
-            ?reset:bool ->
-            'a Eliom_content.Svg.elt -> 'a Eliom_content.Svg.elt
-        end
-      module Printer :
-        sig
-          val pp_elt :
-            ?encode:(string -> string) ->
-            ?indent:bool -> unit -> Format.formatter -> 'a elt -> unit
-          val pp :
-            ?encode:(string -> string) ->
-            ?indent:bool ->
-            ?advert:string -> unit -> Format.formatter -> F.doc -> unit
-        end
-    end
-  module Html :
-    sig
-      type +'a elt
-      type +'a attrib
-      type uri = Eliom_content.Xml.uri
-      type 'a form_param
-      module F :
-        sig
+        end
+      module C :
+        sig
+          val node :
+            ?init:'a Eliom_content.Svg.D.elt ->
+            'a Eliom_content.Svg.elt Eliom_client_value.t ->
+            'a Eliom_content.Svg.D.elt
+          val attr :
+            ?init:'a Eliom_content.Svg.attrib ->
+            'a Eliom_content.Svg.attrib Eliom_client_value.t ->
+            'a Eliom_content.Svg.attrib
+        end
+      module Id :
+        sig
+          type +'a id
+          val new_elt_id : ?global:bool -> unit -> 'a Eliom_content.Svg.Id.id
+          val create_named_elt :
+            id:'a Eliom_content.Svg.Id.id ->
+            'a Eliom_content.Svg.elt -> 'a Eliom_content.Svg.elt
+          val create_global_elt :
+            'a Eliom_content.Svg.elt -> 'a Eliom_content.Svg.elt
+          val create_request_elt :
+            ?reset:bool ->
+            'a Eliom_content.Svg.elt -> 'a Eliom_content.Svg.elt
+          val get_element :
+            'a Eliom_content.Svg.Id.id -> 'a Eliom_content.Svg.elt option
+        end
+      module Manip :
+        sig
+          val appendChild :
+            ?before:'a Eliom_content.Svg.elt ->
+            'b Eliom_content.Svg.elt -> 'c Eliom_content.Svg.elt -> unit
+          val appendChildren :
+            ?before:'a Eliom_content.Svg.elt ->
+            'b Eliom_content.Svg.elt -> 'c Eliom_content.Svg.elt list -> unit
+          val insertFirstChild :
+            'b Eliom_content.Svg.elt -> 'c Eliom_content.Svg.elt -> unit
+          val nth :
+            'a Eliom_content.Svg.elt ->
+            int -> 'b Eliom_content.Svg.elt option
+          val childLength : 'a Eliom_content.Svg.elt -> int
+          val removeChild :
+            'a Eliom_content.Svg.elt -> 'b Eliom_content.Svg.elt -> unit
+          val replaceChild :
+            'a Eliom_content.Svg.elt ->
+            'b Eliom_content.Svg.elt -> 'c Eliom_content.Svg.elt -> unit
+          val removeChildren : 'a Eliom_content.Svg.elt -> unit
+          val removeSelf : 'a Eliom_content.Svg.elt -> unit
+          val replaceChildren :
+            'a Eliom_content.Svg.elt -> 'b Eliom_content.Svg.elt list -> unit
+          val parentNode :
+            'a Eliom_content.Svg.elt -> 'b Eliom_content.Svg.elt option
+          val nextSibling :
+            'a Eliom_content.Svg.elt -> 'b Eliom_content.Svg.elt option
+          val previousSibling :
+            'a Eliom_content.Svg.elt -> 'b Eliom_content.Svg.elt option
+          val insertBefore :
+            before:'a Eliom_content.Svg.elt ->
+            'b Eliom_content.Svg.elt -> unit
+          val insertAfter :
+            after:'a Eliom_content.Svg.elt ->
+            'b Eliom_content.Svg.elt -> unit
+          val replaceSelf :
+            'a Eliom_content.Svg.elt -> 'b Eliom_content.Svg.elt -> unit
+          module Named :
+            sig
+              val appendChild :
+                ?before:'a Eliom_content.Svg.elt ->
+                'b Eliom_content.Svg.Id.id ->
+                'c Eliom_content.Svg.elt -> unit
+              val appendChildren :
+                ?before:'a Eliom_content.Svg.elt ->
+                'b Eliom_content.Svg.Id.id ->
+                'c Eliom_content.Svg.elt list -> unit
+              val removeChild :
+                'a Eliom_content.Svg.Id.id ->
+                'b Eliom_content.Svg.elt -> unit
+              val replaceChild :
+                'a Eliom_content.Svg.Id.id ->
+                'b Eliom_content.Svg.elt -> 'c Eliom_content.Svg.elt -> unit
+              val removeChildren : 'a Eliom_content.Svg.Id.id -> unit
+              val replaceChildren :
+                'a Eliom_content.Svg.Id.id ->
+                'b Eliom_content.Svg.elt list -> unit
+            end
+          val childNodes :
+            'a Eliom_content.Svg.elt ->
+            Js_of_ocaml.Dom.node Js_of_ocaml.Js.t list
+          val childElements :
+            'a Eliom_content.Svg.elt ->
+            Js_of_ocaml.Dom.element Js_of_ocaml.Js.t list
+          module Class :
+            sig
+              val contain : 'a Eliom_content.Svg.elt -> string -> bool
+              val remove : 'a Eliom_content.Svg.elt -> string -> unit
+              val removes : 'a Eliom_content.Svg.elt -> string list -> unit
+              val add : 'a Eliom_content.Svg.elt -> string -> unit
+              val adds : 'a Eliom_content.Svg.elt -> string list -> unit
+              val replace :
+                'a Eliom_content.Svg.elt -> string -> string -> unit
+              val clear : 'a Eliom_content.Svg.elt -> unit
+              val toggle : 'a Eliom_content.Svg.elt -> string -> unit
+              val toggle2 :
+                'a Eliom_content.Svg.elt -> string -> string -> unit
+            end
+        end
+      module To_dom :
+        sig
+          val of_element :
+            'a Eliom_content.Svg.elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_node :
+            'a Eliom_content.Svg.elt -> Js_of_ocaml.Dom.node Js_of_ocaml.Js.t
+          val of_pcdata :
+            [> `Pcdata ] Eliom_content.Svg.elt ->
+            Js_of_ocaml.Dom.text Js_of_ocaml.Js.t
+        end
+      module Of_dom :
+        sig
+          val of_element :
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t ->
+            'a Eliom_content.Svg.elt
+        end
+    end
+  module Html :
+    sig
+      type +'a elt
+      type +'a attrib
+      type uri = Eliom_content.Xml.uri
+      type 'a form_param
+      module Ev' = Eliom_content_core.Html.Ev'
+      module F :
+        sig
+          module Raw' :
+            sig
+              type 'a elt = 'a elt
+              type doc = Html_types.html elt
+              type 'a attrib = 'a attrib
+              module Xml :
+                sig
+                  module W :
+                    sig
+                      type 'a t = 'a Xml.W.t
+                      val return : 'a -> 'a t
+                      type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                      val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                      type 'a tlist = 'a Xml.W.tlist
+                      val nil : unit -> 'a tlist
+                      val singleton : 'a t -> 'a tlist
+                      val cons : 'a t -> 'a tlist -> 'a tlist
+                      val append : 'a tlist -> 'a tlist -> 'a tlist
+                      val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                    end
+                  type 'a wrap = 'a W.t
+                  type 'a list_wrap = 'a W.tlist
+                  type uri = Xml.uri
+                  val string_of_uri : (uri, string) W.ft
+                  val uri_of_string : (string, uri) W.ft
+                  type aname = string
+                  type event_handler = Xml.event_handler
+                  type mouse_event_handler = Xml.mouse_event_handler
+                  type keyboard_event_handler = Xml.keyboard_event_handler
+                  type touch_event_handler = Xml.touch_event_handler
+                  type attrib = Xml.attrib
+                  val float_attrib : aname -> float wrap -> attrib
+                  val int_attrib : aname -> int wrap -> attrib
+                  val string_attrib : aname -> string wrap -> attrib
+                  val space_sep_attrib : aname -> string list wrap -> attrib
+                  val comma_sep_attrib : aname -> string list wrap -> attrib
+                  val event_handler_attrib : aname -> event_handler -> attrib
+                  val mouse_event_handler_attrib :
+                    aname -> mouse_event_handler -> attrib
+                  val keyboard_event_handler_attrib :
+                    aname -> keyboard_event_handler -> attrib
+                  val touch_event_handler_attrib :
+                    aname -> touch_event_handler -> attrib
+                  val uri_attrib : aname -> uri wrap -> attrib
+                  val uris_attrib : aname -> uri list wrap -> attrib
+                  type elt = Xml.elt
+                  type ename = string
+                  val empty : unit -> elt
+                  val comment : string -> elt
+                  val pcdata : string wrap -> elt
+                  val encodedpcdata : string wrap -> elt
+                  val entity : string -> elt
+                  val leaf : ?a:attrib list -> ename -> elt
+                  val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+                  val cdata : string -> elt
+                  val cdata_script : string -> elt
+                  val cdata_style : string -> elt
+                end
+              type 'a wrap = 'a Xml.W.t
+              type 'a list_wrap = 'a Xml.W.tlist
+              type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+              type ('a, 'b, 'c) unary =
+                  ?a:'a attrib list -> 'b elt wrap -> 'c elt
+              type ('a, 'b, 'c) star =
+                  ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              module Info : Xml_sigs.Info
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) Xml.W.ft
+              val uri_of_string : (string, uri) Xml.W.ft
+              val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+              val a_user_data :
+                Html_types.nmtoken ->
+                Html_types.text wrap -> [> `User_data ] attrib
+              val a_id : Html_types.text wrap -> [> `Id ] attrib
+              val a_title : Html_types.text wrap -> [> `Title ] attrib
+              val a_xml_lang :
+                Html_types.languagecode wrap -> [> `XML_lang ] attrib
+              val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
+              val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+              val a_onafterprint :
+                Xml.event_handler -> [> `OnAfterPrint ] attrib
+              val a_onbeforeprint :
+                Xml.event_handler -> [> `OnBeforePrint ] attrib
+              val a_onbeforeunload :
+                Xml.event_handler -> [> `OnBeforeUnload ] attrib
+              val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
+              val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
+              val a_oncanplaythrough :
+                Xml.event_handler -> [> `OnCanPlayThrough ] attrib
+              val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+              val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
+              val a_ondurationchange :
+                Xml.event_handler -> [> `OnDurationChange ] attrib
+              val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
+              val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
+              val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+              val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
+              val a_onformchange :
+                Xml.event_handler -> [> `OnFormChange ] attrib
+              val a_onforminput :
+                Xml.event_handler -> [> `OnFormInput ] attrib
+              val a_onhashchange :
+                Xml.event_handler -> [> `OnHashChange ] attrib
+              val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
+              val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
+              val a_onmousewheel :
+                Xml.event_handler -> [> `OnMouseWheel ] attrib
+              val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
+              val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
+              val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
+              val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
+              val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
+              val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
+              val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
+              val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
+              val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
+              val a_onratechange :
+                Xml.event_handler -> [> `OnRateChange ] attrib
+              val a_onreadystatechange :
+                Xml.event_handler -> [> `OnReadyStateChange ] attrib
+              val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
+              val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+              val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+              val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
+              val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
+              val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
+              val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
+              val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
+              val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
+              val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
+              val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
+              val a_ontimeupdate :
+                Xml.event_handler -> [> `OnTimeUpdate ] attrib
+              val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
+              val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+              val a_onvolumechange :
+                Xml.event_handler -> [> `OnVolumeChange ] attrib
+              val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
+              val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+              val a_onloadeddata :
+                Xml.event_handler -> [> `OnLoadedData ] attrib
+              val a_onloadedmetadata :
+                Xml.event_handler -> [> `OnLoadedMetaData ] attrib
+              val a_onloadstart :
+                Xml.event_handler -> [> `OnLoadStart ] attrib
+              val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
+              val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+              val a_oncontextmenu :
+                Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
+              val a_ondblclick :
+                Xml.mouse_event_handler -> [> `OnDblClick ] attrib
+              val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
+              val a_ondragend :
+                Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
+              val a_ondragenter :
+                Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
+              val a_ondragleave :
+                Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
+              val a_ondragover :
+                Xml.mouse_event_handler -> [> `OnDragOver ] attrib
+              val a_ondragstart :
+                Xml.mouse_event_handler -> [> `OnDragStart ] attrib
+              val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
+              val a_onmousedown :
+                Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+              val a_onmouseup :
+                Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+              val a_onmouseover :
+                Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+              val a_onmousemove :
+                Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+              val a_onmouseout :
+                Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+              val a_ontouchstart :
+                Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+              val a_ontouchend :
+                Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+              val a_ontouchmove :
+                Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+              val a_ontouchcancel :
+                Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+              val a_onkeypress :
+                Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
+              val a_onkeydown :
+                Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
+              val a_onkeyup :
+                Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+              val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
+              val a_allowpaymentrequest :
+                unit -> [> `Allowpaymentrequest ] attrib
+              val a_autocomplete :
+                Html_types.autocomplete_option wrap ->
+                [> `Autocomplete ] attrib
+              val a_async : unit -> [> `Async ] attrib
+              val a_autofocus : unit -> [> `Autofocus ] attrib
+              val a_autoplay : unit -> [> `Autoplay ] attrib
+              val a_muted : unit -> [> `Muted ] attrib
+              val a_crossorigin :
+                [< `Anonymous | `Use_credentials ] wrap ->
+                [> `Crossorigin ] attrib
+              val a_integrity : string wrap -> [> `Integrity ] attrib
+              val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
+              val a_challenge :
+                Html_types.text wrap -> [> `Challenge ] attrib
+              val a_contenteditable :
+                bool wrap -> [> `Contenteditable ] attrib
+              val a_contextmenu :
+                Html_types.idref wrap -> [> `Contextmenu ] attrib
+              val a_controls : unit -> [> `Controls ] attrib
+              val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
+              val a_draggable : bool wrap -> [> `Draggable ] attrib
+              val a_form : Html_types.idref wrap -> [> `Form ] attrib
+              val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
+              val a_formenctype :
+                Html_types.contenttype wrap -> [> `Formenctype ] attrib
+              val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
+              val a_formtarget :
+                Html_types.text wrap -> [> `Formtarget ] attrib
+              val a_hidden : unit -> [> `Hidden ] attrib
+              val a_high : Html_types.float_number wrap -> [> `High ] attrib
+              val a_icon : Xml.uri wrap -> [> `Icon ] attrib
+              val a_ismap : unit -> [> `Ismap ] attrib
+              val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
+              val a_list : Html_types.idref wrap -> [> `List ] attrib
+              val a_loop : unit -> [> `Loop ] attrib
+              val a_low : Html_types.float_number wrap -> [> `High ] attrib
+              val a_max : Html_types.float_number wrap -> [> `Max ] attrib
+              val a_input_max :
+                Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
+              val a_min : Html_types.float_number wrap -> [> `Min ] attrib
+              val a_input_min :
+                Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
+              val a_inputmode :
+                [< `Decimal
+                 | `Email
+                 | `None
+                 | `Numeric
+                 | `Search
+                 | `Tel
+                 | `Text
+                 | `Url ]
+                wrap -> [> `Inputmode ] attrib
+              val a_novalidate : unit -> [> `Novalidate ] attrib
+              val a_open : unit -> [> `Open ] attrib
+              val a_optimum :
+                Html_types.float_number wrap -> [> `Optimum ] attrib
+              val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
+              val a_placeholder :
+                Html_types.text wrap -> [> `Placeholder ] attrib
+              val a_poster : Xml.uri wrap -> [> `Poster ] attrib
+              val a_preload :
+                [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
+              val a_pubdate : unit -> [> `Pubdate ] attrib
+              val a_radiogroup :
+                Html_types.text wrap -> [> `Radiogroup ] attrib
+              val a_referrerpolicy :
+                Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
+              val a_required : unit -> [> `Required ] attrib
+              val a_reversed : unit -> [> `Reversed ] attrib
+              val a_sandbox :
+                [< Html_types.sandbox_token ] list wrap ->
+                [> `Sandbox ] attrib
+              val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
+              val a_scoped : unit -> [> `Scoped ] attrib
+              val a_seamless : unit -> [> `Seamless ] attrib
+              val a_sizes :
+                (Html_types.number * Html_types.number) list option wrap ->
+                [> `Sizes ] attrib
+              val a_span : Html_types.number wrap -> [> `Span ] attrib
+              val a_srclang :
+                Html_types.nmtoken wrap -> [> `XML_lang ] attrib
+              type image_candidate =
+                  [ `Url of uri
+                  | `Url_pixel of uri * Html_types.float_number
+                  | `Url_width of uri * Html_types.number ]
+              val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
+              val a_img_sizes :
+                Html_types.text list wrap -> [> `Img_sizes ] attrib
+              val a_start : Html_types.number wrap -> [> `Start ] attrib
+              val a_step :
+                Html_types.float_number option wrap -> [> `Step ] attrib
+              val a_translate :
+                [< `No | `Yes ] wrap -> [> `Translate ] attrib
+              val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
+              val a_version : Html_types.cdata wrap -> [> `Version ] attrib
+              val a_xmlns :
+                [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
+              val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
+              val a_cite : Xml.uri wrap -> [> `Cite ] attrib
+              val a_xml_space :
+                [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
+              val a_accesskey :
+                Html_types.character wrap -> [> `Accesskey ] attrib
+              val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
+              val a_accept_charset :
+                Html_types.charsets wrap -> [> `Accept_charset ] attrib
+              val a_accept :
+                Html_types.contenttypes wrap -> [> `Accept ] attrib
+              val a_href : Xml.uri wrap -> [> `Href ] attrib
+              val a_hreflang :
+                Html_types.languagecode wrap -> [> `Hreflang ] attrib
+              val a_download : string option wrap -> [> `Download ] attrib
+              val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
+              val a_tabindex :
+                Html_types.number wrap -> [> `Tabindex ] attrib
+              val a_mime_type :
+                Html_types.contenttype wrap -> [> `Mime_type ] attrib
+              val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
+              val a_action : Xml.uri wrap -> [> `Action ] attrib
+              val a_checked : unit -> [> `Checked ] attrib
+              val a_cols : Html_types.number wrap -> [> `Cols ] attrib
+              val a_enctype :
+                Html_types.contenttype wrap -> [> `Enctype ] attrib
+              val a_label_for :
+                Html_types.idref wrap -> [> `Label_for ] attrib
+              val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
+              val a_output_for :
+                Html_types.idrefs wrap -> [> `Output_for ] attrib
+              val a_for_list :
+                Html_types.idrefs wrap -> [> `Output_for ] attrib
+              val a_maxlength :
+                Html_types.number wrap -> [> `Maxlength ] attrib
+              val a_minlength :
+                Html_types.number wrap -> [> `Minlength ] attrib
+              val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
+              val a_formmethod :
+                [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
+              val a_multiple : unit -> [> `Multiple ] attrib
+              val a_name : Html_types.text wrap -> [> `Name ] attrib
+              val a_rows : Html_types.number wrap -> [> `Rows ] attrib
+              val a_selected : unit -> [> `Selected ] attrib
+              val a_size : Html_types.number wrap -> [> `Size ] attrib
+              val a_src : Xml.uri wrap -> [> `Src ] attrib
+              val a_input_type :
+                [< `Button
+                 | `Checkbox
+                 | `Color
+                 | `Date
+                 | `Datetime
+                 | `Datetime_local
+                 | `Email
+                 | `File
+                 | `Hidden
+                 | `Image
+                 | `Month
+                 | `Number
+                 | `Password
+                 | `Radio
+                 | `Range
+                 | `Reset
+                 | `Search
+                 | `Submit
+                 | `Tel
+                 | `Text
+                 | `Time
+                 | `Url
+                 | `Week ]
+                wrap -> [> `Input_Type ] attrib
+              val a_text_value :
+                Html_types.text wrap -> [> `Text_Value ] attrib
+              val a_int_value :
+                Html_types.number wrap -> [> `Int_Value ] attrib
+              val a_value : Html_types.cdata wrap -> [> `Value ] attrib
+              val a_float_value :
+                Html_types.float_number wrap -> [> `Float_Value ] attrib
+              val a_disabled : unit -> [> `Disabled ] attrib
+              val a_readonly : unit -> [> `ReadOnly ] attrib
+              val a_button_type :
+                [< `Button | `Reset | `Submit ] wrap ->
+                [> `Button_Type ] attrib
+              val a_script_type :
+                Html_types.script_type wrap -> [> `Script_type ] attrib
+              val a_command_type :
+                [< `Checkbox | `Command | `Radio ] wrap ->
+                [> `Command_Type ] attrib
+              val a_menu_type :
+                [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
+              val a_label : Html_types.text wrap -> [> `Label ] attrib
+              val a_align :
+                [< `Char | `Justify | `Left | `Right ] wrap ->
+                [> `Align ] attrib
+              val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
+              val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
+              val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
+              val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
+              val a_scope :
+                [< `Col | `Colgroup | `Row | `Rowgroup ] wrap ->
+                [> `Scope ] attrib
+              val a_summary : Html_types.text wrap -> [> `Summary ] attrib
+              val a_border : Html_types.pixels wrap -> [> `Border ] attrib
+              val a_rules :
+                [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
+                [> `Rules ] attrib
+              val a_char : Html_types.character wrap -> [> `Char ] attrib
+              val a_alt : Html_types.text wrap -> [> `Alt ] attrib
+              val a_height : Html_types.number wrap -> [> `Height ] attrib
+              val a_width : Html_types.number wrap -> [> `Width ] attrib
+              type shape = [ `Circle | `Default | `Poly | `Rect ]
+              val a_shape : shape wrap -> [> `Shape ] attrib
+              val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
+              val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
+              val a_data : Xml.uri wrap -> [> `Data ] attrib
+              val a_codetype :
+                Html_types.contenttype wrap -> [> `Codetype ] attrib
+              val a_frameborder :
+                [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
+              val a_marginheight :
+                Html_types.pixels wrap -> [> `Marginheight ] attrib
+              val a_marginwidth :
+                Html_types.pixels wrap -> [> `Marginwidth ] attrib
+              val a_scrolling :
+                [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
+              val a_target :
+                Html_types.frametarget wrap -> [> `Target ] attrib
+              val a_content : Html_types.text wrap -> [> `Content ] attrib
+              val a_http_equiv :
+                Html_types.text wrap -> [> `Http_equiv ] attrib
+              val a_defer : unit -> [> `Defer ] attrib
+              val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
+              val a_style : string wrap -> [> `Style_Attr ] attrib
+              val a_property : string wrap -> [> `Property ] attrib
+              val a_role : string list wrap -> [> `Role ] attrib
+              val a_aria : string -> string list wrap -> [> `Aria ] attrib
+              val txt : string wrap -> [> Html_types.txt ] elt
+              val html :
+                ?a:Html_types.html_attrib attrib list ->
+                [< Html_types.head ] elt wrap ->
+                [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
+              val head :
+                ?a:Html_types.head_attrib attrib list ->
+                [< Html_types.title ] elt wrap ->
+                Html_types.head_content_fun elt list_wrap ->
+                [> Html_types.head ] elt
+              val base :
+                ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
+              val title :
+                (Html_types.title_attrib, [< Html_types.title_content_fun ],
+                 [> Html_types.title ])
+                unary
+              val body :
+                ([< Html_types.body_attrib ],
+                 [< Html_types.body_content_fun ], [> Html_types.body ])
+                star
+              val svg :
+                ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+                [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
+                [> Html_types.svg ] elt
+              val footer :
+                ([< Html_types.footer_attrib ],
+                 [< Html_types.footer_content_fun ], [> Html_types.footer ])
+                star
+              val header :
+                ([< Html_types.header_attrib ],
+                 [< Html_types.header_content_fun ], [> Html_types.header ])
+                star
+              val section :
+                ([< Html_types.section_attrib ],
+                 [< Html_types.section_content_fun ],
+                 [> Html_types.section ])
+                star
+              val nav :
+                ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
+                 [> Html_types.nav ])
+                star
+              val h1 :
+                ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
+                 [> Html_types.h1 ])
+                star
+              val h2 :
+                ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
+                 [> Html_types.h2 ])
+                star
+              val h3 :
+                ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
+                 [> Html_types.h3 ])
+                star
+              val h4 :
+                ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
+                 [> Html_types.h4 ])
+                star
+              val h5 :
+                ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
+                 [> Html_types.h5 ])
+                star
+              val h6 :
+                ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
+                 [> Html_types.h6 ])
+                star
+              val hgroup :
+                ([< Html_types.hgroup_attrib ],
+                 [< Html_types.hgroup_content_fun ], [> Html_types.hgroup ])
+                star
+              val address :
+                ([< Html_types.address_attrib ],
+                 [< Html_types.address_content_fun ],
+                 [> Html_types.address ])
+                star
+              val article :
+                ([< Html_types.article_attrib ],
+                 [< Html_types.article_content_fun ],
+                 [> Html_types.article ])
+                star
+              val aside :
+                ([< Html_types.aside_attrib ],
+                 [< Html_types.aside_content_fun ], [> Html_types.aside ])
+                star
+              val main :
+                ([< Html_types.main_attrib ],
+                 [< Html_types.main_content_fun ], [> Html_types.main ])
+                star
+              val p :
+                ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
+                 [> Html_types.p ])
+                star
+              val pre :
+                ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
+                 [> Html_types.pre ])
+                star
+              val blockquote :
+                ([< Html_types.blockquote_attrib ],
+                 [< Html_types.blockquote_content_fun ],
+                 [> Html_types.blockquote ])
+                star
+              val dialog :
+                ([< Html_types.dialog_attrib ],
+                 [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+                star
+              val div :
+                ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
+                 [> Html_types.div ])
+                star
+              val dl :
+                ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
+                 [> Html_types.dl ])
+                star
+              val ol :
+                ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
+                 [> Html_types.ol ])
+                star
+              val ul :
+                ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
+                 [> Html_types.ul ])
+                star
+              val dd :
+                ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
+                 [> Html_types.dd ])
+                star
+              val dt :
+                ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
+                 [> Html_types.dt ])
+                star
+              val li :
+                ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
+                 [> Html_types.li ])
+                star
+              val figcaption :
+                ([< Html_types.figcaption_attrib ],
+                 [< Html_types.figcaption_content_fun ],
+                 [> Html_types.figcaption ])
+                star
+              val figure :
+                ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
+                            | `Top of [< Html_types.figcaption ] elt wrap ] ->
+                ([< Html_types.figure_attrib ],
+                 [< Html_types.figure_content_fun ], [> Html_types.figure ])
+                star
+              val hr :
+                ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
+              val b :
+                ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
+                 [> Html_types.b ])
+                star
+              val i :
+                ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
+                 [> Html_types.i ])
+                star
+              val u :
+                ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
+                 [> Html_types.u ])
+                star
+              val small :
+                ([< Html_types.small_attrib ],
+                 [< Html_types.small_content_fun ], [> Html_types.small ])
+                star
+              val sub :
+                ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
+                 [> Html_types.sub ])
+                star
+              val sup :
+                ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
+                 [> Html_types.sup ])
+                star
+              val mark :
+                ([< Html_types.mark_attrib ],
+                 [< Html_types.mark_content_fun ], [> Html_types.mark ])
+                star
+              val wbr :
+                ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
+              val bdo :
+                dir:[< `Ltr | `Rtl ] wrap ->
+                ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
+                 [> Html_types.bdo ])
+                star
+              val abbr :
+                ([< Html_types.abbr_attrib ],
+                 [< Html_types.abbr_content_fun ], [> Html_types.abbr ])
+                star
+              val br :
+                ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
+              val cite :
+                ([< Html_types.cite_attrib ],
+                 [< Html_types.cite_content_fun ], [> Html_types.cite ])
+                star
+              val code :
+                ([< Html_types.code_attrib ],
+                 [< Html_types.code_content_fun ], [> Html_types.code ])
+                star
+              val dfn :
+                ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
+                 [> Html_types.dfn ])
+                star
+              val em :
+                ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
+                 [> Html_types.em ])
+                star
+              val kbd :
+                ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
+                 [> Html_types.kbd ])
+                star
+              val q :
+                ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
+                 [> Html_types.q ])
+                star
+              val samp :
+                ([< Html_types.samp_attrib ],
+                 [< Html_types.samp_content_fun ], [> Html_types.samp ])
+                star
+              val span :
+                ([< Html_types.span_attrib ],
+                 [< Html_types.span_content_fun ], [> Html_types.span ])
+                star
+              val strong :
+                ([< Html_types.strong_attrib ],
+                 [< Html_types.strong_content_fun ], [> Html_types.strong ])
+                star
+              val time :
+                ([< Html_types.time_attrib ],
+                 [< Html_types.time_content_fun ], [> Html_types.time ])
+                star
+              val var :
+                ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
+                 [> Html_types.var ])
+                star
+              val a :
+                ([< Html_types.a_attrib ], 'a, [> 'a Html_types.a ]) star
+              val del :
+                ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
+              val ins :
+                ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
+              val img :
+                src:Xml.uri wrap ->
+                alt:Html_types.text wrap ->
+                ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
+              val picture :
+                img:[< Html_types.img ] elt wrap ->
+                ([< Html_types.picture_attrib ],
+                 [< Html_types.picture_content_fun ],
+                 [> Html_types.picture ])
+                star
+              val iframe :
+                ([< Html_types.iframe_attrib ],
+                 [< Html_types.iframe_content_fun ], [> Html_types.iframe ])
+                star
+              val object_ :
+                ?params:[< Html_types.param ] elt list_wrap ->
+                ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
+              val param :
+                ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
+              val embed :
+                ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
+              val audio :
+                ?src:Xml.uri wrap ->
+                ?srcs:[< Html_types.source ] elt list_wrap ->
+                ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ])
+                star
+              val video :
+                ?src:Xml.uri wrap ->
+                ?srcs:[< Html_types.source ] elt list_wrap ->
+                ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ])
+                star
+              val canvas :
+                ([< Html_types.canvas_attrib ], 'a,
+                 [> 'a Html_types.canvas ])
+                star
+              val source :
+                ([< Html_types.source_attrib ], [> Html_types.source ])
+                nullary
+              val area :
+                alt:Html_types.text wrap ->
+                ([< `Accesskey
+                  | `Alt
+                  | `Aria
+                  | `Class
+                  | `Contenteditable
+                  | `Contextmenu
+                  | `Coords
+                  | `Dir
+                  | `Draggable
+                  | `Hidden
+                  | `Hreflang
+                  | `Id
+                  | `Lang
+                  | `Media
+                  | `Mime_type
+                  | `OnAbort
+                  | `OnBlur
+                  | `OnCanPlay
+                  | `OnCanPlayThrough
+                  | `OnChange
+                  | `OnClick
+                  | `OnClose
+                  | `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
+                  | `Rel
+                  | `Role
+                  | `Shape
+                  | `Spellcheck
+                  | `Style_Attr
+                  | `Tabindex
+                  | `Target
+                  | `Title
+                  | `Translate
+                  | `User_data
+                  | `XML_lang
+                  | `XMLns ],
+                 [> Html_types.area ])
+                nullary
+              val map :
+                ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
+              val caption :
+                ([< Html_types.caption_attrib ],
+                 [< Html_types.caption_content_fun ],
+                 [> Html_types.caption ])
+                star
+              val table :
+                ?caption:[< Html_types.caption ] elt wrap ->
+                ?columns:[< Html_types.colgroup ] elt list_wrap ->
+                ?thead:[< Html_types.thead ] elt wrap ->
+                ?tfoot:[< Html_types.tfoot ] elt wrap ->
+                ([< Html_types.table_attrib ],
+                 [< Html_types.table_content_fun ], [> Html_types.table ])
+                star
+              val tablex :
+                ?caption:[< Html_types.caption ] elt wrap ->
+                ?columns:[< Html_types.colgroup ] elt list_wrap ->
+                ?thead:[< Html_types.thead ] elt wrap ->
+                ?tfoot:[< Html_types.tfoot ] elt wrap ->
+                ([< Html_types.tablex_attrib ],
+                 [< Html_types.tablex_content_fun ], [> Html_types.tablex ])
+                star
+              val colgroup :
+                ([< Html_types.colgroup_attrib ],
+                 [< Html_types.colgroup_content_fun ],
+                 [> Html_types.colgroup ])
+                star
+              val col :
+                ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
+              val thead :
+                ([< Html_types.thead_attrib ],
+                 [< Html_types.thead_content_fun ], [> Html_types.thead ])
+                star
+              val tbody :
+                ([< Html_types.tbody_attrib ],
+                 [< Html_types.tbody_content_fun ], [> Html_types.tbody ])
+                star
+              val tfoot :
+                ([< Html_types.tfoot_attrib ],
+                 [< Html_types.tfoot_content_fun ], [> Html_types.tfoot ])
+                star
+              val td :
+                ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
+                 [> Html_types.td ])
+                star
+              val th :
+                ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
+                 [> Html_types.th ])
+                star
+              val tr :
+                ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
+                 [> Html_types.tr ])
+                star
+              val form :
+                ([< Html_types.form_attrib ],
+                 [< Html_types.form_content_fun ], [> Html_types.form ])
+                star
+              val fieldset :
+                ?legend:[< Html_types.legend ] elt wrap ->
+                ([< Html_types.fieldset_attrib ],
+                 [< Html_types.fieldset_content_fun ],
+                 [> Html_types.fieldset ])
+                star
+              val legend :
+                ([< Html_types.legend_attrib ],
+                 [< Html_types.legend_content_fun ], [> Html_types.legend ])
+                star
+              val label :
+                ([< Html_types.label_attrib ],
+                 [< Html_types.label_content_fun ], [> Html_types.label ])
+                star
+              val input :
+                ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
+              val button :
+                ([< Html_types.button_attrib ],
+                 [< Html_types.button_content_fun ], [> Html_types.button ])
+                star
+              val select :
+                ([< Html_types.select_attrib ],
+                 [< Html_types.select_content_fun ], [> Html_types.select ])
+                star
+              val datalist :
+                ?children:[< `Options of
+                               [< Html_types.selectoption ] elt list_wrap
+                           | `Phras of [< Html_types.phrasing ] elt list_wrap
+                          ] ->
+                ([< Html_types.datalist_attrib ], [> Html_types.datalist ])
+                nullary
+              val optgroup :
+                label:Html_types.text wrap ->
+                ([< Html_types.optgroup_attrib ],
+                 [< Html_types.optgroup_content_fun ],
+                 [> Html_types.optgroup ])
+                star
+              val option :
+                ([< Html_types.option_attrib ],
+                 [< Html_types.option_content_fun ],
+                 [> Html_types.selectoption ])
+                unary
+              val textarea :
+                ([< Html_types.textarea_attrib ],
+                 [< Html_types.textarea_content_fun ],
+                 [> Html_types.textarea ])
+                unary
+              val keygen :
+                ([< Html_types.keygen_attrib ], [> Html_types.keygen ])
+                nullary
+              val progress :
+                ([< Html_types.progress_attrib ],
+                 [< Html_types.progress_content_fun ],
+                 [> Html_types.progress ])
+                star
+              val meter :
+                ([< Html_types.meter_attrib ],
+                 [< Html_types.meter_content_fun ], [> Html_types.meter ])
+                star
+              val output_elt :
+                ([< Html_types.output_elt_attrib ],
+                 [< Html_types.output_elt_content_fun ],
+                 [> Html_types.output_elt ])
+                star
+              val entity : string -> [> Html_types.txt ] elt
+              val space : unit -> [> Html_types.txt ] elt
+              val cdata : string -> [> Html_types.txt ] elt
+              val cdata_script : string -> [> Html_types.txt ] elt
+              val cdata_style : string -> [> Html_types.txt ] elt
+              val details :
+                [< Html_types.summary ] elt wrap ->
+                ([< Html_types.details_attrib ],
+                 [< Html_types.details_content_fun ],
+                 [> Html_types.details ])
+                star
+              val summary :
+                ([< Html_types.summary_attrib ],
+                 [< Html_types.summary_content_fun ],
+                 [> Html_types.summary ])
+                star
+              val command :
+                label:Html_types.text wrap ->
+                ([< Html_types.command_attrib ], [> Html_types.command ])
+                nullary
+              val menu :
+                ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
+                           | `Lis of
+                               [< `Li of [< Html_types.common ] ] elt
+                               list_wrap ] ->
+                ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
+              val script :
+                ([< Html_types.script_attrib ],
+                 [< Html_types.script_content_fun ], [> Html_types.script ])
+                unary
+              val noscript :
+                ([< Html_types.noscript_attrib ],
+                 [< Html_types.noscript_content_fun ],
+                 [> Html_types.noscript ])
+                star
+              val template :
+                ([< Html_types.template_attrib ],
+                 [< Html_types.template_content_fun ],
+                 [> Html_types.template ])
+                star
+              val meta :
+                ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
+              val style :
+                ([< Html_types.style_attrib ],
+                 [< Html_types.style_content_fun ], [> Html_types.style ])
+                star
+              val link :
+                rel:Html_types.linktypes wrap ->
+                href:Xml.uri wrap ->
+                ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
+              val rt :
+                ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
+                 [> Html_types.rt ])
+                star
+              val rp :
+                ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
+                 [> Html_types.rp ])
+                star
+              val ruby :
+                ([< Html_types.ruby_attrib ],
+                 [< Html_types.ruby_content_fun ], [> Html_types.ruby ])
+                star
+              val pcdata : string wrap -> [> Html_types.pcdata ] elt
+              val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+              val tot : Xml.elt -> 'a elt
+              val totl : Xml.elt list_wrap -> 'a elt list_wrap
+              val toelt : 'a elt -> Xml.elt
+              val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+              val doc_toelt : doc -> Xml.elt
+              val to_xmlattribs : 'a attrib list -> Xml.attrib list
+              val to_attrib : Xml.attrib -> 'a attrib
+              module Unsafe :
+                sig
+                  val data : string wrap -> 'a elt
+                  val node :
+                    string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+                  val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+                  val coerce_elt : 'a elt -> 'b elt
+                  val string_attrib : string -> string wrap -> 'a attrib
+                  val float_attrib : string -> float wrap -> 'a attrib
+                  val int_attrib : string -> int wrap -> 'a attrib
+                  val uri_attrib : string -> uri wrap -> 'a attrib
+                  val space_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                  val comma_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                end
+            end
           module Raw :
             sig
               type 'a elt = 'a elt
@@ -5365,182 +8194,76 @@
                       type ('a, 'b) ft = ('a, 'b) Xml.W.ft
                       val fmap : ('a, 'b) ft -> 'a t -> 'b t
                       type 'a tlist = 'a Xml.W.tlist
-                      val nil : unit -> 'a tlist
-                      val singleton : 'a t -> 'a tlist
-                      val cons : 'a t -> 'a tlist -> 'a tlist
-                      val append : 'a tlist -> 'a tlist -> 'a tlist
-                      val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
-                    end
-                  type 'a wrap = 'a W.t
-                  type 'a list_wrap = 'a W.tlist
-                  type uri = Xml.uri
-                  val string_of_uri : (uri, string) W.ft
-                  val uri_of_string : (string, uri) W.ft
-                  type aname = string
-                  type event_handler = Xml.event_handler
-                  type mouse_event_handler = Xml.mouse_event_handler
-                  type keyboard_event_handler = Xml.keyboard_event_handler
-                  type touch_event_handler = Xml.touch_event_handler
-                  type attrib = Xml.attrib
-                  val float_attrib : aname -> float wrap -> attrib
-                  val int_attrib : aname -> int wrap -> attrib
-                  val string_attrib : aname -> string wrap -> attrib
-                  val space_sep_attrib : aname -> string list wrap -> attrib
-                  val comma_sep_attrib : aname -> string list wrap -> attrib
-                  val event_handler_attrib : aname -> event_handler -> attrib
-                  val mouse_event_handler_attrib :
-                    aname -> mouse_event_handler -> attrib
-                  val keyboard_event_handler_attrib :
-                    aname -> keyboard_event_handler -> attrib
-                  val touch_event_handler_attrib :
-                    aname -> touch_event_handler -> attrib
-                  val uri_attrib : aname -> uri wrap -> attrib
-                  val uris_attrib : aname -> uri list wrap -> attrib
-                  type elt = Xml.elt
-                  type ename = string
-                  val empty : unit -> elt
-                  val comment : string -> elt
-                  val pcdata : string wrap -> elt
-                  val encodedpcdata : string wrap -> elt
-                  val entity : string -> elt
-                  val leaf : ?a:attrib list -> ename -> elt
-                  val node : ?a:attrib list -> ename -> elt list_wrap -> elt
-                  val cdata : string -> elt
-                  val cdata_script : string -> elt
-                  val cdata_style : string -> elt
-                end
-              type 'a wrap = 'a Xml.W.t
-              type 'a list_wrap = 'a Xml.W.tlist
-              type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
-              type ('a, 'b, 'c) unary =
-                  ?a:'a attrib list -> 'b elt wrap -> 'c elt
-              type ('a, 'b, 'c) star =
-                  ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-              module Info : Xml_sigs.Info
-              type uri = Xml.uri
-              val string_of_uri : (uri, string) Xml.W.ft
-              val uri_of_string : (string, uri) Xml.W.ft
-              val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
-              val a_user_data :
-                Html_types.nmtoken ->
-                Html_types.text wrap -> [> `User_data ] attrib
-              val a_id : Html_types.text wrap -> [> `Id ] attrib
-              val a_title : Html_types.text wrap -> [> `Title ] attrib
-              val a_xml_lang :
-                Html_types.languagecode wrap -> [> `XML_lang ] attrib
-              val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-              val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-              val a_onafterprint :
-                Xml.event_handler -> [> `OnAfterPrint ] attrib
-              val a_onbeforeprint :
-                Xml.event_handler -> [> `OnBeforePrint ] attrib
-              val a_onbeforeunload :
-                Xml.event_handler -> [> `OnBeforeUnload ] attrib
-              val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-              val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-              val a_oncanplaythrough :
-                Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-              val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-              val a_ondurationchange :
-                Xml.event_handler -> [> `OnDurationChange ] attrib
-              val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-              val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-              val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-              val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-              val a_onformchange :
-                Xml.event_handler -> [> `OnFormChange ] attrib
-              val a_onforminput :
-                Xml.event_handler -> [> `OnFormInput ] attrib
-              val a_onhashchange :
-                Xml.event_handler -> [> `OnHashChange ] attrib
-              val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-              val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-              val a_onmousewheel :
-                Xml.event_handler -> [> `OnMouseWheel ] attrib
-              val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-              val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-              val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-              val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-              val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-              val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-              val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-              val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-              val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-              val a_onratechange :
-                Xml.event_handler -> [> `OnRateChange ] attrib
-              val a_onreadystatechange :
-                Xml.event_handler -> [> `OnReadyStateChange ] attrib
-              val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-              val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-              val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-              val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-              val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-              val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-              val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-              val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-              val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-              val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-              val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-              val a_ontimeupdate :
-                Xml.event_handler -> [> `OnTimeUpdate ] attrib
-              val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-              val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-              val a_onvolumechange :
-                Xml.event_handler -> [> `OnVolumeChange ] attrib
-              val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-              val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-              val a_onloadeddata :
-                Xml.event_handler -> [> `OnLoadedData ] attrib
-              val a_onloadedmetadata :
-                Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-              val a_onloadstart :
-                Xml.event_handler -> [> `OnLoadStart ] attrib
-              val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-              val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-              val a_oncontextmenu :
-                Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-              val a_ondblclick :
-                Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-              val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-              val a_ondragend :
-                Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-              val a_ondragenter :
-                Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-              val a_ondragleave :
-                Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-              val a_ondragover :
-                Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-              val a_ondragstart :
-                Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-              val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-              val a_onmousedown :
-                Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-              val a_onmouseup :
-                Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-              val a_onmouseover :
-                Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-              val a_onmousemove :
-                Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-              val a_onmouseout :
-                Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-              val a_ontouchstart :
-                Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-              val a_ontouchend :
-                Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-              val a_ontouchmove :
-                Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-              val a_ontouchcancel :
-                Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-              val a_onkeypress :
-                Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-              val a_onkeydown :
-                Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-              val a_onkeyup :
-                Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+                      val nil : unit -> 'a tlist
+                      val singleton : 'a t -> 'a tlist
+                      val cons : 'a t -> 'a tlist -> 'a tlist
+                      val append : 'a tlist -> 'a tlist -> 'a tlist
+                      val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                    end
+                  type 'a wrap = 'a W.t
+                  type 'a list_wrap = 'a W.tlist
+                  type uri = Xml.uri
+                  val string_of_uri : (uri, string) W.ft
+                  val uri_of_string : (string, uri) W.ft
+                  type aname = string
+                  type event_handler = Xml.event_handler
+                  type mouse_event_handler = Xml.mouse_event_handler
+                  type keyboard_event_handler = Xml.keyboard_event_handler
+                  type touch_event_handler = Xml.touch_event_handler
+                  type attrib = Xml.attrib
+                  val float_attrib : aname -> float wrap -> attrib
+                  val int_attrib : aname -> int wrap -> attrib
+                  val string_attrib : aname -> string wrap -> attrib
+                  val space_sep_attrib : aname -> string list wrap -> attrib
+                  val comma_sep_attrib : aname -> string list wrap -> attrib
+                  val event_handler_attrib : aname -> event_handler -> attrib
+                  val mouse_event_handler_attrib :
+                    aname -> mouse_event_handler -> attrib
+                  val keyboard_event_handler_attrib :
+                    aname -> keyboard_event_handler -> attrib
+                  val touch_event_handler_attrib :
+                    aname -> touch_event_handler -> attrib
+                  val uri_attrib : aname -> uri wrap -> attrib
+                  val uris_attrib : aname -> uri list wrap -> attrib
+                  type elt = Xml.elt
+                  type ename = string
+                  val empty : unit -> elt
+                  val comment : string -> elt
+                  val pcdata : string wrap -> elt
+                  val encodedpcdata : string wrap -> elt
+                  val entity : string -> elt
+                  val leaf : ?a:attrib list -> ename -> elt
+                  val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+                  val cdata : string -> elt
+                  val cdata_script : string -> elt
+                  val cdata_style : string -> elt
+                end
+              type 'a wrap = 'a Xml.W.t
+              type 'a list_wrap = 'a Xml.W.tlist
+              type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+              type ('a, 'b, 'c) unary =
+                  ?a:'a attrib list -> 'b elt wrap -> 'c elt
+              type ('a, 'b, 'c) star =
+                  ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              module Info : Xml_sigs.Info
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) Xml.W.ft
+              val uri_of_string : (string, uri) Xml.W.ft
+              val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+              val a_user_data :
+                Html_types.nmtoken ->
+                Html_types.text wrap -> [> `User_data ] attrib
+              val a_id : Html_types.text wrap -> [> `Id ] attrib
+              val a_title : Html_types.text wrap -> [> `Title ] attrib
+              val a_xml_lang :
+                Html_types.languagecode wrap -> [> `XML_lang ] attrib
+              val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
               val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
               val a_allowpaymentrequest :
                 unit -> [> `Allowpaymentrequest ] attrib
-              val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+              val a_autocomplete :
+                Html_types.autocomplete_option wrap ->
+                [> `Autocomplete ] attrib
               val a_async : unit -> [> `Async ] attrib
               val a_autofocus : unit -> [> `Autofocus ] attrib
               val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -5674,7 +8397,7 @@
                 Html_types.number wrap -> [> `Minlength ] attrib
               val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
               val a_formmethod :
-                [< `Get | `Post ] wrap -> [> `Method ] attrib
+                [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
               val a_multiple : unit -> [> `Multiple ] attrib
               val a_name : Html_types.text wrap -> [> `Name ] attrib
               val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -5718,6 +8441,8 @@
               val a_button_type :
                 [< `Button | `Reset | `Submit ] wrap ->
                 [> `Button_Type ] attrib
+              val a_script_type :
+                Html_types.script_type wrap -> [> `Script_type ] attrib
               val a_command_type :
                 [< `Checkbox | `Command | `Radio ] wrap ->
                 [> `Command_Type ] attrib
@@ -5790,8 +8515,8 @@
                  [< Html_types.body_content_fun ], [> Html_types.body ])
                 star
               val svg :
-                ?a:[< Html_types.svg_attrib ] Svg.F.Raw.attrib list ->
-                [< Html_types.svg_content ] Svg.F.Raw.elt list_wrap ->
+                ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+                [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
                 [> Html_types.svg ] elt
               val footer :
                 ([< Html_types.footer_attrib ],
@@ -5869,6 +8594,10 @@
                  [< Html_types.blockquote_content_fun ],
                  [> Html_types.blockquote ])
                 star
+              val dialog :
+                ([< Html_types.dialog_attrib ],
+                 [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+                star
               val div :
                 ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
                  [> Html_types.div ])
@@ -6062,6 +8791,7 @@
                   | `OnCanPlayThrough
                   | `OnChange
                   | `OnClick
+                  | `OnClose
                   | `OnContextMenu
                   | `OnDblClick
                   | `OnDrag
@@ -6337,6 +9067,86 @@
                   val comma_sep_attrib :
                     string -> string list wrap -> 'a attrib
                 end
+              val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+              val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+              val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+              val a_onbeforeunload :
+                string -> [> `OnBeforeUnload ] Raw'.attrib
+              val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+              val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+              val a_oncanplaythrough :
+                string -> [> `OnCanPlayThrough ] Raw'.attrib
+              val a_onchange : string -> [> `OnChange ] Raw'.attrib
+              val a_onclose : string -> [> `OnClose ] Raw'.attrib
+              val a_ondurationchange :
+                string -> [> `OnDurationChange ] Raw'.attrib
+              val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+              val a_onended : string -> [> `OnEnded ] Raw'.attrib
+              val a_onerror : string -> [> `OnError ] Raw'.attrib
+              val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+              val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+              val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+              val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+              val a_oninput : string -> [> `OnInput ] Raw'.attrib
+              val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+              val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+              val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+              val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+              val a_onpause : string -> [> `OnPause ] Raw'.attrib
+              val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+              val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+              val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+              val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+              val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+              val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+              val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+              val a_onreadystatechange :
+                string -> [> `OnReadyStateChange ] Raw'.attrib
+              val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+              val a_onresize : string -> [> `OnResize ] Raw'.attrib
+              val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+              val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+              val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+              val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+              val a_onshow : string -> [> `OnShow ] Raw'.attrib
+              val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+              val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+              val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+              val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+              val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+              val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+              val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+              val a_onvolumechange :
+                string -> [> `OnVolumeChange ] Raw'.attrib
+              val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+              val a_onload : string -> [> `OnLoad ] Raw'.attrib
+              val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+              val a_onloadedmetadata :
+                string -> [> `OnLoadedMetaData ] Raw'.attrib
+              val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+              val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+              val a_onclick : string -> [> `OnClick ] Raw'.attrib
+              val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+              val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+              val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+              val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+              val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+              val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+              val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+              val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+              val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+              val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+              val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+              val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+              val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+              val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+              val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+              val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+              val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+              val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+              val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+              val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+              val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
             end
           type 'a elt = 'a elt
           type doc = Html_types.html elt
@@ -6424,6 +9234,7 @@
           val a_oncanplaythrough :
             Xml.event_handler -> [> `OnCanPlayThrough ] attrib
           val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+          val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
           val a_ondurationchange :
             Xml.event_handler -> [> `OnDurationChange ] attrib
           val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
@@ -6512,7 +9323,8 @@
           val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
           val a_allowpaymentrequest :
             unit -> [> `Allowpaymentrequest ] attrib
-          val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+          val a_autocomplete :
+            Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
           val a_async : unit -> [> `Async ] attrib
           val a_autofocus : unit -> [> `Autofocus ] attrib
           val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -6630,7 +9442,8 @@
           val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
           val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
           val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-          val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+          val a_formmethod :
+            [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
           val a_multiple : unit -> [> `Multiple ] attrib
           val a_name : Html_types.text wrap -> [> `Name ] attrib
           val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -6671,6 +9484,8 @@
           val a_readonly : unit -> [> `ReadOnly ] attrib
           val a_button_type :
             [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+          val a_script_type :
+            Html_types.script_type wrap -> [> `Script_type ] attrib
           val a_command_type :
             [< `Checkbox | `Command | `Radio ] wrap ->
             [> `Command_Type ] attrib
@@ -6740,8 +9555,8 @@
              [> Html_types.body ])
             star
           val svg :
-            ?a:[< Html_types.svg_attrib ] Svg.F.Raw.attrib list ->
-            [< Html_types.svg_content ] Svg.F.Raw.elt list_wrap ->
+            ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+            [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
             [> Html_types.svg ] elt
           val footer :
             ([< Html_types.footer_attrib ],
@@ -6816,6 +9631,10 @@
              [< Html_types.blockquote_content_fun ],
              [> Html_types.blockquote ])
             star
+          val dialog :
+            ([< Html_types.dialog_attrib ],
+             [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+            star
           val div :
             ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
              [> Html_types.div ])
@@ -6999,6 +9818,7 @@
               | `OnCanPlayThrough
               | `OnChange
               | `OnClick
+              | `OnClose
               | `OnContextMenu
               | `OnDblClick
               | `OnDrag
@@ -7396,163 +10216,1161 @@
                 ('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
+                ?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
+                    | `OnClose
+                    | `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
+      module D :
+        sig
+          module Raw' :
+            sig
+              type 'a elt = 'a elt
+              type doc = Html_types.html elt
+              type 'a attrib = 'a attrib
+              module Xml :
+                sig
+                  module W :
+                    sig
+                      type 'a t = 'a Xml.W.t
+                      val return : 'a -> 'a t
+                      type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                      val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                      type 'a tlist = 'a Xml.W.tlist
+                      val nil : unit -> 'a tlist
+                      val singleton : 'a t -> 'a tlist
+                      val cons : 'a t -> 'a tlist -> 'a tlist
+                      val append : 'a tlist -> 'a tlist -> 'a tlist
+                      val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                    end
+                  type 'a wrap = 'a W.t
+                  type 'a list_wrap = 'a W.tlist
+                  type uri = Xml.uri
+                  val string_of_uri : (uri, string) W.ft
+                  val uri_of_string : (string, uri) W.ft
+                  type aname = string
+                  type event_handler = Xml.event_handler
+                  type mouse_event_handler = Xml.mouse_event_handler
+                  type keyboard_event_handler = Xml.keyboard_event_handler
+                  type touch_event_handler = Xml.touch_event_handler
+                  type attrib = Xml.attrib
+                  val float_attrib : aname -> float wrap -> attrib
+                  val int_attrib : aname -> int wrap -> attrib
+                  val string_attrib : aname -> string wrap -> attrib
+                  val space_sep_attrib : aname -> string list wrap -> attrib
+                  val comma_sep_attrib : aname -> string list wrap -> attrib
+                  val event_handler_attrib : aname -> event_handler -> attrib
+                  val mouse_event_handler_attrib :
+                    aname -> mouse_event_handler -> attrib
+                  val keyboard_event_handler_attrib :
+                    aname -> keyboard_event_handler -> attrib
+                  val touch_event_handler_attrib :
+                    aname -> touch_event_handler -> attrib
+                  val uri_attrib : aname -> uri wrap -> attrib
+                  val uris_attrib : aname -> uri list wrap -> attrib
+                  type elt = Xml.elt
+                  type ename = string
+                  val empty : unit -> elt
+                  val comment : string -> elt
+                  val pcdata : string wrap -> elt
+                  val encodedpcdata : string wrap -> elt
+                  val entity : string -> elt
+                  val leaf : ?a:attrib list -> ename -> elt
+                  val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+                  val cdata : string -> elt
+                  val cdata_script : string -> elt
+                  val cdata_style : string -> elt
+                end
+              type 'a wrap = 'a Xml.W.t
+              type 'a list_wrap = 'a Xml.W.tlist
+              type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+              type ('a, 'b, 'c) unary =
+                  ?a:'a attrib list -> 'b elt wrap -> 'c elt
+              type ('a, 'b, 'c) star =
+                  ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              module Info : Xml_sigs.Info
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) Xml.W.ft
+              val uri_of_string : (string, uri) Xml.W.ft
+              val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+              val a_user_data :
+                Html_types.nmtoken ->
+                Html_types.text wrap -> [> `User_data ] attrib
+              val a_id : Html_types.text wrap -> [> `Id ] attrib
+              val a_title : Html_types.text wrap -> [> `Title ] attrib
+              val a_xml_lang :
+                Html_types.languagecode wrap -> [> `XML_lang ] attrib
+              val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
+              val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+              val a_onafterprint :
+                Xml.event_handler -> [> `OnAfterPrint ] attrib
+              val a_onbeforeprint :
+                Xml.event_handler -> [> `OnBeforePrint ] attrib
+              val a_onbeforeunload :
+                Xml.event_handler -> [> `OnBeforeUnload ] attrib
+              val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
+              val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
+              val a_oncanplaythrough :
+                Xml.event_handler -> [> `OnCanPlayThrough ] attrib
+              val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+              val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
+              val a_ondurationchange :
+                Xml.event_handler -> [> `OnDurationChange ] attrib
+              val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
+              val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
+              val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+              val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
+              val a_onformchange :
+                Xml.event_handler -> [> `OnFormChange ] attrib
+              val a_onforminput :
+                Xml.event_handler -> [> `OnFormInput ] attrib
+              val a_onhashchange :
+                Xml.event_handler -> [> `OnHashChange ] attrib
+              val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
+              val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
+              val a_onmousewheel :
+                Xml.event_handler -> [> `OnMouseWheel ] attrib
+              val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
+              val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
+              val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
+              val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
+              val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
+              val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
+              val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
+              val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
+              val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
+              val a_onratechange :
+                Xml.event_handler -> [> `OnRateChange ] attrib
+              val a_onreadystatechange :
+                Xml.event_handler -> [> `OnReadyStateChange ] attrib
+              val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
+              val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+              val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+              val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
+              val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
+              val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
+              val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
+              val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
+              val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
+              val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
+              val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
+              val a_ontimeupdate :
+                Xml.event_handler -> [> `OnTimeUpdate ] attrib
+              val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
+              val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+              val a_onvolumechange :
+                Xml.event_handler -> [> `OnVolumeChange ] attrib
+              val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
+              val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+              val a_onloadeddata :
+                Xml.event_handler -> [> `OnLoadedData ] attrib
+              val a_onloadedmetadata :
+                Xml.event_handler -> [> `OnLoadedMetaData ] attrib
+              val a_onloadstart :
+                Xml.event_handler -> [> `OnLoadStart ] attrib
+              val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
+              val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+              val a_oncontextmenu :
+                Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
+              val a_ondblclick :
+                Xml.mouse_event_handler -> [> `OnDblClick ] attrib
+              val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
+              val a_ondragend :
+                Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
+              val a_ondragenter :
+                Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
+              val a_ondragleave :
+                Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
+              val a_ondragover :
+                Xml.mouse_event_handler -> [> `OnDragOver ] attrib
+              val a_ondragstart :
+                Xml.mouse_event_handler -> [> `OnDragStart ] attrib
+              val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
+              val a_onmousedown :
+                Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+              val a_onmouseup :
+                Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+              val a_onmouseover :
+                Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+              val a_onmousemove :
+                Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+              val a_onmouseout :
+                Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+              val a_ontouchstart :
+                Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+              val a_ontouchend :
+                Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+              val a_ontouchmove :
+                Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+              val a_ontouchcancel :
+                Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+              val a_onkeypress :
+                Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
+              val a_onkeydown :
+                Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
+              val a_onkeyup :
+                Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+              val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
+              val a_allowpaymentrequest :
+                unit -> [> `Allowpaymentrequest ] attrib
+              val a_autocomplete :
+                Html_types.autocomplete_option wrap ->
+                [> `Autocomplete ] attrib
+              val a_async : unit -> [> `Async ] attrib
+              val a_autofocus : unit -> [> `Autofocus ] attrib
+              val a_autoplay : unit -> [> `Autoplay ] attrib
+              val a_muted : unit -> [> `Muted ] attrib
+              val a_crossorigin :
+                [< `Anonymous | `Use_credentials ] wrap ->
+                [> `Crossorigin ] attrib
+              val a_integrity : string wrap -> [> `Integrity ] attrib
+              val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
+              val a_challenge :
+                Html_types.text wrap -> [> `Challenge ] attrib
+              val a_contenteditable :
+                bool wrap -> [> `Contenteditable ] attrib
+              val a_contextmenu :
+                Html_types.idref wrap -> [> `Contextmenu ] attrib
+              val a_controls : unit -> [> `Controls ] attrib
+              val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
+              val a_draggable : bool wrap -> [> `Draggable ] attrib
+              val a_form : Html_types.idref wrap -> [> `Form ] attrib
+              val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
+              val a_formenctype :
+                Html_types.contenttype wrap -> [> `Formenctype ] attrib
+              val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
+              val a_formtarget :
+                Html_types.text wrap -> [> `Formtarget ] attrib
+              val a_hidden : unit -> [> `Hidden ] attrib
+              val a_high : Html_types.float_number wrap -> [> `High ] attrib
+              val a_icon : Xml.uri wrap -> [> `Icon ] attrib
+              val a_ismap : unit -> [> `Ismap ] attrib
+              val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
+              val a_list : Html_types.idref wrap -> [> `List ] attrib
+              val a_loop : unit -> [> `Loop ] attrib
+              val a_low : Html_types.float_number wrap -> [> `High ] attrib
+              val a_max : Html_types.float_number wrap -> [> `Max ] attrib
+              val a_input_max :
+                Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
+              val a_min : Html_types.float_number wrap -> [> `Min ] attrib
+              val a_input_min :
+                Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
+              val a_inputmode :
+                [< `Decimal
+                 | `Email
+                 | `None
+                 | `Numeric
+                 | `Search
+                 | `Tel
+                 | `Text
+                 | `Url ]
+                wrap -> [> `Inputmode ] attrib
+              val a_novalidate : unit -> [> `Novalidate ] attrib
+              val a_open : unit -> [> `Open ] attrib
+              val a_optimum :
+                Html_types.float_number wrap -> [> `Optimum ] attrib
+              val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
+              val a_placeholder :
+                Html_types.text wrap -> [> `Placeholder ] attrib
+              val a_poster : Xml.uri wrap -> [> `Poster ] attrib
+              val a_preload :
+                [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
+              val a_pubdate : unit -> [> `Pubdate ] attrib
+              val a_radiogroup :
+                Html_types.text wrap -> [> `Radiogroup ] attrib
+              val a_referrerpolicy :
+                Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
+              val a_required : unit -> [> `Required ] attrib
+              val a_reversed : unit -> [> `Reversed ] attrib
+              val a_sandbox :
+                [< Html_types.sandbox_token ] list wrap ->
+                [> `Sandbox ] attrib
+              val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
+              val a_scoped : unit -> [> `Scoped ] attrib
+              val a_seamless : unit -> [> `Seamless ] attrib
+              val a_sizes :
+                (Html_types.number * Html_types.number) list option wrap ->
+                [> `Sizes ] attrib
+              val a_span : Html_types.number wrap -> [> `Span ] attrib
+              val a_srclang :
+                Html_types.nmtoken wrap -> [> `XML_lang ] attrib
+              type image_candidate =
+                  [ `Url of uri
+                  | `Url_pixel of uri * Html_types.float_number
+                  | `Url_width of uri * Html_types.number ]
+              val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
+              val a_img_sizes :
+                Html_types.text list wrap -> [> `Img_sizes ] attrib
+              val a_start : Html_types.number wrap -> [> `Start ] attrib
+              val a_step :
+                Html_types.float_number option wrap -> [> `Step ] attrib
+              val a_translate :
+                [< `No | `Yes ] wrap -> [> `Translate ] attrib
+              val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
+              val a_version : Html_types.cdata wrap -> [> `Version ] attrib
+              val a_xmlns :
+                [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
+              val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
+              val a_cite : Xml.uri wrap -> [> `Cite ] attrib
+              val a_xml_space :
+                [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
+              val a_accesskey :
+                Html_types.character wrap -> [> `Accesskey ] attrib
+              val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
+              val a_accept_charset :
+                Html_types.charsets wrap -> [> `Accept_charset ] attrib
+              val a_accept :
+                Html_types.contenttypes wrap -> [> `Accept ] attrib
+              val a_href : Xml.uri wrap -> [> `Href ] attrib
+              val a_hreflang :
+                Html_types.languagecode wrap -> [> `Hreflang ] attrib
+              val a_download : string option wrap -> [> `Download ] attrib
+              val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
+              val a_tabindex :
+                Html_types.number wrap -> [> `Tabindex ] attrib
+              val a_mime_type :
+                Html_types.contenttype wrap -> [> `Mime_type ] attrib
+              val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
+              val a_action : Xml.uri wrap -> [> `Action ] attrib
+              val a_checked : unit -> [> `Checked ] attrib
+              val a_cols : Html_types.number wrap -> [> `Cols ] attrib
+              val a_enctype :
+                Html_types.contenttype wrap -> [> `Enctype ] attrib
+              val a_label_for :
+                Html_types.idref wrap -> [> `Label_for ] attrib
+              val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
+              val a_output_for :
+                Html_types.idrefs wrap -> [> `Output_for ] attrib
+              val a_for_list :
+                Html_types.idrefs wrap -> [> `Output_for ] attrib
+              val a_maxlength :
+                Html_types.number wrap -> [> `Maxlength ] attrib
+              val a_minlength :
+                Html_types.number wrap -> [> `Minlength ] attrib
+              val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
+              val a_formmethod :
+                [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
+              val a_multiple : unit -> [> `Multiple ] attrib
+              val a_name : Html_types.text wrap -> [> `Name ] attrib
+              val a_rows : Html_types.number wrap -> [> `Rows ] attrib
+              val a_selected : unit -> [> `Selected ] attrib
+              val a_size : Html_types.number wrap -> [> `Size ] attrib
+              val a_src : Xml.uri wrap -> [> `Src ] attrib
+              val a_input_type :
+                [< `Button
+                 | `Checkbox
+                 | `Color
+                 | `Date
+                 | `Datetime
+                 | `Datetime_local
+                 | `Email
+                 | `File
+                 | `Hidden
+                 | `Image
+                 | `Month
+                 | `Number
+                 | `Password
+                 | `Radio
+                 | `Range
+                 | `Reset
+                 | `Search
+                 | `Submit
+                 | `Tel
+                 | `Text
+                 | `Time
+                 | `Url
+                 | `Week ]
+                wrap -> [> `Input_Type ] attrib
+              val a_text_value :
+                Html_types.text wrap -> [> `Text_Value ] attrib
+              val a_int_value :
+                Html_types.number wrap -> [> `Int_Value ] attrib
+              val a_value : Html_types.cdata wrap -> [> `Value ] attrib
+              val a_float_value :
+                Html_types.float_number wrap -> [> `Float_Value ] attrib
+              val a_disabled : unit -> [> `Disabled ] attrib
+              val a_readonly : unit -> [> `ReadOnly ] attrib
+              val a_button_type :
+                [< `Button | `Reset | `Submit ] wrap ->
+                [> `Button_Type ] attrib
+              val a_script_type :
+                Html_types.script_type wrap -> [> `Script_type ] attrib
+              val a_command_type :
+                [< `Checkbox | `Command | `Radio ] wrap ->
+                [> `Command_Type ] attrib
+              val a_menu_type :
+                [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
+              val a_label : Html_types.text wrap -> [> `Label ] attrib
+              val a_align :
+                [< `Char | `Justify | `Left | `Right ] wrap ->
+                [> `Align ] attrib
+              val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
+              val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
+              val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
+              val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
+              val a_scope :
+                [< `Col | `Colgroup | `Row | `Rowgroup ] wrap ->
+                [> `Scope ] attrib
+              val a_summary : Html_types.text wrap -> [> `Summary ] attrib
+              val a_border : Html_types.pixels wrap -> [> `Border ] attrib
+              val a_rules :
+                [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
+                [> `Rules ] attrib
+              val a_char : Html_types.character wrap -> [> `Char ] attrib
+              val a_alt : Html_types.text wrap -> [> `Alt ] attrib
+              val a_height : Html_types.number wrap -> [> `Height ] attrib
+              val a_width : Html_types.number wrap -> [> `Width ] attrib
+              type shape = [ `Circle | `Default | `Poly | `Rect ]
+              val a_shape : shape wrap -> [> `Shape ] attrib
+              val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
+              val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
+              val a_data : Xml.uri wrap -> [> `Data ] attrib
+              val a_codetype :
+                Html_types.contenttype wrap -> [> `Codetype ] attrib
+              val a_frameborder :
+                [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
+              val a_marginheight :
+                Html_types.pixels wrap -> [> `Marginheight ] attrib
+              val a_marginwidth :
+                Html_types.pixels wrap -> [> `Marginwidth ] attrib
+              val a_scrolling :
+                [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
+              val a_target :
+                Html_types.frametarget wrap -> [> `Target ] attrib
+              val a_content : Html_types.text wrap -> [> `Content ] attrib
+              val a_http_equiv :
+                Html_types.text wrap -> [> `Http_equiv ] attrib
+              val a_defer : unit -> [> `Defer ] attrib
+              val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
+              val a_style : string wrap -> [> `Style_Attr ] attrib
+              val a_property : string wrap -> [> `Property ] attrib
+              val a_role : string list wrap -> [> `Role ] attrib
+              val a_aria : string -> string list wrap -> [> `Aria ] attrib
+              val txt : string wrap -> [> Html_types.txt ] elt
+              val html :
+                ?a:Html_types.html_attrib attrib list ->
+                [< Html_types.head ] elt wrap ->
+                [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
+              val head :
+                ?a:Html_types.head_attrib attrib list ->
+                [< Html_types.title ] elt wrap ->
+                Html_types.head_content_fun elt list_wrap ->
+                [> Html_types.head ] elt
+              val base :
+                ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
+              val title :
+                (Html_types.title_attrib, [< Html_types.title_content_fun ],
+                 [> Html_types.title ])
+                unary
+              val body :
+                ([< Html_types.body_attrib ],
+                 [< Html_types.body_content_fun ], [> Html_types.body ])
+                star
+              val svg :
+                ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+                [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
+                [> Html_types.svg ] elt
+              val footer :
+                ([< Html_types.footer_attrib ],
+                 [< Html_types.footer_content_fun ], [> Html_types.footer ])
+                star
+              val header :
+                ([< Html_types.header_attrib ],
+                 [< Html_types.header_content_fun ], [> Html_types.header ])
+                star
+              val section :
+                ([< Html_types.section_attrib ],
+                 [< Html_types.section_content_fun ],
+                 [> Html_types.section ])
+                star
+              val nav :
+                ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
+                 [> Html_types.nav ])
+                star
+              val h1 :
+                ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
+                 [> Html_types.h1 ])
+                star
+              val h2 :
+                ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
+                 [> Html_types.h2 ])
+                star
+              val h3 :
+                ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
+                 [> Html_types.h3 ])
+                star
+              val h4 :
+                ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
+                 [> Html_types.h4 ])
+                star
+              val h5 :
+                ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
+                 [> Html_types.h5 ])
+                star
+              val h6 :
+                ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
+                 [> Html_types.h6 ])
+                star
+              val hgroup :
+                ([< Html_types.hgroup_attrib ],
+                 [< Html_types.hgroup_content_fun ], [> Html_types.hgroup ])
+                star
+              val address :
+                ([< Html_types.address_attrib ],
+                 [< Html_types.address_content_fun ],
+                 [> Html_types.address ])
+                star
+              val article :
+                ([< Html_types.article_attrib ],
+                 [< Html_types.article_content_fun ],
+                 [> Html_types.article ])
+                star
+              val aside :
+                ([< Html_types.aside_attrib ],
+                 [< Html_types.aside_content_fun ], [> Html_types.aside ])
+                star
+              val main :
+                ([< Html_types.main_attrib ],
+                 [< Html_types.main_content_fun ], [> Html_types.main ])
+                star
+              val p :
+                ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
+                 [> Html_types.p ])
+                star
+              val pre :
+                ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
+                 [> Html_types.pre ])
+                star
+              val blockquote :
+                ([< Html_types.blockquote_attrib ],
+                 [< Html_types.blockquote_content_fun ],
+                 [> Html_types.blockquote ])
+                star
+              val dialog :
+                ([< Html_types.dialog_attrib ],
+                 [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+                star
+              val div :
+                ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
+                 [> Html_types.div ])
+                star
+              val dl :
+                ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
+                 [> Html_types.dl ])
+                star
+              val ol :
+                ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
+                 [> Html_types.ol ])
+                star
+              val ul :
+                ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
+                 [> Html_types.ul ])
+                star
+              val dd :
+                ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
+                 [> Html_types.dd ])
+                star
+              val dt :
+                ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
+                 [> Html_types.dt ])
+                star
+              val li :
+                ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
+                 [> Html_types.li ])
+                star
+              val figcaption :
+                ([< Html_types.figcaption_attrib ],
+                 [< Html_types.figcaption_content_fun ],
+                 [> Html_types.figcaption ])
+                star
+              val figure :
+                ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
+                            | `Top of [< Html_types.figcaption ] elt wrap ] ->
+                ([< Html_types.figure_attrib ],
+                 [< Html_types.figure_content_fun ], [> Html_types.figure ])
+                star
+              val hr :
+                ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
+              val b :
+                ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
+                 [> Html_types.b ])
+                star
+              val i :
+                ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
+                 [> Html_types.i ])
+                star
+              val u :
+                ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
+                 [> Html_types.u ])
+                star
+              val small :
+                ([< Html_types.small_attrib ],
+                 [< Html_types.small_content_fun ], [> Html_types.small ])
+                star
+              val sub :
+                ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
+                 [> Html_types.sub ])
+                star
+              val sup :
+                ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
+                 [> Html_types.sup ])
+                star
+              val mark :
+                ([< Html_types.mark_attrib ],
+                 [< Html_types.mark_content_fun ], [> Html_types.mark ])
+                star
+              val wbr :
+                ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
+              val bdo :
+                dir:[< `Ltr | `Rtl ] wrap ->
+                ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
+                 [> Html_types.bdo ])
+                star
+              val abbr :
+                ([< Html_types.abbr_attrib ],
+                 [< Html_types.abbr_content_fun ], [> Html_types.abbr ])
+                star
+              val br :
+                ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
+              val cite :
+                ([< Html_types.cite_attrib ],
+                 [< Html_types.cite_content_fun ], [> Html_types.cite ])
+                star
+              val code :
+                ([< Html_types.code_attrib ],
+                 [< Html_types.code_content_fun ], [> Html_types.code ])
+                star
+              val dfn :
+                ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
+                 [> Html_types.dfn ])
+                star
+              val em :
+                ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
+                 [> Html_types.em ])
+                star
+              val kbd :
+                ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
+                 [> Html_types.kbd ])
+                star
+              val q :
+                ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
+                 [> Html_types.q ])
+                star
+              val samp :
+                ([< Html_types.samp_attrib ],
+                 [< Html_types.samp_content_fun ], [> Html_types.samp ])
+                star
+              val span :
+                ([< Html_types.span_attrib ],
+                 [< Html_types.span_content_fun ], [> Html_types.span ])
+                star
+              val strong :
+                ([< Html_types.strong_attrib ],
+                 [< Html_types.strong_content_fun ], [> Html_types.strong ])
+                star
+              val time :
+                ([< Html_types.time_attrib ],
+                 [< Html_types.time_content_fun ], [> Html_types.time ])
+                star
+              val var :
+                ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
+                 [> Html_types.var ])
+                star
+              val a :
+                ([< Html_types.a_attrib ], 'a, [> 'a Html_types.a ]) star
+              val del :
+                ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
+              val ins :
+                ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
+              val img :
+                src:Xml.uri wrap ->
+                alt:Html_types.text wrap ->
+                ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
+              val picture :
+                img:[< Html_types.img ] elt wrap ->
+                ([< Html_types.picture_attrib ],
+                 [< Html_types.picture_content_fun ],
+                 [> Html_types.picture ])
+                star
+              val iframe :
+                ([< Html_types.iframe_attrib ],
+                 [< Html_types.iframe_content_fun ], [> Html_types.iframe ])
+                star
+              val object_ :
+                ?params:[< Html_types.param ] elt list_wrap ->
+                ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
+              val param :
+                ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
+              val embed :
+                ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
+              val audio :
+                ?src:Xml.uri wrap ->
+                ?srcs:[< Html_types.source ] elt list_wrap ->
+                ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ])
+                star
+              val video :
+                ?src:Xml.uri wrap ->
+                ?srcs:[< Html_types.source ] elt list_wrap ->
+                ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ])
+                star
+              val canvas :
+                ([< Html_types.canvas_attrib ], 'a,
+                 [> 'a Html_types.canvas ])
+                star
+              val source :
+                ([< Html_types.source_attrib ], [> Html_types.source ])
+                nullary
+              val area :
+                alt:Html_types.text wrap ->
+                ([< `Accesskey
+                  | `Alt
+                  | `Aria
+                  | `Class
+                  | `Contenteditable
+                  | `Contextmenu
+                  | `Coords
+                  | `Dir
+                  | `Draggable
+                  | `Hidden
+                  | `Hreflang
+                  | `Id
+                  | `Lang
+                  | `Media
+                  | `Mime_type
+                  | `OnAbort
+                  | `OnBlur
+                  | `OnCanPlay
+                  | `OnCanPlayThrough
+                  | `OnChange
+                  | `OnClick
+                  | `OnClose
+                  | `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
+                  | `Rel
+                  | `Role
+                  | `Shape
+                  | `Spellcheck
+                  | `Style_Attr
+                  | `Tabindex
+                  | `Target
+                  | `Title
+                  | `Translate
+                  | `User_data
+                  | `XML_lang
+                  | `XMLns ],
+                 [> Html_types.area ])
+                nullary
+              val map :
+                ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
+              val caption :
+                ([< Html_types.caption_attrib ],
+                 [< Html_types.caption_content_fun ],
+                 [> Html_types.caption ])
+                star
+              val table :
+                ?caption:[< Html_types.caption ] elt wrap ->
+                ?columns:[< Html_types.colgroup ] elt list_wrap ->
+                ?thead:[< Html_types.thead ] elt wrap ->
+                ?tfoot:[< Html_types.tfoot ] elt wrap ->
+                ([< Html_types.table_attrib ],
+                 [< Html_types.table_content_fun ], [> Html_types.table ])
+                star
+              val tablex :
+                ?caption:[< Html_types.caption ] elt wrap ->
+                ?columns:[< Html_types.colgroup ] elt list_wrap ->
+                ?thead:[< Html_types.thead ] elt wrap ->
+                ?tfoot:[< Html_types.tfoot ] elt wrap ->
+                ([< Html_types.tablex_attrib ],
+                 [< Html_types.tablex_content_fun ], [> Html_types.tablex ])
+                star
+              val colgroup :
+                ([< Html_types.colgroup_attrib ],
+                 [< Html_types.colgroup_content_fun ],
+                 [> Html_types.colgroup ])
+                star
+              val col :
+                ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
+              val thead :
+                ([< Html_types.thead_attrib ],
+                 [< Html_types.thead_content_fun ], [> Html_types.thead ])
+                star
+              val tbody :
+                ([< Html_types.tbody_attrib ],
+                 [< Html_types.tbody_content_fun ], [> Html_types.tbody ])
+                star
+              val tfoot :
+                ([< Html_types.tfoot_attrib ],
+                 [< Html_types.tfoot_content_fun ], [> Html_types.tfoot ])
+                star
+              val td :
+                ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
+                 [> Html_types.td ])
+                star
+              val th :
+                ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
+                 [> Html_types.th ])
+                star
+              val tr :
+                ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
+                 [> Html_types.tr ])
+                star
+              val form :
+                ([< Html_types.form_attrib ],
+                 [< Html_types.form_content_fun ], [> Html_types.form ])
+                star
+              val fieldset :
+                ?legend:[< Html_types.legend ] elt wrap ->
+                ([< Html_types.fieldset_attrib ],
+                 [< Html_types.fieldset_content_fun ],
+                 [> Html_types.fieldset ])
+                star
+              val legend :
+                ([< Html_types.legend_attrib ],
+                 [< Html_types.legend_content_fun ], [> Html_types.legend ])
+                star
+              val label :
+                ([< Html_types.label_attrib ],
+                 [< Html_types.label_content_fun ], [> Html_types.label ])
+                star
+              val input :
+                ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
               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
+                ([< Html_types.button_attrib ],
+                 [< Html_types.button_content_fun ], [> Html_types.button ])
+                star
               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
+                ([< Html_types.select_attrib ],
+                 [< Html_types.select_content_fun ], [> Html_types.select ])
+                star
+              val datalist :
+                ?children:[< `Options of
+                               [< Html_types.selectoption ] elt list_wrap
+                           | `Phras of [< Html_types.phrasing ] elt list_wrap
+                          ] ->
+                ([< Html_types.datalist_attrib ], [> Html_types.datalist ])
+                nullary
+              val optgroup :
+                label:Html_types.text wrap ->
+                ([< Html_types.optgroup_attrib ],
+                 [< Html_types.optgroup_content_fun ],
+                 [> Html_types.optgroup ])
+                star
+              val option :
+                ([< Html_types.option_attrib ],
+                 [< Html_types.option_content_fun ],
+                 [> Html_types.selectoption ])
+                unary
+              val textarea :
+                ([< Html_types.textarea_attrib ],
+                 [< Html_types.textarea_content_fun ],
+                 [> Html_types.textarea ])
+                unary
+              val keygen :
+                ([< Html_types.keygen_attrib ], [> Html_types.keygen ])
+                nullary
+              val progress :
+                ([< Html_types.progress_attrib ],
+                 [< Html_types.progress_content_fun ],
+                 [> Html_types.progress ])
+                star
+              val meter :
+                ([< Html_types.meter_attrib ],
+                 [< Html_types.meter_content_fun ], [> Html_types.meter ])
+                star
+              val output_elt :
+                ([< Html_types.output_elt_attrib ],
+                 [< Html_types.output_elt_content_fun ],
+                 [> Html_types.output_elt ])
+                star
+              val entity : string -> [> Html_types.txt ] elt
+              val space : unit -> [> Html_types.txt ] elt
+              val cdata : string -> [> Html_types.txt ] elt
+              val cdata_script : string -> [> Html_types.txt ] elt
+              val cdata_style : string -> [> Html_types.txt ] elt
+              val details :
+                [< Html_types.summary ] elt wrap ->
+                ([< Html_types.details_attrib ],
+                 [< Html_types.details_content_fun ],
+                 [> Html_types.details ])
+                star
+              val summary :
+                ([< Html_types.summary_attrib ],
+                 [< Html_types.summary_content_fun ],
+                 [> Html_types.summary ])
+                star
+              val command :
+                label:Html_types.text wrap ->
+                ([< Html_types.command_attrib ], [> Html_types.command ])
+                nullary
+              val menu :
+                ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
+                           | `Lis of
+                               [< `Li of [< Html_types.common ] ] elt
+                               list_wrap ] ->
+                ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
+              val script :
+                ([< Html_types.script_attrib ],
+                 [< Html_types.script_content_fun ], [> Html_types.script ])
+                unary
+              val noscript :
+                ([< Html_types.noscript_attrib ],
+                 [< Html_types.noscript_content_fun ],
+                 [> Html_types.noscript ])
+                star
+              val template :
+                ([< Html_types.template_attrib ],
+                 [< Html_types.template_content_fun ],
+                 [> Html_types.template ])
+                star
+              val meta :
+                ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
+              val style :
+                ([< Html_types.style_attrib ],
+                 [< Html_types.style_content_fun ], [> Html_types.style ])
+                star
+              val link :
+                rel:Html_types.linktypes wrap ->
+                href:Xml.uri wrap ->
+                ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
+              val rt :
+                ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
+                 [> Html_types.rt ])
+                star
+              val rp :
+                ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
+                 [> Html_types.rp ])
+                star
+              val ruby :
+                ([< Html_types.ruby_attrib ],
+                 [< Html_types.ruby_content_fun ], [> Html_types.ruby ])
+                star
+              val pcdata : string wrap -> [> Html_types.pcdata ] elt
+              val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+              val tot : Xml.elt -> 'a elt
+              val totl : Xml.elt list_wrap -> 'a elt list_wrap
+              val toelt : 'a elt -> Xml.elt
+              val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+              val doc_toelt : doc -> Xml.elt
+              val to_xmlattribs : 'a attrib list -> Xml.attrib list
+              val to_attrib : Xml.attrib -> 'a attrib
+              module Unsafe :
+                sig
+                  val data : string wrap -> 'a elt
+                  val node :
+                    string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+                  val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+                  val coerce_elt : 'a elt -> 'b elt
+                  val string_attrib : string -> string wrap -> 'a attrib
+                  val float_attrib : string -> float wrap -> 'a attrib
+                  val int_attrib : string -> int wrap -> 'a attrib
+                  val uri_attrib : string -> uri wrap -> 'a attrib
+                  val space_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                  val comma_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                end
             end
-        end
-      module D :
-        sig
           module Raw :
             sig
               type 'a elt = 'a elt
@@ -7631,118 +11449,12 @@
               val a_xml_lang :
                 Html_types.languagecode wrap -> [> `XML_lang ] attrib
               val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-              val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-              val a_onafterprint :
-                Xml.event_handler -> [> `OnAfterPrint ] attrib
-              val a_onbeforeprint :
-                Xml.event_handler -> [> `OnBeforePrint ] attrib
-              val a_onbeforeunload :
-                Xml.event_handler -> [> `OnBeforeUnload ] attrib
-              val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-              val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-              val a_oncanplaythrough :
-                Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-              val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-              val a_ondurationchange :
-                Xml.event_handler -> [> `OnDurationChange ] attrib
-              val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-              val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-              val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-              val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-              val a_onformchange :
-                Xml.event_handler -> [> `OnFormChange ] attrib
-              val a_onforminput :
-                Xml.event_handler -> [> `OnFormInput ] attrib
-              val a_onhashchange :
-                Xml.event_handler -> [> `OnHashChange ] attrib
-              val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-              val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-              val a_onmousewheel :
-                Xml.event_handler -> [> `OnMouseWheel ] attrib
-              val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-              val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-              val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-              val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-              val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-              val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-              val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-              val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-              val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-              val a_onratechange :
-                Xml.event_handler -> [> `OnRateChange ] attrib
-              val a_onreadystatechange :
-                Xml.event_handler -> [> `OnReadyStateChange ] attrib
-              val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-              val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-              val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-              val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-              val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-              val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-              val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-              val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-              val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-              val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-              val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-              val a_ontimeupdate :
-                Xml.event_handler -> [> `OnTimeUpdate ] attrib
-              val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-              val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-              val a_onvolumechange :
-                Xml.event_handler -> [> `OnVolumeChange ] attrib
-              val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-              val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-              val a_onloadeddata :
-                Xml.event_handler -> [> `OnLoadedData ] attrib
-              val a_onloadedmetadata :
-                Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-              val a_onloadstart :
-                Xml.event_handler -> [> `OnLoadStart ] attrib
-              val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-              val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-              val a_oncontextmenu :
-                Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-              val a_ondblclick :
-                Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-              val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-              val a_ondragend :
-                Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-              val a_ondragenter :
-                Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-              val a_ondragleave :
-                Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-              val a_ondragover :
-                Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-              val a_ondragstart :
-                Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-              val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-              val a_onmousedown :
-                Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-              val a_onmouseup :
-                Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-              val a_onmouseover :
-                Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-              val a_onmousemove :
-                Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-              val a_onmouseout :
-                Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-              val a_ontouchstart :
-                Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-              val a_ontouchend :
-                Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-              val a_ontouchmove :
-                Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-              val a_ontouchcancel :
-                Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-              val a_onkeypress :
-                Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-              val a_onkeydown :
-                Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-              val a_onkeyup :
-                Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
               val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
               val a_allowpaymentrequest :
                 unit -> [> `Allowpaymentrequest ] attrib
-              val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+              val a_autocomplete :
+                Html_types.autocomplete_option wrap ->
+                [> `Autocomplete ] attrib
               val a_async : unit -> [> `Async ] attrib
               val a_autofocus : unit -> [> `Autofocus ] attrib
               val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -7876,7 +11588,7 @@
                 Html_types.number wrap -> [> `Minlength ] attrib
               val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
               val a_formmethod :
-                [< `Get | `Post ] wrap -> [> `Method ] attrib
+                [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
               val a_multiple : unit -> [> `Multiple ] attrib
               val a_name : Html_types.text wrap -> [> `Name ] attrib
               val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -7920,6 +11632,8 @@
               val a_button_type :
                 [< `Button | `Reset | `Submit ] wrap ->
                 [> `Button_Type ] attrib
+              val a_script_type :
+                Html_types.script_type wrap -> [> `Script_type ] attrib
               val a_command_type :
                 [< `Checkbox | `Command | `Radio ] wrap ->
                 [> `Command_Type ] attrib
@@ -7992,8 +11706,8 @@
                  [< Html_types.body_content_fun ], [> Html_types.body ])
                 star
               val svg :
-                ?a:[< Html_types.svg_attrib ] Svg.D.Raw.attrib list ->
-                [< Html_types.svg_content ] Svg.D.Raw.elt list_wrap ->
+                ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+                [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
                 [> Html_types.svg ] elt
               val footer :
                 ([< Html_types.footer_attrib ],
@@ -8071,6 +11785,10 @@
                  [< Html_types.blockquote_content_fun ],
                  [> Html_types.blockquote ])
                 star
+              val dialog :
+                ([< Html_types.dialog_attrib ],
+                 [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+                star
               val div :
                 ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
                  [> Html_types.div ])
@@ -8264,6 +11982,7 @@
                   | `OnCanPlayThrough
                   | `OnChange
                   | `OnClick
+                  | `OnClose
                   | `OnContextMenu
                   | `OnDblClick
                   | `OnDrag
@@ -8539,6 +12258,86 @@
                   val comma_sep_attrib :
                     string -> string list wrap -> 'a attrib
                 end
+              val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+              val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+              val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+              val a_onbeforeunload :
+                string -> [> `OnBeforeUnload ] Raw'.attrib
+              val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+              val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+              val a_oncanplaythrough :
+                string -> [> `OnCanPlayThrough ] Raw'.attrib
+              val a_onchange : string -> [> `OnChange ] Raw'.attrib
+              val a_onclose : string -> [> `OnClose ] Raw'.attrib
+              val a_ondurationchange :
+                string -> [> `OnDurationChange ] Raw'.attrib
+              val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+              val a_onended : string -> [> `OnEnded ] Raw'.attrib
+              val a_onerror : string -> [> `OnError ] Raw'.attrib
+              val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+              val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+              val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+              val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+              val a_oninput : string -> [> `OnInput ] Raw'.attrib
+              val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+              val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+              val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+              val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+              val a_onpause : string -> [> `OnPause ] Raw'.attrib
+              val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+              val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+              val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+              val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+              val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+              val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+              val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+              val a_onreadystatechange :
+                string -> [> `OnReadyStateChange ] Raw'.attrib
+              val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+              val a_onresize : string -> [> `OnResize ] Raw'.attrib
+              val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+              val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+              val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+              val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+              val a_onshow : string -> [> `OnShow ] Raw'.attrib
+              val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+              val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+              val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+              val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+              val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+              val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+              val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+              val a_onvolumechange :
+                string -> [> `OnVolumeChange ] Raw'.attrib
+              val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+              val a_onload : string -> [> `OnLoad ] Raw'.attrib
+              val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+              val a_onloadedmetadata :
+                string -> [> `OnLoadedMetaData ] Raw'.attrib
+              val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+              val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+              val a_onclick : string -> [> `OnClick ] Raw'.attrib
+              val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+              val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+              val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+              val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+              val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+              val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+              val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+              val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+              val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+              val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+              val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+              val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+              val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+              val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+              val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+              val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+              val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+              val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+              val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+              val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+              val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
             end
           type 'a elt = 'a elt
           type doc = Html_types.html elt
@@ -8626,6 +12425,7 @@
           val a_oncanplaythrough :
             Xml.event_handler -> [> `OnCanPlayThrough ] attrib
           val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+          val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
           val a_ondurationchange :
             Xml.event_handler -> [> `OnDurationChange ] attrib
           val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
@@ -8714,7 +12514,8 @@
           val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
           val a_allowpaymentrequest :
             unit -> [> `Allowpaymentrequest ] attrib
-          val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+          val a_autocomplete :
+            Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
           val a_async : unit -> [> `Async ] attrib
           val a_autofocus : unit -> [> `Autofocus ] attrib
           val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -8832,7 +12633,8 @@
           val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
           val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
           val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-          val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+          val a_formmethod :
+            [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
           val a_multiple : unit -> [> `Multiple ] attrib
           val a_name : Html_types.text wrap -> [> `Name ] attrib
           val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -8873,6 +12675,8 @@
           val a_readonly : unit -> [> `ReadOnly ] attrib
           val a_button_type :
             [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+          val a_script_type :
+            Html_types.script_type wrap -> [> `Script_type ] attrib
           val a_command_type :
             [< `Checkbox | `Command | `Radio ] wrap ->
             [> `Command_Type ] attrib
@@ -8942,8 +12746,8 @@
              [> Html_types.body ])
             star
           val svg :
-            ?a:[< Html_types.svg_attrib ] Svg.D.Raw.attrib list ->
-            [< Html_types.svg_content ] Svg.D.Raw.elt list_wrap ->
+            ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+            [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
             [> Html_types.svg ] elt
           val footer :
             ([< Html_types.footer_attrib ],
@@ -9018,6 +12822,10 @@
              [< Html_types.blockquote_content_fun ],
              [> Html_types.blockquote ])
             star
+          val dialog :
+            ([< Html_types.dialog_attrib ],
+             [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+            star
           val div :
             ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
              [> Html_types.div ])
@@ -9201,6 +13009,7 @@
               | `OnCanPlayThrough
               | `OnChange
               | `OnClick
+              | `OnClose
               | `OnContextMenu
               | `OnDblClick
               | `OnDrag
@@ -9674,6 +13483,7 @@
                     | `OnCanPlayThrough
                     | `OnChange
                     | `OnClick
+                    | `OnClose
                     | `OnContextMenu
                     | `OnDblClick
                     | `OnDrag
@@ -9738,50 +13548,1031 @@
                     '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
+                ?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
+      module R :
+        sig
+          val node :
+            'a Eliom_content.Html.elt React.signal Eliom_client_value.t ->
+            'a Eliom_content.Html.elt
+          val filter_attrib :
+            'a Eliom_content.Html.attrib ->
+            bool React.signal -> 'a Eliom_content.Html.attrib
+          module Raw :
+            sig
+              type 'a elt = 'a elt
+              type doc = Html_types.html elt
+              type 'a attrib = 'a attrib
+              module Xml :
+                sig
+                  module W :
+                    sig
+                      type 'a t = 'a Eliom_content_core.Xml_wed.W.t
+                      val return : 'a -> 'a t
+                      type ('a, 'b) ft =
+                          ('a, 'b) Eliom_content_core.Xml_wed.W.ft
+                      val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                      type 'a tlist = 'a Eliom_content_core.Xml_wed.W.tlist
+                      val nil : unit -> 'a tlist
+                      val singleton : 'a t -> 'a tlist
+                      val cons : 'a t -> 'a tlist -> 'a tlist
+                      val append : 'a tlist -> 'a tlist -> 'a tlist
+                      val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                    end
+                  type 'a wrap = 'a W.t
+                  type 'a list_wrap = 'a W.tlist
+                  type uri = Eliom_content_core.Xml_wed.uri
+                  val string_of_uri : (uri, string) W.ft
+                  val uri_of_string : (string, uri) W.ft
+                  type aname = string
+                  type event_handler =
+                      Eliom_content_core.Xml_wed.event_handler
+                  type mouse_event_handler =
+                      Eliom_content_core.Xml_wed.mouse_event_handler
+                  type keyboard_event_handler =
+                      Eliom_content_core.Xml_wed.keyboard_event_handler
+                  type touch_event_handler =
+                      Eliom_content_core.Xml_wed.touch_event_handler
+                  type attrib = Eliom_content_core.Xml_wed.attrib
+                  val float_attrib : aname -> float wrap -> attrib
+                  val int_attrib : aname -> int wrap -> attrib
+                  val string_attrib : aname -> string wrap -> attrib
+                  val space_sep_attrib : aname -> string list wrap -> attrib
+                  val comma_sep_attrib : aname -> string list wrap -> attrib
+                  val event_handler_attrib : aname -> event_handler -> attrib
+                  val mouse_event_handler_attrib :
+                    aname -> mouse_event_handler -> attrib
+                  val keyboard_event_handler_attrib :
+                    aname -> keyboard_event_handler -> attrib
+                  val touch_event_handler_attrib :
+                    aname -> touch_event_handler -> attrib
+                  val uri_attrib : aname -> uri wrap -> attrib
+                  val uris_attrib : aname -> uri list wrap -> attrib
+                  type elt = Eliom_content_core.Xml_wed.elt
+                  type ename = string
+                  val empty : unit -> elt
+                  val comment : string -> elt
+                  val pcdata : string wrap -> elt
+                  val encodedpcdata : string wrap -> elt
+                  val entity : string -> elt
+                  val leaf : ?a:attrib list -> ename -> elt
+                  val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+                  val cdata : string -> elt
+                  val cdata_script : string -> elt
+                  val cdata_style : string -> elt
+                end
+              type 'a wrap = 'a Xml.W.t
+              type 'a list_wrap = 'a Xml.W.tlist
+              type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+              type ('a, 'b, 'c) unary =
+                  ?a:'a attrib list -> 'b elt wrap -> 'c elt
+              type ('a, 'b, 'c) star =
+                  ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              module Info : Xml_sigs.Info
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) Xml.W.ft
+              val uri_of_string : (string, uri) Xml.W.ft
+              val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+              val a_user_data :
+                Html_types.nmtoken ->
+                Html_types.text wrap -> [> `User_data ] attrib
+              val a_id : Html_types.text wrap -> [> `Id ] attrib
+              val a_title : Html_types.text wrap -> [> `Title ] attrib
+              val a_xml_lang :
+                Html_types.languagecode wrap -> [> `XML_lang ] attrib
+              val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
+              val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+              val a_onafterprint :
+                Xml.event_handler -> [> `OnAfterPrint ] attrib
+              val a_onbeforeprint :
+                Xml.event_handler -> [> `OnBeforePrint ] attrib
+              val a_onbeforeunload :
+                Xml.event_handler -> [> `OnBeforeUnload ] attrib
+              val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
+              val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
+              val a_oncanplaythrough :
+                Xml.event_handler -> [> `OnCanPlayThrough ] attrib
+              val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+              val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
+              val a_ondurationchange :
+                Xml.event_handler -> [> `OnDurationChange ] attrib
+              val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
+              val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
+              val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+              val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
+              val a_onformchange :
+                Xml.event_handler -> [> `OnFormChange ] attrib
+              val a_onforminput :
+                Xml.event_handler -> [> `OnFormInput ] attrib
+              val a_onhashchange :
+                Xml.event_handler -> [> `OnHashChange ] attrib
+              val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
+              val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
+              val a_onmousewheel :
+                Xml.event_handler -> [> `OnMouseWheel ] attrib
+              val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
+              val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
+              val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
+              val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
+              val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
+              val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
+              val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
+              val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
+              val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
+              val a_onratechange :
+                Xml.event_handler -> [> `OnRateChange ] attrib
+              val a_onreadystatechange :
+                Xml.event_handler -> [> `OnReadyStateChange ] attrib
+              val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
+              val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+              val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+              val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
+              val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
+              val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
+              val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
+              val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
+              val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
+              val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
+              val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
+              val a_ontimeupdate :
+                Xml.event_handler -> [> `OnTimeUpdate ] attrib
+              val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
+              val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+              val a_onvolumechange :
+                Xml.event_handler -> [> `OnVolumeChange ] attrib
+              val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
+              val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+              val a_onloadeddata :
+                Xml.event_handler -> [> `OnLoadedData ] attrib
+              val a_onloadedmetadata :
+                Xml.event_handler -> [> `OnLoadedMetaData ] attrib
+              val a_onloadstart :
+                Xml.event_handler -> [> `OnLoadStart ] attrib
+              val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
+              val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+              val a_oncontextmenu :
+                Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
+              val a_ondblclick :
+                Xml.mouse_event_handler -> [> `OnDblClick ] attrib
+              val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
+              val a_ondragend :
+                Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
+              val a_ondragenter :
+                Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
+              val a_ondragleave :
+                Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
+              val a_ondragover :
+                Xml.mouse_event_handler -> [> `OnDragOver ] attrib
+              val a_ondragstart :
+                Xml.mouse_event_handler -> [> `OnDragStart ] attrib
+              val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
+              val a_onmousedown :
+                Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+              val a_onmouseup :
+                Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+              val a_onmouseover :
+                Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+              val a_onmousemove :
+                Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+              val a_onmouseout :
+                Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+              val a_ontouchstart :
+                Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+              val a_ontouchend :
+                Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+              val a_ontouchmove :
+                Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+              val a_ontouchcancel :
+                Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+              val a_onkeypress :
+                Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
+              val a_onkeydown :
+                Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
+              val a_onkeyup :
+                Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+              val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
+              val a_allowpaymentrequest :
+                unit -> [> `Allowpaymentrequest ] attrib
+              val a_autocomplete :
+                Html_types.autocomplete_option wrap ->
+                [> `Autocomplete ] attrib
+              val a_async : unit -> [> `Async ] attrib
+              val a_autofocus : unit -> [> `Autofocus ] attrib
+              val a_autoplay : unit -> [> `Autoplay ] attrib
+              val a_muted : unit -> [> `Muted ] attrib
+              val a_crossorigin :
+                [< `Anonymous | `Use_credentials ] wrap ->
+                [> `Crossorigin ] attrib
+              val a_integrity : string wrap -> [> `Integrity ] attrib
+              val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
+              val a_challenge :
+                Html_types.text wrap -> [> `Challenge ] attrib
+              val a_contenteditable :
+                bool wrap -> [> `Contenteditable ] attrib
+              val a_contextmenu :
+                Html_types.idref wrap -> [> `Contextmenu ] attrib
+              val a_controls : unit -> [> `Controls ] attrib
+              val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
+              val a_draggable : bool wrap -> [> `Draggable ] attrib
+              val a_form : Html_types.idref wrap -> [> `Form ] attrib
+              val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
+              val a_formenctype :
+                Html_types.contenttype wrap -> [> `Formenctype ] attrib
+              val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
+              val a_formtarget :
+                Html_types.text wrap -> [> `Formtarget ] attrib
+              val a_hidden : unit -> [> `Hidden ] attrib
+              val a_high : Html_types.float_number wrap -> [> `High ] attrib
+              val a_icon : Xml.uri wrap -> [> `Icon ] attrib
+              val a_ismap : unit -> [> `Ismap ] attrib
+              val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
+              val a_list : Html_types.idref wrap -> [> `List ] attrib
+              val a_loop : unit -> [> `Loop ] attrib
+              val a_low : Html_types.float_number wrap -> [> `High ] attrib
+              val a_max : Html_types.float_number wrap -> [> `Max ] attrib
+              val a_input_max :
+                Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
+              val a_min : Html_types.float_number wrap -> [> `Min ] attrib
+              val a_input_min :
+                Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
+              val a_inputmode :
+                [< `Decimal
+                 | `Email
+                 | `None
+                 | `Numeric
+                 | `Search
+                 | `Tel
+                 | `Text
+                 | `Url ]
+                wrap -> [> `Inputmode ] attrib
+              val a_novalidate : unit -> [> `Novalidate ] attrib
+              val a_open : unit -> [> `Open ] attrib
+              val a_optimum :
+                Html_types.float_number wrap -> [> `Optimum ] attrib
+              val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
+              val a_placeholder :
+                Html_types.text wrap -> [> `Placeholder ] attrib
+              val a_poster : Xml.uri wrap -> [> `Poster ] attrib
+              val a_preload :
+                [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
+              val a_pubdate : unit -> [> `Pubdate ] attrib
+              val a_radiogroup :
+                Html_types.text wrap -> [> `Radiogroup ] attrib
+              val a_referrerpolicy :
+                Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
+              val a_required : unit -> [> `Required ] attrib
+              val a_reversed : unit -> [> `Reversed ] attrib
+              val a_sandbox :
+                [< Html_types.sandbox_token ] list wrap ->
+                [> `Sandbox ] attrib
+              val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
+              val a_scoped : unit -> [> `Scoped ] attrib
+              val a_seamless : unit -> [> `Seamless ] attrib
+              val a_sizes :
+                (Html_types.number * Html_types.number) list option wrap ->
+                [> `Sizes ] attrib
+              val a_span : Html_types.number wrap -> [> `Span ] attrib
+              val a_srclang :
+                Html_types.nmtoken wrap -> [> `XML_lang ] attrib
+              type image_candidate =
+                  [ `Url of uri
+                  | `Url_pixel of uri * Html_types.float_number
+                  | `Url_width of uri * Html_types.number ]
+              val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
+              val a_img_sizes :
+                Html_types.text list wrap -> [> `Img_sizes ] attrib
+              val a_start : Html_types.number wrap -> [> `Start ] attrib
+              val a_step :
+                Html_types.float_number option wrap -> [> `Step ] attrib
+              val a_translate :
+                [< `No | `Yes ] wrap -> [> `Translate ] attrib
+              val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
+              val a_version : Html_types.cdata wrap -> [> `Version ] attrib
+              val a_xmlns :
+                [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
+              val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
+              val a_cite : Xml.uri wrap -> [> `Cite ] attrib
+              val a_xml_space :
+                [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
+              val a_accesskey :
+                Html_types.character wrap -> [> `Accesskey ] attrib
+              val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
+              val a_accept_charset :
+                Html_types.charsets wrap -> [> `Accept_charset ] attrib
+              val a_accept :
+                Html_types.contenttypes wrap -> [> `Accept ] attrib
+              val a_href : Xml.uri wrap -> [> `Href ] attrib
+              val a_hreflang :
+                Html_types.languagecode wrap -> [> `Hreflang ] attrib
+              val a_download : string option wrap -> [> `Download ] attrib
+              val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
+              val a_tabindex :
+                Html_types.number wrap -> [> `Tabindex ] attrib
+              val a_mime_type :
+                Html_types.contenttype wrap -> [> `Mime_type ] attrib
+              val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
+              val a_action : Xml.uri wrap -> [> `Action ] attrib
+              val a_checked : unit -> [> `Checked ] attrib
+              val a_cols : Html_types.number wrap -> [> `Cols ] attrib
+              val a_enctype :
+                Html_types.contenttype wrap -> [> `Enctype ] attrib
+              val a_label_for :
+                Html_types.idref wrap -> [> `Label_for ] attrib
+              val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
+              val a_output_for :
+                Html_types.idrefs wrap -> [> `Output_for ] attrib
+              val a_for_list :
+                Html_types.idrefs wrap -> [> `Output_for ] attrib
+              val a_maxlength :
+                Html_types.number wrap -> [> `Maxlength ] attrib
+              val a_minlength :
+                Html_types.number wrap -> [> `Minlength ] attrib
+              val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
+              val a_formmethod :
+                [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
+              val a_multiple : unit -> [> `Multiple ] attrib
+              val a_name : Html_types.text wrap -> [> `Name ] attrib
+              val a_rows : Html_types.number wrap -> [> `Rows ] attrib
+              val a_selected : unit -> [> `Selected ] attrib
+              val a_size : Html_types.number wrap -> [> `Size ] attrib
+              val a_src : Xml.uri wrap -> [> `Src ] attrib
+              val a_input_type :
+                [< `Button
+                 | `Checkbox
+                 | `Color
+                 | `Date
+                 | `Datetime
+                 | `Datetime_local
+                 | `Email
+                 | `File
+                 | `Hidden
+                 | `Image
+                 | `Month
+                 | `Number
+                 | `Password
+                 | `Radio
+                 | `Range
+                 | `Reset
+                 | `Search
+                 | `Submit
+                 | `Tel
+                 | `Text
+                 | `Time
+                 | `Url
+                 | `Week ]
+                wrap -> [> `Input_Type ] attrib
+              val a_text_value :
+                Html_types.text wrap -> [> `Text_Value ] attrib
+              val a_int_value :
+                Html_types.number wrap -> [> `Int_Value ] attrib
+              val a_value : Html_types.cdata wrap -> [> `Value ] attrib
+              val a_float_value :
+                Html_types.float_number wrap -> [> `Float_Value ] attrib
+              val a_disabled : unit -> [> `Disabled ] attrib
+              val a_readonly : unit -> [> `ReadOnly ] attrib
+              val a_button_type :
+                [< `Button | `Reset | `Submit ] wrap ->
+                [> `Button_Type ] attrib
+              val a_script_type :
+                Html_types.script_type wrap -> [> `Script_type ] attrib
+              val a_command_type :
+                [< `Checkbox | `Command | `Radio ] wrap ->
+                [> `Command_Type ] attrib
+              val a_menu_type :
+                [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
+              val a_label : Html_types.text wrap -> [> `Label ] attrib
+              val a_align :
+                [< `Char | `Justify | `Left | `Right ] wrap ->
+                [> `Align ] attrib
+              val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
+              val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
+              val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
+              val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
+              val a_scope :
+                [< `Col | `Colgroup | `Row | `Rowgroup ] wrap ->
+                [> `Scope ] attrib
+              val a_summary : Html_types.text wrap -> [> `Summary ] attrib
+              val a_border : Html_types.pixels wrap -> [> `Border ] attrib
+              val a_rules :
+                [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
+                [> `Rules ] attrib
+              val a_char : Html_types.character wrap -> [> `Char ] attrib
+              val a_alt : Html_types.text wrap -> [> `Alt ] attrib
+              val a_height : Html_types.number wrap -> [> `Height ] attrib
+              val a_width : Html_types.number wrap -> [> `Width ] attrib
+              type shape = [ `Circle | `Default | `Poly | `Rect ]
+              val a_shape : shape wrap -> [> `Shape ] attrib
+              val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
+              val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
+              val a_data : Xml.uri wrap -> [> `Data ] attrib
+              val a_codetype :
+                Html_types.contenttype wrap -> [> `Codetype ] attrib
+              val a_frameborder :
+                [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
+              val a_marginheight :
+                Html_types.pixels wrap -> [> `Marginheight ] attrib
+              val a_marginwidth :
+                Html_types.pixels wrap -> [> `Marginwidth ] attrib
+              val a_scrolling :
+                [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
+              val a_target :
+                Html_types.frametarget wrap -> [> `Target ] attrib
+              val a_content : Html_types.text wrap -> [> `Content ] attrib
+              val a_http_equiv :
+                Html_types.text wrap -> [> `Http_equiv ] attrib
+              val a_defer : unit -> [> `Defer ] attrib
+              val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
+              val a_style : string wrap -> [> `Style_Attr ] attrib
+              val a_property : string wrap -> [> `Property ] attrib
+              val a_role : string list wrap -> [> `Role ] attrib
+              val a_aria : string -> string list wrap -> [> `Aria ] attrib
+              val txt : string wrap -> [> Html_types.txt ] elt
+              val html :
+                ?a:Html_types.html_attrib attrib list ->
+                [< Html_types.head ] elt wrap ->
+                [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
+              val head :
+                ?a:Html_types.head_attrib attrib list ->
+                [< Html_types.title ] elt wrap ->
+                Html_types.head_content_fun elt list_wrap ->
+                [> Html_types.head ] elt
+              val base :
+                ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
+              val title :
+                (Html_types.title_attrib, [< Html_types.title_content_fun ],
+                 [> Html_types.title ])
+                unary
+              val body :
+                ([< Html_types.body_attrib ],
+                 [< Html_types.body_content_fun ], [> Html_types.body ])
+                star
+              val svg :
+                ?a:[< Html_types.svg_attrib ] Svg.R.Raw.attrib list ->
+                [< Html_types.svg_content ] Svg.R.Raw.elt list_wrap ->
+                [> Html_types.svg ] elt
+              val footer :
+                ([< Html_types.footer_attrib ],
+                 [< Html_types.footer_content_fun ], [> Html_types.footer ])
+                star
+              val header :
+                ([< Html_types.header_attrib ],
+                 [< Html_types.header_content_fun ], [> Html_types.header ])
+                star
+              val section :
+                ([< Html_types.section_attrib ],
+                 [< Html_types.section_content_fun ],
+                 [> Html_types.section ])
+                star
+              val nav :
+                ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
+                 [> Html_types.nav ])
+                star
+              val h1 :
+                ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
+                 [> Html_types.h1 ])
+                star
+              val h2 :
+                ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
+                 [> Html_types.h2 ])
+                star
+              val h3 :
+                ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
+                 [> Html_types.h3 ])
+                star
+              val h4 :
+                ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
+                 [> Html_types.h4 ])
+                star
+              val h5 :
+                ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
+                 [> Html_types.h5 ])
+                star
+              val h6 :
+                ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
+                 [> Html_types.h6 ])
+                star
+              val hgroup :
+                ([< Html_types.hgroup_attrib ],
+                 [< Html_types.hgroup_content_fun ], [> Html_types.hgroup ])
+                star
+              val address :
+                ([< Html_types.address_attrib ],
+                 [< Html_types.address_content_fun ],
+                 [> Html_types.address ])
+                star
+              val article :
+                ([< Html_types.article_attrib ],
+                 [< Html_types.article_content_fun ],
+                 [> Html_types.article ])
+                star
+              val aside :
+                ([< Html_types.aside_attrib ],
+                 [< Html_types.aside_content_fun ], [> Html_types.aside ])
+                star
+              val main :
+                ([< Html_types.main_attrib ],
+                 [< Html_types.main_content_fun ], [> Html_types.main ])
+                star
+              val p :
+                ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
+                 [> Html_types.p ])
+                star
+              val pre :
+                ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
+                 [> Html_types.pre ])
+                star
+              val blockquote :
+                ([< Html_types.blockquote_attrib ],
+                 [< Html_types.blockquote_content_fun ],
+                 [> Html_types.blockquote ])
+                star
+              val dialog :
+                ([< Html_types.dialog_attrib ],
+                 [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+                star
+              val div :
+                ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
+                 [> Html_types.div ])
+                star
+              val dl :
+                ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
+                 [> Html_types.dl ])
+                star
+              val ol :
+                ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
+                 [> Html_types.ol ])
+                star
+              val ul :
+                ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
+                 [> Html_types.ul ])
+                star
+              val dd :
+                ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
+                 [> Html_types.dd ])
+                star
+              val dt :
+                ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
+                 [> Html_types.dt ])
+                star
+              val li :
+                ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
+                 [> Html_types.li ])
+                star
+              val figcaption :
+                ([< Html_types.figcaption_attrib ],
+                 [< Html_types.figcaption_content_fun ],
+                 [> Html_types.figcaption ])
+                star
+              val figure :
+                ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
+                            | `Top of [< Html_types.figcaption ] elt wrap ] ->
+                ([< Html_types.figure_attrib ],
+                 [< Html_types.figure_content_fun ], [> Html_types.figure ])
+                star
+              val hr :
+                ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
+              val b :
+                ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
+                 [> Html_types.b ])
+                star
+              val i :
+                ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
+                 [> Html_types.i ])
+                star
+              val u :
+                ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
+                 [> Html_types.u ])
+                star
+              val small :
+                ([< Html_types.small_attrib ],
+                 [< Html_types.small_content_fun ], [> Html_types.small ])
+                star
+              val sub :
+                ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
+                 [> Html_types.sub ])
+                star
+              val sup :
+                ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
+                 [> Html_types.sup ])
+                star
+              val mark :
+                ([< Html_types.mark_attrib ],
+                 [< Html_types.mark_content_fun ], [> Html_types.mark ])
+                star
+              val wbr :
+                ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
+              val bdo :
+                dir:[< `Ltr | `Rtl ] wrap ->
+                ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
+                 [> Html_types.bdo ])
+                star
+              val abbr :
+                ([< Html_types.abbr_attrib ],
+                 [< Html_types.abbr_content_fun ], [> Html_types.abbr ])
+                star
+              val br :
+                ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
+              val cite :
+                ([< Html_types.cite_attrib ],
+                 [< Html_types.cite_content_fun ], [> Html_types.cite ])
+                star
+              val code :
+                ([< Html_types.code_attrib ],
+                 [< Html_types.code_content_fun ], [> Html_types.code ])
+                star
+              val dfn :
+                ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
+                 [> Html_types.dfn ])
+                star
+              val em :
+                ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
+                 [> Html_types.em ])
+                star
+              val kbd :
+                ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
+                 [> Html_types.kbd ])
+                star
+              val q :
+                ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
+                 [> Html_types.q ])
+                star
+              val samp :
+                ([< Html_types.samp_attrib ],
+                 [< Html_types.samp_content_fun ], [> Html_types.samp ])
+                star
+              val span :
+                ([< Html_types.span_attrib ],
+                 [< Html_types.span_content_fun ], [> Html_types.span ])
+                star
+              val strong :
+                ([< Html_types.strong_attrib ],
+                 [< Html_types.strong_content_fun ], [> Html_types.strong ])
+                star
+              val time :
+                ([< Html_types.time_attrib ],
+                 [< Html_types.time_content_fun ], [> Html_types.time ])
+                star
+              val var :
+                ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
+                 [> Html_types.var ])
+                star
+              val a :
+                ([< Html_types.a_attrib ], 'a, [> 'a Html_types.a ]) star
+              val del :
+                ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
+              val ins :
+                ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
+              val img :
+                src:Xml.uri wrap ->
+                alt:Html_types.text wrap ->
+                ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
+              val picture :
+                img:[< Html_types.img ] elt wrap ->
+                ([< Html_types.picture_attrib ],
+                 [< Html_types.picture_content_fun ],
+                 [> Html_types.picture ])
+                star
+              val iframe :
+                ([< Html_types.iframe_attrib ],
+                 [< Html_types.iframe_content_fun ], [> Html_types.iframe ])
+                star
+              val object_ :
+                ?params:[< Html_types.param ] elt list_wrap ->
+                ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
+              val param :
+                ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
+              val embed :
+                ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
+              val audio :
+                ?src:Xml.uri wrap ->
+                ?srcs:[< Html_types.source ] elt list_wrap ->
+                ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ])
+                star
+              val video :
+                ?src:Xml.uri wrap ->
+                ?srcs:[< Html_types.source ] elt list_wrap ->
+                ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ])
+                star
+              val canvas :
+                ([< Html_types.canvas_attrib ], 'a,
+                 [> 'a Html_types.canvas ])
+                star
+              val source :
+                ([< Html_types.source_attrib ], [> Html_types.source ])
+                nullary
+              val area :
+                alt:Html_types.text wrap ->
+                ([< `Accesskey
+                  | `Alt
+                  | `Aria
+                  | `Class
+                  | `Contenteditable
+                  | `Contextmenu
+                  | `Coords
+                  | `Dir
+                  | `Draggable
+                  | `Hidden
+                  | `Hreflang
+                  | `Id
+                  | `Lang
+                  | `Media
+                  | `Mime_type
+                  | `OnAbort
+                  | `OnBlur
+                  | `OnCanPlay
+                  | `OnCanPlayThrough
+                  | `OnChange
+                  | `OnClick
+                  | `OnClose
+                  | `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
+                  | `Rel
+                  | `Role
+                  | `Shape
+                  | `Spellcheck
+                  | `Style_Attr
+                  | `Tabindex
+                  | `Target
+                  | `Title
+                  | `Translate
+                  | `User_data
+                  | `XML_lang
+                  | `XMLns ],
+                 [> Html_types.area ])
+                nullary
+              val map :
+                ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
+              val caption :
+                ([< Html_types.caption_attrib ],
+                 [< Html_types.caption_content_fun ],
+                 [> Html_types.caption ])
+                star
+              val table :
+                ?caption:[< Html_types.caption ] elt wrap ->
+                ?columns:[< Html_types.colgroup ] elt list_wrap ->
+                ?thead:[< Html_types.thead ] elt wrap ->
+                ?tfoot:[< Html_types.tfoot ] elt wrap ->
+                ([< Html_types.table_attrib ],
+                 [< Html_types.table_content_fun ], [> Html_types.table ])
+                star
+              val tablex :
+                ?caption:[< Html_types.caption ] elt wrap ->
+                ?columns:[< Html_types.colgroup ] elt list_wrap ->
+                ?thead:[< Html_types.thead ] elt wrap ->
+                ?tfoot:[< Html_types.tfoot ] elt wrap ->
+                ([< Html_types.tablex_attrib ],
+                 [< Html_types.tablex_content_fun ], [> Html_types.tablex ])
+                star
+              val colgroup :
+                ([< Html_types.colgroup_attrib ],
+                 [< Html_types.colgroup_content_fun ],
+                 [> Html_types.colgroup ])
+                star
+              val col :
+                ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
+              val thead :
+                ([< Html_types.thead_attrib ],
+                 [< Html_types.thead_content_fun ], [> Html_types.thead ])
+                star
+              val tbody :
+                ([< Html_types.tbody_attrib ],
+                 [< Html_types.tbody_content_fun ], [> Html_types.tbody ])
+                star
+              val tfoot :
+                ([< Html_types.tfoot_attrib ],
+                 [< Html_types.tfoot_content_fun ], [> Html_types.tfoot ])
+                star
+              val td :
+                ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
+                 [> Html_types.td ])
+                star
+              val th :
+                ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
+                 [> Html_types.th ])
+                star
+              val tr :
+                ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
+                 [> Html_types.tr ])
+                star
+              val form :
+                ([< Html_types.form_attrib ],
+                 [< Html_types.form_content_fun ], [> Html_types.form ])
+                star
+              val fieldset :
+                ?legend:[< Html_types.legend ] elt wrap ->
+                ([< Html_types.fieldset_attrib ],
+                 [< Html_types.fieldset_content_fun ],
+                 [> Html_types.fieldset ])
+                star
+              val legend :
+                ([< Html_types.legend_attrib ],
+                 [< Html_types.legend_content_fun ], [> Html_types.legend ])
+                star
+              val label :
+                ([< Html_types.label_attrib ],
+                 [< Html_types.label_content_fun ], [> Html_types.label ])
+                star
+              val input :
+                ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
+              val button :
+                ([< Html_types.button_attrib ],
+                 [< Html_types.button_content_fun ], [> Html_types.button ])
+                star
+              val select :
+                ([< Html_types.select_attrib ],
+                 [< Html_types.select_content_fun ], [> Html_types.select ])
+                star
+              val datalist :
+                ?children:[< `Options of
+                               [< Html_types.selectoption ] elt list_wrap
+                           | `Phras of [< Html_types.phrasing ] elt list_wrap
+                          ] ->
+                ([< Html_types.datalist_attrib ], [> Html_types.datalist ])
+                nullary
+              val optgroup :
+                label:Html_types.text wrap ->
+                ([< Html_types.optgroup_attrib ],
+                 [< Html_types.optgroup_content_fun ],
+                 [> Html_types.optgroup ])
+                star
+              val option :
+                ([< Html_types.option_attrib ],
+                 [< Html_types.option_content_fun ],
+                 [> Html_types.selectoption ])
+                unary
+              val textarea :
+                ([< Html_types.textarea_attrib ],
+                 [< Html_types.textarea_content_fun ],
+                 [> Html_types.textarea ])
+                unary
+              val keygen :
+                ([< Html_types.keygen_attrib ], [> Html_types.keygen ])
+                nullary
+              val progress :
+                ([< Html_types.progress_attrib ],
+                 [< Html_types.progress_content_fun ],
+                 [> Html_types.progress ])
+                star
+              val meter :
+                ([< Html_types.meter_attrib ],
+                 [< Html_types.meter_content_fun ], [> Html_types.meter ])
+                star
+              val output_elt :
+                ([< Html_types.output_elt_attrib ],
+                 [< Html_types.output_elt_content_fun ],
+                 [> Html_types.output_elt ])
+                star
+              val entity : string -> [> Html_types.txt ] elt
+              val space : unit -> [> Html_types.txt ] elt
+              val cdata : string -> [> Html_types.txt ] elt
+              val cdata_script : string -> [> Html_types.txt ] elt
+              val cdata_style : string -> [> Html_types.txt ] elt
+              val details :
+                [< Html_types.summary ] elt wrap ->
+                ([< Html_types.details_attrib ],
+                 [< Html_types.details_content_fun ],
+                 [> Html_types.details ])
+                star
+              val summary :
+                ([< Html_types.summary_attrib ],
+                 [< Html_types.summary_content_fun ],
+                 [> Html_types.summary ])
+                star
+              val command :
+                label:Html_types.text wrap ->
+                ([< Html_types.command_attrib ], [> Html_types.command ])
+                nullary
+              val menu :
+                ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
+                           | `Lis of
+                               [< `Li of [< Html_types.common ] ] elt
+                               list_wrap ] ->
+                ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
+              val script :
+                ([< Html_types.script_attrib ],
+                 [< Html_types.script_content_fun ], [> Html_types.script ])
+                unary
+              val noscript :
+                ([< Html_types.noscript_attrib ],
+                 [< Html_types.noscript_content_fun ],
+                 [> Html_types.noscript ])
+                star
+              val template :
+                ([< Html_types.template_attrib ],
+                 [< Html_types.template_content_fun ],
+                 [> Html_types.template ])
+                star
+              val meta :
+                ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
+              val style :
+                ([< Html_types.style_attrib ],
+                 [< Html_types.style_content_fun ], [> Html_types.style ])
+                star
+              val link :
+                rel:Html_types.linktypes wrap ->
+                href:Xml.uri wrap ->
+                ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
+              val rt :
+                ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
+                 [> Html_types.rt ])
+                star
+              val rp :
+                ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
+                 [> Html_types.rp ])
+                star
+              val ruby :
+                ([< Html_types.ruby_attrib ],
+                 [< Html_types.ruby_content_fun ], [> Html_types.ruby ])
+                star
+              val pcdata : string wrap -> [> Html_types.pcdata ] elt
+              val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+              val tot : Xml.elt -> 'a elt
+              val totl : Xml.elt list_wrap -> 'a elt list_wrap
+              val toelt : 'a elt -> Xml.elt
+              val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+              val doc_toelt : doc -> Xml.elt
+              val to_xmlattribs : 'a attrib list -> Xml.attrib list
+              val to_attrib : Xml.attrib -> 'a attrib
+              module Unsafe :
+                sig
+                  val data : string wrap -> 'a elt
+                  val node :
+                    string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+                  val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+                  val coerce_elt : 'a elt -> 'b elt
+                  val string_attrib : string -> string wrap -> 'a attrib
+                  val float_attrib : string -> float wrap -> 'a attrib
+                  val int_attrib : string -> int wrap -> 'a attrib
+                  val uri_attrib : string -> uri wrap -> 'a attrib
+                  val space_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                  val comma_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                end
             end
-        end
-      module C :
-        sig
-          val node :
-            ?init:'a Eliom_content.Html.elt ->
-            'a Eliom_content.Html.elt Eliom_client_value.t ->
-            'a Eliom_content.Html.elt
-          val attr :
-            ?init:'a Eliom_content.Html.attrib ->
-            'a Eliom_content.Html.attrib Eliom_client_value.t ->
-            'a Eliom_content.Html.attrib
-        end
-      module Id :
-        sig
-          type +'a id
-          val new_elt_id :
-            ?global:bool -> unit -> 'a Eliom_content.Html.Id.id
-          val create_named_elt :
-            id:'a Eliom_content.Html.Id.id ->
-            'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
-          val create_global_elt :
-            'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
-          val create_request_elt :
-            ?reset:bool ->
-            'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
-          val have_id :
-            'a Eliom_content.Html.Id.id -> 'b Eliom_content.Html.elt -> bool
-        end
-      module R :
-        sig
           type 'a elt = 'a elt
           type doc = Html_types.html elt
           type 'a attrib = 'a attrib
@@ -9789,11 +14580,11 @@
             sig
               module W :
                 sig
-                  type 'a t = 'a Xml_shared.W.t
+                  type 'a t = 'a Eliom_content_core.Xml_wed.W.t
                   val return : 'a -> 'a t
-                  type ('a, 'b) ft = ('a, 'b) Xml_shared.W.ft
+                  type ('a, 'b) ft = ('a, 'b) Eliom_content_core.Xml_wed.W.ft
                   val fmap : ('a, 'b) ft -> 'a t -> 'b t
-                  type 'a tlist = 'a Xml_shared.W.tlist
+                  type 'a tlist = 'a Eliom_content_core.Xml_wed.W.tlist
                   val nil : unit -> 'a tlist
                   val singleton : 'a t -> 'a tlist
                   val cons : 'a t -> 'a tlist -> 'a tlist
@@ -9802,15 +14593,18 @@
                 end
               type 'a wrap = 'a W.t
               type 'a list_wrap = 'a W.tlist
-              type uri = Xml_shared.uri
+              type uri = Eliom_content_core.Xml_wed.uri
               val string_of_uri : (uri, string) W.ft
               val uri_of_string : (string, uri) W.ft
               type aname = string
-              type event_handler = Xml_shared.event_handler
-              type mouse_event_handler = Xml_shared.mouse_event_handler
-              type keyboard_event_handler = Xml_shared.keyboard_event_handler
-              type touch_event_handler = Xml_shared.touch_event_handler
-              type attrib = Xml_shared.attrib
+              type event_handler = Eliom_content_core.Xml_wed.event_handler
+              type mouse_event_handler =
+                  Eliom_content_core.Xml_wed.mouse_event_handler
+              type keyboard_event_handler =
+                  Eliom_content_core.Xml_wed.keyboard_event_handler
+              type touch_event_handler =
+                  Eliom_content_core.Xml_wed.touch_event_handler
+              type attrib = Eliom_content_core.Xml_wed.attrib
               val float_attrib : aname -> float wrap -> attrib
               val int_attrib : aname -> int wrap -> attrib
               val string_attrib : aname -> string wrap -> attrib
@@ -9825,7 +14619,7 @@
                 aname -> touch_event_handler -> attrib
               val uri_attrib : aname -> uri wrap -> attrib
               val uris_attrib : aname -> uri list wrap -> attrib
-              type elt = Xml_shared.elt
+              type elt = Eliom_content_core.Xml_wed.elt
               type ename = string
               val empty : unit -> elt
               val comment : string -> elt
@@ -9869,6 +14663,7 @@
           val a_oncanplaythrough :
             Xml.event_handler -> [> `OnCanPlayThrough ] attrib
           val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+          val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
           val a_ondurationchange :
             Xml.event_handler -> [> `OnDurationChange ] attrib
           val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
@@ -9957,7 +14752,8 @@
           val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
           val a_allowpaymentrequest :
             unit -> [> `Allowpaymentrequest ] attrib
-          val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+          val a_autocomplete :
+            Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
           val a_async : unit -> [> `Async ] attrib
           val a_autofocus : unit -> [> `Autofocus ] attrib
           val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -10075,7 +14871,8 @@
           val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
           val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
           val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-          val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+          val a_formmethod :
+            [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
           val a_multiple : unit -> [> `Multiple ] attrib
           val a_name : Html_types.text wrap -> [> `Name ] attrib
           val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -10116,6 +14913,8 @@
           val a_readonly : unit -> [> `ReadOnly ] attrib
           val a_button_type :
             [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+          val a_script_type :
+            Html_types.script_type wrap -> [> `Script_type ] attrib
           val a_command_type :
             [< `Checkbox | `Command | `Radio ] wrap ->
             [> `Command_Type ] attrib
@@ -10261,6 +15060,10 @@
              [< Html_types.blockquote_content_fun ],
              [> Html_types.blockquote ])
             star
+          val dialog :
+            ([< Html_types.dialog_attrib ],
+             [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+            star
           val div :
             ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
              [> Html_types.div ])
@@ -10445,6 +15248,7 @@
               | `OnCanPlayThrough
               | `OnChange
               | `OnClick
+              | `OnClose
               | `OnContextMenu
               | `OnDblClick
               | `OnDrag
@@ -10680,6 +15484,7 @@
             ([< Html_types.ruby_attrib ], [< Html_types.ruby_content_fun ],
              [> Html_types.ruby ])
             star
+          val pcdata : string wrap -> [> Html_types.pcdata ] elt
           val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
           val tot : Xml.elt -> 'a elt
           val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -10702,15 +15507,33 @@
               val space_sep_attrib : string -> string list wrap -> 'a attrib
               val comma_sep_attrib : string -> string list wrap -> 'a attrib
             end
-          val pcdata :
-            string Eliom_shared.React.S.t ->
-            [> Html_types.span ] Eliom_content.Html.elt
+        end
+      module C :
+        sig
           val node :
-            'a Eliom_content.Html.elt Eliom_shared.React.S.t ->
-            'a Eliom_content.Html.elt
-          val filter_attrib :
-            'a Eliom_content.Html.attrib ->
-            bool Eliom_shared.React.S.t -> 'a Eliom_content.Html.attrib
+            ?init:'a Eliom_content.Html.D.elt ->
+            'a Eliom_content.Html.elt Eliom_client_value.t ->
+            'a Eliom_content.Html.D.elt
+          val attr :
+            ?init:'a Eliom_content.Html.attrib ->
+            'a Eliom_content.Html.attrib Eliom_client_value.t ->
+            'a Eliom_content.Html.attrib
+        end
+      module Id :
+        sig
+          type +'a id
+          val new_elt_id :
+            ?global:bool -> unit -> 'a Eliom_content.Html.Id.id
+          val create_named_elt :
+            id:'a Eliom_content.Html.Id.id ->
+            'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
+          val create_global_elt :
+            'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
+          val create_request_elt :
+            ?reset:bool ->
+            'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
+          val get_element :
+            'a Eliom_content.Html.Id.id -> 'a Eliom_content.Html.elt option
         end
       module Custom_data :
         sig
@@ -10728,16 +15551,953 @@
           val attrib :
             'a Eliom_content.Html.Custom_data.t ->
             'a -> [> `User_data ] Eliom_content.Html.attrib
+          val get_dom :
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t ->
+            'a Eliom_content.Html.Custom_data.t -> 'a
+          val set_dom :
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t ->
+            'a Eliom_content.Html.Custom_data.t -> 'a -> unit
+        end
+      module To_dom :
+        sig
+          type 'a elt = 'a elt
+          val of_element :
+            'a elt -> Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_node : 'a elt -> Js_of_ocaml.Dom.node Js_of_ocaml.Js.t
+          val of_pcdata :
+            [< Html_types.pcdata ] elt ->
+            Js_of_ocaml.Dom.text Js_of_ocaml.Js.t
+          val of_html :
+            [< Html_types.html ] elt ->
+            Js_of_ocaml.Dom_html.htmlElement Js_of_ocaml.Js.t
+          val of_head :
+            [< Html_types.head ] elt ->
+            Js_of_ocaml.Dom_html.headElement Js_of_ocaml.Js.t
+          val of_link :
+            [< Html_types.link ] elt ->
+            Js_of_ocaml.Dom_html.linkElement Js_of_ocaml.Js.t
+          val of_title :
+            [< Html_types.title ] elt ->
+            Js_of_ocaml.Dom_html.titleElement Js_of_ocaml.Js.t
+          val of_meta :
+            [< Html_types.meta ] elt ->
+            Js_of_ocaml.Dom_html.metaElement Js_of_ocaml.Js.t
+          val of_base :
+            [< Html_types.base ] elt ->
+            Js_of_ocaml.Dom_html.baseElement Js_of_ocaml.Js.t
+          val of_style :
+            [< Html_types.style ] elt ->
+            Js_of_ocaml.Dom_html.styleElement Js_of_ocaml.Js.t
+          val of_body :
+            [< Html_types.body ] elt ->
+            Js_of_ocaml.Dom_html.bodyElement Js_of_ocaml.Js.t
+          val of_form :
+            [< Html_types.form ] elt ->
+            Js_of_ocaml.Dom_html.formElement Js_of_ocaml.Js.t
+          val of_optgroup :
+            [< Html_types.optgroup ] elt ->
+            Js_of_ocaml.Dom_html.optGroupElement Js_of_ocaml.Js.t
+          val of_option :
+            [< Html_types.selectoption ] elt ->
+            Js_of_ocaml.Dom_html.optionElement Js_of_ocaml.Js.t
+          val of_select :
+            [< Html_types.select ] elt ->
+            Js_of_ocaml.Dom_html.selectElement Js_of_ocaml.Js.t
+          val of_input :
+            [< Html_types.input ] elt ->
+            Js_of_ocaml.Dom_html.inputElement Js_of_ocaml.Js.t
+          val of_textarea :
+            [< Html_types.textarea ] elt ->
+            Js_of_ocaml.Dom_html.textAreaElement Js_of_ocaml.Js.t
+          val of_button :
+            [< Html_types.button ] elt ->
+            Js_of_ocaml.Dom_html.buttonElement Js_of_ocaml.Js.t
+          val of_label :
+            [< Html_types.label ] elt ->
+            Js_of_ocaml.Dom_html.labelElement Js_of_ocaml.Js.t
+          val of_fieldset :
+            [< Html_types.fieldset ] elt ->
+            Js_of_ocaml.Dom_html.fieldSetElement Js_of_ocaml.Js.t
+          val of_legend :
+            [< Html_types.legend ] elt ->
+            Js_of_ocaml.Dom_html.legendElement Js_of_ocaml.Js.t
+          val of_ul :
+            [< Html_types.ul ] elt ->
+            Js_of_ocaml.Dom_html.uListElement Js_of_ocaml.Js.t
+          val of_ol :
+            [< Html_types.ol ] elt ->
+            Js_of_ocaml.Dom_html.oListElement Js_of_ocaml.Js.t
+          val of_dl :
+            [< Html_types.dl ] elt ->
+            Js_of_ocaml.Dom_html.dListElement Js_of_ocaml.Js.t
+          val of_li :
+            [< Html_types.li ] elt ->
+            Js_of_ocaml.Dom_html.liElement Js_of_ocaml.Js.t
+          val of_dialog :
+            [< Html_types.dialog ] elt ->
+            Js_of_ocaml.Dom_html.dialogElement Js_of_ocaml.Js.t
+          val of_div :
+            [< Html_types.div ] elt ->
+            Js_of_ocaml.Dom_html.divElement Js_of_ocaml.Js.t
+          val of_p :
+            [< Html_types.p ] elt ->
+            Js_of_ocaml.Dom_html.paragraphElement Js_of_ocaml.Js.t
+          val of_heading :
+            [< Html_types.heading ] elt ->
+            Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
+          val of_blockquote :
+            [< Html_types.blockquote ] elt ->
+            Js_of_ocaml.Dom_html.quoteElement Js_of_ocaml.Js.t
+          val of_pre :
+            [< Html_types.pre ] elt ->
+            Js_of_ocaml.Dom_html.preElement Js_of_ocaml.Js.t
+          val of_br :
+            [< Html_types.br ] elt ->
+            Js_of_ocaml.Dom_html.brElement Js_of_ocaml.Js.t
+          val of_hr :
+            [< Html_types.hr ] elt ->
+            Js_of_ocaml.Dom_html.hrElement Js_of_ocaml.Js.t
+          val of_del :
+            [< 'a Html_types.del ] elt ->
+            Js_of_ocaml.Dom_html.modElement Js_of_ocaml.Js.t
+          val of_ins :
+            [< 'a Html_types.ins ] elt ->
+            Js_of_ocaml.Dom_html.modElement Js_of_ocaml.Js.t
+          val of_a :
+            [< 'a Html_types.a ] elt ->
+            Js_of_ocaml.Dom_html.anchorElement Js_of_ocaml.Js.t
+          val of_img :
+            [< Html_types.img_interactive ] elt ->
+            Js_of_ocaml.Dom_html.imageElement Js_of_ocaml.Js.t
+          val of_object :
+            [< 'a Html_types.object_ ] elt ->
+            Js_of_ocaml.Dom_html.objectElement Js_of_ocaml.Js.t
+          val of_param :
+            [< Html_types.param ] elt ->
+            Js_of_ocaml.Dom_html.paramElement Js_of_ocaml.Js.t
+          val of_area :
+            [< Html_types.area ] elt ->
+            Js_of_ocaml.Dom_html.areaElement Js_of_ocaml.Js.t
+          val of_map :
+            [< 'a Html_types.map ] elt ->
+            Js_of_ocaml.Dom_html.mapElement Js_of_ocaml.Js.t
+          val of_script :
+            [< Html_types.script ] elt ->
+            Js_of_ocaml.Dom_html.scriptElement Js_of_ocaml.Js.t
+          val of_td :
+            [< `Td ] elt ->
+            Js_of_ocaml.Dom_html.tableCellElement Js_of_ocaml.Js.t
+          val of_tr :
+            [< Html_types.tr ] elt ->
+            Js_of_ocaml.Dom_html.tableRowElement Js_of_ocaml.Js.t
+          val of_col :
+            [< Html_types.col ] elt ->
+            Js_of_ocaml.Dom_html.tableColElement Js_of_ocaml.Js.t
+          val of_tfoot :
+            [< Html_types.tfoot ] elt ->
+            Js_of_ocaml.Dom_html.tableSectionElement Js_of_ocaml.Js.t
+          val of_thead :
+            [< Html_types.thead ] elt ->
+            Js_of_ocaml.Dom_html.tableSectionElement Js_of_ocaml.Js.t
+          val of_tbody :
+            [< Html_types.tbody ] elt ->
+            Js_of_ocaml.Dom_html.tableSectionElement Js_of_ocaml.Js.t
+          val of_caption :
+            [< Html_types.caption ] elt ->
+            Js_of_ocaml.Dom_html.tableCaptionElement Js_of_ocaml.Js.t
+          val of_table :
+            [< Html_types.table ] elt ->
+            Js_of_ocaml.Dom_html.tableElement Js_of_ocaml.Js.t
+          val of_canvas :
+            [< 'a Html_types.canvas ] elt ->
+            Js_of_ocaml.Dom_html.canvasElement Js_of_ocaml.Js.t
+          val of_iframe :
+            [< Html_types.iframe ] elt ->
+            Js_of_ocaml.Dom_html.iFrameElement Js_of_ocaml.Js.t
+          val of_audio :
+            [< 'a Html_types.audio_interactive ] elt ->
+            Js_of_ocaml.Dom_html.audioElement Js_of_ocaml.Js.t
+          val of_video :
+            [< 'a Html_types.video_interactive ] elt ->
+            Js_of_ocaml.Dom_html.videoElement Js_of_ocaml.Js.t
+          val of_h1 :
+            Html_types.heading elt ->
+            Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
+          val of_h2 :
+            Html_types.heading elt ->
+            Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
+          val of_h3 :
+            Html_types.heading elt ->
+            Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
+          val of_h4 :
+            Html_types.heading elt ->
+            Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
+          val of_h5 :
+            Html_types.heading elt ->
+            Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
+          val of_h6 :
+            Html_types.heading elt ->
+            Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
+          val of_abbr :
+            [> Html_types.abbr ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_address :
+            [> Html_types.address ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_article :
+            [> Html_types.article ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_aside :
+            [> Html_types.aside ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_b :
+            [> Html_types.b ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_bdo :
+            [> Html_types.bdo ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_cite :
+            [> Html_types.cite ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_code :
+            [> Html_types.code ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_colgroup :
+            [> Html_types.colgroup ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_command :
+            [> Html_types.command ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_datalist :
+            [> Html_types.datalist ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_dd :
+            [> Html_types.dd ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_details :
+            [> Html_types.details ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_dfn :
+            [> Html_types.dfn ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_dt :
+            [> Html_types.dt ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_em :
+            [> Html_types.em ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_embed :
+            [> Html_types.embed ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_figcaption :
+            [> Html_types.figcaption ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_figure :
+            [> Html_types.figure ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_footer :
+            [> Html_types.footer ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_header :
+            [> Html_types.header ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_hgroup :
+            [> Html_types.hgroup ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_i :
+            [> Html_types.i ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_kbd :
+            [> Html_types.kbd ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_keygen :
+            [> Html_types.keygen ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_main :
+            [> Html_types.main ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_mark :
+            [> Html_types.mark ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_menu :
+            [> Html_types.menu ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_meter :
+            [> Html_types.meter ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_nav :
+            [> Html_types.nav ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_noscript :
+            [> Html_types.noscript ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_output :
+            [> Html_types.output_elt ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_progress :
+            [> Html_types.progress ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_q :
+            [> Html_types.q ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_rp :
+            [> Html_types.rp ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_rt :
+            [> Html_types.rt ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_ruby :
+            [> Html_types.ruby ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_samp :
+            [> Html_types.samp ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_section :
+            [> Html_types.section ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_small :
+            [> Html_types.small ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_source :
+            [> Html_types.source ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_span :
+            [> Html_types.span ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_strong :
+            [> Html_types.strong ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_sub :
+            [> Html_types.sub ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_summary :
+            [> Html_types.summary ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_sup :
+            [> Html_types.sup ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_th :
+            [> Html_types.th ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_time :
+            [> Html_types.time ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_u :
+            [> Html_types.u ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_var :
+            [> Html_types.var ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
+          val of_wbr :
+            [> Html_types.wbr ] elt ->
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
         end
-      module Printer :
+      module Manip :
         sig
-          val pp_elt :
-            ?encode:(string -> string) ->
-            ?indent:bool -> unit -> Format.formatter -> 'a elt -> unit
-          val pp :
-            ?encode:(string -> string) ->
-            ?indent:bool ->
-            ?advert:string -> unit -> Format.formatter -> F.doc -> unit
+          val appendChild :
+            ?before:'a Eliom_content.Html.elt ->
+            'b Eliom_content.Html.elt -> 'c Eliom_content.Html.elt -> unit
+          val appendToBody :
+            ?before:'a Eliom_content.Html.elt ->
+            'c Eliom_content.Html.elt -> unit
+          val appendChildren :
+            ?before:'a Eliom_content.Html.elt ->
+            'b Eliom_content.Html.elt ->
+            'c Eliom_content.Html.elt list -> unit
+          val insertFirstChild :
+            'b Eliom_content.Html.elt -> 'c Eliom_content.Html.elt -> unit
+          val nth :
+            'a Eliom_content.Html.elt ->
+            int -> 'b Eliom_content.Html.elt option
+          val childLength : 'a Eliom_content.Html.elt -> int
+          val removeChild :
+            'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt -> unit
+          val replaceChild :
+            'a Eliom_content.Html.elt ->
+            'b Eliom_content.Html.elt -> 'c Eliom_content.Html.elt -> unit
+          val removeChildren : 'a Eliom_content.Html.elt -> unit
+          val removeSelf : 'a Eliom_content.Html.elt -> unit
+          val replaceChildren :
+            'a Eliom_content.Html.elt ->
+            'b Eliom_content.Html.elt list -> unit
+          val parentNode :
+            'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt option
+          val nextSibling :
+            'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt option
+          val previousSibling :
+            'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt option
+          val insertBefore :
+            before:'a Eliom_content.Html.elt ->
+            'b Eliom_content.Html.elt -> unit
+          val insertAfter :
+            after:'a Eliom_content.Html.elt ->
+            'b Eliom_content.Html.elt -> unit
+          val replaceSelf :
+            'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt -> unit
+          val children :
+            'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt list
+          val addEventListener :
+            ?capture:bool ->
+            'a Eliom_content.Html.elt ->
+            (#Js_of_ocaml.Dom_html.event as 'b) Js_of_ocaml.Js.t
+            Js_of_ocaml.Dom_html.Event.typ ->
+            ('a Eliom_content.Html.elt -> 'b Js_of_ocaml.Js.t -> bool) ->
+            Js_of_ocaml.Dom_html.event_listener_id
+          module Named :
+            sig
+              val appendChild :
+                ?before:'a Eliom_content.Html.elt ->
+                'b Eliom_content.Html.Id.id ->
+                'c Eliom_content.Html.elt -> unit
+              val appendChildren :
+                ?before:'a Eliom_content.Html.elt ->
+                'b Eliom_content.Html.Id.id ->
+                'c Eliom_content.Html.elt list -> unit
+              val removeChild :
+                'a Eliom_content.Html.Id.id ->
+                'b Eliom_content.Html.elt -> unit
+              val replaceChild :
+                'a Eliom_content.Html.Id.id ->
+                'b Eliom_content.Html.elt ->
+                'c Eliom_content.Html.elt -> unit
+              val removeChildren : 'a Eliom_content.Html.Id.id -> unit
+              val replaceChildren :
+                'a Eliom_content.Html.Id.id ->
+                'b Eliom_content.Html.elt list -> unit
+              val addEventListener :
+                ?capture:bool ->
+                'a Eliom_content.Html.Id.id ->
+                (#Js_of_ocaml.Dom_html.event as 'b) Js_of_ocaml.Js.t
+                Js_of_ocaml.Dom_html.Event.typ ->
+                ('a Eliom_content.Html.elt -> 'b Js_of_ocaml.Js.t -> bool) ->
+                Js_of_ocaml.Dom_html.event_listener_id
+            end
+          val scrollIntoView :
+            ?bottom:bool -> 'a Eliom_content.Html.elt -> unit
+          val childNodes :
+            'a Eliom_content.Html.elt ->
+            Js_of_ocaml.Dom.node Js_of_ocaml.Js.t list
+          val childElements :
+            'a Eliom_content.Html.elt ->
+            Js_of_ocaml.Dom.element Js_of_ocaml.Js.t list
+          module Class :
+            sig
+              val contain : 'a Eliom_content.Html.elt -> string -> bool
+              val remove : 'a Eliom_content.Html.elt -> string -> unit
+              val removes : 'a Eliom_content.Html.elt -> string list -> unit
+              val add : 'a Eliom_content.Html.elt -> string -> unit
+              val adds : 'a Eliom_content.Html.elt -> string list -> unit
+              val replace :
+                'a Eliom_content.Html.elt -> string -> string -> unit
+              val clear : 'a Eliom_content.Html.elt -> unit
+              val toggle : 'a Eliom_content.Html.elt -> string -> unit
+              val toggle2 :
+                'a Eliom_content.Html.elt -> string -> string -> unit
+            end
+          module Elt :
+            sig val body : unit -> [ `Body ] Eliom_content.Html.elt end
+          module Ev :
+            sig
+              type ('a, 'b) ev =
+                  'a Eliom_content.Html.elt ->
+                  ('b Js_of_ocaml.Js.t -> bool) -> unit
+              type ('a, 'b) ev_unit =
+                  'a Eliom_content.Html.elt ->
+                  ('b Js_of_ocaml.Js.t -> unit) -> unit
+              val onkeyup :
+                ('a, Js_of_ocaml.Dom_html.keyboardEvent)
+                Eliom_content.Html.Manip.Ev.ev
+              val onkeydown :
+                ('a, Js_of_ocaml.Dom_html.keyboardEvent)
+                Eliom_content.Html.Manip.Ev.ev
+              val onmouseup :
+                ('a, Js_of_ocaml.Dom_html.mouseEvent)
+                Eliom_content.Html.Manip.Ev.ev
+              val onmousedown :
+                ('a, Js_of_ocaml.Dom_html.mouseEvent)
+                Eliom_content.Html.Manip.Ev.ev
+              val onmouseout :
+                ('a, Js_of_ocaml.Dom_html.mouseEvent)
+                Eliom_content.Html.Manip.Ev.ev
+              val onmouseover :
+                ('a, Js_of_ocaml.Dom_html.mouseEvent)
+                Eliom_content.Html.Manip.Ev.ev
+              val onclick :
+                ('a, Js_of_ocaml.Dom_html.mouseEvent)
+                Eliom_content.Html.Manip.Ev.ev
+              val ondblclick :
+                ('a, Js_of_ocaml.Dom_html.mouseEvent)
+                Eliom_content.Html.Manip.Ev.ev
+              val onload :
+                ('a, Js_of_ocaml.Dom_html.event)
+                Eliom_content.Html.Manip.Ev.ev
+              val onerror :
+                ('a, Js_of_ocaml.Dom_html.event)
+                Eliom_content.Html.Manip.Ev.ev
+              val onabort :
+                ('a, Js_of_ocaml.Dom_html.event)
+                Eliom_content.Html.Manip.Ev.ev
+              val onfocus :
+                ('a, Js_of_ocaml.Dom_html.event)
+                Eliom_content.Html.Manip.Ev.ev
+              val onblur :
+                ('a, Js_of_ocaml.Dom_html.event)
+                Eliom_content.Html.Manip.Ev.ev
+              val onfocus_textarea :
+                ('a, Js_of_ocaml.Dom_html.event)
+                Eliom_content.Html.Manip.Ev.ev
+              val onblur_textarea :
+                ('a, Js_of_ocaml.Dom_html.event)
+                Eliom_content.Html.Manip.Ev.ev
+              val onscroll :
+                ('a, Js_of_ocaml.Dom_html.event)
+                Eliom_content.Html.Manip.Ev.ev
+              val onreturn :
+                ('a, Js_of_ocaml.Dom_html.keyboardEvent)
+                Eliom_content.Html.Manip.Ev.ev_unit
+              val onchange :
+                ('a, Js_of_ocaml.Dom_html.event)
+                Eliom_content.Html.Manip.Ev.ev
+              val onchange_select :
+                ('a, Js_of_ocaml.Dom_html.event)
+                Eliom_content.Html.Manip.Ev.ev
+            end
+          module Attr :
+            sig
+              val clientWidth : 'a Eliom_content.Html.elt -> int
+              val clientHeight : 'a Eliom_content.Html.elt -> int
+              val offsetWidth : 'a Eliom_content.Html.elt -> int
+              val offsetHeight : 'a Eliom_content.Html.elt -> int
+              val clientLeft : 'a Eliom_content.Html.elt -> int
+              val clientTop : 'a Eliom_content.Html.elt -> int
+            end
+          module Css :
+            sig
+              val background : 'a Eliom_content.Html.elt -> string
+              val backgroundAttachment : 'a Eliom_content.Html.elt -> string
+              val backgroundColor : 'a Eliom_content.Html.elt -> string
+              val backgroundImage : 'a Eliom_content.Html.elt -> string
+              val backgroundPosition : 'a Eliom_content.Html.elt -> string
+              val backgroundRepeat : 'a Eliom_content.Html.elt -> string
+              val border : 'a Eliom_content.Html.elt -> string
+              val borderBottom : 'a Eliom_content.Html.elt -> string
+              val borderBottomColor : 'a Eliom_content.Html.elt -> string
+              val borderBottomStyle : 'a Eliom_content.Html.elt -> string
+              val borderBottomWidth : 'a Eliom_content.Html.elt -> string
+              val borderBottomWidthPx : 'a Eliom_content.Html.elt -> int
+              val borderCollapse : 'a Eliom_content.Html.elt -> string
+              val borderColor : 'a Eliom_content.Html.elt -> string
+              val borderLeft : 'a Eliom_content.Html.elt -> string
+              val borderLeftColor : 'a Eliom_content.Html.elt -> string
+              val borderLeftStyle : 'a Eliom_content.Html.elt -> string
+              val borderLeftWidth : 'a Eliom_content.Html.elt -> string
+              val borderLeftWidthPx : 'a Eliom_content.Html.elt -> int
+              val borderRight : 'a Eliom_content.Html.elt -> string
+              val borderRightColor : 'a Eliom_content.Html.elt -> string
+              val borderRightStyle : 'a Eliom_content.Html.elt -> string
+              val borderRightWidth : 'a Eliom_content.Html.elt -> string
+              val borderRightWidthPx : 'a Eliom_content.Html.elt -> int
+              val borderSpacing : 'a Eliom_content.Html.elt -> string
+              val borderStyle : 'a Eliom_content.Html.elt -> string
+              val borderTop : 'a Eliom_content.Html.elt -> string
+              val borderTopColor : 'a Eliom_content.Html.elt -> string
+              val borderTopStyle : 'a Eliom_content.Html.elt -> string
+              val borderTopWidth : 'a Eliom_content.Html.elt -> string
+              val borderTopWidthPx : 'a Eliom_content.Html.elt -> int
+              val borderWidth : 'a Eliom_content.Html.elt -> string
+              val bottom : 'a Eliom_content.Html.elt -> string
+              val captionSide : 'a Eliom_content.Html.elt -> string
+              val clear : 'a Eliom_content.Html.elt -> string
+              val clip : 'a Eliom_content.Html.elt -> string
+              val color : 'a Eliom_content.Html.elt -> string
+              val content : 'a Eliom_content.Html.elt -> string
+              val counterIncrement : 'a Eliom_content.Html.elt -> string
+              val counterReset : 'a Eliom_content.Html.elt -> string
+              val cssFloat : 'a Eliom_content.Html.elt -> string
+              val cssText : 'a Eliom_content.Html.elt -> string
+              val cursor : 'a Eliom_content.Html.elt -> string
+              val direction : 'a Eliom_content.Html.elt -> string
+              val display : 'a Eliom_content.Html.elt -> string
+              val emptyCells : 'a Eliom_content.Html.elt -> string
+              val font : 'a Eliom_content.Html.elt -> string
+              val fontFamily : 'a Eliom_content.Html.elt -> string
+              val fontSize : 'a Eliom_content.Html.elt -> string
+              val fontStyle : 'a Eliom_content.Html.elt -> string
+              val fontVariant : 'a Eliom_content.Html.elt -> string
+              val fontWeight : 'a Eliom_content.Html.elt -> string
+              val height : 'a Eliom_content.Html.elt -> string
+              val heightPx : 'a Eliom_content.Html.elt -> int
+              val left : 'a Eliom_content.Html.elt -> string
+              val leftPx : 'a Eliom_content.Html.elt -> int
+              val letterSpacing : 'a Eliom_content.Html.elt -> string
+              val lineHeight : 'a Eliom_content.Html.elt -> string
+              val listStyle : 'a Eliom_content.Html.elt -> string
+              val listStyleImage : 'a Eliom_content.Html.elt -> string
+              val listStylePosition : 'a Eliom_content.Html.elt -> string
+              val listStyleType : 'a Eliom_content.Html.elt -> string
+              val margin : 'a Eliom_content.Html.elt -> string
+              val marginBottom : 'a Eliom_content.Html.elt -> string
+              val marginBottomPx : 'a Eliom_content.Html.elt -> int
+              val marginLeft : 'a Eliom_content.Html.elt -> string
+              val marginLeftPx : 'a Eliom_content.Html.elt -> int
+              val marginRight : 'a Eliom_content.Html.elt -> string
+              val marginRightPx : 'a Eliom_content.Html.elt -> int
+              val marginTop : 'a Eliom_content.Html.elt -> string
+              val marginTopPx : 'a Eliom_content.Html.elt -> int
+              val maxHeight : 'a Eliom_content.Html.elt -> string
+              val maxHeightPx : 'a Eliom_content.Html.elt -> int
+              val maxWidth : 'a Eliom_content.Html.elt -> string
+              val maxWidthPx : 'a Eliom_content.Html.elt -> int
+              val minHeight : 'a Eliom_content.Html.elt -> string
+              val minHeightPx : 'a Eliom_content.Html.elt -> int
+              val minWidth : 'a Eliom_content.Html.elt -> string
+              val minWidthPx : 'a Eliom_content.Html.elt -> int
+              val opacity : 'a Eliom_content.Html.elt -> string option
+              val outline : 'a Eliom_content.Html.elt -> string
+              val outlineColor : 'a Eliom_content.Html.elt -> string
+              val outlineOffset : 'a Eliom_content.Html.elt -> string
+              val outlineStyle : 'a Eliom_content.Html.elt -> string
+              val outlineWidth : 'a Eliom_content.Html.elt -> string
+              val overflow : 'a Eliom_content.Html.elt -> string
+              val overflowX : 'a Eliom_content.Html.elt -> string
+              val overflowY : 'a Eliom_content.Html.elt -> string
+              val padding : 'a Eliom_content.Html.elt -> string
+              val paddingBottom : 'a Eliom_content.Html.elt -> string
+              val paddingBottomPx : 'a Eliom_content.Html.elt -> int
+              val paddingLeft : 'a Eliom_content.Html.elt -> string
+              val paddingLeftPx : 'a Eliom_content.Html.elt -> int
+              val paddingRight : 'a Eliom_content.Html.elt -> string
+              val paddingRightPx : 'a Eliom_content.Html.elt -> int
+              val paddingTop : 'a Eliom_content.Html.elt -> string
+              val paddingTopPx : 'a Eliom_content.Html.elt -> int
+              val pageBreakAfter : 'a Eliom_content.Html.elt -> string
+              val pageBreakBefore : 'a Eliom_content.Html.elt -> string
+              val position : 'a Eliom_content.Html.elt -> string
+              val right : 'a Eliom_content.Html.elt -> string
+              val rightPx : 'a Eliom_content.Html.elt -> int
+              val tableLayout : 'a Eliom_content.Html.elt -> string
+              val textAlign : 'a Eliom_content.Html.elt -> string
+              val textDecoration : 'a Eliom_content.Html.elt -> string
+              val textIndent : 'a Eliom_content.Html.elt -> string
+              val textTransform : 'a Eliom_content.Html.elt -> string
+              val top : 'a Eliom_content.Html.elt -> string
+              val topPx : 'a Eliom_content.Html.elt -> int
+              val verticalAlign : 'a Eliom_content.Html.elt -> string
+              val visibility : 'a Eliom_content.Html.elt -> string
+              val whiteSpace : 'a Eliom_content.Html.elt -> string
+              val width : 'a Eliom_content.Html.elt -> string
+              val widthPx : 'a Eliom_content.Html.elt -> int
+              val wordSpacing : 'a Eliom_content.Html.elt -> string
+              val zIndex : 'a Eliom_content.Html.elt -> string
+            end
+          module SetCss :
+            sig
+              val background : 'a Eliom_content.Html.elt -> string -> unit
+              val backgroundAttachment :
+                'a Eliom_content.Html.elt -> string -> unit
+              val backgroundColor :
+                'a Eliom_content.Html.elt -> string -> unit
+              val backgroundImage :
+                'a Eliom_content.Html.elt -> string -> unit
+              val backgroundPosition :
+                'a Eliom_content.Html.elt -> string -> unit
+              val backgroundRepeat :
+                'a Eliom_content.Html.elt -> string -> unit
+              val border : 'a Eliom_content.Html.elt -> string -> unit
+              val borderBottom : 'a Eliom_content.Html.elt -> string -> unit
+              val borderBottomColor :
+                'a Eliom_content.Html.elt -> string -> unit
+              val borderBottomStyle :
+                'a Eliom_content.Html.elt -> string -> unit
+              val borderBottomWidth :
+                'a Eliom_content.Html.elt -> string -> unit
+              val borderBottomWidthPx :
+                'a Eliom_content.Html.elt -> int -> unit
+              val borderCollapse :
+                'a Eliom_content.Html.elt -> string -> unit
+              val borderColor : 'a Eliom_content.Html.elt -> string -> unit
+              val borderLeft : 'a Eliom_content.Html.elt -> string -> unit
+              val borderLeftColor :
+                'a Eliom_content.Html.elt -> string -> unit
+              val borderLeftStyle :
+                'a Eliom_content.Html.elt -> string -> unit
+              val borderLeftWidth :
+                'a Eliom_content.Html.elt -> string -> unit
+              val borderLeftWidthPx :
+                'a Eliom_content.Html.elt -> int -> unit
+              val borderRight : 'a Eliom_content.Html.elt -> string -> unit
+              val borderRightColor :
+                'a Eliom_content.Html.elt -> string -> unit
+              val borderRightStyle :
+                'a Eliom_content.Html.elt -> string -> unit
+              val borderRightWidth :
+                'a Eliom_content.Html.elt -> string -> unit
+              val borderRightWidthPx :
+                'a Eliom_content.Html.elt -> int -> unit
+              val borderSpacing : 'a Eliom_content.Html.elt -> string -> unit
+              val borderStyle : 'a Eliom_content.Html.elt -> string -> unit
+              val borderTop : 'a Eliom_content.Html.elt -> string -> unit
+              val borderTopColor :
+                'a Eliom_content.Html.elt -> string -> unit
+              val borderTopStyle :
+                'a Eliom_content.Html.elt -> string -> unit
+              val borderTopWidth :
+                'a Eliom_content.Html.elt -> string -> unit
+              val borderTopWidthPx : 'a Eliom_content.Html.elt -> int -> unit
+              val borderWidth : 'a Eliom_content.Html.elt -> string -> unit
+              val bottom : 'a Eliom_content.Html.elt -> string -> unit
+              val bottomPx : 'a Eliom_content.Html.elt -> int -> unit
+              val captionSide : 'a Eliom_content.Html.elt -> string -> unit
+              val clear : 'a Eliom_content.Html.elt -> string -> unit
+              val clip : 'a Eliom_content.Html.elt -> string -> unit
+              val color : 'a Eliom_content.Html.elt -> string -> unit
+              val content : 'a Eliom_content.Html.elt -> string -> unit
+              val counterIncrement :
+                'a Eliom_content.Html.elt -> string -> unit
+              val counterReset : 'a Eliom_content.Html.elt -> string -> unit
+              val cssFloat : 'a Eliom_content.Html.elt -> string -> unit
+              val cssText : 'a Eliom_content.Html.elt -> string -> unit
+              val cursor : 'a Eliom_content.Html.elt -> string -> unit
+              val direction : 'a Eliom_content.Html.elt -> string -> unit
+              val display : 'a Eliom_content.Html.elt -> string -> unit
+              val emptyCells : 'a Eliom_content.Html.elt -> string -> unit
+              val font : 'a Eliom_content.Html.elt -> string -> unit
+              val fontFamily : 'a Eliom_content.Html.elt -> string -> unit
+              val fontSize : 'a Eliom_content.Html.elt -> string -> unit
+              val fontStyle : 'a Eliom_content.Html.elt -> string -> unit
+              val fontVariant : 'a Eliom_content.Html.elt -> string -> unit
+              val fontWeight : 'a Eliom_content.Html.elt -> string -> unit
+              val height : 'a Eliom_content.Html.elt -> string -> unit
+              val heightPx : 'a Eliom_content.Html.elt -> int -> unit
+              val left : 'a Eliom_content.Html.elt -> string -> unit
+              val leftPx : 'a Eliom_content.Html.elt -> int -> unit
+              val letterSpacing : 'a Eliom_content.Html.elt -> string -> unit
+              val lineHeight : 'a Eliom_content.Html.elt -> string -> unit
+              val listStyle : 'a Eliom_content.Html.elt -> string -> unit
+              val listStyleImage :
+                'a Eliom_content.Html.elt -> string -> unit
+              val listStylePosition :
+                'a Eliom_content.Html.elt -> string -> unit
+              val listStyleType : 'a Eliom_content.Html.elt -> string -> unit
+              val margin : 'a Eliom_content.Html.elt -> string -> unit
+              val marginBottom : 'a Eliom_content.Html.elt -> string -> unit
+              val marginBottomPx : 'a Eliom_content.Html.elt -> int -> unit
+              val marginLeft : 'a Eliom_content.Html.elt -> string -> unit
+              val marginLeftPx : 'a Eliom_content.Html.elt -> int -> unit
+              val marginRight : 'a Eliom_content.Html.elt -> string -> unit
+              val marginRightPx : 'a Eliom_content.Html.elt -> int -> unit
+              val marginTop : 'a Eliom_content.Html.elt -> string -> unit
+              val marginTopPx : 'a Eliom_content.Html.elt -> int -> unit
+              val maxHeight : 'a Eliom_content.Html.elt -> string -> unit
+              val maxHeightPx : 'a Eliom_content.Html.elt -> int -> unit
+              val maxWidth : 'a Eliom_content.Html.elt -> string -> unit
+              val maxWidthPx : 'a Eliom_content.Html.elt -> int -> unit
+              val minHeight : 'a Eliom_content.Html.elt -> string -> unit
+              val minHeightPx : 'a Eliom_content.Html.elt -> int -> unit
+              val minWidth : 'a Eliom_content.Html.elt -> string -> unit
+              val minWidthPx : 'a Eliom_content.Html.elt -> int -> unit
+              val opacity : 'a Eliom_content.Html.elt -> string -> unit
+              val outline : 'a Eliom_content.Html.elt -> string -> unit
+              val outlineColor : 'a Eliom_content.Html.elt -> string -> unit
+              val outlineOffset : 'a Eliom_content.Html.elt -> string -> unit
+              val outlineStyle : 'a Eliom_content.Html.elt -> string -> unit
+              val outlineWidth : 'a Eliom_content.Html.elt -> string -> unit
+              val overflow : 'a Eliom_content.Html.elt -> string -> unit
+              val overflowX : 'a Eliom_content.Html.elt -> string -> unit
+              val overflowY : 'a Eliom_content.Html.elt -> string -> unit
+              val padding : 'a Eliom_content.Html.elt -> string -> unit
+              val paddingBottom : 'a Eliom_content.Html.elt -> string -> unit
+              val paddingBottomPx : 'a Eliom_content.Html.elt -> int -> unit
+              val paddingLeft : 'a Eliom_content.Html.elt -> string -> unit
+              val paddingLeftPx : 'a Eliom_content.Html.elt -> int -> unit
+              val paddingRight : 'a Eliom_content.Html.elt -> string -> unit
+              val paddingRightPx : 'a Eliom_content.Html.elt -> int -> unit
+              val paddingTop : 'a Eliom_content.Html.elt -> string -> unit
+              val paddingTopPx : 'a Eliom_content.Html.elt -> int -> unit
+              val pageBreakAfter :
+                'a Eliom_content.Html.elt -> string -> unit
+              val pageBreakBefore :
+                'a Eliom_content.Html.elt -> string -> unit
+              val position : 'a Eliom_content.Html.elt -> string -> unit
+              val right : 'a Eliom_content.Html.elt -> string -> unit
+              val rightPx : 'a Eliom_content.Html.elt -> int -> unit
+              val tableLayout : 'a Eliom_content.Html.elt -> string -> unit
+              val textAlign : 'a Eliom_content.Html.elt -> string -> unit
+              val textDecoration :
+                'a Eliom_content.Html.elt -> string -> unit
+              val textIndent : 'a Eliom_content.Html.elt -> string -> unit
+              val textTransform : 'a Eliom_content.Html.elt -> string -> unit
+              val top : 'a Eliom_content.Html.elt -> string -> unit
+              val topPx : 'a Eliom_content.Html.elt -> int -> unit
+              val verticalAlign : 'a Eliom_content.Html.elt -> string -> unit
+              val visibility : 'a Eliom_content.Html.elt -> string -> unit
+              val whiteSpace : 'a Eliom_content.Html.elt -> string -> unit
+              val width : 'a Eliom_content.Html.elt -> string -> unit
+              val widthPx : 'a Eliom_content.Html.elt -> int -> unit
+              val wordSpacing : 'a Eliom_content.Html.elt -> string -> unit
+              val zIndex : 'a Eliom_content.Html.elt -> string -> unit
+            end
+        end
+      module Of_dom :
+        sig
+          type 'a elt = 'a elt
+          val of_element :
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t -> 'a elt
+          val of_html :
+            Js_of_ocaml.Dom_html.htmlElement Js_of_ocaml.Js.t ->
+            [> Html_types.html ] elt
+          val of_head :
+            Js_of_ocaml.Dom_html.headElement Js_of_ocaml.Js.t ->
+            [> Html_types.head ] elt
+          val of_link :
+            Js_of_ocaml.Dom_html.linkElement Js_of_ocaml.Js.t ->
+            [> Html_types.link ] elt
+          val of_title :
+            Js_of_ocaml.Dom_html.titleElement Js_of_ocaml.Js.t ->
+            [> Html_types.title ] elt
+          val of_meta :
+            Js_of_ocaml.Dom_html.metaElement Js_of_ocaml.Js.t ->
+            [> Html_types.meta ] elt
+          val of_base :
+            Js_of_ocaml.Dom_html.baseElement Js_of_ocaml.Js.t ->
+            [> Html_types.base ] elt
+          val of_style :
+            Js_of_ocaml.Dom_html.styleElement Js_of_ocaml.Js.t ->
+            [> Html_types.style ] elt
+          val of_body :
+            Js_of_ocaml.Dom_html.bodyElement Js_of_ocaml.Js.t ->
+            [> Html_types.body ] elt
+          val of_form :
+            Js_of_ocaml.Dom_html.formElement Js_of_ocaml.Js.t ->
+            [> Html_types.form ] elt
+          val of_optGroup :
+            Js_of_ocaml.Dom_html.optGroupElement Js_of_ocaml.Js.t ->
+            [> Html_types.optgroup ] elt
+          val of_option :
+            Js_of_ocaml.Dom_html.optionElement Js_of_ocaml.Js.t ->
+            [> Html_types.selectoption ] elt
+          val of_select :
+            Js_of_ocaml.Dom_html.selectElement Js_of_ocaml.Js.t ->
+            [> Html_types.select ] elt
+          val of_input :
+            Js_of_ocaml.Dom_html.inputElement Js_of_ocaml.Js.t ->
+            [> Html_types.input ] elt
+          val of_textArea :
+            Js_of_ocaml.Dom_html.textAreaElement Js_of_ocaml.Js.t ->
+            [> Html_types.textarea ] elt
+          val of_button :
+            Js_of_ocaml.Dom_html.buttonElement Js_of_ocaml.Js.t ->
+            [> Html_types.button ] elt
+          val of_label :
+            Js_of_ocaml.Dom_html.labelElement Js_of_ocaml.Js.t ->
+            [> Html_types.label ] elt
+          val of_fieldSet :
+            Js_of_ocaml.Dom_html.fieldSetElement Js_of_ocaml.Js.t ->
+            [> Html_types.fieldset ] elt
+          val of_legend :
+            Js_of_ocaml.Dom_html.legendElement Js_of_ocaml.Js.t ->
+            [> Html_types.legend ] elt
+          val of_uList :
+            Js_of_ocaml.Dom_html.uListElement Js_of_ocaml.Js.t ->
+            [> Html_types.ul ] elt
+          val of_oList :
+            Js_of_ocaml.Dom_html.oListElement Js_of_ocaml.Js.t ->
+            [> Html_types.ol ] elt
+          val of_dList :
+            Js_of_ocaml.Dom_html.dListElement Js_of_ocaml.Js.t ->
+            [> Html_types.dl ] elt
+          val of_li :
+            Js_of_ocaml.Dom_html.liElement Js_of_ocaml.Js.t ->
+            [> Html_types.li ] elt
+          val of_dialog :
+            Js_of_ocaml.Dom_html.dialogElement Js_of_ocaml.Js.t ->
+            [> Html_types.dialog ] elt
+          val of_div :
+            Js_of_ocaml.Dom_html.divElement Js_of_ocaml.Js.t ->
+            [> Html_types.div ] elt
+          val of_paragraph :
+            Js_of_ocaml.Dom_html.paragraphElement Js_of_ocaml.Js.t ->
+            [> Html_types.p ] elt
+          val of_heading :
+            Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t ->
+            [> Html_types.heading ] elt
+          val of_quote :
+            Js_of_ocaml.Dom_html.quoteElement Js_of_ocaml.Js.t ->
+            [> Html_types.blockquote ] elt
+          val of_pre :
+            Js_of_ocaml.Dom_html.preElement Js_of_ocaml.Js.t ->
+            [> Html_types.pre ] elt
+          val of_br :
+            Js_of_ocaml.Dom_html.brElement Js_of_ocaml.Js.t ->
+            [> Html_types.br ] elt
+          val of_hr :
+            Js_of_ocaml.Dom_html.hrElement Js_of_ocaml.Js.t ->
+            [> Html_types.hr ] elt
+          val of_mod :
+            Js_of_ocaml.Dom_html.modElement Js_of_ocaml.Js.t ->
+            [> `Del of 'a | `Ins of 'a ] elt
+          val of_anchor :
+            Js_of_ocaml.Dom_html.anchorElement Js_of_ocaml.Js.t ->
+            [> 'a Html_types.a ] elt
+          val of_image :
+            Js_of_ocaml.Dom_html.imageElement Js_of_ocaml.Js.t ->
+            [> Html_types.img ] elt
+          val of_object :
+            Js_of_ocaml.Dom_html.objectElement Js_of_ocaml.Js.t ->
+            [> 'a Html_types.object_ ] elt
+          val of_param :
+            Js_of_ocaml.Dom_html.paramElement Js_of_ocaml.Js.t ->
+            [> Html_types.param ] elt
+          val of_area :
+            Js_of_ocaml.Dom_html.areaElement Js_of_ocaml.Js.t ->
+            [> Html_types.area ] elt
+          val of_map :
+            Js_of_ocaml.Dom_html.mapElement Js_of_ocaml.Js.t ->
+            [> 'a Html_types.map ] elt
+          val of_script :
+            Js_of_ocaml.Dom_html.scriptElement Js_of_ocaml.Js.t ->
+            [> Html_types.script ] elt
+          val of_embed :
+            Js_of_ocaml.Dom_html.embedElement Js_of_ocaml.Js.t ->
+            [> Html_types.embed ] elt
+          val of_tableCell :
+            Js_of_ocaml.Dom_html.tableCellElement Js_of_ocaml.Js.t ->
+            [> `Td | `Th ] elt
+          val of_tableRow :
+            Js_of_ocaml.Dom_html.tableRowElement Js_of_ocaml.Js.t ->
+            [> Html_types.tr ] elt
+          val of_tableCol :
+            Js_of_ocaml.Dom_html.tableColElement Js_of_ocaml.Js.t ->
+            [> Html_types.col ] elt
+          val of_tableSection :
+            Js_of_ocaml.Dom_html.tableSectionElement Js_of_ocaml.Js.t ->
+            [> `Tbody | `Tfoot | `Thead ] elt
+          val of_tableCaption :
+            Js_of_ocaml.Dom_html.tableCaptionElement Js_of_ocaml.Js.t ->
+            [> Html_types.caption ] elt
+          val of_table :
+            Js_of_ocaml.Dom_html.tableElement Js_of_ocaml.Js.t ->
+            [> Html_types.table ] elt
+          val of_canvas :
+            Js_of_ocaml.Dom_html.canvasElement Js_of_ocaml.Js.t ->
+            [> 'a Html_types.canvas ] elt
+          val of_iFrame :
+            Js_of_ocaml.Dom_html.iFrameElement Js_of_ocaml.Js.t ->
+            [> Html_types.iframe ] elt
+          val of_audio :
+            Js_of_ocaml.Dom_html.audioElement Js_of_ocaml.Js.t ->
+            [> 'a Html_types.audio ] elt
+          val of_video :
+            Js_of_ocaml.Dom_html.videoElement Js_of_ocaml.Js.t ->
+            [> 'a Html_types.video ] elt
         end
     end
+  val force_link : unit
+  val set_client_fun :
+    ?app:string ->
+    service:('a, 'b, 'c, 'd, 'e, 'f, 'g, [< `WithSuffix | `WithoutSuffix ],
+             'h, 'i, 'j)
+            Eliom_service.t ->
+    ('a -> 'b -> Eliom_service.result Lwt.t) -> unit
+  val set_form_error_handler : (unit -> bool Lwt.t) -> unit
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/client/type_Eliom_content_core.Html.Custom_data.wiki b/doc/11.x/api/client/type_Eliom_content_core.Html.Custom_data.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content_core.Html.Custom_data.wiki
rename to doc/11.x/api/client/type_Eliom_content_core.Html.Custom_data.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content_core.Html.D.Raw.wiki b/doc/11.x/api/client/type_Eliom_content_core.Html.D.Raw.wiki
similarity index 84%
rename from doc/10.x/api/client/type_Eliom_content_core.Html.D.Raw.wiki
rename to doc/11.x/api/client/type_Eliom_content_core.Html.D.Raw.wiki
index 87f6260c65..33caf70750 100644
--- a/doc/10.x/api/client/type_Eliom_content_core.Html.D.Raw.wiki
+++ b/doc/11.x/api/client/type_Eliom_content_core.Html.D.Raw.wiki
@@ -69,83 +69,10 @@
   val a_title : Html_types.text wrap -> [> `Title ] attrib
   val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
   val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-  val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-  val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
-  val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
-  val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
-  val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-  val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-  val a_oncanplaythrough : Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-  val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-  val a_ondurationchange : Xml.event_handler -> [> `OnDurationChange ] attrib
-  val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-  val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-  val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-  val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-  val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
-  val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
-  val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
-  val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-  val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-  val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
-  val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-  val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-  val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-  val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-  val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-  val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-  val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-  val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-  val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-  val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
-  val a_onreadystatechange :
-    Xml.event_handler -> [> `OnReadyStateChange ] attrib
-  val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-  val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-  val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-  val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-  val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-  val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-  val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-  val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-  val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-  val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-  val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-  val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
-  val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-  val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-  val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
-  val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-  val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-  val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
-  val a_onloadedmetadata : Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-  val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
-  val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-  val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-  val a_oncontextmenu : Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-  val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-  val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-  val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-  val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-  val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-  val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-  val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-  val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-  val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-  val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-  val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-  val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-  val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-  val a_ontouchstart : Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-  val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-  val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-  val a_ontouchcancel : Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-  val a_onkeypress : Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-  val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-  val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
   val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
   val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-  val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+  val a_autocomplete :
+    Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
   val a_async : unit -> [> `Async ] attrib
   val a_autofocus : unit -> [> `Autofocus ] attrib
   val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -244,7 +171,7 @@
   val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
   val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
   val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-  val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+  val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
   val a_multiple : unit -> [> `Multiple ] attrib
   val a_name : Html_types.text wrap -> [> `Name ] attrib
   val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -285,6 +212,7 @@
   val a_readonly : unit -> [> `ReadOnly ] attrib
   val a_button_type :
     [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+  val a_script_type : Html_types.script_type wrap -> [> `Script_type ] attrib
   val a_command_type :
     [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
   val a_menu_type : [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
@@ -343,8 +271,8 @@
      [> Html_types.body ])
     star
   val svg :
-    ?a:[< Html_types.svg_attrib ] Svg.D.Raw.attrib list ->
-    [< Html_types.svg_content ] Svg.D.Raw.elt list_wrap ->
+    ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+    [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
     [> Html_types.svg ] elt
   val footer :
     ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
@@ -418,6 +346,10 @@
     ([< Html_types.blockquote_attrib ],
      [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
     star
+  val dialog :
+    ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+     [> Html_types.dialog ])
+    star
   val div :
     ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
      [> Html_types.div ])
@@ -596,6 +528,7 @@
       | `OnCanPlayThrough
       | `OnChange
       | `OnClick
+      | `OnClose
       | `OnContextMenu
       | `OnDblClick
       | `OnDrag
@@ -845,4 +778,78 @@
       val space_sep_attrib : string -> string list wrap -> 'a attrib
       val comma_sep_attrib : string -> string list wrap -> 'a attrib
     end
+  val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+  val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+  val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+  val a_onbeforeunload : string -> [> `OnBeforeUnload ] Raw'.attrib
+  val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+  val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+  val a_oncanplaythrough : string -> [> `OnCanPlayThrough ] Raw'.attrib
+  val a_onchange : string -> [> `OnChange ] Raw'.attrib
+  val a_onclose : string -> [> `OnClose ] Raw'.attrib
+  val a_ondurationchange : string -> [> `OnDurationChange ] Raw'.attrib
+  val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+  val a_onended : string -> [> `OnEnded ] Raw'.attrib
+  val a_onerror : string -> [> `OnError ] Raw'.attrib
+  val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+  val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+  val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+  val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+  val a_oninput : string -> [> `OnInput ] Raw'.attrib
+  val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+  val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+  val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+  val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+  val a_onpause : string -> [> `OnPause ] Raw'.attrib
+  val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+  val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+  val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+  val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+  val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+  val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+  val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+  val a_onreadystatechange : string -> [> `OnReadyStateChange ] Raw'.attrib
+  val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+  val a_onresize : string -> [> `OnResize ] Raw'.attrib
+  val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+  val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+  val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+  val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+  val a_onshow : string -> [> `OnShow ] Raw'.attrib
+  val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+  val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+  val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+  val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+  val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+  val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+  val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+  val a_onvolumechange : string -> [> `OnVolumeChange ] Raw'.attrib
+  val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+  val a_onload : string -> [> `OnLoad ] Raw'.attrib
+  val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+  val a_onloadedmetadata : string -> [> `OnLoadedMetaData ] Raw'.attrib
+  val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+  val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+  val a_onclick : string -> [> `OnClick ] Raw'.attrib
+  val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+  val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+  val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+  val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+  val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+  val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+  val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+  val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+  val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+  val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+  val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+  val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+  val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+  val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+  val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+  val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+  val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+  val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+  val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+  val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+  val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/client/type_Eliom_content_core.Html.D.wiki b/doc/11.x/api/client/type_Eliom_content_core.Html.D.wiki
similarity index 64%
rename from doc/10.x/api/client/type_Eliom_content_core.Html.D.wiki
rename to doc/11.x/api/client/type_Eliom_content_core.Html.D.wiki
index d81eca0da0..d3762a4304 100644
--- a/doc/10.x/api/client/type_Eliom_content_core.Html.D.wiki
+++ b/doc/11.x/api/client/type_Eliom_content_core.Html.D.wiki
@@ -1,4 +1,890 @@
 <<code language="ocaml" | sig
+  module Raw' :
+    sig
+      type 'a elt = 'a elt
+      type doc = Html_types.html elt
+      type 'a attrib = 'a attrib
+      module Xml :
+        sig
+          module W :
+            sig
+              type 'a t = 'a Xml.W.t
+              val return : 'a -> 'a t
+              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+              val fmap : ('a, 'b) ft -> 'a t -> 'b t
+              type 'a tlist = 'a Xml.W.tlist
+              val nil : unit -> 'a tlist
+              val singleton : 'a t -> 'a tlist
+              val cons : 'a t -> 'a tlist -> 'a tlist
+              val append : 'a tlist -> 'a tlist -> 'a tlist
+              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+            end
+          type 'a wrap = 'a W.t
+          type 'a list_wrap = 'a W.tlist
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) W.ft
+          val uri_of_string : (string, uri) W.ft
+          type aname = string
+          type event_handler = Xml.event_handler
+          type mouse_event_handler = Xml.mouse_event_handler
+          type keyboard_event_handler = Xml.keyboard_event_handler
+          type touch_event_handler = Xml.touch_event_handler
+          type attrib = Xml.attrib
+          val float_attrib : aname -> float wrap -> attrib
+          val int_attrib : aname -> int wrap -> attrib
+          val string_attrib : aname -> string wrap -> attrib
+          val space_sep_attrib : aname -> string list wrap -> attrib
+          val comma_sep_attrib : aname -> string list wrap -> attrib
+          val event_handler_attrib : aname -> event_handler -> attrib
+          val mouse_event_handler_attrib :
+            aname -> mouse_event_handler -> attrib
+          val keyboard_event_handler_attrib :
+            aname -> keyboard_event_handler -> attrib
+          val touch_event_handler_attrib :
+            aname -> touch_event_handler -> attrib
+          val uri_attrib : aname -> uri wrap -> attrib
+          val uris_attrib : aname -> uri list wrap -> attrib
+          type elt = Xml.elt
+          type ename = string
+          val empty : unit -> elt
+          val comment : string -> elt
+          val pcdata : string wrap -> elt
+          val encodedpcdata : string wrap -> elt
+          val entity : string -> elt
+          val leaf : ?a:attrib list -> ename -> elt
+          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+          val cdata : string -> elt
+          val cdata_script : string -> elt
+          val cdata_style : string -> elt
+        end
+      type 'a wrap = 'a Xml.W.t
+      type 'a list_wrap = 'a Xml.W.tlist
+      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
+      type ('a, 'b, 'c) star =
+          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+      module Info : Xml_sigs.Info
+      type uri = Xml.uri
+      val string_of_uri : (uri, string) Xml.W.ft
+      val uri_of_string : (string, uri) Xml.W.ft
+      val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+      val a_user_data :
+        Html_types.nmtoken -> Html_types.text wrap -> [> `User_data ] attrib
+      val a_id : Html_types.text wrap -> [> `Id ] attrib
+      val a_title : Html_types.text wrap -> [> `Title ] attrib
+      val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
+      val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
+      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+      val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
+      val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
+      val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
+      val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
+      val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
+      val a_oncanplaythrough :
+        Xml.event_handler -> [> `OnCanPlayThrough ] attrib
+      val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+      val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
+      val a_ondurationchange :
+        Xml.event_handler -> [> `OnDurationChange ] attrib
+      val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
+      val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
+      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+      val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
+      val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
+      val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
+      val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
+      val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
+      val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
+      val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
+      val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
+      val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
+      val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
+      val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
+      val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
+      val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
+      val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
+      val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
+      val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
+      val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
+      val a_onreadystatechange :
+        Xml.event_handler -> [> `OnReadyStateChange ] attrib
+      val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
+      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+      val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
+      val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
+      val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
+      val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
+      val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
+      val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
+      val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
+      val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
+      val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
+      val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
+      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+      val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
+      val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
+      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+      val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
+      val a_onloadedmetadata :
+        Xml.event_handler -> [> `OnLoadedMetaData ] attrib
+      val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
+      val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
+      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+      val a_oncontextmenu :
+        Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
+      val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
+      val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
+      val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
+      val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
+      val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
+      val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
+      val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
+      val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
+      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+      val a_ontouchstart :
+        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+      val a_ontouchcancel :
+        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+      val a_onkeypress :
+        Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
+      val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
+      val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+      val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
+      val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
+      val a_autocomplete :
+        Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
+      val a_async : unit -> [> `Async ] attrib
+      val a_autofocus : unit -> [> `Autofocus ] attrib
+      val a_autoplay : unit -> [> `Autoplay ] attrib
+      val a_muted : unit -> [> `Muted ] attrib
+      val a_crossorigin :
+        [< `Anonymous | `Use_credentials ] wrap -> [> `Crossorigin ] attrib
+      val a_integrity : string wrap -> [> `Integrity ] attrib
+      val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
+      val a_challenge : Html_types.text wrap -> [> `Challenge ] attrib
+      val a_contenteditable : bool wrap -> [> `Contenteditable ] attrib
+      val a_contextmenu : Html_types.idref wrap -> [> `Contextmenu ] attrib
+      val a_controls : unit -> [> `Controls ] attrib
+      val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
+      val a_draggable : bool wrap -> [> `Draggable ] attrib
+      val a_form : Html_types.idref wrap -> [> `Form ] attrib
+      val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
+      val a_formenctype :
+        Html_types.contenttype wrap -> [> `Formenctype ] attrib
+      val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
+      val a_formtarget : Html_types.text wrap -> [> `Formtarget ] attrib
+      val a_hidden : unit -> [> `Hidden ] attrib
+      val a_high : Html_types.float_number wrap -> [> `High ] attrib
+      val a_icon : Xml.uri wrap -> [> `Icon ] attrib
+      val a_ismap : unit -> [> `Ismap ] attrib
+      val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
+      val a_list : Html_types.idref wrap -> [> `List ] attrib
+      val a_loop : unit -> [> `Loop ] attrib
+      val a_low : Html_types.float_number wrap -> [> `High ] attrib
+      val a_max : Html_types.float_number wrap -> [> `Max ] attrib
+      val a_input_max :
+        Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
+      val a_min : Html_types.float_number wrap -> [> `Min ] attrib
+      val a_input_min :
+        Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
+      val a_inputmode :
+        [< `Decimal
+         | `Email
+         | `None
+         | `Numeric
+         | `Search
+         | `Tel
+         | `Text
+         | `Url ]
+        wrap -> [> `Inputmode ] attrib
+      val a_novalidate : unit -> [> `Novalidate ] attrib
+      val a_open : unit -> [> `Open ] attrib
+      val a_optimum : Html_types.float_number wrap -> [> `Optimum ] attrib
+      val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
+      val a_placeholder : Html_types.text wrap -> [> `Placeholder ] attrib
+      val a_poster : Xml.uri wrap -> [> `Poster ] attrib
+      val a_preload :
+        [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
+      val a_pubdate : unit -> [> `Pubdate ] attrib
+      val a_radiogroup : Html_types.text wrap -> [> `Radiogroup ] attrib
+      val a_referrerpolicy :
+        Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
+      val a_required : unit -> [> `Required ] attrib
+      val a_reversed : unit -> [> `Reversed ] attrib
+      val a_sandbox :
+        [< Html_types.sandbox_token ] list wrap -> [> `Sandbox ] attrib
+      val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
+      val a_scoped : unit -> [> `Scoped ] attrib
+      val a_seamless : unit -> [> `Seamless ] attrib
+      val a_sizes :
+        (Html_types.number * Html_types.number) list option wrap ->
+        [> `Sizes ] attrib
+      val a_span : Html_types.number wrap -> [> `Span ] attrib
+      val a_srclang : Html_types.nmtoken wrap -> [> `XML_lang ] attrib
+      type image_candidate =
+          [ `Url of uri
+          | `Url_pixel of uri * Html_types.float_number
+          | `Url_width of uri * Html_types.number ]
+      val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
+      val a_img_sizes : Html_types.text list wrap -> [> `Img_sizes ] attrib
+      val a_start : Html_types.number wrap -> [> `Start ] attrib
+      val a_step : Html_types.float_number option wrap -> [> `Step ] attrib
+      val a_translate : [< `No | `Yes ] wrap -> [> `Translate ] attrib
+      val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
+      val a_version : Html_types.cdata wrap -> [> `Version ] attrib
+      val a_xmlns : [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
+      val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
+      val a_cite : Xml.uri wrap -> [> `Cite ] attrib
+      val a_xml_space :
+        [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
+      val a_accesskey : Html_types.character wrap -> [> `Accesskey ] attrib
+      val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
+      val a_accept_charset :
+        Html_types.charsets wrap -> [> `Accept_charset ] attrib
+      val a_accept : Html_types.contenttypes wrap -> [> `Accept ] attrib
+      val a_href : Xml.uri wrap -> [> `Href ] attrib
+      val a_hreflang : Html_types.languagecode wrap -> [> `Hreflang ] attrib
+      val a_download : string option wrap -> [> `Download ] attrib
+      val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
+      val a_tabindex : Html_types.number wrap -> [> `Tabindex ] attrib
+      val a_mime_type : Html_types.contenttype wrap -> [> `Mime_type ] attrib
+      val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
+      val a_action : Xml.uri wrap -> [> `Action ] attrib
+      val a_checked : unit -> [> `Checked ] attrib
+      val a_cols : Html_types.number wrap -> [> `Cols ] attrib
+      val a_enctype : Html_types.contenttype wrap -> [> `Enctype ] attrib
+      val a_label_for : Html_types.idref wrap -> [> `Label_for ] attrib
+      val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
+      val a_output_for : Html_types.idrefs wrap -> [> `Output_for ] attrib
+      val a_for_list : Html_types.idrefs wrap -> [> `Output_for ] attrib
+      val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
+      val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
+      val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
+      val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
+      val a_multiple : unit -> [> `Multiple ] attrib
+      val a_name : Html_types.text wrap -> [> `Name ] attrib
+      val a_rows : Html_types.number wrap -> [> `Rows ] attrib
+      val a_selected : unit -> [> `Selected ] attrib
+      val a_size : Html_types.number wrap -> [> `Size ] attrib
+      val a_src : Xml.uri wrap -> [> `Src ] attrib
+      val a_input_type :
+        [< `Button
+         | `Checkbox
+         | `Color
+         | `Date
+         | `Datetime
+         | `Datetime_local
+         | `Email
+         | `File
+         | `Hidden
+         | `Image
+         | `Month
+         | `Number
+         | `Password
+         | `Radio
+         | `Range
+         | `Reset
+         | `Search
+         | `Submit
+         | `Tel
+         | `Text
+         | `Time
+         | `Url
+         | `Week ]
+        wrap -> [> `Input_Type ] attrib
+      val a_text_value : Html_types.text wrap -> [> `Text_Value ] attrib
+      val a_int_value : Html_types.number wrap -> [> `Int_Value ] attrib
+      val a_value : Html_types.cdata wrap -> [> `Value ] attrib
+      val a_float_value :
+        Html_types.float_number wrap -> [> `Float_Value ] attrib
+      val a_disabled : unit -> [> `Disabled ] attrib
+      val a_readonly : unit -> [> `ReadOnly ] attrib
+      val a_button_type :
+        [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+      val a_script_type :
+        Html_types.script_type wrap -> [> `Script_type ] attrib
+      val a_command_type :
+        [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
+      val a_menu_type :
+        [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
+      val a_label : Html_types.text wrap -> [> `Label ] attrib
+      val a_align :
+        [< `Char | `Justify | `Left | `Right ] wrap -> [> `Align ] attrib
+      val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
+      val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
+      val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
+      val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
+      val a_scope :
+        [< `Col | `Colgroup | `Row | `Rowgroup ] wrap -> [> `Scope ] attrib
+      val a_summary : Html_types.text wrap -> [> `Summary ] attrib
+      val a_border : Html_types.pixels wrap -> [> `Border ] attrib
+      val a_rules :
+        [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
+        [> `Rules ] attrib
+      val a_char : Html_types.character wrap -> [> `Char ] attrib
+      val a_alt : Html_types.text wrap -> [> `Alt ] attrib
+      val a_height : Html_types.number wrap -> [> `Height ] attrib
+      val a_width : Html_types.number wrap -> [> `Width ] attrib
+      type shape = [ `Circle | `Default | `Poly | `Rect ]
+      val a_shape : shape wrap -> [> `Shape ] attrib
+      val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
+      val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
+      val a_data : Xml.uri wrap -> [> `Data ] attrib
+      val a_codetype : Html_types.contenttype wrap -> [> `Codetype ] attrib
+      val a_frameborder : [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
+      val a_marginheight :
+        Html_types.pixels wrap -> [> `Marginheight ] attrib
+      val a_marginwidth : Html_types.pixels wrap -> [> `Marginwidth ] attrib
+      val a_scrolling :
+        [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
+      val a_target : Html_types.frametarget wrap -> [> `Target ] attrib
+      val a_content : Html_types.text wrap -> [> `Content ] attrib
+      val a_http_equiv : Html_types.text wrap -> [> `Http_equiv ] attrib
+      val a_defer : unit -> [> `Defer ] attrib
+      val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
+      val a_style : string wrap -> [> `Style_Attr ] attrib
+      val a_property : string wrap -> [> `Property ] attrib
+      val a_role : string list wrap -> [> `Role ] attrib
+      val a_aria : string -> string list wrap -> [> `Aria ] attrib
+      val txt : string wrap -> [> Html_types.txt ] elt
+      val html :
+        ?a:Html_types.html_attrib attrib list ->
+        [< Html_types.head ] elt wrap ->
+        [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
+      val head :
+        ?a:Html_types.head_attrib attrib list ->
+        [< Html_types.title ] elt wrap ->
+        Html_types.head_content_fun elt list_wrap -> [> Html_types.head ] elt
+      val base : ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
+      val title :
+        (Html_types.title_attrib, [< Html_types.title_content_fun ],
+         [> Html_types.title ])
+        unary
+      val body :
+        ([< Html_types.body_attrib ], [< Html_types.body_content_fun ],
+         [> Html_types.body ])
+        star
+      val svg :
+        ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+        [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
+        [> Html_types.svg ] elt
+      val footer :
+        ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
+         [> Html_types.footer ])
+        star
+      val header :
+        ([< Html_types.header_attrib ], [< Html_types.header_content_fun ],
+         [> Html_types.header ])
+        star
+      val section :
+        ([< Html_types.section_attrib ], [< Html_types.section_content_fun ],
+         [> Html_types.section ])
+        star
+      val nav :
+        ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
+         [> Html_types.nav ])
+        star
+      val h1 :
+        ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
+         [> Html_types.h1 ])
+        star
+      val h2 :
+        ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
+         [> Html_types.h2 ])
+        star
+      val h3 :
+        ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
+         [> Html_types.h3 ])
+        star
+      val h4 :
+        ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
+         [> Html_types.h4 ])
+        star
+      val h5 :
+        ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
+         [> Html_types.h5 ])
+        star
+      val h6 :
+        ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
+         [> Html_types.h6 ])
+        star
+      val hgroup :
+        ([< Html_types.hgroup_attrib ], [< Html_types.hgroup_content_fun ],
+         [> Html_types.hgroup ])
+        star
+      val address :
+        ([< Html_types.address_attrib ], [< Html_types.address_content_fun ],
+         [> Html_types.address ])
+        star
+      val article :
+        ([< Html_types.article_attrib ], [< Html_types.article_content_fun ],
+         [> Html_types.article ])
+        star
+      val aside :
+        ([< Html_types.aside_attrib ], [< Html_types.aside_content_fun ],
+         [> Html_types.aside ])
+        star
+      val main :
+        ([< Html_types.main_attrib ], [< Html_types.main_content_fun ],
+         [> Html_types.main ])
+        star
+      val p :
+        ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
+         [> Html_types.p ])
+        star
+      val pre :
+        ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
+         [> Html_types.pre ])
+        star
+      val blockquote :
+        ([< Html_types.blockquote_attrib ],
+         [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
+        star
+      val dialog :
+        ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+         [> Html_types.dialog ])
+        star
+      val div :
+        ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
+         [> Html_types.div ])
+        star
+      val dl :
+        ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
+         [> Html_types.dl ])
+        star
+      val ol :
+        ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
+         [> Html_types.ol ])
+        star
+      val ul :
+        ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
+         [> Html_types.ul ])
+        star
+      val dd :
+        ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
+         [> Html_types.dd ])
+        star
+      val dt :
+        ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
+         [> Html_types.dt ])
+        star
+      val li :
+        ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
+         [> Html_types.li ])
+        star
+      val figcaption :
+        ([< Html_types.figcaption_attrib ],
+         [< Html_types.figcaption_content_fun ], [> Html_types.figcaption ])
+        star
+      val figure :
+        ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
+                    | `Top of [< Html_types.figcaption ] elt wrap ] ->
+        ([< Html_types.figure_attrib ], [< Html_types.figure_content_fun ],
+         [> Html_types.figure ])
+        star
+      val hr : ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
+      val b :
+        ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
+         [> Html_types.b ])
+        star
+      val i :
+        ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
+         [> Html_types.i ])
+        star
+      val u :
+        ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
+         [> Html_types.u ])
+        star
+      val small :
+        ([< Html_types.small_attrib ], [< Html_types.small_content_fun ],
+         [> Html_types.small ])
+        star
+      val sub :
+        ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
+         [> Html_types.sub ])
+        star
+      val sup :
+        ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
+         [> Html_types.sup ])
+        star
+      val mark :
+        ([< Html_types.mark_attrib ], [< Html_types.mark_content_fun ],
+         [> Html_types.mark ])
+        star
+      val wbr : ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
+      val bdo :
+        dir:[< `Ltr | `Rtl ] wrap ->
+        ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
+         [> Html_types.bdo ])
+        star
+      val abbr :
+        ([< Html_types.abbr_attrib ], [< Html_types.abbr_content_fun ],
+         [> Html_types.abbr ])
+        star
+      val br : ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
+      val cite :
+        ([< Html_types.cite_attrib ], [< Html_types.cite_content_fun ],
+         [> Html_types.cite ])
+        star
+      val code :
+        ([< Html_types.code_attrib ], [< Html_types.code_content_fun ],
+         [> Html_types.code ])
+        star
+      val dfn :
+        ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
+         [> Html_types.dfn ])
+        star
+      val em :
+        ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
+         [> Html_types.em ])
+        star
+      val kbd :
+        ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
+         [> Html_types.kbd ])
+        star
+      val q :
+        ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
+         [> Html_types.q ])
+        star
+      val samp :
+        ([< Html_types.samp_attrib ], [< Html_types.samp_content_fun ],
+         [> Html_types.samp ])
+        star
+      val span :
+        ([< Html_types.span_attrib ], [< Html_types.span_content_fun ],
+         [> Html_types.span ])
+        star
+      val strong :
+        ([< Html_types.strong_attrib ], [< Html_types.strong_content_fun ],
+         [> Html_types.strong ])
+        star
+      val time :
+        ([< Html_types.time_attrib ], [< Html_types.time_content_fun ],
+         [> Html_types.time ])
+        star
+      val var :
+        ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
+         [> Html_types.var ])
+        star
+      val a : ([< Html_types.a_attrib ], 'a, [> 'a Html_types.a ]) star
+      val del : ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
+      val ins : ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
+      val img :
+        src:Xml.uri wrap ->
+        alt:Html_types.text wrap ->
+        ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
+      val picture :
+        img:[< Html_types.img ] elt wrap ->
+        ([< Html_types.picture_attrib ], [< Html_types.picture_content_fun ],
+         [> Html_types.picture ])
+        star
+      val iframe :
+        ([< Html_types.iframe_attrib ], [< Html_types.iframe_content_fun ],
+         [> Html_types.iframe ])
+        star
+      val object_ :
+        ?params:[< Html_types.param ] elt list_wrap ->
+        ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
+      val param :
+        ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
+      val embed :
+        ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
+      val audio :
+        ?src:Xml.uri wrap ->
+        ?srcs:[< Html_types.source ] elt list_wrap ->
+        ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ]) star
+      val video :
+        ?src:Xml.uri wrap ->
+        ?srcs:[< Html_types.source ] elt list_wrap ->
+        ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ]) star
+      val canvas :
+        ([< Html_types.canvas_attrib ], 'a, [> 'a Html_types.canvas ]) star
+      val source :
+        ([< Html_types.source_attrib ], [> Html_types.source ]) nullary
+      val area :
+        alt:Html_types.text wrap ->
+        ([< `Accesskey
+          | `Alt
+          | `Aria
+          | `Class
+          | `Contenteditable
+          | `Contextmenu
+          | `Coords
+          | `Dir
+          | `Draggable
+          | `Hidden
+          | `Hreflang
+          | `Id
+          | `Lang
+          | `Media
+          | `Mime_type
+          | `OnAbort
+          | `OnBlur
+          | `OnCanPlay
+          | `OnCanPlayThrough
+          | `OnChange
+          | `OnClick
+          | `OnClose
+          | `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
+          | `Rel
+          | `Role
+          | `Shape
+          | `Spellcheck
+          | `Style_Attr
+          | `Tabindex
+          | `Target
+          | `Title
+          | `Translate
+          | `User_data
+          | `XML_lang
+          | `XMLns ],
+         [> Html_types.area ])
+        nullary
+      val map : ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
+      val caption :
+        ([< Html_types.caption_attrib ], [< Html_types.caption_content_fun ],
+         [> Html_types.caption ])
+        star
+      val table :
+        ?caption:[< Html_types.caption ] elt wrap ->
+        ?columns:[< Html_types.colgroup ] elt list_wrap ->
+        ?thead:[< Html_types.thead ] elt wrap ->
+        ?tfoot:[< Html_types.tfoot ] elt wrap ->
+        ([< Html_types.table_attrib ], [< Html_types.table_content_fun ],
+         [> Html_types.table ])
+        star
+      val tablex :
+        ?caption:[< Html_types.caption ] elt wrap ->
+        ?columns:[< Html_types.colgroup ] elt list_wrap ->
+        ?thead:[< Html_types.thead ] elt wrap ->
+        ?tfoot:[< Html_types.tfoot ] elt wrap ->
+        ([< Html_types.tablex_attrib ], [< Html_types.tablex_content_fun ],
+         [> Html_types.tablex ])
+        star
+      val colgroup :
+        ([< Html_types.colgroup_attrib ],
+         [< Html_types.colgroup_content_fun ], [> Html_types.colgroup ])
+        star
+      val col : ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
+      val thead :
+        ([< Html_types.thead_attrib ], [< Html_types.thead_content_fun ],
+         [> Html_types.thead ])
+        star
+      val tbody :
+        ([< Html_types.tbody_attrib ], [< Html_types.tbody_content_fun ],
+         [> Html_types.tbody ])
+        star
+      val tfoot :
+        ([< Html_types.tfoot_attrib ], [< Html_types.tfoot_content_fun ],
+         [> Html_types.tfoot ])
+        star
+      val td :
+        ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
+         [> Html_types.td ])
+        star
+      val th :
+        ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
+         [> Html_types.th ])
+        star
+      val tr :
+        ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
+         [> Html_types.tr ])
+        star
+      val form :
+        ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
+         [> Html_types.form ])
+        star
+      val fieldset :
+        ?legend:[< Html_types.legend ] elt wrap ->
+        ([< Html_types.fieldset_attrib ],
+         [< Html_types.fieldset_content_fun ], [> Html_types.fieldset ])
+        star
+      val legend :
+        ([< Html_types.legend_attrib ], [< Html_types.legend_content_fun ],
+         [> Html_types.legend ])
+        star
+      val label :
+        ([< Html_types.label_attrib ], [< Html_types.label_content_fun ],
+         [> Html_types.label ])
+        star
+      val input :
+        ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
+      val button :
+        ([< Html_types.button_attrib ], [< Html_types.button_content_fun ],
+         [> Html_types.button ])
+        star
+      val select :
+        ([< Html_types.select_attrib ], [< Html_types.select_content_fun ],
+         [> Html_types.select ])
+        star
+      val datalist :
+        ?children:[< `Options of [< Html_types.selectoption ] elt list_wrap
+                   | `Phras of [< Html_types.phrasing ] elt list_wrap ] ->
+        ([< Html_types.datalist_attrib ], [> Html_types.datalist ]) nullary
+      val optgroup :
+        label:Html_types.text wrap ->
+        ([< Html_types.optgroup_attrib ],
+         [< Html_types.optgroup_content_fun ], [> Html_types.optgroup ])
+        star
+      val option :
+        ([< Html_types.option_attrib ], [< Html_types.option_content_fun ],
+         [> Html_types.selectoption ])
+        unary
+      val textarea :
+        ([< Html_types.textarea_attrib ],
+         [< Html_types.textarea_content_fun ], [> Html_types.textarea ])
+        unary
+      val keygen :
+        ([< Html_types.keygen_attrib ], [> Html_types.keygen ]) nullary
+      val progress :
+        ([< Html_types.progress_attrib ],
+         [< Html_types.progress_content_fun ], [> Html_types.progress ])
+        star
+      val meter :
+        ([< Html_types.meter_attrib ], [< Html_types.meter_content_fun ],
+         [> Html_types.meter ])
+        star
+      val output_elt :
+        ([< Html_types.output_elt_attrib ],
+         [< Html_types.output_elt_content_fun ], [> Html_types.output_elt ])
+        star
+      val entity : string -> [> Html_types.txt ] elt
+      val space : unit -> [> Html_types.txt ] elt
+      val cdata : string -> [> Html_types.txt ] elt
+      val cdata_script : string -> [> Html_types.txt ] elt
+      val cdata_style : string -> [> Html_types.txt ] elt
+      val details :
+        [< Html_types.summary ] elt wrap ->
+        ([< Html_types.details_attrib ], [< Html_types.details_content_fun ],
+         [> Html_types.details ])
+        star
+      val summary :
+        ([< Html_types.summary_attrib ], [< Html_types.summary_content_fun ],
+         [> Html_types.summary ])
+        star
+      val command :
+        label:Html_types.text wrap ->
+        ([< Html_types.command_attrib ], [> Html_types.command ]) nullary
+      val menu :
+        ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
+                   | `Lis of [< `Li of [< Html_types.common ] ] elt list_wrap
+                  ] ->
+        ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
+      val script :
+        ([< Html_types.script_attrib ], [< Html_types.script_content_fun ],
+         [> Html_types.script ])
+        unary
+      val noscript :
+        ([< Html_types.noscript_attrib ],
+         [< Html_types.noscript_content_fun ], [> Html_types.noscript ])
+        star
+      val template :
+        ([< Html_types.template_attrib ],
+         [< Html_types.template_content_fun ], [> Html_types.template ])
+        star
+      val meta : ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
+      val style :
+        ([< Html_types.style_attrib ], [< Html_types.style_content_fun ],
+         [> Html_types.style ])
+        star
+      val link :
+        rel:Html_types.linktypes wrap ->
+        href:Xml.uri wrap ->
+        ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
+      val rt :
+        ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
+         [> Html_types.rt ])
+        star
+      val rp :
+        ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
+         [> Html_types.rp ])
+        star
+      val ruby :
+        ([< Html_types.ruby_attrib ], [< Html_types.ruby_content_fun ],
+         [> Html_types.ruby ])
+        star
+      val pcdata : string wrap -> [> Html_types.pcdata ] elt
+      val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+      val tot : Xml.elt -> 'a elt
+      val totl : Xml.elt list_wrap -> 'a elt list_wrap
+      val toelt : 'a elt -> Xml.elt
+      val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+      val doc_toelt : doc -> Xml.elt
+      val to_xmlattribs : 'a attrib list -> Xml.attrib list
+      val to_attrib : Xml.attrib -> 'a attrib
+      module Unsafe :
+        sig
+          val data : string wrap -> 'a elt
+          val node :
+            string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+          val coerce_elt : 'a elt -> 'b elt
+          val string_attrib : string -> string wrap -> 'a attrib
+          val float_attrib : string -> float wrap -> 'a attrib
+          val int_attrib : string -> int wrap -> 'a attrib
+          val uri_attrib : string -> uri wrap -> 'a attrib
+          val space_sep_attrib : string -> string list wrap -> 'a attrib
+          val comma_sep_attrib : string -> string list wrap -> 'a attrib
+        end
+    end
   module Raw :
     sig
       type 'a elt = 'a elt
@@ -74,90 +960,10 @@
       val a_title : Html_types.text wrap -> [> `Title ] attrib
       val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
       val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-      val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
-      val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
-      val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
-      val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-      val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-      val a_oncanplaythrough :
-        Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-      val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-      val a_ondurationchange :
-        Xml.event_handler -> [> `OnDurationChange ] attrib
-      val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-      val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-      val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-      val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
-      val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
-      val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
-      val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-      val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-      val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
-      val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-      val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-      val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-      val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-      val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-      val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-      val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-      val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-      val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-      val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
-      val a_onreadystatechange :
-        Xml.event_handler -> [> `OnReadyStateChange ] attrib
-      val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-      val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-      val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-      val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-      val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-      val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-      val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-      val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-      val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-      val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
-      val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-      val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
-      val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-      val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
-      val a_onloadedmetadata :
-        Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-      val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
-      val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-      val a_oncontextmenu :
-        Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-      val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-      val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-      val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-      val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-      val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-      val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-      val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-      val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-      val a_ontouchstart :
-        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-      val a_ontouchcancel :
-        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-      val a_onkeypress :
-        Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-      val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-      val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
       val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
       val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-      val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+      val a_autocomplete :
+        Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
       val a_async : unit -> [> `Async ] attrib
       val a_autofocus : unit -> [> `Autofocus ] attrib
       val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -265,7 +1071,7 @@
       val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
       val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
       val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-      val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+      val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
       val a_multiple : unit -> [> `Multiple ] attrib
       val a_name : Html_types.text wrap -> [> `Name ] attrib
       val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -306,6 +1112,8 @@
       val a_readonly : unit -> [> `ReadOnly ] attrib
       val a_button_type :
         [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+      val a_script_type :
+        Html_types.script_type wrap -> [> `Script_type ] attrib
       val a_command_type :
         [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
       val a_menu_type :
@@ -368,8 +1176,8 @@
          [> Html_types.body ])
         star
       val svg :
-        ?a:[< Html_types.svg_attrib ] Svg.D.Raw.attrib list ->
-        [< Html_types.svg_content ] Svg.D.Raw.elt list_wrap ->
+        ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+        [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
         [> Html_types.svg ] elt
       val footer :
         ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
@@ -443,6 +1251,10 @@
         ([< Html_types.blockquote_attrib ],
          [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
         star
+      val dialog :
+        ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+         [> Html_types.dialog ])
+        star
       val div :
         ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
          [> Html_types.div ])
@@ -623,6 +1435,7 @@
           | `OnCanPlayThrough
           | `OnChange
           | `OnClick
+          | `OnClose
           | `OnContextMenu
           | `OnDblClick
           | `OnDrag
@@ -875,6 +1688,81 @@
           val space_sep_attrib : string -> string list wrap -> 'a attrib
           val comma_sep_attrib : string -> string list wrap -> 'a attrib
         end
+      val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+      val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+      val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+      val a_onbeforeunload : string -> [> `OnBeforeUnload ] Raw'.attrib
+      val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+      val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+      val a_oncanplaythrough : string -> [> `OnCanPlayThrough ] Raw'.attrib
+      val a_onchange : string -> [> `OnChange ] Raw'.attrib
+      val a_onclose : string -> [> `OnClose ] Raw'.attrib
+      val a_ondurationchange : string -> [> `OnDurationChange ] Raw'.attrib
+      val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+      val a_onended : string -> [> `OnEnded ] Raw'.attrib
+      val a_onerror : string -> [> `OnError ] Raw'.attrib
+      val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+      val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+      val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+      val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+      val a_oninput : string -> [> `OnInput ] Raw'.attrib
+      val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+      val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+      val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+      val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+      val a_onpause : string -> [> `OnPause ] Raw'.attrib
+      val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+      val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+      val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+      val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+      val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+      val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+      val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+      val a_onreadystatechange :
+        string -> [> `OnReadyStateChange ] Raw'.attrib
+      val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+      val a_onresize : string -> [> `OnResize ] Raw'.attrib
+      val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+      val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+      val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+      val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+      val a_onshow : string -> [> `OnShow ] Raw'.attrib
+      val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+      val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+      val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+      val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+      val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+      val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+      val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+      val a_onvolumechange : string -> [> `OnVolumeChange ] Raw'.attrib
+      val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+      val a_onload : string -> [> `OnLoad ] Raw'.attrib
+      val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+      val a_onloadedmetadata : string -> [> `OnLoadedMetaData ] Raw'.attrib
+      val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+      val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+      val a_onclick : string -> [> `OnClick ] Raw'.attrib
+      val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+      val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+      val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+      val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+      val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+      val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+      val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+      val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+      val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+      val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+      val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+      val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+      val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+      val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+      val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+      val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+      val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+      val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+      val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+      val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+      val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
     end
   type 'a elt = 'a elt
   type doc = Html_types.html elt
@@ -954,6 +1842,7 @@
   val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
   val a_oncanplaythrough : Xml.event_handler -> [> `OnCanPlayThrough ] attrib
   val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+  val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
   val a_ondurationchange : Xml.event_handler -> [> `OnDurationChange ] attrib
   val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
   val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
@@ -1022,7 +1911,8 @@
   val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
   val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
   val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-  val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+  val a_autocomplete :
+    Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
   val a_async : unit -> [> `Async ] attrib
   val a_autofocus : unit -> [> `Autofocus ] attrib
   val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -1121,7 +2011,7 @@
   val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
   val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
   val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-  val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+  val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
   val a_multiple : unit -> [> `Multiple ] attrib
   val a_name : Html_types.text wrap -> [> `Name ] attrib
   val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -1162,6 +2052,7 @@
   val a_readonly : unit -> [> `ReadOnly ] attrib
   val a_button_type :
     [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+  val a_script_type : Html_types.script_type wrap -> [> `Script_type ] attrib
   val a_command_type :
     [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
   val a_menu_type : [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
@@ -1220,8 +2111,8 @@
      [> Html_types.body ])
     star
   val svg :
-    ?a:[< Html_types.svg_attrib ] Svg.D.Raw.attrib list ->
-    [< Html_types.svg_content ] Svg.D.Raw.elt list_wrap ->
+    ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+    [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
     [> Html_types.svg ] elt
   val footer :
     ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
@@ -1295,6 +2186,10 @@
     ([< Html_types.blockquote_attrib ],
      [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
     star
+  val dialog :
+    ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+     [> Html_types.dialog ])
+    star
   val div :
     ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
      [> Html_types.div ])
@@ -1473,6 +2368,7 @@
       | `OnCanPlayThrough
       | `OnChange
       | `OnClick
+      | `OnClose
       | `OnContextMenu
       | `OnDblClick
       | `OnDrag
diff --git a/doc/10.x/api/client/type_Eliom_content_core.Html.F.Raw.wiki b/doc/11.x/api/client/type_Eliom_content_core.Html.F.Raw.wiki
similarity index 84%
rename from doc/10.x/api/client/type_Eliom_content_core.Html.F.Raw.wiki
rename to doc/11.x/api/client/type_Eliom_content_core.Html.F.Raw.wiki
index 80cd193d9e..f2eaf2ed4e 100644
--- a/doc/10.x/api/client/type_Eliom_content_core.Html.F.Raw.wiki
+++ b/doc/11.x/api/client/type_Eliom_content_core.Html.F.Raw.wiki
@@ -69,83 +69,10 @@
   val a_title : Html_types.text wrap -> [> `Title ] attrib
   val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
   val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-  val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-  val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
-  val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
-  val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
-  val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-  val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-  val a_oncanplaythrough : Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-  val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-  val a_ondurationchange : Xml.event_handler -> [> `OnDurationChange ] attrib
-  val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-  val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-  val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-  val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-  val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
-  val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
-  val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
-  val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-  val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-  val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
-  val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-  val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-  val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-  val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-  val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-  val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-  val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-  val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-  val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-  val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
-  val a_onreadystatechange :
-    Xml.event_handler -> [> `OnReadyStateChange ] attrib
-  val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-  val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-  val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-  val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-  val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-  val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-  val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-  val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-  val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-  val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-  val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-  val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
-  val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-  val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-  val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
-  val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-  val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-  val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
-  val a_onloadedmetadata : Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-  val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
-  val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-  val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-  val a_oncontextmenu : Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-  val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-  val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-  val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-  val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-  val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-  val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-  val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-  val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-  val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-  val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-  val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-  val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-  val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-  val a_ontouchstart : Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-  val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-  val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-  val a_ontouchcancel : Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-  val a_onkeypress : Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-  val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-  val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
   val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
   val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-  val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+  val a_autocomplete :
+    Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
   val a_async : unit -> [> `Async ] attrib
   val a_autofocus : unit -> [> `Autofocus ] attrib
   val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -244,7 +171,7 @@
   val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
   val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
   val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-  val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+  val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
   val a_multiple : unit -> [> `Multiple ] attrib
   val a_name : Html_types.text wrap -> [> `Name ] attrib
   val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -285,6 +212,7 @@
   val a_readonly : unit -> [> `ReadOnly ] attrib
   val a_button_type :
     [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+  val a_script_type : Html_types.script_type wrap -> [> `Script_type ] attrib
   val a_command_type :
     [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
   val a_menu_type : [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
@@ -343,8 +271,8 @@
      [> Html_types.body ])
     star
   val svg :
-    ?a:[< Html_types.svg_attrib ] Svg.F.Raw.attrib list ->
-    [< Html_types.svg_content ] Svg.F.Raw.elt list_wrap ->
+    ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+    [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
     [> Html_types.svg ] elt
   val footer :
     ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
@@ -418,6 +346,10 @@
     ([< Html_types.blockquote_attrib ],
      [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
     star
+  val dialog :
+    ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+     [> Html_types.dialog ])
+    star
   val div :
     ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
      [> Html_types.div ])
@@ -596,6 +528,7 @@
       | `OnCanPlayThrough
       | `OnChange
       | `OnClick
+      | `OnClose
       | `OnContextMenu
       | `OnDblClick
       | `OnDrag
@@ -845,4 +778,78 @@
       val space_sep_attrib : string -> string list wrap -> 'a attrib
       val comma_sep_attrib : string -> string list wrap -> 'a attrib
     end
+  val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+  val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+  val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+  val a_onbeforeunload : string -> [> `OnBeforeUnload ] Raw'.attrib
+  val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+  val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+  val a_oncanplaythrough : string -> [> `OnCanPlayThrough ] Raw'.attrib
+  val a_onchange : string -> [> `OnChange ] Raw'.attrib
+  val a_onclose : string -> [> `OnClose ] Raw'.attrib
+  val a_ondurationchange : string -> [> `OnDurationChange ] Raw'.attrib
+  val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+  val a_onended : string -> [> `OnEnded ] Raw'.attrib
+  val a_onerror : string -> [> `OnError ] Raw'.attrib
+  val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+  val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+  val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+  val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+  val a_oninput : string -> [> `OnInput ] Raw'.attrib
+  val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+  val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+  val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+  val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+  val a_onpause : string -> [> `OnPause ] Raw'.attrib
+  val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+  val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+  val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+  val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+  val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+  val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+  val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+  val a_onreadystatechange : string -> [> `OnReadyStateChange ] Raw'.attrib
+  val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+  val a_onresize : string -> [> `OnResize ] Raw'.attrib
+  val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+  val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+  val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+  val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+  val a_onshow : string -> [> `OnShow ] Raw'.attrib
+  val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+  val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+  val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+  val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+  val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+  val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+  val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+  val a_onvolumechange : string -> [> `OnVolumeChange ] Raw'.attrib
+  val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+  val a_onload : string -> [> `OnLoad ] Raw'.attrib
+  val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+  val a_onloadedmetadata : string -> [> `OnLoadedMetaData ] Raw'.attrib
+  val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+  val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+  val a_onclick : string -> [> `OnClick ] Raw'.attrib
+  val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+  val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+  val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+  val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+  val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+  val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+  val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+  val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+  val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+  val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+  val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+  val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+  val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+  val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+  val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+  val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+  val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+  val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+  val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+  val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+  val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/client/type_Eliom_content_core.Html.F.wiki b/doc/11.x/api/client/type_Eliom_content_core.Html.F.wiki
similarity index 64%
rename from doc/10.x/api/client/type_Eliom_content_core.Html.F.wiki
rename to doc/11.x/api/client/type_Eliom_content_core.Html.F.wiki
index 5a3c53d647..9f89d59ae4 100644
--- a/doc/10.x/api/client/type_Eliom_content_core.Html.F.wiki
+++ b/doc/11.x/api/client/type_Eliom_content_core.Html.F.wiki
@@ -1,4 +1,890 @@
 <<code language="ocaml" | sig
+  module Raw' :
+    sig
+      type 'a elt = 'a elt
+      type doc = Html_types.html elt
+      type 'a attrib = 'a attrib
+      module Xml :
+        sig
+          module W :
+            sig
+              type 'a t = 'a Xml.W.t
+              val return : 'a -> 'a t
+              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+              val fmap : ('a, 'b) ft -> 'a t -> 'b t
+              type 'a tlist = 'a Xml.W.tlist
+              val nil : unit -> 'a tlist
+              val singleton : 'a t -> 'a tlist
+              val cons : 'a t -> 'a tlist -> 'a tlist
+              val append : 'a tlist -> 'a tlist -> 'a tlist
+              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+            end
+          type 'a wrap = 'a W.t
+          type 'a list_wrap = 'a W.tlist
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) W.ft
+          val uri_of_string : (string, uri) W.ft
+          type aname = string
+          type event_handler = Xml.event_handler
+          type mouse_event_handler = Xml.mouse_event_handler
+          type keyboard_event_handler = Xml.keyboard_event_handler
+          type touch_event_handler = Xml.touch_event_handler
+          type attrib = Xml.attrib
+          val float_attrib : aname -> float wrap -> attrib
+          val int_attrib : aname -> int wrap -> attrib
+          val string_attrib : aname -> string wrap -> attrib
+          val space_sep_attrib : aname -> string list wrap -> attrib
+          val comma_sep_attrib : aname -> string list wrap -> attrib
+          val event_handler_attrib : aname -> event_handler -> attrib
+          val mouse_event_handler_attrib :
+            aname -> mouse_event_handler -> attrib
+          val keyboard_event_handler_attrib :
+            aname -> keyboard_event_handler -> attrib
+          val touch_event_handler_attrib :
+            aname -> touch_event_handler -> attrib
+          val uri_attrib : aname -> uri wrap -> attrib
+          val uris_attrib : aname -> uri list wrap -> attrib
+          type elt = Xml.elt
+          type ename = string
+          val empty : unit -> elt
+          val comment : string -> elt
+          val pcdata : string wrap -> elt
+          val encodedpcdata : string wrap -> elt
+          val entity : string -> elt
+          val leaf : ?a:attrib list -> ename -> elt
+          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+          val cdata : string -> elt
+          val cdata_script : string -> elt
+          val cdata_style : string -> elt
+        end
+      type 'a wrap = 'a Xml.W.t
+      type 'a list_wrap = 'a Xml.W.tlist
+      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
+      type ('a, 'b, 'c) star =
+          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+      module Info : Xml_sigs.Info
+      type uri = Xml.uri
+      val string_of_uri : (uri, string) Xml.W.ft
+      val uri_of_string : (string, uri) Xml.W.ft
+      val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+      val a_user_data :
+        Html_types.nmtoken -> Html_types.text wrap -> [> `User_data ] attrib
+      val a_id : Html_types.text wrap -> [> `Id ] attrib
+      val a_title : Html_types.text wrap -> [> `Title ] attrib
+      val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
+      val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
+      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+      val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
+      val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
+      val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
+      val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
+      val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
+      val a_oncanplaythrough :
+        Xml.event_handler -> [> `OnCanPlayThrough ] attrib
+      val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+      val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
+      val a_ondurationchange :
+        Xml.event_handler -> [> `OnDurationChange ] attrib
+      val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
+      val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
+      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+      val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
+      val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
+      val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
+      val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
+      val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
+      val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
+      val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
+      val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
+      val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
+      val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
+      val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
+      val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
+      val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
+      val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
+      val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
+      val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
+      val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
+      val a_onreadystatechange :
+        Xml.event_handler -> [> `OnReadyStateChange ] attrib
+      val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
+      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+      val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
+      val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
+      val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
+      val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
+      val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
+      val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
+      val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
+      val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
+      val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
+      val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
+      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+      val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
+      val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
+      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+      val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
+      val a_onloadedmetadata :
+        Xml.event_handler -> [> `OnLoadedMetaData ] attrib
+      val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
+      val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
+      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+      val a_oncontextmenu :
+        Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
+      val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
+      val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
+      val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
+      val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
+      val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
+      val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
+      val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
+      val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
+      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+      val a_ontouchstart :
+        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+      val a_ontouchcancel :
+        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+      val a_onkeypress :
+        Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
+      val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
+      val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+      val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
+      val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
+      val a_autocomplete :
+        Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
+      val a_async : unit -> [> `Async ] attrib
+      val a_autofocus : unit -> [> `Autofocus ] attrib
+      val a_autoplay : unit -> [> `Autoplay ] attrib
+      val a_muted : unit -> [> `Muted ] attrib
+      val a_crossorigin :
+        [< `Anonymous | `Use_credentials ] wrap -> [> `Crossorigin ] attrib
+      val a_integrity : string wrap -> [> `Integrity ] attrib
+      val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
+      val a_challenge : Html_types.text wrap -> [> `Challenge ] attrib
+      val a_contenteditable : bool wrap -> [> `Contenteditable ] attrib
+      val a_contextmenu : Html_types.idref wrap -> [> `Contextmenu ] attrib
+      val a_controls : unit -> [> `Controls ] attrib
+      val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
+      val a_draggable : bool wrap -> [> `Draggable ] attrib
+      val a_form : Html_types.idref wrap -> [> `Form ] attrib
+      val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
+      val a_formenctype :
+        Html_types.contenttype wrap -> [> `Formenctype ] attrib
+      val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
+      val a_formtarget : Html_types.text wrap -> [> `Formtarget ] attrib
+      val a_hidden : unit -> [> `Hidden ] attrib
+      val a_high : Html_types.float_number wrap -> [> `High ] attrib
+      val a_icon : Xml.uri wrap -> [> `Icon ] attrib
+      val a_ismap : unit -> [> `Ismap ] attrib
+      val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
+      val a_list : Html_types.idref wrap -> [> `List ] attrib
+      val a_loop : unit -> [> `Loop ] attrib
+      val a_low : Html_types.float_number wrap -> [> `High ] attrib
+      val a_max : Html_types.float_number wrap -> [> `Max ] attrib
+      val a_input_max :
+        Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
+      val a_min : Html_types.float_number wrap -> [> `Min ] attrib
+      val a_input_min :
+        Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
+      val a_inputmode :
+        [< `Decimal
+         | `Email
+         | `None
+         | `Numeric
+         | `Search
+         | `Tel
+         | `Text
+         | `Url ]
+        wrap -> [> `Inputmode ] attrib
+      val a_novalidate : unit -> [> `Novalidate ] attrib
+      val a_open : unit -> [> `Open ] attrib
+      val a_optimum : Html_types.float_number wrap -> [> `Optimum ] attrib
+      val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
+      val a_placeholder : Html_types.text wrap -> [> `Placeholder ] attrib
+      val a_poster : Xml.uri wrap -> [> `Poster ] attrib
+      val a_preload :
+        [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
+      val a_pubdate : unit -> [> `Pubdate ] attrib
+      val a_radiogroup : Html_types.text wrap -> [> `Radiogroup ] attrib
+      val a_referrerpolicy :
+        Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
+      val a_required : unit -> [> `Required ] attrib
+      val a_reversed : unit -> [> `Reversed ] attrib
+      val a_sandbox :
+        [< Html_types.sandbox_token ] list wrap -> [> `Sandbox ] attrib
+      val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
+      val a_scoped : unit -> [> `Scoped ] attrib
+      val a_seamless : unit -> [> `Seamless ] attrib
+      val a_sizes :
+        (Html_types.number * Html_types.number) list option wrap ->
+        [> `Sizes ] attrib
+      val a_span : Html_types.number wrap -> [> `Span ] attrib
+      val a_srclang : Html_types.nmtoken wrap -> [> `XML_lang ] attrib
+      type image_candidate =
+          [ `Url of uri
+          | `Url_pixel of uri * Html_types.float_number
+          | `Url_width of uri * Html_types.number ]
+      val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
+      val a_img_sizes : Html_types.text list wrap -> [> `Img_sizes ] attrib
+      val a_start : Html_types.number wrap -> [> `Start ] attrib
+      val a_step : Html_types.float_number option wrap -> [> `Step ] attrib
+      val a_translate : [< `No | `Yes ] wrap -> [> `Translate ] attrib
+      val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
+      val a_version : Html_types.cdata wrap -> [> `Version ] attrib
+      val a_xmlns : [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
+      val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
+      val a_cite : Xml.uri wrap -> [> `Cite ] attrib
+      val a_xml_space :
+        [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
+      val a_accesskey : Html_types.character wrap -> [> `Accesskey ] attrib
+      val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
+      val a_accept_charset :
+        Html_types.charsets wrap -> [> `Accept_charset ] attrib
+      val a_accept : Html_types.contenttypes wrap -> [> `Accept ] attrib
+      val a_href : Xml.uri wrap -> [> `Href ] attrib
+      val a_hreflang : Html_types.languagecode wrap -> [> `Hreflang ] attrib
+      val a_download : string option wrap -> [> `Download ] attrib
+      val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
+      val a_tabindex : Html_types.number wrap -> [> `Tabindex ] attrib
+      val a_mime_type : Html_types.contenttype wrap -> [> `Mime_type ] attrib
+      val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
+      val a_action : Xml.uri wrap -> [> `Action ] attrib
+      val a_checked : unit -> [> `Checked ] attrib
+      val a_cols : Html_types.number wrap -> [> `Cols ] attrib
+      val a_enctype : Html_types.contenttype wrap -> [> `Enctype ] attrib
+      val a_label_for : Html_types.idref wrap -> [> `Label_for ] attrib
+      val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
+      val a_output_for : Html_types.idrefs wrap -> [> `Output_for ] attrib
+      val a_for_list : Html_types.idrefs wrap -> [> `Output_for ] attrib
+      val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
+      val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
+      val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
+      val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
+      val a_multiple : unit -> [> `Multiple ] attrib
+      val a_name : Html_types.text wrap -> [> `Name ] attrib
+      val a_rows : Html_types.number wrap -> [> `Rows ] attrib
+      val a_selected : unit -> [> `Selected ] attrib
+      val a_size : Html_types.number wrap -> [> `Size ] attrib
+      val a_src : Xml.uri wrap -> [> `Src ] attrib
+      val a_input_type :
+        [< `Button
+         | `Checkbox
+         | `Color
+         | `Date
+         | `Datetime
+         | `Datetime_local
+         | `Email
+         | `File
+         | `Hidden
+         | `Image
+         | `Month
+         | `Number
+         | `Password
+         | `Radio
+         | `Range
+         | `Reset
+         | `Search
+         | `Submit
+         | `Tel
+         | `Text
+         | `Time
+         | `Url
+         | `Week ]
+        wrap -> [> `Input_Type ] attrib
+      val a_text_value : Html_types.text wrap -> [> `Text_Value ] attrib
+      val a_int_value : Html_types.number wrap -> [> `Int_Value ] attrib
+      val a_value : Html_types.cdata wrap -> [> `Value ] attrib
+      val a_float_value :
+        Html_types.float_number wrap -> [> `Float_Value ] attrib
+      val a_disabled : unit -> [> `Disabled ] attrib
+      val a_readonly : unit -> [> `ReadOnly ] attrib
+      val a_button_type :
+        [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+      val a_script_type :
+        Html_types.script_type wrap -> [> `Script_type ] attrib
+      val a_command_type :
+        [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
+      val a_menu_type :
+        [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
+      val a_label : Html_types.text wrap -> [> `Label ] attrib
+      val a_align :
+        [< `Char | `Justify | `Left | `Right ] wrap -> [> `Align ] attrib
+      val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
+      val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
+      val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
+      val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
+      val a_scope :
+        [< `Col | `Colgroup | `Row | `Rowgroup ] wrap -> [> `Scope ] attrib
+      val a_summary : Html_types.text wrap -> [> `Summary ] attrib
+      val a_border : Html_types.pixels wrap -> [> `Border ] attrib
+      val a_rules :
+        [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
+        [> `Rules ] attrib
+      val a_char : Html_types.character wrap -> [> `Char ] attrib
+      val a_alt : Html_types.text wrap -> [> `Alt ] attrib
+      val a_height : Html_types.number wrap -> [> `Height ] attrib
+      val a_width : Html_types.number wrap -> [> `Width ] attrib
+      type shape = [ `Circle | `Default | `Poly | `Rect ]
+      val a_shape : shape wrap -> [> `Shape ] attrib
+      val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
+      val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
+      val a_data : Xml.uri wrap -> [> `Data ] attrib
+      val a_codetype : Html_types.contenttype wrap -> [> `Codetype ] attrib
+      val a_frameborder : [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
+      val a_marginheight :
+        Html_types.pixels wrap -> [> `Marginheight ] attrib
+      val a_marginwidth : Html_types.pixels wrap -> [> `Marginwidth ] attrib
+      val a_scrolling :
+        [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
+      val a_target : Html_types.frametarget wrap -> [> `Target ] attrib
+      val a_content : Html_types.text wrap -> [> `Content ] attrib
+      val a_http_equiv : Html_types.text wrap -> [> `Http_equiv ] attrib
+      val a_defer : unit -> [> `Defer ] attrib
+      val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
+      val a_style : string wrap -> [> `Style_Attr ] attrib
+      val a_property : string wrap -> [> `Property ] attrib
+      val a_role : string list wrap -> [> `Role ] attrib
+      val a_aria : string -> string list wrap -> [> `Aria ] attrib
+      val txt : string wrap -> [> Html_types.txt ] elt
+      val html :
+        ?a:Html_types.html_attrib attrib list ->
+        [< Html_types.head ] elt wrap ->
+        [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
+      val head :
+        ?a:Html_types.head_attrib attrib list ->
+        [< Html_types.title ] elt wrap ->
+        Html_types.head_content_fun elt list_wrap -> [> Html_types.head ] elt
+      val base : ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
+      val title :
+        (Html_types.title_attrib, [< Html_types.title_content_fun ],
+         [> Html_types.title ])
+        unary
+      val body :
+        ([< Html_types.body_attrib ], [< Html_types.body_content_fun ],
+         [> Html_types.body ])
+        star
+      val svg :
+        ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+        [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
+        [> Html_types.svg ] elt
+      val footer :
+        ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
+         [> Html_types.footer ])
+        star
+      val header :
+        ([< Html_types.header_attrib ], [< Html_types.header_content_fun ],
+         [> Html_types.header ])
+        star
+      val section :
+        ([< Html_types.section_attrib ], [< Html_types.section_content_fun ],
+         [> Html_types.section ])
+        star
+      val nav :
+        ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
+         [> Html_types.nav ])
+        star
+      val h1 :
+        ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
+         [> Html_types.h1 ])
+        star
+      val h2 :
+        ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
+         [> Html_types.h2 ])
+        star
+      val h3 :
+        ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
+         [> Html_types.h3 ])
+        star
+      val h4 :
+        ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
+         [> Html_types.h4 ])
+        star
+      val h5 :
+        ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
+         [> Html_types.h5 ])
+        star
+      val h6 :
+        ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
+         [> Html_types.h6 ])
+        star
+      val hgroup :
+        ([< Html_types.hgroup_attrib ], [< Html_types.hgroup_content_fun ],
+         [> Html_types.hgroup ])
+        star
+      val address :
+        ([< Html_types.address_attrib ], [< Html_types.address_content_fun ],
+         [> Html_types.address ])
+        star
+      val article :
+        ([< Html_types.article_attrib ], [< Html_types.article_content_fun ],
+         [> Html_types.article ])
+        star
+      val aside :
+        ([< Html_types.aside_attrib ], [< Html_types.aside_content_fun ],
+         [> Html_types.aside ])
+        star
+      val main :
+        ([< Html_types.main_attrib ], [< Html_types.main_content_fun ],
+         [> Html_types.main ])
+        star
+      val p :
+        ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
+         [> Html_types.p ])
+        star
+      val pre :
+        ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
+         [> Html_types.pre ])
+        star
+      val blockquote :
+        ([< Html_types.blockquote_attrib ],
+         [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
+        star
+      val dialog :
+        ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+         [> Html_types.dialog ])
+        star
+      val div :
+        ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
+         [> Html_types.div ])
+        star
+      val dl :
+        ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
+         [> Html_types.dl ])
+        star
+      val ol :
+        ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
+         [> Html_types.ol ])
+        star
+      val ul :
+        ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
+         [> Html_types.ul ])
+        star
+      val dd :
+        ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
+         [> Html_types.dd ])
+        star
+      val dt :
+        ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
+         [> Html_types.dt ])
+        star
+      val li :
+        ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
+         [> Html_types.li ])
+        star
+      val figcaption :
+        ([< Html_types.figcaption_attrib ],
+         [< Html_types.figcaption_content_fun ], [> Html_types.figcaption ])
+        star
+      val figure :
+        ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
+                    | `Top of [< Html_types.figcaption ] elt wrap ] ->
+        ([< Html_types.figure_attrib ], [< Html_types.figure_content_fun ],
+         [> Html_types.figure ])
+        star
+      val hr : ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
+      val b :
+        ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
+         [> Html_types.b ])
+        star
+      val i :
+        ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
+         [> Html_types.i ])
+        star
+      val u :
+        ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
+         [> Html_types.u ])
+        star
+      val small :
+        ([< Html_types.small_attrib ], [< Html_types.small_content_fun ],
+         [> Html_types.small ])
+        star
+      val sub :
+        ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
+         [> Html_types.sub ])
+        star
+      val sup :
+        ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
+         [> Html_types.sup ])
+        star
+      val mark :
+        ([< Html_types.mark_attrib ], [< Html_types.mark_content_fun ],
+         [> Html_types.mark ])
+        star
+      val wbr : ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
+      val bdo :
+        dir:[< `Ltr | `Rtl ] wrap ->
+        ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
+         [> Html_types.bdo ])
+        star
+      val abbr :
+        ([< Html_types.abbr_attrib ], [< Html_types.abbr_content_fun ],
+         [> Html_types.abbr ])
+        star
+      val br : ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
+      val cite :
+        ([< Html_types.cite_attrib ], [< Html_types.cite_content_fun ],
+         [> Html_types.cite ])
+        star
+      val code :
+        ([< Html_types.code_attrib ], [< Html_types.code_content_fun ],
+         [> Html_types.code ])
+        star
+      val dfn :
+        ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
+         [> Html_types.dfn ])
+        star
+      val em :
+        ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
+         [> Html_types.em ])
+        star
+      val kbd :
+        ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
+         [> Html_types.kbd ])
+        star
+      val q :
+        ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
+         [> Html_types.q ])
+        star
+      val samp :
+        ([< Html_types.samp_attrib ], [< Html_types.samp_content_fun ],
+         [> Html_types.samp ])
+        star
+      val span :
+        ([< Html_types.span_attrib ], [< Html_types.span_content_fun ],
+         [> Html_types.span ])
+        star
+      val strong :
+        ([< Html_types.strong_attrib ], [< Html_types.strong_content_fun ],
+         [> Html_types.strong ])
+        star
+      val time :
+        ([< Html_types.time_attrib ], [< Html_types.time_content_fun ],
+         [> Html_types.time ])
+        star
+      val var :
+        ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
+         [> Html_types.var ])
+        star
+      val a : ([< Html_types.a_attrib ], 'a, [> 'a Html_types.a ]) star
+      val del : ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
+      val ins : ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
+      val img :
+        src:Xml.uri wrap ->
+        alt:Html_types.text wrap ->
+        ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
+      val picture :
+        img:[< Html_types.img ] elt wrap ->
+        ([< Html_types.picture_attrib ], [< Html_types.picture_content_fun ],
+         [> Html_types.picture ])
+        star
+      val iframe :
+        ([< Html_types.iframe_attrib ], [< Html_types.iframe_content_fun ],
+         [> Html_types.iframe ])
+        star
+      val object_ :
+        ?params:[< Html_types.param ] elt list_wrap ->
+        ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
+      val param :
+        ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
+      val embed :
+        ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
+      val audio :
+        ?src:Xml.uri wrap ->
+        ?srcs:[< Html_types.source ] elt list_wrap ->
+        ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ]) star
+      val video :
+        ?src:Xml.uri wrap ->
+        ?srcs:[< Html_types.source ] elt list_wrap ->
+        ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ]) star
+      val canvas :
+        ([< Html_types.canvas_attrib ], 'a, [> 'a Html_types.canvas ]) star
+      val source :
+        ([< Html_types.source_attrib ], [> Html_types.source ]) nullary
+      val area :
+        alt:Html_types.text wrap ->
+        ([< `Accesskey
+          | `Alt
+          | `Aria
+          | `Class
+          | `Contenteditable
+          | `Contextmenu
+          | `Coords
+          | `Dir
+          | `Draggable
+          | `Hidden
+          | `Hreflang
+          | `Id
+          | `Lang
+          | `Media
+          | `Mime_type
+          | `OnAbort
+          | `OnBlur
+          | `OnCanPlay
+          | `OnCanPlayThrough
+          | `OnChange
+          | `OnClick
+          | `OnClose
+          | `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
+          | `Rel
+          | `Role
+          | `Shape
+          | `Spellcheck
+          | `Style_Attr
+          | `Tabindex
+          | `Target
+          | `Title
+          | `Translate
+          | `User_data
+          | `XML_lang
+          | `XMLns ],
+         [> Html_types.area ])
+        nullary
+      val map : ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
+      val caption :
+        ([< Html_types.caption_attrib ], [< Html_types.caption_content_fun ],
+         [> Html_types.caption ])
+        star
+      val table :
+        ?caption:[< Html_types.caption ] elt wrap ->
+        ?columns:[< Html_types.colgroup ] elt list_wrap ->
+        ?thead:[< Html_types.thead ] elt wrap ->
+        ?tfoot:[< Html_types.tfoot ] elt wrap ->
+        ([< Html_types.table_attrib ], [< Html_types.table_content_fun ],
+         [> Html_types.table ])
+        star
+      val tablex :
+        ?caption:[< Html_types.caption ] elt wrap ->
+        ?columns:[< Html_types.colgroup ] elt list_wrap ->
+        ?thead:[< Html_types.thead ] elt wrap ->
+        ?tfoot:[< Html_types.tfoot ] elt wrap ->
+        ([< Html_types.tablex_attrib ], [< Html_types.tablex_content_fun ],
+         [> Html_types.tablex ])
+        star
+      val colgroup :
+        ([< Html_types.colgroup_attrib ],
+         [< Html_types.colgroup_content_fun ], [> Html_types.colgroup ])
+        star
+      val col : ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
+      val thead :
+        ([< Html_types.thead_attrib ], [< Html_types.thead_content_fun ],
+         [> Html_types.thead ])
+        star
+      val tbody :
+        ([< Html_types.tbody_attrib ], [< Html_types.tbody_content_fun ],
+         [> Html_types.tbody ])
+        star
+      val tfoot :
+        ([< Html_types.tfoot_attrib ], [< Html_types.tfoot_content_fun ],
+         [> Html_types.tfoot ])
+        star
+      val td :
+        ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
+         [> Html_types.td ])
+        star
+      val th :
+        ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
+         [> Html_types.th ])
+        star
+      val tr :
+        ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
+         [> Html_types.tr ])
+        star
+      val form :
+        ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
+         [> Html_types.form ])
+        star
+      val fieldset :
+        ?legend:[< Html_types.legend ] elt wrap ->
+        ([< Html_types.fieldset_attrib ],
+         [< Html_types.fieldset_content_fun ], [> Html_types.fieldset ])
+        star
+      val legend :
+        ([< Html_types.legend_attrib ], [< Html_types.legend_content_fun ],
+         [> Html_types.legend ])
+        star
+      val label :
+        ([< Html_types.label_attrib ], [< Html_types.label_content_fun ],
+         [> Html_types.label ])
+        star
+      val input :
+        ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
+      val button :
+        ([< Html_types.button_attrib ], [< Html_types.button_content_fun ],
+         [> Html_types.button ])
+        star
+      val select :
+        ([< Html_types.select_attrib ], [< Html_types.select_content_fun ],
+         [> Html_types.select ])
+        star
+      val datalist :
+        ?children:[< `Options of [< Html_types.selectoption ] elt list_wrap
+                   | `Phras of [< Html_types.phrasing ] elt list_wrap ] ->
+        ([< Html_types.datalist_attrib ], [> Html_types.datalist ]) nullary
+      val optgroup :
+        label:Html_types.text wrap ->
+        ([< Html_types.optgroup_attrib ],
+         [< Html_types.optgroup_content_fun ], [> Html_types.optgroup ])
+        star
+      val option :
+        ([< Html_types.option_attrib ], [< Html_types.option_content_fun ],
+         [> Html_types.selectoption ])
+        unary
+      val textarea :
+        ([< Html_types.textarea_attrib ],
+         [< Html_types.textarea_content_fun ], [> Html_types.textarea ])
+        unary
+      val keygen :
+        ([< Html_types.keygen_attrib ], [> Html_types.keygen ]) nullary
+      val progress :
+        ([< Html_types.progress_attrib ],
+         [< Html_types.progress_content_fun ], [> Html_types.progress ])
+        star
+      val meter :
+        ([< Html_types.meter_attrib ], [< Html_types.meter_content_fun ],
+         [> Html_types.meter ])
+        star
+      val output_elt :
+        ([< Html_types.output_elt_attrib ],
+         [< Html_types.output_elt_content_fun ], [> Html_types.output_elt ])
+        star
+      val entity : string -> [> Html_types.txt ] elt
+      val space : unit -> [> Html_types.txt ] elt
+      val cdata : string -> [> Html_types.txt ] elt
+      val cdata_script : string -> [> Html_types.txt ] elt
+      val cdata_style : string -> [> Html_types.txt ] elt
+      val details :
+        [< Html_types.summary ] elt wrap ->
+        ([< Html_types.details_attrib ], [< Html_types.details_content_fun ],
+         [> Html_types.details ])
+        star
+      val summary :
+        ([< Html_types.summary_attrib ], [< Html_types.summary_content_fun ],
+         [> Html_types.summary ])
+        star
+      val command :
+        label:Html_types.text wrap ->
+        ([< Html_types.command_attrib ], [> Html_types.command ]) nullary
+      val menu :
+        ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
+                   | `Lis of [< `Li of [< Html_types.common ] ] elt list_wrap
+                  ] ->
+        ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
+      val script :
+        ([< Html_types.script_attrib ], [< Html_types.script_content_fun ],
+         [> Html_types.script ])
+        unary
+      val noscript :
+        ([< Html_types.noscript_attrib ],
+         [< Html_types.noscript_content_fun ], [> Html_types.noscript ])
+        star
+      val template :
+        ([< Html_types.template_attrib ],
+         [< Html_types.template_content_fun ], [> Html_types.template ])
+        star
+      val meta : ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
+      val style :
+        ([< Html_types.style_attrib ], [< Html_types.style_content_fun ],
+         [> Html_types.style ])
+        star
+      val link :
+        rel:Html_types.linktypes wrap ->
+        href:Xml.uri wrap ->
+        ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
+      val rt :
+        ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
+         [> Html_types.rt ])
+        star
+      val rp :
+        ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
+         [> Html_types.rp ])
+        star
+      val ruby :
+        ([< Html_types.ruby_attrib ], [< Html_types.ruby_content_fun ],
+         [> Html_types.ruby ])
+        star
+      val pcdata : string wrap -> [> Html_types.pcdata ] elt
+      val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+      val tot : Xml.elt -> 'a elt
+      val totl : Xml.elt list_wrap -> 'a elt list_wrap
+      val toelt : 'a elt -> Xml.elt
+      val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+      val doc_toelt : doc -> Xml.elt
+      val to_xmlattribs : 'a attrib list -> Xml.attrib list
+      val to_attrib : Xml.attrib -> 'a attrib
+      module Unsafe :
+        sig
+          val data : string wrap -> 'a elt
+          val node :
+            string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+          val coerce_elt : 'a elt -> 'b elt
+          val string_attrib : string -> string wrap -> 'a attrib
+          val float_attrib : string -> float wrap -> 'a attrib
+          val int_attrib : string -> int wrap -> 'a attrib
+          val uri_attrib : string -> uri wrap -> 'a attrib
+          val space_sep_attrib : string -> string list wrap -> 'a attrib
+          val comma_sep_attrib : string -> string list wrap -> 'a attrib
+        end
+    end
   module Raw :
     sig
       type 'a elt = 'a elt
@@ -74,90 +960,10 @@
       val a_title : Html_types.text wrap -> [> `Title ] attrib
       val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
       val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-      val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
-      val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
-      val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
-      val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-      val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-      val a_oncanplaythrough :
-        Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-      val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-      val a_ondurationchange :
-        Xml.event_handler -> [> `OnDurationChange ] attrib
-      val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-      val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-      val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-      val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
-      val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
-      val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
-      val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-      val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-      val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
-      val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-      val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-      val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-      val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-      val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-      val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-      val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-      val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-      val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-      val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
-      val a_onreadystatechange :
-        Xml.event_handler -> [> `OnReadyStateChange ] attrib
-      val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-      val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-      val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-      val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-      val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-      val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-      val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-      val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-      val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-      val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
-      val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-      val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
-      val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-      val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
-      val a_onloadedmetadata :
-        Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-      val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
-      val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-      val a_oncontextmenu :
-        Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-      val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-      val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-      val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-      val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-      val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-      val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-      val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-      val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-      val a_ontouchstart :
-        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-      val a_ontouchcancel :
-        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-      val a_onkeypress :
-        Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-      val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-      val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
       val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
       val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-      val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+      val a_autocomplete :
+        Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
       val a_async : unit -> [> `Async ] attrib
       val a_autofocus : unit -> [> `Autofocus ] attrib
       val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -265,7 +1071,7 @@
       val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
       val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
       val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-      val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+      val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
       val a_multiple : unit -> [> `Multiple ] attrib
       val a_name : Html_types.text wrap -> [> `Name ] attrib
       val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -306,6 +1112,8 @@
       val a_readonly : unit -> [> `ReadOnly ] attrib
       val a_button_type :
         [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+      val a_script_type :
+        Html_types.script_type wrap -> [> `Script_type ] attrib
       val a_command_type :
         [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
       val a_menu_type :
@@ -368,8 +1176,8 @@
          [> Html_types.body ])
         star
       val svg :
-        ?a:[< Html_types.svg_attrib ] Svg.F.Raw.attrib list ->
-        [< Html_types.svg_content ] Svg.F.Raw.elt list_wrap ->
+        ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+        [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
         [> Html_types.svg ] elt
       val footer :
         ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
@@ -443,6 +1251,10 @@
         ([< Html_types.blockquote_attrib ],
          [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
         star
+      val dialog :
+        ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+         [> Html_types.dialog ])
+        star
       val div :
         ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
          [> Html_types.div ])
@@ -623,6 +1435,7 @@
           | `OnCanPlayThrough
           | `OnChange
           | `OnClick
+          | `OnClose
           | `OnContextMenu
           | `OnDblClick
           | `OnDrag
@@ -875,6 +1688,81 @@
           val space_sep_attrib : string -> string list wrap -> 'a attrib
           val comma_sep_attrib : string -> string list wrap -> 'a attrib
         end
+      val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+      val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+      val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+      val a_onbeforeunload : string -> [> `OnBeforeUnload ] Raw'.attrib
+      val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+      val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+      val a_oncanplaythrough : string -> [> `OnCanPlayThrough ] Raw'.attrib
+      val a_onchange : string -> [> `OnChange ] Raw'.attrib
+      val a_onclose : string -> [> `OnClose ] Raw'.attrib
+      val a_ondurationchange : string -> [> `OnDurationChange ] Raw'.attrib
+      val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+      val a_onended : string -> [> `OnEnded ] Raw'.attrib
+      val a_onerror : string -> [> `OnError ] Raw'.attrib
+      val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+      val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+      val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+      val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+      val a_oninput : string -> [> `OnInput ] Raw'.attrib
+      val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+      val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+      val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+      val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+      val a_onpause : string -> [> `OnPause ] Raw'.attrib
+      val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+      val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+      val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+      val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+      val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+      val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+      val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+      val a_onreadystatechange :
+        string -> [> `OnReadyStateChange ] Raw'.attrib
+      val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+      val a_onresize : string -> [> `OnResize ] Raw'.attrib
+      val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+      val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+      val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+      val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+      val a_onshow : string -> [> `OnShow ] Raw'.attrib
+      val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+      val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+      val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+      val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+      val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+      val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+      val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+      val a_onvolumechange : string -> [> `OnVolumeChange ] Raw'.attrib
+      val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+      val a_onload : string -> [> `OnLoad ] Raw'.attrib
+      val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+      val a_onloadedmetadata : string -> [> `OnLoadedMetaData ] Raw'.attrib
+      val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+      val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+      val a_onclick : string -> [> `OnClick ] Raw'.attrib
+      val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+      val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+      val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+      val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+      val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+      val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+      val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+      val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+      val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+      val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+      val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+      val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+      val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+      val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+      val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+      val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+      val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+      val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+      val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+      val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+      val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
     end
   type 'a elt = 'a elt
   type doc = Html_types.html elt
@@ -954,6 +1842,7 @@
   val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
   val a_oncanplaythrough : Xml.event_handler -> [> `OnCanPlayThrough ] attrib
   val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+  val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
   val a_ondurationchange : Xml.event_handler -> [> `OnDurationChange ] attrib
   val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
   val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
@@ -1022,7 +1911,8 @@
   val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
   val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
   val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-  val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+  val a_autocomplete :
+    Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
   val a_async : unit -> [> `Async ] attrib
   val a_autofocus : unit -> [> `Autofocus ] attrib
   val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -1121,7 +2011,7 @@
   val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
   val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
   val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-  val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+  val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
   val a_multiple : unit -> [> `Multiple ] attrib
   val a_name : Html_types.text wrap -> [> `Name ] attrib
   val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -1162,6 +2052,7 @@
   val a_readonly : unit -> [> `ReadOnly ] attrib
   val a_button_type :
     [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+  val a_script_type : Html_types.script_type wrap -> [> `Script_type ] attrib
   val a_command_type :
     [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
   val a_menu_type : [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
@@ -1220,8 +2111,8 @@
      [> Html_types.body ])
     star
   val svg :
-    ?a:[< Html_types.svg_attrib ] Svg.F.Raw.attrib list ->
-    [< Html_types.svg_content ] Svg.F.Raw.elt list_wrap ->
+    ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+    [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
     [> Html_types.svg ] elt
   val footer :
     ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
@@ -1295,6 +2186,10 @@
     ([< Html_types.blockquote_attrib ],
      [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
     star
+  val dialog :
+    ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+     [> Html_types.dialog ])
+    star
   val div :
     ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
      [> Html_types.div ])
@@ -1473,6 +2368,7 @@
       | `OnCanPlayThrough
       | `OnChange
       | `OnClick
+      | `OnClose
       | `OnContextMenu
       | `OnDblClick
       | `OnDrag
diff --git a/doc/10.x/api/client/type_Eliom_content_core.Html.Id.wiki b/doc/11.x/api/client/type_Eliom_content_core.Html.Id.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content_core.Html.Id.wiki
rename to doc/11.x/api/client/type_Eliom_content_core.Html.Id.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content_core.Html.Of_dom.wiki b/doc/11.x/api/client/type_Eliom_content_core.Html.Of_dom.wiki
similarity index 97%
rename from doc/10.x/api/client/type_Eliom_content_core.Html.Of_dom.wiki
rename to doc/11.x/api/client/type_Eliom_content_core.Html.Of_dom.wiki
index d0bf68449c..4db3ad9a11 100644
--- a/doc/10.x/api/client/type_Eliom_content_core.Html.Of_dom.wiki
+++ b/doc/11.x/api/client/type_Eliom_content_core.Html.Of_dom.wiki
@@ -66,6 +66,9 @@
     [> Html_types.dl ] elt
   val of_li :
     Js_of_ocaml.Dom_html.liElement Js_of_ocaml.Js.t -> [> Html_types.li ] elt
+  val of_dialog :
+    Js_of_ocaml.Dom_html.dialogElement Js_of_ocaml.Js.t ->
+    [> Html_types.dialog ] elt
   val of_div :
     Js_of_ocaml.Dom_html.divElement Js_of_ocaml.Js.t ->
     [> Html_types.div ] elt
diff --git a/doc/10.x/api/client/type_Eliom_content_core.Html.R.Raw.wiki b/doc/11.x/api/client/type_Eliom_content_core.Html.R.Raw.wiki
similarity index 98%
rename from doc/10.x/api/client/type_Eliom_content_core.Html.R.Raw.wiki
rename to doc/11.x/api/client/type_Eliom_content_core.Html.R.Raw.wiki
index d36347d59d..23b9633758 100644
--- a/doc/10.x/api/client/type_Eliom_content_core.Html.R.Raw.wiki
+++ b/doc/11.x/api/client/type_Eliom_content_core.Html.R.Raw.wiki
@@ -77,6 +77,7 @@
   val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
   val a_oncanplaythrough : Xml.event_handler -> [> `OnCanPlayThrough ] attrib
   val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+  val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
   val a_ondurationchange : Xml.event_handler -> [> `OnDurationChange ] attrib
   val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
   val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
@@ -145,7 +146,8 @@
   val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
   val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
   val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-  val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+  val a_autocomplete :
+    Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
   val a_async : unit -> [> `Async ] attrib
   val a_autofocus : unit -> [> `Autofocus ] attrib
   val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -244,7 +246,7 @@
   val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
   val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
   val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-  val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+  val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
   val a_multiple : unit -> [> `Multiple ] attrib
   val a_name : Html_types.text wrap -> [> `Name ] attrib
   val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -285,6 +287,7 @@
   val a_readonly : unit -> [> `ReadOnly ] attrib
   val a_button_type :
     [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+  val a_script_type : Html_types.script_type wrap -> [> `Script_type ] attrib
   val a_command_type :
     [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
   val a_menu_type : [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
@@ -418,6 +421,10 @@
     ([< Html_types.blockquote_attrib ],
      [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
     star
+  val dialog :
+    ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+     [> Html_types.dialog ])
+    star
   val div :
     ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
      [> Html_types.div ])
@@ -596,6 +603,7 @@
       | `OnCanPlayThrough
       | `OnChange
       | `OnClick
+      | `OnClose
       | `OnContextMenu
       | `OnDblClick
       | `OnDrag
diff --git a/doc/10.x/api/client/type_Eliom_content_core.Html.R.wiki b/doc/11.x/api/client/type_Eliom_content_core.Html.R.wiki
similarity index 98%
rename from doc/10.x/api/client/type_Eliom_content_core.Html.R.wiki
rename to doc/11.x/api/client/type_Eliom_content_core.Html.R.wiki
index b430831ba8..66a5d5b9ae 100644
--- a/doc/10.x/api/client/type_Eliom_content_core.Html.R.wiki
+++ b/doc/11.x/api/client/type_Eliom_content_core.Html.R.wiki
@@ -89,6 +89,7 @@
       val a_oncanplaythrough :
         Xml.event_handler -> [> `OnCanPlayThrough ] attrib
       val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+      val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
       val a_ondurationchange :
         Xml.event_handler -> [> `OnDurationChange ] attrib
       val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
@@ -163,7 +164,8 @@
       val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
       val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
       val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-      val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+      val a_autocomplete :
+        Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
       val a_async : unit -> [> `Async ] attrib
       val a_autofocus : unit -> [> `Autofocus ] attrib
       val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -271,7 +273,7 @@
       val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
       val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
       val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-      val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+      val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
       val a_multiple : unit -> [> `Multiple ] attrib
       val a_name : Html_types.text wrap -> [> `Name ] attrib
       val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -312,6 +314,8 @@
       val a_readonly : unit -> [> `ReadOnly ] attrib
       val a_button_type :
         [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+      val a_script_type :
+        Html_types.script_type wrap -> [> `Script_type ] attrib
       val a_command_type :
         [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
       val a_menu_type :
@@ -449,6 +453,10 @@
         ([< Html_types.blockquote_attrib ],
          [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
         star
+      val dialog :
+        ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+         [> Html_types.dialog ])
+        star
       val div :
         ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
          [> Html_types.div ])
@@ -629,6 +637,7 @@
           | `OnCanPlayThrough
           | `OnChange
           | `OnClick
+          | `OnClose
           | `OnContextMenu
           | `OnDblClick
           | `OnDrag
@@ -960,6 +969,7 @@
   val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
   val a_oncanplaythrough : Xml.event_handler -> [> `OnCanPlayThrough ] attrib
   val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+  val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
   val a_ondurationchange : Xml.event_handler -> [> `OnDurationChange ] attrib
   val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
   val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
@@ -1028,7 +1038,8 @@
   val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
   val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
   val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-  val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+  val a_autocomplete :
+    Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
   val a_async : unit -> [> `Async ] attrib
   val a_autofocus : unit -> [> `Autofocus ] attrib
   val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -1127,7 +1138,7 @@
   val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
   val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
   val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-  val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+  val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
   val a_multiple : unit -> [> `Multiple ] attrib
   val a_name : Html_types.text wrap -> [> `Name ] attrib
   val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -1168,6 +1179,7 @@
   val a_readonly : unit -> [> `ReadOnly ] attrib
   val a_button_type :
     [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+  val a_script_type : Html_types.script_type wrap -> [> `Script_type ] attrib
   val a_command_type :
     [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
   val a_menu_type : [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
@@ -1301,6 +1313,10 @@
     ([< Html_types.blockquote_attrib ],
      [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
     star
+  val dialog :
+    ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+     [> Html_types.dialog ])
+    star
   val div :
     ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
      [> Html_types.div ])
@@ -1479,6 +1495,7 @@
       | `OnCanPlayThrough
       | `OnChange
       | `OnClick
+      | `OnClose
       | `OnContextMenu
       | `OnDblClick
       | `OnDrag
diff --git a/doc/10.x/api/client/type_Eliom_content_core.Html.wiki b/doc/11.x/api/client/type_Eliom_content_core.Html.wiki
similarity index 72%
rename from doc/10.x/api/client/type_Eliom_content_core.Html.wiki
rename to doc/11.x/api/client/type_Eliom_content_core.Html.wiki
index af19194753..2af9a3b7e0 100644
--- a/doc/10.x/api/client/type_Eliom_content_core.Html.wiki
+++ b/doc/11.x/api/client/type_Eliom_content_core.Html.wiki
@@ -4,9 +4,97 @@
   type 'a list_wrap = 'a list
   type +'a attrib
   type uri = Eliom_content_core.Xml.uri
+  module Ev' :
+    functor
+      (A : sig
+             type 'a attrib
+             module Unsafe :
+               sig
+                 val string_attrib :
+                   string -> string -> 'a Eliom_content_core.Html.Ev'.attrib
+               end
+           end)
+      ->
+      sig
+        val a_onabort : string -> [> `OnAbort ] A.attrib
+        val a_onafterprint : string -> [> `OnAfterPrint ] A.attrib
+        val a_onbeforeprint : string -> [> `OnBeforePrint ] A.attrib
+        val a_onbeforeunload : string -> [> `OnBeforeUnload ] A.attrib
+        val a_onblur : string -> [> `OnBlur ] A.attrib
+        val a_oncanplay : string -> [> `OnCanPlay ] A.attrib
+        val a_oncanplaythrough : string -> [> `OnCanPlayThrough ] A.attrib
+        val a_onchange : string -> [> `OnChange ] A.attrib
+        val a_onclose : string -> [> `OnClose ] A.attrib
+        val a_ondurationchange : string -> [> `OnDurationChange ] A.attrib
+        val a_onemptied : string -> [> `OnEmptied ] A.attrib
+        val a_onended : string -> [> `OnEnded ] A.attrib
+        val a_onerror : string -> [> `OnError ] A.attrib
+        val a_onfocus : string -> [> `OnFocus ] A.attrib
+        val a_onformchange : string -> [> `OnFormChange ] A.attrib
+        val a_onforminput : string -> [> `OnFormInput ] A.attrib
+        val a_onhashchange : string -> [> `OnHashChange ] A.attrib
+        val a_oninput : string -> [> `OnInput ] A.attrib
+        val a_oninvalid : string -> [> `OnInvalid ] A.attrib
+        val a_onmousewheel : string -> [> `OnMouseWheel ] A.attrib
+        val a_onoffline : string -> [> `OnOffLine ] A.attrib
+        val a_ononline : string -> [> `OnOnLine ] A.attrib
+        val a_onpause : string -> [> `OnPause ] A.attrib
+        val a_onplay : string -> [> `OnPlay ] A.attrib
+        val a_onplaying : string -> [> `OnPlaying ] A.attrib
+        val a_onpagehide : string -> [> `OnPageHide ] A.attrib
+        val a_onpageshow : string -> [> `OnPageShow ] A.attrib
+        val a_onpopstate : string -> [> `OnPopState ] A.attrib
+        val a_onprogress : string -> [> `OnProgress ] A.attrib
+        val a_onratechange : string -> [> `OnRateChange ] A.attrib
+        val a_onreadystatechange :
+          string -> [> `OnReadyStateChange ] A.attrib
+        val a_onredo : string -> [> `OnRedo ] A.attrib
+        val a_onresize : string -> [> `OnResize ] A.attrib
+        val a_onscroll : string -> [> `OnScroll ] A.attrib
+        val a_onseeked : string -> [> `OnSeeked ] A.attrib
+        val a_onseeking : string -> [> `OnSeeking ] A.attrib
+        val a_onselect : string -> [> `OnSelect ] A.attrib
+        val a_onshow : string -> [> `OnShow ] A.attrib
+        val a_onstalled : string -> [> `OnStalled ] A.attrib
+        val a_onstorage : string -> [> `OnStorage ] A.attrib
+        val a_onsubmit : string -> [> `OnSubmit ] A.attrib
+        val a_onsuspend : string -> [> `OnSuspend ] A.attrib
+        val a_ontimeupdate : string -> [> `OnTimeUpdate ] A.attrib
+        val a_onundo : string -> [> `OnUndo ] A.attrib
+        val a_onunload : string -> [> `OnUnload ] A.attrib
+        val a_onvolumechange : string -> [> `OnVolumeChange ] A.attrib
+        val a_onwaiting : string -> [> `OnWaiting ] A.attrib
+        val a_onload : string -> [> `OnLoad ] A.attrib
+        val a_onloadeddata : string -> [> `OnLoadedData ] A.attrib
+        val a_onloadedmetadata : string -> [> `OnLoadedMetaData ] A.attrib
+        val a_onloadstart : string -> [> `OnLoadStart ] A.attrib
+        val a_onmessage : string -> [> `OnMessage ] A.attrib
+        val a_onclick : string -> [> `OnClick ] A.attrib
+        val a_oncontextmenu : string -> [> `OnContextMenu ] A.attrib
+        val a_ondblclick : string -> [> `OnDblClick ] A.attrib
+        val a_ondrag : string -> [> `OnDrag ] A.attrib
+        val a_ondragend : string -> [> `OnDragEnd ] A.attrib
+        val a_ondragenter : string -> [> `OnDragEnter ] A.attrib
+        val a_ondragleave : string -> [> `OnDragLeave ] A.attrib
+        val a_ondragover : string -> [> `OnDragOver ] A.attrib
+        val a_ondragstart : string -> [> `OnDragStart ] A.attrib
+        val a_ondrop : string -> [> `OnDrop ] A.attrib
+        val a_onmousedown : string -> [> `OnMouseDown ] A.attrib
+        val a_onmouseup : string -> [> `OnMouseUp ] A.attrib
+        val a_onmouseover : string -> [> `OnMouseOver ] A.attrib
+        val a_onmousemove : string -> [> `OnMouseMove ] A.attrib
+        val a_onmouseout : string -> [> `OnMouseOut ] A.attrib
+        val a_ontouchstart : string -> [> `OnTouchStart ] A.attrib
+        val a_ontouchend : string -> [> `OnTouchEnd ] A.attrib
+        val a_ontouchmove : string -> [> `OnTouchMove ] A.attrib
+        val a_ontouchcancel : string -> [> `OnTouchCancel ] A.attrib
+        val a_onkeypress : string -> [> `OnKeyPress ] A.attrib
+        val a_onkeydown : string -> [> `OnKeyDown ] A.attrib
+        val a_onkeyup : string -> [> `OnKeyUp ] A.attrib
+      end
   module F :
     sig
-      module Raw :
+      module Raw' :
         sig
           type 'a elt = 'a elt
           type doc = Html_types.html elt
@@ -95,6 +183,7 @@
           val a_oncanplaythrough :
             Xml.event_handler -> [> `OnCanPlayThrough ] attrib
           val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+          val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
           val a_ondurationchange :
             Xml.event_handler -> [> `OnDurationChange ] attrib
           val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
@@ -183,7 +272,8 @@
           val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
           val a_allowpaymentrequest :
             unit -> [> `Allowpaymentrequest ] attrib
-          val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+          val a_autocomplete :
+            Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
           val a_async : unit -> [> `Async ] attrib
           val a_autofocus : unit -> [> `Autofocus ] attrib
           val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -301,7 +391,8 @@
           val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
           val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
           val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-          val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+          val a_formmethod :
+            [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
           val a_multiple : unit -> [> `Multiple ] attrib
           val a_name : Html_types.text wrap -> [> `Name ] attrib
           val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -342,6 +433,8 @@
           val a_readonly : unit -> [> `ReadOnly ] attrib
           val a_button_type :
             [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+          val a_script_type :
+            Html_types.script_type wrap -> [> `Script_type ] attrib
           val a_command_type :
             [< `Checkbox | `Command | `Radio ] wrap ->
             [> `Command_Type ] attrib
@@ -411,8 +504,8 @@
              [> Html_types.body ])
             star
           val svg :
-            ?a:[< Html_types.svg_attrib ] Svg.F.Raw.attrib list ->
-            [< Html_types.svg_content ] Svg.F.Raw.elt list_wrap ->
+            ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+            [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
             [> Html_types.svg ] elt
           val footer :
             ([< Html_types.footer_attrib ],
@@ -487,6 +580,10 @@
              [< Html_types.blockquote_content_fun ],
              [> Html_types.blockquote ])
             star
+          val dialog :
+            ([< Html_types.dialog_attrib ],
+             [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+            star
           val div :
             ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
              [> Html_types.div ])
@@ -671,6 +768,7 @@
               | `OnCanPlayThrough
               | `OnChange
               | `OnClick
+              | `OnClose
               | `OnContextMenu
               | `OnDblClick
               | `OnDrag
@@ -930,202 +1028,1119 @@
               val comma_sep_attrib : string -> string list wrap -> 'a attrib
             end
         end
-      type 'a elt = 'a elt
-      type doc = Html_types.html elt
-      type 'a attrib = 'a attrib
-      module Xml :
+      module Raw :
         sig
-          module W :
+          type 'a elt = 'a elt
+          type doc = Html_types.html elt
+          type 'a attrib = 'a attrib
+          module Xml :
             sig
-              type 'a t = 'a Xml.W.t
-              val return : 'a -> 'a t
-              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
-              val fmap : ('a, 'b) ft -> 'a t -> 'b t
-              type 'a tlist = 'a Xml.W.tlist
-              val nil : unit -> 'a tlist
-              val singleton : 'a t -> 'a tlist
-              val cons : 'a t -> 'a tlist -> 'a tlist
-              val append : 'a tlist -> 'a tlist -> 'a tlist
-              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+              module W :
+                sig
+                  type 'a t = 'a Xml.W.t
+                  val return : 'a -> 'a t
+                  type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                  type 'a tlist = 'a Xml.W.tlist
+                  val nil : unit -> 'a tlist
+                  val singleton : 'a t -> 'a tlist
+                  val cons : 'a t -> 'a tlist -> 'a tlist
+                  val append : 'a tlist -> 'a tlist -> 'a tlist
+                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                end
+              type 'a wrap = 'a W.t
+              type 'a list_wrap = 'a W.tlist
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) W.ft
+              val uri_of_string : (string, uri) W.ft
+              type aname = string
+              type event_handler = Xml.event_handler
+              type mouse_event_handler = Xml.mouse_event_handler
+              type keyboard_event_handler = Xml.keyboard_event_handler
+              type touch_event_handler = Xml.touch_event_handler
+              type attrib = Xml.attrib
+              val float_attrib : aname -> float wrap -> attrib
+              val int_attrib : aname -> int wrap -> attrib
+              val string_attrib : aname -> string wrap -> attrib
+              val space_sep_attrib : aname -> string list wrap -> attrib
+              val comma_sep_attrib : aname -> string list wrap -> attrib
+              val event_handler_attrib : aname -> event_handler -> attrib
+              val mouse_event_handler_attrib :
+                aname -> mouse_event_handler -> attrib
+              val keyboard_event_handler_attrib :
+                aname -> keyboard_event_handler -> attrib
+              val touch_event_handler_attrib :
+                aname -> touch_event_handler -> attrib
+              val uri_attrib : aname -> uri wrap -> attrib
+              val uris_attrib : aname -> uri list wrap -> attrib
+              type elt = Xml.elt
+              type ename = string
+              val empty : unit -> elt
+              val comment : string -> elt
+              val pcdata : string wrap -> elt
+              val encodedpcdata : string wrap -> elt
+              val entity : string -> elt
+              val leaf : ?a:attrib list -> ename -> elt
+              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+              val cdata : string -> elt
+              val cdata_script : string -> elt
+              val cdata_style : string -> elt
             end
-          type 'a wrap = 'a W.t
-          type 'a list_wrap = 'a W.tlist
+          type 'a wrap = 'a Xml.W.t
+          type 'a list_wrap = 'a Xml.W.tlist
+          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+          type ('a, 'b, 'c) unary =
+              ?a:'a attrib list -> 'b elt wrap -> 'c elt
+          type ('a, 'b, 'c) star =
+              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          module Info : Xml_sigs.Info
           type uri = Xml.uri
-          val string_of_uri : (uri, string) W.ft
-          val uri_of_string : (string, uri) W.ft
-          type aname = string
-          type event_handler = Xml.event_handler
-          type mouse_event_handler = Xml.mouse_event_handler
-          type keyboard_event_handler = Xml.keyboard_event_handler
-          type touch_event_handler = Xml.touch_event_handler
-          type attrib = Xml.attrib
-          val float_attrib : aname -> float wrap -> attrib
-          val int_attrib : aname -> int wrap -> attrib
-          val string_attrib : aname -> string wrap -> attrib
-          val space_sep_attrib : aname -> string list wrap -> attrib
-          val comma_sep_attrib : aname -> string list wrap -> attrib
-          val event_handler_attrib : aname -> event_handler -> attrib
-          val mouse_event_handler_attrib :
-            aname -> mouse_event_handler -> attrib
-          val keyboard_event_handler_attrib :
-            aname -> keyboard_event_handler -> attrib
-          val touch_event_handler_attrib :
-            aname -> touch_event_handler -> attrib
-          val uri_attrib : aname -> uri wrap -> attrib
-          val uris_attrib : aname -> uri list wrap -> attrib
-          type elt = Xml.elt
-          type ename = string
-          val empty : unit -> elt
-          val comment : string -> elt
-          val pcdata : string wrap -> elt
-          val encodedpcdata : string wrap -> elt
-          val entity : string -> elt
-          val leaf : ?a:attrib list -> ename -> elt
-          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
-          val cdata : string -> elt
-          val cdata_script : string -> elt
-          val cdata_style : string -> elt
-        end
-      type 'a wrap = 'a Xml.W.t
-      type 'a list_wrap = 'a Xml.W.tlist
-      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
-      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
-      type ('a, 'b, 'c) star =
-          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-      module Info : Xml_sigs.Info
-      type uri = Xml.uri
-      val string_of_uri : (uri, string) Xml.W.ft
-      val uri_of_string : (string, uri) Xml.W.ft
-      val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
-      val a_user_data :
-        Html_types.nmtoken -> Html_types.text wrap -> [> `User_data ] attrib
-      val a_id : Html_types.text wrap -> [> `Id ] attrib
-      val a_title : Html_types.text wrap -> [> `Title ] attrib
-      val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
-      val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-      val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
-      val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
-      val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
-      val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-      val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-      val a_oncanplaythrough :
-        Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-      val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-      val a_ondurationchange :
-        Xml.event_handler -> [> `OnDurationChange ] attrib
-      val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-      val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-      val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-      val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
-      val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
-      val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
-      val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-      val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-      val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
-      val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-      val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-      val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-      val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-      val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-      val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-      val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-      val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-      val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-      val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
-      val a_onreadystatechange :
-        Xml.event_handler -> [> `OnReadyStateChange ] attrib
-      val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-      val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-      val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-      val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-      val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-      val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-      val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-      val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-      val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-      val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
-      val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-      val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
-      val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-      val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
-      val a_onloadedmetadata :
-        Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-      val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
-      val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-      val a_oncontextmenu :
-        Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-      val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-      val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-      val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-      val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-      val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-      val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-      val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-      val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-      val a_ontouchstart :
-        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-      val a_ontouchcancel :
-        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-      val a_onkeypress :
-        Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-      val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-      val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
-      val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
-      val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-      val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
-      val a_async : unit -> [> `Async ] attrib
-      val a_autofocus : unit -> [> `Autofocus ] attrib
-      val a_autoplay : unit -> [> `Autoplay ] attrib
-      val a_muted : unit -> [> `Muted ] attrib
-      val a_crossorigin :
-        [< `Anonymous | `Use_credentials ] wrap -> [> `Crossorigin ] attrib
-      val a_integrity : string wrap -> [> `Integrity ] attrib
-      val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
-      val a_challenge : Html_types.text wrap -> [> `Challenge ] attrib
-      val a_contenteditable : bool wrap -> [> `Contenteditable ] attrib
-      val a_contextmenu : Html_types.idref wrap -> [> `Contextmenu ] attrib
-      val a_controls : unit -> [> `Controls ] attrib
-      val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
-      val a_draggable : bool wrap -> [> `Draggable ] attrib
-      val a_form : Html_types.idref wrap -> [> `Form ] attrib
-      val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
-      val a_formenctype :
-        Html_types.contenttype wrap -> [> `Formenctype ] attrib
-      val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
-      val a_formtarget : Html_types.text wrap -> [> `Formtarget ] attrib
-      val a_hidden : unit -> [> `Hidden ] attrib
-      val a_high : Html_types.float_number wrap -> [> `High ] attrib
-      val a_icon : Xml.uri wrap -> [> `Icon ] attrib
-      val a_ismap : unit -> [> `Ismap ] attrib
-      val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
-      val a_list : Html_types.idref wrap -> [> `List ] attrib
-      val a_loop : unit -> [> `Loop ] attrib
-      val a_low : Html_types.float_number wrap -> [> `High ] attrib
-      val a_max : Html_types.float_number wrap -> [> `Max ] attrib
-      val a_input_max :
-        Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
-      val a_min : Html_types.float_number wrap -> [> `Min ] attrib
-      val a_input_min :
-        Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
-      val a_inputmode :
-        [< `Decimal
-         | `Email
-         | `None
-         | `Numeric
+          val string_of_uri : (uri, string) Xml.W.ft
+          val uri_of_string : (string, uri) Xml.W.ft
+          val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+          val a_user_data :
+            Html_types.nmtoken ->
+            Html_types.text wrap -> [> `User_data ] attrib
+          val a_id : Html_types.text wrap -> [> `Id ] attrib
+          val a_title : Html_types.text wrap -> [> `Title ] attrib
+          val a_xml_lang :
+            Html_types.languagecode wrap -> [> `XML_lang ] attrib
+          val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
+          val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
+          val a_allowpaymentrequest :
+            unit -> [> `Allowpaymentrequest ] attrib
+          val a_autocomplete :
+            Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
+          val a_async : unit -> [> `Async ] attrib
+          val a_autofocus : unit -> [> `Autofocus ] attrib
+          val a_autoplay : unit -> [> `Autoplay ] attrib
+          val a_muted : unit -> [> `Muted ] attrib
+          val a_crossorigin :
+            [< `Anonymous | `Use_credentials ] wrap ->
+            [> `Crossorigin ] attrib
+          val a_integrity : string wrap -> [> `Integrity ] attrib
+          val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
+          val a_challenge : Html_types.text wrap -> [> `Challenge ] attrib
+          val a_contenteditable : bool wrap -> [> `Contenteditable ] attrib
+          val a_contextmenu :
+            Html_types.idref wrap -> [> `Contextmenu ] attrib
+          val a_controls : unit -> [> `Controls ] attrib
+          val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
+          val a_draggable : bool wrap -> [> `Draggable ] attrib
+          val a_form : Html_types.idref wrap -> [> `Form ] attrib
+          val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
+          val a_formenctype :
+            Html_types.contenttype wrap -> [> `Formenctype ] attrib
+          val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
+          val a_formtarget : Html_types.text wrap -> [> `Formtarget ] attrib
+          val a_hidden : unit -> [> `Hidden ] attrib
+          val a_high : Html_types.float_number wrap -> [> `High ] attrib
+          val a_icon : Xml.uri wrap -> [> `Icon ] attrib
+          val a_ismap : unit -> [> `Ismap ] attrib
+          val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
+          val a_list : Html_types.idref wrap -> [> `List ] attrib
+          val a_loop : unit -> [> `Loop ] attrib
+          val a_low : Html_types.float_number wrap -> [> `High ] attrib
+          val a_max : Html_types.float_number wrap -> [> `Max ] attrib
+          val a_input_max :
+            Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
+          val a_min : Html_types.float_number wrap -> [> `Min ] attrib
+          val a_input_min :
+            Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
+          val a_inputmode :
+            [< `Decimal
+             | `Email
+             | `None
+             | `Numeric
+             | `Search
+             | `Tel
+             | `Text
+             | `Url ]
+            wrap -> [> `Inputmode ] attrib
+          val a_novalidate : unit -> [> `Novalidate ] attrib
+          val a_open : unit -> [> `Open ] attrib
+          val a_optimum :
+            Html_types.float_number wrap -> [> `Optimum ] attrib
+          val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
+          val a_placeholder :
+            Html_types.text wrap -> [> `Placeholder ] attrib
+          val a_poster : Xml.uri wrap -> [> `Poster ] attrib
+          val a_preload :
+            [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
+          val a_pubdate : unit -> [> `Pubdate ] attrib
+          val a_radiogroup : Html_types.text wrap -> [> `Radiogroup ] attrib
+          val a_referrerpolicy :
+            Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
+          val a_required : unit -> [> `Required ] attrib
+          val a_reversed : unit -> [> `Reversed ] attrib
+          val a_sandbox :
+            [< Html_types.sandbox_token ] list wrap -> [> `Sandbox ] attrib
+          val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
+          val a_scoped : unit -> [> `Scoped ] attrib
+          val a_seamless : unit -> [> `Seamless ] attrib
+          val a_sizes :
+            (Html_types.number * Html_types.number) list option wrap ->
+            [> `Sizes ] attrib
+          val a_span : Html_types.number wrap -> [> `Span ] attrib
+          val a_srclang : Html_types.nmtoken wrap -> [> `XML_lang ] attrib
+          type image_candidate =
+              [ `Url of uri
+              | `Url_pixel of uri * Html_types.float_number
+              | `Url_width of uri * Html_types.number ]
+          val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
+          val a_img_sizes :
+            Html_types.text list wrap -> [> `Img_sizes ] attrib
+          val a_start : Html_types.number wrap -> [> `Start ] attrib
+          val a_step :
+            Html_types.float_number option wrap -> [> `Step ] attrib
+          val a_translate : [< `No | `Yes ] wrap -> [> `Translate ] attrib
+          val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
+          val a_version : Html_types.cdata wrap -> [> `Version ] attrib
+          val a_xmlns : [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
+          val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
+          val a_cite : Xml.uri wrap -> [> `Cite ] attrib
+          val a_xml_space :
+            [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
+          val a_accesskey :
+            Html_types.character wrap -> [> `Accesskey ] attrib
+          val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
+          val a_accept_charset :
+            Html_types.charsets wrap -> [> `Accept_charset ] attrib
+          val a_accept : Html_types.contenttypes wrap -> [> `Accept ] attrib
+          val a_href : Xml.uri wrap -> [> `Href ] attrib
+          val a_hreflang :
+            Html_types.languagecode wrap -> [> `Hreflang ] attrib
+          val a_download : string option wrap -> [> `Download ] attrib
+          val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
+          val a_tabindex : Html_types.number wrap -> [> `Tabindex ] attrib
+          val a_mime_type :
+            Html_types.contenttype wrap -> [> `Mime_type ] attrib
+          val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
+          val a_action : Xml.uri wrap -> [> `Action ] attrib
+          val a_checked : unit -> [> `Checked ] attrib
+          val a_cols : Html_types.number wrap -> [> `Cols ] attrib
+          val a_enctype : Html_types.contenttype wrap -> [> `Enctype ] attrib
+          val a_label_for : Html_types.idref wrap -> [> `Label_for ] attrib
+          val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
+          val a_output_for :
+            Html_types.idrefs wrap -> [> `Output_for ] attrib
+          val a_for_list : Html_types.idrefs wrap -> [> `Output_for ] attrib
+          val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
+          val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
+          val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
+          val a_formmethod :
+            [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
+          val a_multiple : unit -> [> `Multiple ] attrib
+          val a_name : Html_types.text wrap -> [> `Name ] attrib
+          val a_rows : Html_types.number wrap -> [> `Rows ] attrib
+          val a_selected : unit -> [> `Selected ] attrib
+          val a_size : Html_types.number wrap -> [> `Size ] attrib
+          val a_src : Xml.uri wrap -> [> `Src ] attrib
+          val a_input_type :
+            [< `Button
+             | `Checkbox
+             | `Color
+             | `Date
+             | `Datetime
+             | `Datetime_local
+             | `Email
+             | `File
+             | `Hidden
+             | `Image
+             | `Month
+             | `Number
+             | `Password
+             | `Radio
+             | `Range
+             | `Reset
+             | `Search
+             | `Submit
+             | `Tel
+             | `Text
+             | `Time
+             | `Url
+             | `Week ]
+            wrap -> [> `Input_Type ] attrib
+          val a_text_value : Html_types.text wrap -> [> `Text_Value ] attrib
+          val a_int_value : Html_types.number wrap -> [> `Int_Value ] attrib
+          val a_value : Html_types.cdata wrap -> [> `Value ] attrib
+          val a_float_value :
+            Html_types.float_number wrap -> [> `Float_Value ] attrib
+          val a_disabled : unit -> [> `Disabled ] attrib
+          val a_readonly : unit -> [> `ReadOnly ] attrib
+          val a_button_type :
+            [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+          val a_script_type :
+            Html_types.script_type wrap -> [> `Script_type ] attrib
+          val a_command_type :
+            [< `Checkbox | `Command | `Radio ] wrap ->
+            [> `Command_Type ] attrib
+          val a_menu_type :
+            [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
+          val a_label : Html_types.text wrap -> [> `Label ] attrib
+          val a_align :
+            [< `Char | `Justify | `Left | `Right ] wrap -> [> `Align ] attrib
+          val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
+          val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
+          val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
+          val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
+          val a_scope :
+            [< `Col | `Colgroup | `Row | `Rowgroup ] wrap ->
+            [> `Scope ] attrib
+          val a_summary : Html_types.text wrap -> [> `Summary ] attrib
+          val a_border : Html_types.pixels wrap -> [> `Border ] attrib
+          val a_rules :
+            [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
+            [> `Rules ] attrib
+          val a_char : Html_types.character wrap -> [> `Char ] attrib
+          val a_alt : Html_types.text wrap -> [> `Alt ] attrib
+          val a_height : Html_types.number wrap -> [> `Height ] attrib
+          val a_width : Html_types.number wrap -> [> `Width ] attrib
+          type shape = [ `Circle | `Default | `Poly | `Rect ]
+          val a_shape : shape wrap -> [> `Shape ] attrib
+          val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
+          val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
+          val a_data : Xml.uri wrap -> [> `Data ] attrib
+          val a_codetype :
+            Html_types.contenttype wrap -> [> `Codetype ] attrib
+          val a_frameborder :
+            [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
+          val a_marginheight :
+            Html_types.pixels wrap -> [> `Marginheight ] attrib
+          val a_marginwidth :
+            Html_types.pixels wrap -> [> `Marginwidth ] attrib
+          val a_scrolling :
+            [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
+          val a_target : Html_types.frametarget wrap -> [> `Target ] attrib
+          val a_content : Html_types.text wrap -> [> `Content ] attrib
+          val a_http_equiv : Html_types.text wrap -> [> `Http_equiv ] attrib
+          val a_defer : unit -> [> `Defer ] attrib
+          val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
+          val a_style : string wrap -> [> `Style_Attr ] attrib
+          val a_property : string wrap -> [> `Property ] attrib
+          val a_role : string list wrap -> [> `Role ] attrib
+          val a_aria : string -> string list wrap -> [> `Aria ] attrib
+          val txt : string wrap -> [> Html_types.txt ] elt
+          val html :
+            ?a:Html_types.html_attrib attrib list ->
+            [< Html_types.head ] elt wrap ->
+            [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
+          val head :
+            ?a:Html_types.head_attrib attrib list ->
+            [< Html_types.title ] elt wrap ->
+            Html_types.head_content_fun elt list_wrap ->
+            [> Html_types.head ] elt
+          val base :
+            ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
+          val title :
+            (Html_types.title_attrib, [< Html_types.title_content_fun ],
+             [> Html_types.title ])
+            unary
+          val body :
+            ([< Html_types.body_attrib ], [< Html_types.body_content_fun ],
+             [> Html_types.body ])
+            star
+          val svg :
+            ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+            [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
+            [> Html_types.svg ] elt
+          val footer :
+            ([< Html_types.footer_attrib ],
+             [< Html_types.footer_content_fun ], [> Html_types.footer ])
+            star
+          val header :
+            ([< Html_types.header_attrib ],
+             [< Html_types.header_content_fun ], [> Html_types.header ])
+            star
+          val section :
+            ([< Html_types.section_attrib ],
+             [< Html_types.section_content_fun ], [> Html_types.section ])
+            star
+          val nav :
+            ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
+             [> Html_types.nav ])
+            star
+          val h1 :
+            ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
+             [> Html_types.h1 ])
+            star
+          val h2 :
+            ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
+             [> Html_types.h2 ])
+            star
+          val h3 :
+            ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
+             [> Html_types.h3 ])
+            star
+          val h4 :
+            ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
+             [> Html_types.h4 ])
+            star
+          val h5 :
+            ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
+             [> Html_types.h5 ])
+            star
+          val h6 :
+            ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
+             [> Html_types.h6 ])
+            star
+          val hgroup :
+            ([< Html_types.hgroup_attrib ],
+             [< Html_types.hgroup_content_fun ], [> Html_types.hgroup ])
+            star
+          val address :
+            ([< Html_types.address_attrib ],
+             [< Html_types.address_content_fun ], [> Html_types.address ])
+            star
+          val article :
+            ([< Html_types.article_attrib ],
+             [< Html_types.article_content_fun ], [> Html_types.article ])
+            star
+          val aside :
+            ([< Html_types.aside_attrib ], [< Html_types.aside_content_fun ],
+             [> Html_types.aside ])
+            star
+          val main :
+            ([< Html_types.main_attrib ], [< Html_types.main_content_fun ],
+             [> Html_types.main ])
+            star
+          val p :
+            ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
+             [> Html_types.p ])
+            star
+          val pre :
+            ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
+             [> Html_types.pre ])
+            star
+          val blockquote :
+            ([< Html_types.blockquote_attrib ],
+             [< Html_types.blockquote_content_fun ],
+             [> Html_types.blockquote ])
+            star
+          val dialog :
+            ([< Html_types.dialog_attrib ],
+             [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+            star
+          val div :
+            ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
+             [> Html_types.div ])
+            star
+          val dl :
+            ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
+             [> Html_types.dl ])
+            star
+          val ol :
+            ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
+             [> Html_types.ol ])
+            star
+          val ul :
+            ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
+             [> Html_types.ul ])
+            star
+          val dd :
+            ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
+             [> Html_types.dd ])
+            star
+          val dt :
+            ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
+             [> Html_types.dt ])
+            star
+          val li :
+            ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
+             [> Html_types.li ])
+            star
+          val figcaption :
+            ([< Html_types.figcaption_attrib ],
+             [< Html_types.figcaption_content_fun ],
+             [> Html_types.figcaption ])
+            star
+          val figure :
+            ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
+                        | `Top of [< Html_types.figcaption ] elt wrap ] ->
+            ([< Html_types.figure_attrib ],
+             [< Html_types.figure_content_fun ], [> Html_types.figure ])
+            star
+          val hr : ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
+          val b :
+            ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
+             [> Html_types.b ])
+            star
+          val i :
+            ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
+             [> Html_types.i ])
+            star
+          val u :
+            ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
+             [> Html_types.u ])
+            star
+          val small :
+            ([< Html_types.small_attrib ], [< Html_types.small_content_fun ],
+             [> Html_types.small ])
+            star
+          val sub :
+            ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
+             [> Html_types.sub ])
+            star
+          val sup :
+            ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
+             [> Html_types.sup ])
+            star
+          val mark :
+            ([< Html_types.mark_attrib ], [< Html_types.mark_content_fun ],
+             [> Html_types.mark ])
+            star
+          val wbr : ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
+          val bdo :
+            dir:[< `Ltr | `Rtl ] wrap ->
+            ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
+             [> Html_types.bdo ])
+            star
+          val abbr :
+            ([< Html_types.abbr_attrib ], [< Html_types.abbr_content_fun ],
+             [> Html_types.abbr ])
+            star
+          val br : ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
+          val cite :
+            ([< Html_types.cite_attrib ], [< Html_types.cite_content_fun ],
+             [> Html_types.cite ])
+            star
+          val code :
+            ([< Html_types.code_attrib ], [< Html_types.code_content_fun ],
+             [> Html_types.code ])
+            star
+          val dfn :
+            ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
+             [> Html_types.dfn ])
+            star
+          val em :
+            ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
+             [> Html_types.em ])
+            star
+          val kbd :
+            ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
+             [> Html_types.kbd ])
+            star
+          val q :
+            ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
+             [> Html_types.q ])
+            star
+          val samp :
+            ([< Html_types.samp_attrib ], [< Html_types.samp_content_fun ],
+             [> Html_types.samp ])
+            star
+          val span :
+            ([< Html_types.span_attrib ], [< Html_types.span_content_fun ],
+             [> Html_types.span ])
+            star
+          val strong :
+            ([< Html_types.strong_attrib ],
+             [< Html_types.strong_content_fun ], [> Html_types.strong ])
+            star
+          val time :
+            ([< Html_types.time_attrib ], [< Html_types.time_content_fun ],
+             [> Html_types.time ])
+            star
+          val var :
+            ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
+             [> Html_types.var ])
+            star
+          val a : ([< Html_types.a_attrib ], 'a, [> 'a Html_types.a ]) star
+          val del :
+            ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
+          val ins :
+            ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
+          val img :
+            src:Xml.uri wrap ->
+            alt:Html_types.text wrap ->
+            ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
+          val picture :
+            img:[< Html_types.img ] elt wrap ->
+            ([< Html_types.picture_attrib ],
+             [< Html_types.picture_content_fun ], [> Html_types.picture ])
+            star
+          val iframe :
+            ([< Html_types.iframe_attrib ],
+             [< Html_types.iframe_content_fun ], [> Html_types.iframe ])
+            star
+          val object_ :
+            ?params:[< Html_types.param ] elt list_wrap ->
+            ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
+          val param :
+            ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
+          val embed :
+            ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
+          val audio :
+            ?src:Xml.uri wrap ->
+            ?srcs:[< Html_types.source ] elt list_wrap ->
+            ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ]) star
+          val video :
+            ?src:Xml.uri wrap ->
+            ?srcs:[< Html_types.source ] elt list_wrap ->
+            ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ]) star
+          val canvas :
+            ([< Html_types.canvas_attrib ], 'a, [> 'a Html_types.canvas ])
+            star
+          val source :
+            ([< Html_types.source_attrib ], [> Html_types.source ]) nullary
+          val area :
+            alt:Html_types.text wrap ->
+            ([< `Accesskey
+              | `Alt
+              | `Aria
+              | `Class
+              | `Contenteditable
+              | `Contextmenu
+              | `Coords
+              | `Dir
+              | `Draggable
+              | `Hidden
+              | `Hreflang
+              | `Id
+              | `Lang
+              | `Media
+              | `Mime_type
+              | `OnAbort
+              | `OnBlur
+              | `OnCanPlay
+              | `OnCanPlayThrough
+              | `OnChange
+              | `OnClick
+              | `OnClose
+              | `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
+              | `Rel
+              | `Role
+              | `Shape
+              | `Spellcheck
+              | `Style_Attr
+              | `Tabindex
+              | `Target
+              | `Title
+              | `Translate
+              | `User_data
+              | `XML_lang
+              | `XMLns ],
+             [> Html_types.area ])
+            nullary
+          val map :
+            ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
+          val caption :
+            ([< Html_types.caption_attrib ],
+             [< Html_types.caption_content_fun ], [> Html_types.caption ])
+            star
+          val table :
+            ?caption:[< Html_types.caption ] elt wrap ->
+            ?columns:[< Html_types.colgroup ] elt list_wrap ->
+            ?thead:[< Html_types.thead ] elt wrap ->
+            ?tfoot:[< Html_types.tfoot ] elt wrap ->
+            ([< Html_types.table_attrib ], [< Html_types.table_content_fun ],
+             [> Html_types.table ])
+            star
+          val tablex :
+            ?caption:[< Html_types.caption ] elt wrap ->
+            ?columns:[< Html_types.colgroup ] elt list_wrap ->
+            ?thead:[< Html_types.thead ] elt wrap ->
+            ?tfoot:[< Html_types.tfoot ] elt wrap ->
+            ([< Html_types.tablex_attrib ],
+             [< Html_types.tablex_content_fun ], [> Html_types.tablex ])
+            star
+          val colgroup :
+            ([< Html_types.colgroup_attrib ],
+             [< Html_types.colgroup_content_fun ], [> Html_types.colgroup ])
+            star
+          val col : ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
+          val thead :
+            ([< Html_types.thead_attrib ], [< Html_types.thead_content_fun ],
+             [> Html_types.thead ])
+            star
+          val tbody :
+            ([< Html_types.tbody_attrib ], [< Html_types.tbody_content_fun ],
+             [> Html_types.tbody ])
+            star
+          val tfoot :
+            ([< Html_types.tfoot_attrib ], [< Html_types.tfoot_content_fun ],
+             [> Html_types.tfoot ])
+            star
+          val td :
+            ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
+             [> Html_types.td ])
+            star
+          val th :
+            ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
+             [> Html_types.th ])
+            star
+          val tr :
+            ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
+             [> Html_types.tr ])
+            star
+          val form :
+            ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
+             [> Html_types.form ])
+            star
+          val fieldset :
+            ?legend:[< Html_types.legend ] elt wrap ->
+            ([< Html_types.fieldset_attrib ],
+             [< Html_types.fieldset_content_fun ], [> Html_types.fieldset ])
+            star
+          val legend :
+            ([< Html_types.legend_attrib ],
+             [< Html_types.legend_content_fun ], [> Html_types.legend ])
+            star
+          val label :
+            ([< Html_types.label_attrib ], [< Html_types.label_content_fun ],
+             [> Html_types.label ])
+            star
+          val input :
+            ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
+          val button :
+            ([< Html_types.button_attrib ],
+             [< Html_types.button_content_fun ], [> Html_types.button ])
+            star
+          val select :
+            ([< Html_types.select_attrib ],
+             [< Html_types.select_content_fun ], [> Html_types.select ])
+            star
+          val datalist :
+            ?children:[< `Options of
+                           [< Html_types.selectoption ] elt list_wrap
+                       | `Phras of [< Html_types.phrasing ] elt list_wrap ] ->
+            ([< Html_types.datalist_attrib ], [> Html_types.datalist ])
+            nullary
+          val optgroup :
+            label:Html_types.text wrap ->
+            ([< Html_types.optgroup_attrib ],
+             [< Html_types.optgroup_content_fun ], [> Html_types.optgroup ])
+            star
+          val option :
+            ([< Html_types.option_attrib ],
+             [< Html_types.option_content_fun ],
+             [> Html_types.selectoption ])
+            unary
+          val textarea :
+            ([< Html_types.textarea_attrib ],
+             [< Html_types.textarea_content_fun ], [> Html_types.textarea ])
+            unary
+          val keygen :
+            ([< Html_types.keygen_attrib ], [> Html_types.keygen ]) nullary
+          val progress :
+            ([< Html_types.progress_attrib ],
+             [< Html_types.progress_content_fun ], [> Html_types.progress ])
+            star
+          val meter :
+            ([< Html_types.meter_attrib ], [< Html_types.meter_content_fun ],
+             [> Html_types.meter ])
+            star
+          val output_elt :
+            ([< Html_types.output_elt_attrib ],
+             [< Html_types.output_elt_content_fun ],
+             [> Html_types.output_elt ])
+            star
+          val entity : string -> [> Html_types.txt ] elt
+          val space : unit -> [> Html_types.txt ] elt
+          val cdata : string -> [> Html_types.txt ] elt
+          val cdata_script : string -> [> Html_types.txt ] elt
+          val cdata_style : string -> [> Html_types.txt ] elt
+          val details :
+            [< Html_types.summary ] elt wrap ->
+            ([< Html_types.details_attrib ],
+             [< Html_types.details_content_fun ], [> Html_types.details ])
+            star
+          val summary :
+            ([< Html_types.summary_attrib ],
+             [< Html_types.summary_content_fun ], [> Html_types.summary ])
+            star
+          val command :
+            label:Html_types.text wrap ->
+            ([< Html_types.command_attrib ], [> Html_types.command ]) nullary
+          val menu :
+            ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
+                       | `Lis of
+                           [< `Li of [< Html_types.common ] ] elt list_wrap ] ->
+            ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
+          val script :
+            ([< Html_types.script_attrib ],
+             [< Html_types.script_content_fun ], [> Html_types.script ])
+            unary
+          val noscript :
+            ([< Html_types.noscript_attrib ],
+             [< Html_types.noscript_content_fun ], [> Html_types.noscript ])
+            star
+          val template :
+            ([< Html_types.template_attrib ],
+             [< Html_types.template_content_fun ], [> Html_types.template ])
+            star
+          val meta :
+            ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
+          val style :
+            ([< Html_types.style_attrib ], [< Html_types.style_content_fun ],
+             [> Html_types.style ])
+            star
+          val link :
+            rel:Html_types.linktypes wrap ->
+            href:Xml.uri wrap ->
+            ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
+          val rt :
+            ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
+             [> Html_types.rt ])
+            star
+          val rp :
+            ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
+             [> Html_types.rp ])
+            star
+          val ruby :
+            ([< Html_types.ruby_attrib ], [< Html_types.ruby_content_fun ],
+             [> Html_types.ruby ])
+            star
+          val pcdata : string wrap -> [> Html_types.pcdata ] elt
+          val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+          val tot : Xml.elt -> 'a elt
+          val totl : Xml.elt list_wrap -> 'a elt list_wrap
+          val toelt : 'a elt -> Xml.elt
+          val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+          val doc_toelt : doc -> Xml.elt
+          val to_xmlattribs : 'a attrib list -> Xml.attrib list
+          val to_attrib : Xml.attrib -> 'a attrib
+          module Unsafe :
+            sig
+              val data : string wrap -> 'a elt
+              val node :
+                string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+              val coerce_elt : 'a elt -> 'b elt
+              val string_attrib : string -> string wrap -> 'a attrib
+              val float_attrib : string -> float wrap -> 'a attrib
+              val int_attrib : string -> int wrap -> 'a attrib
+              val uri_attrib : string -> uri wrap -> 'a attrib
+              val space_sep_attrib : string -> string list wrap -> 'a attrib
+              val comma_sep_attrib : string -> string list wrap -> 'a attrib
+            end
+          val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+          val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+          val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+          val a_onbeforeunload : string -> [> `OnBeforeUnload ] Raw'.attrib
+          val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+          val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+          val a_oncanplaythrough :
+            string -> [> `OnCanPlayThrough ] Raw'.attrib
+          val a_onchange : string -> [> `OnChange ] Raw'.attrib
+          val a_onclose : string -> [> `OnClose ] Raw'.attrib
+          val a_ondurationchange :
+            string -> [> `OnDurationChange ] Raw'.attrib
+          val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+          val a_onended : string -> [> `OnEnded ] Raw'.attrib
+          val a_onerror : string -> [> `OnError ] Raw'.attrib
+          val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+          val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+          val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+          val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+          val a_oninput : string -> [> `OnInput ] Raw'.attrib
+          val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+          val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+          val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+          val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+          val a_onpause : string -> [> `OnPause ] Raw'.attrib
+          val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+          val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+          val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+          val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+          val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+          val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+          val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+          val a_onreadystatechange :
+            string -> [> `OnReadyStateChange ] Raw'.attrib
+          val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+          val a_onresize : string -> [> `OnResize ] Raw'.attrib
+          val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+          val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+          val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+          val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+          val a_onshow : string -> [> `OnShow ] Raw'.attrib
+          val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+          val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+          val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+          val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+          val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+          val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+          val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+          val a_onvolumechange : string -> [> `OnVolumeChange ] Raw'.attrib
+          val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+          val a_onload : string -> [> `OnLoad ] Raw'.attrib
+          val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+          val a_onloadedmetadata :
+            string -> [> `OnLoadedMetaData ] Raw'.attrib
+          val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+          val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+          val a_onclick : string -> [> `OnClick ] Raw'.attrib
+          val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+          val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+          val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+          val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+          val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+          val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+          val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+          val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+          val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+          val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+          val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+          val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+          val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+          val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+          val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+          val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+          val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+          val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+          val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+          val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+          val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
+        end
+      type 'a elt = 'a elt
+      type doc = Html_types.html elt
+      type 'a attrib = 'a attrib
+      module Xml :
+        sig
+          module W :
+            sig
+              type 'a t = 'a Xml.W.t
+              val return : 'a -> 'a t
+              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+              val fmap : ('a, 'b) ft -> 'a t -> 'b t
+              type 'a tlist = 'a Xml.W.tlist
+              val nil : unit -> 'a tlist
+              val singleton : 'a t -> 'a tlist
+              val cons : 'a t -> 'a tlist -> 'a tlist
+              val append : 'a tlist -> 'a tlist -> 'a tlist
+              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+            end
+          type 'a wrap = 'a W.t
+          type 'a list_wrap = 'a W.tlist
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) W.ft
+          val uri_of_string : (string, uri) W.ft
+          type aname = string
+          type event_handler = Xml.event_handler
+          type mouse_event_handler = Xml.mouse_event_handler
+          type keyboard_event_handler = Xml.keyboard_event_handler
+          type touch_event_handler = Xml.touch_event_handler
+          type attrib = Xml.attrib
+          val float_attrib : aname -> float wrap -> attrib
+          val int_attrib : aname -> int wrap -> attrib
+          val string_attrib : aname -> string wrap -> attrib
+          val space_sep_attrib : aname -> string list wrap -> attrib
+          val comma_sep_attrib : aname -> string list wrap -> attrib
+          val event_handler_attrib : aname -> event_handler -> attrib
+          val mouse_event_handler_attrib :
+            aname -> mouse_event_handler -> attrib
+          val keyboard_event_handler_attrib :
+            aname -> keyboard_event_handler -> attrib
+          val touch_event_handler_attrib :
+            aname -> touch_event_handler -> attrib
+          val uri_attrib : aname -> uri wrap -> attrib
+          val uris_attrib : aname -> uri list wrap -> attrib
+          type elt = Xml.elt
+          type ename = string
+          val empty : unit -> elt
+          val comment : string -> elt
+          val pcdata : string wrap -> elt
+          val encodedpcdata : string wrap -> elt
+          val entity : string -> elt
+          val leaf : ?a:attrib list -> ename -> elt
+          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+          val cdata : string -> elt
+          val cdata_script : string -> elt
+          val cdata_style : string -> elt
+        end
+      type 'a wrap = 'a Xml.W.t
+      type 'a list_wrap = 'a Xml.W.tlist
+      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
+      type ('a, 'b, 'c) star =
+          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+      module Info : Xml_sigs.Info
+      type uri = Xml.uri
+      val string_of_uri : (uri, string) Xml.W.ft
+      val uri_of_string : (string, uri) Xml.W.ft
+      val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+      val a_user_data :
+        Html_types.nmtoken -> Html_types.text wrap -> [> `User_data ] attrib
+      val a_id : Html_types.text wrap -> [> `Id ] attrib
+      val a_title : Html_types.text wrap -> [> `Title ] attrib
+      val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
+      val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
+      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+      val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
+      val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
+      val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
+      val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
+      val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
+      val a_oncanplaythrough :
+        Xml.event_handler -> [> `OnCanPlayThrough ] attrib
+      val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+      val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
+      val a_ondurationchange :
+        Xml.event_handler -> [> `OnDurationChange ] attrib
+      val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
+      val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
+      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+      val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
+      val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
+      val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
+      val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
+      val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
+      val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
+      val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
+      val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
+      val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
+      val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
+      val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
+      val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
+      val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
+      val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
+      val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
+      val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
+      val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
+      val a_onreadystatechange :
+        Xml.event_handler -> [> `OnReadyStateChange ] attrib
+      val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
+      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+      val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
+      val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
+      val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
+      val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
+      val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
+      val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
+      val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
+      val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
+      val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
+      val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
+      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+      val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
+      val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
+      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+      val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
+      val a_onloadedmetadata :
+        Xml.event_handler -> [> `OnLoadedMetaData ] attrib
+      val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
+      val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
+      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+      val a_oncontextmenu :
+        Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
+      val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
+      val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
+      val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
+      val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
+      val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
+      val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
+      val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
+      val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
+      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+      val a_ontouchstart :
+        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+      val a_ontouchcancel :
+        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+      val a_onkeypress :
+        Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
+      val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
+      val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+      val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
+      val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
+      val a_autocomplete :
+        Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
+      val a_async : unit -> [> `Async ] attrib
+      val a_autofocus : unit -> [> `Autofocus ] attrib
+      val a_autoplay : unit -> [> `Autoplay ] attrib
+      val a_muted : unit -> [> `Muted ] attrib
+      val a_crossorigin :
+        [< `Anonymous | `Use_credentials ] wrap -> [> `Crossorigin ] attrib
+      val a_integrity : string wrap -> [> `Integrity ] attrib
+      val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
+      val a_challenge : Html_types.text wrap -> [> `Challenge ] attrib
+      val a_contenteditable : bool wrap -> [> `Contenteditable ] attrib
+      val a_contextmenu : Html_types.idref wrap -> [> `Contextmenu ] attrib
+      val a_controls : unit -> [> `Controls ] attrib
+      val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
+      val a_draggable : bool wrap -> [> `Draggable ] attrib
+      val a_form : Html_types.idref wrap -> [> `Form ] attrib
+      val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
+      val a_formenctype :
+        Html_types.contenttype wrap -> [> `Formenctype ] attrib
+      val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
+      val a_formtarget : Html_types.text wrap -> [> `Formtarget ] attrib
+      val a_hidden : unit -> [> `Hidden ] attrib
+      val a_high : Html_types.float_number wrap -> [> `High ] attrib
+      val a_icon : Xml.uri wrap -> [> `Icon ] attrib
+      val a_ismap : unit -> [> `Ismap ] attrib
+      val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
+      val a_list : Html_types.idref wrap -> [> `List ] attrib
+      val a_loop : unit -> [> `Loop ] attrib
+      val a_low : Html_types.float_number wrap -> [> `High ] attrib
+      val a_max : Html_types.float_number wrap -> [> `Max ] attrib
+      val a_input_max :
+        Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
+      val a_min : Html_types.float_number wrap -> [> `Min ] attrib
+      val a_input_min :
+        Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
+      val a_inputmode :
+        [< `Decimal
+         | `Email
+         | `None
+         | `Numeric
          | `Search
          | `Tel
          | `Text
@@ -1194,7 +2209,7 @@
       val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
       val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
       val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-      val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+      val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
       val a_multiple : unit -> [> `Multiple ] attrib
       val a_name : Html_types.text wrap -> [> `Name ] attrib
       val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -1235,6 +2250,8 @@
       val a_readonly : unit -> [> `ReadOnly ] attrib
       val a_button_type :
         [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+      val a_script_type :
+        Html_types.script_type wrap -> [> `Script_type ] attrib
       val a_command_type :
         [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
       val a_menu_type :
@@ -1297,8 +2314,8 @@
          [> Html_types.body ])
         star
       val svg :
-        ?a:[< Html_types.svg_attrib ] Svg.F.Raw.attrib list ->
-        [< Html_types.svg_content ] Svg.F.Raw.elt list_wrap ->
+        ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+        [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
         [> Html_types.svg ] elt
       val footer :
         ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
@@ -1372,6 +2389,10 @@
         ([< Html_types.blockquote_attrib ],
          [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
         star
+      val dialog :
+        ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+         [> Html_types.dialog ])
+        star
       val div :
         ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
          [> Html_types.div ])
@@ -1552,6 +2573,7 @@
           | `OnCanPlayThrough
           | `OnChange
           | `OnClick
+          | `OnClose
           | `OnContextMenu
           | `OnDblClick
           | `OnDrag
@@ -1804,17 +2826,951 @@
           val space_sep_attrib : string -> string list wrap -> 'a attrib
           val comma_sep_attrib : string -> string list wrap -> 'a attrib
         end
-      type ('a, 'b, 'c) lazy_star =
-          ?a:'a Eliom_content_core.Html.attrib list ->
-          'b Eliom_content_core.Html.elt list Eliom_lazy.request ->
-          'c Eliom_content_core.Html.elt
-      val lazy_form :
-        ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
-         [> Html_types.form ])
-        Eliom_content_core.Html.F.lazy_star
-    end
-  module D :
-    sig
+      type ('a, 'b, 'c) lazy_star =
+          ?a:'a Eliom_content_core.Html.attrib list ->
+          'b Eliom_content_core.Html.elt list Eliom_lazy.request ->
+          'c Eliom_content_core.Html.elt
+      val lazy_form :
+        ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
+         [> Html_types.form ])
+        Eliom_content_core.Html.F.lazy_star
+    end
+  module D :
+    sig
+      module Raw' :
+        sig
+          type 'a elt = 'a elt
+          type doc = Html_types.html elt
+          type 'a attrib = 'a attrib
+          module Xml :
+            sig
+              module W :
+                sig
+                  type 'a t = 'a Xml.W.t
+                  val return : 'a -> 'a t
+                  type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                  type 'a tlist = 'a Xml.W.tlist
+                  val nil : unit -> 'a tlist
+                  val singleton : 'a t -> 'a tlist
+                  val cons : 'a t -> 'a tlist -> 'a tlist
+                  val append : 'a tlist -> 'a tlist -> 'a tlist
+                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                end
+              type 'a wrap = 'a W.t
+              type 'a list_wrap = 'a W.tlist
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) W.ft
+              val uri_of_string : (string, uri) W.ft
+              type aname = string
+              type event_handler = Xml.event_handler
+              type mouse_event_handler = Xml.mouse_event_handler
+              type keyboard_event_handler = Xml.keyboard_event_handler
+              type touch_event_handler = Xml.touch_event_handler
+              type attrib = Xml.attrib
+              val float_attrib : aname -> float wrap -> attrib
+              val int_attrib : aname -> int wrap -> attrib
+              val string_attrib : aname -> string wrap -> attrib
+              val space_sep_attrib : aname -> string list wrap -> attrib
+              val comma_sep_attrib : aname -> string list wrap -> attrib
+              val event_handler_attrib : aname -> event_handler -> attrib
+              val mouse_event_handler_attrib :
+                aname -> mouse_event_handler -> attrib
+              val keyboard_event_handler_attrib :
+                aname -> keyboard_event_handler -> attrib
+              val touch_event_handler_attrib :
+                aname -> touch_event_handler -> attrib
+              val uri_attrib : aname -> uri wrap -> attrib
+              val uris_attrib : aname -> uri list wrap -> attrib
+              type elt = Xml.elt
+              type ename = string
+              val empty : unit -> elt
+              val comment : string -> elt
+              val pcdata : string wrap -> elt
+              val encodedpcdata : string wrap -> elt
+              val entity : string -> elt
+              val leaf : ?a:attrib list -> ename -> elt
+              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+              val cdata : string -> elt
+              val cdata_script : string -> elt
+              val cdata_style : string -> elt
+            end
+          type 'a wrap = 'a Xml.W.t
+          type 'a list_wrap = 'a Xml.W.tlist
+          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+          type ('a, 'b, 'c) unary =
+              ?a:'a attrib list -> 'b elt wrap -> 'c elt
+          type ('a, 'b, 'c) star =
+              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          module Info : Xml_sigs.Info
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) Xml.W.ft
+          val uri_of_string : (string, uri) Xml.W.ft
+          val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+          val a_user_data :
+            Html_types.nmtoken ->
+            Html_types.text wrap -> [> `User_data ] attrib
+          val a_id : Html_types.text wrap -> [> `Id ] attrib
+          val a_title : Html_types.text wrap -> [> `Title ] attrib
+          val a_xml_lang :
+            Html_types.languagecode wrap -> [> `XML_lang ] attrib
+          val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
+          val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+          val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
+          val a_onbeforeprint :
+            Xml.event_handler -> [> `OnBeforePrint ] attrib
+          val a_onbeforeunload :
+            Xml.event_handler -> [> `OnBeforeUnload ] attrib
+          val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
+          val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
+          val a_oncanplaythrough :
+            Xml.event_handler -> [> `OnCanPlayThrough ] attrib
+          val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+          val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
+          val a_ondurationchange :
+            Xml.event_handler -> [> `OnDurationChange ] attrib
+          val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
+          val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
+          val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+          val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
+          val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
+          val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
+          val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
+          val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
+          val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
+          val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
+          val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
+          val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
+          val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
+          val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
+          val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
+          val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
+          val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
+          val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
+          val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
+          val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
+          val a_onreadystatechange :
+            Xml.event_handler -> [> `OnReadyStateChange ] attrib
+          val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
+          val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+          val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+          val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
+          val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
+          val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
+          val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
+          val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
+          val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
+          val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
+          val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
+          val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
+          val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
+          val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+          val a_onvolumechange :
+            Xml.event_handler -> [> `OnVolumeChange ] attrib
+          val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
+          val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+          val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
+          val a_onloadedmetadata :
+            Xml.event_handler -> [> `OnLoadedMetaData ] attrib
+          val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
+          val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
+          val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+          val a_oncontextmenu :
+            Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
+          val a_ondblclick :
+            Xml.mouse_event_handler -> [> `OnDblClick ] attrib
+          val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
+          val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
+          val a_ondragenter :
+            Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
+          val a_ondragleave :
+            Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
+          val a_ondragover :
+            Xml.mouse_event_handler -> [> `OnDragOver ] attrib
+          val a_ondragstart :
+            Xml.mouse_event_handler -> [> `OnDragStart ] attrib
+          val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
+          val a_onmousedown :
+            Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+          val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+          val a_onmouseover :
+            Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+          val a_onmousemove :
+            Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+          val a_onmouseout :
+            Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+          val a_ontouchstart :
+            Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+          val a_ontouchend :
+            Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+          val a_ontouchmove :
+            Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+          val a_ontouchcancel :
+            Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+          val a_onkeypress :
+            Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
+          val a_onkeydown :
+            Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
+          val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+          val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
+          val a_allowpaymentrequest :
+            unit -> [> `Allowpaymentrequest ] attrib
+          val a_autocomplete :
+            Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
+          val a_async : unit -> [> `Async ] attrib
+          val a_autofocus : unit -> [> `Autofocus ] attrib
+          val a_autoplay : unit -> [> `Autoplay ] attrib
+          val a_muted : unit -> [> `Muted ] attrib
+          val a_crossorigin :
+            [< `Anonymous | `Use_credentials ] wrap ->
+            [> `Crossorigin ] attrib
+          val a_integrity : string wrap -> [> `Integrity ] attrib
+          val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
+          val a_challenge : Html_types.text wrap -> [> `Challenge ] attrib
+          val a_contenteditable : bool wrap -> [> `Contenteditable ] attrib
+          val a_contextmenu :
+            Html_types.idref wrap -> [> `Contextmenu ] attrib
+          val a_controls : unit -> [> `Controls ] attrib
+          val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
+          val a_draggable : bool wrap -> [> `Draggable ] attrib
+          val a_form : Html_types.idref wrap -> [> `Form ] attrib
+          val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
+          val a_formenctype :
+            Html_types.contenttype wrap -> [> `Formenctype ] attrib
+          val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
+          val a_formtarget : Html_types.text wrap -> [> `Formtarget ] attrib
+          val a_hidden : unit -> [> `Hidden ] attrib
+          val a_high : Html_types.float_number wrap -> [> `High ] attrib
+          val a_icon : Xml.uri wrap -> [> `Icon ] attrib
+          val a_ismap : unit -> [> `Ismap ] attrib
+          val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
+          val a_list : Html_types.idref wrap -> [> `List ] attrib
+          val a_loop : unit -> [> `Loop ] attrib
+          val a_low : Html_types.float_number wrap -> [> `High ] attrib
+          val a_max : Html_types.float_number wrap -> [> `Max ] attrib
+          val a_input_max :
+            Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
+          val a_min : Html_types.float_number wrap -> [> `Min ] attrib
+          val a_input_min :
+            Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
+          val a_inputmode :
+            [< `Decimal
+             | `Email
+             | `None
+             | `Numeric
+             | `Search
+             | `Tel
+             | `Text
+             | `Url ]
+            wrap -> [> `Inputmode ] attrib
+          val a_novalidate : unit -> [> `Novalidate ] attrib
+          val a_open : unit -> [> `Open ] attrib
+          val a_optimum :
+            Html_types.float_number wrap -> [> `Optimum ] attrib
+          val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
+          val a_placeholder :
+            Html_types.text wrap -> [> `Placeholder ] attrib
+          val a_poster : Xml.uri wrap -> [> `Poster ] attrib
+          val a_preload :
+            [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
+          val a_pubdate : unit -> [> `Pubdate ] attrib
+          val a_radiogroup : Html_types.text wrap -> [> `Radiogroup ] attrib
+          val a_referrerpolicy :
+            Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
+          val a_required : unit -> [> `Required ] attrib
+          val a_reversed : unit -> [> `Reversed ] attrib
+          val a_sandbox :
+            [< Html_types.sandbox_token ] list wrap -> [> `Sandbox ] attrib
+          val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
+          val a_scoped : unit -> [> `Scoped ] attrib
+          val a_seamless : unit -> [> `Seamless ] attrib
+          val a_sizes :
+            (Html_types.number * Html_types.number) list option wrap ->
+            [> `Sizes ] attrib
+          val a_span : Html_types.number wrap -> [> `Span ] attrib
+          val a_srclang : Html_types.nmtoken wrap -> [> `XML_lang ] attrib
+          type image_candidate =
+              [ `Url of uri
+              | `Url_pixel of uri * Html_types.float_number
+              | `Url_width of uri * Html_types.number ]
+          val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
+          val a_img_sizes :
+            Html_types.text list wrap -> [> `Img_sizes ] attrib
+          val a_start : Html_types.number wrap -> [> `Start ] attrib
+          val a_step :
+            Html_types.float_number option wrap -> [> `Step ] attrib
+          val a_translate : [< `No | `Yes ] wrap -> [> `Translate ] attrib
+          val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
+          val a_version : Html_types.cdata wrap -> [> `Version ] attrib
+          val a_xmlns : [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
+          val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
+          val a_cite : Xml.uri wrap -> [> `Cite ] attrib
+          val a_xml_space :
+            [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
+          val a_accesskey :
+            Html_types.character wrap -> [> `Accesskey ] attrib
+          val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
+          val a_accept_charset :
+            Html_types.charsets wrap -> [> `Accept_charset ] attrib
+          val a_accept : Html_types.contenttypes wrap -> [> `Accept ] attrib
+          val a_href : Xml.uri wrap -> [> `Href ] attrib
+          val a_hreflang :
+            Html_types.languagecode wrap -> [> `Hreflang ] attrib
+          val a_download : string option wrap -> [> `Download ] attrib
+          val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
+          val a_tabindex : Html_types.number wrap -> [> `Tabindex ] attrib
+          val a_mime_type :
+            Html_types.contenttype wrap -> [> `Mime_type ] attrib
+          val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
+          val a_action : Xml.uri wrap -> [> `Action ] attrib
+          val a_checked : unit -> [> `Checked ] attrib
+          val a_cols : Html_types.number wrap -> [> `Cols ] attrib
+          val a_enctype : Html_types.contenttype wrap -> [> `Enctype ] attrib
+          val a_label_for : Html_types.idref wrap -> [> `Label_for ] attrib
+          val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
+          val a_output_for :
+            Html_types.idrefs wrap -> [> `Output_for ] attrib
+          val a_for_list : Html_types.idrefs wrap -> [> `Output_for ] attrib
+          val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
+          val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
+          val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
+          val a_formmethod :
+            [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
+          val a_multiple : unit -> [> `Multiple ] attrib
+          val a_name : Html_types.text wrap -> [> `Name ] attrib
+          val a_rows : Html_types.number wrap -> [> `Rows ] attrib
+          val a_selected : unit -> [> `Selected ] attrib
+          val a_size : Html_types.number wrap -> [> `Size ] attrib
+          val a_src : Xml.uri wrap -> [> `Src ] attrib
+          val a_input_type :
+            [< `Button
+             | `Checkbox
+             | `Color
+             | `Date
+             | `Datetime
+             | `Datetime_local
+             | `Email
+             | `File
+             | `Hidden
+             | `Image
+             | `Month
+             | `Number
+             | `Password
+             | `Radio
+             | `Range
+             | `Reset
+             | `Search
+             | `Submit
+             | `Tel
+             | `Text
+             | `Time
+             | `Url
+             | `Week ]
+            wrap -> [> `Input_Type ] attrib
+          val a_text_value : Html_types.text wrap -> [> `Text_Value ] attrib
+          val a_int_value : Html_types.number wrap -> [> `Int_Value ] attrib
+          val a_value : Html_types.cdata wrap -> [> `Value ] attrib
+          val a_float_value :
+            Html_types.float_number wrap -> [> `Float_Value ] attrib
+          val a_disabled : unit -> [> `Disabled ] attrib
+          val a_readonly : unit -> [> `ReadOnly ] attrib
+          val a_button_type :
+            [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+          val a_script_type :
+            Html_types.script_type wrap -> [> `Script_type ] attrib
+          val a_command_type :
+            [< `Checkbox | `Command | `Radio ] wrap ->
+            [> `Command_Type ] attrib
+          val a_menu_type :
+            [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
+          val a_label : Html_types.text wrap -> [> `Label ] attrib
+          val a_align :
+            [< `Char | `Justify | `Left | `Right ] wrap -> [> `Align ] attrib
+          val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
+          val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
+          val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
+          val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
+          val a_scope :
+            [< `Col | `Colgroup | `Row | `Rowgroup ] wrap ->
+            [> `Scope ] attrib
+          val a_summary : Html_types.text wrap -> [> `Summary ] attrib
+          val a_border : Html_types.pixels wrap -> [> `Border ] attrib
+          val a_rules :
+            [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
+            [> `Rules ] attrib
+          val a_char : Html_types.character wrap -> [> `Char ] attrib
+          val a_alt : Html_types.text wrap -> [> `Alt ] attrib
+          val a_height : Html_types.number wrap -> [> `Height ] attrib
+          val a_width : Html_types.number wrap -> [> `Width ] attrib
+          type shape = [ `Circle | `Default | `Poly | `Rect ]
+          val a_shape : shape wrap -> [> `Shape ] attrib
+          val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
+          val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
+          val a_data : Xml.uri wrap -> [> `Data ] attrib
+          val a_codetype :
+            Html_types.contenttype wrap -> [> `Codetype ] attrib
+          val a_frameborder :
+            [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
+          val a_marginheight :
+            Html_types.pixels wrap -> [> `Marginheight ] attrib
+          val a_marginwidth :
+            Html_types.pixels wrap -> [> `Marginwidth ] attrib
+          val a_scrolling :
+            [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
+          val a_target : Html_types.frametarget wrap -> [> `Target ] attrib
+          val a_content : Html_types.text wrap -> [> `Content ] attrib
+          val a_http_equiv : Html_types.text wrap -> [> `Http_equiv ] attrib
+          val a_defer : unit -> [> `Defer ] attrib
+          val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
+          val a_style : string wrap -> [> `Style_Attr ] attrib
+          val a_property : string wrap -> [> `Property ] attrib
+          val a_role : string list wrap -> [> `Role ] attrib
+          val a_aria : string -> string list wrap -> [> `Aria ] attrib
+          val txt : string wrap -> [> Html_types.txt ] elt
+          val html :
+            ?a:Html_types.html_attrib attrib list ->
+            [< Html_types.head ] elt wrap ->
+            [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
+          val head :
+            ?a:Html_types.head_attrib attrib list ->
+            [< Html_types.title ] elt wrap ->
+            Html_types.head_content_fun elt list_wrap ->
+            [> Html_types.head ] elt
+          val base :
+            ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
+          val title :
+            (Html_types.title_attrib, [< Html_types.title_content_fun ],
+             [> Html_types.title ])
+            unary
+          val body :
+            ([< Html_types.body_attrib ], [< Html_types.body_content_fun ],
+             [> Html_types.body ])
+            star
+          val svg :
+            ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+            [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
+            [> Html_types.svg ] elt
+          val footer :
+            ([< Html_types.footer_attrib ],
+             [< Html_types.footer_content_fun ], [> Html_types.footer ])
+            star
+          val header :
+            ([< Html_types.header_attrib ],
+             [< Html_types.header_content_fun ], [> Html_types.header ])
+            star
+          val section :
+            ([< Html_types.section_attrib ],
+             [< Html_types.section_content_fun ], [> Html_types.section ])
+            star
+          val nav :
+            ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
+             [> Html_types.nav ])
+            star
+          val h1 :
+            ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
+             [> Html_types.h1 ])
+            star
+          val h2 :
+            ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
+             [> Html_types.h2 ])
+            star
+          val h3 :
+            ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
+             [> Html_types.h3 ])
+            star
+          val h4 :
+            ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
+             [> Html_types.h4 ])
+            star
+          val h5 :
+            ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
+             [> Html_types.h5 ])
+            star
+          val h6 :
+            ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
+             [> Html_types.h6 ])
+            star
+          val hgroup :
+            ([< Html_types.hgroup_attrib ],
+             [< Html_types.hgroup_content_fun ], [> Html_types.hgroup ])
+            star
+          val address :
+            ([< Html_types.address_attrib ],
+             [< Html_types.address_content_fun ], [> Html_types.address ])
+            star
+          val article :
+            ([< Html_types.article_attrib ],
+             [< Html_types.article_content_fun ], [> Html_types.article ])
+            star
+          val aside :
+            ([< Html_types.aside_attrib ], [< Html_types.aside_content_fun ],
+             [> Html_types.aside ])
+            star
+          val main :
+            ([< Html_types.main_attrib ], [< Html_types.main_content_fun ],
+             [> Html_types.main ])
+            star
+          val p :
+            ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
+             [> Html_types.p ])
+            star
+          val pre :
+            ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
+             [> Html_types.pre ])
+            star
+          val blockquote :
+            ([< Html_types.blockquote_attrib ],
+             [< Html_types.blockquote_content_fun ],
+             [> Html_types.blockquote ])
+            star
+          val dialog :
+            ([< Html_types.dialog_attrib ],
+             [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+            star
+          val div :
+            ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
+             [> Html_types.div ])
+            star
+          val dl :
+            ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
+             [> Html_types.dl ])
+            star
+          val ol :
+            ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
+             [> Html_types.ol ])
+            star
+          val ul :
+            ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
+             [> Html_types.ul ])
+            star
+          val dd :
+            ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
+             [> Html_types.dd ])
+            star
+          val dt :
+            ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
+             [> Html_types.dt ])
+            star
+          val li :
+            ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
+             [> Html_types.li ])
+            star
+          val figcaption :
+            ([< Html_types.figcaption_attrib ],
+             [< Html_types.figcaption_content_fun ],
+             [> Html_types.figcaption ])
+            star
+          val figure :
+            ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
+                        | `Top of [< Html_types.figcaption ] elt wrap ] ->
+            ([< Html_types.figure_attrib ],
+             [< Html_types.figure_content_fun ], [> Html_types.figure ])
+            star
+          val hr : ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
+          val b :
+            ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
+             [> Html_types.b ])
+            star
+          val i :
+            ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
+             [> Html_types.i ])
+            star
+          val u :
+            ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
+             [> Html_types.u ])
+            star
+          val small :
+            ([< Html_types.small_attrib ], [< Html_types.small_content_fun ],
+             [> Html_types.small ])
+            star
+          val sub :
+            ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
+             [> Html_types.sub ])
+            star
+          val sup :
+            ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
+             [> Html_types.sup ])
+            star
+          val mark :
+            ([< Html_types.mark_attrib ], [< Html_types.mark_content_fun ],
+             [> Html_types.mark ])
+            star
+          val wbr : ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
+          val bdo :
+            dir:[< `Ltr | `Rtl ] wrap ->
+            ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
+             [> Html_types.bdo ])
+            star
+          val abbr :
+            ([< Html_types.abbr_attrib ], [< Html_types.abbr_content_fun ],
+             [> Html_types.abbr ])
+            star
+          val br : ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
+          val cite :
+            ([< Html_types.cite_attrib ], [< Html_types.cite_content_fun ],
+             [> Html_types.cite ])
+            star
+          val code :
+            ([< Html_types.code_attrib ], [< Html_types.code_content_fun ],
+             [> Html_types.code ])
+            star
+          val dfn :
+            ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
+             [> Html_types.dfn ])
+            star
+          val em :
+            ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
+             [> Html_types.em ])
+            star
+          val kbd :
+            ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
+             [> Html_types.kbd ])
+            star
+          val q :
+            ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
+             [> Html_types.q ])
+            star
+          val samp :
+            ([< Html_types.samp_attrib ], [< Html_types.samp_content_fun ],
+             [> Html_types.samp ])
+            star
+          val span :
+            ([< Html_types.span_attrib ], [< Html_types.span_content_fun ],
+             [> Html_types.span ])
+            star
+          val strong :
+            ([< Html_types.strong_attrib ],
+             [< Html_types.strong_content_fun ], [> Html_types.strong ])
+            star
+          val time :
+            ([< Html_types.time_attrib ], [< Html_types.time_content_fun ],
+             [> Html_types.time ])
+            star
+          val var :
+            ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
+             [> Html_types.var ])
+            star
+          val a : ([< Html_types.a_attrib ], 'a, [> 'a Html_types.a ]) star
+          val del :
+            ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
+          val ins :
+            ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
+          val img :
+            src:Xml.uri wrap ->
+            alt:Html_types.text wrap ->
+            ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
+          val picture :
+            img:[< Html_types.img ] elt wrap ->
+            ([< Html_types.picture_attrib ],
+             [< Html_types.picture_content_fun ], [> Html_types.picture ])
+            star
+          val iframe :
+            ([< Html_types.iframe_attrib ],
+             [< Html_types.iframe_content_fun ], [> Html_types.iframe ])
+            star
+          val object_ :
+            ?params:[< Html_types.param ] elt list_wrap ->
+            ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
+          val param :
+            ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
+          val embed :
+            ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
+          val audio :
+            ?src:Xml.uri wrap ->
+            ?srcs:[< Html_types.source ] elt list_wrap ->
+            ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ]) star
+          val video :
+            ?src:Xml.uri wrap ->
+            ?srcs:[< Html_types.source ] elt list_wrap ->
+            ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ]) star
+          val canvas :
+            ([< Html_types.canvas_attrib ], 'a, [> 'a Html_types.canvas ])
+            star
+          val source :
+            ([< Html_types.source_attrib ], [> Html_types.source ]) nullary
+          val area :
+            alt:Html_types.text wrap ->
+            ([< `Accesskey
+              | `Alt
+              | `Aria
+              | `Class
+              | `Contenteditable
+              | `Contextmenu
+              | `Coords
+              | `Dir
+              | `Draggable
+              | `Hidden
+              | `Hreflang
+              | `Id
+              | `Lang
+              | `Media
+              | `Mime_type
+              | `OnAbort
+              | `OnBlur
+              | `OnCanPlay
+              | `OnCanPlayThrough
+              | `OnChange
+              | `OnClick
+              | `OnClose
+              | `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
+              | `Rel
+              | `Role
+              | `Shape
+              | `Spellcheck
+              | `Style_Attr
+              | `Tabindex
+              | `Target
+              | `Title
+              | `Translate
+              | `User_data
+              | `XML_lang
+              | `XMLns ],
+             [> Html_types.area ])
+            nullary
+          val map :
+            ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
+          val caption :
+            ([< Html_types.caption_attrib ],
+             [< Html_types.caption_content_fun ], [> Html_types.caption ])
+            star
+          val table :
+            ?caption:[< Html_types.caption ] elt wrap ->
+            ?columns:[< Html_types.colgroup ] elt list_wrap ->
+            ?thead:[< Html_types.thead ] elt wrap ->
+            ?tfoot:[< Html_types.tfoot ] elt wrap ->
+            ([< Html_types.table_attrib ], [< Html_types.table_content_fun ],
+             [> Html_types.table ])
+            star
+          val tablex :
+            ?caption:[< Html_types.caption ] elt wrap ->
+            ?columns:[< Html_types.colgroup ] elt list_wrap ->
+            ?thead:[< Html_types.thead ] elt wrap ->
+            ?tfoot:[< Html_types.tfoot ] elt wrap ->
+            ([< Html_types.tablex_attrib ],
+             [< Html_types.tablex_content_fun ], [> Html_types.tablex ])
+            star
+          val colgroup :
+            ([< Html_types.colgroup_attrib ],
+             [< Html_types.colgroup_content_fun ], [> Html_types.colgroup ])
+            star
+          val col : ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
+          val thead :
+            ([< Html_types.thead_attrib ], [< Html_types.thead_content_fun ],
+             [> Html_types.thead ])
+            star
+          val tbody :
+            ([< Html_types.tbody_attrib ], [< Html_types.tbody_content_fun ],
+             [> Html_types.tbody ])
+            star
+          val tfoot :
+            ([< Html_types.tfoot_attrib ], [< Html_types.tfoot_content_fun ],
+             [> Html_types.tfoot ])
+            star
+          val td :
+            ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
+             [> Html_types.td ])
+            star
+          val th :
+            ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
+             [> Html_types.th ])
+            star
+          val tr :
+            ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
+             [> Html_types.tr ])
+            star
+          val form :
+            ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
+             [> Html_types.form ])
+            star
+          val fieldset :
+            ?legend:[< Html_types.legend ] elt wrap ->
+            ([< Html_types.fieldset_attrib ],
+             [< Html_types.fieldset_content_fun ], [> Html_types.fieldset ])
+            star
+          val legend :
+            ([< Html_types.legend_attrib ],
+             [< Html_types.legend_content_fun ], [> Html_types.legend ])
+            star
+          val label :
+            ([< Html_types.label_attrib ], [< Html_types.label_content_fun ],
+             [> Html_types.label ])
+            star
+          val input :
+            ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
+          val button :
+            ([< Html_types.button_attrib ],
+             [< Html_types.button_content_fun ], [> Html_types.button ])
+            star
+          val select :
+            ([< Html_types.select_attrib ],
+             [< Html_types.select_content_fun ], [> Html_types.select ])
+            star
+          val datalist :
+            ?children:[< `Options of
+                           [< Html_types.selectoption ] elt list_wrap
+                       | `Phras of [< Html_types.phrasing ] elt list_wrap ] ->
+            ([< Html_types.datalist_attrib ], [> Html_types.datalist ])
+            nullary
+          val optgroup :
+            label:Html_types.text wrap ->
+            ([< Html_types.optgroup_attrib ],
+             [< Html_types.optgroup_content_fun ], [> Html_types.optgroup ])
+            star
+          val option :
+            ([< Html_types.option_attrib ],
+             [< Html_types.option_content_fun ],
+             [> Html_types.selectoption ])
+            unary
+          val textarea :
+            ([< Html_types.textarea_attrib ],
+             [< Html_types.textarea_content_fun ], [> Html_types.textarea ])
+            unary
+          val keygen :
+            ([< Html_types.keygen_attrib ], [> Html_types.keygen ]) nullary
+          val progress :
+            ([< Html_types.progress_attrib ],
+             [< Html_types.progress_content_fun ], [> Html_types.progress ])
+            star
+          val meter :
+            ([< Html_types.meter_attrib ], [< Html_types.meter_content_fun ],
+             [> Html_types.meter ])
+            star
+          val output_elt :
+            ([< Html_types.output_elt_attrib ],
+             [< Html_types.output_elt_content_fun ],
+             [> Html_types.output_elt ])
+            star
+          val entity : string -> [> Html_types.txt ] elt
+          val space : unit -> [> Html_types.txt ] elt
+          val cdata : string -> [> Html_types.txt ] elt
+          val cdata_script : string -> [> Html_types.txt ] elt
+          val cdata_style : string -> [> Html_types.txt ] elt
+          val details :
+            [< Html_types.summary ] elt wrap ->
+            ([< Html_types.details_attrib ],
+             [< Html_types.details_content_fun ], [> Html_types.details ])
+            star
+          val summary :
+            ([< Html_types.summary_attrib ],
+             [< Html_types.summary_content_fun ], [> Html_types.summary ])
+            star
+          val command :
+            label:Html_types.text wrap ->
+            ([< Html_types.command_attrib ], [> Html_types.command ]) nullary
+          val menu :
+            ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
+                       | `Lis of
+                           [< `Li of [< Html_types.common ] ] elt list_wrap ] ->
+            ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
+          val script :
+            ([< Html_types.script_attrib ],
+             [< Html_types.script_content_fun ], [> Html_types.script ])
+            unary
+          val noscript :
+            ([< Html_types.noscript_attrib ],
+             [< Html_types.noscript_content_fun ], [> Html_types.noscript ])
+            star
+          val template :
+            ([< Html_types.template_attrib ],
+             [< Html_types.template_content_fun ], [> Html_types.template ])
+            star
+          val meta :
+            ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
+          val style :
+            ([< Html_types.style_attrib ], [< Html_types.style_content_fun ],
+             [> Html_types.style ])
+            star
+          val link :
+            rel:Html_types.linktypes wrap ->
+            href:Xml.uri wrap ->
+            ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
+          val rt :
+            ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
+             [> Html_types.rt ])
+            star
+          val rp :
+            ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
+             [> Html_types.rp ])
+            star
+          val ruby :
+            ([< Html_types.ruby_attrib ], [< Html_types.ruby_content_fun ],
+             [> Html_types.ruby ])
+            star
+          val pcdata : string wrap -> [> Html_types.pcdata ] elt
+          val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+          val tot : Xml.elt -> 'a elt
+          val totl : Xml.elt list_wrap -> 'a elt list_wrap
+          val toelt : 'a elt -> Xml.elt
+          val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+          val doc_toelt : doc -> Xml.elt
+          val to_xmlattribs : 'a attrib list -> Xml.attrib list
+          val to_attrib : Xml.attrib -> 'a attrib
+          module Unsafe :
+            sig
+              val data : string wrap -> 'a elt
+              val node :
+                string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+              val coerce_elt : 'a elt -> 'b elt
+              val string_attrib : string -> string wrap -> 'a attrib
+              val float_attrib : string -> float wrap -> 'a attrib
+              val int_attrib : string -> int wrap -> 'a attrib
+              val uri_attrib : string -> uri wrap -> 'a attrib
+              val space_sep_attrib : string -> string list wrap -> 'a attrib
+              val comma_sep_attrib : string -> string list wrap -> 'a attrib
+            end
+        end
       module Raw :
         sig
           type 'a elt = 'a elt
@@ -1893,106 +3849,11 @@
           val a_xml_lang :
             Html_types.languagecode wrap -> [> `XML_lang ] attrib
           val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-          val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-          val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
-          val a_onbeforeprint :
-            Xml.event_handler -> [> `OnBeforePrint ] attrib
-          val a_onbeforeunload :
-            Xml.event_handler -> [> `OnBeforeUnload ] attrib
-          val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-          val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-          val a_oncanplaythrough :
-            Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-          val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-          val a_ondurationchange :
-            Xml.event_handler -> [> `OnDurationChange ] attrib
-          val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-          val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-          val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-          val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-          val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
-          val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
-          val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
-          val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-          val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-          val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
-          val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-          val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-          val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-          val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-          val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-          val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-          val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-          val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-          val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-          val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
-          val a_onreadystatechange :
-            Xml.event_handler -> [> `OnReadyStateChange ] attrib
-          val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-          val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-          val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-          val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-          val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-          val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-          val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-          val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-          val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-          val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-          val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-          val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
-          val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-          val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-          val a_onvolumechange :
-            Xml.event_handler -> [> `OnVolumeChange ] attrib
-          val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-          val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-          val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
-          val a_onloadedmetadata :
-            Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-          val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
-          val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-          val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-          val a_oncontextmenu :
-            Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-          val a_ondblclick :
-            Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-          val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-          val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-          val a_ondragenter :
-            Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-          val a_ondragleave :
-            Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-          val a_ondragover :
-            Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-          val a_ondragstart :
-            Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-          val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-          val a_onmousedown :
-            Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-          val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-          val a_onmouseover :
-            Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-          val a_onmousemove :
-            Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-          val a_onmouseout :
-            Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-          val a_ontouchstart :
-            Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-          val a_ontouchend :
-            Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-          val a_ontouchmove :
-            Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-          val a_ontouchcancel :
-            Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-          val a_onkeypress :
-            Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-          val a_onkeydown :
-            Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-          val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
           val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
           val a_allowpaymentrequest :
             unit -> [> `Allowpaymentrequest ] attrib
-          val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+          val a_autocomplete :
+            Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
           val a_async : unit -> [> `Async ] attrib
           val a_autofocus : unit -> [> `Autofocus ] attrib
           val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -2110,7 +3971,8 @@
           val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
           val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
           val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-          val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+          val a_formmethod :
+            [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
           val a_multiple : unit -> [> `Multiple ] attrib
           val a_name : Html_types.text wrap -> [> `Name ] attrib
           val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -2151,6 +4013,8 @@
           val a_readonly : unit -> [> `ReadOnly ] attrib
           val a_button_type :
             [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+          val a_script_type :
+            Html_types.script_type wrap -> [> `Script_type ] attrib
           val a_command_type :
             [< `Checkbox | `Command | `Radio ] wrap ->
             [> `Command_Type ] attrib
@@ -2220,8 +4084,8 @@
              [> Html_types.body ])
             star
           val svg :
-            ?a:[< Html_types.svg_attrib ] Svg.D.Raw.attrib list ->
-            [< Html_types.svg_content ] Svg.D.Raw.elt list_wrap ->
+            ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+            [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
             [> Html_types.svg ] elt
           val footer :
             ([< Html_types.footer_attrib ],
@@ -2296,6 +4160,10 @@
              [< Html_types.blockquote_content_fun ],
              [> Html_types.blockquote ])
             star
+          val dialog :
+            ([< Html_types.dialog_attrib ],
+             [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+            star
           val div :
             ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
              [> Html_types.div ])
@@ -2480,6 +4348,7 @@
               | `OnCanPlayThrough
               | `OnChange
               | `OnClick
+              | `OnClose
               | `OnContextMenu
               | `OnDblClick
               | `OnDrag
@@ -2738,6 +4607,84 @@
               val space_sep_attrib : string -> string list wrap -> 'a attrib
               val comma_sep_attrib : string -> string list wrap -> 'a attrib
             end
+          val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+          val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+          val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+          val a_onbeforeunload : string -> [> `OnBeforeUnload ] Raw'.attrib
+          val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+          val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+          val a_oncanplaythrough :
+            string -> [> `OnCanPlayThrough ] Raw'.attrib
+          val a_onchange : string -> [> `OnChange ] Raw'.attrib
+          val a_onclose : string -> [> `OnClose ] Raw'.attrib
+          val a_ondurationchange :
+            string -> [> `OnDurationChange ] Raw'.attrib
+          val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+          val a_onended : string -> [> `OnEnded ] Raw'.attrib
+          val a_onerror : string -> [> `OnError ] Raw'.attrib
+          val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+          val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+          val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+          val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+          val a_oninput : string -> [> `OnInput ] Raw'.attrib
+          val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+          val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+          val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+          val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+          val a_onpause : string -> [> `OnPause ] Raw'.attrib
+          val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+          val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+          val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+          val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+          val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+          val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+          val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+          val a_onreadystatechange :
+            string -> [> `OnReadyStateChange ] Raw'.attrib
+          val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+          val a_onresize : string -> [> `OnResize ] Raw'.attrib
+          val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+          val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+          val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+          val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+          val a_onshow : string -> [> `OnShow ] Raw'.attrib
+          val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+          val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+          val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+          val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+          val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+          val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+          val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+          val a_onvolumechange : string -> [> `OnVolumeChange ] Raw'.attrib
+          val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+          val a_onload : string -> [> `OnLoad ] Raw'.attrib
+          val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+          val a_onloadedmetadata :
+            string -> [> `OnLoadedMetaData ] Raw'.attrib
+          val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+          val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+          val a_onclick : string -> [> `OnClick ] Raw'.attrib
+          val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+          val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+          val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+          val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+          val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+          val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+          val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+          val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+          val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+          val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+          val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+          val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+          val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+          val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+          val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+          val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+          val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+          val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+          val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+          val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+          val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
         end
       type 'a elt = 'a elt
       type doc = Html_types.html elt
@@ -2821,6 +4768,7 @@
       val a_oncanplaythrough :
         Xml.event_handler -> [> `OnCanPlayThrough ] attrib
       val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+      val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
       val a_ondurationchange :
         Xml.event_handler -> [> `OnDurationChange ] attrib
       val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
@@ -2895,7 +4843,8 @@
       val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
       val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
       val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-      val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+      val a_autocomplete :
+        Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
       val a_async : unit -> [> `Async ] attrib
       val a_autofocus : unit -> [> `Autofocus ] attrib
       val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -3003,7 +4952,7 @@
       val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
       val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
       val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-      val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+      val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
       val a_multiple : unit -> [> `Multiple ] attrib
       val a_name : Html_types.text wrap -> [> `Name ] attrib
       val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -3044,6 +4993,8 @@
       val a_readonly : unit -> [> `ReadOnly ] attrib
       val a_button_type :
         [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+      val a_script_type :
+        Html_types.script_type wrap -> [> `Script_type ] attrib
       val a_command_type :
         [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
       val a_menu_type :
@@ -3106,8 +5057,8 @@
          [> Html_types.body ])
         star
       val svg :
-        ?a:[< Html_types.svg_attrib ] Svg.D.Raw.attrib list ->
-        [< Html_types.svg_content ] Svg.D.Raw.elt list_wrap ->
+        ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+        [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
         [> Html_types.svg ] elt
       val footer :
         ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
@@ -3181,6 +5132,10 @@
         ([< Html_types.blockquote_attrib ],
          [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
         star
+      val dialog :
+        ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+         [> Html_types.dialog ])
+        star
       val div :
         ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
          [> Html_types.div ])
@@ -3361,6 +5316,7 @@
           | `OnCanPlayThrough
           | `OnChange
           | `OnClick
+          | `OnClose
           | `OnContextMenu
           | `OnDblClick
           | `OnDrag
@@ -3719,6 +5675,7 @@
           val a_oncanplaythrough :
             Xml.event_handler -> [> `OnCanPlayThrough ] attrib
           val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+          val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
           val a_ondurationchange :
             Xml.event_handler -> [> `OnDurationChange ] attrib
           val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
@@ -3807,7 +5764,8 @@
           val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
           val a_allowpaymentrequest :
             unit -> [> `Allowpaymentrequest ] attrib
-          val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+          val a_autocomplete :
+            Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
           val a_async : unit -> [> `Async ] attrib
           val a_autofocus : unit -> [> `Autofocus ] attrib
           val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -3925,7 +5883,8 @@
           val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
           val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
           val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-          val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+          val a_formmethod :
+            [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
           val a_multiple : unit -> [> `Multiple ] attrib
           val a_name : Html_types.text wrap -> [> `Name ] attrib
           val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -3966,6 +5925,8 @@
           val a_readonly : unit -> [> `ReadOnly ] attrib
           val a_button_type :
             [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+          val a_script_type :
+            Html_types.script_type wrap -> [> `Script_type ] attrib
           val a_command_type :
             [< `Checkbox | `Command | `Radio ] wrap ->
             [> `Command_Type ] attrib
@@ -4111,6 +6072,10 @@
              [< Html_types.blockquote_content_fun ],
              [> Html_types.blockquote ])
             star
+          val dialog :
+            ([< Html_types.dialog_attrib ],
+             [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+            star
           val div :
             ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
              [> Html_types.div ])
@@ -4295,6 +6260,7 @@
               | `OnCanPlayThrough
               | `OnChange
               | `OnClick
+              | `OnClose
               | `OnContextMenu
               | `OnDblClick
               | `OnDrag
@@ -4636,6 +6602,7 @@
       val a_oncanplaythrough :
         Xml.event_handler -> [> `OnCanPlayThrough ] attrib
       val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+      val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
       val a_ondurationchange :
         Xml.event_handler -> [> `OnDurationChange ] attrib
       val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
@@ -4710,7 +6677,8 @@
       val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
       val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
       val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-      val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+      val a_autocomplete :
+        Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
       val a_async : unit -> [> `Async ] attrib
       val a_autofocus : unit -> [> `Autofocus ] attrib
       val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -4818,7 +6786,7 @@
       val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
       val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
       val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-      val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+      val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
       val a_multiple : unit -> [> `Multiple ] attrib
       val a_name : Html_types.text wrap -> [> `Name ] attrib
       val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -4859,6 +6827,8 @@
       val a_readonly : unit -> [> `ReadOnly ] attrib
       val a_button_type :
         [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+      val a_script_type :
+        Html_types.script_type wrap -> [> `Script_type ] attrib
       val a_command_type :
         [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
       val a_menu_type :
@@ -4996,6 +6966,10 @@
         ([< Html_types.blockquote_attrib ],
          [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
         star
+      val dialog :
+        ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+         [> Html_types.dialog ])
+        star
       val div :
         ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
          [> Html_types.div ])
@@ -5176,6 +7150,7 @@
           | `OnCanPlayThrough
           | `OnChange
           | `OnClick
+          | `OnClose
           | `OnContextMenu
           | `OnDblClick
           | `OnDrag
@@ -5538,6 +7513,9 @@
       val of_li :
         Js_of_ocaml.Dom_html.liElement Js_of_ocaml.Js.t ->
         [> Html_types.li ] elt
+      val of_dialog :
+        Js_of_ocaml.Dom_html.dialogElement Js_of_ocaml.Js.t ->
+        [> Html_types.dialog ] elt
       val of_div :
         Js_of_ocaml.Dom_html.divElement Js_of_ocaml.Js.t ->
         [> Html_types.div ] elt
diff --git a/doc/10.x/api/client/type_Eliom_content_core.Svg.D.Raw.wiki b/doc/11.x/api/client/type_Eliom_content_core.Svg.D.Raw.wiki
similarity index 94%
rename from doc/10.x/api/client/type_Eliom_content_core.Svg.D.Raw.wiki
rename to doc/11.x/api/client/type_Eliom_content_core.Svg.D.Raw.wiki
index 2da2dd1419..d44b014540 100644
--- a/doc/10.x/api/client/type_Eliom_content_core.Svg.D.Raw.wiki
+++ b/doc/11.x/api/client/type_Eliom_content_core.Svg.D.Raw.wiki
@@ -154,7 +154,7 @@
     [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
     [ `GradientUnits ] attrib
   val a_gradientTransform :
-    Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+    Svg_types.transforms wrap -> [> `GradientTransform ] attrib
   val a_spreadMethod :
     [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
   val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -285,6 +285,7 @@
   val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
   val a_animation_fill :
     [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+  val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
   val a_calcMode :
     [< `Discrete | `Linear | `Paced | `Spline ] wrap -> [> `CalcMode ] attrib
   val a_animation_values : Svg_types.strings wrap -> [> `Valuesanim ] attrib
@@ -403,29 +404,6 @@
   val a_stroke_dashoffset :
     Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
   val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
-  val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-  val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
-  val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
-  val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
-  val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-  val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
-  val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
-  val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-  val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
-  val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-  val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-  val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-  val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
-  val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-  val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-  val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-  val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-  val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-  val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-  val a_ontouchstart : Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-  val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-  val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-  val a_ontouchcancel : Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
   val txt : string wrap -> [> Svg_types.txt ] elt
   val svg :
     ([< Svg_types.svg_attr ], [< Svg_types.svg_content ], [> Svg_types.svg ])
@@ -667,9 +645,9 @@
     ([< Svg_types.script_attr ], [< Svg_types.script_content ],
      [> Svg_types.script ])
     unary
-  val animation :
-    ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-     [> Svg_types.animation ])
+  val animate :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
     star
   val set :
     ([< Svg_types.set_attr ], [< Svg_types.set_content ], [> Svg_types.set ])
@@ -728,6 +706,10 @@
     ?a:Svg_types.foreignobject_attr attrib list ->
     Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
   val pcdata : string wrap -> [> Svg_types.txt ] elt
+  val animation :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
+    star
   val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
   val tot : Xml.elt -> 'a elt
   val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -749,4 +731,27 @@
       val space_sep_attrib : string -> string list wrap -> 'a attrib
       val comma_sep_attrib : string -> string list wrap -> 'a attrib
     end
+  val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+  val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+  val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+  val a_onend : string -> [> `OnEnd ] Raw'.attrib
+  val a_onerror : string -> [> `OnError ] Raw'.attrib
+  val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+  val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+  val a_onload : string -> [> `OnLoad ] Raw'.attrib
+  val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+  val a_onresize : string -> [> `OnResize ] Raw'.attrib
+  val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+  val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+  val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+  val a_onclick : string -> [> `OnClick ] Raw'.attrib
+  val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+  val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+  val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+  val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+  val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+  val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+  val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+  val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+  val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/client/type_Eliom_content_core.Svg.D.wiki b/doc/11.x/api/client/type_Eliom_content_core.Svg.D.wiki
similarity index 64%
rename from doc/10.x/api/client/type_Eliom_content_core.Svg.D.wiki
rename to doc/11.x/api/client/type_Eliom_content_core.Svg.D.wiki
index 11f7f95969..0a069f3646 100644
--- a/doc/10.x/api/client/type_Eliom_content_core.Svg.D.wiki
+++ b/doc/11.x/api/client/type_Eliom_content_core.Svg.D.wiki
@@ -1,4 +1,795 @@
 <<code language="ocaml" | sig
+  module Raw' :
+    sig
+      type 'a elt = 'a elt
+      type doc = [ `Svg ] elt
+      type 'a attrib = 'a attrib
+      module Xml :
+        sig
+          module W :
+            sig
+              type 'a t = 'a Xml.W.t
+              val return : 'a -> 'a t
+              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+              val fmap : ('a, 'b) ft -> 'a t -> 'b t
+              type 'a tlist = 'a Xml.W.tlist
+              val nil : unit -> 'a tlist
+              val singleton : 'a t -> 'a tlist
+              val cons : 'a t -> 'a tlist -> 'a tlist
+              val append : 'a tlist -> 'a tlist -> 'a tlist
+              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+            end
+          type 'a wrap = 'a W.t
+          type 'a list_wrap = 'a W.tlist
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) W.ft
+          val uri_of_string : (string, uri) W.ft
+          type aname = string
+          type event_handler = Xml.event_handler
+          type mouse_event_handler = Xml.mouse_event_handler
+          type keyboard_event_handler = Xml.keyboard_event_handler
+          type touch_event_handler = Xml.touch_event_handler
+          type attrib = Xml.attrib
+          val float_attrib : aname -> float wrap -> attrib
+          val int_attrib : aname -> int wrap -> attrib
+          val string_attrib : aname -> string wrap -> attrib
+          val space_sep_attrib : aname -> string list wrap -> attrib
+          val comma_sep_attrib : aname -> string list wrap -> attrib
+          val event_handler_attrib : aname -> event_handler -> attrib
+          val mouse_event_handler_attrib :
+            aname -> mouse_event_handler -> attrib
+          val keyboard_event_handler_attrib :
+            aname -> keyboard_event_handler -> attrib
+          val touch_event_handler_attrib :
+            aname -> touch_event_handler -> attrib
+          val uri_attrib : aname -> uri wrap -> attrib
+          val uris_attrib : aname -> uri list wrap -> attrib
+          type elt = Xml.elt
+          type ename = string
+          val empty : unit -> elt
+          val comment : string -> elt
+          val pcdata : string wrap -> elt
+          val encodedpcdata : string wrap -> elt
+          val entity : string -> elt
+          val leaf : ?a:attrib list -> ename -> elt
+          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+          val cdata : string -> elt
+          val cdata_script : string -> elt
+          val cdata_style : string -> elt
+        end
+      type 'a wrap = 'a Xml.W.t
+      type 'a list_wrap = 'a Xml.W.tlist
+      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
+      type ('a, 'b, 'c) star =
+          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+      module Info : Xml_sigs.Info
+      type uri = Xml.uri
+      val string_of_uri : (uri, string) Xml.W.ft
+      val uri_of_string : (string, uri) Xml.W.ft
+      val a_version : string wrap -> [> `Version ] attrib
+      val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+      val a_x : Svg_types.coord wrap -> [> `X ] attrib
+      val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+      val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+      val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
+      val a_preserveAspectRatio :
+        string wrap -> [> `PreserveAspectRatio ] attrib
+      val a_contentScriptType : string wrap -> [> `ContentScriptType ] attrib
+      val a_contentStyleType : string wrap -> [> `ContentStyleType ] attrib
+      val a_zoomAndPan :
+        [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+      val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+      val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+      val a_requiredFeatures :
+        Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+      val a_requiredExtensions :
+        Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+      val a_systemLanguage :
+        Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+      val a_externalRessourcesRequired :
+        bool wrap -> [> `ExternalRessourcesRequired ] attrib
+      val a_id : string wrap -> [> `Id ] attrib
+      val a_user_data : string -> string wrap -> [> `User_data ] attrib
+      val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+      val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+      val a_xml_space :
+        [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+      val a_type : string wrap -> [> `Type ] attrib
+      val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+      val a_xlink_title : string wrap -> [> `Title ] attrib
+      val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+      val a_style : string wrap -> [> `Style ] attrib
+      val a_transform : Svg_types.transforms wrap -> [> `Transform ] attrib
+      val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+      val a_d : string wrap -> [> `D ] attrib
+      val a_pathLength : float wrap -> [> `PathLength ] attrib
+      val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+      val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+      val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+      val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+      val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+      val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+      val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+      val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+      val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+      val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+      val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+      val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+      val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+      val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+      val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+      val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+      val a_lengthAdjust :
+        [< `Spacing | `SpacingAndGlyphs ] wrap -> [> `LengthAdjust ] attrib
+      val a_textLength :
+        Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+      val a_text_anchor :
+        [< `End | `Inherit | `Middle | `Start ] wrap ->
+        [> `Text_Anchor ] attrib
+      val a_text_decoration :
+        [< `Blink | `Inherit | `Line_through | `None | `Overline | `Underline
+        ] wrap -> [> `Text_Decoration ] attrib
+      val a_text_rendering :
+        [< `Auto
+         | `GeometricPrecision
+         | `Inherit
+         | `OptimizeLegibility
+         | `OptimizeSpeed ]
+        wrap -> [> `Text_Rendering ] attrib
+      val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+      val a_startOffset :
+        Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+      val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+      val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+      val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+      val a_format : string wrap -> [> `Format ] attrib
+      val a_markerUnits :
+        [< `StrokeWidth | `UserSpaceOnUse ] wrap -> [> `MarkerUnits ] attrib
+      val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+      val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+      val a_markerWidth :
+        Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+      val a_markerHeight :
+        Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+      val a_orient : Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+      val a_local : string wrap -> [> `Local ] attrib
+      val a_rendering_intent :
+        [< `Absolute_colorimetric
+         | `Auto
+         | `Perceptual
+         | `Relative_colorimetric
+         | `Saturation ]
+        wrap -> [> `Rendering_Indent ] attrib
+      val a_gradientUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [ `GradientUnits ] attrib
+      val a_gradientTransform :
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+      val a_spreadMethod :
+        [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
+      val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+      val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+      val a_offset :
+        [< `Number of Svg_types.number | `Percentage of Svg_types.percentage
+        ] wrap -> [> `Offset ] attrib
+      val a_patternUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PatternUnits ] attrib
+      val a_patternContentUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PatternContentUnits ] attrib
+      val a_patternTransform :
+        Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+      val a_clipPathUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `ClipPathUnits ] attrib
+      val a_maskUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `MaskUnits ] attrib
+      val a_maskContentUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `MaskContentUnits ] attrib
+      val a_primitiveUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PrimitiveUnits ] attrib
+      val a_filterRes :
+        Svg_types.number_optional_number wrap -> [> `FilterResUnits ] attrib
+      val a_result : string wrap -> [> `Result ] attrib
+      val a_in :
+        [< `BackgroundAlpha
+         | `BackgroundImage
+         | `FillPaint
+         | `Ref of string
+         | `SourceAlpha
+         | `SourceGraphic
+         | `StrokePaint ]
+        wrap -> [> `In ] attrib
+      val a_in2 :
+        [< `BackgroundAlpha
+         | `BackgroundImage
+         | `FillPaint
+         | `Ref of string
+         | `SourceAlpha
+         | `SourceGraphic
+         | `StrokePaint ]
+        wrap -> [> `In2 ] attrib
+      val a_azimuth : float wrap -> [> `Azimuth ] attrib
+      val a_elevation : float wrap -> [> `Elevation ] attrib
+      val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
+      val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
+      val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
+      val a_specularExponent : float wrap -> [> `SpecularExponent ] attrib
+      val a_specularConstant : float wrap -> [> `SpecularConstant ] attrib
+      val a_limitingConeAngle : float wrap -> [> `LimitingConeAngle ] attrib
+      val a_mode :
+        [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
+        [> `Mode ] attrib
+      val a_feColorMatrix_type :
+        [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ] wrap ->
+        [> `Typefecolor ] attrib
+      val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
+      val a_transfer_type :
+        [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
+        [> `Type_transfert ] attrib
+      val a_tableValues : Svg_types.numbers wrap -> [> `TableValues ] attrib
+      val a_intercept : Svg_types.number wrap -> [> `Intercept ] attrib
+      val a_amplitude : Svg_types.number wrap -> [> `Amplitude ] attrib
+      val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
+      val a_transfer_offset :
+        Svg_types.number wrap -> [> `Offset_transfer ] attrib
+      val a_feComposite_operator :
+        [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
+        [> `OperatorComposite ] attrib
+      val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
+      val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
+      val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
+      val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
+      val a_order :
+        Svg_types.number_optional_number wrap -> [> `Order ] attrib
+      val a_kernelMatrix :
+        Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
+      val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
+      val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
+      val a_kernelUnitLength :
+        Svg_types.number_optional_number wrap ->
+        [> `KernelUnitLength ] attrib
+      val a_targetX : int wrap -> [> `TargetX ] attrib
+      val a_targetY : int wrap -> [> `TargetY ] attrib
+      val a_edgeMode :
+        [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
+      val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
+      val a_surfaceScale : Svg_types.number wrap -> [> `SurfaceScale ] attrib
+      val a_diffuseConstant :
+        Svg_types.number wrap -> [> `DiffuseConstant ] attrib
+      val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
+      val a_xChannelSelector :
+        [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
+      val a_yChannelSelector :
+        [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
+      val a_stdDeviation :
+        Svg_types.number_optional_number wrap -> [> `StdDeviation ] attrib
+      val a_feMorphology_operator :
+        [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
+      val a_radius :
+        Svg_types.number_optional_number wrap -> [> `Radius ] attrib
+      val a_baseFrenquency :
+        Svg_types.number_optional_number wrap -> [> `BaseFrequency ] attrib
+      val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
+      val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
+      val a_stitchTiles :
+        [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
+      val a_feTurbulence_type :
+        [< `FractalNoise | `Turbulence ] wrap -> [> `TypeStitch ] attrib
+      val a_xlink_show : [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
+      val a_xlink_actuate :
+        [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
+        [> `Xlink_actuate ] attrib
+      val a_target : string wrap -> [> `Xlink_target ] attrib
+      val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
+      val a_attributeName : string wrap -> [> `AttributeName ] attrib
+      val a_attributeType :
+        [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
+      val a_begin : string wrap -> [> `Begin ] attrib
+      val a_dur : string wrap -> [> `Dur ] attrib
+      val a_min : string wrap -> [> `Min ] attrib
+      val a_max : string wrap -> [> `Max ] attrib
+      val a_restart :
+        [< `Always | `Never | `WhenNotActive ] wrap -> [> `Restart ] attrib
+      val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
+      val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
+      val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
+      val a_animation_fill :
+        [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
+      val a_calcMode :
+        [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
+        [> `CalcMode ] attrib
+      val a_animation_values :
+        Svg_types.strings wrap -> [> `Valuesanim ] attrib
+      val a_keyTimes : Svg_types.strings wrap -> [> `KeyTimes ] attrib
+      val a_keySplines : Svg_types.strings wrap -> [> `KeySplines ] attrib
+      val a_from : string wrap -> [> `From ] attrib
+      val a_to : string wrap -> [> `To ] attrib
+      val a_by : string wrap -> [> `By ] attrib
+      val a_additive : [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
+      val a_accumulate : [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
+      val a_keyPoints :
+        Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
+      val a_path : string wrap -> [> `Path ] attrib
+      val a_animateTransform_type :
+        [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
+        [ `Typeanimatetransform ] attrib
+      val a_horiz_origin_x :
+        Svg_types.number wrap -> [> `HorizOriginX ] attrib
+      val a_horiz_origin_y :
+        Svg_types.number wrap -> [> `HorizOriginY ] attrib
+      val a_horiz_adv_x : Svg_types.number wrap -> [> `HorizAdvX ] attrib
+      val a_vert_origin_x : Svg_types.number wrap -> [> `VertOriginX ] attrib
+      val a_vert_origin_y : Svg_types.number wrap -> [> `VertOriginY ] attrib
+      val a_vert_adv_y : Svg_types.number wrap -> [> `VertAdvY ] attrib
+      val a_unicode : string wrap -> [> `Unicode ] attrib
+      val a_glyph_name : string wrap -> [> `glyphname ] attrib
+      val a_orientation : [< `H | `V ] wrap -> [> `Orientation ] attrib
+      val a_arabic_form :
+        [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
+        [> `Arabicform ] attrib
+      val a_lang : string wrap -> [> `Lang ] attrib
+      val a_u1 : string wrap -> [> `U1 ] attrib
+      val a_u2 : string wrap -> [> `U2 ] attrib
+      val a_g1 : string wrap -> [> `G1 ] attrib
+      val a_g2 : string wrap -> [> `G2 ] attrib
+      val a_k : string wrap -> [> `K ] attrib
+      val a_font_family : string wrap -> [> `Font_Family ] attrib
+      val a_font_style : string wrap -> [> `Font_Style ] attrib
+      val a_font_variant : string wrap -> [> `Font_Variant ] attrib
+      val a_font_weight : string wrap -> [> `Font_Weight ] attrib
+      val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
+      val a_font_size : string wrap -> [> `Font_Size ] attrib
+      val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
+      val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
+      val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
+      val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
+      val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
+      val a_cap_height : Svg_types.number wrap -> [> `CapHeight ] attrib
+      val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
+      val a_accent_height :
+        Svg_types.number wrap -> [> `AccentHeight ] attrib
+      val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
+      val a_widths : string wrap -> [> `Widths ] attrib
+      val a_bbox : string wrap -> [> `Bbox ] attrib
+      val a_ideographic : Svg_types.number wrap -> [> `Ideographic ] attrib
+      val a_alphabetic : Svg_types.number wrap -> [> `Alphabetic ] attrib
+      val a_mathematical : Svg_types.number wrap -> [> `Mathematical ] attrib
+      val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
+      val a_videographic : Svg_types.number wrap -> [> `VIdeographic ] attrib
+      val a_v_alphabetic : Svg_types.number wrap -> [> `VAlphabetic ] attrib
+      val a_v_mathematical :
+        Svg_types.number wrap -> [> `VMathematical ] attrib
+      val a_v_hanging : Svg_types.number wrap -> [> `VHanging ] attrib
+      val a_underline_position :
+        Svg_types.number wrap -> [> `UnderlinePosition ] attrib
+      val a_underline_thickness :
+        Svg_types.number wrap -> [> `UnderlineThickness ] attrib
+      val a_strikethrough_position :
+        Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
+      val a_strikethrough_thickness :
+        Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
+      val a_overline_position :
+        Svg_types.number wrap -> [> `OverlinePosition ] attrib
+      val a_overline_thickness :
+        Svg_types.number wrap -> [> `OverlineThickness ] attrib
+      val a_string : string wrap -> [> `String ] attrib
+      val a_name : string wrap -> [> `Name ] attrib
+      val a_alignment_baseline :
+        [< `After_edge
+         | `Alphabetic
+         | `Auto
+         | `Baseline
+         | `Before_edge
+         | `Central
+         | `Hanging
+         | `Ideographic
+         | `Inherit
+         | `Mathematical
+         | `Middle
+         | `Text_after_edge
+         | `Text_before_edge ]
+        wrap -> [> `Alignment_Baseline ] attrib
+      val a_dominant_baseline :
+        [< `Alphabetic
+         | `Auto
+         | `Central
+         | `Hanging
+         | `Ideographic
+         | `Inherit
+         | `Mathematical
+         | `Middle
+         | `No_change
+         | `Reset_size
+         | `Text_after_edge
+         | `Text_before_edge
+         | `Use_script ]
+        wrap -> [> `Dominant_Baseline ] attrib
+      val a_stop_color : Svg_types.color wrap -> [> `Stop_Color ] attrib
+      val a_stop_opacity : Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+      val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+      val a_stroke_width :
+        Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+      val a_stroke_linecap :
+        [< `Butt | `Round | `Square ] wrap -> [> `Stroke_Linecap ] attrib
+      val a_stroke_linejoin :
+        [< `Bever | `Miter | `Round ] wrap -> [> `Stroke_Linejoin ] attrib
+      val a_stroke_miterlimit : float wrap -> [> `Stroke_Miterlimit ] attrib
+      val a_stroke_dasharray :
+        Svg_types.Unit.length list wrap -> [> `Stroke_Dasharray ] attrib
+      val a_stroke_dashoffset :
+        Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+      val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
+      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+      val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
+      val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
+      val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
+      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+      val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
+      val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
+      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+      val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
+      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+      val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
+      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+      val a_ontouchstart :
+        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+      val a_ontouchcancel :
+        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+      val txt : string wrap -> [> Svg_types.txt ] elt
+      val svg :
+        ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
+         [> Svg_types.svg ])
+        star
+      val g :
+        ([< Svg_types.g_attr ], [< Svg_types.g_content ], [> Svg_types.g ])
+        star
+      val defs :
+        ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
+         [> Svg_types.defs ])
+        star
+      val desc :
+        ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
+         [> Svg_types.desc ])
+        unary
+      val title :
+        ([< Svg_types.title_attr ], [< Svg_types.title_content ],
+         [> Svg_types.title ])
+        unary
+      val symbol :
+        ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
+         [> Svg_types.symbol ])
+        star
+      val use :
+        ([< Svg_types.use_attr ], [< Svg_types.use_content ],
+         [> Svg_types.use ])
+        star
+      val image :
+        ([< Svg_types.image_attr ], [< Svg_types.image_content ],
+         [> Svg_types.image ])
+        star
+      val switch :
+        ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
+         [> Svg_types.switch ])
+        star
+      val style :
+        ([< Svg_types.style_attr ], [< Svg_types.style_content ],
+         [> Svg_types.style ])
+        unary
+      val path :
+        ([< Svg_types.path_attr ], [< Svg_types.path_content ],
+         [> Svg_types.path ])
+        star
+      val rect :
+        ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
+         [> Svg_types.rect ])
+        star
+      val circle :
+        ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
+         [> Svg_types.circle ])
+        star
+      val ellipse :
+        ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
+         [> Svg_types.ellipse ])
+        star
+      val line :
+        ([< Svg_types.line_attr ], [< Svg_types.line_content ],
+         [> Svg_types.line ])
+        star
+      val polyline :
+        ([< Svg_types.polyline_attr ], [< Svg_types.polyline_content ],
+         [> Svg_types.polyline ])
+        star
+      val polygon :
+        ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
+         [> Svg_types.polygon ])
+        star
+      val text :
+        ([< Svg_types.text_attr ], [< Svg_types.text_content ],
+         [> Svg_types.text ])
+        star
+      val tspan :
+        ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
+         [> Svg_types.tspan ])
+        star
+      val tref :
+        ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
+         [> Svg_types.tref ])
+        star
+      val textPath :
+        ([< Svg_types.textpath_attr ], [< Svg_types.textpath_content ],
+         [> Svg_types.textpath ])
+        star
+      val altGlyph :
+        ([< Svg_types.altglyph_attr ], [< Svg_types.altglyph_content ],
+         [> Svg_types.altglyph ])
+        unary
+      type altglyphdef_content =
+          [ `Item of Svg_types.altglyphitem elt list
+          | `Ref of Svg_types.glyphref elt list ]
+      val altGlyphDef :
+        ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
+         [> Svg_types.altglyphdef ])
+        unary
+      val altGlyphItem :
+        ([< Svg_types.altglyphitem_attr ],
+         [< Svg_types.altglyphitem_content ], [> Svg_types.altglyphitem ])
+        star
+      val glyphRef :
+        ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ]) nullary
+      val marker :
+        ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
+         [> Svg_types.marker ])
+        star
+      val color_profile :
+        ([< Svg_types.colorprofile_attr ],
+         [< Svg_types.colorprofile_content ], [> Svg_types.colorprofile ])
+        star
+      val linearGradient :
+        ([< Svg_types.lineargradient_attr ],
+         [< Svg_types.lineargradient_content ],
+         [> Svg_types.lineargradient ])
+        star
+      val radialGradient :
+        ([< Svg_types.radialgradient_attr ],
+         [< Svg_types.radialgradient_content ],
+         [> Svg_types.radialgradient ])
+        star
+      val stop :
+        ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
+         [> Svg_types.stop ])
+        star
+      val pattern :
+        ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
+         [> Svg_types.pattern ])
+        star
+      val clipPath :
+        ([< Svg_types.clippath_attr ], [< Svg_types.clippath_content ],
+         [> Svg_types.clippath ])
+        star
+      val filter :
+        ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
+         [> Svg_types.filter ])
+        star
+      val feDistantLight :
+        ([< Svg_types.fedistantlight_attr ],
+         [< Svg_types.fedistantlight_content ],
+         [> Svg_types.fedistantlight ])
+        star
+      val fePointLight :
+        ([< Svg_types.fepointlight_attr ],
+         [< Svg_types.fepointlight_content ], [> Svg_types.fepointlight ])
+        star
+      val feSpotLight :
+        ([< Svg_types.fespotlight_attr ], [< Svg_types.fespotlight_content ],
+         [> Svg_types.fespotlight ])
+        star
+      val feBlend :
+        ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
+         [> Svg_types.feblend ])
+        star
+      val feColorMatrix :
+        ([< Svg_types.fecolormatrix_attr ],
+         [< Svg_types.fecolormatrix_content ], [> Svg_types.fecolormatrix ])
+        star
+      val feComponentTransfer :
+        ([< Svg_types.fecomponenttransfer_attr ],
+         [< Svg_types.fecomponenttransfer_content ],
+         [> Svg_types.fecomponenttransfer ])
+        star
+      val feFuncA :
+        ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
+         [> Svg_types.fefunca ])
+        star
+      val feFuncG :
+        ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
+         [> Svg_types.fefuncg ])
+        star
+      val feFuncB :
+        ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
+         [> Svg_types.fefuncb ])
+        star
+      val feFuncR :
+        ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
+         [> Svg_types.fefuncr ])
+        star
+      val feComposite :
+        ([< Svg_types.fecomposite_attr ], [< Svg_types.fecomposite_content ],
+         [> Svg_types.fecomposite ])
+        star
+      val feConvolveMatrix :
+        ([< Svg_types.feconvolvematrix_attr ],
+         [< Svg_types.feconvolvematrix_content ],
+         [> Svg_types.feconvolvematrix ])
+        star
+      val feDiffuseLighting :
+        ([< Svg_types.fediffuselighting_attr ],
+         [< Svg_types.fediffuselighting_content ],
+         [> Svg_types.fediffuselighting ])
+        star
+      val feDisplacementMap :
+        ([< Svg_types.fedisplacementmap_attr ],
+         [< Svg_types.fedisplacementmap_content ],
+         [> Svg_types.fedisplacementmap ])
+        star
+      val feFlood :
+        ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
+         [> Svg_types.feflood ])
+        star
+      val feGaussianBlur :
+        ([< Svg_types.fegaussianblur_attr ],
+         [< Svg_types.fegaussianblur_content ],
+         [> Svg_types.fegaussianblur ])
+        star
+      val feImage :
+        ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
+         [> Svg_types.feimage ])
+        star
+      val feMerge :
+        ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
+         [> Svg_types.femerge ])
+        star
+      val feMorphology :
+        ([< Svg_types.femorphology_attr ],
+         [< Svg_types.femorphology_content ], [> Svg_types.femorphology ])
+        star
+      val feOffset :
+        ([< Svg_types.feoffset_attr ], [< Svg_types.feoffset_content ],
+         [> Svg_types.feoffset ])
+        star
+      val feSpecularLighting :
+        ([< Svg_types.fespecularlighting_attr ],
+         [< Svg_types.fespecularlighting_content ],
+         [> Svg_types.fespecularlighting ])
+        star
+      val feTile :
+        ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
+         [> Svg_types.fetile ])
+        star
+      val feTurbulence :
+        ([< Svg_types.feturbulence_attr ],
+         [< Svg_types.feturbulence_content ], [> Svg_types.feturbulence ])
+        star
+      val cursor :
+        ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
+         [> Svg_types.cursor ])
+        star
+      val a :
+        ([< Svg_types.a_attr ], [< Svg_types.a_content ], [> Svg_types.a ])
+        star
+      val view :
+        ([< Svg_types.view_attr ], [< Svg_types.view_content ],
+         [> Svg_types.view ])
+        star
+      val script :
+        ([< Svg_types.script_attr ], [< Svg_types.script_content ],
+         [> Svg_types.script ])
+        unary
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
+      val set :
+        ([< Svg_types.set_attr ], [< Svg_types.set_content ],
+         [> Svg_types.set ])
+        star
+      val animateMotion :
+        ([< Svg_types.animatemotion_attr ],
+         [< Svg_types.animatemotion_content ], [> Svg_types.animatemotion ])
+        star
+      val mpath :
+        ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
+         [> Svg_types.mpath ])
+        star
+      val animateColor :
+        ([< Svg_types.animatecolor_attr ],
+         [< Svg_types.animatecolor_content ], [> Svg_types.animatecolor ])
+        star
+      val animateTransform :
+        ([< Svg_types.animatetransform_attr ],
+         [< Svg_types.animatetransform_content ],
+         [> Svg_types.animatetransform ])
+        star
+      val font :
+        ([< Svg_types.font_attr ], [< Svg_types.font_content ],
+         [> Svg_types.font ])
+        star
+      val glyph :
+        ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
+         [> Svg_types.glyph ])
+        star
+      val missing_glyph :
+        ([< Svg_types.missingglyph_attr ],
+         [< Svg_types.missingglyph_content ], [> Svg_types.missingglyph ])
+        star
+      val hkern : ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
+      val vkern : ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
+      val font_face :
+        ([< Svg_types.font_face_attr ], [> Svg_types.font_face ]) nullary
+      val font_face_src :
+        ([< Svg_types.font_face_src_attr ],
+         [< Svg_types.font_face_src_content ], [> Svg_types.font_face_src ])
+        star
+      val font_face_uri :
+        ([< Svg_types.font_face_uri_attr ],
+         [< Svg_types.font_face_uri_content ], [> Svg_types.font_face_uri ])
+        star
+      val font_face_format :
+        ([< Svg_types.font_face_format_attr ],
+         [> Svg_types.font_face_format ])
+        nullary
+      val font_face_name :
+        ([< Svg_types.font_face_name_attr ], [> Svg_types.font_face_name ])
+        nullary
+      val metadata :
+        ?a:Svg_types.metadata_attr attrib list ->
+        Xml.elt list_wrap -> [> Svg_types.metadata ] elt
+      val foreignObject :
+        ?a:Svg_types.foreignobject_attr attrib list ->
+        Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+      val pcdata : string wrap -> [> Svg_types.txt ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
+      val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+      val tot : Xml.elt -> 'a elt
+      val totl : Xml.elt list_wrap -> 'a elt list_wrap
+      val toelt : 'a elt -> Xml.elt
+      val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+      val doc_toelt : doc -> Xml.elt
+      val to_xmlattribs : 'a attrib list -> Xml.attrib list
+      val to_attrib : Xml.attrib -> 'a attrib
+      module Unsafe :
+        sig
+          val data : string wrap -> 'a elt
+          val node :
+            string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+          val coerce_elt : 'a elt -> 'b elt
+          val string_attrib : string -> string wrap -> 'a attrib
+          val float_attrib : string -> float wrap -> 'a attrib
+          val int_attrib : string -> int wrap -> 'a attrib
+          val uri_attrib : string -> uri wrap -> 'a attrib
+          val space_sep_attrib : string -> string list wrap -> 'a attrib
+          val comma_sep_attrib : string -> string list wrap -> 'a attrib
+        end
+    end
   module Raw :
     sig
       type 'a elt = 'a elt
@@ -165,7 +956,7 @@
         [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
         [ `GradientUnits ] attrib
       val a_gradientTransform :
-        Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
       val a_spreadMethod :
         [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
       val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -301,6 +1092,7 @@
       val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
       val a_animation_fill :
         [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
       val a_calcMode :
         [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
         [> `CalcMode ] attrib
@@ -425,31 +1217,6 @@
       val a_stroke_dashoffset :
         Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
       val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
-      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-      val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
-      val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
-      val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
-      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-      val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
-      val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
-      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-      val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
-      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-      val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
-      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-      val a_ontouchstart :
-        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-      val a_ontouchcancel :
-        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
       val txt : string wrap -> [> Svg_types.txt ] elt
       val svg :
         ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
@@ -699,9 +1466,9 @@
         ([< Svg_types.script_attr ], [< Svg_types.script_content ],
          [> Svg_types.script ])
         unary
-      val animation :
-        ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-         [> Svg_types.animation ])
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
         star
       val set :
         ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -762,6 +1529,10 @@
         ?a:Svg_types.foreignobject_attr attrib list ->
         Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
       val pcdata : string wrap -> [> Svg_types.txt ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
       val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
       val tot : Xml.elt -> 'a elt
       val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -784,6 +1555,29 @@
           val space_sep_attrib : string -> string list wrap -> 'a attrib
           val comma_sep_attrib : string -> string list wrap -> 'a attrib
         end
+      val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+      val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+      val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+      val a_onend : string -> [> `OnEnd ] Raw'.attrib
+      val a_onerror : string -> [> `OnError ] Raw'.attrib
+      val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+      val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+      val a_onload : string -> [> `OnLoad ] Raw'.attrib
+      val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+      val a_onresize : string -> [> `OnResize ] Raw'.attrib
+      val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+      val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+      val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+      val a_onclick : string -> [> `OnClick ] Raw'.attrib
+      val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+      val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+      val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+      val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+      val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+      val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+      val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+      val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+      val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
     end
   type 'a elt = 'a elt
   type doc = [ `Svg ] elt
@@ -940,7 +1734,7 @@
     [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
     [ `GradientUnits ] attrib
   val a_gradientTransform :
-    Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+    Svg_types.transforms wrap -> [> `GradientTransform ] attrib
   val a_spreadMethod :
     [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
   val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -1071,6 +1865,7 @@
   val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
   val a_animation_fill :
     [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+  val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
   val a_calcMode :
     [< `Discrete | `Linear | `Paced | `Spline ] wrap -> [> `CalcMode ] attrib
   val a_animation_values : Svg_types.strings wrap -> [> `Valuesanim ] attrib
@@ -1453,9 +2248,9 @@
     ([< Svg_types.script_attr ], [< Svg_types.script_content ],
      [> Svg_types.script ])
     unary
-  val animation :
-    ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-     [> Svg_types.animation ])
+  val animate :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
     star
   val set :
     ([< Svg_types.set_attr ], [< Svg_types.set_content ], [> Svg_types.set ])
@@ -1514,6 +2309,10 @@
     ?a:Svg_types.foreignobject_attr attrib list ->
     Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
   val pcdata : string wrap -> [> Svg_types.txt ] elt
+  val animation :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
+    star
   val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
   val tot : Xml.elt -> 'a elt
   val totl : Xml.elt list_wrap -> 'a elt list_wrap
diff --git a/doc/10.x/api/client/type_Eliom_content_core.Svg.F.Raw.wiki b/doc/11.x/api/client/type_Eliom_content_core.Svg.F.Raw.wiki
similarity index 94%
rename from doc/10.x/api/client/type_Eliom_content_core.Svg.F.Raw.wiki
rename to doc/11.x/api/client/type_Eliom_content_core.Svg.F.Raw.wiki
index 2da2dd1419..d44b014540 100644
--- a/doc/10.x/api/client/type_Eliom_content_core.Svg.F.Raw.wiki
+++ b/doc/11.x/api/client/type_Eliom_content_core.Svg.F.Raw.wiki
@@ -154,7 +154,7 @@
     [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
     [ `GradientUnits ] attrib
   val a_gradientTransform :
-    Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+    Svg_types.transforms wrap -> [> `GradientTransform ] attrib
   val a_spreadMethod :
     [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
   val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -285,6 +285,7 @@
   val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
   val a_animation_fill :
     [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+  val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
   val a_calcMode :
     [< `Discrete | `Linear | `Paced | `Spline ] wrap -> [> `CalcMode ] attrib
   val a_animation_values : Svg_types.strings wrap -> [> `Valuesanim ] attrib
@@ -403,29 +404,6 @@
   val a_stroke_dashoffset :
     Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
   val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
-  val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-  val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
-  val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
-  val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
-  val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-  val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
-  val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
-  val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-  val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
-  val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-  val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-  val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-  val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
-  val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-  val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-  val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-  val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-  val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-  val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-  val a_ontouchstart : Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-  val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-  val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-  val a_ontouchcancel : Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
   val txt : string wrap -> [> Svg_types.txt ] elt
   val svg :
     ([< Svg_types.svg_attr ], [< Svg_types.svg_content ], [> Svg_types.svg ])
@@ -667,9 +645,9 @@
     ([< Svg_types.script_attr ], [< Svg_types.script_content ],
      [> Svg_types.script ])
     unary
-  val animation :
-    ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-     [> Svg_types.animation ])
+  val animate :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
     star
   val set :
     ([< Svg_types.set_attr ], [< Svg_types.set_content ], [> Svg_types.set ])
@@ -728,6 +706,10 @@
     ?a:Svg_types.foreignobject_attr attrib list ->
     Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
   val pcdata : string wrap -> [> Svg_types.txt ] elt
+  val animation :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
+    star
   val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
   val tot : Xml.elt -> 'a elt
   val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -749,4 +731,27 @@
       val space_sep_attrib : string -> string list wrap -> 'a attrib
       val comma_sep_attrib : string -> string list wrap -> 'a attrib
     end
+  val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+  val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+  val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+  val a_onend : string -> [> `OnEnd ] Raw'.attrib
+  val a_onerror : string -> [> `OnError ] Raw'.attrib
+  val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+  val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+  val a_onload : string -> [> `OnLoad ] Raw'.attrib
+  val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+  val a_onresize : string -> [> `OnResize ] Raw'.attrib
+  val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+  val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+  val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+  val a_onclick : string -> [> `OnClick ] Raw'.attrib
+  val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+  val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+  val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+  val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+  val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+  val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+  val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+  val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+  val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/client/type_Eliom_content_core.Svg.F.wiki b/doc/11.x/api/client/type_Eliom_content_core.Svg.F.wiki
similarity index 64%
rename from doc/10.x/api/client/type_Eliom_content_core.Svg.F.wiki
rename to doc/11.x/api/client/type_Eliom_content_core.Svg.F.wiki
index 11f7f95969..0a069f3646 100644
--- a/doc/10.x/api/client/type_Eliom_content_core.Svg.F.wiki
+++ b/doc/11.x/api/client/type_Eliom_content_core.Svg.F.wiki
@@ -1,4 +1,795 @@
 <<code language="ocaml" | sig
+  module Raw' :
+    sig
+      type 'a elt = 'a elt
+      type doc = [ `Svg ] elt
+      type 'a attrib = 'a attrib
+      module Xml :
+        sig
+          module W :
+            sig
+              type 'a t = 'a Xml.W.t
+              val return : 'a -> 'a t
+              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+              val fmap : ('a, 'b) ft -> 'a t -> 'b t
+              type 'a tlist = 'a Xml.W.tlist
+              val nil : unit -> 'a tlist
+              val singleton : 'a t -> 'a tlist
+              val cons : 'a t -> 'a tlist -> 'a tlist
+              val append : 'a tlist -> 'a tlist -> 'a tlist
+              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+            end
+          type 'a wrap = 'a W.t
+          type 'a list_wrap = 'a W.tlist
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) W.ft
+          val uri_of_string : (string, uri) W.ft
+          type aname = string
+          type event_handler = Xml.event_handler
+          type mouse_event_handler = Xml.mouse_event_handler
+          type keyboard_event_handler = Xml.keyboard_event_handler
+          type touch_event_handler = Xml.touch_event_handler
+          type attrib = Xml.attrib
+          val float_attrib : aname -> float wrap -> attrib
+          val int_attrib : aname -> int wrap -> attrib
+          val string_attrib : aname -> string wrap -> attrib
+          val space_sep_attrib : aname -> string list wrap -> attrib
+          val comma_sep_attrib : aname -> string list wrap -> attrib
+          val event_handler_attrib : aname -> event_handler -> attrib
+          val mouse_event_handler_attrib :
+            aname -> mouse_event_handler -> attrib
+          val keyboard_event_handler_attrib :
+            aname -> keyboard_event_handler -> attrib
+          val touch_event_handler_attrib :
+            aname -> touch_event_handler -> attrib
+          val uri_attrib : aname -> uri wrap -> attrib
+          val uris_attrib : aname -> uri list wrap -> attrib
+          type elt = Xml.elt
+          type ename = string
+          val empty : unit -> elt
+          val comment : string -> elt
+          val pcdata : string wrap -> elt
+          val encodedpcdata : string wrap -> elt
+          val entity : string -> elt
+          val leaf : ?a:attrib list -> ename -> elt
+          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+          val cdata : string -> elt
+          val cdata_script : string -> elt
+          val cdata_style : string -> elt
+        end
+      type 'a wrap = 'a Xml.W.t
+      type 'a list_wrap = 'a Xml.W.tlist
+      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
+      type ('a, 'b, 'c) star =
+          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+      module Info : Xml_sigs.Info
+      type uri = Xml.uri
+      val string_of_uri : (uri, string) Xml.W.ft
+      val uri_of_string : (string, uri) Xml.W.ft
+      val a_version : string wrap -> [> `Version ] attrib
+      val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+      val a_x : Svg_types.coord wrap -> [> `X ] attrib
+      val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+      val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+      val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
+      val a_preserveAspectRatio :
+        string wrap -> [> `PreserveAspectRatio ] attrib
+      val a_contentScriptType : string wrap -> [> `ContentScriptType ] attrib
+      val a_contentStyleType : string wrap -> [> `ContentStyleType ] attrib
+      val a_zoomAndPan :
+        [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+      val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+      val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+      val a_requiredFeatures :
+        Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+      val a_requiredExtensions :
+        Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+      val a_systemLanguage :
+        Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+      val a_externalRessourcesRequired :
+        bool wrap -> [> `ExternalRessourcesRequired ] attrib
+      val a_id : string wrap -> [> `Id ] attrib
+      val a_user_data : string -> string wrap -> [> `User_data ] attrib
+      val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+      val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+      val a_xml_space :
+        [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+      val a_type : string wrap -> [> `Type ] attrib
+      val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+      val a_xlink_title : string wrap -> [> `Title ] attrib
+      val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+      val a_style : string wrap -> [> `Style ] attrib
+      val a_transform : Svg_types.transforms wrap -> [> `Transform ] attrib
+      val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+      val a_d : string wrap -> [> `D ] attrib
+      val a_pathLength : float wrap -> [> `PathLength ] attrib
+      val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+      val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+      val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+      val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+      val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+      val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+      val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+      val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+      val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+      val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+      val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+      val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+      val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+      val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+      val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+      val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+      val a_lengthAdjust :
+        [< `Spacing | `SpacingAndGlyphs ] wrap -> [> `LengthAdjust ] attrib
+      val a_textLength :
+        Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+      val a_text_anchor :
+        [< `End | `Inherit | `Middle | `Start ] wrap ->
+        [> `Text_Anchor ] attrib
+      val a_text_decoration :
+        [< `Blink | `Inherit | `Line_through | `None | `Overline | `Underline
+        ] wrap -> [> `Text_Decoration ] attrib
+      val a_text_rendering :
+        [< `Auto
+         | `GeometricPrecision
+         | `Inherit
+         | `OptimizeLegibility
+         | `OptimizeSpeed ]
+        wrap -> [> `Text_Rendering ] attrib
+      val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+      val a_startOffset :
+        Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+      val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+      val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+      val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+      val a_format : string wrap -> [> `Format ] attrib
+      val a_markerUnits :
+        [< `StrokeWidth | `UserSpaceOnUse ] wrap -> [> `MarkerUnits ] attrib
+      val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+      val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+      val a_markerWidth :
+        Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+      val a_markerHeight :
+        Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+      val a_orient : Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+      val a_local : string wrap -> [> `Local ] attrib
+      val a_rendering_intent :
+        [< `Absolute_colorimetric
+         | `Auto
+         | `Perceptual
+         | `Relative_colorimetric
+         | `Saturation ]
+        wrap -> [> `Rendering_Indent ] attrib
+      val a_gradientUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [ `GradientUnits ] attrib
+      val a_gradientTransform :
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+      val a_spreadMethod :
+        [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
+      val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+      val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+      val a_offset :
+        [< `Number of Svg_types.number | `Percentage of Svg_types.percentage
+        ] wrap -> [> `Offset ] attrib
+      val a_patternUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PatternUnits ] attrib
+      val a_patternContentUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PatternContentUnits ] attrib
+      val a_patternTransform :
+        Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+      val a_clipPathUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `ClipPathUnits ] attrib
+      val a_maskUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `MaskUnits ] attrib
+      val a_maskContentUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `MaskContentUnits ] attrib
+      val a_primitiveUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PrimitiveUnits ] attrib
+      val a_filterRes :
+        Svg_types.number_optional_number wrap -> [> `FilterResUnits ] attrib
+      val a_result : string wrap -> [> `Result ] attrib
+      val a_in :
+        [< `BackgroundAlpha
+         | `BackgroundImage
+         | `FillPaint
+         | `Ref of string
+         | `SourceAlpha
+         | `SourceGraphic
+         | `StrokePaint ]
+        wrap -> [> `In ] attrib
+      val a_in2 :
+        [< `BackgroundAlpha
+         | `BackgroundImage
+         | `FillPaint
+         | `Ref of string
+         | `SourceAlpha
+         | `SourceGraphic
+         | `StrokePaint ]
+        wrap -> [> `In2 ] attrib
+      val a_azimuth : float wrap -> [> `Azimuth ] attrib
+      val a_elevation : float wrap -> [> `Elevation ] attrib
+      val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
+      val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
+      val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
+      val a_specularExponent : float wrap -> [> `SpecularExponent ] attrib
+      val a_specularConstant : float wrap -> [> `SpecularConstant ] attrib
+      val a_limitingConeAngle : float wrap -> [> `LimitingConeAngle ] attrib
+      val a_mode :
+        [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
+        [> `Mode ] attrib
+      val a_feColorMatrix_type :
+        [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ] wrap ->
+        [> `Typefecolor ] attrib
+      val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
+      val a_transfer_type :
+        [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
+        [> `Type_transfert ] attrib
+      val a_tableValues : Svg_types.numbers wrap -> [> `TableValues ] attrib
+      val a_intercept : Svg_types.number wrap -> [> `Intercept ] attrib
+      val a_amplitude : Svg_types.number wrap -> [> `Amplitude ] attrib
+      val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
+      val a_transfer_offset :
+        Svg_types.number wrap -> [> `Offset_transfer ] attrib
+      val a_feComposite_operator :
+        [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
+        [> `OperatorComposite ] attrib
+      val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
+      val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
+      val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
+      val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
+      val a_order :
+        Svg_types.number_optional_number wrap -> [> `Order ] attrib
+      val a_kernelMatrix :
+        Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
+      val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
+      val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
+      val a_kernelUnitLength :
+        Svg_types.number_optional_number wrap ->
+        [> `KernelUnitLength ] attrib
+      val a_targetX : int wrap -> [> `TargetX ] attrib
+      val a_targetY : int wrap -> [> `TargetY ] attrib
+      val a_edgeMode :
+        [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
+      val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
+      val a_surfaceScale : Svg_types.number wrap -> [> `SurfaceScale ] attrib
+      val a_diffuseConstant :
+        Svg_types.number wrap -> [> `DiffuseConstant ] attrib
+      val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
+      val a_xChannelSelector :
+        [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
+      val a_yChannelSelector :
+        [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
+      val a_stdDeviation :
+        Svg_types.number_optional_number wrap -> [> `StdDeviation ] attrib
+      val a_feMorphology_operator :
+        [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
+      val a_radius :
+        Svg_types.number_optional_number wrap -> [> `Radius ] attrib
+      val a_baseFrenquency :
+        Svg_types.number_optional_number wrap -> [> `BaseFrequency ] attrib
+      val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
+      val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
+      val a_stitchTiles :
+        [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
+      val a_feTurbulence_type :
+        [< `FractalNoise | `Turbulence ] wrap -> [> `TypeStitch ] attrib
+      val a_xlink_show : [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
+      val a_xlink_actuate :
+        [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
+        [> `Xlink_actuate ] attrib
+      val a_target : string wrap -> [> `Xlink_target ] attrib
+      val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
+      val a_attributeName : string wrap -> [> `AttributeName ] attrib
+      val a_attributeType :
+        [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
+      val a_begin : string wrap -> [> `Begin ] attrib
+      val a_dur : string wrap -> [> `Dur ] attrib
+      val a_min : string wrap -> [> `Min ] attrib
+      val a_max : string wrap -> [> `Max ] attrib
+      val a_restart :
+        [< `Always | `Never | `WhenNotActive ] wrap -> [> `Restart ] attrib
+      val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
+      val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
+      val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
+      val a_animation_fill :
+        [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
+      val a_calcMode :
+        [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
+        [> `CalcMode ] attrib
+      val a_animation_values :
+        Svg_types.strings wrap -> [> `Valuesanim ] attrib
+      val a_keyTimes : Svg_types.strings wrap -> [> `KeyTimes ] attrib
+      val a_keySplines : Svg_types.strings wrap -> [> `KeySplines ] attrib
+      val a_from : string wrap -> [> `From ] attrib
+      val a_to : string wrap -> [> `To ] attrib
+      val a_by : string wrap -> [> `By ] attrib
+      val a_additive : [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
+      val a_accumulate : [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
+      val a_keyPoints :
+        Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
+      val a_path : string wrap -> [> `Path ] attrib
+      val a_animateTransform_type :
+        [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
+        [ `Typeanimatetransform ] attrib
+      val a_horiz_origin_x :
+        Svg_types.number wrap -> [> `HorizOriginX ] attrib
+      val a_horiz_origin_y :
+        Svg_types.number wrap -> [> `HorizOriginY ] attrib
+      val a_horiz_adv_x : Svg_types.number wrap -> [> `HorizAdvX ] attrib
+      val a_vert_origin_x : Svg_types.number wrap -> [> `VertOriginX ] attrib
+      val a_vert_origin_y : Svg_types.number wrap -> [> `VertOriginY ] attrib
+      val a_vert_adv_y : Svg_types.number wrap -> [> `VertAdvY ] attrib
+      val a_unicode : string wrap -> [> `Unicode ] attrib
+      val a_glyph_name : string wrap -> [> `glyphname ] attrib
+      val a_orientation : [< `H | `V ] wrap -> [> `Orientation ] attrib
+      val a_arabic_form :
+        [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
+        [> `Arabicform ] attrib
+      val a_lang : string wrap -> [> `Lang ] attrib
+      val a_u1 : string wrap -> [> `U1 ] attrib
+      val a_u2 : string wrap -> [> `U2 ] attrib
+      val a_g1 : string wrap -> [> `G1 ] attrib
+      val a_g2 : string wrap -> [> `G2 ] attrib
+      val a_k : string wrap -> [> `K ] attrib
+      val a_font_family : string wrap -> [> `Font_Family ] attrib
+      val a_font_style : string wrap -> [> `Font_Style ] attrib
+      val a_font_variant : string wrap -> [> `Font_Variant ] attrib
+      val a_font_weight : string wrap -> [> `Font_Weight ] attrib
+      val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
+      val a_font_size : string wrap -> [> `Font_Size ] attrib
+      val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
+      val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
+      val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
+      val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
+      val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
+      val a_cap_height : Svg_types.number wrap -> [> `CapHeight ] attrib
+      val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
+      val a_accent_height :
+        Svg_types.number wrap -> [> `AccentHeight ] attrib
+      val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
+      val a_widths : string wrap -> [> `Widths ] attrib
+      val a_bbox : string wrap -> [> `Bbox ] attrib
+      val a_ideographic : Svg_types.number wrap -> [> `Ideographic ] attrib
+      val a_alphabetic : Svg_types.number wrap -> [> `Alphabetic ] attrib
+      val a_mathematical : Svg_types.number wrap -> [> `Mathematical ] attrib
+      val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
+      val a_videographic : Svg_types.number wrap -> [> `VIdeographic ] attrib
+      val a_v_alphabetic : Svg_types.number wrap -> [> `VAlphabetic ] attrib
+      val a_v_mathematical :
+        Svg_types.number wrap -> [> `VMathematical ] attrib
+      val a_v_hanging : Svg_types.number wrap -> [> `VHanging ] attrib
+      val a_underline_position :
+        Svg_types.number wrap -> [> `UnderlinePosition ] attrib
+      val a_underline_thickness :
+        Svg_types.number wrap -> [> `UnderlineThickness ] attrib
+      val a_strikethrough_position :
+        Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
+      val a_strikethrough_thickness :
+        Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
+      val a_overline_position :
+        Svg_types.number wrap -> [> `OverlinePosition ] attrib
+      val a_overline_thickness :
+        Svg_types.number wrap -> [> `OverlineThickness ] attrib
+      val a_string : string wrap -> [> `String ] attrib
+      val a_name : string wrap -> [> `Name ] attrib
+      val a_alignment_baseline :
+        [< `After_edge
+         | `Alphabetic
+         | `Auto
+         | `Baseline
+         | `Before_edge
+         | `Central
+         | `Hanging
+         | `Ideographic
+         | `Inherit
+         | `Mathematical
+         | `Middle
+         | `Text_after_edge
+         | `Text_before_edge ]
+        wrap -> [> `Alignment_Baseline ] attrib
+      val a_dominant_baseline :
+        [< `Alphabetic
+         | `Auto
+         | `Central
+         | `Hanging
+         | `Ideographic
+         | `Inherit
+         | `Mathematical
+         | `Middle
+         | `No_change
+         | `Reset_size
+         | `Text_after_edge
+         | `Text_before_edge
+         | `Use_script ]
+        wrap -> [> `Dominant_Baseline ] attrib
+      val a_stop_color : Svg_types.color wrap -> [> `Stop_Color ] attrib
+      val a_stop_opacity : Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+      val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+      val a_stroke_width :
+        Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+      val a_stroke_linecap :
+        [< `Butt | `Round | `Square ] wrap -> [> `Stroke_Linecap ] attrib
+      val a_stroke_linejoin :
+        [< `Bever | `Miter | `Round ] wrap -> [> `Stroke_Linejoin ] attrib
+      val a_stroke_miterlimit : float wrap -> [> `Stroke_Miterlimit ] attrib
+      val a_stroke_dasharray :
+        Svg_types.Unit.length list wrap -> [> `Stroke_Dasharray ] attrib
+      val a_stroke_dashoffset :
+        Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+      val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
+      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+      val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
+      val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
+      val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
+      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+      val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
+      val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
+      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+      val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
+      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+      val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
+      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+      val a_ontouchstart :
+        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+      val a_ontouchcancel :
+        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+      val txt : string wrap -> [> Svg_types.txt ] elt
+      val svg :
+        ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
+         [> Svg_types.svg ])
+        star
+      val g :
+        ([< Svg_types.g_attr ], [< Svg_types.g_content ], [> Svg_types.g ])
+        star
+      val defs :
+        ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
+         [> Svg_types.defs ])
+        star
+      val desc :
+        ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
+         [> Svg_types.desc ])
+        unary
+      val title :
+        ([< Svg_types.title_attr ], [< Svg_types.title_content ],
+         [> Svg_types.title ])
+        unary
+      val symbol :
+        ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
+         [> Svg_types.symbol ])
+        star
+      val use :
+        ([< Svg_types.use_attr ], [< Svg_types.use_content ],
+         [> Svg_types.use ])
+        star
+      val image :
+        ([< Svg_types.image_attr ], [< Svg_types.image_content ],
+         [> Svg_types.image ])
+        star
+      val switch :
+        ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
+         [> Svg_types.switch ])
+        star
+      val style :
+        ([< Svg_types.style_attr ], [< Svg_types.style_content ],
+         [> Svg_types.style ])
+        unary
+      val path :
+        ([< Svg_types.path_attr ], [< Svg_types.path_content ],
+         [> Svg_types.path ])
+        star
+      val rect :
+        ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
+         [> Svg_types.rect ])
+        star
+      val circle :
+        ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
+         [> Svg_types.circle ])
+        star
+      val ellipse :
+        ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
+         [> Svg_types.ellipse ])
+        star
+      val line :
+        ([< Svg_types.line_attr ], [< Svg_types.line_content ],
+         [> Svg_types.line ])
+        star
+      val polyline :
+        ([< Svg_types.polyline_attr ], [< Svg_types.polyline_content ],
+         [> Svg_types.polyline ])
+        star
+      val polygon :
+        ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
+         [> Svg_types.polygon ])
+        star
+      val text :
+        ([< Svg_types.text_attr ], [< Svg_types.text_content ],
+         [> Svg_types.text ])
+        star
+      val tspan :
+        ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
+         [> Svg_types.tspan ])
+        star
+      val tref :
+        ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
+         [> Svg_types.tref ])
+        star
+      val textPath :
+        ([< Svg_types.textpath_attr ], [< Svg_types.textpath_content ],
+         [> Svg_types.textpath ])
+        star
+      val altGlyph :
+        ([< Svg_types.altglyph_attr ], [< Svg_types.altglyph_content ],
+         [> Svg_types.altglyph ])
+        unary
+      type altglyphdef_content =
+          [ `Item of Svg_types.altglyphitem elt list
+          | `Ref of Svg_types.glyphref elt list ]
+      val altGlyphDef :
+        ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
+         [> Svg_types.altglyphdef ])
+        unary
+      val altGlyphItem :
+        ([< Svg_types.altglyphitem_attr ],
+         [< Svg_types.altglyphitem_content ], [> Svg_types.altglyphitem ])
+        star
+      val glyphRef :
+        ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ]) nullary
+      val marker :
+        ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
+         [> Svg_types.marker ])
+        star
+      val color_profile :
+        ([< Svg_types.colorprofile_attr ],
+         [< Svg_types.colorprofile_content ], [> Svg_types.colorprofile ])
+        star
+      val linearGradient :
+        ([< Svg_types.lineargradient_attr ],
+         [< Svg_types.lineargradient_content ],
+         [> Svg_types.lineargradient ])
+        star
+      val radialGradient :
+        ([< Svg_types.radialgradient_attr ],
+         [< Svg_types.radialgradient_content ],
+         [> Svg_types.radialgradient ])
+        star
+      val stop :
+        ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
+         [> Svg_types.stop ])
+        star
+      val pattern :
+        ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
+         [> Svg_types.pattern ])
+        star
+      val clipPath :
+        ([< Svg_types.clippath_attr ], [< Svg_types.clippath_content ],
+         [> Svg_types.clippath ])
+        star
+      val filter :
+        ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
+         [> Svg_types.filter ])
+        star
+      val feDistantLight :
+        ([< Svg_types.fedistantlight_attr ],
+         [< Svg_types.fedistantlight_content ],
+         [> Svg_types.fedistantlight ])
+        star
+      val fePointLight :
+        ([< Svg_types.fepointlight_attr ],
+         [< Svg_types.fepointlight_content ], [> Svg_types.fepointlight ])
+        star
+      val feSpotLight :
+        ([< Svg_types.fespotlight_attr ], [< Svg_types.fespotlight_content ],
+         [> Svg_types.fespotlight ])
+        star
+      val feBlend :
+        ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
+         [> Svg_types.feblend ])
+        star
+      val feColorMatrix :
+        ([< Svg_types.fecolormatrix_attr ],
+         [< Svg_types.fecolormatrix_content ], [> Svg_types.fecolormatrix ])
+        star
+      val feComponentTransfer :
+        ([< Svg_types.fecomponenttransfer_attr ],
+         [< Svg_types.fecomponenttransfer_content ],
+         [> Svg_types.fecomponenttransfer ])
+        star
+      val feFuncA :
+        ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
+         [> Svg_types.fefunca ])
+        star
+      val feFuncG :
+        ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
+         [> Svg_types.fefuncg ])
+        star
+      val feFuncB :
+        ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
+         [> Svg_types.fefuncb ])
+        star
+      val feFuncR :
+        ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
+         [> Svg_types.fefuncr ])
+        star
+      val feComposite :
+        ([< Svg_types.fecomposite_attr ], [< Svg_types.fecomposite_content ],
+         [> Svg_types.fecomposite ])
+        star
+      val feConvolveMatrix :
+        ([< Svg_types.feconvolvematrix_attr ],
+         [< Svg_types.feconvolvematrix_content ],
+         [> Svg_types.feconvolvematrix ])
+        star
+      val feDiffuseLighting :
+        ([< Svg_types.fediffuselighting_attr ],
+         [< Svg_types.fediffuselighting_content ],
+         [> Svg_types.fediffuselighting ])
+        star
+      val feDisplacementMap :
+        ([< Svg_types.fedisplacementmap_attr ],
+         [< Svg_types.fedisplacementmap_content ],
+         [> Svg_types.fedisplacementmap ])
+        star
+      val feFlood :
+        ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
+         [> Svg_types.feflood ])
+        star
+      val feGaussianBlur :
+        ([< Svg_types.fegaussianblur_attr ],
+         [< Svg_types.fegaussianblur_content ],
+         [> Svg_types.fegaussianblur ])
+        star
+      val feImage :
+        ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
+         [> Svg_types.feimage ])
+        star
+      val feMerge :
+        ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
+         [> Svg_types.femerge ])
+        star
+      val feMorphology :
+        ([< Svg_types.femorphology_attr ],
+         [< Svg_types.femorphology_content ], [> Svg_types.femorphology ])
+        star
+      val feOffset :
+        ([< Svg_types.feoffset_attr ], [< Svg_types.feoffset_content ],
+         [> Svg_types.feoffset ])
+        star
+      val feSpecularLighting :
+        ([< Svg_types.fespecularlighting_attr ],
+         [< Svg_types.fespecularlighting_content ],
+         [> Svg_types.fespecularlighting ])
+        star
+      val feTile :
+        ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
+         [> Svg_types.fetile ])
+        star
+      val feTurbulence :
+        ([< Svg_types.feturbulence_attr ],
+         [< Svg_types.feturbulence_content ], [> Svg_types.feturbulence ])
+        star
+      val cursor :
+        ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
+         [> Svg_types.cursor ])
+        star
+      val a :
+        ([< Svg_types.a_attr ], [< Svg_types.a_content ], [> Svg_types.a ])
+        star
+      val view :
+        ([< Svg_types.view_attr ], [< Svg_types.view_content ],
+         [> Svg_types.view ])
+        star
+      val script :
+        ([< Svg_types.script_attr ], [< Svg_types.script_content ],
+         [> Svg_types.script ])
+        unary
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
+      val set :
+        ([< Svg_types.set_attr ], [< Svg_types.set_content ],
+         [> Svg_types.set ])
+        star
+      val animateMotion :
+        ([< Svg_types.animatemotion_attr ],
+         [< Svg_types.animatemotion_content ], [> Svg_types.animatemotion ])
+        star
+      val mpath :
+        ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
+         [> Svg_types.mpath ])
+        star
+      val animateColor :
+        ([< Svg_types.animatecolor_attr ],
+         [< Svg_types.animatecolor_content ], [> Svg_types.animatecolor ])
+        star
+      val animateTransform :
+        ([< Svg_types.animatetransform_attr ],
+         [< Svg_types.animatetransform_content ],
+         [> Svg_types.animatetransform ])
+        star
+      val font :
+        ([< Svg_types.font_attr ], [< Svg_types.font_content ],
+         [> Svg_types.font ])
+        star
+      val glyph :
+        ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
+         [> Svg_types.glyph ])
+        star
+      val missing_glyph :
+        ([< Svg_types.missingglyph_attr ],
+         [< Svg_types.missingglyph_content ], [> Svg_types.missingglyph ])
+        star
+      val hkern : ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
+      val vkern : ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
+      val font_face :
+        ([< Svg_types.font_face_attr ], [> Svg_types.font_face ]) nullary
+      val font_face_src :
+        ([< Svg_types.font_face_src_attr ],
+         [< Svg_types.font_face_src_content ], [> Svg_types.font_face_src ])
+        star
+      val font_face_uri :
+        ([< Svg_types.font_face_uri_attr ],
+         [< Svg_types.font_face_uri_content ], [> Svg_types.font_face_uri ])
+        star
+      val font_face_format :
+        ([< Svg_types.font_face_format_attr ],
+         [> Svg_types.font_face_format ])
+        nullary
+      val font_face_name :
+        ([< Svg_types.font_face_name_attr ], [> Svg_types.font_face_name ])
+        nullary
+      val metadata :
+        ?a:Svg_types.metadata_attr attrib list ->
+        Xml.elt list_wrap -> [> Svg_types.metadata ] elt
+      val foreignObject :
+        ?a:Svg_types.foreignobject_attr attrib list ->
+        Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+      val pcdata : string wrap -> [> Svg_types.txt ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
+      val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+      val tot : Xml.elt -> 'a elt
+      val totl : Xml.elt list_wrap -> 'a elt list_wrap
+      val toelt : 'a elt -> Xml.elt
+      val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+      val doc_toelt : doc -> Xml.elt
+      val to_xmlattribs : 'a attrib list -> Xml.attrib list
+      val to_attrib : Xml.attrib -> 'a attrib
+      module Unsafe :
+        sig
+          val data : string wrap -> 'a elt
+          val node :
+            string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+          val coerce_elt : 'a elt -> 'b elt
+          val string_attrib : string -> string wrap -> 'a attrib
+          val float_attrib : string -> float wrap -> 'a attrib
+          val int_attrib : string -> int wrap -> 'a attrib
+          val uri_attrib : string -> uri wrap -> 'a attrib
+          val space_sep_attrib : string -> string list wrap -> 'a attrib
+          val comma_sep_attrib : string -> string list wrap -> 'a attrib
+        end
+    end
   module Raw :
     sig
       type 'a elt = 'a elt
@@ -165,7 +956,7 @@
         [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
         [ `GradientUnits ] attrib
       val a_gradientTransform :
-        Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
       val a_spreadMethod :
         [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
       val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -301,6 +1092,7 @@
       val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
       val a_animation_fill :
         [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
       val a_calcMode :
         [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
         [> `CalcMode ] attrib
@@ -425,31 +1217,6 @@
       val a_stroke_dashoffset :
         Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
       val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
-      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-      val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
-      val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
-      val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
-      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-      val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
-      val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
-      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-      val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
-      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-      val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
-      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-      val a_ontouchstart :
-        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-      val a_ontouchcancel :
-        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
       val txt : string wrap -> [> Svg_types.txt ] elt
       val svg :
         ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
@@ -699,9 +1466,9 @@
         ([< Svg_types.script_attr ], [< Svg_types.script_content ],
          [> Svg_types.script ])
         unary
-      val animation :
-        ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-         [> Svg_types.animation ])
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
         star
       val set :
         ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -762,6 +1529,10 @@
         ?a:Svg_types.foreignobject_attr attrib list ->
         Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
       val pcdata : string wrap -> [> Svg_types.txt ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
       val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
       val tot : Xml.elt -> 'a elt
       val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -784,6 +1555,29 @@
           val space_sep_attrib : string -> string list wrap -> 'a attrib
           val comma_sep_attrib : string -> string list wrap -> 'a attrib
         end
+      val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+      val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+      val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+      val a_onend : string -> [> `OnEnd ] Raw'.attrib
+      val a_onerror : string -> [> `OnError ] Raw'.attrib
+      val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+      val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+      val a_onload : string -> [> `OnLoad ] Raw'.attrib
+      val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+      val a_onresize : string -> [> `OnResize ] Raw'.attrib
+      val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+      val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+      val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+      val a_onclick : string -> [> `OnClick ] Raw'.attrib
+      val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+      val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+      val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+      val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+      val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+      val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+      val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+      val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+      val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
     end
   type 'a elt = 'a elt
   type doc = [ `Svg ] elt
@@ -940,7 +1734,7 @@
     [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
     [ `GradientUnits ] attrib
   val a_gradientTransform :
-    Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+    Svg_types.transforms wrap -> [> `GradientTransform ] attrib
   val a_spreadMethod :
     [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
   val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -1071,6 +1865,7 @@
   val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
   val a_animation_fill :
     [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+  val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
   val a_calcMode :
     [< `Discrete | `Linear | `Paced | `Spline ] wrap -> [> `CalcMode ] attrib
   val a_animation_values : Svg_types.strings wrap -> [> `Valuesanim ] attrib
@@ -1453,9 +2248,9 @@
     ([< Svg_types.script_attr ], [< Svg_types.script_content ],
      [> Svg_types.script ])
     unary
-  val animation :
-    ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-     [> Svg_types.animation ])
+  val animate :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
     star
   val set :
     ([< Svg_types.set_attr ], [< Svg_types.set_content ], [> Svg_types.set ])
@@ -1514,6 +2309,10 @@
     ?a:Svg_types.foreignobject_attr attrib list ->
     Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
   val pcdata : string wrap -> [> Svg_types.txt ] elt
+  val animation :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
+    star
   val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
   val tot : Xml.elt -> 'a elt
   val totl : Xml.elt list_wrap -> 'a elt list_wrap
diff --git a/doc/10.x/api/client/type_Eliom_content_core.Svg.Id.wiki b/doc/11.x/api/client/type_Eliom_content_core.Svg.Id.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content_core.Svg.Id.wiki
rename to doc/11.x/api/client/type_Eliom_content_core.Svg.Id.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content_core.Svg.Of_dom.wiki b/doc/11.x/api/client/type_Eliom_content_core.Svg.Of_dom.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content_core.Svg.Of_dom.wiki
rename to doc/11.x/api/client/type_Eliom_content_core.Svg.Of_dom.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content_core.Svg.R.Raw.wiki b/doc/11.x/api/client/type_Eliom_content_core.Svg.R.Raw.wiki
similarity index 98%
rename from doc/10.x/api/client/type_Eliom_content_core.Svg.R.Raw.wiki
rename to doc/11.x/api/client/type_Eliom_content_core.Svg.R.Raw.wiki
index e647f8a4dc..ebb65dcd33 100644
--- a/doc/10.x/api/client/type_Eliom_content_core.Svg.R.Raw.wiki
+++ b/doc/11.x/api/client/type_Eliom_content_core.Svg.R.Raw.wiki
@@ -154,7 +154,7 @@
     [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
     [ `GradientUnits ] attrib
   val a_gradientTransform :
-    Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+    Svg_types.transforms wrap -> [> `GradientTransform ] attrib
   val a_spreadMethod :
     [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
   val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -285,6 +285,7 @@
   val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
   val a_animation_fill :
     [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+  val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
   val a_calcMode :
     [< `Discrete | `Linear | `Paced | `Spline ] wrap -> [> `CalcMode ] attrib
   val a_animation_values : Svg_types.strings wrap -> [> `Valuesanim ] attrib
@@ -667,9 +668,9 @@
     ([< Svg_types.script_attr ], [< Svg_types.script_content ],
      [> Svg_types.script ])
     unary
-  val animation :
-    ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-     [> Svg_types.animation ])
+  val animate :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
     star
   val set :
     ([< Svg_types.set_attr ], [< Svg_types.set_content ], [> Svg_types.set ])
@@ -728,6 +729,10 @@
     ?a:Svg_types.foreignobject_attr attrib list ->
     Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
   val pcdata : string wrap -> [> Svg_types.txt ] elt
+  val animation :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
+    star
   val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
   val tot : Xml.elt -> 'a elt
   val totl : Xml.elt list_wrap -> 'a elt list_wrap
diff --git a/doc/10.x/api/client/type_Eliom_content_core.Svg.R.wiki b/doc/11.x/api/client/type_Eliom_content_core.Svg.R.wiki
similarity index 98%
rename from doc/10.x/api/client/type_Eliom_content_core.Svg.R.wiki
rename to doc/11.x/api/client/type_Eliom_content_core.Svg.R.wiki
index ef2cb49c91..15ddc12ae1 100644
--- a/doc/10.x/api/client/type_Eliom_content_core.Svg.R.wiki
+++ b/doc/11.x/api/client/type_Eliom_content_core.Svg.R.wiki
@@ -168,7 +168,7 @@
         [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
         [ `GradientUnits ] attrib
       val a_gradientTransform :
-        Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
       val a_spreadMethod :
         [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
       val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -304,6 +304,7 @@
       val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
       val a_animation_fill :
         [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
       val a_calcMode :
         [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
         [> `CalcMode ] attrib
@@ -702,9 +703,9 @@
         ([< Svg_types.script_attr ], [< Svg_types.script_content ],
          [> Svg_types.script ])
         unary
-      val animation :
-        ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-         [> Svg_types.animation ])
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
         star
       val set :
         ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -765,6 +766,10 @@
         ?a:Svg_types.foreignobject_attr attrib list ->
         Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
       val pcdata : string wrap -> [> Svg_types.txt ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
       val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
       val tot : Xml.elt -> 'a elt
       val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -943,7 +948,7 @@
     [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
     [ `GradientUnits ] attrib
   val a_gradientTransform :
-    Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+    Svg_types.transforms wrap -> [> `GradientTransform ] attrib
   val a_spreadMethod :
     [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
   val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -1074,6 +1079,7 @@
   val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
   val a_animation_fill :
     [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+  val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
   val a_calcMode :
     [< `Discrete | `Linear | `Paced | `Spline ] wrap -> [> `CalcMode ] attrib
   val a_animation_values : Svg_types.strings wrap -> [> `Valuesanim ] attrib
@@ -1456,9 +1462,9 @@
     ([< Svg_types.script_attr ], [< Svg_types.script_content ],
      [> Svg_types.script ])
     unary
-  val animation :
-    ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-     [> Svg_types.animation ])
+  val animate :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
     star
   val set :
     ([< Svg_types.set_attr ], [< Svg_types.set_content ], [> Svg_types.set ])
@@ -1517,6 +1523,10 @@
     ?a:Svg_types.foreignobject_attr attrib list ->
     Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
   val pcdata : string wrap -> [> Svg_types.txt ] elt
+  val animation :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
+    star
   val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
   val tot : Xml.elt -> 'a elt
   val totl : Xml.elt list_wrap -> 'a elt list_wrap
diff --git a/doc/10.x/api/client/type_Eliom_content_core.Svg.wiki b/doc/11.x/api/client/type_Eliom_content_core.Svg.wiki
similarity index 73%
rename from doc/10.x/api/client/type_Eliom_content_core.Svg.wiki
rename to doc/11.x/api/client/type_Eliom_content_core.Svg.wiki
index 0c314e6ca5..c9ed5750bd 100644
--- a/doc/10.x/api/client/type_Eliom_content_core.Svg.wiki
+++ b/doc/11.x/api/client/type_Eliom_content_core.Svg.wiki
@@ -4,9 +4,45 @@
   type 'a list_wrap = 'a list
   type +'a attrib
   type uri = Eliom_content_core.Xml.uri
+  module Ev' :
+    functor
+      (A : sig
+             type 'a attrib
+             module Unsafe :
+               sig
+                 val string_attrib :
+                   string -> string -> 'a Eliom_content_core.Svg.Ev'.attrib
+               end
+           end)
+      ->
+      sig
+        val a_onabort : string -> [> `OnAbort ] A.attrib
+        val a_onactivate : string -> [> `OnActivate ] A.attrib
+        val a_onbegin : string -> [> `OnBegin ] A.attrib
+        val a_onend : string -> [> `OnEnd ] A.attrib
+        val a_onerror : string -> [> `OnError ] A.attrib
+        val a_onfocusin : string -> [> `OnFocusIn ] A.attrib
+        val a_onfocusout : string -> [> `OnFocusOut ] A.attrib
+        val a_onload : string -> [> `OnLoad ] A.attrib
+        val a_onrepeat : string -> [> `OnRepeat ] A.attrib
+        val a_onresize : string -> [> `OnResize ] A.attrib
+        val a_onscroll : string -> [> `OnScroll ] A.attrib
+        val a_onunload : string -> [> `OnUnload ] A.attrib
+        val a_onzoom : string -> [> `OnZoom ] A.attrib
+        val a_onclick : string -> [> `OnClick ] A.attrib
+        val a_onmousedown : string -> [> `OnMouseDown ] A.attrib
+        val a_onmouseup : string -> [> `OnMouseUp ] A.attrib
+        val a_onmouseover : string -> [> `OnMouseOver ] A.attrib
+        val a_onmouseout : string -> [> `OnMouseOut ] A.attrib
+        val a_onmousemove : string -> [> `OnMouseMove ] A.attrib
+        val a_ontouchstart : string -> [> `OnTouchStart ] A.attrib
+        val a_ontouchend : string -> [> `OnTouchEnd ] A.attrib
+        val a_ontouchmove : string -> [> `OnTouchMove ] A.attrib
+        val a_ontouchcancel : string -> [> `OnTouchCancel ] A.attrib
+      end
   module F :
     sig
-      module Raw :
+      module Raw' :
         sig
           type 'a elt = 'a elt
           type doc = [ `Svg ] elt
@@ -184,7 +220,7 @@
             [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
             [ `GradientUnits ] attrib
           val a_gradientTransform :
-            Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
           val a_spreadMethod :
             [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
           val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -331,6 +367,8 @@
           val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
           val a_animation_fill :
             [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
           val a_calcMode :
             [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
             [> `CalcMode ] attrib
@@ -754,9 +792,9 @@
             ([< Svg_types.script_attr ], [< Svg_types.script_content ],
              [> Svg_types.script ])
             unary
-          val animation :
-            ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-             [> Svg_types.animation ])
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
             star
           val set :
             ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -825,6 +863,10 @@
             ?a:Svg_types.foreignobject_attr attrib list ->
             Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
           val pcdata : string wrap -> [> Svg_types.txt ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
           val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
           val tot : Xml.elt -> 'a elt
           val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -848,200 +890,1040 @@
               val comma_sep_attrib : string -> string list wrap -> 'a attrib
             end
         end
-      type 'a elt = 'a elt
-      type doc = [ `Svg ] elt
-      type 'a attrib = 'a attrib
-      module Xml :
+      module Raw :
         sig
-          module W :
+          type 'a elt = 'a elt
+          type doc = [ `Svg ] elt
+          type 'a attrib = 'a attrib
+          module Xml :
             sig
-              type 'a t = 'a Xml.W.t
-              val return : 'a -> 'a t
-              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
-              val fmap : ('a, 'b) ft -> 'a t -> 'b t
-              type 'a tlist = 'a Xml.W.tlist
-              val nil : unit -> 'a tlist
-              val singleton : 'a t -> 'a tlist
-              val cons : 'a t -> 'a tlist -> 'a tlist
-              val append : 'a tlist -> 'a tlist -> 'a tlist
-              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+              module W :
+                sig
+                  type 'a t = 'a Xml.W.t
+                  val return : 'a -> 'a t
+                  type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                  type 'a tlist = 'a Xml.W.tlist
+                  val nil : unit -> 'a tlist
+                  val singleton : 'a t -> 'a tlist
+                  val cons : 'a t -> 'a tlist -> 'a tlist
+                  val append : 'a tlist -> 'a tlist -> 'a tlist
+                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                end
+              type 'a wrap = 'a W.t
+              type 'a list_wrap = 'a W.tlist
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) W.ft
+              val uri_of_string : (string, uri) W.ft
+              type aname = string
+              type event_handler = Xml.event_handler
+              type mouse_event_handler = Xml.mouse_event_handler
+              type keyboard_event_handler = Xml.keyboard_event_handler
+              type touch_event_handler = Xml.touch_event_handler
+              type attrib = Xml.attrib
+              val float_attrib : aname -> float wrap -> attrib
+              val int_attrib : aname -> int wrap -> attrib
+              val string_attrib : aname -> string wrap -> attrib
+              val space_sep_attrib : aname -> string list wrap -> attrib
+              val comma_sep_attrib : aname -> string list wrap -> attrib
+              val event_handler_attrib : aname -> event_handler -> attrib
+              val mouse_event_handler_attrib :
+                aname -> mouse_event_handler -> attrib
+              val keyboard_event_handler_attrib :
+                aname -> keyboard_event_handler -> attrib
+              val touch_event_handler_attrib :
+                aname -> touch_event_handler -> attrib
+              val uri_attrib : aname -> uri wrap -> attrib
+              val uris_attrib : aname -> uri list wrap -> attrib
+              type elt = Xml.elt
+              type ename = string
+              val empty : unit -> elt
+              val comment : string -> elt
+              val pcdata : string wrap -> elt
+              val encodedpcdata : string wrap -> elt
+              val entity : string -> elt
+              val leaf : ?a:attrib list -> ename -> elt
+              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+              val cdata : string -> elt
+              val cdata_script : string -> elt
+              val cdata_style : string -> elt
             end
-          type 'a wrap = 'a W.t
-          type 'a list_wrap = 'a W.tlist
+          type 'a wrap = 'a Xml.W.t
+          type 'a list_wrap = 'a Xml.W.tlist
+          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+          type ('a, 'b, 'c) unary =
+              ?a:'a attrib list -> 'b elt wrap -> 'c elt
+          type ('a, 'b, 'c) star =
+              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          module Info : Xml_sigs.Info
           type uri = Xml.uri
-          val string_of_uri : (uri, string) W.ft
-          val uri_of_string : (string, uri) W.ft
-          type aname = string
-          type event_handler = Xml.event_handler
-          type mouse_event_handler = Xml.mouse_event_handler
-          type keyboard_event_handler = Xml.keyboard_event_handler
-          type touch_event_handler = Xml.touch_event_handler
-          type attrib = Xml.attrib
-          val float_attrib : aname -> float wrap -> attrib
-          val int_attrib : aname -> int wrap -> attrib
-          val string_attrib : aname -> string wrap -> attrib
-          val space_sep_attrib : aname -> string list wrap -> attrib
-          val comma_sep_attrib : aname -> string list wrap -> attrib
-          val event_handler_attrib : aname -> event_handler -> attrib
-          val mouse_event_handler_attrib :
-            aname -> mouse_event_handler -> attrib
-          val keyboard_event_handler_attrib :
-            aname -> keyboard_event_handler -> attrib
-          val touch_event_handler_attrib :
-            aname -> touch_event_handler -> attrib
-          val uri_attrib : aname -> uri wrap -> attrib
-          val uris_attrib : aname -> uri list wrap -> attrib
-          type elt = Xml.elt
-          type ename = string
-          val empty : unit -> elt
-          val comment : string -> elt
-          val pcdata : string wrap -> elt
-          val encodedpcdata : string wrap -> elt
-          val entity : string -> elt
-          val leaf : ?a:attrib list -> ename -> elt
-          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
-          val cdata : string -> elt
-          val cdata_script : string -> elt
-          val cdata_style : string -> elt
-        end
-      type 'a wrap = 'a Xml.W.t
-      type 'a list_wrap = 'a Xml.W.tlist
-      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
-      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
-      type ('a, 'b, 'c) star =
-          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-      module Info : Xml_sigs.Info
-      type uri = Xml.uri
-      val string_of_uri : (uri, string) Xml.W.ft
-      val uri_of_string : (string, uri) Xml.W.ft
-      val a_version : string wrap -> [> `Version ] attrib
-      val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
-      val a_x : Svg_types.coord wrap -> [> `X ] attrib
-      val a_y : Svg_types.coord wrap -> [> `Y ] attrib
-      val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
-      val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
-      val a_preserveAspectRatio :
-        string wrap -> [> `PreserveAspectRatio ] attrib
-      val a_contentScriptType : string wrap -> [> `ContentScriptType ] attrib
-      val a_contentStyleType : string wrap -> [> `ContentStyleType ] attrib
-      val a_zoomAndPan :
-        [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
-      val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
-      val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
-      val a_requiredFeatures :
-        Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
-      val a_requiredExtensions :
-        Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
-      val a_systemLanguage :
-        Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
-      val a_externalRessourcesRequired :
-        bool wrap -> [> `ExternalRessourcesRequired ] attrib
-      val a_id : string wrap -> [> `Id ] attrib
-      val a_user_data : string -> string wrap -> [> `User_data ] attrib
-      val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
-      val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
-      val a_xml_space :
-        [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
-      val a_type : string wrap -> [> `Type ] attrib
-      val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
-      val a_xlink_title : string wrap -> [> `Title ] attrib
-      val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
-      val a_style : string wrap -> [> `Style ] attrib
-      val a_transform : Svg_types.transforms wrap -> [> `Transform ] attrib
-      val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
-      val a_d : string wrap -> [> `D ] attrib
-      val a_pathLength : float wrap -> [> `PathLength ] attrib
-      val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
-      val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
-      val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
-      val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
-      val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
-      val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
-      val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
-      val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
-      val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
-      val a_points : Svg_types.coords wrap -> [> `Points ] attrib
-      val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
-      val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
-      val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
-      val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
-      val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
-      val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
-      val a_lengthAdjust :
-        [< `Spacing | `SpacingAndGlyphs ] wrap -> [> `LengthAdjust ] attrib
-      val a_textLength :
-        Svg_types.Unit.length wrap -> [> `TextLength ] attrib
-      val a_text_anchor :
-        [< `End | `Inherit | `Middle | `Start ] wrap ->
-        [> `Text_Anchor ] attrib
-      val a_text_decoration :
-        [< `Blink | `Inherit | `Line_through | `None | `Overline | `Underline
-        ] wrap -> [> `Text_Decoration ] attrib
-      val a_text_rendering :
-        [< `Auto
-         | `GeometricPrecision
-         | `Inherit
-         | `OptimizeLegibility
-         | `OptimizeSpeed ]
-        wrap -> [> `Text_Rendering ] attrib
-      val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
-      val a_startOffset :
-        Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
-      val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
-      val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
-      val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
-      val a_format : string wrap -> [> `Format ] attrib
-      val a_markerUnits :
-        [< `StrokeWidth | `UserSpaceOnUse ] wrap -> [> `MarkerUnits ] attrib
-      val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
-      val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
-      val a_markerWidth :
-        Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
-      val a_markerHeight :
-        Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
-      val a_orient : Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
-      val a_local : string wrap -> [> `Local ] attrib
-      val a_rendering_intent :
-        [< `Absolute_colorimetric
-         | `Auto
-         | `Perceptual
-         | `Relative_colorimetric
-         | `Saturation ]
-        wrap -> [> `Rendering_Indent ] attrib
-      val a_gradientUnits :
-        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-        [ `GradientUnits ] attrib
-      val a_gradientTransform :
-        Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
-      val a_spreadMethod :
-        [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
-      val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
-      val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
-      val a_offset :
-        [< `Number of Svg_types.number | `Percentage of Svg_types.percentage
-        ] wrap -> [> `Offset ] attrib
-      val a_patternUnits :
-        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-        [> `PatternUnits ] attrib
-      val a_patternContentUnits :
-        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-        [> `PatternContentUnits ] attrib
-      val a_patternTransform :
-        Svg_types.transforms wrap -> [> `PatternTransform ] attrib
-      val a_clipPathUnits :
-        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-        [> `ClipPathUnits ] attrib
-      val a_maskUnits :
-        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-        [> `MaskUnits ] attrib
-      val a_maskContentUnits :
-        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-        [> `MaskContentUnits ] attrib
-      val a_primitiveUnits :
-        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-        [> `PrimitiveUnits ] attrib
-      val a_filterRes :
-        Svg_types.number_optional_number wrap -> [> `FilterResUnits ] attrib
+          val string_of_uri : (uri, string) Xml.W.ft
+          val uri_of_string : (string, uri) Xml.W.ft
+          val a_version : string wrap -> [> `Version ] attrib
+          val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+          val a_x : Svg_types.coord wrap -> [> `X ] attrib
+          val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+          val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+          val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
+          val a_preserveAspectRatio :
+            string wrap -> [> `PreserveAspectRatio ] attrib
+          val a_contentScriptType :
+            string wrap -> [> `ContentScriptType ] attrib
+          val a_contentStyleType :
+            string wrap -> [> `ContentStyleType ] attrib
+          val a_zoomAndPan :
+            [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+          val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+          val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+          val a_requiredFeatures :
+            Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+          val a_requiredExtensions :
+            Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+          val a_systemLanguage :
+            Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+          val a_externalRessourcesRequired :
+            bool wrap -> [> `ExternalRessourcesRequired ] attrib
+          val a_id : string wrap -> [> `Id ] attrib
+          val a_user_data : string -> string wrap -> [> `User_data ] attrib
+          val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+          val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+          val a_xml_space :
+            [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+          val a_type : string wrap -> [> `Type ] attrib
+          val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+          val a_xlink_title : string wrap -> [> `Title ] attrib
+          val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+          val a_style : string wrap -> [> `Style ] attrib
+          val a_transform :
+            Svg_types.transforms wrap -> [> `Transform ] attrib
+          val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+          val a_d : string wrap -> [> `D ] attrib
+          val a_pathLength : float wrap -> [> `PathLength ] attrib
+          val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+          val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+          val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+          val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+          val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+          val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+          val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+          val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+          val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+          val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+          val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+          val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+          val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+          val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+          val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+          val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+          val a_lengthAdjust :
+            [< `Spacing | `SpacingAndGlyphs ] wrap ->
+            [> `LengthAdjust ] attrib
+          val a_textLength :
+            Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+          val a_text_anchor :
+            [< `End | `Inherit | `Middle | `Start ] wrap ->
+            [> `Text_Anchor ] attrib
+          val a_text_decoration :
+            [< `Blink
+             | `Inherit
+             | `Line_through
+             | `None
+             | `Overline
+             | `Underline ]
+            wrap -> [> `Text_Decoration ] attrib
+          val a_text_rendering :
+            [< `Auto
+             | `GeometricPrecision
+             | `Inherit
+             | `OptimizeLegibility
+             | `OptimizeSpeed ]
+            wrap -> [> `Text_Rendering ] attrib
+          val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+          val a_startOffset :
+            Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+          val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+          val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+          val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+          val a_format : string wrap -> [> `Format ] attrib
+          val a_markerUnits :
+            [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
+            [> `MarkerUnits ] attrib
+          val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+          val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+          val a_markerWidth :
+            Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+          val a_markerHeight :
+            Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+          val a_orient :
+            Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+          val a_local : string wrap -> [> `Local ] attrib
+          val a_rendering_intent :
+            [< `Absolute_colorimetric
+             | `Auto
+             | `Perceptual
+             | `Relative_colorimetric
+             | `Saturation ]
+            wrap -> [> `Rendering_Indent ] attrib
+          val a_gradientUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [ `GradientUnits ] attrib
+          val a_gradientTransform :
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+          val a_spreadMethod :
+            [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
+          val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+          val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+          val a_offset :
+            [< `Number of Svg_types.number
+             | `Percentage of Svg_types.percentage ]
+            wrap -> [> `Offset ] attrib
+          val a_patternUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PatternUnits ] attrib
+          val a_patternContentUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PatternContentUnits ] attrib
+          val a_patternTransform :
+            Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+          val a_clipPathUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `ClipPathUnits ] attrib
+          val a_maskUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `MaskUnits ] attrib
+          val a_maskContentUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `MaskContentUnits ] attrib
+          val a_primitiveUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PrimitiveUnits ] attrib
+          val a_filterRes :
+            Svg_types.number_optional_number wrap ->
+            [> `FilterResUnits ] attrib
+          val a_result : string wrap -> [> `Result ] attrib
+          val a_in :
+            [< `BackgroundAlpha
+             | `BackgroundImage
+             | `FillPaint
+             | `Ref of string
+             | `SourceAlpha
+             | `SourceGraphic
+             | `StrokePaint ]
+            wrap -> [> `In ] attrib
+          val a_in2 :
+            [< `BackgroundAlpha
+             | `BackgroundImage
+             | `FillPaint
+             | `Ref of string
+             | `SourceAlpha
+             | `SourceGraphic
+             | `StrokePaint ]
+            wrap -> [> `In2 ] attrib
+          val a_azimuth : float wrap -> [> `Azimuth ] attrib
+          val a_elevation : float wrap -> [> `Elevation ] attrib
+          val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
+          val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
+          val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
+          val a_specularExponent :
+            float wrap -> [> `SpecularExponent ] attrib
+          val a_specularConstant :
+            float wrap -> [> `SpecularConstant ] attrib
+          val a_limitingConeAngle :
+            float wrap -> [> `LimitingConeAngle ] attrib
+          val a_mode :
+            [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
+            [> `Mode ] attrib
+          val a_feColorMatrix_type :
+            [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ] wrap ->
+            [> `Typefecolor ] attrib
+          val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
+          val a_transfer_type :
+            [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
+            [> `Type_transfert ] attrib
+          val a_tableValues :
+            Svg_types.numbers wrap -> [> `TableValues ] attrib
+          val a_intercept : Svg_types.number wrap -> [> `Intercept ] attrib
+          val a_amplitude : Svg_types.number wrap -> [> `Amplitude ] attrib
+          val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
+          val a_transfer_offset :
+            Svg_types.number wrap -> [> `Offset_transfer ] attrib
+          val a_feComposite_operator :
+            [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
+            [> `OperatorComposite ] attrib
+          val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
+          val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
+          val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
+          val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
+          val a_order :
+            Svg_types.number_optional_number wrap -> [> `Order ] attrib
+          val a_kernelMatrix :
+            Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
+          val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
+          val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
+          val a_kernelUnitLength :
+            Svg_types.number_optional_number wrap ->
+            [> `KernelUnitLength ] attrib
+          val a_targetX : int wrap -> [> `TargetX ] attrib
+          val a_targetY : int wrap -> [> `TargetY ] attrib
+          val a_edgeMode :
+            [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
+          val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
+          val a_surfaceScale :
+            Svg_types.number wrap -> [> `SurfaceScale ] attrib
+          val a_diffuseConstant :
+            Svg_types.number wrap -> [> `DiffuseConstant ] attrib
+          val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
+          val a_xChannelSelector :
+            [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
+          val a_yChannelSelector :
+            [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
+          val a_stdDeviation :
+            Svg_types.number_optional_number wrap ->
+            [> `StdDeviation ] attrib
+          val a_feMorphology_operator :
+            [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
+          val a_radius :
+            Svg_types.number_optional_number wrap -> [> `Radius ] attrib
+          val a_baseFrenquency :
+            Svg_types.number_optional_number wrap ->
+            [> `BaseFrequency ] attrib
+          val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
+          val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
+          val a_stitchTiles :
+            [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
+          val a_feTurbulence_type :
+            [< `FractalNoise | `Turbulence ] wrap -> [> `TypeStitch ] attrib
+          val a_xlink_show :
+            [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
+          val a_xlink_actuate :
+            [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
+            [> `Xlink_actuate ] attrib
+          val a_target : string wrap -> [> `Xlink_target ] attrib
+          val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
+          val a_attributeName : string wrap -> [> `AttributeName ] attrib
+          val a_attributeType :
+            [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
+          val a_begin : string wrap -> [> `Begin ] attrib
+          val a_dur : string wrap -> [> `Dur ] attrib
+          val a_min : string wrap -> [> `Min ] attrib
+          val a_max : string wrap -> [> `Max ] attrib
+          val a_restart :
+            [< `Always | `Never | `WhenNotActive ] wrap ->
+            [> `Restart ] attrib
+          val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
+          val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
+          val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
+          val a_animation_fill :
+            [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
+          val a_calcMode :
+            [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
+            [> `CalcMode ] attrib
+          val a_animation_values :
+            Svg_types.strings wrap -> [> `Valuesanim ] attrib
+          val a_keyTimes : Svg_types.strings wrap -> [> `KeyTimes ] attrib
+          val a_keySplines :
+            Svg_types.strings wrap -> [> `KeySplines ] attrib
+          val a_from : string wrap -> [> `From ] attrib
+          val a_to : string wrap -> [> `To ] attrib
+          val a_by : string wrap -> [> `By ] attrib
+          val a_additive : [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
+          val a_accumulate :
+            [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
+          val a_keyPoints :
+            Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
+          val a_path : string wrap -> [> `Path ] attrib
+          val a_animateTransform_type :
+            [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
+            [ `Typeanimatetransform ] attrib
+          val a_horiz_origin_x :
+            Svg_types.number wrap -> [> `HorizOriginX ] attrib
+          val a_horiz_origin_y :
+            Svg_types.number wrap -> [> `HorizOriginY ] attrib
+          val a_horiz_adv_x : Svg_types.number wrap -> [> `HorizAdvX ] attrib
+          val a_vert_origin_x :
+            Svg_types.number wrap -> [> `VertOriginX ] attrib
+          val a_vert_origin_y :
+            Svg_types.number wrap -> [> `VertOriginY ] attrib
+          val a_vert_adv_y : Svg_types.number wrap -> [> `VertAdvY ] attrib
+          val a_unicode : string wrap -> [> `Unicode ] attrib
+          val a_glyph_name : string wrap -> [> `glyphname ] attrib
+          val a_orientation : [< `H | `V ] wrap -> [> `Orientation ] attrib
+          val a_arabic_form :
+            [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
+            [> `Arabicform ] attrib
+          val a_lang : string wrap -> [> `Lang ] attrib
+          val a_u1 : string wrap -> [> `U1 ] attrib
+          val a_u2 : string wrap -> [> `U2 ] attrib
+          val a_g1 : string wrap -> [> `G1 ] attrib
+          val a_g2 : string wrap -> [> `G2 ] attrib
+          val a_k : string wrap -> [> `K ] attrib
+          val a_font_family : string wrap -> [> `Font_Family ] attrib
+          val a_font_style : string wrap -> [> `Font_Style ] attrib
+          val a_font_variant : string wrap -> [> `Font_Variant ] attrib
+          val a_font_weight : string wrap -> [> `Font_Weight ] attrib
+          val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
+          val a_font_size : string wrap -> [> `Font_Size ] attrib
+          val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
+          val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
+          val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
+          val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
+          val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
+          val a_cap_height : Svg_types.number wrap -> [> `CapHeight ] attrib
+          val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
+          val a_accent_height :
+            Svg_types.number wrap -> [> `AccentHeight ] attrib
+          val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
+          val a_widths : string wrap -> [> `Widths ] attrib
+          val a_bbox : string wrap -> [> `Bbox ] attrib
+          val a_ideographic :
+            Svg_types.number wrap -> [> `Ideographic ] attrib
+          val a_alphabetic : Svg_types.number wrap -> [> `Alphabetic ] attrib
+          val a_mathematical :
+            Svg_types.number wrap -> [> `Mathematical ] attrib
+          val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
+          val a_videographic :
+            Svg_types.number wrap -> [> `VIdeographic ] attrib
+          val a_v_alphabetic :
+            Svg_types.number wrap -> [> `VAlphabetic ] attrib
+          val a_v_mathematical :
+            Svg_types.number wrap -> [> `VMathematical ] attrib
+          val a_v_hanging : Svg_types.number wrap -> [> `VHanging ] attrib
+          val a_underline_position :
+            Svg_types.number wrap -> [> `UnderlinePosition ] attrib
+          val a_underline_thickness :
+            Svg_types.number wrap -> [> `UnderlineThickness ] attrib
+          val a_strikethrough_position :
+            Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
+          val a_strikethrough_thickness :
+            Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
+          val a_overline_position :
+            Svg_types.number wrap -> [> `OverlinePosition ] attrib
+          val a_overline_thickness :
+            Svg_types.number wrap -> [> `OverlineThickness ] attrib
+          val a_string : string wrap -> [> `String ] attrib
+          val a_name : string wrap -> [> `Name ] attrib
+          val a_alignment_baseline :
+            [< `After_edge
+             | `Alphabetic
+             | `Auto
+             | `Baseline
+             | `Before_edge
+             | `Central
+             | `Hanging
+             | `Ideographic
+             | `Inherit
+             | `Mathematical
+             | `Middle
+             | `Text_after_edge
+             | `Text_before_edge ]
+            wrap -> [> `Alignment_Baseline ] attrib
+          val a_dominant_baseline :
+            [< `Alphabetic
+             | `Auto
+             | `Central
+             | `Hanging
+             | `Ideographic
+             | `Inherit
+             | `Mathematical
+             | `Middle
+             | `No_change
+             | `Reset_size
+             | `Text_after_edge
+             | `Text_before_edge
+             | `Use_script ]
+            wrap -> [> `Dominant_Baseline ] attrib
+          val a_stop_color : Svg_types.color wrap -> [> `Stop_Color ] attrib
+          val a_stop_opacity :
+            Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+          val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+          val a_stroke_width :
+            Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+          val a_stroke_linecap :
+            [< `Butt | `Round | `Square ] wrap -> [> `Stroke_Linecap ] attrib
+          val a_stroke_linejoin :
+            [< `Bever | `Miter | `Round ] wrap ->
+            [> `Stroke_Linejoin ] attrib
+          val a_stroke_miterlimit :
+            float wrap -> [> `Stroke_Miterlimit ] attrib
+          val a_stroke_dasharray :
+            Svg_types.Unit.length list wrap -> [> `Stroke_Dasharray ] attrib
+          val a_stroke_dashoffset :
+            Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+          val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
+          val txt : string wrap -> [> Svg_types.txt ] elt
+          val svg :
+            ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
+             [> Svg_types.svg ])
+            star
+          val g :
+            ([< Svg_types.g_attr ], [< Svg_types.g_content ],
+             [> Svg_types.g ])
+            star
+          val defs :
+            ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
+             [> Svg_types.defs ])
+            star
+          val desc :
+            ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
+             [> Svg_types.desc ])
+            unary
+          val title :
+            ([< Svg_types.title_attr ], [< Svg_types.title_content ],
+             [> Svg_types.title ])
+            unary
+          val symbol :
+            ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
+             [> Svg_types.symbol ])
+            star
+          val use :
+            ([< Svg_types.use_attr ], [< Svg_types.use_content ],
+             [> Svg_types.use ])
+            star
+          val image :
+            ([< Svg_types.image_attr ], [< Svg_types.image_content ],
+             [> Svg_types.image ])
+            star
+          val switch :
+            ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
+             [> Svg_types.switch ])
+            star
+          val style :
+            ([< Svg_types.style_attr ], [< Svg_types.style_content ],
+             [> Svg_types.style ])
+            unary
+          val path :
+            ([< Svg_types.path_attr ], [< Svg_types.path_content ],
+             [> Svg_types.path ])
+            star
+          val rect :
+            ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
+             [> Svg_types.rect ])
+            star
+          val circle :
+            ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
+             [> Svg_types.circle ])
+            star
+          val ellipse :
+            ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
+             [> Svg_types.ellipse ])
+            star
+          val line :
+            ([< Svg_types.line_attr ], [< Svg_types.line_content ],
+             [> Svg_types.line ])
+            star
+          val polyline :
+            ([< Svg_types.polyline_attr ], [< Svg_types.polyline_content ],
+             [> Svg_types.polyline ])
+            star
+          val polygon :
+            ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
+             [> Svg_types.polygon ])
+            star
+          val text :
+            ([< Svg_types.text_attr ], [< Svg_types.text_content ],
+             [> Svg_types.text ])
+            star
+          val tspan :
+            ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
+             [> Svg_types.tspan ])
+            star
+          val tref :
+            ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
+             [> Svg_types.tref ])
+            star
+          val textPath :
+            ([< Svg_types.textpath_attr ], [< Svg_types.textpath_content ],
+             [> Svg_types.textpath ])
+            star
+          val altGlyph :
+            ([< Svg_types.altglyph_attr ], [< Svg_types.altglyph_content ],
+             [> Svg_types.altglyph ])
+            unary
+          type altglyphdef_content =
+              [ `Item of Svg_types.altglyphitem elt list
+              | `Ref of Svg_types.glyphref elt list ]
+          val altGlyphDef :
+            ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
+             [> Svg_types.altglyphdef ])
+            unary
+          val altGlyphItem :
+            ([< Svg_types.altglyphitem_attr ],
+             [< Svg_types.altglyphitem_content ],
+             [> Svg_types.altglyphitem ])
+            star
+          val glyphRef :
+            ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ]) nullary
+          val marker :
+            ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
+             [> Svg_types.marker ])
+            star
+          val color_profile :
+            ([< Svg_types.colorprofile_attr ],
+             [< Svg_types.colorprofile_content ],
+             [> Svg_types.colorprofile ])
+            star
+          val linearGradient :
+            ([< Svg_types.lineargradient_attr ],
+             [< Svg_types.lineargradient_content ],
+             [> Svg_types.lineargradient ])
+            star
+          val radialGradient :
+            ([< Svg_types.radialgradient_attr ],
+             [< Svg_types.radialgradient_content ],
+             [> Svg_types.radialgradient ])
+            star
+          val stop :
+            ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
+             [> Svg_types.stop ])
+            star
+          val pattern :
+            ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
+             [> Svg_types.pattern ])
+            star
+          val clipPath :
+            ([< Svg_types.clippath_attr ], [< Svg_types.clippath_content ],
+             [> Svg_types.clippath ])
+            star
+          val filter :
+            ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
+             [> Svg_types.filter ])
+            star
+          val feDistantLight :
+            ([< Svg_types.fedistantlight_attr ],
+             [< Svg_types.fedistantlight_content ],
+             [> Svg_types.fedistantlight ])
+            star
+          val fePointLight :
+            ([< Svg_types.fepointlight_attr ],
+             [< Svg_types.fepointlight_content ],
+             [> Svg_types.fepointlight ])
+            star
+          val feSpotLight :
+            ([< Svg_types.fespotlight_attr ],
+             [< Svg_types.fespotlight_content ], [> Svg_types.fespotlight ])
+            star
+          val feBlend :
+            ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
+             [> Svg_types.feblend ])
+            star
+          val feColorMatrix :
+            ([< Svg_types.fecolormatrix_attr ],
+             [< Svg_types.fecolormatrix_content ],
+             [> Svg_types.fecolormatrix ])
+            star
+          val feComponentTransfer :
+            ([< Svg_types.fecomponenttransfer_attr ],
+             [< Svg_types.fecomponenttransfer_content ],
+             [> Svg_types.fecomponenttransfer ])
+            star
+          val feFuncA :
+            ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
+             [> Svg_types.fefunca ])
+            star
+          val feFuncG :
+            ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
+             [> Svg_types.fefuncg ])
+            star
+          val feFuncB :
+            ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
+             [> Svg_types.fefuncb ])
+            star
+          val feFuncR :
+            ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
+             [> Svg_types.fefuncr ])
+            star
+          val feComposite :
+            ([< Svg_types.fecomposite_attr ],
+             [< Svg_types.fecomposite_content ], [> Svg_types.fecomposite ])
+            star
+          val feConvolveMatrix :
+            ([< Svg_types.feconvolvematrix_attr ],
+             [< Svg_types.feconvolvematrix_content ],
+             [> Svg_types.feconvolvematrix ])
+            star
+          val feDiffuseLighting :
+            ([< Svg_types.fediffuselighting_attr ],
+             [< Svg_types.fediffuselighting_content ],
+             [> Svg_types.fediffuselighting ])
+            star
+          val feDisplacementMap :
+            ([< Svg_types.fedisplacementmap_attr ],
+             [< Svg_types.fedisplacementmap_content ],
+             [> Svg_types.fedisplacementmap ])
+            star
+          val feFlood :
+            ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
+             [> Svg_types.feflood ])
+            star
+          val feGaussianBlur :
+            ([< Svg_types.fegaussianblur_attr ],
+             [< Svg_types.fegaussianblur_content ],
+             [> Svg_types.fegaussianblur ])
+            star
+          val feImage :
+            ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
+             [> Svg_types.feimage ])
+            star
+          val feMerge :
+            ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
+             [> Svg_types.femerge ])
+            star
+          val feMorphology :
+            ([< Svg_types.femorphology_attr ],
+             [< Svg_types.femorphology_content ],
+             [> Svg_types.femorphology ])
+            star
+          val feOffset :
+            ([< Svg_types.feoffset_attr ], [< Svg_types.feoffset_content ],
+             [> Svg_types.feoffset ])
+            star
+          val feSpecularLighting :
+            ([< Svg_types.fespecularlighting_attr ],
+             [< Svg_types.fespecularlighting_content ],
+             [> Svg_types.fespecularlighting ])
+            star
+          val feTile :
+            ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
+             [> Svg_types.fetile ])
+            star
+          val feTurbulence :
+            ([< Svg_types.feturbulence_attr ],
+             [< Svg_types.feturbulence_content ],
+             [> Svg_types.feturbulence ])
+            star
+          val cursor :
+            ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
+             [> Svg_types.cursor ])
+            star
+          val a :
+            ([< Svg_types.a_attr ], [< Svg_types.a_content ],
+             [> Svg_types.a ])
+            star
+          val view :
+            ([< Svg_types.view_attr ], [< Svg_types.view_content ],
+             [> Svg_types.view ])
+            star
+          val script :
+            ([< Svg_types.script_attr ], [< Svg_types.script_content ],
+             [> Svg_types.script ])
+            unary
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
+          val set :
+            ([< Svg_types.set_attr ], [< Svg_types.set_content ],
+             [> Svg_types.set ])
+            star
+          val animateMotion :
+            ([< Svg_types.animatemotion_attr ],
+             [< Svg_types.animatemotion_content ],
+             [> Svg_types.animatemotion ])
+            star
+          val mpath :
+            ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
+             [> Svg_types.mpath ])
+            star
+          val animateColor :
+            ([< Svg_types.animatecolor_attr ],
+             [< Svg_types.animatecolor_content ],
+             [> Svg_types.animatecolor ])
+            star
+          val animateTransform :
+            ([< Svg_types.animatetransform_attr ],
+             [< Svg_types.animatetransform_content ],
+             [> Svg_types.animatetransform ])
+            star
+          val font :
+            ([< Svg_types.font_attr ], [< Svg_types.font_content ],
+             [> Svg_types.font ])
+            star
+          val glyph :
+            ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
+             [> Svg_types.glyph ])
+            star
+          val missing_glyph :
+            ([< Svg_types.missingglyph_attr ],
+             [< Svg_types.missingglyph_content ],
+             [> Svg_types.missingglyph ])
+            star
+          val hkern :
+            ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
+          val vkern :
+            ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
+          val font_face :
+            ([< Svg_types.font_face_attr ], [> Svg_types.font_face ]) nullary
+          val font_face_src :
+            ([< Svg_types.font_face_src_attr ],
+             [< Svg_types.font_face_src_content ],
+             [> Svg_types.font_face_src ])
+            star
+          val font_face_uri :
+            ([< Svg_types.font_face_uri_attr ],
+             [< Svg_types.font_face_uri_content ],
+             [> Svg_types.font_face_uri ])
+            star
+          val font_face_format :
+            ([< Svg_types.font_face_format_attr ],
+             [> Svg_types.font_face_format ])
+            nullary
+          val font_face_name :
+            ([< Svg_types.font_face_name_attr ],
+             [> Svg_types.font_face_name ])
+            nullary
+          val metadata :
+            ?a:Svg_types.metadata_attr attrib list ->
+            Xml.elt list_wrap -> [> Svg_types.metadata ] elt
+          val foreignObject :
+            ?a:Svg_types.foreignobject_attr attrib list ->
+            Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+          val pcdata : string wrap -> [> Svg_types.txt ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
+          val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+          val tot : Xml.elt -> 'a elt
+          val totl : Xml.elt list_wrap -> 'a elt list_wrap
+          val toelt : 'a elt -> Xml.elt
+          val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+          val doc_toelt : doc -> Xml.elt
+          val to_xmlattribs : 'a attrib list -> Xml.attrib list
+          val to_attrib : Xml.attrib -> 'a attrib
+          module Unsafe :
+            sig
+              val data : string wrap -> 'a elt
+              val node :
+                string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+              val coerce_elt : 'a elt -> 'b elt
+              val string_attrib : string -> string wrap -> 'a attrib
+              val float_attrib : string -> float wrap -> 'a attrib
+              val int_attrib : string -> int wrap -> 'a attrib
+              val uri_attrib : string -> uri wrap -> 'a attrib
+              val space_sep_attrib : string -> string list wrap -> 'a attrib
+              val comma_sep_attrib : string -> string list wrap -> 'a attrib
+            end
+          val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+          val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+          val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+          val a_onend : string -> [> `OnEnd ] Raw'.attrib
+          val a_onerror : string -> [> `OnError ] Raw'.attrib
+          val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+          val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+          val a_onload : string -> [> `OnLoad ] Raw'.attrib
+          val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+          val a_onresize : string -> [> `OnResize ] Raw'.attrib
+          val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+          val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+          val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+          val a_onclick : string -> [> `OnClick ] Raw'.attrib
+          val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+          val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+          val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+          val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+          val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+          val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+          val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+          val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+          val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+        end
+      type 'a elt = 'a elt
+      type doc = [ `Svg ] elt
+      type 'a attrib = 'a attrib
+      module Xml :
+        sig
+          module W :
+            sig
+              type 'a t = 'a Xml.W.t
+              val return : 'a -> 'a t
+              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+              val fmap : ('a, 'b) ft -> 'a t -> 'b t
+              type 'a tlist = 'a Xml.W.tlist
+              val nil : unit -> 'a tlist
+              val singleton : 'a t -> 'a tlist
+              val cons : 'a t -> 'a tlist -> 'a tlist
+              val append : 'a tlist -> 'a tlist -> 'a tlist
+              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+            end
+          type 'a wrap = 'a W.t
+          type 'a list_wrap = 'a W.tlist
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) W.ft
+          val uri_of_string : (string, uri) W.ft
+          type aname = string
+          type event_handler = Xml.event_handler
+          type mouse_event_handler = Xml.mouse_event_handler
+          type keyboard_event_handler = Xml.keyboard_event_handler
+          type touch_event_handler = Xml.touch_event_handler
+          type attrib = Xml.attrib
+          val float_attrib : aname -> float wrap -> attrib
+          val int_attrib : aname -> int wrap -> attrib
+          val string_attrib : aname -> string wrap -> attrib
+          val space_sep_attrib : aname -> string list wrap -> attrib
+          val comma_sep_attrib : aname -> string list wrap -> attrib
+          val event_handler_attrib : aname -> event_handler -> attrib
+          val mouse_event_handler_attrib :
+            aname -> mouse_event_handler -> attrib
+          val keyboard_event_handler_attrib :
+            aname -> keyboard_event_handler -> attrib
+          val touch_event_handler_attrib :
+            aname -> touch_event_handler -> attrib
+          val uri_attrib : aname -> uri wrap -> attrib
+          val uris_attrib : aname -> uri list wrap -> attrib
+          type elt = Xml.elt
+          type ename = string
+          val empty : unit -> elt
+          val comment : string -> elt
+          val pcdata : string wrap -> elt
+          val encodedpcdata : string wrap -> elt
+          val entity : string -> elt
+          val leaf : ?a:attrib list -> ename -> elt
+          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+          val cdata : string -> elt
+          val cdata_script : string -> elt
+          val cdata_style : string -> elt
+        end
+      type 'a wrap = 'a Xml.W.t
+      type 'a list_wrap = 'a Xml.W.tlist
+      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
+      type ('a, 'b, 'c) star =
+          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+      module Info : Xml_sigs.Info
+      type uri = Xml.uri
+      val string_of_uri : (uri, string) Xml.W.ft
+      val uri_of_string : (string, uri) Xml.W.ft
+      val a_version : string wrap -> [> `Version ] attrib
+      val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+      val a_x : Svg_types.coord wrap -> [> `X ] attrib
+      val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+      val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+      val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
+      val a_preserveAspectRatio :
+        string wrap -> [> `PreserveAspectRatio ] attrib
+      val a_contentScriptType : string wrap -> [> `ContentScriptType ] attrib
+      val a_contentStyleType : string wrap -> [> `ContentStyleType ] attrib
+      val a_zoomAndPan :
+        [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+      val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+      val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+      val a_requiredFeatures :
+        Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+      val a_requiredExtensions :
+        Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+      val a_systemLanguage :
+        Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+      val a_externalRessourcesRequired :
+        bool wrap -> [> `ExternalRessourcesRequired ] attrib
+      val a_id : string wrap -> [> `Id ] attrib
+      val a_user_data : string -> string wrap -> [> `User_data ] attrib
+      val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+      val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+      val a_xml_space :
+        [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+      val a_type : string wrap -> [> `Type ] attrib
+      val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+      val a_xlink_title : string wrap -> [> `Title ] attrib
+      val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+      val a_style : string wrap -> [> `Style ] attrib
+      val a_transform : Svg_types.transforms wrap -> [> `Transform ] attrib
+      val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+      val a_d : string wrap -> [> `D ] attrib
+      val a_pathLength : float wrap -> [> `PathLength ] attrib
+      val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+      val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+      val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+      val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+      val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+      val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+      val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+      val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+      val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+      val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+      val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+      val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+      val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+      val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+      val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+      val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+      val a_lengthAdjust :
+        [< `Spacing | `SpacingAndGlyphs ] wrap -> [> `LengthAdjust ] attrib
+      val a_textLength :
+        Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+      val a_text_anchor :
+        [< `End | `Inherit | `Middle | `Start ] wrap ->
+        [> `Text_Anchor ] attrib
+      val a_text_decoration :
+        [< `Blink | `Inherit | `Line_through | `None | `Overline | `Underline
+        ] wrap -> [> `Text_Decoration ] attrib
+      val a_text_rendering :
+        [< `Auto
+         | `GeometricPrecision
+         | `Inherit
+         | `OptimizeLegibility
+         | `OptimizeSpeed ]
+        wrap -> [> `Text_Rendering ] attrib
+      val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+      val a_startOffset :
+        Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+      val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+      val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+      val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+      val a_format : string wrap -> [> `Format ] attrib
+      val a_markerUnits :
+        [< `StrokeWidth | `UserSpaceOnUse ] wrap -> [> `MarkerUnits ] attrib
+      val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+      val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+      val a_markerWidth :
+        Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+      val a_markerHeight :
+        Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+      val a_orient : Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+      val a_local : string wrap -> [> `Local ] attrib
+      val a_rendering_intent :
+        [< `Absolute_colorimetric
+         | `Auto
+         | `Perceptual
+         | `Relative_colorimetric
+         | `Saturation ]
+        wrap -> [> `Rendering_Indent ] attrib
+      val a_gradientUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [ `GradientUnits ] attrib
+      val a_gradientTransform :
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+      val a_spreadMethod :
+        [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
+      val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+      val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+      val a_offset :
+        [< `Number of Svg_types.number | `Percentage of Svg_types.percentage
+        ] wrap -> [> `Offset ] attrib
+      val a_patternUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PatternUnits ] attrib
+      val a_patternContentUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PatternContentUnits ] attrib
+      val a_patternTransform :
+        Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+      val a_clipPathUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `ClipPathUnits ] attrib
+      val a_maskUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `MaskUnits ] attrib
+      val a_maskContentUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `MaskContentUnits ] attrib
+      val a_primitiveUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PrimitiveUnits ] attrib
+      val a_filterRes :
+        Svg_types.number_optional_number wrap -> [> `FilterResUnits ] attrib
       val a_result : string wrap -> [> `Result ] attrib
       val a_in :
         [< `BackgroundAlpha
@@ -1148,6 +2030,7 @@
       val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
       val a_animation_fill :
         [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
       val a_calcMode :
         [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
         [> `CalcMode ] attrib
@@ -1546,9 +2429,9 @@
         ([< Svg_types.script_attr ], [< Svg_types.script_content ],
          [> Svg_types.script ])
         unary
-      val animation :
-        ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-         [> Svg_types.animation ])
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
         star
       val set :
         ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -1609,6 +2492,10 @@
         ?a:Svg_types.foreignobject_attr attrib list ->
         Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
       val pcdata : string wrap -> [> Svg_types.txt ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
       val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
       val tot : Xml.elt -> 'a elt
       val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -1631,9 +2518,857 @@
           val space_sep_attrib : string -> string list wrap -> 'a attrib
           val comma_sep_attrib : string -> string list wrap -> 'a attrib
         end
-    end
-  module D :
-    sig
+    end
+  module D :
+    sig
+      module Raw' :
+        sig
+          type 'a elt = 'a elt
+          type doc = [ `Svg ] elt
+          type 'a attrib = 'a attrib
+          module Xml :
+            sig
+              module W :
+                sig
+                  type 'a t = 'a Xml.W.t
+                  val return : 'a -> 'a t
+                  type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                  type 'a tlist = 'a Xml.W.tlist
+                  val nil : unit -> 'a tlist
+                  val singleton : 'a t -> 'a tlist
+                  val cons : 'a t -> 'a tlist -> 'a tlist
+                  val append : 'a tlist -> 'a tlist -> 'a tlist
+                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                end
+              type 'a wrap = 'a W.t
+              type 'a list_wrap = 'a W.tlist
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) W.ft
+              val uri_of_string : (string, uri) W.ft
+              type aname = string
+              type event_handler = Xml.event_handler
+              type mouse_event_handler = Xml.mouse_event_handler
+              type keyboard_event_handler = Xml.keyboard_event_handler
+              type touch_event_handler = Xml.touch_event_handler
+              type attrib = Xml.attrib
+              val float_attrib : aname -> float wrap -> attrib
+              val int_attrib : aname -> int wrap -> attrib
+              val string_attrib : aname -> string wrap -> attrib
+              val space_sep_attrib : aname -> string list wrap -> attrib
+              val comma_sep_attrib : aname -> string list wrap -> attrib
+              val event_handler_attrib : aname -> event_handler -> attrib
+              val mouse_event_handler_attrib :
+                aname -> mouse_event_handler -> attrib
+              val keyboard_event_handler_attrib :
+                aname -> keyboard_event_handler -> attrib
+              val touch_event_handler_attrib :
+                aname -> touch_event_handler -> attrib
+              val uri_attrib : aname -> uri wrap -> attrib
+              val uris_attrib : aname -> uri list wrap -> attrib
+              type elt = Xml.elt
+              type ename = string
+              val empty : unit -> elt
+              val comment : string -> elt
+              val pcdata : string wrap -> elt
+              val encodedpcdata : string wrap -> elt
+              val entity : string -> elt
+              val leaf : ?a:attrib list -> ename -> elt
+              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+              val cdata : string -> elt
+              val cdata_script : string -> elt
+              val cdata_style : string -> elt
+            end
+          type 'a wrap = 'a Xml.W.t
+          type 'a list_wrap = 'a Xml.W.tlist
+          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+          type ('a, 'b, 'c) unary =
+              ?a:'a attrib list -> 'b elt wrap -> 'c elt
+          type ('a, 'b, 'c) star =
+              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          module Info : Xml_sigs.Info
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) Xml.W.ft
+          val uri_of_string : (string, uri) Xml.W.ft
+          val a_version : string wrap -> [> `Version ] attrib
+          val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+          val a_x : Svg_types.coord wrap -> [> `X ] attrib
+          val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+          val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+          val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
+          val a_preserveAspectRatio :
+            string wrap -> [> `PreserveAspectRatio ] attrib
+          val a_contentScriptType :
+            string wrap -> [> `ContentScriptType ] attrib
+          val a_contentStyleType :
+            string wrap -> [> `ContentStyleType ] attrib
+          val a_zoomAndPan :
+            [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+          val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+          val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+          val a_requiredFeatures :
+            Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+          val a_requiredExtensions :
+            Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+          val a_systemLanguage :
+            Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+          val a_externalRessourcesRequired :
+            bool wrap -> [> `ExternalRessourcesRequired ] attrib
+          val a_id : string wrap -> [> `Id ] attrib
+          val a_user_data : string -> string wrap -> [> `User_data ] attrib
+          val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+          val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+          val a_xml_space :
+            [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+          val a_type : string wrap -> [> `Type ] attrib
+          val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+          val a_xlink_title : string wrap -> [> `Title ] attrib
+          val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+          val a_style : string wrap -> [> `Style ] attrib
+          val a_transform :
+            Svg_types.transforms wrap -> [> `Transform ] attrib
+          val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+          val a_d : string wrap -> [> `D ] attrib
+          val a_pathLength : float wrap -> [> `PathLength ] attrib
+          val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+          val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+          val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+          val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+          val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+          val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+          val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+          val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+          val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+          val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+          val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+          val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+          val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+          val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+          val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+          val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+          val a_lengthAdjust :
+            [< `Spacing | `SpacingAndGlyphs ] wrap ->
+            [> `LengthAdjust ] attrib
+          val a_textLength :
+            Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+          val a_text_anchor :
+            [< `End | `Inherit | `Middle | `Start ] wrap ->
+            [> `Text_Anchor ] attrib
+          val a_text_decoration :
+            [< `Blink
+             | `Inherit
+             | `Line_through
+             | `None
+             | `Overline
+             | `Underline ]
+            wrap -> [> `Text_Decoration ] attrib
+          val a_text_rendering :
+            [< `Auto
+             | `GeometricPrecision
+             | `Inherit
+             | `OptimizeLegibility
+             | `OptimizeSpeed ]
+            wrap -> [> `Text_Rendering ] attrib
+          val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+          val a_startOffset :
+            Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+          val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+          val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+          val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+          val a_format : string wrap -> [> `Format ] attrib
+          val a_markerUnits :
+            [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
+            [> `MarkerUnits ] attrib
+          val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+          val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+          val a_markerWidth :
+            Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+          val a_markerHeight :
+            Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+          val a_orient :
+            Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+          val a_local : string wrap -> [> `Local ] attrib
+          val a_rendering_intent :
+            [< `Absolute_colorimetric
+             | `Auto
+             | `Perceptual
+             | `Relative_colorimetric
+             | `Saturation ]
+            wrap -> [> `Rendering_Indent ] attrib
+          val a_gradientUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [ `GradientUnits ] attrib
+          val a_gradientTransform :
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+          val a_spreadMethod :
+            [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
+          val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+          val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+          val a_offset :
+            [< `Number of Svg_types.number
+             | `Percentage of Svg_types.percentage ]
+            wrap -> [> `Offset ] attrib
+          val a_patternUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PatternUnits ] attrib
+          val a_patternContentUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PatternContentUnits ] attrib
+          val a_patternTransform :
+            Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+          val a_clipPathUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `ClipPathUnits ] attrib
+          val a_maskUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `MaskUnits ] attrib
+          val a_maskContentUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `MaskContentUnits ] attrib
+          val a_primitiveUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PrimitiveUnits ] attrib
+          val a_filterRes :
+            Svg_types.number_optional_number wrap ->
+            [> `FilterResUnits ] attrib
+          val a_result : string wrap -> [> `Result ] attrib
+          val a_in :
+            [< `BackgroundAlpha
+             | `BackgroundImage
+             | `FillPaint
+             | `Ref of string
+             | `SourceAlpha
+             | `SourceGraphic
+             | `StrokePaint ]
+            wrap -> [> `In ] attrib
+          val a_in2 :
+            [< `BackgroundAlpha
+             | `BackgroundImage
+             | `FillPaint
+             | `Ref of string
+             | `SourceAlpha
+             | `SourceGraphic
+             | `StrokePaint ]
+            wrap -> [> `In2 ] attrib
+          val a_azimuth : float wrap -> [> `Azimuth ] attrib
+          val a_elevation : float wrap -> [> `Elevation ] attrib
+          val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
+          val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
+          val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
+          val a_specularExponent :
+            float wrap -> [> `SpecularExponent ] attrib
+          val a_specularConstant :
+            float wrap -> [> `SpecularConstant ] attrib
+          val a_limitingConeAngle :
+            float wrap -> [> `LimitingConeAngle ] attrib
+          val a_mode :
+            [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
+            [> `Mode ] attrib
+          val a_feColorMatrix_type :
+            [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ] wrap ->
+            [> `Typefecolor ] attrib
+          val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
+          val a_transfer_type :
+            [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
+            [> `Type_transfert ] attrib
+          val a_tableValues :
+            Svg_types.numbers wrap -> [> `TableValues ] attrib
+          val a_intercept : Svg_types.number wrap -> [> `Intercept ] attrib
+          val a_amplitude : Svg_types.number wrap -> [> `Amplitude ] attrib
+          val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
+          val a_transfer_offset :
+            Svg_types.number wrap -> [> `Offset_transfer ] attrib
+          val a_feComposite_operator :
+            [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
+            [> `OperatorComposite ] attrib
+          val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
+          val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
+          val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
+          val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
+          val a_order :
+            Svg_types.number_optional_number wrap -> [> `Order ] attrib
+          val a_kernelMatrix :
+            Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
+          val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
+          val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
+          val a_kernelUnitLength :
+            Svg_types.number_optional_number wrap ->
+            [> `KernelUnitLength ] attrib
+          val a_targetX : int wrap -> [> `TargetX ] attrib
+          val a_targetY : int wrap -> [> `TargetY ] attrib
+          val a_edgeMode :
+            [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
+          val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
+          val a_surfaceScale :
+            Svg_types.number wrap -> [> `SurfaceScale ] attrib
+          val a_diffuseConstant :
+            Svg_types.number wrap -> [> `DiffuseConstant ] attrib
+          val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
+          val a_xChannelSelector :
+            [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
+          val a_yChannelSelector :
+            [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
+          val a_stdDeviation :
+            Svg_types.number_optional_number wrap ->
+            [> `StdDeviation ] attrib
+          val a_feMorphology_operator :
+            [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
+          val a_radius :
+            Svg_types.number_optional_number wrap -> [> `Radius ] attrib
+          val a_baseFrenquency :
+            Svg_types.number_optional_number wrap ->
+            [> `BaseFrequency ] attrib
+          val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
+          val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
+          val a_stitchTiles :
+            [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
+          val a_feTurbulence_type :
+            [< `FractalNoise | `Turbulence ] wrap -> [> `TypeStitch ] attrib
+          val a_xlink_show :
+            [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
+          val a_xlink_actuate :
+            [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
+            [> `Xlink_actuate ] attrib
+          val a_target : string wrap -> [> `Xlink_target ] attrib
+          val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
+          val a_attributeName : string wrap -> [> `AttributeName ] attrib
+          val a_attributeType :
+            [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
+          val a_begin : string wrap -> [> `Begin ] attrib
+          val a_dur : string wrap -> [> `Dur ] attrib
+          val a_min : string wrap -> [> `Min ] attrib
+          val a_max : string wrap -> [> `Max ] attrib
+          val a_restart :
+            [< `Always | `Never | `WhenNotActive ] wrap ->
+            [> `Restart ] attrib
+          val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
+          val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
+          val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
+          val a_animation_fill :
+            [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
+          val a_calcMode :
+            [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
+            [> `CalcMode ] attrib
+          val a_animation_values :
+            Svg_types.strings wrap -> [> `Valuesanim ] attrib
+          val a_keyTimes : Svg_types.strings wrap -> [> `KeyTimes ] attrib
+          val a_keySplines :
+            Svg_types.strings wrap -> [> `KeySplines ] attrib
+          val a_from : string wrap -> [> `From ] attrib
+          val a_to : string wrap -> [> `To ] attrib
+          val a_by : string wrap -> [> `By ] attrib
+          val a_additive : [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
+          val a_accumulate :
+            [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
+          val a_keyPoints :
+            Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
+          val a_path : string wrap -> [> `Path ] attrib
+          val a_animateTransform_type :
+            [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
+            [ `Typeanimatetransform ] attrib
+          val a_horiz_origin_x :
+            Svg_types.number wrap -> [> `HorizOriginX ] attrib
+          val a_horiz_origin_y :
+            Svg_types.number wrap -> [> `HorizOriginY ] attrib
+          val a_horiz_adv_x : Svg_types.number wrap -> [> `HorizAdvX ] attrib
+          val a_vert_origin_x :
+            Svg_types.number wrap -> [> `VertOriginX ] attrib
+          val a_vert_origin_y :
+            Svg_types.number wrap -> [> `VertOriginY ] attrib
+          val a_vert_adv_y : Svg_types.number wrap -> [> `VertAdvY ] attrib
+          val a_unicode : string wrap -> [> `Unicode ] attrib
+          val a_glyph_name : string wrap -> [> `glyphname ] attrib
+          val a_orientation : [< `H | `V ] wrap -> [> `Orientation ] attrib
+          val a_arabic_form :
+            [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
+            [> `Arabicform ] attrib
+          val a_lang : string wrap -> [> `Lang ] attrib
+          val a_u1 : string wrap -> [> `U1 ] attrib
+          val a_u2 : string wrap -> [> `U2 ] attrib
+          val a_g1 : string wrap -> [> `G1 ] attrib
+          val a_g2 : string wrap -> [> `G2 ] attrib
+          val a_k : string wrap -> [> `K ] attrib
+          val a_font_family : string wrap -> [> `Font_Family ] attrib
+          val a_font_style : string wrap -> [> `Font_Style ] attrib
+          val a_font_variant : string wrap -> [> `Font_Variant ] attrib
+          val a_font_weight : string wrap -> [> `Font_Weight ] attrib
+          val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
+          val a_font_size : string wrap -> [> `Font_Size ] attrib
+          val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
+          val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
+          val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
+          val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
+          val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
+          val a_cap_height : Svg_types.number wrap -> [> `CapHeight ] attrib
+          val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
+          val a_accent_height :
+            Svg_types.number wrap -> [> `AccentHeight ] attrib
+          val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
+          val a_widths : string wrap -> [> `Widths ] attrib
+          val a_bbox : string wrap -> [> `Bbox ] attrib
+          val a_ideographic :
+            Svg_types.number wrap -> [> `Ideographic ] attrib
+          val a_alphabetic : Svg_types.number wrap -> [> `Alphabetic ] attrib
+          val a_mathematical :
+            Svg_types.number wrap -> [> `Mathematical ] attrib
+          val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
+          val a_videographic :
+            Svg_types.number wrap -> [> `VIdeographic ] attrib
+          val a_v_alphabetic :
+            Svg_types.number wrap -> [> `VAlphabetic ] attrib
+          val a_v_mathematical :
+            Svg_types.number wrap -> [> `VMathematical ] attrib
+          val a_v_hanging : Svg_types.number wrap -> [> `VHanging ] attrib
+          val a_underline_position :
+            Svg_types.number wrap -> [> `UnderlinePosition ] attrib
+          val a_underline_thickness :
+            Svg_types.number wrap -> [> `UnderlineThickness ] attrib
+          val a_strikethrough_position :
+            Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
+          val a_strikethrough_thickness :
+            Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
+          val a_overline_position :
+            Svg_types.number wrap -> [> `OverlinePosition ] attrib
+          val a_overline_thickness :
+            Svg_types.number wrap -> [> `OverlineThickness ] attrib
+          val a_string : string wrap -> [> `String ] attrib
+          val a_name : string wrap -> [> `Name ] attrib
+          val a_alignment_baseline :
+            [< `After_edge
+             | `Alphabetic
+             | `Auto
+             | `Baseline
+             | `Before_edge
+             | `Central
+             | `Hanging
+             | `Ideographic
+             | `Inherit
+             | `Mathematical
+             | `Middle
+             | `Text_after_edge
+             | `Text_before_edge ]
+            wrap -> [> `Alignment_Baseline ] attrib
+          val a_dominant_baseline :
+            [< `Alphabetic
+             | `Auto
+             | `Central
+             | `Hanging
+             | `Ideographic
+             | `Inherit
+             | `Mathematical
+             | `Middle
+             | `No_change
+             | `Reset_size
+             | `Text_after_edge
+             | `Text_before_edge
+             | `Use_script ]
+            wrap -> [> `Dominant_Baseline ] attrib
+          val a_stop_color : Svg_types.color wrap -> [> `Stop_Color ] attrib
+          val a_stop_opacity :
+            Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+          val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+          val a_stroke_width :
+            Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+          val a_stroke_linecap :
+            [< `Butt | `Round | `Square ] wrap -> [> `Stroke_Linecap ] attrib
+          val a_stroke_linejoin :
+            [< `Bever | `Miter | `Round ] wrap ->
+            [> `Stroke_Linejoin ] attrib
+          val a_stroke_miterlimit :
+            float wrap -> [> `Stroke_Miterlimit ] attrib
+          val a_stroke_dasharray :
+            Svg_types.Unit.length list wrap -> [> `Stroke_Dasharray ] attrib
+          val a_stroke_dashoffset :
+            Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+          val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
+          val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+          val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
+          val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
+          val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
+          val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+          val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
+          val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
+          val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+          val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
+          val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+          val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+          val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+          val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
+          val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+          val a_onmousedown :
+            Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+          val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+          val a_onmouseover :
+            Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+          val a_onmouseout :
+            Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+          val a_onmousemove :
+            Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+          val a_ontouchstart :
+            Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+          val a_ontouchend :
+            Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+          val a_ontouchmove :
+            Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+          val a_ontouchcancel :
+            Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+          val txt : string wrap -> [> Svg_types.txt ] elt
+          val svg :
+            ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
+             [> Svg_types.svg ])
+            star
+          val g :
+            ([< Svg_types.g_attr ], [< Svg_types.g_content ],
+             [> Svg_types.g ])
+            star
+          val defs :
+            ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
+             [> Svg_types.defs ])
+            star
+          val desc :
+            ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
+             [> Svg_types.desc ])
+            unary
+          val title :
+            ([< Svg_types.title_attr ], [< Svg_types.title_content ],
+             [> Svg_types.title ])
+            unary
+          val symbol :
+            ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
+             [> Svg_types.symbol ])
+            star
+          val use :
+            ([< Svg_types.use_attr ], [< Svg_types.use_content ],
+             [> Svg_types.use ])
+            star
+          val image :
+            ([< Svg_types.image_attr ], [< Svg_types.image_content ],
+             [> Svg_types.image ])
+            star
+          val switch :
+            ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
+             [> Svg_types.switch ])
+            star
+          val style :
+            ([< Svg_types.style_attr ], [< Svg_types.style_content ],
+             [> Svg_types.style ])
+            unary
+          val path :
+            ([< Svg_types.path_attr ], [< Svg_types.path_content ],
+             [> Svg_types.path ])
+            star
+          val rect :
+            ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
+             [> Svg_types.rect ])
+            star
+          val circle :
+            ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
+             [> Svg_types.circle ])
+            star
+          val ellipse :
+            ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
+             [> Svg_types.ellipse ])
+            star
+          val line :
+            ([< Svg_types.line_attr ], [< Svg_types.line_content ],
+             [> Svg_types.line ])
+            star
+          val polyline :
+            ([< Svg_types.polyline_attr ], [< Svg_types.polyline_content ],
+             [> Svg_types.polyline ])
+            star
+          val polygon :
+            ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
+             [> Svg_types.polygon ])
+            star
+          val text :
+            ([< Svg_types.text_attr ], [< Svg_types.text_content ],
+             [> Svg_types.text ])
+            star
+          val tspan :
+            ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
+             [> Svg_types.tspan ])
+            star
+          val tref :
+            ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
+             [> Svg_types.tref ])
+            star
+          val textPath :
+            ([< Svg_types.textpath_attr ], [< Svg_types.textpath_content ],
+             [> Svg_types.textpath ])
+            star
+          val altGlyph :
+            ([< Svg_types.altglyph_attr ], [< Svg_types.altglyph_content ],
+             [> Svg_types.altglyph ])
+            unary
+          type altglyphdef_content =
+              [ `Item of Svg_types.altglyphitem elt list
+              | `Ref of Svg_types.glyphref elt list ]
+          val altGlyphDef :
+            ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
+             [> Svg_types.altglyphdef ])
+            unary
+          val altGlyphItem :
+            ([< Svg_types.altglyphitem_attr ],
+             [< Svg_types.altglyphitem_content ],
+             [> Svg_types.altglyphitem ])
+            star
+          val glyphRef :
+            ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ]) nullary
+          val marker :
+            ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
+             [> Svg_types.marker ])
+            star
+          val color_profile :
+            ([< Svg_types.colorprofile_attr ],
+             [< Svg_types.colorprofile_content ],
+             [> Svg_types.colorprofile ])
+            star
+          val linearGradient :
+            ([< Svg_types.lineargradient_attr ],
+             [< Svg_types.lineargradient_content ],
+             [> Svg_types.lineargradient ])
+            star
+          val radialGradient :
+            ([< Svg_types.radialgradient_attr ],
+             [< Svg_types.radialgradient_content ],
+             [> Svg_types.radialgradient ])
+            star
+          val stop :
+            ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
+             [> Svg_types.stop ])
+            star
+          val pattern :
+            ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
+             [> Svg_types.pattern ])
+            star
+          val clipPath :
+            ([< Svg_types.clippath_attr ], [< Svg_types.clippath_content ],
+             [> Svg_types.clippath ])
+            star
+          val filter :
+            ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
+             [> Svg_types.filter ])
+            star
+          val feDistantLight :
+            ([< Svg_types.fedistantlight_attr ],
+             [< Svg_types.fedistantlight_content ],
+             [> Svg_types.fedistantlight ])
+            star
+          val fePointLight :
+            ([< Svg_types.fepointlight_attr ],
+             [< Svg_types.fepointlight_content ],
+             [> Svg_types.fepointlight ])
+            star
+          val feSpotLight :
+            ([< Svg_types.fespotlight_attr ],
+             [< Svg_types.fespotlight_content ], [> Svg_types.fespotlight ])
+            star
+          val feBlend :
+            ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
+             [> Svg_types.feblend ])
+            star
+          val feColorMatrix :
+            ([< Svg_types.fecolormatrix_attr ],
+             [< Svg_types.fecolormatrix_content ],
+             [> Svg_types.fecolormatrix ])
+            star
+          val feComponentTransfer :
+            ([< Svg_types.fecomponenttransfer_attr ],
+             [< Svg_types.fecomponenttransfer_content ],
+             [> Svg_types.fecomponenttransfer ])
+            star
+          val feFuncA :
+            ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
+             [> Svg_types.fefunca ])
+            star
+          val feFuncG :
+            ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
+             [> Svg_types.fefuncg ])
+            star
+          val feFuncB :
+            ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
+             [> Svg_types.fefuncb ])
+            star
+          val feFuncR :
+            ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
+             [> Svg_types.fefuncr ])
+            star
+          val feComposite :
+            ([< Svg_types.fecomposite_attr ],
+             [< Svg_types.fecomposite_content ], [> Svg_types.fecomposite ])
+            star
+          val feConvolveMatrix :
+            ([< Svg_types.feconvolvematrix_attr ],
+             [< Svg_types.feconvolvematrix_content ],
+             [> Svg_types.feconvolvematrix ])
+            star
+          val feDiffuseLighting :
+            ([< Svg_types.fediffuselighting_attr ],
+             [< Svg_types.fediffuselighting_content ],
+             [> Svg_types.fediffuselighting ])
+            star
+          val feDisplacementMap :
+            ([< Svg_types.fedisplacementmap_attr ],
+             [< Svg_types.fedisplacementmap_content ],
+             [> Svg_types.fedisplacementmap ])
+            star
+          val feFlood :
+            ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
+             [> Svg_types.feflood ])
+            star
+          val feGaussianBlur :
+            ([< Svg_types.fegaussianblur_attr ],
+             [< Svg_types.fegaussianblur_content ],
+             [> Svg_types.fegaussianblur ])
+            star
+          val feImage :
+            ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
+             [> Svg_types.feimage ])
+            star
+          val feMerge :
+            ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
+             [> Svg_types.femerge ])
+            star
+          val feMorphology :
+            ([< Svg_types.femorphology_attr ],
+             [< Svg_types.femorphology_content ],
+             [> Svg_types.femorphology ])
+            star
+          val feOffset :
+            ([< Svg_types.feoffset_attr ], [< Svg_types.feoffset_content ],
+             [> Svg_types.feoffset ])
+            star
+          val feSpecularLighting :
+            ([< Svg_types.fespecularlighting_attr ],
+             [< Svg_types.fespecularlighting_content ],
+             [> Svg_types.fespecularlighting ])
+            star
+          val feTile :
+            ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
+             [> Svg_types.fetile ])
+            star
+          val feTurbulence :
+            ([< Svg_types.feturbulence_attr ],
+             [< Svg_types.feturbulence_content ],
+             [> Svg_types.feturbulence ])
+            star
+          val cursor :
+            ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
+             [> Svg_types.cursor ])
+            star
+          val a :
+            ([< Svg_types.a_attr ], [< Svg_types.a_content ],
+             [> Svg_types.a ])
+            star
+          val view :
+            ([< Svg_types.view_attr ], [< Svg_types.view_content ],
+             [> Svg_types.view ])
+            star
+          val script :
+            ([< Svg_types.script_attr ], [< Svg_types.script_content ],
+             [> Svg_types.script ])
+            unary
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
+          val set :
+            ([< Svg_types.set_attr ], [< Svg_types.set_content ],
+             [> Svg_types.set ])
+            star
+          val animateMotion :
+            ([< Svg_types.animatemotion_attr ],
+             [< Svg_types.animatemotion_content ],
+             [> Svg_types.animatemotion ])
+            star
+          val mpath :
+            ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
+             [> Svg_types.mpath ])
+            star
+          val animateColor :
+            ([< Svg_types.animatecolor_attr ],
+             [< Svg_types.animatecolor_content ],
+             [> Svg_types.animatecolor ])
+            star
+          val animateTransform :
+            ([< Svg_types.animatetransform_attr ],
+             [< Svg_types.animatetransform_content ],
+             [> Svg_types.animatetransform ])
+            star
+          val font :
+            ([< Svg_types.font_attr ], [< Svg_types.font_content ],
+             [> Svg_types.font ])
+            star
+          val glyph :
+            ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
+             [> Svg_types.glyph ])
+            star
+          val missing_glyph :
+            ([< Svg_types.missingglyph_attr ],
+             [< Svg_types.missingglyph_content ],
+             [> Svg_types.missingglyph ])
+            star
+          val hkern :
+            ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
+          val vkern :
+            ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
+          val font_face :
+            ([< Svg_types.font_face_attr ], [> Svg_types.font_face ]) nullary
+          val font_face_src :
+            ([< Svg_types.font_face_src_attr ],
+             [< Svg_types.font_face_src_content ],
+             [> Svg_types.font_face_src ])
+            star
+          val font_face_uri :
+            ([< Svg_types.font_face_uri_attr ],
+             [< Svg_types.font_face_uri_content ],
+             [> Svg_types.font_face_uri ])
+            star
+          val font_face_format :
+            ([< Svg_types.font_face_format_attr ],
+             [> Svg_types.font_face_format ])
+            nullary
+          val font_face_name :
+            ([< Svg_types.font_face_name_attr ],
+             [> Svg_types.font_face_name ])
+            nullary
+          val metadata :
+            ?a:Svg_types.metadata_attr attrib list ->
+            Xml.elt list_wrap -> [> Svg_types.metadata ] elt
+          val foreignObject :
+            ?a:Svg_types.foreignobject_attr attrib list ->
+            Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+          val pcdata : string wrap -> [> Svg_types.txt ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
+          val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+          val tot : Xml.elt -> 'a elt
+          val totl : Xml.elt list_wrap -> 'a elt list_wrap
+          val toelt : 'a elt -> Xml.elt
+          val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+          val doc_toelt : doc -> Xml.elt
+          val to_xmlattribs : 'a attrib list -> Xml.attrib list
+          val to_attrib : Xml.attrib -> 'a attrib
+          module Unsafe :
+            sig
+              val data : string wrap -> 'a elt
+              val node :
+                string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+              val coerce_elt : 'a elt -> 'b elt
+              val string_attrib : string -> string wrap -> 'a attrib
+              val float_attrib : string -> float wrap -> 'a attrib
+              val int_attrib : string -> int wrap -> 'a attrib
+              val uri_attrib : string -> uri wrap -> 'a attrib
+              val space_sep_attrib : string -> string list wrap -> 'a attrib
+              val comma_sep_attrib : string -> string list wrap -> 'a attrib
+            end
+        end
       module Raw :
         sig
           type 'a elt = 'a elt
@@ -1812,7 +3547,7 @@
             [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
             [ `GradientUnits ] attrib
           val a_gradientTransform :
-            Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
           val a_spreadMethod :
             [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
           val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -1959,6 +3694,8 @@
           val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
           val a_animation_fill :
             [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
           val a_calcMode :
             [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
             [> `CalcMode ] attrib
@@ -2094,37 +3831,6 @@
           val a_stroke_dashoffset :
             Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
           val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
-          val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-          val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
-          val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
-          val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
-          val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-          val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
-          val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
-          val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-          val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
-          val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-          val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-          val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-          val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
-          val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-          val a_onmousedown :
-            Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-          val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-          val a_onmouseover :
-            Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-          val a_onmouseout :
-            Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-          val a_onmousemove :
-            Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-          val a_ontouchstart :
-            Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-          val a_ontouchend :
-            Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-          val a_ontouchmove :
-            Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-          val a_ontouchcancel :
-            Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
           val txt : string wrap -> [> Svg_types.txt ] elt
           val svg :
             ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
@@ -2382,9 +4088,9 @@
             ([< Svg_types.script_attr ], [< Svg_types.script_content ],
              [> Svg_types.script ])
             unary
-          val animation :
-            ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-             [> Svg_types.animation ])
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
             star
           val set :
             ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -2453,6 +4159,10 @@
             ?a:Svg_types.foreignobject_attr attrib list ->
             Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
           val pcdata : string wrap -> [> Svg_types.txt ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
           val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
           val tot : Xml.elt -> 'a elt
           val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -2475,6 +4185,29 @@
               val space_sep_attrib : string -> string list wrap -> 'a attrib
               val comma_sep_attrib : string -> string list wrap -> 'a attrib
             end
+          val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+          val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+          val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+          val a_onend : string -> [> `OnEnd ] Raw'.attrib
+          val a_onerror : string -> [> `OnError ] Raw'.attrib
+          val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+          val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+          val a_onload : string -> [> `OnLoad ] Raw'.attrib
+          val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+          val a_onresize : string -> [> `OnResize ] Raw'.attrib
+          val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+          val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+          val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+          val a_onclick : string -> [> `OnClick ] Raw'.attrib
+          val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+          val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+          val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+          val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+          val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+          val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+          val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+          val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+          val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
         end
       type 'a elt = 'a elt
       type doc = [ `Svg ] elt
@@ -2640,7 +4373,7 @@
         [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
         [ `GradientUnits ] attrib
       val a_gradientTransform :
-        Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
       val a_spreadMethod :
         [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
       val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -2776,6 +4509,7 @@
       val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
       val a_animation_fill :
         [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
       val a_calcMode :
         [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
         [> `CalcMode ] attrib
@@ -3174,9 +4908,9 @@
         ([< Svg_types.script_attr ], [< Svg_types.script_content ],
          [> Svg_types.script ])
         unary
-      val animation :
-        ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-         [> Svg_types.animation ])
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
         star
       val set :
         ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -3237,6 +4971,10 @@
         ?a:Svg_types.foreignobject_attr attrib list ->
         Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
       val pcdata : string wrap -> [> Svg_types.txt ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
       val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
       val tot : Xml.elt -> 'a elt
       val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -3443,7 +5181,7 @@
             [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
             [ `GradientUnits ] attrib
           val a_gradientTransform :
-            Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
           val a_spreadMethod :
             [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
           val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -3590,6 +5328,8 @@
           val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
           val a_animation_fill :
             [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
           val a_calcMode :
             [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
             [> `CalcMode ] attrib
@@ -4013,9 +5753,9 @@
             ([< Svg_types.script_attr ], [< Svg_types.script_content ],
              [> Svg_types.script ])
             unary
-          val animation :
-            ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-             [> Svg_types.animation ])
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
             star
           val set :
             ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -4084,6 +5824,10 @@
             ?a:Svg_types.foreignobject_attr attrib list ->
             Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
           val pcdata : string wrap -> [> Svg_types.txt ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
           val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
           val tot : Xml.elt -> 'a elt
           val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -4271,7 +6015,7 @@
         [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
         [ `GradientUnits ] attrib
       val a_gradientTransform :
-        Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
       val a_spreadMethod :
         [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
       val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -4407,6 +6151,7 @@
       val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
       val a_animation_fill :
         [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
       val a_calcMode :
         [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
         [> `CalcMode ] attrib
@@ -4805,9 +6550,9 @@
         ([< Svg_types.script_attr ], [< Svg_types.script_content ],
          [> Svg_types.script ])
         unary
-      val animation :
-        ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-         [> Svg_types.animation ])
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
         star
       val set :
         ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -4868,6 +6613,10 @@
         ?a:Svg_types.foreignobject_attr attrib list ->
         Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
       val pcdata : string wrap -> [> Svg_types.txt ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
       val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
       val tot : Xml.elt -> 'a elt
       val totl : Xml.elt list_wrap -> 'a elt list_wrap
diff --git a/doc/10.x/api/client/type_Eliom_content_core.Xml.W.wiki b/doc/11.x/api/client/type_Eliom_content_core.Xml.W.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content_core.Xml.W.wiki
rename to doc/11.x/api/client/type_Eliom_content_core.Xml.W.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content_core.Xml.wiki b/doc/11.x/api/client/type_Eliom_content_core.Xml.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content_core.Xml.wiki
rename to doc/11.x/api/client/type_Eliom_content_core.Xml.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content_core.Xml_wed.wiki b/doc/11.x/api/client/type_Eliom_content_core.Xml_wed.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_content_core.Xml_wed.wiki
rename to doc/11.x/api/client/type_Eliom_content_core.Xml_wed.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content_core.wiki b/doc/11.x/api/client/type_Eliom_content_core.wiki
similarity index 73%
rename from doc/10.x/api/client/type_Eliom_content_core.wiki
rename to doc/11.x/api/client/type_Eliom_content_core.wiki
index 849dccf492..516382cffe 100644
--- a/doc/10.x/api/client/type_Eliom_content_core.wiki
+++ b/doc/11.x/api/client/type_Eliom_content_core.wiki
@@ -242,9 +242,46 @@
       type 'a list_wrap = 'a list
       type +'a attrib
       type uri = Eliom_content_core.Xml.uri
+      module Ev' :
+        functor
+          (A : sig
+                 type 'a attrib
+                 module Unsafe :
+                   sig
+                     val string_attrib :
+                       string ->
+                       string -> 'a Eliom_content_core.Svg.Ev'.attrib
+                   end
+               end)
+          ->
+          sig
+            val a_onabort : string -> [> `OnAbort ] A.attrib
+            val a_onactivate : string -> [> `OnActivate ] A.attrib
+            val a_onbegin : string -> [> `OnBegin ] A.attrib
+            val a_onend : string -> [> `OnEnd ] A.attrib
+            val a_onerror : string -> [> `OnError ] A.attrib
+            val a_onfocusin : string -> [> `OnFocusIn ] A.attrib
+            val a_onfocusout : string -> [> `OnFocusOut ] A.attrib
+            val a_onload : string -> [> `OnLoad ] A.attrib
+            val a_onrepeat : string -> [> `OnRepeat ] A.attrib
+            val a_onresize : string -> [> `OnResize ] A.attrib
+            val a_onscroll : string -> [> `OnScroll ] A.attrib
+            val a_onunload : string -> [> `OnUnload ] A.attrib
+            val a_onzoom : string -> [> `OnZoom ] A.attrib
+            val a_onclick : string -> [> `OnClick ] A.attrib
+            val a_onmousedown : string -> [> `OnMouseDown ] A.attrib
+            val a_onmouseup : string -> [> `OnMouseUp ] A.attrib
+            val a_onmouseover : string -> [> `OnMouseOver ] A.attrib
+            val a_onmouseout : string -> [> `OnMouseOut ] A.attrib
+            val a_onmousemove : string -> [> `OnMouseMove ] A.attrib
+            val a_ontouchstart : string -> [> `OnTouchStart ] A.attrib
+            val a_ontouchend : string -> [> `OnTouchEnd ] A.attrib
+            val a_ontouchmove : string -> [> `OnTouchMove ] A.attrib
+            val a_ontouchcancel : string -> [> `OnTouchCancel ] A.attrib
+          end
       module F :
         sig
-          module Raw :
+          module Raw' :
             sig
               type 'a elt = 'a elt
               type doc = [ `Svg ] elt
@@ -428,7 +465,7 @@
                 [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
                 [ `GradientUnits ] attrib
               val a_gradientTransform :
-                Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+                Svg_types.transforms wrap -> [> `GradientTransform ] attrib
               val a_spreadMethod :
                 [< `Pad | `Reflect | `Repeat ] wrap ->
                 [> `SpreadMethod ] attrib
@@ -579,6 +616,8 @@
               val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
               val a_animation_fill :
                 [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+              val a_fill_rule :
+                Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
               val a_calcMode :
                 [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
                 [> `CalcMode ] attrib
@@ -1018,9 +1057,9 @@
                 ([< Svg_types.script_attr ], [< Svg_types.script_content ],
                  [> Svg_types.script ])
                 unary
-              val animation :
-                ([< Svg_types.animation_attr ],
-                 [< Svg_types.animation_content ], [> Svg_types.animation ])
+              val animate :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
                 star
               val set :
                 ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -1090,6 +1129,10 @@
                 ?a:Svg_types.foreignobject_attr attrib list ->
                 Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
               val pcdata : string wrap -> [> Svg_types.txt ] elt
+              val animation :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
+                star
               val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
               val tot : Xml.elt -> 'a elt
               val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -1115,200 +1158,1068 @@
                     string -> string list wrap -> 'a attrib
                 end
             end
-          type 'a elt = 'a elt
-          type doc = [ `Svg ] elt
-          type 'a attrib = 'a attrib
-          module Xml :
+          module Raw :
             sig
-              module W :
+              type 'a elt = 'a elt
+              type doc = [ `Svg ] elt
+              type 'a attrib = 'a attrib
+              module Xml :
                 sig
-                  type 'a t = 'a Xml.W.t
-                  val return : 'a -> 'a t
-                  type ('a, 'b) ft = ('a, 'b) Xml.W.ft
-                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
-                  type 'a tlist = 'a Xml.W.tlist
-                  val nil : unit -> 'a tlist
-                  val singleton : 'a t -> 'a tlist
-                  val cons : 'a t -> 'a tlist -> 'a tlist
-                  val append : 'a tlist -> 'a tlist -> 'a tlist
-                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                  module W :
+                    sig
+                      type 'a t = 'a Xml.W.t
+                      val return : 'a -> 'a t
+                      type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                      val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                      type 'a tlist = 'a Xml.W.tlist
+                      val nil : unit -> 'a tlist
+                      val singleton : 'a t -> 'a tlist
+                      val cons : 'a t -> 'a tlist -> 'a tlist
+                      val append : 'a tlist -> 'a tlist -> 'a tlist
+                      val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                    end
+                  type 'a wrap = 'a W.t
+                  type 'a list_wrap = 'a W.tlist
+                  type uri = Xml.uri
+                  val string_of_uri : (uri, string) W.ft
+                  val uri_of_string : (string, uri) W.ft
+                  type aname = string
+                  type event_handler = Xml.event_handler
+                  type mouse_event_handler = Xml.mouse_event_handler
+                  type keyboard_event_handler = Xml.keyboard_event_handler
+                  type touch_event_handler = Xml.touch_event_handler
+                  type attrib = Xml.attrib
+                  val float_attrib : aname -> float wrap -> attrib
+                  val int_attrib : aname -> int wrap -> attrib
+                  val string_attrib : aname -> string wrap -> attrib
+                  val space_sep_attrib : aname -> string list wrap -> attrib
+                  val comma_sep_attrib : aname -> string list wrap -> attrib
+                  val event_handler_attrib : aname -> event_handler -> attrib
+                  val mouse_event_handler_attrib :
+                    aname -> mouse_event_handler -> attrib
+                  val keyboard_event_handler_attrib :
+                    aname -> keyboard_event_handler -> attrib
+                  val touch_event_handler_attrib :
+                    aname -> touch_event_handler -> attrib
+                  val uri_attrib : aname -> uri wrap -> attrib
+                  val uris_attrib : aname -> uri list wrap -> attrib
+                  type elt = Xml.elt
+                  type ename = string
+                  val empty : unit -> elt
+                  val comment : string -> elt
+                  val pcdata : string wrap -> elt
+                  val encodedpcdata : string wrap -> elt
+                  val entity : string -> elt
+                  val leaf : ?a:attrib list -> ename -> elt
+                  val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+                  val cdata : string -> elt
+                  val cdata_script : string -> elt
+                  val cdata_style : string -> elt
                 end
-              type 'a wrap = 'a W.t
-              type 'a list_wrap = 'a W.tlist
+              type 'a wrap = 'a Xml.W.t
+              type 'a list_wrap = 'a Xml.W.tlist
+              type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+              type ('a, 'b, 'c) unary =
+                  ?a:'a attrib list -> 'b elt wrap -> 'c elt
+              type ('a, 'b, 'c) star =
+                  ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              module Info : Xml_sigs.Info
               type uri = Xml.uri
-              val string_of_uri : (uri, string) W.ft
-              val uri_of_string : (string, uri) W.ft
-              type aname = string
-              type event_handler = Xml.event_handler
-              type mouse_event_handler = Xml.mouse_event_handler
-              type keyboard_event_handler = Xml.keyboard_event_handler
-              type touch_event_handler = Xml.touch_event_handler
-              type attrib = Xml.attrib
-              val float_attrib : aname -> float wrap -> attrib
-              val int_attrib : aname -> int wrap -> attrib
-              val string_attrib : aname -> string wrap -> attrib
-              val space_sep_attrib : aname -> string list wrap -> attrib
-              val comma_sep_attrib : aname -> string list wrap -> attrib
-              val event_handler_attrib : aname -> event_handler -> attrib
-              val mouse_event_handler_attrib :
-                aname -> mouse_event_handler -> attrib
-              val keyboard_event_handler_attrib :
-                aname -> keyboard_event_handler -> attrib
-              val touch_event_handler_attrib :
-                aname -> touch_event_handler -> attrib
-              val uri_attrib : aname -> uri wrap -> attrib
-              val uris_attrib : aname -> uri list wrap -> attrib
-              type elt = Xml.elt
-              type ename = string
-              val empty : unit -> elt
-              val comment : string -> elt
-              val pcdata : string wrap -> elt
-              val encodedpcdata : string wrap -> elt
-              val entity : string -> elt
-              val leaf : ?a:attrib list -> ename -> elt
-              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
-              val cdata : string -> elt
-              val cdata_script : string -> elt
-              val cdata_style : string -> elt
-            end
-          type 'a wrap = 'a Xml.W.t
-          type 'a list_wrap = 'a Xml.W.tlist
-          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
-          type ('a, 'b, 'c) unary =
-              ?a:'a attrib list -> 'b elt wrap -> 'c elt
-          type ('a, 'b, 'c) star =
-              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-          module Info : Xml_sigs.Info
-          type uri = Xml.uri
-          val string_of_uri : (uri, string) Xml.W.ft
-          val uri_of_string : (string, uri) Xml.W.ft
-          val a_version : string wrap -> [> `Version ] attrib
-          val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
-          val a_x : Svg_types.coord wrap -> [> `X ] attrib
-          val a_y : Svg_types.coord wrap -> [> `Y ] attrib
-          val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
-          val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
-          val a_preserveAspectRatio :
-            string wrap -> [> `PreserveAspectRatio ] attrib
-          val a_contentScriptType :
-            string wrap -> [> `ContentScriptType ] attrib
-          val a_contentStyleType :
-            string wrap -> [> `ContentStyleType ] attrib
-          val a_zoomAndPan :
-            [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
-          val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
-          val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
-          val a_requiredFeatures :
-            Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
-          val a_requiredExtensions :
-            Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
-          val a_systemLanguage :
-            Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
-          val a_externalRessourcesRequired :
-            bool wrap -> [> `ExternalRessourcesRequired ] attrib
-          val a_id : string wrap -> [> `Id ] attrib
-          val a_user_data : string -> string wrap -> [> `User_data ] attrib
-          val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
-          val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
-          val a_xml_space :
-            [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
-          val a_type : string wrap -> [> `Type ] attrib
-          val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
-          val a_xlink_title : string wrap -> [> `Title ] attrib
-          val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
-          val a_style : string wrap -> [> `Style ] attrib
-          val a_transform :
-            Svg_types.transforms wrap -> [> `Transform ] attrib
-          val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
-          val a_d : string wrap -> [> `D ] attrib
-          val a_pathLength : float wrap -> [> `PathLength ] attrib
-          val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
-          val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
-          val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
-          val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
-          val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
-          val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
-          val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
-          val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
-          val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
-          val a_points : Svg_types.coords wrap -> [> `Points ] attrib
-          val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
-          val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
-          val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
-          val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
-          val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
-          val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
-          val a_lengthAdjust :
-            [< `Spacing | `SpacingAndGlyphs ] wrap ->
-            [> `LengthAdjust ] attrib
-          val a_textLength :
-            Svg_types.Unit.length wrap -> [> `TextLength ] attrib
-          val a_text_anchor :
-            [< `End | `Inherit | `Middle | `Start ] wrap ->
-            [> `Text_Anchor ] attrib
-          val a_text_decoration :
-            [< `Blink
-             | `Inherit
-             | `Line_through
-             | `None
-             | `Overline
-             | `Underline ]
-            wrap -> [> `Text_Decoration ] attrib
-          val a_text_rendering :
-            [< `Auto
-             | `GeometricPrecision
-             | `Inherit
-             | `OptimizeLegibility
-             | `OptimizeSpeed ]
-            wrap -> [> `Text_Rendering ] attrib
-          val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
-          val a_startOffset :
-            Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
-          val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
-          val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
-          val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
-          val a_format : string wrap -> [> `Format ] attrib
-          val a_markerUnits :
-            [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
-            [> `MarkerUnits ] attrib
-          val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
-          val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
-          val a_markerWidth :
-            Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
-          val a_markerHeight :
-            Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
-          val a_orient :
-            Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
-          val a_local : string wrap -> [> `Local ] attrib
-          val a_rendering_intent :
-            [< `Absolute_colorimetric
-             | `Auto
-             | `Perceptual
-             | `Relative_colorimetric
-             | `Saturation ]
-            wrap -> [> `Rendering_Indent ] attrib
-          val a_gradientUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [ `GradientUnits ] attrib
-          val a_gradientTransform :
-            Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
-          val a_spreadMethod :
-            [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
-          val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
-          val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
-          val a_offset :
-            [< `Number of Svg_types.number
-             | `Percentage of Svg_types.percentage ]
-            wrap -> [> `Offset ] attrib
-          val a_patternUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [> `PatternUnits ] attrib
-          val a_patternContentUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [> `PatternContentUnits ] attrib
-          val a_patternTransform :
-            Svg_types.transforms wrap -> [> `PatternTransform ] attrib
-          val a_clipPathUnits :
+              val string_of_uri : (uri, string) Xml.W.ft
+              val uri_of_string : (string, uri) Xml.W.ft
+              val a_version : string wrap -> [> `Version ] attrib
+              val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+              val a_x : Svg_types.coord wrap -> [> `X ] attrib
+              val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+              val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+              val a_height :
+                Svg_types.Unit.length wrap -> [> `Height ] attrib
+              val a_preserveAspectRatio :
+                string wrap -> [> `PreserveAspectRatio ] attrib
+              val a_contentScriptType :
+                string wrap -> [> `ContentScriptType ] attrib
+              val a_contentStyleType :
+                string wrap -> [> `ContentStyleType ] attrib
+              val a_zoomAndPan :
+                [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+              val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+              val a_xlink_href :
+                Svg_types.iri wrap -> [> `Xlink_href ] attrib
+              val a_requiredFeatures :
+                Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+              val a_requiredExtensions :
+                Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+              val a_systemLanguage :
+                Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+              val a_externalRessourcesRequired :
+                bool wrap -> [> `ExternalRessourcesRequired ] attrib
+              val a_id : string wrap -> [> `Id ] attrib
+              val a_user_data :
+                string -> string wrap -> [> `User_data ] attrib
+              val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+              val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+              val a_xml_space :
+                [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+              val a_type : string wrap -> [> `Type ] attrib
+              val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+              val a_xlink_title : string wrap -> [> `Title ] attrib
+              val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+              val a_style : string wrap -> [> `Style ] attrib
+              val a_transform :
+                Svg_types.transforms wrap -> [> `Transform ] attrib
+              val a_viewBox :
+                Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+              val a_d : string wrap -> [> `D ] attrib
+              val a_pathLength : float wrap -> [> `PathLength ] attrib
+              val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+              val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+              val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+              val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+              val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+              val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+              val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+              val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+              val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+              val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+              val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+              val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+              val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+              val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+              val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+              val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+              val a_lengthAdjust :
+                [< `Spacing | `SpacingAndGlyphs ] wrap ->
+                [> `LengthAdjust ] attrib
+              val a_textLength :
+                Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+              val a_text_anchor :
+                [< `End | `Inherit | `Middle | `Start ] wrap ->
+                [> `Text_Anchor ] attrib
+              val a_text_decoration :
+                [< `Blink
+                 | `Inherit
+                 | `Line_through
+                 | `None
+                 | `Overline
+                 | `Underline ]
+                wrap -> [> `Text_Decoration ] attrib
+              val a_text_rendering :
+                [< `Auto
+                 | `GeometricPrecision
+                 | `Inherit
+                 | `OptimizeLegibility
+                 | `OptimizeSpeed ]
+                wrap -> [> `Text_Rendering ] attrib
+              val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+              val a_startOffset :
+                Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+              val a_method :
+                [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+              val a_spacing :
+                [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+              val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+              val a_format : string wrap -> [> `Format ] attrib
+              val a_markerUnits :
+                [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
+                [> `MarkerUnits ] attrib
+              val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+              val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+              val a_markerWidth :
+                Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+              val a_markerHeight :
+                Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+              val a_orient :
+                Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+              val a_local : string wrap -> [> `Local ] attrib
+              val a_rendering_intent :
+                [< `Absolute_colorimetric
+                 | `Auto
+                 | `Perceptual
+                 | `Relative_colorimetric
+                 | `Saturation ]
+                wrap -> [> `Rendering_Indent ] attrib
+              val a_gradientUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [ `GradientUnits ] attrib
+              val a_gradientTransform :
+                Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+              val a_spreadMethod :
+                [< `Pad | `Reflect | `Repeat ] wrap ->
+                [> `SpreadMethod ] attrib
+              val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+              val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+              val a_offset :
+                [< `Number of Svg_types.number
+                 | `Percentage of Svg_types.percentage ]
+                wrap -> [> `Offset ] attrib
+              val a_patternUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PatternUnits ] attrib
+              val a_patternContentUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PatternContentUnits ] attrib
+              val a_patternTransform :
+                Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+              val a_clipPathUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `ClipPathUnits ] attrib
+              val a_maskUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `MaskUnits ] attrib
+              val a_maskContentUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `MaskContentUnits ] attrib
+              val a_primitiveUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PrimitiveUnits ] attrib
+              val a_filterRes :
+                Svg_types.number_optional_number wrap ->
+                [> `FilterResUnits ] attrib
+              val a_result : string wrap -> [> `Result ] attrib
+              val a_in :
+                [< `BackgroundAlpha
+                 | `BackgroundImage
+                 | `FillPaint
+                 | `Ref of string
+                 | `SourceAlpha
+                 | `SourceGraphic
+                 | `StrokePaint ]
+                wrap -> [> `In ] attrib
+              val a_in2 :
+                [< `BackgroundAlpha
+                 | `BackgroundImage
+                 | `FillPaint
+                 | `Ref of string
+                 | `SourceAlpha
+                 | `SourceGraphic
+                 | `StrokePaint ]
+                wrap -> [> `In2 ] attrib
+              val a_azimuth : float wrap -> [> `Azimuth ] attrib
+              val a_elevation : float wrap -> [> `Elevation ] attrib
+              val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
+              val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
+              val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
+              val a_specularExponent :
+                float wrap -> [> `SpecularExponent ] attrib
+              val a_specularConstant :
+                float wrap -> [> `SpecularConstant ] attrib
+              val a_limitingConeAngle :
+                float wrap -> [> `LimitingConeAngle ] attrib
+              val a_mode :
+                [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
+                [> `Mode ] attrib
+              val a_feColorMatrix_type :
+                [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ]
+                wrap -> [> `Typefecolor ] attrib
+              val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
+              val a_transfer_type :
+                [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
+                [> `Type_transfert ] attrib
+              val a_tableValues :
+                Svg_types.numbers wrap -> [> `TableValues ] attrib
+              val a_intercept :
+                Svg_types.number wrap -> [> `Intercept ] attrib
+              val a_amplitude :
+                Svg_types.number wrap -> [> `Amplitude ] attrib
+              val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
+              val a_transfer_offset :
+                Svg_types.number wrap -> [> `Offset_transfer ] attrib
+              val a_feComposite_operator :
+                [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
+                [> `OperatorComposite ] attrib
+              val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
+              val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
+              val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
+              val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
+              val a_order :
+                Svg_types.number_optional_number wrap -> [> `Order ] attrib
+              val a_kernelMatrix :
+                Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
+              val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
+              val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
+              val a_kernelUnitLength :
+                Svg_types.number_optional_number wrap ->
+                [> `KernelUnitLength ] attrib
+              val a_targetX : int wrap -> [> `TargetX ] attrib
+              val a_targetY : int wrap -> [> `TargetY ] attrib
+              val a_edgeMode :
+                [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
+              val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
+              val a_surfaceScale :
+                Svg_types.number wrap -> [> `SurfaceScale ] attrib
+              val a_diffuseConstant :
+                Svg_types.number wrap -> [> `DiffuseConstant ] attrib
+              val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
+              val a_xChannelSelector :
+                [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
+              val a_yChannelSelector :
+                [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
+              val a_stdDeviation :
+                Svg_types.number_optional_number wrap ->
+                [> `StdDeviation ] attrib
+              val a_feMorphology_operator :
+                [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
+              val a_radius :
+                Svg_types.number_optional_number wrap -> [> `Radius ] attrib
+              val a_baseFrenquency :
+                Svg_types.number_optional_number wrap ->
+                [> `BaseFrequency ] attrib
+              val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
+              val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
+              val a_stitchTiles :
+                [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
+              val a_feTurbulence_type :
+                [< `FractalNoise | `Turbulence ] wrap ->
+                [> `TypeStitch ] attrib
+              val a_xlink_show :
+                [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
+              val a_xlink_actuate :
+                [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
+                [> `Xlink_actuate ] attrib
+              val a_target : string wrap -> [> `Xlink_target ] attrib
+              val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
+              val a_attributeName : string wrap -> [> `AttributeName ] attrib
+              val a_attributeType :
+                [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
+              val a_begin : string wrap -> [> `Begin ] attrib
+              val a_dur : string wrap -> [> `Dur ] attrib
+              val a_min : string wrap -> [> `Min ] attrib
+              val a_max : string wrap -> [> `Max ] attrib
+              val a_restart :
+                [< `Always | `Never | `WhenNotActive ] wrap ->
+                [> `Restart ] attrib
+              val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
+              val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
+              val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
+              val a_animation_fill :
+                [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+              val a_fill_rule :
+                Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
+              val a_calcMode :
+                [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
+                [> `CalcMode ] attrib
+              val a_animation_values :
+                Svg_types.strings wrap -> [> `Valuesanim ] attrib
+              val a_keyTimes :
+                Svg_types.strings wrap -> [> `KeyTimes ] attrib
+              val a_keySplines :
+                Svg_types.strings wrap -> [> `KeySplines ] attrib
+              val a_from : string wrap -> [> `From ] attrib
+              val a_to : string wrap -> [> `To ] attrib
+              val a_by : string wrap -> [> `By ] attrib
+              val a_additive :
+                [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
+              val a_accumulate :
+                [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
+              val a_keyPoints :
+                Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
+              val a_path : string wrap -> [> `Path ] attrib
+              val a_animateTransform_type :
+                [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
+                [ `Typeanimatetransform ] attrib
+              val a_horiz_origin_x :
+                Svg_types.number wrap -> [> `HorizOriginX ] attrib
+              val a_horiz_origin_y :
+                Svg_types.number wrap -> [> `HorizOriginY ] attrib
+              val a_horiz_adv_x :
+                Svg_types.number wrap -> [> `HorizAdvX ] attrib
+              val a_vert_origin_x :
+                Svg_types.number wrap -> [> `VertOriginX ] attrib
+              val a_vert_origin_y :
+                Svg_types.number wrap -> [> `VertOriginY ] attrib
+              val a_vert_adv_y :
+                Svg_types.number wrap -> [> `VertAdvY ] attrib
+              val a_unicode : string wrap -> [> `Unicode ] attrib
+              val a_glyph_name : string wrap -> [> `glyphname ] attrib
+              val a_orientation :
+                [< `H | `V ] wrap -> [> `Orientation ] attrib
+              val a_arabic_form :
+                [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
+                [> `Arabicform ] attrib
+              val a_lang : string wrap -> [> `Lang ] attrib
+              val a_u1 : string wrap -> [> `U1 ] attrib
+              val a_u2 : string wrap -> [> `U2 ] attrib
+              val a_g1 : string wrap -> [> `G1 ] attrib
+              val a_g2 : string wrap -> [> `G2 ] attrib
+              val a_k : string wrap -> [> `K ] attrib
+              val a_font_family : string wrap -> [> `Font_Family ] attrib
+              val a_font_style : string wrap -> [> `Font_Style ] attrib
+              val a_font_variant : string wrap -> [> `Font_Variant ] attrib
+              val a_font_weight : string wrap -> [> `Font_Weight ] attrib
+              val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
+              val a_font_size : string wrap -> [> `Font_Size ] attrib
+              val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
+              val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
+              val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
+              val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
+              val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
+              val a_cap_height :
+                Svg_types.number wrap -> [> `CapHeight ] attrib
+              val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
+              val a_accent_height :
+                Svg_types.number wrap -> [> `AccentHeight ] attrib
+              val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
+              val a_widths : string wrap -> [> `Widths ] attrib
+              val a_bbox : string wrap -> [> `Bbox ] attrib
+              val a_ideographic :
+                Svg_types.number wrap -> [> `Ideographic ] attrib
+              val a_alphabetic :
+                Svg_types.number wrap -> [> `Alphabetic ] attrib
+              val a_mathematical :
+                Svg_types.number wrap -> [> `Mathematical ] attrib
+              val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
+              val a_videographic :
+                Svg_types.number wrap -> [> `VIdeographic ] attrib
+              val a_v_alphabetic :
+                Svg_types.number wrap -> [> `VAlphabetic ] attrib
+              val a_v_mathematical :
+                Svg_types.number wrap -> [> `VMathematical ] attrib
+              val a_v_hanging :
+                Svg_types.number wrap -> [> `VHanging ] attrib
+              val a_underline_position :
+                Svg_types.number wrap -> [> `UnderlinePosition ] attrib
+              val a_underline_thickness :
+                Svg_types.number wrap -> [> `UnderlineThickness ] attrib
+              val a_strikethrough_position :
+                Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
+              val a_strikethrough_thickness :
+                Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
+              val a_overline_position :
+                Svg_types.number wrap -> [> `OverlinePosition ] attrib
+              val a_overline_thickness :
+                Svg_types.number wrap -> [> `OverlineThickness ] attrib
+              val a_string : string wrap -> [> `String ] attrib
+              val a_name : string wrap -> [> `Name ] attrib
+              val a_alignment_baseline :
+                [< `After_edge
+                 | `Alphabetic
+                 | `Auto
+                 | `Baseline
+                 | `Before_edge
+                 | `Central
+                 | `Hanging
+                 | `Ideographic
+                 | `Inherit
+                 | `Mathematical
+                 | `Middle
+                 | `Text_after_edge
+                 | `Text_before_edge ]
+                wrap -> [> `Alignment_Baseline ] attrib
+              val a_dominant_baseline :
+                [< `Alphabetic
+                 | `Auto
+                 | `Central
+                 | `Hanging
+                 | `Ideographic
+                 | `Inherit
+                 | `Mathematical
+                 | `Middle
+                 | `No_change
+                 | `Reset_size
+                 | `Text_after_edge
+                 | `Text_before_edge
+                 | `Use_script ]
+                wrap -> [> `Dominant_Baseline ] attrib
+              val a_stop_color :
+                Svg_types.color wrap -> [> `Stop_Color ] attrib
+              val a_stop_opacity :
+                Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+              val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+              val a_stroke_width :
+                Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+              val a_stroke_linecap :
+                [< `Butt | `Round | `Square ] wrap ->
+                [> `Stroke_Linecap ] attrib
+              val a_stroke_linejoin :
+                [< `Bever | `Miter | `Round ] wrap ->
+                [> `Stroke_Linejoin ] attrib
+              val a_stroke_miterlimit :
+                float wrap -> [> `Stroke_Miterlimit ] attrib
+              val a_stroke_dasharray :
+                Svg_types.Unit.length list wrap ->
+                [> `Stroke_Dasharray ] attrib
+              val a_stroke_dashoffset :
+                Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+              val a_stroke_opacity :
+                float wrap -> [> `Stroke_Opacity ] attrib
+              val txt : string wrap -> [> Svg_types.txt ] elt
+              val svg :
+                ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
+                 [> Svg_types.svg ])
+                star
+              val g :
+                ([< Svg_types.g_attr ], [< Svg_types.g_content ],
+                 [> Svg_types.g ])
+                star
+              val defs :
+                ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
+                 [> Svg_types.defs ])
+                star
+              val desc :
+                ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
+                 [> Svg_types.desc ])
+                unary
+              val title :
+                ([< Svg_types.title_attr ], [< Svg_types.title_content ],
+                 [> Svg_types.title ])
+                unary
+              val symbol :
+                ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
+                 [> Svg_types.symbol ])
+                star
+              val use :
+                ([< Svg_types.use_attr ], [< Svg_types.use_content ],
+                 [> Svg_types.use ])
+                star
+              val image :
+                ([< Svg_types.image_attr ], [< Svg_types.image_content ],
+                 [> Svg_types.image ])
+                star
+              val switch :
+                ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
+                 [> Svg_types.switch ])
+                star
+              val style :
+                ([< Svg_types.style_attr ], [< Svg_types.style_content ],
+                 [> Svg_types.style ])
+                unary
+              val path :
+                ([< Svg_types.path_attr ], [< Svg_types.path_content ],
+                 [> Svg_types.path ])
+                star
+              val rect :
+                ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
+                 [> Svg_types.rect ])
+                star
+              val circle :
+                ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
+                 [> Svg_types.circle ])
+                star
+              val ellipse :
+                ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
+                 [> Svg_types.ellipse ])
+                star
+              val line :
+                ([< Svg_types.line_attr ], [< Svg_types.line_content ],
+                 [> Svg_types.line ])
+                star
+              val polyline :
+                ([< Svg_types.polyline_attr ],
+                 [< Svg_types.polyline_content ], [> Svg_types.polyline ])
+                star
+              val polygon :
+                ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
+                 [> Svg_types.polygon ])
+                star
+              val text :
+                ([< Svg_types.text_attr ], [< Svg_types.text_content ],
+                 [> Svg_types.text ])
+                star
+              val tspan :
+                ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
+                 [> Svg_types.tspan ])
+                star
+              val tref :
+                ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
+                 [> Svg_types.tref ])
+                star
+              val textPath :
+                ([< Svg_types.textpath_attr ],
+                 [< Svg_types.textpath_content ], [> Svg_types.textpath ])
+                star
+              val altGlyph :
+                ([< Svg_types.altglyph_attr ],
+                 [< Svg_types.altglyph_content ], [> Svg_types.altglyph ])
+                unary
+              type altglyphdef_content =
+                  [ `Item of Svg_types.altglyphitem elt list
+                  | `Ref of Svg_types.glyphref elt list ]
+              val altGlyphDef :
+                ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
+                 [> Svg_types.altglyphdef ])
+                unary
+              val altGlyphItem :
+                ([< Svg_types.altglyphitem_attr ],
+                 [< Svg_types.altglyphitem_content ],
+                 [> Svg_types.altglyphitem ])
+                star
+              val glyphRef :
+                ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ])
+                nullary
+              val marker :
+                ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
+                 [> Svg_types.marker ])
+                star
+              val color_profile :
+                ([< Svg_types.colorprofile_attr ],
+                 [< Svg_types.colorprofile_content ],
+                 [> Svg_types.colorprofile ])
+                star
+              val linearGradient :
+                ([< Svg_types.lineargradient_attr ],
+                 [< Svg_types.lineargradient_content ],
+                 [> Svg_types.lineargradient ])
+                star
+              val radialGradient :
+                ([< Svg_types.radialgradient_attr ],
+                 [< Svg_types.radialgradient_content ],
+                 [> Svg_types.radialgradient ])
+                star
+              val stop :
+                ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
+                 [> Svg_types.stop ])
+                star
+              val pattern :
+                ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
+                 [> Svg_types.pattern ])
+                star
+              val clipPath :
+                ([< Svg_types.clippath_attr ],
+                 [< Svg_types.clippath_content ], [> Svg_types.clippath ])
+                star
+              val filter :
+                ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
+                 [> Svg_types.filter ])
+                star
+              val feDistantLight :
+                ([< Svg_types.fedistantlight_attr ],
+                 [< Svg_types.fedistantlight_content ],
+                 [> Svg_types.fedistantlight ])
+                star
+              val fePointLight :
+                ([< Svg_types.fepointlight_attr ],
+                 [< Svg_types.fepointlight_content ],
+                 [> Svg_types.fepointlight ])
+                star
+              val feSpotLight :
+                ([< Svg_types.fespotlight_attr ],
+                 [< Svg_types.fespotlight_content ],
+                 [> Svg_types.fespotlight ])
+                star
+              val feBlend :
+                ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
+                 [> Svg_types.feblend ])
+                star
+              val feColorMatrix :
+                ([< Svg_types.fecolormatrix_attr ],
+                 [< Svg_types.fecolormatrix_content ],
+                 [> Svg_types.fecolormatrix ])
+                star
+              val feComponentTransfer :
+                ([< Svg_types.fecomponenttransfer_attr ],
+                 [< Svg_types.fecomponenttransfer_content ],
+                 [> Svg_types.fecomponenttransfer ])
+                star
+              val feFuncA :
+                ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
+                 [> Svg_types.fefunca ])
+                star
+              val feFuncG :
+                ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
+                 [> Svg_types.fefuncg ])
+                star
+              val feFuncB :
+                ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
+                 [> Svg_types.fefuncb ])
+                star
+              val feFuncR :
+                ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
+                 [> Svg_types.fefuncr ])
+                star
+              val feComposite :
+                ([< Svg_types.fecomposite_attr ],
+                 [< Svg_types.fecomposite_content ],
+                 [> Svg_types.fecomposite ])
+                star
+              val feConvolveMatrix :
+                ([< Svg_types.feconvolvematrix_attr ],
+                 [< Svg_types.feconvolvematrix_content ],
+                 [> Svg_types.feconvolvematrix ])
+                star
+              val feDiffuseLighting :
+                ([< Svg_types.fediffuselighting_attr ],
+                 [< Svg_types.fediffuselighting_content ],
+                 [> Svg_types.fediffuselighting ])
+                star
+              val feDisplacementMap :
+                ([< Svg_types.fedisplacementmap_attr ],
+                 [< Svg_types.fedisplacementmap_content ],
+                 [> Svg_types.fedisplacementmap ])
+                star
+              val feFlood :
+                ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
+                 [> Svg_types.feflood ])
+                star
+              val feGaussianBlur :
+                ([< Svg_types.fegaussianblur_attr ],
+                 [< Svg_types.fegaussianblur_content ],
+                 [> Svg_types.fegaussianblur ])
+                star
+              val feImage :
+                ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
+                 [> Svg_types.feimage ])
+                star
+              val feMerge :
+                ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
+                 [> Svg_types.femerge ])
+                star
+              val feMorphology :
+                ([< Svg_types.femorphology_attr ],
+                 [< Svg_types.femorphology_content ],
+                 [> Svg_types.femorphology ])
+                star
+              val feOffset :
+                ([< Svg_types.feoffset_attr ],
+                 [< Svg_types.feoffset_content ], [> Svg_types.feoffset ])
+                star
+              val feSpecularLighting :
+                ([< Svg_types.fespecularlighting_attr ],
+                 [< Svg_types.fespecularlighting_content ],
+                 [> Svg_types.fespecularlighting ])
+                star
+              val feTile :
+                ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
+                 [> Svg_types.fetile ])
+                star
+              val feTurbulence :
+                ([< Svg_types.feturbulence_attr ],
+                 [< Svg_types.feturbulence_content ],
+                 [> Svg_types.feturbulence ])
+                star
+              val cursor :
+                ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
+                 [> Svg_types.cursor ])
+                star
+              val a :
+                ([< Svg_types.a_attr ], [< Svg_types.a_content ],
+                 [> Svg_types.a ])
+                star
+              val view :
+                ([< Svg_types.view_attr ], [< Svg_types.view_content ],
+                 [> Svg_types.view ])
+                star
+              val script :
+                ([< Svg_types.script_attr ], [< Svg_types.script_content ],
+                 [> Svg_types.script ])
+                unary
+              val animate :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
+                star
+              val set :
+                ([< Svg_types.set_attr ], [< Svg_types.set_content ],
+                 [> Svg_types.set ])
+                star
+              val animateMotion :
+                ([< Svg_types.animatemotion_attr ],
+                 [< Svg_types.animatemotion_content ],
+                 [> Svg_types.animatemotion ])
+                star
+              val mpath :
+                ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
+                 [> Svg_types.mpath ])
+                star
+              val animateColor :
+                ([< Svg_types.animatecolor_attr ],
+                 [< Svg_types.animatecolor_content ],
+                 [> Svg_types.animatecolor ])
+                star
+              val animateTransform :
+                ([< Svg_types.animatetransform_attr ],
+                 [< Svg_types.animatetransform_content ],
+                 [> Svg_types.animatetransform ])
+                star
+              val font :
+                ([< Svg_types.font_attr ], [< Svg_types.font_content ],
+                 [> Svg_types.font ])
+                star
+              val glyph :
+                ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
+                 [> Svg_types.glyph ])
+                star
+              val missing_glyph :
+                ([< Svg_types.missingglyph_attr ],
+                 [< Svg_types.missingglyph_content ],
+                 [> Svg_types.missingglyph ])
+                star
+              val hkern :
+                ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
+              val vkern :
+                ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
+              val font_face :
+                ([< Svg_types.font_face_attr ], [> Svg_types.font_face ])
+                nullary
+              val font_face_src :
+                ([< Svg_types.font_face_src_attr ],
+                 [< Svg_types.font_face_src_content ],
+                 [> Svg_types.font_face_src ])
+                star
+              val font_face_uri :
+                ([< Svg_types.font_face_uri_attr ],
+                 [< Svg_types.font_face_uri_content ],
+                 [> Svg_types.font_face_uri ])
+                star
+              val font_face_format :
+                ([< Svg_types.font_face_format_attr ],
+                 [> Svg_types.font_face_format ])
+                nullary
+              val font_face_name :
+                ([< Svg_types.font_face_name_attr ],
+                 [> Svg_types.font_face_name ])
+                nullary
+              val metadata :
+                ?a:Svg_types.metadata_attr attrib list ->
+                Xml.elt list_wrap -> [> Svg_types.metadata ] elt
+              val foreignObject :
+                ?a:Svg_types.foreignobject_attr attrib list ->
+                Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+              val pcdata : string wrap -> [> Svg_types.txt ] elt
+              val animation :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
+                star
+              val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+              val tot : Xml.elt -> 'a elt
+              val totl : Xml.elt list_wrap -> 'a elt list_wrap
+              val toelt : 'a elt -> Xml.elt
+              val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+              val doc_toelt : doc -> Xml.elt
+              val to_xmlattribs : 'a attrib list -> Xml.attrib list
+              val to_attrib : Xml.attrib -> 'a attrib
+              module Unsafe :
+                sig
+                  val data : string wrap -> 'a elt
+                  val node :
+                    string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+                  val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+                  val coerce_elt : 'a elt -> 'b elt
+                  val string_attrib : string -> string wrap -> 'a attrib
+                  val float_attrib : string -> float wrap -> 'a attrib
+                  val int_attrib : string -> int wrap -> 'a attrib
+                  val uri_attrib : string -> uri wrap -> 'a attrib
+                  val space_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                  val comma_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                end
+              val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+              val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+              val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+              val a_onend : string -> [> `OnEnd ] Raw'.attrib
+              val a_onerror : string -> [> `OnError ] Raw'.attrib
+              val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+              val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+              val a_onload : string -> [> `OnLoad ] Raw'.attrib
+              val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+              val a_onresize : string -> [> `OnResize ] Raw'.attrib
+              val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+              val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+              val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+              val a_onclick : string -> [> `OnClick ] Raw'.attrib
+              val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+              val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+              val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+              val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+              val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+              val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+              val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+              val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+              val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+            end
+          type 'a elt = 'a elt
+          type doc = [ `Svg ] elt
+          type 'a attrib = 'a attrib
+          module Xml :
+            sig
+              module W :
+                sig
+                  type 'a t = 'a Xml.W.t
+                  val return : 'a -> 'a t
+                  type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                  type 'a tlist = 'a Xml.W.tlist
+                  val nil : unit -> 'a tlist
+                  val singleton : 'a t -> 'a tlist
+                  val cons : 'a t -> 'a tlist -> 'a tlist
+                  val append : 'a tlist -> 'a tlist -> 'a tlist
+                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                end
+              type 'a wrap = 'a W.t
+              type 'a list_wrap = 'a W.tlist
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) W.ft
+              val uri_of_string : (string, uri) W.ft
+              type aname = string
+              type event_handler = Xml.event_handler
+              type mouse_event_handler = Xml.mouse_event_handler
+              type keyboard_event_handler = Xml.keyboard_event_handler
+              type touch_event_handler = Xml.touch_event_handler
+              type attrib = Xml.attrib
+              val float_attrib : aname -> float wrap -> attrib
+              val int_attrib : aname -> int wrap -> attrib
+              val string_attrib : aname -> string wrap -> attrib
+              val space_sep_attrib : aname -> string list wrap -> attrib
+              val comma_sep_attrib : aname -> string list wrap -> attrib
+              val event_handler_attrib : aname -> event_handler -> attrib
+              val mouse_event_handler_attrib :
+                aname -> mouse_event_handler -> attrib
+              val keyboard_event_handler_attrib :
+                aname -> keyboard_event_handler -> attrib
+              val touch_event_handler_attrib :
+                aname -> touch_event_handler -> attrib
+              val uri_attrib : aname -> uri wrap -> attrib
+              val uris_attrib : aname -> uri list wrap -> attrib
+              type elt = Xml.elt
+              type ename = string
+              val empty : unit -> elt
+              val comment : string -> elt
+              val pcdata : string wrap -> elt
+              val encodedpcdata : string wrap -> elt
+              val entity : string -> elt
+              val leaf : ?a:attrib list -> ename -> elt
+              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+              val cdata : string -> elt
+              val cdata_script : string -> elt
+              val cdata_style : string -> elt
+            end
+          type 'a wrap = 'a Xml.W.t
+          type 'a list_wrap = 'a Xml.W.tlist
+          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+          type ('a, 'b, 'c) unary =
+              ?a:'a attrib list -> 'b elt wrap -> 'c elt
+          type ('a, 'b, 'c) star =
+              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          module Info : Xml_sigs.Info
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) Xml.W.ft
+          val uri_of_string : (string, uri) Xml.W.ft
+          val a_version : string wrap -> [> `Version ] attrib
+          val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+          val a_x : Svg_types.coord wrap -> [> `X ] attrib
+          val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+          val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+          val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
+          val a_preserveAspectRatio :
+            string wrap -> [> `PreserveAspectRatio ] attrib
+          val a_contentScriptType :
+            string wrap -> [> `ContentScriptType ] attrib
+          val a_contentStyleType :
+            string wrap -> [> `ContentStyleType ] attrib
+          val a_zoomAndPan :
+            [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+          val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+          val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+          val a_requiredFeatures :
+            Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+          val a_requiredExtensions :
+            Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+          val a_systemLanguage :
+            Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+          val a_externalRessourcesRequired :
+            bool wrap -> [> `ExternalRessourcesRequired ] attrib
+          val a_id : string wrap -> [> `Id ] attrib
+          val a_user_data : string -> string wrap -> [> `User_data ] attrib
+          val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+          val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+          val a_xml_space :
+            [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+          val a_type : string wrap -> [> `Type ] attrib
+          val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+          val a_xlink_title : string wrap -> [> `Title ] attrib
+          val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+          val a_style : string wrap -> [> `Style ] attrib
+          val a_transform :
+            Svg_types.transforms wrap -> [> `Transform ] attrib
+          val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+          val a_d : string wrap -> [> `D ] attrib
+          val a_pathLength : float wrap -> [> `PathLength ] attrib
+          val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+          val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+          val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+          val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+          val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+          val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+          val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+          val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+          val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+          val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+          val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+          val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+          val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+          val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+          val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+          val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+          val a_lengthAdjust :
+            [< `Spacing | `SpacingAndGlyphs ] wrap ->
+            [> `LengthAdjust ] attrib
+          val a_textLength :
+            Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+          val a_text_anchor :
+            [< `End | `Inherit | `Middle | `Start ] wrap ->
+            [> `Text_Anchor ] attrib
+          val a_text_decoration :
+            [< `Blink
+             | `Inherit
+             | `Line_through
+             | `None
+             | `Overline
+             | `Underline ]
+            wrap -> [> `Text_Decoration ] attrib
+          val a_text_rendering :
+            [< `Auto
+             | `GeometricPrecision
+             | `Inherit
+             | `OptimizeLegibility
+             | `OptimizeSpeed ]
+            wrap -> [> `Text_Rendering ] attrib
+          val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+          val a_startOffset :
+            Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+          val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+          val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+          val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+          val a_format : string wrap -> [> `Format ] attrib
+          val a_markerUnits :
+            [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
+            [> `MarkerUnits ] attrib
+          val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+          val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+          val a_markerWidth :
+            Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+          val a_markerHeight :
+            Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+          val a_orient :
+            Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+          val a_local : string wrap -> [> `Local ] attrib
+          val a_rendering_intent :
+            [< `Absolute_colorimetric
+             | `Auto
+             | `Perceptual
+             | `Relative_colorimetric
+             | `Saturation ]
+            wrap -> [> `Rendering_Indent ] attrib
+          val a_gradientUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [ `GradientUnits ] attrib
+          val a_gradientTransform :
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+          val a_spreadMethod :
+            [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
+          val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+          val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+          val a_offset :
+            [< `Number of Svg_types.number
+             | `Percentage of Svg_types.percentage ]
+            wrap -> [> `Offset ] attrib
+          val a_patternUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PatternUnits ] attrib
+          val a_patternContentUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PatternContentUnits ] attrib
+          val a_patternTransform :
+            Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+          val a_clipPathUnits :
             [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
             [> `ClipPathUnits ] attrib
           val a_maskUnits :
@@ -1438,6 +2349,8 @@
           val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
           val a_animation_fill :
             [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
           val a_calcMode :
             [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
             [> `CalcMode ] attrib
@@ -1861,9 +2774,9 @@
             ([< Svg_types.script_attr ], [< Svg_types.script_content ],
              [> Svg_types.script ])
             unary
-          val animation :
-            ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-             [> Svg_types.animation ])
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
             star
           val set :
             ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -1932,6 +2845,10 @@
             ?a:Svg_types.foreignobject_attr attrib list ->
             Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
           val pcdata : string wrap -> [> Svg_types.txt ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
           val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
           val tot : Xml.elt -> 'a elt
           val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -1954,9 +2871,886 @@
               val space_sep_attrib : string -> string list wrap -> 'a attrib
               val comma_sep_attrib : string -> string list wrap -> 'a attrib
             end
-        end
-      module D :
-        sig
+        end
+      module D :
+        sig
+          module Raw' :
+            sig
+              type 'a elt = 'a elt
+              type doc = [ `Svg ] elt
+              type 'a attrib = 'a attrib
+              module Xml :
+                sig
+                  module W :
+                    sig
+                      type 'a t = 'a Xml.W.t
+                      val return : 'a -> 'a t
+                      type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                      val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                      type 'a tlist = 'a Xml.W.tlist
+                      val nil : unit -> 'a tlist
+                      val singleton : 'a t -> 'a tlist
+                      val cons : 'a t -> 'a tlist -> 'a tlist
+                      val append : 'a tlist -> 'a tlist -> 'a tlist
+                      val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                    end
+                  type 'a wrap = 'a W.t
+                  type 'a list_wrap = 'a W.tlist
+                  type uri = Xml.uri
+                  val string_of_uri : (uri, string) W.ft
+                  val uri_of_string : (string, uri) W.ft
+                  type aname = string
+                  type event_handler = Xml.event_handler
+                  type mouse_event_handler = Xml.mouse_event_handler
+                  type keyboard_event_handler = Xml.keyboard_event_handler
+                  type touch_event_handler = Xml.touch_event_handler
+                  type attrib = Xml.attrib
+                  val float_attrib : aname -> float wrap -> attrib
+                  val int_attrib : aname -> int wrap -> attrib
+                  val string_attrib : aname -> string wrap -> attrib
+                  val space_sep_attrib : aname -> string list wrap -> attrib
+                  val comma_sep_attrib : aname -> string list wrap -> attrib
+                  val event_handler_attrib : aname -> event_handler -> attrib
+                  val mouse_event_handler_attrib :
+                    aname -> mouse_event_handler -> attrib
+                  val keyboard_event_handler_attrib :
+                    aname -> keyboard_event_handler -> attrib
+                  val touch_event_handler_attrib :
+                    aname -> touch_event_handler -> attrib
+                  val uri_attrib : aname -> uri wrap -> attrib
+                  val uris_attrib : aname -> uri list wrap -> attrib
+                  type elt = Xml.elt
+                  type ename = string
+                  val empty : unit -> elt
+                  val comment : string -> elt
+                  val pcdata : string wrap -> elt
+                  val encodedpcdata : string wrap -> elt
+                  val entity : string -> elt
+                  val leaf : ?a:attrib list -> ename -> elt
+                  val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+                  val cdata : string -> elt
+                  val cdata_script : string -> elt
+                  val cdata_style : string -> elt
+                end
+              type 'a wrap = 'a Xml.W.t
+              type 'a list_wrap = 'a Xml.W.tlist
+              type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+              type ('a, 'b, 'c) unary =
+                  ?a:'a attrib list -> 'b elt wrap -> 'c elt
+              type ('a, 'b, 'c) star =
+                  ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              module Info : Xml_sigs.Info
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) Xml.W.ft
+              val uri_of_string : (string, uri) Xml.W.ft
+              val a_version : string wrap -> [> `Version ] attrib
+              val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+              val a_x : Svg_types.coord wrap -> [> `X ] attrib
+              val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+              val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+              val a_height :
+                Svg_types.Unit.length wrap -> [> `Height ] attrib
+              val a_preserveAspectRatio :
+                string wrap -> [> `PreserveAspectRatio ] attrib
+              val a_contentScriptType :
+                string wrap -> [> `ContentScriptType ] attrib
+              val a_contentStyleType :
+                string wrap -> [> `ContentStyleType ] attrib
+              val a_zoomAndPan :
+                [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+              val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+              val a_xlink_href :
+                Svg_types.iri wrap -> [> `Xlink_href ] attrib
+              val a_requiredFeatures :
+                Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+              val a_requiredExtensions :
+                Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+              val a_systemLanguage :
+                Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+              val a_externalRessourcesRequired :
+                bool wrap -> [> `ExternalRessourcesRequired ] attrib
+              val a_id : string wrap -> [> `Id ] attrib
+              val a_user_data :
+                string -> string wrap -> [> `User_data ] attrib
+              val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+              val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+              val a_xml_space :
+                [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+              val a_type : string wrap -> [> `Type ] attrib
+              val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+              val a_xlink_title : string wrap -> [> `Title ] attrib
+              val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+              val a_style : string wrap -> [> `Style ] attrib
+              val a_transform :
+                Svg_types.transforms wrap -> [> `Transform ] attrib
+              val a_viewBox :
+                Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+              val a_d : string wrap -> [> `D ] attrib
+              val a_pathLength : float wrap -> [> `PathLength ] attrib
+              val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+              val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+              val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+              val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+              val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+              val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+              val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+              val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+              val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+              val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+              val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+              val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+              val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+              val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+              val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+              val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+              val a_lengthAdjust :
+                [< `Spacing | `SpacingAndGlyphs ] wrap ->
+                [> `LengthAdjust ] attrib
+              val a_textLength :
+                Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+              val a_text_anchor :
+                [< `End | `Inherit | `Middle | `Start ] wrap ->
+                [> `Text_Anchor ] attrib
+              val a_text_decoration :
+                [< `Blink
+                 | `Inherit
+                 | `Line_through
+                 | `None
+                 | `Overline
+                 | `Underline ]
+                wrap -> [> `Text_Decoration ] attrib
+              val a_text_rendering :
+                [< `Auto
+                 | `GeometricPrecision
+                 | `Inherit
+                 | `OptimizeLegibility
+                 | `OptimizeSpeed ]
+                wrap -> [> `Text_Rendering ] attrib
+              val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+              val a_startOffset :
+                Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+              val a_method :
+                [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+              val a_spacing :
+                [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+              val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+              val a_format : string wrap -> [> `Format ] attrib
+              val a_markerUnits :
+                [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
+                [> `MarkerUnits ] attrib
+              val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+              val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+              val a_markerWidth :
+                Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+              val a_markerHeight :
+                Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+              val a_orient :
+                Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+              val a_local : string wrap -> [> `Local ] attrib
+              val a_rendering_intent :
+                [< `Absolute_colorimetric
+                 | `Auto
+                 | `Perceptual
+                 | `Relative_colorimetric
+                 | `Saturation ]
+                wrap -> [> `Rendering_Indent ] attrib
+              val a_gradientUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [ `GradientUnits ] attrib
+              val a_gradientTransform :
+                Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+              val a_spreadMethod :
+                [< `Pad | `Reflect | `Repeat ] wrap ->
+                [> `SpreadMethod ] attrib
+              val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+              val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+              val a_offset :
+                [< `Number of Svg_types.number
+                 | `Percentage of Svg_types.percentage ]
+                wrap -> [> `Offset ] attrib
+              val a_patternUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PatternUnits ] attrib
+              val a_patternContentUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PatternContentUnits ] attrib
+              val a_patternTransform :
+                Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+              val a_clipPathUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `ClipPathUnits ] attrib
+              val a_maskUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `MaskUnits ] attrib
+              val a_maskContentUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `MaskContentUnits ] attrib
+              val a_primitiveUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PrimitiveUnits ] attrib
+              val a_filterRes :
+                Svg_types.number_optional_number wrap ->
+                [> `FilterResUnits ] attrib
+              val a_result : string wrap -> [> `Result ] attrib
+              val a_in :
+                [< `BackgroundAlpha
+                 | `BackgroundImage
+                 | `FillPaint
+                 | `Ref of string
+                 | `SourceAlpha
+                 | `SourceGraphic
+                 | `StrokePaint ]
+                wrap -> [> `In ] attrib
+              val a_in2 :
+                [< `BackgroundAlpha
+                 | `BackgroundImage
+                 | `FillPaint
+                 | `Ref of string
+                 | `SourceAlpha
+                 | `SourceGraphic
+                 | `StrokePaint ]
+                wrap -> [> `In2 ] attrib
+              val a_azimuth : float wrap -> [> `Azimuth ] attrib
+              val a_elevation : float wrap -> [> `Elevation ] attrib
+              val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
+              val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
+              val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
+              val a_specularExponent :
+                float wrap -> [> `SpecularExponent ] attrib
+              val a_specularConstant :
+                float wrap -> [> `SpecularConstant ] attrib
+              val a_limitingConeAngle :
+                float wrap -> [> `LimitingConeAngle ] attrib
+              val a_mode :
+                [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
+                [> `Mode ] attrib
+              val a_feColorMatrix_type :
+                [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ]
+                wrap -> [> `Typefecolor ] attrib
+              val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
+              val a_transfer_type :
+                [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
+                [> `Type_transfert ] attrib
+              val a_tableValues :
+                Svg_types.numbers wrap -> [> `TableValues ] attrib
+              val a_intercept :
+                Svg_types.number wrap -> [> `Intercept ] attrib
+              val a_amplitude :
+                Svg_types.number wrap -> [> `Amplitude ] attrib
+              val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
+              val a_transfer_offset :
+                Svg_types.number wrap -> [> `Offset_transfer ] attrib
+              val a_feComposite_operator :
+                [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
+                [> `OperatorComposite ] attrib
+              val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
+              val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
+              val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
+              val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
+              val a_order :
+                Svg_types.number_optional_number wrap -> [> `Order ] attrib
+              val a_kernelMatrix :
+                Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
+              val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
+              val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
+              val a_kernelUnitLength :
+                Svg_types.number_optional_number wrap ->
+                [> `KernelUnitLength ] attrib
+              val a_targetX : int wrap -> [> `TargetX ] attrib
+              val a_targetY : int wrap -> [> `TargetY ] attrib
+              val a_edgeMode :
+                [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
+              val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
+              val a_surfaceScale :
+                Svg_types.number wrap -> [> `SurfaceScale ] attrib
+              val a_diffuseConstant :
+                Svg_types.number wrap -> [> `DiffuseConstant ] attrib
+              val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
+              val a_xChannelSelector :
+                [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
+              val a_yChannelSelector :
+                [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
+              val a_stdDeviation :
+                Svg_types.number_optional_number wrap ->
+                [> `StdDeviation ] attrib
+              val a_feMorphology_operator :
+                [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
+              val a_radius :
+                Svg_types.number_optional_number wrap -> [> `Radius ] attrib
+              val a_baseFrenquency :
+                Svg_types.number_optional_number wrap ->
+                [> `BaseFrequency ] attrib
+              val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
+              val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
+              val a_stitchTiles :
+                [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
+              val a_feTurbulence_type :
+                [< `FractalNoise | `Turbulence ] wrap ->
+                [> `TypeStitch ] attrib
+              val a_xlink_show :
+                [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
+              val a_xlink_actuate :
+                [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
+                [> `Xlink_actuate ] attrib
+              val a_target : string wrap -> [> `Xlink_target ] attrib
+              val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
+              val a_attributeName : string wrap -> [> `AttributeName ] attrib
+              val a_attributeType :
+                [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
+              val a_begin : string wrap -> [> `Begin ] attrib
+              val a_dur : string wrap -> [> `Dur ] attrib
+              val a_min : string wrap -> [> `Min ] attrib
+              val a_max : string wrap -> [> `Max ] attrib
+              val a_restart :
+                [< `Always | `Never | `WhenNotActive ] wrap ->
+                [> `Restart ] attrib
+              val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
+              val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
+              val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
+              val a_animation_fill :
+                [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+              val a_fill_rule :
+                Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
+              val a_calcMode :
+                [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
+                [> `CalcMode ] attrib
+              val a_animation_values :
+                Svg_types.strings wrap -> [> `Valuesanim ] attrib
+              val a_keyTimes :
+                Svg_types.strings wrap -> [> `KeyTimes ] attrib
+              val a_keySplines :
+                Svg_types.strings wrap -> [> `KeySplines ] attrib
+              val a_from : string wrap -> [> `From ] attrib
+              val a_to : string wrap -> [> `To ] attrib
+              val a_by : string wrap -> [> `By ] attrib
+              val a_additive :
+                [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
+              val a_accumulate :
+                [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
+              val a_keyPoints :
+                Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
+              val a_path : string wrap -> [> `Path ] attrib
+              val a_animateTransform_type :
+                [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
+                [ `Typeanimatetransform ] attrib
+              val a_horiz_origin_x :
+                Svg_types.number wrap -> [> `HorizOriginX ] attrib
+              val a_horiz_origin_y :
+                Svg_types.number wrap -> [> `HorizOriginY ] attrib
+              val a_horiz_adv_x :
+                Svg_types.number wrap -> [> `HorizAdvX ] attrib
+              val a_vert_origin_x :
+                Svg_types.number wrap -> [> `VertOriginX ] attrib
+              val a_vert_origin_y :
+                Svg_types.number wrap -> [> `VertOriginY ] attrib
+              val a_vert_adv_y :
+                Svg_types.number wrap -> [> `VertAdvY ] attrib
+              val a_unicode : string wrap -> [> `Unicode ] attrib
+              val a_glyph_name : string wrap -> [> `glyphname ] attrib
+              val a_orientation :
+                [< `H | `V ] wrap -> [> `Orientation ] attrib
+              val a_arabic_form :
+                [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
+                [> `Arabicform ] attrib
+              val a_lang : string wrap -> [> `Lang ] attrib
+              val a_u1 : string wrap -> [> `U1 ] attrib
+              val a_u2 : string wrap -> [> `U2 ] attrib
+              val a_g1 : string wrap -> [> `G1 ] attrib
+              val a_g2 : string wrap -> [> `G2 ] attrib
+              val a_k : string wrap -> [> `K ] attrib
+              val a_font_family : string wrap -> [> `Font_Family ] attrib
+              val a_font_style : string wrap -> [> `Font_Style ] attrib
+              val a_font_variant : string wrap -> [> `Font_Variant ] attrib
+              val a_font_weight : string wrap -> [> `Font_Weight ] attrib
+              val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
+              val a_font_size : string wrap -> [> `Font_Size ] attrib
+              val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
+              val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
+              val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
+              val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
+              val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
+              val a_cap_height :
+                Svg_types.number wrap -> [> `CapHeight ] attrib
+              val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
+              val a_accent_height :
+                Svg_types.number wrap -> [> `AccentHeight ] attrib
+              val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
+              val a_widths : string wrap -> [> `Widths ] attrib
+              val a_bbox : string wrap -> [> `Bbox ] attrib
+              val a_ideographic :
+                Svg_types.number wrap -> [> `Ideographic ] attrib
+              val a_alphabetic :
+                Svg_types.number wrap -> [> `Alphabetic ] attrib
+              val a_mathematical :
+                Svg_types.number wrap -> [> `Mathematical ] attrib
+              val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
+              val a_videographic :
+                Svg_types.number wrap -> [> `VIdeographic ] attrib
+              val a_v_alphabetic :
+                Svg_types.number wrap -> [> `VAlphabetic ] attrib
+              val a_v_mathematical :
+                Svg_types.number wrap -> [> `VMathematical ] attrib
+              val a_v_hanging :
+                Svg_types.number wrap -> [> `VHanging ] attrib
+              val a_underline_position :
+                Svg_types.number wrap -> [> `UnderlinePosition ] attrib
+              val a_underline_thickness :
+                Svg_types.number wrap -> [> `UnderlineThickness ] attrib
+              val a_strikethrough_position :
+                Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
+              val a_strikethrough_thickness :
+                Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
+              val a_overline_position :
+                Svg_types.number wrap -> [> `OverlinePosition ] attrib
+              val a_overline_thickness :
+                Svg_types.number wrap -> [> `OverlineThickness ] attrib
+              val a_string : string wrap -> [> `String ] attrib
+              val a_name : string wrap -> [> `Name ] attrib
+              val a_alignment_baseline :
+                [< `After_edge
+                 | `Alphabetic
+                 | `Auto
+                 | `Baseline
+                 | `Before_edge
+                 | `Central
+                 | `Hanging
+                 | `Ideographic
+                 | `Inherit
+                 | `Mathematical
+                 | `Middle
+                 | `Text_after_edge
+                 | `Text_before_edge ]
+                wrap -> [> `Alignment_Baseline ] attrib
+              val a_dominant_baseline :
+                [< `Alphabetic
+                 | `Auto
+                 | `Central
+                 | `Hanging
+                 | `Ideographic
+                 | `Inherit
+                 | `Mathematical
+                 | `Middle
+                 | `No_change
+                 | `Reset_size
+                 | `Text_after_edge
+                 | `Text_before_edge
+                 | `Use_script ]
+                wrap -> [> `Dominant_Baseline ] attrib
+              val a_stop_color :
+                Svg_types.color wrap -> [> `Stop_Color ] attrib
+              val a_stop_opacity :
+                Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+              val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+              val a_stroke_width :
+                Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+              val a_stroke_linecap :
+                [< `Butt | `Round | `Square ] wrap ->
+                [> `Stroke_Linecap ] attrib
+              val a_stroke_linejoin :
+                [< `Bever | `Miter | `Round ] wrap ->
+                [> `Stroke_Linejoin ] attrib
+              val a_stroke_miterlimit :
+                float wrap -> [> `Stroke_Miterlimit ] attrib
+              val a_stroke_dasharray :
+                Svg_types.Unit.length list wrap ->
+                [> `Stroke_Dasharray ] attrib
+              val a_stroke_dashoffset :
+                Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+              val a_stroke_opacity :
+                float wrap -> [> `Stroke_Opacity ] attrib
+              val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+              val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
+              val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
+              val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
+              val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+              val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
+              val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
+              val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+              val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
+              val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+              val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+              val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+              val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
+              val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+              val a_onmousedown :
+                Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+              val a_onmouseup :
+                Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+              val a_onmouseover :
+                Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+              val a_onmouseout :
+                Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+              val a_onmousemove :
+                Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+              val a_ontouchstart :
+                Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+              val a_ontouchend :
+                Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+              val a_ontouchmove :
+                Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+              val a_ontouchcancel :
+                Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+              val txt : string wrap -> [> Svg_types.txt ] elt
+              val svg :
+                ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
+                 [> Svg_types.svg ])
+                star
+              val g :
+                ([< Svg_types.g_attr ], [< Svg_types.g_content ],
+                 [> Svg_types.g ])
+                star
+              val defs :
+                ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
+                 [> Svg_types.defs ])
+                star
+              val desc :
+                ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
+                 [> Svg_types.desc ])
+                unary
+              val title :
+                ([< Svg_types.title_attr ], [< Svg_types.title_content ],
+                 [> Svg_types.title ])
+                unary
+              val symbol :
+                ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
+                 [> Svg_types.symbol ])
+                star
+              val use :
+                ([< Svg_types.use_attr ], [< Svg_types.use_content ],
+                 [> Svg_types.use ])
+                star
+              val image :
+                ([< Svg_types.image_attr ], [< Svg_types.image_content ],
+                 [> Svg_types.image ])
+                star
+              val switch :
+                ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
+                 [> Svg_types.switch ])
+                star
+              val style :
+                ([< Svg_types.style_attr ], [< Svg_types.style_content ],
+                 [> Svg_types.style ])
+                unary
+              val path :
+                ([< Svg_types.path_attr ], [< Svg_types.path_content ],
+                 [> Svg_types.path ])
+                star
+              val rect :
+                ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
+                 [> Svg_types.rect ])
+                star
+              val circle :
+                ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
+                 [> Svg_types.circle ])
+                star
+              val ellipse :
+                ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
+                 [> Svg_types.ellipse ])
+                star
+              val line :
+                ([< Svg_types.line_attr ], [< Svg_types.line_content ],
+                 [> Svg_types.line ])
+                star
+              val polyline :
+                ([< Svg_types.polyline_attr ],
+                 [< Svg_types.polyline_content ], [> Svg_types.polyline ])
+                star
+              val polygon :
+                ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
+                 [> Svg_types.polygon ])
+                star
+              val text :
+                ([< Svg_types.text_attr ], [< Svg_types.text_content ],
+                 [> Svg_types.text ])
+                star
+              val tspan :
+                ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
+                 [> Svg_types.tspan ])
+                star
+              val tref :
+                ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
+                 [> Svg_types.tref ])
+                star
+              val textPath :
+                ([< Svg_types.textpath_attr ],
+                 [< Svg_types.textpath_content ], [> Svg_types.textpath ])
+                star
+              val altGlyph :
+                ([< Svg_types.altglyph_attr ],
+                 [< Svg_types.altglyph_content ], [> Svg_types.altglyph ])
+                unary
+              type altglyphdef_content =
+                  [ `Item of Svg_types.altglyphitem elt list
+                  | `Ref of Svg_types.glyphref elt list ]
+              val altGlyphDef :
+                ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
+                 [> Svg_types.altglyphdef ])
+                unary
+              val altGlyphItem :
+                ([< Svg_types.altglyphitem_attr ],
+                 [< Svg_types.altglyphitem_content ],
+                 [> Svg_types.altglyphitem ])
+                star
+              val glyphRef :
+                ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ])
+                nullary
+              val marker :
+                ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
+                 [> Svg_types.marker ])
+                star
+              val color_profile :
+                ([< Svg_types.colorprofile_attr ],
+                 [< Svg_types.colorprofile_content ],
+                 [> Svg_types.colorprofile ])
+                star
+              val linearGradient :
+                ([< Svg_types.lineargradient_attr ],
+                 [< Svg_types.lineargradient_content ],
+                 [> Svg_types.lineargradient ])
+                star
+              val radialGradient :
+                ([< Svg_types.radialgradient_attr ],
+                 [< Svg_types.radialgradient_content ],
+                 [> Svg_types.radialgradient ])
+                star
+              val stop :
+                ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
+                 [> Svg_types.stop ])
+                star
+              val pattern :
+                ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
+                 [> Svg_types.pattern ])
+                star
+              val clipPath :
+                ([< Svg_types.clippath_attr ],
+                 [< Svg_types.clippath_content ], [> Svg_types.clippath ])
+                star
+              val filter :
+                ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
+                 [> Svg_types.filter ])
+                star
+              val feDistantLight :
+                ([< Svg_types.fedistantlight_attr ],
+                 [< Svg_types.fedistantlight_content ],
+                 [> Svg_types.fedistantlight ])
+                star
+              val fePointLight :
+                ([< Svg_types.fepointlight_attr ],
+                 [< Svg_types.fepointlight_content ],
+                 [> Svg_types.fepointlight ])
+                star
+              val feSpotLight :
+                ([< Svg_types.fespotlight_attr ],
+                 [< Svg_types.fespotlight_content ],
+                 [> Svg_types.fespotlight ])
+                star
+              val feBlend :
+                ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
+                 [> Svg_types.feblend ])
+                star
+              val feColorMatrix :
+                ([< Svg_types.fecolormatrix_attr ],
+                 [< Svg_types.fecolormatrix_content ],
+                 [> Svg_types.fecolormatrix ])
+                star
+              val feComponentTransfer :
+                ([< Svg_types.fecomponenttransfer_attr ],
+                 [< Svg_types.fecomponenttransfer_content ],
+                 [> Svg_types.fecomponenttransfer ])
+                star
+              val feFuncA :
+                ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
+                 [> Svg_types.fefunca ])
+                star
+              val feFuncG :
+                ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
+                 [> Svg_types.fefuncg ])
+                star
+              val feFuncB :
+                ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
+                 [> Svg_types.fefuncb ])
+                star
+              val feFuncR :
+                ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
+                 [> Svg_types.fefuncr ])
+                star
+              val feComposite :
+                ([< Svg_types.fecomposite_attr ],
+                 [< Svg_types.fecomposite_content ],
+                 [> Svg_types.fecomposite ])
+                star
+              val feConvolveMatrix :
+                ([< Svg_types.feconvolvematrix_attr ],
+                 [< Svg_types.feconvolvematrix_content ],
+                 [> Svg_types.feconvolvematrix ])
+                star
+              val feDiffuseLighting :
+                ([< Svg_types.fediffuselighting_attr ],
+                 [< Svg_types.fediffuselighting_content ],
+                 [> Svg_types.fediffuselighting ])
+                star
+              val feDisplacementMap :
+                ([< Svg_types.fedisplacementmap_attr ],
+                 [< Svg_types.fedisplacementmap_content ],
+                 [> Svg_types.fedisplacementmap ])
+                star
+              val feFlood :
+                ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
+                 [> Svg_types.feflood ])
+                star
+              val feGaussianBlur :
+                ([< Svg_types.fegaussianblur_attr ],
+                 [< Svg_types.fegaussianblur_content ],
+                 [> Svg_types.fegaussianblur ])
+                star
+              val feImage :
+                ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
+                 [> Svg_types.feimage ])
+                star
+              val feMerge :
+                ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
+                 [> Svg_types.femerge ])
+                star
+              val feMorphology :
+                ([< Svg_types.femorphology_attr ],
+                 [< Svg_types.femorphology_content ],
+                 [> Svg_types.femorphology ])
+                star
+              val feOffset :
+                ([< Svg_types.feoffset_attr ],
+                 [< Svg_types.feoffset_content ], [> Svg_types.feoffset ])
+                star
+              val feSpecularLighting :
+                ([< Svg_types.fespecularlighting_attr ],
+                 [< Svg_types.fespecularlighting_content ],
+                 [> Svg_types.fespecularlighting ])
+                star
+              val feTile :
+                ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
+                 [> Svg_types.fetile ])
+                star
+              val feTurbulence :
+                ([< Svg_types.feturbulence_attr ],
+                 [< Svg_types.feturbulence_content ],
+                 [> Svg_types.feturbulence ])
+                star
+              val cursor :
+                ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
+                 [> Svg_types.cursor ])
+                star
+              val a :
+                ([< Svg_types.a_attr ], [< Svg_types.a_content ],
+                 [> Svg_types.a ])
+                star
+              val view :
+                ([< Svg_types.view_attr ], [< Svg_types.view_content ],
+                 [> Svg_types.view ])
+                star
+              val script :
+                ([< Svg_types.script_attr ], [< Svg_types.script_content ],
+                 [> Svg_types.script ])
+                unary
+              val animate :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
+                star
+              val set :
+                ([< Svg_types.set_attr ], [< Svg_types.set_content ],
+                 [> Svg_types.set ])
+                star
+              val animateMotion :
+                ([< Svg_types.animatemotion_attr ],
+                 [< Svg_types.animatemotion_content ],
+                 [> Svg_types.animatemotion ])
+                star
+              val mpath :
+                ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
+                 [> Svg_types.mpath ])
+                star
+              val animateColor :
+                ([< Svg_types.animatecolor_attr ],
+                 [< Svg_types.animatecolor_content ],
+                 [> Svg_types.animatecolor ])
+                star
+              val animateTransform :
+                ([< Svg_types.animatetransform_attr ],
+                 [< Svg_types.animatetransform_content ],
+                 [> Svg_types.animatetransform ])
+                star
+              val font :
+                ([< Svg_types.font_attr ], [< Svg_types.font_content ],
+                 [> Svg_types.font ])
+                star
+              val glyph :
+                ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
+                 [> Svg_types.glyph ])
+                star
+              val missing_glyph :
+                ([< Svg_types.missingglyph_attr ],
+                 [< Svg_types.missingglyph_content ],
+                 [> Svg_types.missingglyph ])
+                star
+              val hkern :
+                ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
+              val vkern :
+                ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
+              val font_face :
+                ([< Svg_types.font_face_attr ], [> Svg_types.font_face ])
+                nullary
+              val font_face_src :
+                ([< Svg_types.font_face_src_attr ],
+                 [< Svg_types.font_face_src_content ],
+                 [> Svg_types.font_face_src ])
+                star
+              val font_face_uri :
+                ([< Svg_types.font_face_uri_attr ],
+                 [< Svg_types.font_face_uri_content ],
+                 [> Svg_types.font_face_uri ])
+                star
+              val font_face_format :
+                ([< Svg_types.font_face_format_attr ],
+                 [> Svg_types.font_face_format ])
+                nullary
+              val font_face_name :
+                ([< Svg_types.font_face_name_attr ],
+                 [> Svg_types.font_face_name ])
+                nullary
+              val metadata :
+                ?a:Svg_types.metadata_attr attrib list ->
+                Xml.elt list_wrap -> [> Svg_types.metadata ] elt
+              val foreignObject :
+                ?a:Svg_types.foreignobject_attr attrib list ->
+                Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+              val pcdata : string wrap -> [> Svg_types.txt ] elt
+              val animation :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
+                star
+              val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+              val tot : Xml.elt -> 'a elt
+              val totl : Xml.elt list_wrap -> 'a elt list_wrap
+              val toelt : 'a elt -> Xml.elt
+              val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+              val doc_toelt : doc -> Xml.elt
+              val to_xmlattribs : 'a attrib list -> Xml.attrib list
+              val to_attrib : Xml.attrib -> 'a attrib
+              module Unsafe :
+                sig
+                  val data : string wrap -> 'a elt
+                  val node :
+                    string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+                  val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+                  val coerce_elt : 'a elt -> 'b elt
+                  val string_attrib : string -> string wrap -> 'a attrib
+                  val float_attrib : string -> float wrap -> 'a attrib
+                  val int_attrib : string -> int wrap -> 'a attrib
+                  val uri_attrib : string -> uri wrap -> 'a attrib
+                  val space_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                  val comma_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                end
+            end
           module Raw :
             sig
               type 'a elt = 'a elt
@@ -2141,7 +3935,7 @@
                 [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
                 [ `GradientUnits ] attrib
               val a_gradientTransform :
-                Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+                Svg_types.transforms wrap -> [> `GradientTransform ] attrib
               val a_spreadMethod :
                 [< `Pad | `Reflect | `Repeat ] wrap ->
                 [> `SpreadMethod ] attrib
@@ -2292,6 +4086,8 @@
               val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
               val a_animation_fill :
                 [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+              val a_fill_rule :
+                Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
               val a_calcMode :
                 [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
                 [> `CalcMode ] attrib
@@ -2433,44 +4229,12 @@
               val a_stroke_miterlimit :
                 float wrap -> [> `Stroke_Miterlimit ] attrib
               val a_stroke_dasharray :
-                Svg_types.Unit.length list wrap ->
-                [> `Stroke_Dasharray ] attrib
-              val a_stroke_dashoffset :
-                Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
-              val a_stroke_opacity :
-                float wrap -> [> `Stroke_Opacity ] attrib
-              val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-              val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
-              val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
-              val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
-              val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-              val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
-              val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
-              val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-              val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
-              val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-              val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-              val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-              val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
-              val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-              val a_onmousedown :
-                Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-              val a_onmouseup :
-                Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-              val a_onmouseover :
-                Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-              val a_onmouseout :
-                Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-              val a_onmousemove :
-                Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-              val a_ontouchstart :
-                Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-              val a_ontouchend :
-                Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-              val a_ontouchmove :
-                Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-              val a_ontouchcancel :
-                Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+                Svg_types.Unit.length list wrap ->
+                [> `Stroke_Dasharray ] attrib
+              val a_stroke_dashoffset :
+                Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+              val a_stroke_opacity :
+                float wrap -> [> `Stroke_Opacity ] attrib
               val txt : string wrap -> [> Svg_types.txt ] elt
               val svg :
                 ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
@@ -2731,9 +4495,9 @@
                 ([< Svg_types.script_attr ], [< Svg_types.script_content ],
                  [> Svg_types.script ])
                 unary
-              val animation :
-                ([< Svg_types.animation_attr ],
-                 [< Svg_types.animation_content ], [> Svg_types.animation ])
+              val animate :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
                 star
               val set :
                 ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -2803,6 +4567,10 @@
                 ?a:Svg_types.foreignobject_attr attrib list ->
                 Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
               val pcdata : string wrap -> [> Svg_types.txt ] elt
+              val animation :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
+                star
               val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
               val tot : Xml.elt -> 'a elt
               val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -2827,6 +4595,29 @@
                   val comma_sep_attrib :
                     string -> string list wrap -> 'a attrib
                 end
+              val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+              val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+              val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+              val a_onend : string -> [> `OnEnd ] Raw'.attrib
+              val a_onerror : string -> [> `OnError ] Raw'.attrib
+              val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+              val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+              val a_onload : string -> [> `OnLoad ] Raw'.attrib
+              val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+              val a_onresize : string -> [> `OnResize ] Raw'.attrib
+              val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+              val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+              val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+              val a_onclick : string -> [> `OnClick ] Raw'.attrib
+              val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+              val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+              val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+              val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+              val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+              val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+              val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+              val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+              val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
             end
           type 'a elt = 'a elt
           type doc = [ `Svg ] elt
@@ -3004,7 +4795,7 @@
             [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
             [ `GradientUnits ] attrib
           val a_gradientTransform :
-            Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
           val a_spreadMethod :
             [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
           val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -3151,6 +4942,8 @@
           val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
           val a_animation_fill :
             [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
           val a_calcMode :
             [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
             [> `CalcMode ] attrib
@@ -3574,9 +5367,9 @@
             ([< Svg_types.script_attr ], [< Svg_types.script_content ],
              [> Svg_types.script ])
             unary
-          val animation :
-            ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-             [> Svg_types.animation ])
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
             star
           val set :
             ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -3645,6 +5438,10 @@
             ?a:Svg_types.foreignobject_attr attrib list ->
             Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
           val pcdata : string wrap -> [> Svg_types.txt ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
           val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
           val tot : Xml.elt -> 'a elt
           val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -3858,7 +5655,7 @@
                 [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
                 [ `GradientUnits ] attrib
               val a_gradientTransform :
-                Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+                Svg_types.transforms wrap -> [> `GradientTransform ] attrib
               val a_spreadMethod :
                 [< `Pad | `Reflect | `Repeat ] wrap ->
                 [> `SpreadMethod ] attrib
@@ -4009,6 +5806,8 @@
               val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
               val a_animation_fill :
                 [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+              val a_fill_rule :
+                Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
               val a_calcMode :
                 [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
                 [> `CalcMode ] attrib
@@ -4448,9 +6247,9 @@
                 ([< Svg_types.script_attr ], [< Svg_types.script_content ],
                  [> Svg_types.script ])
                 unary
-              val animation :
-                ([< Svg_types.animation_attr ],
-                 [< Svg_types.animation_content ], [> Svg_types.animation ])
+              val animate :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
                 star
               val set :
                 ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -4520,6 +6319,10 @@
                 ?a:Svg_types.foreignobject_attr attrib list ->
                 Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
               val pcdata : string wrap -> [> Svg_types.txt ] elt
+              val animation :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
+                star
               val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
               val tot : Xml.elt -> 'a elt
               val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -4721,7 +6524,7 @@
             [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
             [ `GradientUnits ] attrib
           val a_gradientTransform :
-            Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
           val a_spreadMethod :
             [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
           val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -4868,6 +6671,8 @@
           val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
           val a_animation_fill :
             [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
           val a_calcMode :
             [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
             [> `CalcMode ] attrib
@@ -5291,9 +7096,9 @@
             ([< Svg_types.script_attr ], [< Svg_types.script_content ],
              [> Svg_types.script ])
             unary
-          val animation :
-            ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-             [> Svg_types.animation ])
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
             star
           val set :
             ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -5362,6 +7167,10 @@
             ?a:Svg_types.foreignobject_attr attrib list ->
             Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
           val pcdata : string wrap -> [> Svg_types.txt ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
           val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
           val tot : Xml.elt -> 'a elt
           val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -5384,38 +7193,1127 @@
               val space_sep_attrib : string -> string list wrap -> 'a attrib
               val comma_sep_attrib : string -> string list wrap -> 'a attrib
             end
-        end
-      module Id :
-        sig
-          type +'a id
-          val new_elt_id :
-            ?global:bool -> unit -> 'a Eliom_content_core.Svg.Id.id
-          val create_named_elt :
-            id:'a Eliom_content_core.Svg.Id.id ->
-            'a Eliom_content_core.Svg.elt -> 'a Eliom_content_core.Svg.elt
-          val create_global_elt :
-            'a Eliom_content_core.Svg.elt -> 'a Eliom_content_core.Svg.elt
-          val create_request_elt :
-            ?reset:bool ->
-            'a Eliom_content_core.Svg.elt -> 'a Eliom_content_core.Svg.elt
-          val string_of_id : 'a Eliom_content_core.Svg.Id.id -> string
-        end
-      module Of_dom :
-        sig
-          val of_element :
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t ->
-            'a Eliom_content_core.Svg.elt
-        end
-    end
-  module Html :
-    sig
-      type +'a elt
-      type 'a wrap = 'a
-      type 'a list_wrap = 'a list
-      type +'a attrib
-      type uri = Eliom_content_core.Xml.uri
-      module F :
-        sig
+        end
+      module Id :
+        sig
+          type +'a id
+          val new_elt_id :
+            ?global:bool -> unit -> 'a Eliom_content_core.Svg.Id.id
+          val create_named_elt :
+            id:'a Eliom_content_core.Svg.Id.id ->
+            'a Eliom_content_core.Svg.elt -> 'a Eliom_content_core.Svg.elt
+          val create_global_elt :
+            'a Eliom_content_core.Svg.elt -> 'a Eliom_content_core.Svg.elt
+          val create_request_elt :
+            ?reset:bool ->
+            'a Eliom_content_core.Svg.elt -> 'a Eliom_content_core.Svg.elt
+          val string_of_id : 'a Eliom_content_core.Svg.Id.id -> string
+        end
+      module Of_dom :
+        sig
+          val of_element :
+            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t ->
+            'a Eliom_content_core.Svg.elt
+        end
+    end
+  module Html :
+    sig
+      type +'a elt
+      type 'a wrap = 'a
+      type 'a list_wrap = 'a list
+      type +'a attrib
+      type uri = Eliom_content_core.Xml.uri
+      module Ev' :
+        functor
+          (A : sig
+                 type 'a attrib
+                 module Unsafe :
+                   sig
+                     val string_attrib :
+                       string ->
+                       string -> 'a Eliom_content_core.Html.Ev'.attrib
+                   end
+               end)
+          ->
+          sig
+            val a_onabort : string -> [> `OnAbort ] A.attrib
+            val a_onafterprint : string -> [> `OnAfterPrint ] A.attrib
+            val a_onbeforeprint : string -> [> `OnBeforePrint ] A.attrib
+            val a_onbeforeunload : string -> [> `OnBeforeUnload ] A.attrib
+            val a_onblur : string -> [> `OnBlur ] A.attrib
+            val a_oncanplay : string -> [> `OnCanPlay ] A.attrib
+            val a_oncanplaythrough :
+              string -> [> `OnCanPlayThrough ] A.attrib
+            val a_onchange : string -> [> `OnChange ] A.attrib
+            val a_onclose : string -> [> `OnClose ] A.attrib
+            val a_ondurationchange :
+              string -> [> `OnDurationChange ] A.attrib
+            val a_onemptied : string -> [> `OnEmptied ] A.attrib
+            val a_onended : string -> [> `OnEnded ] A.attrib
+            val a_onerror : string -> [> `OnError ] A.attrib
+            val a_onfocus : string -> [> `OnFocus ] A.attrib
+            val a_onformchange : string -> [> `OnFormChange ] A.attrib
+            val a_onforminput : string -> [> `OnFormInput ] A.attrib
+            val a_onhashchange : string -> [> `OnHashChange ] A.attrib
+            val a_oninput : string -> [> `OnInput ] A.attrib
+            val a_oninvalid : string -> [> `OnInvalid ] A.attrib
+            val a_onmousewheel : string -> [> `OnMouseWheel ] A.attrib
+            val a_onoffline : string -> [> `OnOffLine ] A.attrib
+            val a_ononline : string -> [> `OnOnLine ] A.attrib
+            val a_onpause : string -> [> `OnPause ] A.attrib
+            val a_onplay : string -> [> `OnPlay ] A.attrib
+            val a_onplaying : string -> [> `OnPlaying ] A.attrib
+            val a_onpagehide : string -> [> `OnPageHide ] A.attrib
+            val a_onpageshow : string -> [> `OnPageShow ] A.attrib
+            val a_onpopstate : string -> [> `OnPopState ] A.attrib
+            val a_onprogress : string -> [> `OnProgress ] A.attrib
+            val a_onratechange : string -> [> `OnRateChange ] A.attrib
+            val a_onreadystatechange :
+              string -> [> `OnReadyStateChange ] A.attrib
+            val a_onredo : string -> [> `OnRedo ] A.attrib
+            val a_onresize : string -> [> `OnResize ] A.attrib
+            val a_onscroll : string -> [> `OnScroll ] A.attrib
+            val a_onseeked : string -> [> `OnSeeked ] A.attrib
+            val a_onseeking : string -> [> `OnSeeking ] A.attrib
+            val a_onselect : string -> [> `OnSelect ] A.attrib
+            val a_onshow : string -> [> `OnShow ] A.attrib
+            val a_onstalled : string -> [> `OnStalled ] A.attrib
+            val a_onstorage : string -> [> `OnStorage ] A.attrib
+            val a_onsubmit : string -> [> `OnSubmit ] A.attrib
+            val a_onsuspend : string -> [> `OnSuspend ] A.attrib
+            val a_ontimeupdate : string -> [> `OnTimeUpdate ] A.attrib
+            val a_onundo : string -> [> `OnUndo ] A.attrib
+            val a_onunload : string -> [> `OnUnload ] A.attrib
+            val a_onvolumechange : string -> [> `OnVolumeChange ] A.attrib
+            val a_onwaiting : string -> [> `OnWaiting ] A.attrib
+            val a_onload : string -> [> `OnLoad ] A.attrib
+            val a_onloadeddata : string -> [> `OnLoadedData ] A.attrib
+            val a_onloadedmetadata :
+              string -> [> `OnLoadedMetaData ] A.attrib
+            val a_onloadstart : string -> [> `OnLoadStart ] A.attrib
+            val a_onmessage : string -> [> `OnMessage ] A.attrib
+            val a_onclick : string -> [> `OnClick ] A.attrib
+            val a_oncontextmenu : string -> [> `OnContextMenu ] A.attrib
+            val a_ondblclick : string -> [> `OnDblClick ] A.attrib
+            val a_ondrag : string -> [> `OnDrag ] A.attrib
+            val a_ondragend : string -> [> `OnDragEnd ] A.attrib
+            val a_ondragenter : string -> [> `OnDragEnter ] A.attrib
+            val a_ondragleave : string -> [> `OnDragLeave ] A.attrib
+            val a_ondragover : string -> [> `OnDragOver ] A.attrib
+            val a_ondragstart : string -> [> `OnDragStart ] A.attrib
+            val a_ondrop : string -> [> `OnDrop ] A.attrib
+            val a_onmousedown : string -> [> `OnMouseDown ] A.attrib
+            val a_onmouseup : string -> [> `OnMouseUp ] A.attrib
+            val a_onmouseover : string -> [> `OnMouseOver ] A.attrib
+            val a_onmousemove : string -> [> `OnMouseMove ] A.attrib
+            val a_onmouseout : string -> [> `OnMouseOut ] A.attrib
+            val a_ontouchstart : string -> [> `OnTouchStart ] A.attrib
+            val a_ontouchend : string -> [> `OnTouchEnd ] A.attrib
+            val a_ontouchmove : string -> [> `OnTouchMove ] A.attrib
+            val a_ontouchcancel : string -> [> `OnTouchCancel ] A.attrib
+            val a_onkeypress : string -> [> `OnKeyPress ] A.attrib
+            val a_onkeydown : string -> [> `OnKeyDown ] A.attrib
+            val a_onkeyup : string -> [> `OnKeyUp ] A.attrib
+          end
+      module F :
+        sig
+          module Raw' :
+            sig
+              type 'a elt = 'a elt
+              type doc = Html_types.html elt
+              type 'a attrib = 'a attrib
+              module Xml :
+                sig
+                  module W :
+                    sig
+                      type 'a t = 'a Xml.W.t
+                      val return : 'a -> 'a t
+                      type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                      val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                      type 'a tlist = 'a Xml.W.tlist
+                      val nil : unit -> 'a tlist
+                      val singleton : 'a t -> 'a tlist
+                      val cons : 'a t -> 'a tlist -> 'a tlist
+                      val append : 'a tlist -> 'a tlist -> 'a tlist
+                      val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                    end
+                  type 'a wrap = 'a W.t
+                  type 'a list_wrap = 'a W.tlist
+                  type uri = Xml.uri
+                  val string_of_uri : (uri, string) W.ft
+                  val uri_of_string : (string, uri) W.ft
+                  type aname = string
+                  type event_handler = Xml.event_handler
+                  type mouse_event_handler = Xml.mouse_event_handler
+                  type keyboard_event_handler = Xml.keyboard_event_handler
+                  type touch_event_handler = Xml.touch_event_handler
+                  type attrib = Xml.attrib
+                  val float_attrib : aname -> float wrap -> attrib
+                  val int_attrib : aname -> int wrap -> attrib
+                  val string_attrib : aname -> string wrap -> attrib
+                  val space_sep_attrib : aname -> string list wrap -> attrib
+                  val comma_sep_attrib : aname -> string list wrap -> attrib
+                  val event_handler_attrib : aname -> event_handler -> attrib
+                  val mouse_event_handler_attrib :
+                    aname -> mouse_event_handler -> attrib
+                  val keyboard_event_handler_attrib :
+                    aname -> keyboard_event_handler -> attrib
+                  val touch_event_handler_attrib :
+                    aname -> touch_event_handler -> attrib
+                  val uri_attrib : aname -> uri wrap -> attrib
+                  val uris_attrib : aname -> uri list wrap -> attrib
+                  type elt = Xml.elt
+                  type ename = string
+                  val empty : unit -> elt
+                  val comment : string -> elt
+                  val pcdata : string wrap -> elt
+                  val encodedpcdata : string wrap -> elt
+                  val entity : string -> elt
+                  val leaf : ?a:attrib list -> ename -> elt
+                  val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+                  val cdata : string -> elt
+                  val cdata_script : string -> elt
+                  val cdata_style : string -> elt
+                end
+              type 'a wrap = 'a Xml.W.t
+              type 'a list_wrap = 'a Xml.W.tlist
+              type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+              type ('a, 'b, 'c) unary =
+                  ?a:'a attrib list -> 'b elt wrap -> 'c elt
+              type ('a, 'b, 'c) star =
+                  ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              module Info : Xml_sigs.Info
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) Xml.W.ft
+              val uri_of_string : (string, uri) Xml.W.ft
+              val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+              val a_user_data :
+                Html_types.nmtoken ->
+                Html_types.text wrap -> [> `User_data ] attrib
+              val a_id : Html_types.text wrap -> [> `Id ] attrib
+              val a_title : Html_types.text wrap -> [> `Title ] attrib
+              val a_xml_lang :
+                Html_types.languagecode wrap -> [> `XML_lang ] attrib
+              val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
+              val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+              val a_onafterprint :
+                Xml.event_handler -> [> `OnAfterPrint ] attrib
+              val a_onbeforeprint :
+                Xml.event_handler -> [> `OnBeforePrint ] attrib
+              val a_onbeforeunload :
+                Xml.event_handler -> [> `OnBeforeUnload ] attrib
+              val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
+              val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
+              val a_oncanplaythrough :
+                Xml.event_handler -> [> `OnCanPlayThrough ] attrib
+              val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+              val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
+              val a_ondurationchange :
+                Xml.event_handler -> [> `OnDurationChange ] attrib
+              val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
+              val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
+              val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+              val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
+              val a_onformchange :
+                Xml.event_handler -> [> `OnFormChange ] attrib
+              val a_onforminput :
+                Xml.event_handler -> [> `OnFormInput ] attrib
+              val a_onhashchange :
+                Xml.event_handler -> [> `OnHashChange ] attrib
+              val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
+              val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
+              val a_onmousewheel :
+                Xml.event_handler -> [> `OnMouseWheel ] attrib
+              val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
+              val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
+              val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
+              val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
+              val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
+              val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
+              val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
+              val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
+              val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
+              val a_onratechange :
+                Xml.event_handler -> [> `OnRateChange ] attrib
+              val a_onreadystatechange :
+                Xml.event_handler -> [> `OnReadyStateChange ] attrib
+              val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
+              val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+              val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+              val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
+              val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
+              val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
+              val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
+              val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
+              val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
+              val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
+              val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
+              val a_ontimeupdate :
+                Xml.event_handler -> [> `OnTimeUpdate ] attrib
+              val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
+              val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+              val a_onvolumechange :
+                Xml.event_handler -> [> `OnVolumeChange ] attrib
+              val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
+              val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+              val a_onloadeddata :
+                Xml.event_handler -> [> `OnLoadedData ] attrib
+              val a_onloadedmetadata :
+                Xml.event_handler -> [> `OnLoadedMetaData ] attrib
+              val a_onloadstart :
+                Xml.event_handler -> [> `OnLoadStart ] attrib
+              val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
+              val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+              val a_oncontextmenu :
+                Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
+              val a_ondblclick :
+                Xml.mouse_event_handler -> [> `OnDblClick ] attrib
+              val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
+              val a_ondragend :
+                Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
+              val a_ondragenter :
+                Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
+              val a_ondragleave :
+                Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
+              val a_ondragover :
+                Xml.mouse_event_handler -> [> `OnDragOver ] attrib
+              val a_ondragstart :
+                Xml.mouse_event_handler -> [> `OnDragStart ] attrib
+              val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
+              val a_onmousedown :
+                Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+              val a_onmouseup :
+                Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+              val a_onmouseover :
+                Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+              val a_onmousemove :
+                Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+              val a_onmouseout :
+                Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+              val a_ontouchstart :
+                Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+              val a_ontouchend :
+                Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+              val a_ontouchmove :
+                Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+              val a_ontouchcancel :
+                Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+              val a_onkeypress :
+                Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
+              val a_onkeydown :
+                Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
+              val a_onkeyup :
+                Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+              val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
+              val a_allowpaymentrequest :
+                unit -> [> `Allowpaymentrequest ] attrib
+              val a_autocomplete :
+                Html_types.autocomplete_option wrap ->
+                [> `Autocomplete ] attrib
+              val a_async : unit -> [> `Async ] attrib
+              val a_autofocus : unit -> [> `Autofocus ] attrib
+              val a_autoplay : unit -> [> `Autoplay ] attrib
+              val a_muted : unit -> [> `Muted ] attrib
+              val a_crossorigin :
+                [< `Anonymous | `Use_credentials ] wrap ->
+                [> `Crossorigin ] attrib
+              val a_integrity : string wrap -> [> `Integrity ] attrib
+              val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
+              val a_challenge :
+                Html_types.text wrap -> [> `Challenge ] attrib
+              val a_contenteditable :
+                bool wrap -> [> `Contenteditable ] attrib
+              val a_contextmenu :
+                Html_types.idref wrap -> [> `Contextmenu ] attrib
+              val a_controls : unit -> [> `Controls ] attrib
+              val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
+              val a_draggable : bool wrap -> [> `Draggable ] attrib
+              val a_form : Html_types.idref wrap -> [> `Form ] attrib
+              val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
+              val a_formenctype :
+                Html_types.contenttype wrap -> [> `Formenctype ] attrib
+              val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
+              val a_formtarget :
+                Html_types.text wrap -> [> `Formtarget ] attrib
+              val a_hidden : unit -> [> `Hidden ] attrib
+              val a_high : Html_types.float_number wrap -> [> `High ] attrib
+              val a_icon : Xml.uri wrap -> [> `Icon ] attrib
+              val a_ismap : unit -> [> `Ismap ] attrib
+              val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
+              val a_list : Html_types.idref wrap -> [> `List ] attrib
+              val a_loop : unit -> [> `Loop ] attrib
+              val a_low : Html_types.float_number wrap -> [> `High ] attrib
+              val a_max : Html_types.float_number wrap -> [> `Max ] attrib
+              val a_input_max :
+                Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
+              val a_min : Html_types.float_number wrap -> [> `Min ] attrib
+              val a_input_min :
+                Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
+              val a_inputmode :
+                [< `Decimal
+                 | `Email
+                 | `None
+                 | `Numeric
+                 | `Search
+                 | `Tel
+                 | `Text
+                 | `Url ]
+                wrap -> [> `Inputmode ] attrib
+              val a_novalidate : unit -> [> `Novalidate ] attrib
+              val a_open : unit -> [> `Open ] attrib
+              val a_optimum :
+                Html_types.float_number wrap -> [> `Optimum ] attrib
+              val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
+              val a_placeholder :
+                Html_types.text wrap -> [> `Placeholder ] attrib
+              val a_poster : Xml.uri wrap -> [> `Poster ] attrib
+              val a_preload :
+                [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
+              val a_pubdate : unit -> [> `Pubdate ] attrib
+              val a_radiogroup :
+                Html_types.text wrap -> [> `Radiogroup ] attrib
+              val a_referrerpolicy :
+                Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
+              val a_required : unit -> [> `Required ] attrib
+              val a_reversed : unit -> [> `Reversed ] attrib
+              val a_sandbox :
+                [< Html_types.sandbox_token ] list wrap ->
+                [> `Sandbox ] attrib
+              val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
+              val a_scoped : unit -> [> `Scoped ] attrib
+              val a_seamless : unit -> [> `Seamless ] attrib
+              val a_sizes :
+                (Html_types.number * Html_types.number) list option wrap ->
+                [> `Sizes ] attrib
+              val a_span : Html_types.number wrap -> [> `Span ] attrib
+              val a_srclang :
+                Html_types.nmtoken wrap -> [> `XML_lang ] attrib
+              type image_candidate =
+                  [ `Url of uri
+                  | `Url_pixel of uri * Html_types.float_number
+                  | `Url_width of uri * Html_types.number ]
+              val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
+              val a_img_sizes :
+                Html_types.text list wrap -> [> `Img_sizes ] attrib
+              val a_start : Html_types.number wrap -> [> `Start ] attrib
+              val a_step :
+                Html_types.float_number option wrap -> [> `Step ] attrib
+              val a_translate :
+                [< `No | `Yes ] wrap -> [> `Translate ] attrib
+              val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
+              val a_version : Html_types.cdata wrap -> [> `Version ] attrib
+              val a_xmlns :
+                [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
+              val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
+              val a_cite : Xml.uri wrap -> [> `Cite ] attrib
+              val a_xml_space :
+                [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
+              val a_accesskey :
+                Html_types.character wrap -> [> `Accesskey ] attrib
+              val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
+              val a_accept_charset :
+                Html_types.charsets wrap -> [> `Accept_charset ] attrib
+              val a_accept :
+                Html_types.contenttypes wrap -> [> `Accept ] attrib
+              val a_href : Xml.uri wrap -> [> `Href ] attrib
+              val a_hreflang :
+                Html_types.languagecode wrap -> [> `Hreflang ] attrib
+              val a_download : string option wrap -> [> `Download ] attrib
+              val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
+              val a_tabindex :
+                Html_types.number wrap -> [> `Tabindex ] attrib
+              val a_mime_type :
+                Html_types.contenttype wrap -> [> `Mime_type ] attrib
+              val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
+              val a_action : Xml.uri wrap -> [> `Action ] attrib
+              val a_checked : unit -> [> `Checked ] attrib
+              val a_cols : Html_types.number wrap -> [> `Cols ] attrib
+              val a_enctype :
+                Html_types.contenttype wrap -> [> `Enctype ] attrib
+              val a_label_for :
+                Html_types.idref wrap -> [> `Label_for ] attrib
+              val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
+              val a_output_for :
+                Html_types.idrefs wrap -> [> `Output_for ] attrib
+              val a_for_list :
+                Html_types.idrefs wrap -> [> `Output_for ] attrib
+              val a_maxlength :
+                Html_types.number wrap -> [> `Maxlength ] attrib
+              val a_minlength :
+                Html_types.number wrap -> [> `Minlength ] attrib
+              val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
+              val a_formmethod :
+                [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
+              val a_multiple : unit -> [> `Multiple ] attrib
+              val a_name : Html_types.text wrap -> [> `Name ] attrib
+              val a_rows : Html_types.number wrap -> [> `Rows ] attrib
+              val a_selected : unit -> [> `Selected ] attrib
+              val a_size : Html_types.number wrap -> [> `Size ] attrib
+              val a_src : Xml.uri wrap -> [> `Src ] attrib
+              val a_input_type :
+                [< `Button
+                 | `Checkbox
+                 | `Color
+                 | `Date
+                 | `Datetime
+                 | `Datetime_local
+                 | `Email
+                 | `File
+                 | `Hidden
+                 | `Image
+                 | `Month
+                 | `Number
+                 | `Password
+                 | `Radio
+                 | `Range
+                 | `Reset
+                 | `Search
+                 | `Submit
+                 | `Tel
+                 | `Text
+                 | `Time
+                 | `Url
+                 | `Week ]
+                wrap -> [> `Input_Type ] attrib
+              val a_text_value :
+                Html_types.text wrap -> [> `Text_Value ] attrib
+              val a_int_value :
+                Html_types.number wrap -> [> `Int_Value ] attrib
+              val a_value : Html_types.cdata wrap -> [> `Value ] attrib
+              val a_float_value :
+                Html_types.float_number wrap -> [> `Float_Value ] attrib
+              val a_disabled : unit -> [> `Disabled ] attrib
+              val a_readonly : unit -> [> `ReadOnly ] attrib
+              val a_button_type :
+                [< `Button | `Reset | `Submit ] wrap ->
+                [> `Button_Type ] attrib
+              val a_script_type :
+                Html_types.script_type wrap -> [> `Script_type ] attrib
+              val a_command_type :
+                [< `Checkbox | `Command | `Radio ] wrap ->
+                [> `Command_Type ] attrib
+              val a_menu_type :
+                [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
+              val a_label : Html_types.text wrap -> [> `Label ] attrib
+              val a_align :
+                [< `Char | `Justify | `Left | `Right ] wrap ->
+                [> `Align ] attrib
+              val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
+              val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
+              val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
+              val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
+              val a_scope :
+                [< `Col | `Colgroup | `Row | `Rowgroup ] wrap ->
+                [> `Scope ] attrib
+              val a_summary : Html_types.text wrap -> [> `Summary ] attrib
+              val a_border : Html_types.pixels wrap -> [> `Border ] attrib
+              val a_rules :
+                [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
+                [> `Rules ] attrib
+              val a_char : Html_types.character wrap -> [> `Char ] attrib
+              val a_alt : Html_types.text wrap -> [> `Alt ] attrib
+              val a_height : Html_types.number wrap -> [> `Height ] attrib
+              val a_width : Html_types.number wrap -> [> `Width ] attrib
+              type shape = [ `Circle | `Default | `Poly | `Rect ]
+              val a_shape : shape wrap -> [> `Shape ] attrib
+              val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
+              val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
+              val a_data : Xml.uri wrap -> [> `Data ] attrib
+              val a_codetype :
+                Html_types.contenttype wrap -> [> `Codetype ] attrib
+              val a_frameborder :
+                [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
+              val a_marginheight :
+                Html_types.pixels wrap -> [> `Marginheight ] attrib
+              val a_marginwidth :
+                Html_types.pixels wrap -> [> `Marginwidth ] attrib
+              val a_scrolling :
+                [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
+              val a_target :
+                Html_types.frametarget wrap -> [> `Target ] attrib
+              val a_content : Html_types.text wrap -> [> `Content ] attrib
+              val a_http_equiv :
+                Html_types.text wrap -> [> `Http_equiv ] attrib
+              val a_defer : unit -> [> `Defer ] attrib
+              val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
+              val a_style : string wrap -> [> `Style_Attr ] attrib
+              val a_property : string wrap -> [> `Property ] attrib
+              val a_role : string list wrap -> [> `Role ] attrib
+              val a_aria : string -> string list wrap -> [> `Aria ] attrib
+              val txt : string wrap -> [> Html_types.txt ] elt
+              val html :
+                ?a:Html_types.html_attrib attrib list ->
+                [< Html_types.head ] elt wrap ->
+                [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
+              val head :
+                ?a:Html_types.head_attrib attrib list ->
+                [< Html_types.title ] elt wrap ->
+                Html_types.head_content_fun elt list_wrap ->
+                [> Html_types.head ] elt
+              val base :
+                ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
+              val title :
+                (Html_types.title_attrib, [< Html_types.title_content_fun ],
+                 [> Html_types.title ])
+                unary
+              val body :
+                ([< Html_types.body_attrib ],
+                 [< Html_types.body_content_fun ], [> Html_types.body ])
+                star
+              val svg :
+                ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+                [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
+                [> Html_types.svg ] elt
+              val footer :
+                ([< Html_types.footer_attrib ],
+                 [< Html_types.footer_content_fun ], [> Html_types.footer ])
+                star
+              val header :
+                ([< Html_types.header_attrib ],
+                 [< Html_types.header_content_fun ], [> Html_types.header ])
+                star
+              val section :
+                ([< Html_types.section_attrib ],
+                 [< Html_types.section_content_fun ],
+                 [> Html_types.section ])
+                star
+              val nav :
+                ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
+                 [> Html_types.nav ])
+                star
+              val h1 :
+                ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
+                 [> Html_types.h1 ])
+                star
+              val h2 :
+                ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
+                 [> Html_types.h2 ])
+                star
+              val h3 :
+                ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
+                 [> Html_types.h3 ])
+                star
+              val h4 :
+                ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
+                 [> Html_types.h4 ])
+                star
+              val h5 :
+                ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
+                 [> Html_types.h5 ])
+                star
+              val h6 :
+                ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
+                 [> Html_types.h6 ])
+                star
+              val hgroup :
+                ([< Html_types.hgroup_attrib ],
+                 [< Html_types.hgroup_content_fun ], [> Html_types.hgroup ])
+                star
+              val address :
+                ([< Html_types.address_attrib ],
+                 [< Html_types.address_content_fun ],
+                 [> Html_types.address ])
+                star
+              val article :
+                ([< Html_types.article_attrib ],
+                 [< Html_types.article_content_fun ],
+                 [> Html_types.article ])
+                star
+              val aside :
+                ([< Html_types.aside_attrib ],
+                 [< Html_types.aside_content_fun ], [> Html_types.aside ])
+                star
+              val main :
+                ([< Html_types.main_attrib ],
+                 [< Html_types.main_content_fun ], [> Html_types.main ])
+                star
+              val p :
+                ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
+                 [> Html_types.p ])
+                star
+              val pre :
+                ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
+                 [> Html_types.pre ])
+                star
+              val blockquote :
+                ([< Html_types.blockquote_attrib ],
+                 [< Html_types.blockquote_content_fun ],
+                 [> Html_types.blockquote ])
+                star
+              val dialog :
+                ([< Html_types.dialog_attrib ],
+                 [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+                star
+              val div :
+                ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
+                 [> Html_types.div ])
+                star
+              val dl :
+                ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
+                 [> Html_types.dl ])
+                star
+              val ol :
+                ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
+                 [> Html_types.ol ])
+                star
+              val ul :
+                ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
+                 [> Html_types.ul ])
+                star
+              val dd :
+                ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
+                 [> Html_types.dd ])
+                star
+              val dt :
+                ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
+                 [> Html_types.dt ])
+                star
+              val li :
+                ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
+                 [> Html_types.li ])
+                star
+              val figcaption :
+                ([< Html_types.figcaption_attrib ],
+                 [< Html_types.figcaption_content_fun ],
+                 [> Html_types.figcaption ])
+                star
+              val figure :
+                ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
+                            | `Top of [< Html_types.figcaption ] elt wrap ] ->
+                ([< Html_types.figure_attrib ],
+                 [< Html_types.figure_content_fun ], [> Html_types.figure ])
+                star
+              val hr :
+                ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
+              val b :
+                ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
+                 [> Html_types.b ])
+                star
+              val i :
+                ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
+                 [> Html_types.i ])
+                star
+              val u :
+                ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
+                 [> Html_types.u ])
+                star
+              val small :
+                ([< Html_types.small_attrib ],
+                 [< Html_types.small_content_fun ], [> Html_types.small ])
+                star
+              val sub :
+                ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
+                 [> Html_types.sub ])
+                star
+              val sup :
+                ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
+                 [> Html_types.sup ])
+                star
+              val mark :
+                ([< Html_types.mark_attrib ],
+                 [< Html_types.mark_content_fun ], [> Html_types.mark ])
+                star
+              val wbr :
+                ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
+              val bdo :
+                dir:[< `Ltr | `Rtl ] wrap ->
+                ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
+                 [> Html_types.bdo ])
+                star
+              val abbr :
+                ([< Html_types.abbr_attrib ],
+                 [< Html_types.abbr_content_fun ], [> Html_types.abbr ])
+                star
+              val br :
+                ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
+              val cite :
+                ([< Html_types.cite_attrib ],
+                 [< Html_types.cite_content_fun ], [> Html_types.cite ])
+                star
+              val code :
+                ([< Html_types.code_attrib ],
+                 [< Html_types.code_content_fun ], [> Html_types.code ])
+                star
+              val dfn :
+                ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
+                 [> Html_types.dfn ])
+                star
+              val em :
+                ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
+                 [> Html_types.em ])
+                star
+              val kbd :
+                ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
+                 [> Html_types.kbd ])
+                star
+              val q :
+                ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
+                 [> Html_types.q ])
+                star
+              val samp :
+                ([< Html_types.samp_attrib ],
+                 [< Html_types.samp_content_fun ], [> Html_types.samp ])
+                star
+              val span :
+                ([< Html_types.span_attrib ],
+                 [< Html_types.span_content_fun ], [> Html_types.span ])
+                star
+              val strong :
+                ([< Html_types.strong_attrib ],
+                 [< Html_types.strong_content_fun ], [> Html_types.strong ])
+                star
+              val time :
+                ([< Html_types.time_attrib ],
+                 [< Html_types.time_content_fun ], [> Html_types.time ])
+                star
+              val var :
+                ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
+                 [> Html_types.var ])
+                star
+              val a :
+                ([< Html_types.a_attrib ], 'a, [> 'a Html_types.a ]) star
+              val del :
+                ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
+              val ins :
+                ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
+              val img :
+                src:Xml.uri wrap ->
+                alt:Html_types.text wrap ->
+                ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
+              val picture :
+                img:[< Html_types.img ] elt wrap ->
+                ([< Html_types.picture_attrib ],
+                 [< Html_types.picture_content_fun ],
+                 [> Html_types.picture ])
+                star
+              val iframe :
+                ([< Html_types.iframe_attrib ],
+                 [< Html_types.iframe_content_fun ], [> Html_types.iframe ])
+                star
+              val object_ :
+                ?params:[< Html_types.param ] elt list_wrap ->
+                ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
+              val param :
+                ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
+              val embed :
+                ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
+              val audio :
+                ?src:Xml.uri wrap ->
+                ?srcs:[< Html_types.source ] elt list_wrap ->
+                ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ])
+                star
+              val video :
+                ?src:Xml.uri wrap ->
+                ?srcs:[< Html_types.source ] elt list_wrap ->
+                ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ])
+                star
+              val canvas :
+                ([< Html_types.canvas_attrib ], 'a,
+                 [> 'a Html_types.canvas ])
+                star
+              val source :
+                ([< Html_types.source_attrib ], [> Html_types.source ])
+                nullary
+              val area :
+                alt:Html_types.text wrap ->
+                ([< `Accesskey
+                  | `Alt
+                  | `Aria
+                  | `Class
+                  | `Contenteditable
+                  | `Contextmenu
+                  | `Coords
+                  | `Dir
+                  | `Draggable
+                  | `Hidden
+                  | `Hreflang
+                  | `Id
+                  | `Lang
+                  | `Media
+                  | `Mime_type
+                  | `OnAbort
+                  | `OnBlur
+                  | `OnCanPlay
+                  | `OnCanPlayThrough
+                  | `OnChange
+                  | `OnClick
+                  | `OnClose
+                  | `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
+                  | `Rel
+                  | `Role
+                  | `Shape
+                  | `Spellcheck
+                  | `Style_Attr
+                  | `Tabindex
+                  | `Target
+                  | `Title
+                  | `Translate
+                  | `User_data
+                  | `XML_lang
+                  | `XMLns ],
+                 [> Html_types.area ])
+                nullary
+              val map :
+                ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
+              val caption :
+                ([< Html_types.caption_attrib ],
+                 [< Html_types.caption_content_fun ],
+                 [> Html_types.caption ])
+                star
+              val table :
+                ?caption:[< Html_types.caption ] elt wrap ->
+                ?columns:[< Html_types.colgroup ] elt list_wrap ->
+                ?thead:[< Html_types.thead ] elt wrap ->
+                ?tfoot:[< Html_types.tfoot ] elt wrap ->
+                ([< Html_types.table_attrib ],
+                 [< Html_types.table_content_fun ], [> Html_types.table ])
+                star
+              val tablex :
+                ?caption:[< Html_types.caption ] elt wrap ->
+                ?columns:[< Html_types.colgroup ] elt list_wrap ->
+                ?thead:[< Html_types.thead ] elt wrap ->
+                ?tfoot:[< Html_types.tfoot ] elt wrap ->
+                ([< Html_types.tablex_attrib ],
+                 [< Html_types.tablex_content_fun ], [> Html_types.tablex ])
+                star
+              val colgroup :
+                ([< Html_types.colgroup_attrib ],
+                 [< Html_types.colgroup_content_fun ],
+                 [> Html_types.colgroup ])
+                star
+              val col :
+                ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
+              val thead :
+                ([< Html_types.thead_attrib ],
+                 [< Html_types.thead_content_fun ], [> Html_types.thead ])
+                star
+              val tbody :
+                ([< Html_types.tbody_attrib ],
+                 [< Html_types.tbody_content_fun ], [> Html_types.tbody ])
+                star
+              val tfoot :
+                ([< Html_types.tfoot_attrib ],
+                 [< Html_types.tfoot_content_fun ], [> Html_types.tfoot ])
+                star
+              val td :
+                ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
+                 [> Html_types.td ])
+                star
+              val th :
+                ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
+                 [> Html_types.th ])
+                star
+              val tr :
+                ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
+                 [> Html_types.tr ])
+                star
+              val form :
+                ([< Html_types.form_attrib ],
+                 [< Html_types.form_content_fun ], [> Html_types.form ])
+                star
+              val fieldset :
+                ?legend:[< Html_types.legend ] elt wrap ->
+                ([< Html_types.fieldset_attrib ],
+                 [< Html_types.fieldset_content_fun ],
+                 [> Html_types.fieldset ])
+                star
+              val legend :
+                ([< Html_types.legend_attrib ],
+                 [< Html_types.legend_content_fun ], [> Html_types.legend ])
+                star
+              val label :
+                ([< Html_types.label_attrib ],
+                 [< Html_types.label_content_fun ], [> Html_types.label ])
+                star
+              val input :
+                ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
+              val button :
+                ([< Html_types.button_attrib ],
+                 [< Html_types.button_content_fun ], [> Html_types.button ])
+                star
+              val select :
+                ([< Html_types.select_attrib ],
+                 [< Html_types.select_content_fun ], [> Html_types.select ])
+                star
+              val datalist :
+                ?children:[< `Options of
+                               [< Html_types.selectoption ] elt list_wrap
+                           | `Phras of [< Html_types.phrasing ] elt list_wrap
+                          ] ->
+                ([< Html_types.datalist_attrib ], [> Html_types.datalist ])
+                nullary
+              val optgroup :
+                label:Html_types.text wrap ->
+                ([< Html_types.optgroup_attrib ],
+                 [< Html_types.optgroup_content_fun ],
+                 [> Html_types.optgroup ])
+                star
+              val option :
+                ([< Html_types.option_attrib ],
+                 [< Html_types.option_content_fun ],
+                 [> Html_types.selectoption ])
+                unary
+              val textarea :
+                ([< Html_types.textarea_attrib ],
+                 [< Html_types.textarea_content_fun ],
+                 [> Html_types.textarea ])
+                unary
+              val keygen :
+                ([< Html_types.keygen_attrib ], [> Html_types.keygen ])
+                nullary
+              val progress :
+                ([< Html_types.progress_attrib ],
+                 [< Html_types.progress_content_fun ],
+                 [> Html_types.progress ])
+                star
+              val meter :
+                ([< Html_types.meter_attrib ],
+                 [< Html_types.meter_content_fun ], [> Html_types.meter ])
+                star
+              val output_elt :
+                ([< Html_types.output_elt_attrib ],
+                 [< Html_types.output_elt_content_fun ],
+                 [> Html_types.output_elt ])
+                star
+              val entity : string -> [> Html_types.txt ] elt
+              val space : unit -> [> Html_types.txt ] elt
+              val cdata : string -> [> Html_types.txt ] elt
+              val cdata_script : string -> [> Html_types.txt ] elt
+              val cdata_style : string -> [> Html_types.txt ] elt
+              val details :
+                [< Html_types.summary ] elt wrap ->
+                ([< Html_types.details_attrib ],
+                 [< Html_types.details_content_fun ],
+                 [> Html_types.details ])
+                star
+              val summary :
+                ([< Html_types.summary_attrib ],
+                 [< Html_types.summary_content_fun ],
+                 [> Html_types.summary ])
+                star
+              val command :
+                label:Html_types.text wrap ->
+                ([< Html_types.command_attrib ], [> Html_types.command ])
+                nullary
+              val menu :
+                ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
+                           | `Lis of
+                               [< `Li of [< Html_types.common ] ] elt
+                               list_wrap ] ->
+                ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
+              val script :
+                ([< Html_types.script_attrib ],
+                 [< Html_types.script_content_fun ], [> Html_types.script ])
+                unary
+              val noscript :
+                ([< Html_types.noscript_attrib ],
+                 [< Html_types.noscript_content_fun ],
+                 [> Html_types.noscript ])
+                star
+              val template :
+                ([< Html_types.template_attrib ],
+                 [< Html_types.template_content_fun ],
+                 [> Html_types.template ])
+                star
+              val meta :
+                ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
+              val style :
+                ([< Html_types.style_attrib ],
+                 [< Html_types.style_content_fun ], [> Html_types.style ])
+                star
+              val link :
+                rel:Html_types.linktypes wrap ->
+                href:Xml.uri wrap ->
+                ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
+              val rt :
+                ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
+                 [> Html_types.rt ])
+                star
+              val rp :
+                ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
+                 [> Html_types.rp ])
+                star
+              val ruby :
+                ([< Html_types.ruby_attrib ],
+                 [< Html_types.ruby_content_fun ], [> Html_types.ruby ])
+                star
+              val pcdata : string wrap -> [> Html_types.pcdata ] elt
+              val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+              val tot : Xml.elt -> 'a elt
+              val totl : Xml.elt list_wrap -> 'a elt list_wrap
+              val toelt : 'a elt -> Xml.elt
+              val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+              val doc_toelt : doc -> Xml.elt
+              val to_xmlattribs : 'a attrib list -> Xml.attrib list
+              val to_attrib : Xml.attrib -> 'a attrib
+              module Unsafe :
+                sig
+                  val data : string wrap -> 'a elt
+                  val node :
+                    string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+                  val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+                  val coerce_elt : 'a elt -> 'b elt
+                  val string_attrib : string -> string wrap -> 'a attrib
+                  val float_attrib : string -> float wrap -> 'a attrib
+                  val int_attrib : string -> int wrap -> 'a attrib
+                  val uri_attrib : string -> uri wrap -> 'a attrib
+                  val space_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                  val comma_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                end
+            end
           module Raw :
             sig
               type 'a elt = 'a elt
@@ -5494,118 +8392,12 @@
               val a_xml_lang :
                 Html_types.languagecode wrap -> [> `XML_lang ] attrib
               val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-              val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-              val a_onafterprint :
-                Xml.event_handler -> [> `OnAfterPrint ] attrib
-              val a_onbeforeprint :
-                Xml.event_handler -> [> `OnBeforePrint ] attrib
-              val a_onbeforeunload :
-                Xml.event_handler -> [> `OnBeforeUnload ] attrib
-              val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-              val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-              val a_oncanplaythrough :
-                Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-              val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-              val a_ondurationchange :
-                Xml.event_handler -> [> `OnDurationChange ] attrib
-              val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-              val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-              val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-              val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-              val a_onformchange :
-                Xml.event_handler -> [> `OnFormChange ] attrib
-              val a_onforminput :
-                Xml.event_handler -> [> `OnFormInput ] attrib
-              val a_onhashchange :
-                Xml.event_handler -> [> `OnHashChange ] attrib
-              val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-              val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-              val a_onmousewheel :
-                Xml.event_handler -> [> `OnMouseWheel ] attrib
-              val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-              val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-              val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-              val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-              val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-              val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-              val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-              val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-              val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-              val a_onratechange :
-                Xml.event_handler -> [> `OnRateChange ] attrib
-              val a_onreadystatechange :
-                Xml.event_handler -> [> `OnReadyStateChange ] attrib
-              val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-              val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-              val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-              val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-              val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-              val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-              val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-              val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-              val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-              val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-              val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-              val a_ontimeupdate :
-                Xml.event_handler -> [> `OnTimeUpdate ] attrib
-              val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-              val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-              val a_onvolumechange :
-                Xml.event_handler -> [> `OnVolumeChange ] attrib
-              val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-              val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-              val a_onloadeddata :
-                Xml.event_handler -> [> `OnLoadedData ] attrib
-              val a_onloadedmetadata :
-                Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-              val a_onloadstart :
-                Xml.event_handler -> [> `OnLoadStart ] attrib
-              val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-              val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-              val a_oncontextmenu :
-                Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-              val a_ondblclick :
-                Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-              val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-              val a_ondragend :
-                Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-              val a_ondragenter :
-                Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-              val a_ondragleave :
-                Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-              val a_ondragover :
-                Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-              val a_ondragstart :
-                Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-              val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-              val a_onmousedown :
-                Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-              val a_onmouseup :
-                Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-              val a_onmouseover :
-                Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-              val a_onmousemove :
-                Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-              val a_onmouseout :
-                Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-              val a_ontouchstart :
-                Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-              val a_ontouchend :
-                Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-              val a_ontouchmove :
-                Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-              val a_ontouchcancel :
-                Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-              val a_onkeypress :
-                Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-              val a_onkeydown :
-                Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-              val a_onkeyup :
-                Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
               val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
               val a_allowpaymentrequest :
                 unit -> [> `Allowpaymentrequest ] attrib
-              val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+              val a_autocomplete :
+                Html_types.autocomplete_option wrap ->
+                [> `Autocomplete ] attrib
               val a_async : unit -> [> `Async ] attrib
               val a_autofocus : unit -> [> `Autofocus ] attrib
               val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -5739,7 +8531,7 @@
                 Html_types.number wrap -> [> `Minlength ] attrib
               val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
               val a_formmethod :
-                [< `Get | `Post ] wrap -> [> `Method ] attrib
+                [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
               val a_multiple : unit -> [> `Multiple ] attrib
               val a_name : Html_types.text wrap -> [> `Name ] attrib
               val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -5783,6 +8575,8 @@
               val a_button_type :
                 [< `Button | `Reset | `Submit ] wrap ->
                 [> `Button_Type ] attrib
+              val a_script_type :
+                Html_types.script_type wrap -> [> `Script_type ] attrib
               val a_command_type :
                 [< `Checkbox | `Command | `Radio ] wrap ->
                 [> `Command_Type ] attrib
@@ -5855,8 +8649,8 @@
                  [< Html_types.body_content_fun ], [> Html_types.body ])
                 star
               val svg :
-                ?a:[< Html_types.svg_attrib ] Svg.F.Raw.attrib list ->
-                [< Html_types.svg_content ] Svg.F.Raw.elt list_wrap ->
+                ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+                [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
                 [> Html_types.svg ] elt
               val footer :
                 ([< Html_types.footer_attrib ],
@@ -5934,6 +8728,10 @@
                  [< Html_types.blockquote_content_fun ],
                  [> Html_types.blockquote ])
                 star
+              val dialog :
+                ([< Html_types.dialog_attrib ],
+                 [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+                star
               val div :
                 ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
                  [> Html_types.div ])
@@ -6127,6 +8925,7 @@
                   | `OnCanPlayThrough
                   | `OnChange
                   | `OnClick
+                  | `OnClose
                   | `OnContextMenu
                   | `OnDblClick
                   | `OnDrag
@@ -6402,6 +9201,86 @@
                   val comma_sep_attrib :
                     string -> string list wrap -> 'a attrib
                 end
+              val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+              val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+              val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+              val a_onbeforeunload :
+                string -> [> `OnBeforeUnload ] Raw'.attrib
+              val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+              val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+              val a_oncanplaythrough :
+                string -> [> `OnCanPlayThrough ] Raw'.attrib
+              val a_onchange : string -> [> `OnChange ] Raw'.attrib
+              val a_onclose : string -> [> `OnClose ] Raw'.attrib
+              val a_ondurationchange :
+                string -> [> `OnDurationChange ] Raw'.attrib
+              val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+              val a_onended : string -> [> `OnEnded ] Raw'.attrib
+              val a_onerror : string -> [> `OnError ] Raw'.attrib
+              val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+              val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+              val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+              val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+              val a_oninput : string -> [> `OnInput ] Raw'.attrib
+              val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+              val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+              val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+              val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+              val a_onpause : string -> [> `OnPause ] Raw'.attrib
+              val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+              val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+              val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+              val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+              val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+              val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+              val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+              val a_onreadystatechange :
+                string -> [> `OnReadyStateChange ] Raw'.attrib
+              val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+              val a_onresize : string -> [> `OnResize ] Raw'.attrib
+              val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+              val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+              val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+              val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+              val a_onshow : string -> [> `OnShow ] Raw'.attrib
+              val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+              val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+              val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+              val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+              val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+              val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+              val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+              val a_onvolumechange :
+                string -> [> `OnVolumeChange ] Raw'.attrib
+              val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+              val a_onload : string -> [> `OnLoad ] Raw'.attrib
+              val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+              val a_onloadedmetadata :
+                string -> [> `OnLoadedMetaData ] Raw'.attrib
+              val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+              val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+              val a_onclick : string -> [> `OnClick ] Raw'.attrib
+              val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+              val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+              val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+              val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+              val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+              val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+              val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+              val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+              val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+              val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+              val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+              val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+              val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+              val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+              val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+              val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+              val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+              val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+              val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+              val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+              val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
             end
           type 'a elt = 'a elt
           type doc = Html_types.html elt
@@ -6490,6 +9369,7 @@
           val a_oncanplaythrough :
             Xml.event_handler -> [> `OnCanPlayThrough ] attrib
           val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+          val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
           val a_ondurationchange :
             Xml.event_handler -> [> `OnDurationChange ] attrib
           val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
@@ -6578,7 +9458,8 @@
           val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
           val a_allowpaymentrequest :
             unit -> [> `Allowpaymentrequest ] attrib
-          val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+          val a_autocomplete :
+            Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
           val a_async : unit -> [> `Async ] attrib
           val a_autofocus : unit -> [> `Autofocus ] attrib
           val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -6696,7 +9577,8 @@
           val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
           val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
           val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-          val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+          val a_formmethod :
+            [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
           val a_multiple : unit -> [> `Multiple ] attrib
           val a_name : Html_types.text wrap -> [> `Name ] attrib
           val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -6737,6 +9619,8 @@
           val a_readonly : unit -> [> `ReadOnly ] attrib
           val a_button_type :
             [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+          val a_script_type :
+            Html_types.script_type wrap -> [> `Script_type ] attrib
           val a_command_type :
             [< `Checkbox | `Command | `Radio ] wrap ->
             [> `Command_Type ] attrib
@@ -6806,8 +9690,8 @@
              [> Html_types.body ])
             star
           val svg :
-            ?a:[< Html_types.svg_attrib ] Svg.F.Raw.attrib list ->
-            [< Html_types.svg_content ] Svg.F.Raw.elt list_wrap ->
+            ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+            [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
             [> Html_types.svg ] elt
           val footer :
             ([< Html_types.footer_attrib ],
@@ -6882,6 +9766,10 @@
              [< Html_types.blockquote_content_fun ],
              [> Html_types.blockquote ])
             star
+          val dialog :
+            ([< Html_types.dialog_attrib ],
+             [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+            star
           val div :
             ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
              [> Html_types.div ])
@@ -7066,6 +9954,7 @@
               | `OnCanPlayThrough
               | `OnChange
               | `OnClick
+              | `OnClose
               | `OnContextMenu
               | `OnDblClick
               | `OnDrag
@@ -7324,17 +10213,1014 @@
               val space_sep_attrib : string -> string list wrap -> 'a attrib
               val comma_sep_attrib : string -> string list wrap -> 'a attrib
             end
-          type ('a, 'b, 'c) lazy_star =
-              ?a:'a Eliom_content_core.Html.attrib list ->
-              'b Eliom_content_core.Html.elt list Eliom_lazy.request ->
-              'c Eliom_content_core.Html.elt
-          val lazy_form :
-            ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
-             [> Html_types.form ])
-            Eliom_content_core.Html.F.lazy_star
-        end
-      module D :
-        sig
+          type ('a, 'b, 'c) lazy_star =
+              ?a:'a Eliom_content_core.Html.attrib list ->
+              'b Eliom_content_core.Html.elt list Eliom_lazy.request ->
+              'c Eliom_content_core.Html.elt
+          val lazy_form :
+            ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
+             [> Html_types.form ])
+            Eliom_content_core.Html.F.lazy_star
+        end
+      module D :
+        sig
+          module Raw' :
+            sig
+              type 'a elt = 'a elt
+              type doc = Html_types.html elt
+              type 'a attrib = 'a attrib
+              module Xml :
+                sig
+                  module W :
+                    sig
+                      type 'a t = 'a Xml.W.t
+                      val return : 'a -> 'a t
+                      type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                      val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                      type 'a tlist = 'a Xml.W.tlist
+                      val nil : unit -> 'a tlist
+                      val singleton : 'a t -> 'a tlist
+                      val cons : 'a t -> 'a tlist -> 'a tlist
+                      val append : 'a tlist -> 'a tlist -> 'a tlist
+                      val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                    end
+                  type 'a wrap = 'a W.t
+                  type 'a list_wrap = 'a W.tlist
+                  type uri = Xml.uri
+                  val string_of_uri : (uri, string) W.ft
+                  val uri_of_string : (string, uri) W.ft
+                  type aname = string
+                  type event_handler = Xml.event_handler
+                  type mouse_event_handler = Xml.mouse_event_handler
+                  type keyboard_event_handler = Xml.keyboard_event_handler
+                  type touch_event_handler = Xml.touch_event_handler
+                  type attrib = Xml.attrib
+                  val float_attrib : aname -> float wrap -> attrib
+                  val int_attrib : aname -> int wrap -> attrib
+                  val string_attrib : aname -> string wrap -> attrib
+                  val space_sep_attrib : aname -> string list wrap -> attrib
+                  val comma_sep_attrib : aname -> string list wrap -> attrib
+                  val event_handler_attrib : aname -> event_handler -> attrib
+                  val mouse_event_handler_attrib :
+                    aname -> mouse_event_handler -> attrib
+                  val keyboard_event_handler_attrib :
+                    aname -> keyboard_event_handler -> attrib
+                  val touch_event_handler_attrib :
+                    aname -> touch_event_handler -> attrib
+                  val uri_attrib : aname -> uri wrap -> attrib
+                  val uris_attrib : aname -> uri list wrap -> attrib
+                  type elt = Xml.elt
+                  type ename = string
+                  val empty : unit -> elt
+                  val comment : string -> elt
+                  val pcdata : string wrap -> elt
+                  val encodedpcdata : string wrap -> elt
+                  val entity : string -> elt
+                  val leaf : ?a:attrib list -> ename -> elt
+                  val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+                  val cdata : string -> elt
+                  val cdata_script : string -> elt
+                  val cdata_style : string -> elt
+                end
+              type 'a wrap = 'a Xml.W.t
+              type 'a list_wrap = 'a Xml.W.tlist
+              type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+              type ('a, 'b, 'c) unary =
+                  ?a:'a attrib list -> 'b elt wrap -> 'c elt
+              type ('a, 'b, 'c) star =
+                  ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              module Info : Xml_sigs.Info
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) Xml.W.ft
+              val uri_of_string : (string, uri) Xml.W.ft
+              val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+              val a_user_data :
+                Html_types.nmtoken ->
+                Html_types.text wrap -> [> `User_data ] attrib
+              val a_id : Html_types.text wrap -> [> `Id ] attrib
+              val a_title : Html_types.text wrap -> [> `Title ] attrib
+              val a_xml_lang :
+                Html_types.languagecode wrap -> [> `XML_lang ] attrib
+              val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
+              val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+              val a_onafterprint :
+                Xml.event_handler -> [> `OnAfterPrint ] attrib
+              val a_onbeforeprint :
+                Xml.event_handler -> [> `OnBeforePrint ] attrib
+              val a_onbeforeunload :
+                Xml.event_handler -> [> `OnBeforeUnload ] attrib
+              val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
+              val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
+              val a_oncanplaythrough :
+                Xml.event_handler -> [> `OnCanPlayThrough ] attrib
+              val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+              val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
+              val a_ondurationchange :
+                Xml.event_handler -> [> `OnDurationChange ] attrib
+              val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
+              val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
+              val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+              val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
+              val a_onformchange :
+                Xml.event_handler -> [> `OnFormChange ] attrib
+              val a_onforminput :
+                Xml.event_handler -> [> `OnFormInput ] attrib
+              val a_onhashchange :
+                Xml.event_handler -> [> `OnHashChange ] attrib
+              val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
+              val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
+              val a_onmousewheel :
+                Xml.event_handler -> [> `OnMouseWheel ] attrib
+              val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
+              val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
+              val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
+              val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
+              val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
+              val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
+              val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
+              val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
+              val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
+              val a_onratechange :
+                Xml.event_handler -> [> `OnRateChange ] attrib
+              val a_onreadystatechange :
+                Xml.event_handler -> [> `OnReadyStateChange ] attrib
+              val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
+              val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+              val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+              val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
+              val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
+              val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
+              val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
+              val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
+              val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
+              val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
+              val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
+              val a_ontimeupdate :
+                Xml.event_handler -> [> `OnTimeUpdate ] attrib
+              val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
+              val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+              val a_onvolumechange :
+                Xml.event_handler -> [> `OnVolumeChange ] attrib
+              val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
+              val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+              val a_onloadeddata :
+                Xml.event_handler -> [> `OnLoadedData ] attrib
+              val a_onloadedmetadata :
+                Xml.event_handler -> [> `OnLoadedMetaData ] attrib
+              val a_onloadstart :
+                Xml.event_handler -> [> `OnLoadStart ] attrib
+              val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
+              val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+              val a_oncontextmenu :
+                Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
+              val a_ondblclick :
+                Xml.mouse_event_handler -> [> `OnDblClick ] attrib
+              val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
+              val a_ondragend :
+                Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
+              val a_ondragenter :
+                Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
+              val a_ondragleave :
+                Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
+              val a_ondragover :
+                Xml.mouse_event_handler -> [> `OnDragOver ] attrib
+              val a_ondragstart :
+                Xml.mouse_event_handler -> [> `OnDragStart ] attrib
+              val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
+              val a_onmousedown :
+                Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+              val a_onmouseup :
+                Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+              val a_onmouseover :
+                Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+              val a_onmousemove :
+                Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+              val a_onmouseout :
+                Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+              val a_ontouchstart :
+                Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+              val a_ontouchend :
+                Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+              val a_ontouchmove :
+                Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+              val a_ontouchcancel :
+                Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+              val a_onkeypress :
+                Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
+              val a_onkeydown :
+                Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
+              val a_onkeyup :
+                Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+              val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
+              val a_allowpaymentrequest :
+                unit -> [> `Allowpaymentrequest ] attrib
+              val a_autocomplete :
+                Html_types.autocomplete_option wrap ->
+                [> `Autocomplete ] attrib
+              val a_async : unit -> [> `Async ] attrib
+              val a_autofocus : unit -> [> `Autofocus ] attrib
+              val a_autoplay : unit -> [> `Autoplay ] attrib
+              val a_muted : unit -> [> `Muted ] attrib
+              val a_crossorigin :
+                [< `Anonymous | `Use_credentials ] wrap ->
+                [> `Crossorigin ] attrib
+              val a_integrity : string wrap -> [> `Integrity ] attrib
+              val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
+              val a_challenge :
+                Html_types.text wrap -> [> `Challenge ] attrib
+              val a_contenteditable :
+                bool wrap -> [> `Contenteditable ] attrib
+              val a_contextmenu :
+                Html_types.idref wrap -> [> `Contextmenu ] attrib
+              val a_controls : unit -> [> `Controls ] attrib
+              val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
+              val a_draggable : bool wrap -> [> `Draggable ] attrib
+              val a_form : Html_types.idref wrap -> [> `Form ] attrib
+              val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
+              val a_formenctype :
+                Html_types.contenttype wrap -> [> `Formenctype ] attrib
+              val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
+              val a_formtarget :
+                Html_types.text wrap -> [> `Formtarget ] attrib
+              val a_hidden : unit -> [> `Hidden ] attrib
+              val a_high : Html_types.float_number wrap -> [> `High ] attrib
+              val a_icon : Xml.uri wrap -> [> `Icon ] attrib
+              val a_ismap : unit -> [> `Ismap ] attrib
+              val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
+              val a_list : Html_types.idref wrap -> [> `List ] attrib
+              val a_loop : unit -> [> `Loop ] attrib
+              val a_low : Html_types.float_number wrap -> [> `High ] attrib
+              val a_max : Html_types.float_number wrap -> [> `Max ] attrib
+              val a_input_max :
+                Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
+              val a_min : Html_types.float_number wrap -> [> `Min ] attrib
+              val a_input_min :
+                Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
+              val a_inputmode :
+                [< `Decimal
+                 | `Email
+                 | `None
+                 | `Numeric
+                 | `Search
+                 | `Tel
+                 | `Text
+                 | `Url ]
+                wrap -> [> `Inputmode ] attrib
+              val a_novalidate : unit -> [> `Novalidate ] attrib
+              val a_open : unit -> [> `Open ] attrib
+              val a_optimum :
+                Html_types.float_number wrap -> [> `Optimum ] attrib
+              val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
+              val a_placeholder :
+                Html_types.text wrap -> [> `Placeholder ] attrib
+              val a_poster : Xml.uri wrap -> [> `Poster ] attrib
+              val a_preload :
+                [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
+              val a_pubdate : unit -> [> `Pubdate ] attrib
+              val a_radiogroup :
+                Html_types.text wrap -> [> `Radiogroup ] attrib
+              val a_referrerpolicy :
+                Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
+              val a_required : unit -> [> `Required ] attrib
+              val a_reversed : unit -> [> `Reversed ] attrib
+              val a_sandbox :
+                [< Html_types.sandbox_token ] list wrap ->
+                [> `Sandbox ] attrib
+              val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
+              val a_scoped : unit -> [> `Scoped ] attrib
+              val a_seamless : unit -> [> `Seamless ] attrib
+              val a_sizes :
+                (Html_types.number * Html_types.number) list option wrap ->
+                [> `Sizes ] attrib
+              val a_span : Html_types.number wrap -> [> `Span ] attrib
+              val a_srclang :
+                Html_types.nmtoken wrap -> [> `XML_lang ] attrib
+              type image_candidate =
+                  [ `Url of uri
+                  | `Url_pixel of uri * Html_types.float_number
+                  | `Url_width of uri * Html_types.number ]
+              val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
+              val a_img_sizes :
+                Html_types.text list wrap -> [> `Img_sizes ] attrib
+              val a_start : Html_types.number wrap -> [> `Start ] attrib
+              val a_step :
+                Html_types.float_number option wrap -> [> `Step ] attrib
+              val a_translate :
+                [< `No | `Yes ] wrap -> [> `Translate ] attrib
+              val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
+              val a_version : Html_types.cdata wrap -> [> `Version ] attrib
+              val a_xmlns :
+                [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
+              val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
+              val a_cite : Xml.uri wrap -> [> `Cite ] attrib
+              val a_xml_space :
+                [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
+              val a_accesskey :
+                Html_types.character wrap -> [> `Accesskey ] attrib
+              val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
+              val a_accept_charset :
+                Html_types.charsets wrap -> [> `Accept_charset ] attrib
+              val a_accept :
+                Html_types.contenttypes wrap -> [> `Accept ] attrib
+              val a_href : Xml.uri wrap -> [> `Href ] attrib
+              val a_hreflang :
+                Html_types.languagecode wrap -> [> `Hreflang ] attrib
+              val a_download : string option wrap -> [> `Download ] attrib
+              val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
+              val a_tabindex :
+                Html_types.number wrap -> [> `Tabindex ] attrib
+              val a_mime_type :
+                Html_types.contenttype wrap -> [> `Mime_type ] attrib
+              val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
+              val a_action : Xml.uri wrap -> [> `Action ] attrib
+              val a_checked : unit -> [> `Checked ] attrib
+              val a_cols : Html_types.number wrap -> [> `Cols ] attrib
+              val a_enctype :
+                Html_types.contenttype wrap -> [> `Enctype ] attrib
+              val a_label_for :
+                Html_types.idref wrap -> [> `Label_for ] attrib
+              val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
+              val a_output_for :
+                Html_types.idrefs wrap -> [> `Output_for ] attrib
+              val a_for_list :
+                Html_types.idrefs wrap -> [> `Output_for ] attrib
+              val a_maxlength :
+                Html_types.number wrap -> [> `Maxlength ] attrib
+              val a_minlength :
+                Html_types.number wrap -> [> `Minlength ] attrib
+              val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
+              val a_formmethod :
+                [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
+              val a_multiple : unit -> [> `Multiple ] attrib
+              val a_name : Html_types.text wrap -> [> `Name ] attrib
+              val a_rows : Html_types.number wrap -> [> `Rows ] attrib
+              val a_selected : unit -> [> `Selected ] attrib
+              val a_size : Html_types.number wrap -> [> `Size ] attrib
+              val a_src : Xml.uri wrap -> [> `Src ] attrib
+              val a_input_type :
+                [< `Button
+                 | `Checkbox
+                 | `Color
+                 | `Date
+                 | `Datetime
+                 | `Datetime_local
+                 | `Email
+                 | `File
+                 | `Hidden
+                 | `Image
+                 | `Month
+                 | `Number
+                 | `Password
+                 | `Radio
+                 | `Range
+                 | `Reset
+                 | `Search
+                 | `Submit
+                 | `Tel
+                 | `Text
+                 | `Time
+                 | `Url
+                 | `Week ]
+                wrap -> [> `Input_Type ] attrib
+              val a_text_value :
+                Html_types.text wrap -> [> `Text_Value ] attrib
+              val a_int_value :
+                Html_types.number wrap -> [> `Int_Value ] attrib
+              val a_value : Html_types.cdata wrap -> [> `Value ] attrib
+              val a_float_value :
+                Html_types.float_number wrap -> [> `Float_Value ] attrib
+              val a_disabled : unit -> [> `Disabled ] attrib
+              val a_readonly : unit -> [> `ReadOnly ] attrib
+              val a_button_type :
+                [< `Button | `Reset | `Submit ] wrap ->
+                [> `Button_Type ] attrib
+              val a_script_type :
+                Html_types.script_type wrap -> [> `Script_type ] attrib
+              val a_command_type :
+                [< `Checkbox | `Command | `Radio ] wrap ->
+                [> `Command_Type ] attrib
+              val a_menu_type :
+                [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
+              val a_label : Html_types.text wrap -> [> `Label ] attrib
+              val a_align :
+                [< `Char | `Justify | `Left | `Right ] wrap ->
+                [> `Align ] attrib
+              val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
+              val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
+              val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
+              val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
+              val a_scope :
+                [< `Col | `Colgroup | `Row | `Rowgroup ] wrap ->
+                [> `Scope ] attrib
+              val a_summary : Html_types.text wrap -> [> `Summary ] attrib
+              val a_border : Html_types.pixels wrap -> [> `Border ] attrib
+              val a_rules :
+                [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
+                [> `Rules ] attrib
+              val a_char : Html_types.character wrap -> [> `Char ] attrib
+              val a_alt : Html_types.text wrap -> [> `Alt ] attrib
+              val a_height : Html_types.number wrap -> [> `Height ] attrib
+              val a_width : Html_types.number wrap -> [> `Width ] attrib
+              type shape = [ `Circle | `Default | `Poly | `Rect ]
+              val a_shape : shape wrap -> [> `Shape ] attrib
+              val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
+              val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
+              val a_data : Xml.uri wrap -> [> `Data ] attrib
+              val a_codetype :
+                Html_types.contenttype wrap -> [> `Codetype ] attrib
+              val a_frameborder :
+                [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
+              val a_marginheight :
+                Html_types.pixels wrap -> [> `Marginheight ] attrib
+              val a_marginwidth :
+                Html_types.pixels wrap -> [> `Marginwidth ] attrib
+              val a_scrolling :
+                [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
+              val a_target :
+                Html_types.frametarget wrap -> [> `Target ] attrib
+              val a_content : Html_types.text wrap -> [> `Content ] attrib
+              val a_http_equiv :
+                Html_types.text wrap -> [> `Http_equiv ] attrib
+              val a_defer : unit -> [> `Defer ] attrib
+              val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
+              val a_style : string wrap -> [> `Style_Attr ] attrib
+              val a_property : string wrap -> [> `Property ] attrib
+              val a_role : string list wrap -> [> `Role ] attrib
+              val a_aria : string -> string list wrap -> [> `Aria ] attrib
+              val txt : string wrap -> [> Html_types.txt ] elt
+              val html :
+                ?a:Html_types.html_attrib attrib list ->
+                [< Html_types.head ] elt wrap ->
+                [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
+              val head :
+                ?a:Html_types.head_attrib attrib list ->
+                [< Html_types.title ] elt wrap ->
+                Html_types.head_content_fun elt list_wrap ->
+                [> Html_types.head ] elt
+              val base :
+                ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
+              val title :
+                (Html_types.title_attrib, [< Html_types.title_content_fun ],
+                 [> Html_types.title ])
+                unary
+              val body :
+                ([< Html_types.body_attrib ],
+                 [< Html_types.body_content_fun ], [> Html_types.body ])
+                star
+              val svg :
+                ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+                [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
+                [> Html_types.svg ] elt
+              val footer :
+                ([< Html_types.footer_attrib ],
+                 [< Html_types.footer_content_fun ], [> Html_types.footer ])
+                star
+              val header :
+                ([< Html_types.header_attrib ],
+                 [< Html_types.header_content_fun ], [> Html_types.header ])
+                star
+              val section :
+                ([< Html_types.section_attrib ],
+                 [< Html_types.section_content_fun ],
+                 [> Html_types.section ])
+                star
+              val nav :
+                ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
+                 [> Html_types.nav ])
+                star
+              val h1 :
+                ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
+                 [> Html_types.h1 ])
+                star
+              val h2 :
+                ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
+                 [> Html_types.h2 ])
+                star
+              val h3 :
+                ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
+                 [> Html_types.h3 ])
+                star
+              val h4 :
+                ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
+                 [> Html_types.h4 ])
+                star
+              val h5 :
+                ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
+                 [> Html_types.h5 ])
+                star
+              val h6 :
+                ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
+                 [> Html_types.h6 ])
+                star
+              val hgroup :
+                ([< Html_types.hgroup_attrib ],
+                 [< Html_types.hgroup_content_fun ], [> Html_types.hgroup ])
+                star
+              val address :
+                ([< Html_types.address_attrib ],
+                 [< Html_types.address_content_fun ],
+                 [> Html_types.address ])
+                star
+              val article :
+                ([< Html_types.article_attrib ],
+                 [< Html_types.article_content_fun ],
+                 [> Html_types.article ])
+                star
+              val aside :
+                ([< Html_types.aside_attrib ],
+                 [< Html_types.aside_content_fun ], [> Html_types.aside ])
+                star
+              val main :
+                ([< Html_types.main_attrib ],
+                 [< Html_types.main_content_fun ], [> Html_types.main ])
+                star
+              val p :
+                ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
+                 [> Html_types.p ])
+                star
+              val pre :
+                ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
+                 [> Html_types.pre ])
+                star
+              val blockquote :
+                ([< Html_types.blockquote_attrib ],
+                 [< Html_types.blockquote_content_fun ],
+                 [> Html_types.blockquote ])
+                star
+              val dialog :
+                ([< Html_types.dialog_attrib ],
+                 [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+                star
+              val div :
+                ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
+                 [> Html_types.div ])
+                star
+              val dl :
+                ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
+                 [> Html_types.dl ])
+                star
+              val ol :
+                ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
+                 [> Html_types.ol ])
+                star
+              val ul :
+                ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
+                 [> Html_types.ul ])
+                star
+              val dd :
+                ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
+                 [> Html_types.dd ])
+                star
+              val dt :
+                ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
+                 [> Html_types.dt ])
+                star
+              val li :
+                ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
+                 [> Html_types.li ])
+                star
+              val figcaption :
+                ([< Html_types.figcaption_attrib ],
+                 [< Html_types.figcaption_content_fun ],
+                 [> Html_types.figcaption ])
+                star
+              val figure :
+                ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
+                            | `Top of [< Html_types.figcaption ] elt wrap ] ->
+                ([< Html_types.figure_attrib ],
+                 [< Html_types.figure_content_fun ], [> Html_types.figure ])
+                star
+              val hr :
+                ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
+              val b :
+                ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
+                 [> Html_types.b ])
+                star
+              val i :
+                ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
+                 [> Html_types.i ])
+                star
+              val u :
+                ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
+                 [> Html_types.u ])
+                star
+              val small :
+                ([< Html_types.small_attrib ],
+                 [< Html_types.small_content_fun ], [> Html_types.small ])
+                star
+              val sub :
+                ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
+                 [> Html_types.sub ])
+                star
+              val sup :
+                ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
+                 [> Html_types.sup ])
+                star
+              val mark :
+                ([< Html_types.mark_attrib ],
+                 [< Html_types.mark_content_fun ], [> Html_types.mark ])
+                star
+              val wbr :
+                ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
+              val bdo :
+                dir:[< `Ltr | `Rtl ] wrap ->
+                ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
+                 [> Html_types.bdo ])
+                star
+              val abbr :
+                ([< Html_types.abbr_attrib ],
+                 [< Html_types.abbr_content_fun ], [> Html_types.abbr ])
+                star
+              val br :
+                ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
+              val cite :
+                ([< Html_types.cite_attrib ],
+                 [< Html_types.cite_content_fun ], [> Html_types.cite ])
+                star
+              val code :
+                ([< Html_types.code_attrib ],
+                 [< Html_types.code_content_fun ], [> Html_types.code ])
+                star
+              val dfn :
+                ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
+                 [> Html_types.dfn ])
+                star
+              val em :
+                ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
+                 [> Html_types.em ])
+                star
+              val kbd :
+                ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
+                 [> Html_types.kbd ])
+                star
+              val q :
+                ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
+                 [> Html_types.q ])
+                star
+              val samp :
+                ([< Html_types.samp_attrib ],
+                 [< Html_types.samp_content_fun ], [> Html_types.samp ])
+                star
+              val span :
+                ([< Html_types.span_attrib ],
+                 [< Html_types.span_content_fun ], [> Html_types.span ])
+                star
+              val strong :
+                ([< Html_types.strong_attrib ],
+                 [< Html_types.strong_content_fun ], [> Html_types.strong ])
+                star
+              val time :
+                ([< Html_types.time_attrib ],
+                 [< Html_types.time_content_fun ], [> Html_types.time ])
+                star
+              val var :
+                ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
+                 [> Html_types.var ])
+                star
+              val a :
+                ([< Html_types.a_attrib ], 'a, [> 'a Html_types.a ]) star
+              val del :
+                ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
+              val ins :
+                ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
+              val img :
+                src:Xml.uri wrap ->
+                alt:Html_types.text wrap ->
+                ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
+              val picture :
+                img:[< Html_types.img ] elt wrap ->
+                ([< Html_types.picture_attrib ],
+                 [< Html_types.picture_content_fun ],
+                 [> Html_types.picture ])
+                star
+              val iframe :
+                ([< Html_types.iframe_attrib ],
+                 [< Html_types.iframe_content_fun ], [> Html_types.iframe ])
+                star
+              val object_ :
+                ?params:[< Html_types.param ] elt list_wrap ->
+                ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
+              val param :
+                ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
+              val embed :
+                ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
+              val audio :
+                ?src:Xml.uri wrap ->
+                ?srcs:[< Html_types.source ] elt list_wrap ->
+                ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ])
+                star
+              val video :
+                ?src:Xml.uri wrap ->
+                ?srcs:[< Html_types.source ] elt list_wrap ->
+                ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ])
+                star
+              val canvas :
+                ([< Html_types.canvas_attrib ], 'a,
+                 [> 'a Html_types.canvas ])
+                star
+              val source :
+                ([< Html_types.source_attrib ], [> Html_types.source ])
+                nullary
+              val area :
+                alt:Html_types.text wrap ->
+                ([< `Accesskey
+                  | `Alt
+                  | `Aria
+                  | `Class
+                  | `Contenteditable
+                  | `Contextmenu
+                  | `Coords
+                  | `Dir
+                  | `Draggable
+                  | `Hidden
+                  | `Hreflang
+                  | `Id
+                  | `Lang
+                  | `Media
+                  | `Mime_type
+                  | `OnAbort
+                  | `OnBlur
+                  | `OnCanPlay
+                  | `OnCanPlayThrough
+                  | `OnChange
+                  | `OnClick
+                  | `OnClose
+                  | `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
+                  | `Rel
+                  | `Role
+                  | `Shape
+                  | `Spellcheck
+                  | `Style_Attr
+                  | `Tabindex
+                  | `Target
+                  | `Title
+                  | `Translate
+                  | `User_data
+                  | `XML_lang
+                  | `XMLns ],
+                 [> Html_types.area ])
+                nullary
+              val map :
+                ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
+              val caption :
+                ([< Html_types.caption_attrib ],
+                 [< Html_types.caption_content_fun ],
+                 [> Html_types.caption ])
+                star
+              val table :
+                ?caption:[< Html_types.caption ] elt wrap ->
+                ?columns:[< Html_types.colgroup ] elt list_wrap ->
+                ?thead:[< Html_types.thead ] elt wrap ->
+                ?tfoot:[< Html_types.tfoot ] elt wrap ->
+                ([< Html_types.table_attrib ],
+                 [< Html_types.table_content_fun ], [> Html_types.table ])
+                star
+              val tablex :
+                ?caption:[< Html_types.caption ] elt wrap ->
+                ?columns:[< Html_types.colgroup ] elt list_wrap ->
+                ?thead:[< Html_types.thead ] elt wrap ->
+                ?tfoot:[< Html_types.tfoot ] elt wrap ->
+                ([< Html_types.tablex_attrib ],
+                 [< Html_types.tablex_content_fun ], [> Html_types.tablex ])
+                star
+              val colgroup :
+                ([< Html_types.colgroup_attrib ],
+                 [< Html_types.colgroup_content_fun ],
+                 [> Html_types.colgroup ])
+                star
+              val col :
+                ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
+              val thead :
+                ([< Html_types.thead_attrib ],
+                 [< Html_types.thead_content_fun ], [> Html_types.thead ])
+                star
+              val tbody :
+                ([< Html_types.tbody_attrib ],
+                 [< Html_types.tbody_content_fun ], [> Html_types.tbody ])
+                star
+              val tfoot :
+                ([< Html_types.tfoot_attrib ],
+                 [< Html_types.tfoot_content_fun ], [> Html_types.tfoot ])
+                star
+              val td :
+                ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
+                 [> Html_types.td ])
+                star
+              val th :
+                ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
+                 [> Html_types.th ])
+                star
+              val tr :
+                ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
+                 [> Html_types.tr ])
+                star
+              val form :
+                ([< Html_types.form_attrib ],
+                 [< Html_types.form_content_fun ], [> Html_types.form ])
+                star
+              val fieldset :
+                ?legend:[< Html_types.legend ] elt wrap ->
+                ([< Html_types.fieldset_attrib ],
+                 [< Html_types.fieldset_content_fun ],
+                 [> Html_types.fieldset ])
+                star
+              val legend :
+                ([< Html_types.legend_attrib ],
+                 [< Html_types.legend_content_fun ], [> Html_types.legend ])
+                star
+              val label :
+                ([< Html_types.label_attrib ],
+                 [< Html_types.label_content_fun ], [> Html_types.label ])
+                star
+              val input :
+                ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
+              val button :
+                ([< Html_types.button_attrib ],
+                 [< Html_types.button_content_fun ], [> Html_types.button ])
+                star
+              val select :
+                ([< Html_types.select_attrib ],
+                 [< Html_types.select_content_fun ], [> Html_types.select ])
+                star
+              val datalist :
+                ?children:[< `Options of
+                               [< Html_types.selectoption ] elt list_wrap
+                           | `Phras of [< Html_types.phrasing ] elt list_wrap
+                          ] ->
+                ([< Html_types.datalist_attrib ], [> Html_types.datalist ])
+                nullary
+              val optgroup :
+                label:Html_types.text wrap ->
+                ([< Html_types.optgroup_attrib ],
+                 [< Html_types.optgroup_content_fun ],
+                 [> Html_types.optgroup ])
+                star
+              val option :
+                ([< Html_types.option_attrib ],
+                 [< Html_types.option_content_fun ],
+                 [> Html_types.selectoption ])
+                unary
+              val textarea :
+                ([< Html_types.textarea_attrib ],
+                 [< Html_types.textarea_content_fun ],
+                 [> Html_types.textarea ])
+                unary
+              val keygen :
+                ([< Html_types.keygen_attrib ], [> Html_types.keygen ])
+                nullary
+              val progress :
+                ([< Html_types.progress_attrib ],
+                 [< Html_types.progress_content_fun ],
+                 [> Html_types.progress ])
+                star
+              val meter :
+                ([< Html_types.meter_attrib ],
+                 [< Html_types.meter_content_fun ], [> Html_types.meter ])
+                star
+              val output_elt :
+                ([< Html_types.output_elt_attrib ],
+                 [< Html_types.output_elt_content_fun ],
+                 [> Html_types.output_elt ])
+                star
+              val entity : string -> [> Html_types.txt ] elt
+              val space : unit -> [> Html_types.txt ] elt
+              val cdata : string -> [> Html_types.txt ] elt
+              val cdata_script : string -> [> Html_types.txt ] elt
+              val cdata_style : string -> [> Html_types.txt ] elt
+              val details :
+                [< Html_types.summary ] elt wrap ->
+                ([< Html_types.details_attrib ],
+                 [< Html_types.details_content_fun ],
+                 [> Html_types.details ])
+                star
+              val summary :
+                ([< Html_types.summary_attrib ],
+                 [< Html_types.summary_content_fun ],
+                 [> Html_types.summary ])
+                star
+              val command :
+                label:Html_types.text wrap ->
+                ([< Html_types.command_attrib ], [> Html_types.command ])
+                nullary
+              val menu :
+                ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
+                           | `Lis of
+                               [< `Li of [< Html_types.common ] ] elt
+                               list_wrap ] ->
+                ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
+              val script :
+                ([< Html_types.script_attrib ],
+                 [< Html_types.script_content_fun ], [> Html_types.script ])
+                unary
+              val noscript :
+                ([< Html_types.noscript_attrib ],
+                 [< Html_types.noscript_content_fun ],
+                 [> Html_types.noscript ])
+                star
+              val template :
+                ([< Html_types.template_attrib ],
+                 [< Html_types.template_content_fun ],
+                 [> Html_types.template ])
+                star
+              val meta :
+                ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
+              val style :
+                ([< Html_types.style_attrib ],
+                 [< Html_types.style_content_fun ], [> Html_types.style ])
+                star
+              val link :
+                rel:Html_types.linktypes wrap ->
+                href:Xml.uri wrap ->
+                ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
+              val rt :
+                ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
+                 [> Html_types.rt ])
+                star
+              val rp :
+                ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
+                 [> Html_types.rp ])
+                star
+              val ruby :
+                ([< Html_types.ruby_attrib ],
+                 [< Html_types.ruby_content_fun ], [> Html_types.ruby ])
+                star
+              val pcdata : string wrap -> [> Html_types.pcdata ] elt
+              val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+              val tot : Xml.elt -> 'a elt
+              val totl : Xml.elt list_wrap -> 'a elt list_wrap
+              val toelt : 'a elt -> Xml.elt
+              val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+              val doc_toelt : doc -> Xml.elt
+              val to_xmlattribs : 'a attrib list -> Xml.attrib list
+              val to_attrib : Xml.attrib -> 'a attrib
+              module Unsafe :
+                sig
+                  val data : string wrap -> 'a elt
+                  val node :
+                    string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+                  val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+                  val coerce_elt : 'a elt -> 'b elt
+                  val string_attrib : string -> string wrap -> 'a attrib
+                  val float_attrib : string -> float wrap -> 'a attrib
+                  val int_attrib : string -> int wrap -> 'a attrib
+                  val uri_attrib : string -> uri wrap -> 'a attrib
+                  val space_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                  val comma_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                end
+            end
           module Raw :
             sig
               type 'a elt = 'a elt
@@ -7413,118 +11299,12 @@
               val a_xml_lang :
                 Html_types.languagecode wrap -> [> `XML_lang ] attrib
               val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-              val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-              val a_onafterprint :
-                Xml.event_handler -> [> `OnAfterPrint ] attrib
-              val a_onbeforeprint :
-                Xml.event_handler -> [> `OnBeforePrint ] attrib
-              val a_onbeforeunload :
-                Xml.event_handler -> [> `OnBeforeUnload ] attrib
-              val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-              val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-              val a_oncanplaythrough :
-                Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-              val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-              val a_ondurationchange :
-                Xml.event_handler -> [> `OnDurationChange ] attrib
-              val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-              val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-              val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-              val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-              val a_onformchange :
-                Xml.event_handler -> [> `OnFormChange ] attrib
-              val a_onforminput :
-                Xml.event_handler -> [> `OnFormInput ] attrib
-              val a_onhashchange :
-                Xml.event_handler -> [> `OnHashChange ] attrib
-              val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-              val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-              val a_onmousewheel :
-                Xml.event_handler -> [> `OnMouseWheel ] attrib
-              val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-              val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-              val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-              val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-              val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-              val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-              val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-              val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-              val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-              val a_onratechange :
-                Xml.event_handler -> [> `OnRateChange ] attrib
-              val a_onreadystatechange :
-                Xml.event_handler -> [> `OnReadyStateChange ] attrib
-              val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-              val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-              val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-              val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-              val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-              val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-              val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-              val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-              val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-              val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-              val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-              val a_ontimeupdate :
-                Xml.event_handler -> [> `OnTimeUpdate ] attrib
-              val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-              val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-              val a_onvolumechange :
-                Xml.event_handler -> [> `OnVolumeChange ] attrib
-              val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-              val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-              val a_onloadeddata :
-                Xml.event_handler -> [> `OnLoadedData ] attrib
-              val a_onloadedmetadata :
-                Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-              val a_onloadstart :
-                Xml.event_handler -> [> `OnLoadStart ] attrib
-              val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-              val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-              val a_oncontextmenu :
-                Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-              val a_ondblclick :
-                Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-              val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-              val a_ondragend :
-                Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-              val a_ondragenter :
-                Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-              val a_ondragleave :
-                Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-              val a_ondragover :
-                Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-              val a_ondragstart :
-                Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-              val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-              val a_onmousedown :
-                Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-              val a_onmouseup :
-                Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-              val a_onmouseover :
-                Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-              val a_onmousemove :
-                Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-              val a_onmouseout :
-                Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-              val a_ontouchstart :
-                Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-              val a_ontouchend :
-                Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-              val a_ontouchmove :
-                Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-              val a_ontouchcancel :
-                Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-              val a_onkeypress :
-                Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-              val a_onkeydown :
-                Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-              val a_onkeyup :
-                Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
               val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
               val a_allowpaymentrequest :
                 unit -> [> `Allowpaymentrequest ] attrib
-              val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+              val a_autocomplete :
+                Html_types.autocomplete_option wrap ->
+                [> `Autocomplete ] attrib
               val a_async : unit -> [> `Async ] attrib
               val a_autofocus : unit -> [> `Autofocus ] attrib
               val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -7658,7 +11438,7 @@
                 Html_types.number wrap -> [> `Minlength ] attrib
               val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
               val a_formmethod :
-                [< `Get | `Post ] wrap -> [> `Method ] attrib
+                [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
               val a_multiple : unit -> [> `Multiple ] attrib
               val a_name : Html_types.text wrap -> [> `Name ] attrib
               val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -7702,6 +11482,8 @@
               val a_button_type :
                 [< `Button | `Reset | `Submit ] wrap ->
                 [> `Button_Type ] attrib
+              val a_script_type :
+                Html_types.script_type wrap -> [> `Script_type ] attrib
               val a_command_type :
                 [< `Checkbox | `Command | `Radio ] wrap ->
                 [> `Command_Type ] attrib
@@ -7774,8 +11556,8 @@
                  [< Html_types.body_content_fun ], [> Html_types.body ])
                 star
               val svg :
-                ?a:[< Html_types.svg_attrib ] Svg.D.Raw.attrib list ->
-                [< Html_types.svg_content ] Svg.D.Raw.elt list_wrap ->
+                ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+                [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
                 [> Html_types.svg ] elt
               val footer :
                 ([< Html_types.footer_attrib ],
@@ -7853,6 +11635,10 @@
                  [< Html_types.blockquote_content_fun ],
                  [> Html_types.blockquote ])
                 star
+              val dialog :
+                ([< Html_types.dialog_attrib ],
+                 [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+                star
               val div :
                 ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
                  [> Html_types.div ])
@@ -8046,6 +11832,7 @@
                   | `OnCanPlayThrough
                   | `OnChange
                   | `OnClick
+                  | `OnClose
                   | `OnContextMenu
                   | `OnDblClick
                   | `OnDrag
@@ -8321,6 +12108,86 @@
                   val comma_sep_attrib :
                     string -> string list wrap -> 'a attrib
                 end
+              val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+              val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+              val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+              val a_onbeforeunload :
+                string -> [> `OnBeforeUnload ] Raw'.attrib
+              val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+              val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+              val a_oncanplaythrough :
+                string -> [> `OnCanPlayThrough ] Raw'.attrib
+              val a_onchange : string -> [> `OnChange ] Raw'.attrib
+              val a_onclose : string -> [> `OnClose ] Raw'.attrib
+              val a_ondurationchange :
+                string -> [> `OnDurationChange ] Raw'.attrib
+              val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+              val a_onended : string -> [> `OnEnded ] Raw'.attrib
+              val a_onerror : string -> [> `OnError ] Raw'.attrib
+              val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+              val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+              val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+              val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+              val a_oninput : string -> [> `OnInput ] Raw'.attrib
+              val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+              val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+              val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+              val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+              val a_onpause : string -> [> `OnPause ] Raw'.attrib
+              val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+              val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+              val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+              val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+              val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+              val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+              val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+              val a_onreadystatechange :
+                string -> [> `OnReadyStateChange ] Raw'.attrib
+              val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+              val a_onresize : string -> [> `OnResize ] Raw'.attrib
+              val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+              val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+              val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+              val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+              val a_onshow : string -> [> `OnShow ] Raw'.attrib
+              val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+              val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+              val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+              val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+              val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+              val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+              val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+              val a_onvolumechange :
+                string -> [> `OnVolumeChange ] Raw'.attrib
+              val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+              val a_onload : string -> [> `OnLoad ] Raw'.attrib
+              val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+              val a_onloadedmetadata :
+                string -> [> `OnLoadedMetaData ] Raw'.attrib
+              val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+              val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+              val a_onclick : string -> [> `OnClick ] Raw'.attrib
+              val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+              val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+              val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+              val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+              val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+              val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+              val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+              val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+              val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+              val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+              val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+              val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+              val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+              val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+              val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+              val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+              val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+              val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+              val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+              val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+              val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
             end
           type 'a elt = 'a elt
           type doc = Html_types.html elt
@@ -8409,6 +12276,7 @@
           val a_oncanplaythrough :
             Xml.event_handler -> [> `OnCanPlayThrough ] attrib
           val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+          val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
           val a_ondurationchange :
             Xml.event_handler -> [> `OnDurationChange ] attrib
           val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
@@ -8497,7 +12365,8 @@
           val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
           val a_allowpaymentrequest :
             unit -> [> `Allowpaymentrequest ] attrib
-          val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+          val a_autocomplete :
+            Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
           val a_async : unit -> [> `Async ] attrib
           val a_autofocus : unit -> [> `Autofocus ] attrib
           val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -8615,7 +12484,8 @@
           val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
           val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
           val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-          val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+          val a_formmethod :
+            [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
           val a_multiple : unit -> [> `Multiple ] attrib
           val a_name : Html_types.text wrap -> [> `Name ] attrib
           val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -8656,6 +12526,8 @@
           val a_readonly : unit -> [> `ReadOnly ] attrib
           val a_button_type :
             [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+          val a_script_type :
+            Html_types.script_type wrap -> [> `Script_type ] attrib
           val a_command_type :
             [< `Checkbox | `Command | `Radio ] wrap ->
             [> `Command_Type ] attrib
@@ -8725,8 +12597,8 @@
              [> Html_types.body ])
             star
           val svg :
-            ?a:[< Html_types.svg_attrib ] Svg.D.Raw.attrib list ->
-            [< Html_types.svg_content ] Svg.D.Raw.elt list_wrap ->
+            ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+            [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
             [> Html_types.svg ] elt
           val footer :
             ([< Html_types.footer_attrib ],
@@ -8801,6 +12673,10 @@
              [< Html_types.blockquote_content_fun ],
              [> Html_types.blockquote ])
             star
+          val dialog :
+            ([< Html_types.dialog_attrib ],
+             [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+            star
           val div :
             ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
              [> Html_types.div ])
@@ -8985,6 +12861,7 @@
               | `OnCanPlayThrough
               | `OnChange
               | `OnClick
+              | `OnClose
               | `OnContextMenu
               | `OnDblClick
               | `OnDrag
@@ -9351,6 +13228,7 @@
               val a_oncanplaythrough :
                 Xml.event_handler -> [> `OnCanPlayThrough ] attrib
               val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+              val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
               val a_ondurationchange :
                 Xml.event_handler -> [> `OnDurationChange ] attrib
               val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
@@ -9450,7 +13328,9 @@
               val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
               val a_allowpaymentrequest :
                 unit -> [> `Allowpaymentrequest ] attrib
-              val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+              val a_autocomplete :
+                Html_types.autocomplete_option wrap ->
+                [> `Autocomplete ] attrib
               val a_async : unit -> [> `Async ] attrib
               val a_autofocus : unit -> [> `Autofocus ] attrib
               val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -9584,7 +13464,7 @@
                 Html_types.number wrap -> [> `Minlength ] attrib
               val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
               val a_formmethod :
-                [< `Get | `Post ] wrap -> [> `Method ] attrib
+                [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
               val a_multiple : unit -> [> `Multiple ] attrib
               val a_name : Html_types.text wrap -> [> `Name ] attrib
               val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -9628,6 +13508,8 @@
               val a_button_type :
                 [< `Button | `Reset | `Submit ] wrap ->
                 [> `Button_Type ] attrib
+              val a_script_type :
+                Html_types.script_type wrap -> [> `Script_type ] attrib
               val a_command_type :
                 [< `Checkbox | `Command | `Radio ] wrap ->
                 [> `Command_Type ] attrib
@@ -9779,6 +13661,10 @@
                  [< Html_types.blockquote_content_fun ],
                  [> Html_types.blockquote ])
                 star
+              val dialog :
+                ([< Html_types.dialog_attrib ],
+                 [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+                star
               val div :
                 ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
                  [> Html_types.div ])
@@ -9972,6 +13858,7 @@
                   | `OnCanPlayThrough
                   | `OnChange
                   | `OnClick
+                  | `OnClose
                   | `OnContextMenu
                   | `OnDblClick
                   | `OnDrag
@@ -10335,6 +14222,7 @@
           val a_oncanplaythrough :
             Xml.event_handler -> [> `OnCanPlayThrough ] attrib
           val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+          val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
           val a_ondurationchange :
             Xml.event_handler -> [> `OnDurationChange ] attrib
           val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
@@ -10423,7 +14311,8 @@
           val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
           val a_allowpaymentrequest :
             unit -> [> `Allowpaymentrequest ] attrib
-          val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+          val a_autocomplete :
+            Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
           val a_async : unit -> [> `Async ] attrib
           val a_autofocus : unit -> [> `Autofocus ] attrib
           val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -10541,7 +14430,8 @@
           val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
           val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
           val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-          val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+          val a_formmethod :
+            [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
           val a_multiple : unit -> [> `Multiple ] attrib
           val a_name : Html_types.text wrap -> [> `Name ] attrib
           val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -10582,6 +14472,8 @@
           val a_readonly : unit -> [> `ReadOnly ] attrib
           val a_button_type :
             [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+          val a_script_type :
+            Html_types.script_type wrap -> [> `Script_type ] attrib
           val a_command_type :
             [< `Checkbox | `Command | `Radio ] wrap ->
             [> `Command_Type ] attrib
@@ -10727,6 +14619,10 @@
              [< Html_types.blockquote_content_fun ],
              [> Html_types.blockquote ])
             star
+          val dialog :
+            ([< Html_types.dialog_attrib ],
+             [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+            star
           val div :
             ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
              [> Html_types.div ])
@@ -10911,6 +14807,7 @@
               | `OnCanPlayThrough
               | `OnChange
               | `OnClick
+              | `OnClose
               | `OnContextMenu
               | `OnDblClick
               | `OnDrag
@@ -11279,6 +15176,9 @@
           val of_li :
             Js_of_ocaml.Dom_html.liElement Js_of_ocaml.Js.t ->
             [> Html_types.li ] elt
+          val of_dialog :
+            Js_of_ocaml.Dom_html.dialogElement Js_of_ocaml.Js.t ->
+            [> Html_types.dialog ] elt
           val of_div :
             Js_of_ocaml.Dom_html.divElement Js_of_ocaml.Js.t ->
             [> Html_types.div ] elt
diff --git a/doc/10.x/api/server/type_Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki b/doc/11.x/api/client/type_Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki
similarity index 99%
rename from doc/10.x/api/server/type_Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki
rename to doc/11.x/api/client/type_Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki
index 5bb39ca6e6..796ed8bc5d 100644
--- a/doc/10.x/api/server/type_Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki
+++ b/doc/11.x/api/client/type_Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki
@@ -167,6 +167,7 @@
         | `OnCanPlayThrough
         | `OnChange
         | `OnClick
+        | `OnClose
         | `OnContextMenu
         | `OnDblClick
         | `OnDrag
diff --git a/doc/10.x/api/client/type_Eliom_content_sigs.LINKS_AND_FORMS.wiki b/doc/11.x/api/client/type_Eliom_content_sigs.LINKS_AND_FORMS.wiki
similarity index 99%
rename from doc/10.x/api/client/type_Eliom_content_sigs.LINKS_AND_FORMS.wiki
rename to doc/11.x/api/client/type_Eliom_content_sigs.LINKS_AND_FORMS.wiki
index ce0a53e7e1..21469c5108 100644
--- a/doc/10.x/api/client/type_Eliom_content_sigs.LINKS_AND_FORMS.wiki
+++ b/doc/11.x/api/client/type_Eliom_content_sigs.LINKS_AND_FORMS.wiki
@@ -217,6 +217,7 @@
             | `OnCanPlayThrough
             | `OnChange
             | `OnClick
+            | `OnClose
             | `OnContextMenu
             | `OnDblClick
             | `OnDrag
diff --git a/doc/10.x/api/client/type_Eliom_content_sigs.wiki b/doc/11.x/api/client/type_Eliom_content_sigs.wiki
similarity index 99%
rename from doc/10.x/api/client/type_Eliom_content_sigs.wiki
rename to doc/11.x/api/client/type_Eliom_content_sigs.wiki
index 1c0fccf6fd..7d03910cf1 100644
--- a/doc/10.x/api/client/type_Eliom_content_sigs.wiki
+++ b/doc/11.x/api/client/type_Eliom_content_sigs.wiki
@@ -220,6 +220,7 @@
                 | `OnCanPlayThrough
                 | `OnChange
                 | `OnClick
+                | `OnClose
                 | `OnContextMenu
                 | `OnDblClick
                 | `OnDrag
diff --git a/doc/10.x/api/client/type_Eliom_cscache.wiki b/doc/11.x/api/client/type_Eliom_cscache.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_cscache.wiki
rename to doc/11.x/api/client/type_Eliom_cscache.wiki
diff --git a/doc/10.x/api/client/type_Eliom_form_sigs.LINKS.wiki b/doc/11.x/api/client/type_Eliom_form_sigs.LINKS.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_form_sigs.LINKS.wiki
rename to doc/11.x/api/client/type_Eliom_form_sigs.LINKS.wiki
diff --git a/doc/10.x/api/server/type_Eliom_form_sigs.S.wiki b/doc/11.x/api/client/type_Eliom_form_sigs.S.wiki
similarity index 99%
rename from doc/10.x/api/server/type_Eliom_form_sigs.S.wiki
rename to doc/11.x/api/client/type_Eliom_form_sigs.S.wiki
index 500bccea89..5f4b350827 100644
--- a/doc/10.x/api/server/type_Eliom_form_sigs.S.wiki
+++ b/doc/11.x/api/client/type_Eliom_form_sigs.S.wiki
@@ -176,6 +176,7 @@
         | `OnCanPlayThrough
         | `OnChange
         | `OnClick
+        | `OnClose
         | `OnContextMenu
         | `OnDblClick
         | `OnDrag
diff --git a/doc/10.x/api/client/type_Eliom_form_sigs.wiki b/doc/11.x/api/client/type_Eliom_form_sigs.wiki
similarity index 99%
rename from doc/10.x/api/client/type_Eliom_form_sigs.wiki
rename to doc/11.x/api/client/type_Eliom_form_sigs.wiki
index f01bb4ab22..d7964e9a5b 100644
--- a/doc/10.x/api/client/type_Eliom_form_sigs.wiki
+++ b/doc/11.x/api/client/type_Eliom_form_sigs.wiki
@@ -229,6 +229,7 @@
             | `OnCanPlayThrough
             | `OnChange
             | `OnClick
+            | `OnClose
             | `OnContextMenu
             | `OnDblClick
             | `OnDrag
diff --git a/doc/10.x/api/client/type_Eliom_lazy.wiki b/doc/11.x/api/client/type_Eliom_lazy.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_lazy.wiki
rename to doc/11.x/api/client/type_Eliom_lazy.wiki
diff --git a/doc/10.x/api/client/type_Eliom_lib.Lwt_log.wiki b/doc/11.x/api/client/type_Eliom_lib.Lwt_log.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_lib.Lwt_log.wiki
rename to doc/11.x/api/client/type_Eliom_lib.Lwt_log.wiki
diff --git a/doc/10.x/api/client/type_Eliom_lib.String.wiki b/doc/11.x/api/client/type_Eliom_lib.String.wiki
similarity index 86%
rename from doc/10.x/api/client/type_Eliom_lib.String.wiki
rename to doc/11.x/api/client/type_Eliom_lib.String.wiki
index 0c5f26e6b4..9b86ed4ab6 100644
--- a/doc/10.x/api/client/type_Eliom_lib.String.wiki
+++ b/doc/11.x/api/client/type_Eliom_lib.String.wiki
@@ -2,11 +2,17 @@
   type t = string
   val make : int -> char -> string
   val init : int -> (int -> char) -> string
+  val empty : string
+  val of_bytes : bytes -> string
+  val to_bytes : string -> bytes
   external length : string -> int = "%string_length"
   external get : string -> int -> char = "%string_safe_get"
   val concat : string -> string list -> string
+  val cat : string -> string -> string
   val equal : t -> t -> bool
   val compare : t -> t -> int
+  val starts_with : prefix:string -> string -> bool
+  val ends_with : suffix:string -> string -> bool
   val contains_from : string -> int -> char -> bool
   val rcontains_from : string -> int -> char -> bool
   val contains : string -> char -> bool
@@ -14,6 +20,10 @@
   val split_on_char : char -> string -> string list
   val map : (char -> char) -> string -> string
   val mapi : (int -> char -> char) -> string -> string
+  val fold_left : ('a -> char -> 'a) -> 'a -> string -> 'a
+  val fold_right : (char -> 'a -> 'a) -> string -> 'a -> 'a
+  val for_all : (char -> bool) -> string -> bool
+  val exists : (char -> bool) -> string -> bool
   val trim : string -> string
   val escaped : string -> string
   val uppercase_ascii : string -> string
@@ -33,6 +43,12 @@
   val to_seq : t -> char Seq.t
   val to_seqi : t -> (int * char) Seq.t
   val of_seq : char Seq.t -> t
+  val get_utf_8_uchar : t -> int -> Uchar.utf_decode
+  val is_valid_utf_8 : t -> bool
+  val get_utf_16be_uchar : t -> int -> Uchar.utf_decode
+  val is_valid_utf_16be : t -> bool
+  val get_utf_16le_uchar : t -> int -> Uchar.utf_decode
+  val is_valid_utf_16le : t -> bool
   external create : int -> bytes = "caml_create_string"
   external set : bytes -> int -> char -> unit = "%string_safe_set"
   val blit : string -> int -> bytes -> int -> int -> unit
@@ -42,6 +58,20 @@
   val lowercase : string -> string
   val capitalize : string -> string
   val uncapitalize : string -> string
+  val get_uint8 : string -> int -> int
+  val get_int8 : string -> int -> int
+  val get_uint16_ne : string -> int -> int
+  val get_uint16_be : string -> int -> int
+  val get_uint16_le : string -> int -> int
+  val get_int16_ne : string -> int -> int
+  val get_int16_be : string -> int -> int
+  val get_int16_le : string -> int -> int
+  val get_int32_ne : string -> int -> int32
+  val get_int32_be : string -> int -> int32
+  val get_int32_le : string -> int -> int32
+  val get_int64_ne : string -> int -> int64
+  val get_int64_be : string -> int -> int64
+  val get_int64_le : string -> int -> int64
   external unsafe_get : string -> int -> char = "%string_unsafe_get"
   external unsafe_set : bytes -> int -> char -> unit = "%string_unsafe_set"
   external unsafe_blit : string -> int -> bytes -> int -> int -> unit
diff --git a/doc/10.x/api/client/type_Eliom_lib.Url.wiki b/doc/11.x/api/client/type_Eliom_lib.Url.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_lib.Url.wiki
rename to doc/11.x/api/client/type_Eliom_lib.Url.wiki
diff --git a/doc/10.x/api/client/type_Eliom_lib.wiki b/doc/11.x/api/client/type_Eliom_lib.wiki
similarity index 93%
rename from doc/10.x/api/client/type_Eliom_lib.wiki
rename to doc/11.x/api/client/type_Eliom_lib.wiki
index 8ce8e5a0af..4ef313170b 100644
--- a/doc/10.x/api/client/type_Eliom_lib.wiki
+++ b/doc/11.x/api/client/type_Eliom_lib.wiki
@@ -199,11 +199,17 @@
       type t = string
       val make : int -> char -> string
       val init : int -> (int -> char) -> string
+      val empty : string
+      val of_bytes : bytes -> string
+      val to_bytes : string -> bytes
       external length : string -> int = "%string_length"
       external get : string -> int -> char = "%string_safe_get"
       val concat : string -> string list -> string
+      val cat : string -> string -> string
       val equal : t -> t -> bool
       val compare : t -> t -> int
+      val starts_with : prefix:string -> string -> bool
+      val ends_with : suffix:string -> string -> bool
       val contains_from : string -> int -> char -> bool
       val rcontains_from : string -> int -> char -> bool
       val contains : string -> char -> bool
@@ -211,6 +217,10 @@
       val split_on_char : char -> string -> string list
       val map : (char -> char) -> string -> string
       val mapi : (int -> char -> char) -> string -> string
+      val fold_left : ('a -> char -> 'a) -> 'a -> string -> 'a
+      val fold_right : (char -> 'a -> 'a) -> string -> 'a -> 'a
+      val for_all : (char -> bool) -> string -> bool
+      val exists : (char -> bool) -> string -> bool
       val trim : string -> string
       val escaped : string -> string
       val uppercase_ascii : string -> string
@@ -230,6 +240,12 @@
       val to_seq : t -> char Seq.t
       val to_seqi : t -> (int * char) Seq.t
       val of_seq : char Seq.t -> t
+      val get_utf_8_uchar : t -> int -> Uchar.utf_decode
+      val is_valid_utf_8 : t -> bool
+      val get_utf_16be_uchar : t -> int -> Uchar.utf_decode
+      val is_valid_utf_16be : t -> bool
+      val get_utf_16le_uchar : t -> int -> Uchar.utf_decode
+      val is_valid_utf_16le : t -> bool
       external create : int -> bytes = "caml_create_string"
       external set : bytes -> int -> char -> unit = "%string_safe_set"
       val blit : string -> int -> bytes -> int -> int -> unit
@@ -239,6 +255,20 @@
       val lowercase : string -> string
       val capitalize : string -> string
       val uncapitalize : string -> string
+      val get_uint8 : string -> int -> int
+      val get_int8 : string -> int -> int
+      val get_uint16_ne : string -> int -> int
+      val get_uint16_be : string -> int -> int
+      val get_uint16_le : string -> int -> int
+      val get_int16_ne : string -> int -> int
+      val get_int16_be : string -> int -> int
+      val get_int16_le : string -> int -> int
+      val get_int32_ne : string -> int -> int32
+      val get_int32_be : string -> int -> int32
+      val get_int32_le : string -> int -> int32
+      val get_int64_ne : string -> int -> int64
+      val get_int64_be : string -> int -> int64
+      val get_int64_le : string -> int -> int64
       external unsafe_get : string -> int -> char = "%string_unsafe_get"
       external unsafe_set : bytes -> int -> char -> unit
         = "%string_unsafe_set"
@@ -698,11 +728,17 @@
       type t = string
       val make : int -> char -> string
       val init : int -> (int -> char) -> string
+      val empty : string
+      val of_bytes : bytes -> string
+      val to_bytes : string -> bytes
       external length : string -> int = "%string_length"
       external get : string -> int -> char = "%string_safe_get"
       val concat : string -> string list -> string
+      val cat : string -> string -> string
       val equal : t -> t -> bool
       val compare : t -> t -> int
+      val starts_with : prefix:string -> string -> bool
+      val ends_with : suffix:string -> string -> bool
       val contains_from : string -> int -> char -> bool
       val rcontains_from : string -> int -> char -> bool
       val contains : string -> char -> bool
@@ -710,6 +746,10 @@
       val split_on_char : char -> string -> string list
       val map : (char -> char) -> string -> string
       val mapi : (int -> char -> char) -> string -> string
+      val fold_left : ('a -> char -> 'a) -> 'a -> string -> 'a
+      val fold_right : (char -> 'a -> 'a) -> string -> 'a -> 'a
+      val for_all : (char -> bool) -> string -> bool
+      val exists : (char -> bool) -> string -> bool
       val trim : string -> string
       val escaped : string -> string
       val uppercase_ascii : string -> string
@@ -729,6 +769,12 @@
       val to_seq : t -> char Seq.t
       val to_seqi : t -> (int * char) Seq.t
       val of_seq : char Seq.t -> t
+      val get_utf_8_uchar : t -> int -> Uchar.utf_decode
+      val is_valid_utf_8 : t -> bool
+      val get_utf_16be_uchar : t -> int -> Uchar.utf_decode
+      val is_valid_utf_16be : t -> bool
+      val get_utf_16le_uchar : t -> int -> Uchar.utf_decode
+      val is_valid_utf_16le : t -> bool
       external create : int -> bytes = "caml_create_string"
       external set : bytes -> int -> char -> unit = "%string_safe_set"
       val blit : string -> int -> bytes -> int -> int -> unit
@@ -738,6 +784,20 @@
       val lowercase : string -> string
       val capitalize : string -> string
       val uncapitalize : string -> string
+      val get_uint8 : string -> int -> int
+      val get_int8 : string -> int -> int
+      val get_uint16_ne : string -> int -> int
+      val get_uint16_be : string -> int -> int
+      val get_uint16_le : string -> int -> int
+      val get_int16_ne : string -> int -> int
+      val get_int16_be : string -> int -> int
+      val get_int16_le : string -> int -> int
+      val get_int32_ne : string -> int -> int32
+      val get_int32_be : string -> int -> int32
+      val get_int32_le : string -> int -> int32
+      val get_int64_ne : string -> int -> int64
+      val get_int64_be : string -> int -> int64
+      val get_int64_le : string -> int -> int64
       external unsafe_get : string -> int -> char = "%string_unsafe_get"
       external unsafe_set : bytes -> int -> char -> unit
         = "%string_unsafe_set"
@@ -1131,4 +1191,17 @@
   val unmarshal_js : Js_of_ocaml.Js.js_string Js_of_ocaml.Js.t -> 'a
   val encode_header_value : 'a -> string
   val make_cryptographic_safe_string : ?len:int -> unit -> string
+  module Dom_reference :
+    sig
+      type key
+      val new_key : unit -> Eliom_lib.Dom_reference.key
+      val retain :
+        ?key:Eliom_lib.Dom_reference.key ->
+        'a Js_of_ocaml.Js.t -> keep:'b -> unit
+      val retain_generic :
+        ?key:Eliom_lib.Dom_reference.key -> 'a -> keep:'b -> unit
+      val release : key:Eliom_lib.Dom_reference.key -> 'a -> unit
+      val transfer :
+        key:Eliom_lib.Dom_reference.key -> src:'a -> dst:'b -> unit
+    end
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/client/type_Eliom_parameter.wiki b/doc/11.x/api/client/type_Eliom_parameter.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_parameter.wiki
rename to doc/11.x/api/client/type_Eliom_parameter.wiki
diff --git a/doc/10.x/api/client/type_Eliom_parameter_sigs.S.wiki b/doc/11.x/api/client/type_Eliom_parameter_sigs.S.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_parameter_sigs.S.wiki
rename to doc/11.x/api/client/type_Eliom_parameter_sigs.S.wiki
diff --git a/doc/10.x/api/client/type_Eliom_parameter_sigs.wiki b/doc/11.x/api/client/type_Eliom_parameter_sigs.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_parameter_sigs.wiki
rename to doc/11.x/api/client/type_Eliom_parameter_sigs.wiki
diff --git a/doc/10.x/api/client/type_Eliom_react.Down.wiki b/doc/11.x/api/client/type_Eliom_react.Down.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_react.Down.wiki
rename to doc/11.x/api/client/type_Eliom_react.Down.wiki
diff --git a/doc/10.x/api/client/type_Eliom_react.S.Down.wiki b/doc/11.x/api/client/type_Eliom_react.S.Down.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_react.S.Down.wiki
rename to doc/11.x/api/client/type_Eliom_react.S.Down.wiki
diff --git a/doc/10.x/api/client/type_Eliom_react.S.wiki b/doc/11.x/api/client/type_Eliom_react.S.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_react.S.wiki
rename to doc/11.x/api/client/type_Eliom_react.S.wiki
diff --git a/doc/10.x/api/client/type_Eliom_react.Up.wiki b/doc/11.x/api/client/type_Eliom_react.Up.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_react.Up.wiki
rename to doc/11.x/api/client/type_Eliom_react.Up.wiki
diff --git a/doc/10.x/api/client/type_Eliom_react.wiki b/doc/11.x/api/client/type_Eliom_react.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_react.wiki
rename to doc/11.x/api/client/type_Eliom_react.wiki
diff --git a/doc/10.x/api/client/type_Eliom_registration.Action.wiki b/doc/11.x/api/client/type_Eliom_registration.Action.wiki
similarity index 83%
rename from doc/10.x/api/client/type_Eliom_registration.Action.wiki
rename to doc/11.x/api/client/type_Eliom_registration.Action.wiki
index 0a599ccd75..f34f629a8c 100644
--- a/doc/10.x/api/client/type_Eliom_registration.Action.wiki
+++ b/doc/11.x/api/client/type_Eliom_registration.Action.wiki
@@ -10,7 +10,7 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     ?secure_session:bool ->
     service:('get, 'post, 'a, 'b, 'c, Eliom_service.non_ext,
              Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'd, 'e,
@@ -22,5 +22,6 @@
     ?options:options ->
     ?charset:string ->
     ?code:int ->
-    ?content_type:string -> ?headers:Cohttp.Header.t -> page -> result Lwt.t
+    ?content_type:string ->
+    ?headers:Eliom_service.Cohttp.Header.t -> page -> result Lwt.t
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/client/type_Eliom_registration.Any.wiki b/doc/11.x/api/client/type_Eliom_registration.Any.wiki
similarity index 86%
rename from doc/10.x/api/client/type_Eliom_registration.Any.wiki
rename to doc/11.x/api/client/type_Eliom_registration.Any.wiki
index 13bfdd1e8b..ae54517a04 100644
--- a/doc/10.x/api/client/type_Eliom_registration.Any.wiki
+++ b/doc/11.x/api/client/type_Eliom_registration.Any.wiki
@@ -9,7 +9,7 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     ?secure_session:bool ->
     service:('get, 'post, 'b, 'c, 'd, Eliom_service.non_ext,
              Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'e, 'f,
@@ -23,5 +23,5 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t -> 'a page -> 'a result Lwt.t
+    ?headers:Eliom_service.Cohttp.Header.t -> 'a page -> 'a result Lwt.t
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/client/type_Eliom_registration.App.wiki b/doc/11.x/api/client/type_Eliom_registration.App.wiki
similarity index 82%
rename from doc/10.x/api/client/type_Eliom_registration.App.wiki
rename to doc/11.x/api/client/type_Eliom_registration.App.wiki
index cd0e83b778..15f307d263 100644
--- a/doc/10.x/api/client/type_Eliom_registration.App.wiki
+++ b/doc/11.x/api/client/type_Eliom_registration.App.wiki
@@ -1,4 +1,4 @@
-<<code language="ocaml" | functor (P : Eliom_registration_sigs.APP_PARAM) ->
+<<code language="ocaml" | Eliom_registration_sigs.APP_PARAM ->
   sig
     val application_name : string
     type app_id
@@ -13,7 +13,7 @@
       ?charset:string ->
       ?code:int ->
       ?content_type:string ->
-      ?headers:Cohttp.Header.t ->
+      ?headers:Eliom_service.Cohttp.Header.t ->
       ?secure_session:bool ->
       service:('get, 'post, 'a, 'b, 'c, Eliom_service.non_ext,
                Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'd, 'e,
@@ -26,5 +26,5 @@
       ?charset:string ->
       ?code:int ->
       ?content_type:string ->
-      ?headers:Cohttp.Header.t -> page -> result Lwt.t
+      ?headers:Eliom_service.Cohttp.Header.t -> page -> result Lwt.t
   end >>
\ No newline at end of file
diff --git a/doc/10.x/api/client/type_Eliom_registration.Html.wiki b/doc/11.x/api/client/type_Eliom_registration.Html.wiki
similarity index 84%
rename from doc/10.x/api/client/type_Eliom_registration.Html.wiki
rename to doc/11.x/api/client/type_Eliom_registration.Html.wiki
index 14e5147f8f..d65d6cabe3 100644
--- a/doc/10.x/api/client/type_Eliom_registration.Html.wiki
+++ b/doc/11.x/api/client/type_Eliom_registration.Html.wiki
@@ -10,7 +10,7 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     ?secure_session:bool ->
     service:('get, 'post, 'a, 'b, 'c, Eliom_service.non_ext,
              Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'd, 'e,
@@ -22,5 +22,6 @@
     ?options:options ->
     ?charset:string ->
     ?code:int ->
-    ?content_type:string -> ?headers:Cohttp.Header.t -> page -> result Lwt.t
+    ?content_type:string ->
+    ?headers:Eliom_service.Cohttp.Header.t -> page -> result Lwt.t
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/client/type_Eliom_registration.Redirection.wiki b/doc/11.x/api/client/type_Eliom_registration.Redirection.wiki
similarity index 88%
rename from doc/10.x/api/client/type_Eliom_registration.Redirection.wiki
rename to doc/11.x/api/client/type_Eliom_registration.Redirection.wiki
index 6a7baa272c..b4f18e095c 100644
--- a/doc/10.x/api/client/type_Eliom_registration.Redirection.wiki
+++ b/doc/11.x/api/client/type_Eliom_registration.Redirection.wiki
@@ -15,7 +15,7 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     ?secure_session:bool ->
     service:('get, 'post, 'b, 'c, 'd, Eliom_service.non_ext,
              Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'e, 'f,
@@ -29,5 +29,5 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t -> 'a page -> 'a result Lwt.t
+    ?headers:Eliom_service.Cohttp.Header.t -> 'a page -> 'a result Lwt.t
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/client/type_Eliom_registration.Unit.wiki b/doc/11.x/api/client/type_Eliom_registration.Unit.wiki
similarity index 83%
rename from doc/10.x/api/client/type_Eliom_registration.Unit.wiki
rename to doc/11.x/api/client/type_Eliom_registration.Unit.wiki
index fb82508c84..8b17fcca9e 100644
--- a/doc/10.x/api/client/type_Eliom_registration.Unit.wiki
+++ b/doc/11.x/api/client/type_Eliom_registration.Unit.wiki
@@ -10,7 +10,7 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     ?secure_session:bool ->
     service:('get, 'post, 'a, 'b, 'c, Eliom_service.non_ext,
              Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'd, 'e,
@@ -22,5 +22,6 @@
     ?options:options ->
     ?charset:string ->
     ?code:int ->
-    ?content_type:string -> ?headers:Cohttp.Header.t -> page -> result Lwt.t
+    ?content_type:string ->
+    ?headers:Eliom_service.Cohttp.Header.t -> page -> result Lwt.t
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/client/type_Eliom_registration.wiki b/doc/11.x/api/client/type_Eliom_registration.wiki
similarity index 89%
rename from doc/10.x/api/client/type_Eliom_registration.wiki
rename to doc/11.x/api/client/type_Eliom_registration.wiki
index 347298968d..8fb9d82ce4 100644
--- a/doc/10.x/api/client/type_Eliom_registration.wiki
+++ b/doc/11.x/api/client/type_Eliom_registration.wiki
@@ -15,7 +15,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         ?secure_session:bool ->
         service:('get, 'post, 'a, 'b, 'c, Eliom_service.non_ext,
                  Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'd,
@@ -28,7 +28,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t -> page -> result Lwt.t
+        ?headers:Eliom_service.Cohttp.Header.t -> page -> result Lwt.t
     end
   module Action :
     sig
@@ -43,7 +43,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         ?secure_session:bool ->
         service:('get, 'post, 'a, 'b, 'c, Eliom_service.non_ext,
                  Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'd,
@@ -56,7 +56,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t -> page -> result Lwt.t
+        ?headers:Eliom_service.Cohttp.Header.t -> page -> result Lwt.t
     end
   module Unit :
     sig
@@ -71,7 +71,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         ?secure_session:bool ->
         service:('get, 'post, 'a, 'b, 'c, Eliom_service.non_ext,
                  Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'd,
@@ -84,11 +84,11 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t -> page -> result Lwt.t
+        ?headers:Eliom_service.Cohttp.Header.t -> page -> result Lwt.t
     end
   type appl_service_options = { do_not_launch : bool; }
   module App :
-    functor (P : Eliom_registration_sigs.APP_PARAM) ->
+    Eliom_registration_sigs.APP_PARAM ->
       sig
         val application_name : string
         type app_id
@@ -103,7 +103,7 @@
           ?charset:string ->
           ?code:int ->
           ?content_type:string ->
-          ?headers:Cohttp.Header.t ->
+          ?headers:Eliom_service.Cohttp.Header.t ->
           ?secure_session:bool ->
           service:('get, 'post, 'a, 'b, 'c, Eliom_service.non_ext,
                    Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'd,
@@ -116,7 +116,7 @@
           ?charset:string ->
           ?code:int ->
           ?content_type:string ->
-          ?headers:Cohttp.Header.t -> page -> result Lwt.t
+          ?headers:Eliom_service.Cohttp.Header.t -> page -> result Lwt.t
       end
   type _ redirection =
       Redirection :
@@ -141,7 +141,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         ?secure_session:bool ->
         service:('get, 'post, 'b, 'c, 'd, Eliom_service.non_ext,
                  Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'e,
@@ -155,7 +155,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t -> 'a page -> 'a result Lwt.t
+        ?headers:Eliom_service.Cohttp.Header.t -> 'a page -> 'a result Lwt.t
     end
   module Any :
     sig
@@ -169,7 +169,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         ?secure_session:bool ->
         service:('get, 'post, 'b, 'c, 'd, Eliom_service.non_ext,
                  Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'e,
@@ -183,7 +183,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t -> 'a page -> 'a result Lwt.t
+        ?headers:Eliom_service.Cohttp.Header.t -> 'a page -> 'a result Lwt.t
     end
   val appl_self_redirect :
     ('page -> [< `Appl of 'a | `Browser ] Eliom_registration.kind Lwt.t) ->
diff --git a/doc/10.x/api/client/type_Eliom_registration_sigs.APP_PARAM.wiki b/doc/11.x/api/client/type_Eliom_registration_sigs.APP_PARAM.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_registration_sigs.APP_PARAM.wiki
rename to doc/11.x/api/client/type_Eliom_registration_sigs.APP_PARAM.wiki
diff --git a/doc/10.x/api/server/type_Eliom_registration_sigs.PARAM.wiki b/doc/11.x/api/client/type_Eliom_registration_sigs.PARAM.wiki
similarity index 91%
rename from doc/10.x/api/server/type_Eliom_registration_sigs.PARAM.wiki
rename to doc/11.x/api/client/type_Eliom_registration_sigs.PARAM.wiki
index 1b19a4d08c..c87d8df813 100644
--- a/doc/10.x/api/server/type_Eliom_registration_sigs.PARAM.wiki
+++ b/doc/11.x/api/client/type_Eliom_registration_sigs.PARAM.wiki
@@ -8,7 +8,7 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     Eliom_registration_sigs.PARAM.page ->
     Eliom_registration_sigs.PARAM.frame Lwt.t
   val send_appl_content : Eliom_service.send_appl_content
diff --git a/doc/10.x/api/server/type_Eliom_registration_sigs.PARAM_POLY.wiki b/doc/11.x/api/client/type_Eliom_registration_sigs.PARAM_POLY.wiki
similarity index 89%
rename from doc/10.x/api/server/type_Eliom_registration_sigs.PARAM_POLY.wiki
rename to doc/11.x/api/client/type_Eliom_registration_sigs.PARAM_POLY.wiki
index 1896058ed6..430a980b1d 100644
--- a/doc/10.x/api/server/type_Eliom_registration_sigs.PARAM_POLY.wiki
+++ b/doc/11.x/api/client/type_Eliom_registration_sigs.PARAM_POLY.wiki
@@ -8,7 +8,7 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     'a Eliom_registration_sigs.PARAM_POLY.page ->
     Eliom_registration_sigs.PARAM_POLY.frame Lwt.t
   val send_appl_content : Eliom_service.send_appl_content
diff --git a/doc/10.x/api/server/type_Eliom_registration_sigs.S.wiki b/doc/11.x/api/client/type_Eliom_registration_sigs.S.wiki
similarity index 91%
rename from doc/10.x/api/server/type_Eliom_registration_sigs.S.wiki
rename to doc/11.x/api/client/type_Eliom_registration_sigs.S.wiki
index 4e332632f1..dd203a5138 100644
--- a/doc/10.x/api/server/type_Eliom_registration_sigs.S.wiki
+++ b/doc/11.x/api/client/type_Eliom_registration_sigs.S.wiki
@@ -10,7 +10,7 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     ?secure_session:bool ->
     service:('get, 'post, 'a, 'b, 'c, Eliom_service.non_ext,
              Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'd, 'e,
@@ -24,6 +24,6 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     Eliom_registration_sigs.S.page -> Eliom_registration_sigs.S.result Lwt.t
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/server/type_Eliom_registration_sigs.S_poly.wiki b/doc/11.x/api/client/type_Eliom_registration_sigs.S_poly.wiki
similarity index 93%
rename from doc/10.x/api/server/type_Eliom_registration_sigs.S_poly.wiki
rename to doc/11.x/api/client/type_Eliom_registration_sigs.S_poly.wiki
index 6f9c0c5a7a..daae920023 100644
--- a/doc/10.x/api/server/type_Eliom_registration_sigs.S_poly.wiki
+++ b/doc/11.x/api/client/type_Eliom_registration_sigs.S_poly.wiki
@@ -9,7 +9,7 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     ?secure_session:bool ->
     service:('get, 'post, 'b, 'c, 'd, Eliom_service.non_ext,
              Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'e, 'f,
diff --git a/doc/10.x/api/server/type_Eliom_registration_sigs.S_poly_with_create.wiki b/doc/11.x/api/client/type_Eliom_registration_sigs.S_poly_with_create.wiki
similarity index 94%
rename from doc/10.x/api/server/type_Eliom_registration_sigs.S_poly_with_create.wiki
rename to doc/11.x/api/client/type_Eliom_registration_sigs.S_poly_with_create.wiki
index 3ede14d426..a5dbf58257 100644
--- a/doc/10.x/api/server/type_Eliom_registration_sigs.S_poly_with_create.wiki
+++ b/doc/11.x/api/client/type_Eliom_registration_sigs.S_poly_with_create.wiki
@@ -9,7 +9,7 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     ?secure_session:bool ->
     service:('get, 'post, 'b, 'c, 'd, Eliom_service.non_ext,
              Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'e, 'f,
@@ -24,7 +24,7 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     ?secure_session:bool ->
     ?https:bool ->
     ?name:string ->
@@ -49,7 +49,7 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     ?secure_session:bool ->
     ?https:bool ->
     ?name:string ->
@@ -76,7 +76,7 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     ?secure_session:bool ->
     ?https:bool ->
     ?name:string ->
diff --git a/doc/10.x/api/server/type_Eliom_registration_sigs.S_poly_with_create_with_send.wiki b/doc/11.x/api/client/type_Eliom_registration_sigs.S_poly_with_create_with_send.wiki
similarity index 93%
rename from doc/10.x/api/server/type_Eliom_registration_sigs.S_poly_with_create_with_send.wiki
rename to doc/11.x/api/client/type_Eliom_registration_sigs.S_poly_with_create_with_send.wiki
index fa9adc95eb..d39a8f5965 100644
--- a/doc/10.x/api/server/type_Eliom_registration_sigs.S_poly_with_create_with_send.wiki
+++ b/doc/11.x/api/client/type_Eliom_registration_sigs.S_poly_with_create_with_send.wiki
@@ -9,7 +9,7 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     ?secure_session:bool ->
     service:('get, 'post, 'b, 'c, 'd, Eliom_service.non_ext,
              Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'e, 'f,
@@ -24,7 +24,7 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     ?secure_session:bool ->
     ?https:bool ->
     ?name:string ->
@@ -49,7 +49,7 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     ?secure_session:bool ->
     ?https:bool ->
     ?name:string ->
@@ -76,7 +76,7 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     ?secure_session:bool ->
     ?https:bool ->
     ?name:string ->
@@ -102,7 +102,7 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     'a page ->
     'a Eliom_registration_sigs.S_poly_with_create_with_send.result Lwt.t
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/server/type_Eliom_registration_sigs.S_poly_with_send.wiki b/doc/11.x/api/client/type_Eliom_registration_sigs.S_poly_with_send.wiki
similarity index 89%
rename from doc/10.x/api/server/type_Eliom_registration_sigs.S_poly_with_send.wiki
rename to doc/11.x/api/client/type_Eliom_registration_sigs.S_poly_with_send.wiki
index 22e52f0772..8f432a26e8 100644
--- a/doc/10.x/api/server/type_Eliom_registration_sigs.S_poly_with_send.wiki
+++ b/doc/11.x/api/client/type_Eliom_registration_sigs.S_poly_with_send.wiki
@@ -9,7 +9,7 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     ?secure_session:bool ->
     service:('get, 'post, 'b, 'c, 'd, Eliom_service.non_ext,
              Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'e, 'f,
@@ -23,6 +23,6 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     'a page -> 'a Eliom_registration_sigs.S_poly_with_send.result Lwt.t
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/server/type_Eliom_registration_sigs.S_with_create.wiki b/doc/11.x/api/client/type_Eliom_registration_sigs.S_with_create.wiki
similarity index 92%
rename from doc/10.x/api/server/type_Eliom_registration_sigs.S_with_create.wiki
rename to doc/11.x/api/client/type_Eliom_registration_sigs.S_with_create.wiki
index 6f4f241d19..4e456e797a 100644
--- a/doc/10.x/api/server/type_Eliom_registration_sigs.S_with_create.wiki
+++ b/doc/11.x/api/client/type_Eliom_registration_sigs.S_with_create.wiki
@@ -10,7 +10,7 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     ?secure_session:bool ->
     service:('get, 'post, 'a, 'b, 'c, Eliom_service.non_ext,
              Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'd, 'e,
@@ -22,7 +22,8 @@
     ?options:options ->
     ?charset:string ->
     ?code:int ->
-    ?content_type:string -> ?headers:Cohttp.Header.t -> page -> result Lwt.t
+    ?content_type:string ->
+    ?headers:Eliom_service.Cohttp.Header.t -> page -> result Lwt.t
   val create :
     ?app:string ->
     ?scope:[< Eliom_common.scope ] ->
@@ -30,7 +31,7 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     ?secure_session:bool ->
     ?https:bool ->
     ?name:string ->
@@ -55,7 +56,7 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     ?secure_session:bool ->
     ?https:bool ->
     ?name:string ->
@@ -82,7 +83,7 @@
     ?charset:string ->
     ?code:int ->
     ?content_type:string ->
-    ?headers:Cohttp.Header.t ->
+    ?headers:Eliom_service.Cohttp.Header.t ->
     ?secure_session:bool ->
     ?https:bool ->
     ?name:string ->
diff --git a/doc/10.x/api/server/type_Eliom_registration_sigs.wiki b/doc/11.x/api/client/type_Eliom_registration_sigs.wiki
similarity index 93%
rename from doc/10.x/api/server/type_Eliom_registration_sigs.wiki
rename to doc/11.x/api/client/type_Eliom_registration_sigs.wiki
index de872ff36d..c64c09fa93 100644
--- a/doc/10.x/api/server/type_Eliom_registration_sigs.wiki
+++ b/doc/11.x/api/client/type_Eliom_registration_sigs.wiki
@@ -10,7 +10,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         Eliom_registration_sigs.PARAM.page ->
         Eliom_registration_sigs.PARAM.frame Lwt.t
       val send_appl_content : Eliom_service.send_appl_content
@@ -29,7 +29,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         'a Eliom_registration_sigs.PARAM_POLY.page ->
         Eliom_registration_sigs.PARAM_POLY.frame Lwt.t
       val send_appl_content : Eliom_service.send_appl_content
@@ -52,7 +52,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         ?secure_session:bool ->
         service:('get, 'post, 'a, 'b, 'c, Eliom_service.non_ext,
                  Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'd,
@@ -66,7 +66,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         Eliom_registration_sigs.S.page ->
         Eliom_registration_sigs.S.result Lwt.t
     end
@@ -83,7 +83,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         ?secure_session:bool ->
         service:('get, 'post, 'a, 'b, 'c, Eliom_service.non_ext,
                  Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'd,
@@ -96,7 +96,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t -> page -> result Lwt.t
+        ?headers:Eliom_service.Cohttp.Header.t -> page -> result Lwt.t
       val create :
         ?app:string ->
         ?scope:[< Eliom_common.scope ] ->
@@ -104,7 +104,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         ?secure_session:bool ->
         ?https:bool ->
         ?name:string ->
@@ -129,7 +129,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         ?secure_session:bool ->
         ?https:bool ->
         ?name:string ->
@@ -156,7 +156,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         ?secure_session:bool ->
         ?https:bool ->
         ?name:string ->
@@ -190,7 +190,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         ?secure_session:bool ->
         service:('get, 'post, 'b, 'c, 'd, Eliom_service.non_ext,
                  Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'e,
@@ -213,7 +213,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         ?secure_session:bool ->
         service:('get, 'post, 'b, 'c, 'd, Eliom_service.non_ext,
                  Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'e,
@@ -228,7 +228,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         ?secure_session:bool ->
         ?https:bool ->
         ?name:string ->
@@ -253,7 +253,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         ?secure_session:bool ->
         ?https:bool ->
         ?name:string ->
@@ -280,7 +280,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         ?secure_session:bool ->
         ?https:bool ->
         ?name:string ->
@@ -314,7 +314,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         ?secure_session:bool ->
         service:('get, 'post, 'b, 'c, 'd, Eliom_service.non_ext,
                  Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'e,
@@ -328,7 +328,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         'a page -> 'a Eliom_registration_sigs.S_poly_with_send.result Lwt.t
     end
   module type S_poly_with_create_with_send =
@@ -343,7 +343,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         ?secure_session:bool ->
         service:('get, 'post, 'b, 'c, 'd, Eliom_service.non_ext,
                  Eliom_service.reg, [< `WithSuffix | `WithoutSuffix ], 'e,
@@ -358,7 +358,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         ?secure_session:bool ->
         ?https:bool ->
         ?name:string ->
@@ -383,7 +383,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         ?secure_session:bool ->
         ?https:bool ->
         ?name:string ->
@@ -410,7 +410,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         ?secure_session:bool ->
         ?https:bool ->
         ?name:string ->
@@ -437,7 +437,7 @@
         ?charset:string ->
         ?code:int ->
         ?content_type:string ->
-        ?headers:Cohttp.Header.t ->
+        ?headers:Eliom_service.Cohttp.Header.t ->
         'a page ->
         'a Eliom_registration_sigs.S_poly_with_create_with_send.result Lwt.t
     end
diff --git a/doc/10.x/api/client/type_Eliom_service.wiki b/doc/11.x/api/client/type_Eliom_service.wiki
similarity index 99%
rename from doc/10.x/api/client/type_Eliom_service.wiki
rename to doc/11.x/api/client/type_Eliom_service.wiki
index 8a630bd5c6..e6d3584bed 100644
--- a/doc/10.x/api/client/type_Eliom_service.wiki
+++ b/doc/11.x/api/client/type_Eliom_service.wiki
@@ -250,4 +250,5 @@
     ('a, 'b, 'c, 'd, 'e, 'f, 'g, [< `WithSuffix | `WithoutSuffix ], 'h, 'i,
      'j)
     t -> ('a -> unit -> result Lwt.t) Eliom_client_value.t option
+  module Cohttp : sig module Header : sig type t end end
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/client/type_Eliom_service_sigs.S.wiki b/doc/11.x/api/client/type_Eliom_service_sigs.S.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_service_sigs.S.wiki
rename to doc/11.x/api/client/type_Eliom_service_sigs.S.wiki
diff --git a/doc/10.x/api/client/type_Eliom_service_sigs.TYPES.wiki b/doc/11.x/api/client/type_Eliom_service_sigs.TYPES.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_service_sigs.TYPES.wiki
rename to doc/11.x/api/client/type_Eliom_service_sigs.TYPES.wiki
diff --git a/doc/10.x/api/client/type_Eliom_service_sigs.wiki b/doc/11.x/api/client/type_Eliom_service_sigs.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_service_sigs.wiki
rename to doc/11.x/api/client/type_Eliom_service_sigs.wiki
diff --git a/doc/10.x/api/client/type_Eliom_shared.FakeReactiveData.RList.wiki b/doc/11.x/api/client/type_Eliom_shared.FakeReactiveData.RList.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_shared.FakeReactiveData.RList.wiki
rename to doc/11.x/api/client/type_Eliom_shared.FakeReactiveData.RList.wiki
diff --git a/doc/10.x/api/client/type_Eliom_shared.FakeReactiveData.wiki b/doc/11.x/api/client/type_Eliom_shared.FakeReactiveData.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_shared.FakeReactiveData.wiki
rename to doc/11.x/api/client/type_Eliom_shared.FakeReactiveData.wiki
diff --git a/doc/10.x/api/client/type_Eliom_shared.React.E.wiki b/doc/11.x/api/client/type_Eliom_shared.React.E.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_shared.React.E.wiki
rename to doc/11.x/api/client/type_Eliom_shared.React.E.wiki
diff --git a/doc/10.x/api/client/type_Eliom_shared.React.S.wiki b/doc/11.x/api/client/type_Eliom_shared.React.S.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_shared.React.S.wiki
rename to doc/11.x/api/client/type_Eliom_shared.React.S.wiki
diff --git a/doc/10.x/api/client/type_Eliom_shared.React.wiki b/doc/11.x/api/client/type_Eliom_shared.React.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_shared.React.wiki
rename to doc/11.x/api/client/type_Eliom_shared.React.wiki
diff --git a/doc/10.x/api/client/type_Eliom_shared.ReactiveData.RList.wiki b/doc/11.x/api/client/type_Eliom_shared.ReactiveData.RList.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_shared.ReactiveData.RList.wiki
rename to doc/11.x/api/client/type_Eliom_shared.ReactiveData.RList.wiki
diff --git a/doc/10.x/api/client/type_Eliom_shared.ReactiveData.wiki b/doc/11.x/api/client/type_Eliom_shared.ReactiveData.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_shared.ReactiveData.wiki
rename to doc/11.x/api/client/type_Eliom_shared.ReactiveData.wiki
diff --git a/doc/10.x/api/client/type_Eliom_shared.Value.wiki b/doc/11.x/api/client/type_Eliom_shared.Value.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_shared.Value.wiki
rename to doc/11.x/api/client/type_Eliom_shared.Value.wiki
diff --git a/doc/10.x/api/client/type_Eliom_shared.wiki b/doc/11.x/api/client/type_Eliom_shared.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_shared.wiki
rename to doc/11.x/api/client/type_Eliom_shared.wiki
diff --git a/doc/10.x/api/client/type_Eliom_shared_sigs.RLIST.Lwt.wiki b/doc/11.x/api/client/type_Eliom_shared_sigs.RLIST.Lwt.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_shared_sigs.RLIST.Lwt.wiki
rename to doc/11.x/api/client/type_Eliom_shared_sigs.RLIST.Lwt.wiki
diff --git a/doc/10.x/api/client/type_Eliom_shared_sigs.RLIST.wiki b/doc/11.x/api/client/type_Eliom_shared_sigs.RLIST.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_shared_sigs.RLIST.wiki
rename to doc/11.x/api/client/type_Eliom_shared_sigs.RLIST.wiki
diff --git a/doc/10.x/api/client/type_Eliom_shared_sigs.S.Infix.wiki b/doc/11.x/api/client/type_Eliom_shared_sigs.S.Infix.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_shared_sigs.S.Infix.wiki
rename to doc/11.x/api/client/type_Eliom_shared_sigs.S.Infix.wiki
diff --git a/doc/10.x/api/client/type_Eliom_shared_sigs.S.Lwt.wiki b/doc/11.x/api/client/type_Eliom_shared_sigs.S.Lwt.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_shared_sigs.S.Lwt.wiki
rename to doc/11.x/api/client/type_Eliom_shared_sigs.S.Lwt.wiki
diff --git a/doc/10.x/api/client/type_Eliom_shared_sigs.S.wiki b/doc/11.x/api/client/type_Eliom_shared_sigs.S.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_shared_sigs.S.wiki
rename to doc/11.x/api/client/type_Eliom_shared_sigs.S.wiki
diff --git a/doc/10.x/api/client/type_Eliom_shared_sigs.VALUE.wiki b/doc/11.x/api/client/type_Eliom_shared_sigs.VALUE.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_shared_sigs.VALUE.wiki
rename to doc/11.x/api/client/type_Eliom_shared_sigs.VALUE.wiki
diff --git a/doc/10.x/api/client/type_Eliom_shared_sigs.wiki b/doc/11.x/api/client/type_Eliom_shared_sigs.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_shared_sigs.wiki
rename to doc/11.x/api/client/type_Eliom_shared_sigs.wiki
diff --git a/doc/10.x/api/client/type_Eliom_tools.D.wiki b/doc/11.x/api/client/type_Eliom_tools.D.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_tools.D.wiki
rename to doc/11.x/api/client/type_Eliom_tools.D.wiki
diff --git a/doc/10.x/api/client/type_Eliom_tools.F.wiki b/doc/11.x/api/client/type_Eliom_tools.F.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_tools.F.wiki
rename to doc/11.x/api/client/type_Eliom_tools.F.wiki
diff --git a/doc/10.x/api/client/type_Eliom_tools.HTML5_TOOLS.wiki b/doc/11.x/api/client/type_Eliom_tools.HTML5_TOOLS.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_tools.HTML5_TOOLS.wiki
rename to doc/11.x/api/client/type_Eliom_tools.HTML5_TOOLS.wiki
diff --git a/doc/10.x/api/client/type_Eliom_tools.wiki b/doc/11.x/api/client/type_Eliom_tools.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_tools.wiki
rename to doc/11.x/api/client/type_Eliom_tools.wiki
diff --git a/doc/10.x/api/client/type_Eliom_types.wiki b/doc/11.x/api/client/type_Eliom_types.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_types.wiki
rename to doc/11.x/api/client/type_Eliom_types.wiki
diff --git a/doc/10.x/api/client/type_Eliom_unwrap.wiki b/doc/11.x/api/client/type_Eliom_unwrap.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_unwrap.wiki
rename to doc/11.x/api/client/type_Eliom_unwrap.wiki
diff --git a/doc/10.x/api/client/type_Eliom_uri.wiki b/doc/11.x/api/client/type_Eliom_uri.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_uri.wiki
rename to doc/11.x/api/client/type_Eliom_uri.wiki
diff --git a/doc/10.x/api/index.wiki b/doc/11.x/api/index.wiki
similarity index 81%
rename from doc/10.x/api/index.wiki
rename to doc/11.x/api/index.wiki
index 619df9cb20..c97e73a934 100644
--- a/doc/10.x/api/index.wiki
+++ b/doc/11.x/api/index.wiki
@@ -8,3 +8,5 @@
 <<a_api subproject="server" text="Server" | intro >>
 
 <<a_api subproject="client" text="Client" | intro >>
+
+<<|a_api subproject="ocamlbuild" text="The ocamlbuild plugin" | intro >>
diff --git a/doc/10.x/api/ocamlbuild/Ocamlbuild_eliom.ELIOM.wiki b/doc/11.x/api/ocamlbuild/Ocamlbuild_eliom.ELIOM.wiki
similarity index 85%
rename from doc/10.x/api/ocamlbuild/Ocamlbuild_eliom.ELIOM.wiki
rename to doc/11.x/api/ocamlbuild/Ocamlbuild_eliom.ELIOM.wiki
index 3a072189cb..d13f0e3239 100644
--- a/doc/10.x/api/ocamlbuild/Ocamlbuild_eliom.ELIOM.wiki
+++ b/doc/11.x/api/ocamlbuild/Ocamlbuild_eliom.ELIOM.wiki
@@ -1,4 +1,4 @@
-=Module type <<a_api_type subproject="ocamlbuild" | module type Ocamlbuild_eliom.ELIOM >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module type>> <<span class="ocsforge_color_uid"|ELIOM>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="ocamlbuild" text=".." | module type Ocamlbuild_eliom.ELIOM >><<span class="ocsforge_color_keyword"|end>>>>
+=Module type <<a_api_type | module type Ocamlbuild_eliom.ELIOM >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module type>> <<span class="ocsforge_color_uid"|ELIOM>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_keyword"|sig>><<a_api text=".." | module type Ocamlbuild_eliom.ELIOM >><<span class="ocsforge_color_keyword"|end>>>>
 ----
 <<pre id="VALserver_dir" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|server~_dir>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Ocamlbuild_plugin>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Pathname>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALtype_dir" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|type~_dir>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Ocamlbuild_plugin>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Pathname>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<pre id="VALclient_dir" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|client~_dir>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Ocamlbuild_plugin>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Pathname>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>>
\ No newline at end of file
diff --git a/doc/10.x/api/ocamlbuild/Ocamlbuild_eliom.Make.wiki b/doc/11.x/api/ocamlbuild/Ocamlbuild_eliom.Make.wiki
similarity index 76%
rename from doc/10.x/api/ocamlbuild/Ocamlbuild_eliom.Make.wiki
rename to doc/11.x/api/ocamlbuild/Ocamlbuild_eliom.Make.wiki
index 82b8365972..6f0678c301 100644
--- a/doc/10.x/api/ocamlbuild/Ocamlbuild_eliom.Make.wiki
+++ b/doc/11.x/api/ocamlbuild/Ocamlbuild_eliom.Make.wiki
@@ -1,6 +1,6 @@
-=Functor <<a_api_type subproject="ocamlbuild" | module Ocamlbuild_eliom.Make >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Make>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>Eliom <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="ocamlbuild" text="ELIOM" | module Ocamlbuild_eliom.ELIOM >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="ocamlbuild" text=".." | module Ocamlbuild_eliom.Make >><<span class="ocsforge_color_keyword"|end>>>>>><<div class="odocwiki_module_param_list" | <<span class="odocwiki_param_title" |Parameters :>><<div|
-|@@class="odocwiki_paramstable"@ @class="centertop fifteen code"@@{{{Eliom}}}|@@class="centertop"@@:|<<span class="odocwiki_type"|Ocamlbuild_eliom.ELIOM>>|
+=Functor <<a_api_type | module Ocamlbuild_eliom.Make >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Make>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>* <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<span class="odocwiki_sig_block"|>><<span class="ocsforge_color_keyword"|end>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  <<span class="ocsforge_color_keyword"|sig>><<a_api text=".." | module Ocamlbuild_eliom.Make >><<span class="ocsforge_color_keyword"|end>>>>>><<div class="odocwiki_module_param_list" | <<span class="odocwiki_param_title" |Parameters :>><<div|
+|@@class="odocwiki_paramstable"@ @class="centertop fifteen code"@@{{{*}}}|@@class="centertop"@@:|<<span class="odocwiki_type"|Ocamlbuild_eliom.ELIOM>>|
 >>>>
 
 ----
diff --git a/doc/11.x/api/ocamlbuild/Ocamlbuild_eliom.wiki b/doc/11.x/api/ocamlbuild/Ocamlbuild_eliom.wiki
new file mode 100644
index 0000000000..44294c89fe
--- /dev/null
+++ b/doc/11.x/api/ocamlbuild/Ocamlbuild_eliom.wiki
@@ -0,0 +1,5 @@
+=Module <<a_api_type | module Ocamlbuild_eliom >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Ocamlbuild_eliom>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api text=".." | module Ocamlbuild_eliom >><<span class="ocsforge_color_keyword"|end>>>>~The paths to each eliom directories
+
+----
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module type>> <<a_api text="ELIOM" | module type Ocamlbuild_eliom.ELIOM >> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_keyword"|sig>><<a_api text=".." | module type Ocamlbuild_eliom.ELIOM >><<span class="ocsforge_color_keyword"|end>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api text="Make" | module Ocamlbuild_eliom.Make >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>* <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<span class="odocwiki_sig_block"|>><<span class="ocsforge_color_keyword"|end>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  <<span class="ocsforge_color_keyword"|sig>><<a_api text=".." | module Ocamlbuild_eliom.Make >><<span class="ocsforge_color_keyword"|end>>>>>>
\ No newline at end of file
diff --git a/doc/11.x/api/ocamlbuild/index.wiki b/doc/11.x/api/ocamlbuild/index.wiki
new file mode 100644
index 0000000000..6f8b7d4e63
--- /dev/null
+++ b/doc/11.x/api/ocamlbuild/index.wiki
@@ -0,0 +1,9 @@
+==
+* <<a_api text="Index of values" | index values >>
+* <<a_api text="Index of modules" | index modules >>
+* <<a_api text="Index of module types" | index module types >>
+\
+|<<a_api | module Ocamlbuild_eliom >>|<<div class="odocwiki_info"|~The paths to each eliom directories
+>>
+|
+
diff --git a/doc/10.x/api/ocamlbuild/index_attributes.wiki b/doc/11.x/api/ocamlbuild/index_attributes.wiki
similarity index 100%
rename from doc/10.x/api/ocamlbuild/index_attributes.wiki
rename to doc/11.x/api/ocamlbuild/index_attributes.wiki
diff --git a/doc/10.x/api/ocamlbuild/index_class_types.wiki b/doc/11.x/api/ocamlbuild/index_class_types.wiki
similarity index 100%
rename from doc/10.x/api/ocamlbuild/index_class_types.wiki
rename to doc/11.x/api/ocamlbuild/index_class_types.wiki
diff --git a/doc/10.x/api/ocamlbuild/index_classes.wiki b/doc/11.x/api/ocamlbuild/index_classes.wiki
similarity index 100%
rename from doc/10.x/api/ocamlbuild/index_classes.wiki
rename to doc/11.x/api/ocamlbuild/index_classes.wiki
diff --git a/doc/10.x/api/ocamlbuild/index_exceptions.wiki b/doc/11.x/api/ocamlbuild/index_exceptions.wiki
similarity index 100%
rename from doc/10.x/api/ocamlbuild/index_exceptions.wiki
rename to doc/11.x/api/ocamlbuild/index_exceptions.wiki
diff --git a/doc/10.x/api/ocamlbuild/index_methods.wiki b/doc/11.x/api/ocamlbuild/index_methods.wiki
similarity index 100%
rename from doc/10.x/api/ocamlbuild/index_methods.wiki
rename to doc/11.x/api/ocamlbuild/index_methods.wiki
diff --git a/doc/11.x/api/ocamlbuild/index_module_types.wiki b/doc/11.x/api/ocamlbuild/index_module_types.wiki
new file mode 100644
index 0000000000..eb3b600075
--- /dev/null
+++ b/doc/11.x/api/ocamlbuild/index_module_types.wiki
@@ -0,0 +1,5 @@
+=Index of module types=
+
+|@@ @style="tet-align: left;"@@\\E|
+|@@class="odocwiki_index"@ @@<<a_api text="ELIOM"| module type Ocamlbuild_eliom.ELIOM >> ~[<<a_api | module Ocamlbuild_eliom >>~]||
+\\
diff --git a/doc/11.x/api/ocamlbuild/index_modules.wiki b/doc/11.x/api/ocamlbuild/index_modules.wiki
new file mode 100644
index 0000000000..a4086cce17
--- /dev/null
+++ b/doc/11.x/api/ocamlbuild/index_modules.wiki
@@ -0,0 +1,9 @@
+=Index of modules=
+
+|@@ @style="tet-align: left;"@@\\M|
+|@@class="odocwiki_index"@ @@<<a_api text="Make"| module Ocamlbuild_eliom.Make >> ~[<<a_api | module Ocamlbuild_eliom >>~]||
+|@@ @style="tet-align: left;"@@\\O|
+|@@class="odocwiki_index"@ @@<<a_api text="Ocamlbuild_eliom"| module Ocamlbuild_eliom >> |<<div class="odocwiki_info"|~The paths to each eliom directories
+>>
+|
+\\
diff --git a/doc/10.x/api/ocamlbuild/index_types.wiki b/doc/11.x/api/ocamlbuild/index_types.wiki
similarity index 100%
rename from doc/10.x/api/ocamlbuild/index_types.wiki
rename to doc/11.x/api/ocamlbuild/index_types.wiki
diff --git a/doc/11.x/api/ocamlbuild/index_values.wiki b/doc/11.x/api/ocamlbuild/index_values.wiki
new file mode 100644
index 0000000000..b453ad210a
--- /dev/null
+++ b/doc/11.x/api/ocamlbuild/index_values.wiki
@@ -0,0 +1,13 @@
+=Index of values=
+
+|@@ @style="tet-align: left;"@@\\C|
+|@@class="odocwiki_index"@ @@<<a_api text="client_dir"| value Ocamlbuild_eliom.ELIOM.client_dir >> ~[<<a_api | module Ocamlbuild_eliom.ELIOM >>~]||
+|@@ @style="tet-align: left;"@@\\D|
+|@@class="odocwiki_index"@ @@<<a_api text="dispatcher"| value Ocamlbuild_eliom.Make.dispatcher >> ~[<<a_api | module Ocamlbuild_eliom.Make >>~]|<<div class="odocwiki_info"|~The main dispatcher
+>>
+|
+|@@ @style="tet-align: left;"@@\\S|
+|@@class="odocwiki_index"@ @@<<a_api text="server_dir"| value Ocamlbuild_eliom.ELIOM.server_dir >> ~[<<a_api | module Ocamlbuild_eliom.ELIOM >>~]||
+|@@ @style="tet-align: left;"@@\\T|
+|@@class="odocwiki_index"@ @@<<a_api text="type_dir"| value Ocamlbuild_eliom.ELIOM.type_dir >> ~[<<a_api | module Ocamlbuild_eliom.ELIOM >>~]||
+\\
diff --git a/doc/11.x/api/ocamlbuild/menu.wiki b/doc/11.x/api/ocamlbuild/menu.wiki
new file mode 100644
index 0000000000..e69de29bb2
diff --git a/doc/10.x/api/ocamlbuild/type_Ocamlbuild_eliom.ELIOM.wiki b/doc/11.x/api/ocamlbuild/type_Ocamlbuild_eliom.ELIOM.wiki
similarity index 100%
rename from doc/10.x/api/ocamlbuild/type_Ocamlbuild_eliom.ELIOM.wiki
rename to doc/11.x/api/ocamlbuild/type_Ocamlbuild_eliom.ELIOM.wiki
diff --git a/doc/10.x/api/ocamlbuild/type_Ocamlbuild_eliom.Make.wiki b/doc/11.x/api/ocamlbuild/type_Ocamlbuild_eliom.Make.wiki
similarity index 71%
rename from doc/10.x/api/ocamlbuild/type_Ocamlbuild_eliom.Make.wiki
rename to doc/11.x/api/ocamlbuild/type_Ocamlbuild_eliom.Make.wiki
index 276bc0c0c4..90d97915bd 100644
--- a/doc/10.x/api/ocamlbuild/type_Ocamlbuild_eliom.Make.wiki
+++ b/doc/11.x/api/ocamlbuild/type_Ocamlbuild_eliom.Make.wiki
@@ -1,4 +1,4 @@
-<<code language="ocaml" | functor (Eliom : ELIOM) ->
+<<code language="ocaml" | ELIOM ->
   sig
     val dispatcher :
       ?oasis_executables:Ocamlbuild_plugin.Pathname.t list ->
diff --git a/doc/10.x/api/ocamlbuild/type_Ocamlbuild_eliom.wiki b/doc/11.x/api/ocamlbuild/type_Ocamlbuild_eliom.wiki
similarity index 90%
rename from doc/10.x/api/ocamlbuild/type_Ocamlbuild_eliom.wiki
rename to doc/11.x/api/ocamlbuild/type_Ocamlbuild_eliom.wiki
index 08dc0f5d02..3687c9b89f 100644
--- a/doc/10.x/api/ocamlbuild/type_Ocamlbuild_eliom.wiki
+++ b/doc/11.x/api/ocamlbuild/type_Ocamlbuild_eliom.wiki
@@ -6,7 +6,7 @@
       val client_dir : Ocamlbuild_plugin.Pathname.t
     end
   module Make :
-    functor (Eliom : ELIOM) ->
+    ELIOM ->
       sig
         val dispatcher :
           ?oasis_executables:Ocamlbuild_plugin.Pathname.t list ->
@@ -18,7 +18,7 @@
       val with_package : string -> string
     end
   module MakeIntern :
-    functor (I : INTERNALS) (Eliom : ELIOM) ->
+    INTERNALS -> ELIOM ->
       sig
         val dispatcher :
           ?oasis_executables:Ocamlbuild_plugin.Pathname.t list ->
diff --git a/doc/10.x/api/ppx/Ppx_eliom.wiki b/doc/11.x/api/ppx/Ppx_eliom.wiki
similarity index 100%
rename from doc/10.x/api/ppx/Ppx_eliom.wiki
rename to doc/11.x/api/ppx/Ppx_eliom.wiki
diff --git a/doc/10.x/api/ppx/Ppx_eliom_client.wiki b/doc/11.x/api/ppx/Ppx_eliom_client.wiki
similarity index 100%
rename from doc/10.x/api/ppx/Ppx_eliom_client.wiki
rename to doc/11.x/api/ppx/Ppx_eliom_client.wiki
diff --git a/doc/10.x/api/ppx/Ppx_eliom_server.wiki b/doc/11.x/api/ppx/Ppx_eliom_server.wiki
similarity index 100%
rename from doc/10.x/api/ppx/Ppx_eliom_server.wiki
rename to doc/11.x/api/ppx/Ppx_eliom_server.wiki
diff --git a/doc/10.x/api/ppx/Ppx_eliom_type.wiki b/doc/11.x/api/ppx/Ppx_eliom_type.wiki
similarity index 100%
rename from doc/10.x/api/ppx/Ppx_eliom_type.wiki
rename to doc/11.x/api/ppx/Ppx_eliom_type.wiki
diff --git a/doc/10.x/api/ppx/index.wiki b/doc/11.x/api/ppx/index.wiki
similarity index 100%
rename from doc/10.x/api/ppx/index.wiki
rename to doc/11.x/api/ppx/index.wiki
diff --git a/doc/10.x/api/ppx/index_attributes.wiki b/doc/11.x/api/ppx/index_attributes.wiki
similarity index 100%
rename from doc/10.x/api/ppx/index_attributes.wiki
rename to doc/11.x/api/ppx/index_attributes.wiki
diff --git a/doc/10.x/api/ppx/index_class_types.wiki b/doc/11.x/api/ppx/index_class_types.wiki
similarity index 100%
rename from doc/10.x/api/ppx/index_class_types.wiki
rename to doc/11.x/api/ppx/index_class_types.wiki
diff --git a/doc/10.x/api/ppx/index_classes.wiki b/doc/11.x/api/ppx/index_classes.wiki
similarity index 100%
rename from doc/10.x/api/ppx/index_classes.wiki
rename to doc/11.x/api/ppx/index_classes.wiki
diff --git a/doc/10.x/api/ppx/index_exceptions.wiki b/doc/11.x/api/ppx/index_exceptions.wiki
similarity index 100%
rename from doc/10.x/api/ppx/index_exceptions.wiki
rename to doc/11.x/api/ppx/index_exceptions.wiki
diff --git a/doc/10.x/api/ppx/index_methods.wiki b/doc/11.x/api/ppx/index_methods.wiki
similarity index 100%
rename from doc/10.x/api/ppx/index_methods.wiki
rename to doc/11.x/api/ppx/index_methods.wiki
diff --git a/doc/10.x/api/ppx/index_module_types.wiki b/doc/11.x/api/ppx/index_module_types.wiki
similarity index 100%
rename from doc/10.x/api/ppx/index_module_types.wiki
rename to doc/11.x/api/ppx/index_module_types.wiki
diff --git a/doc/10.x/api/ppx/index_modules.wiki b/doc/11.x/api/ppx/index_modules.wiki
similarity index 100%
rename from doc/10.x/api/ppx/index_modules.wiki
rename to doc/11.x/api/ppx/index_modules.wiki
diff --git a/doc/10.x/api/ppx/index_types.wiki b/doc/11.x/api/ppx/index_types.wiki
similarity index 100%
rename from doc/10.x/api/ppx/index_types.wiki
rename to doc/11.x/api/ppx/index_types.wiki
diff --git a/doc/10.x/api/ppx/index_values.wiki b/doc/11.x/api/ppx/index_values.wiki
similarity index 100%
rename from doc/10.x/api/ppx/index_values.wiki
rename to doc/11.x/api/ppx/index_values.wiki
diff --git a/doc/10.x/api/ppx/menu.wiki b/doc/11.x/api/ppx/menu.wiki
similarity index 100%
rename from doc/10.x/api/ppx/menu.wiki
rename to doc/11.x/api/ppx/menu.wiki
diff --git a/doc/10.x/api/ppx/type_Ppx_eliom.wiki b/doc/11.x/api/ppx/type_Ppx_eliom.wiki
similarity index 100%
rename from doc/10.x/api/ppx/type_Ppx_eliom.wiki
rename to doc/11.x/api/ppx/type_Ppx_eliom.wiki
diff --git a/doc/10.x/api/ppx/type_Ppx_eliom_client.wiki b/doc/11.x/api/ppx/type_Ppx_eliom_client.wiki
similarity index 100%
rename from doc/10.x/api/ppx/type_Ppx_eliom_client.wiki
rename to doc/11.x/api/ppx/type_Ppx_eliom_client.wiki
diff --git a/doc/10.x/api/ppx/type_Ppx_eliom_server.wiki b/doc/11.x/api/ppx/type_Ppx_eliom_server.wiki
similarity index 100%
rename from doc/10.x/api/ppx/type_Ppx_eliom_server.wiki
rename to doc/11.x/api/ppx/type_Ppx_eliom_server.wiki
diff --git a/doc/10.x/api/ppx/type_Ppx_eliom_type.wiki b/doc/11.x/api/ppx/type_Ppx_eliom_type.wiki
similarity index 100%
rename from doc/10.x/api/ppx/type_Ppx_eliom_type.wiki
rename to doc/11.x/api/ppx/type_Ppx_eliom_type.wiki
diff --git a/doc/10.x/api/server/Eliom_bus.wiki b/doc/11.x/api/server/Eliom_bus.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_bus.wiki
rename to doc/11.x/api/server/Eliom_bus.wiki
diff --git a/doc/10.x/api/server/Eliom_client.wiki b/doc/11.x/api/server/Eliom_client.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_client.wiki
rename to doc/11.x/api/server/Eliom_client.wiki
diff --git a/doc/10.x/api/server/Eliom_client_value.wiki b/doc/11.x/api/server/Eliom_client_value.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_client_value.wiki
rename to doc/11.x/api/server/Eliom_client_value.wiki
diff --git a/doc/10.x/api/server/Eliom_comet.Channel.wiki b/doc/11.x/api/server/Eliom_comet.Channel.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_comet.Channel.wiki
rename to doc/11.x/api/server/Eliom_comet.Channel.wiki
diff --git a/doc/10.x/api/server/Eliom_comet.wiki b/doc/11.x/api/server/Eliom_comet.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_comet.wiki
rename to doc/11.x/api/server/Eliom_comet.wiki
diff --git a/doc/10.x/api/server/Eliom_common.Full_state_name_table.wiki b/doc/11.x/api/server/Eliom_common.Full_state_name_table.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_common.Full_state_name_table.wiki
rename to doc/11.x/api/server/Eliom_common.Full_state_name_table.wiki
diff --git a/doc/10.x/api/server/Eliom_common.Ocsipersist.wiki b/doc/11.x/api/server/Eliom_common.Ocsipersist.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_common.Ocsipersist.wiki
rename to doc/11.x/api/server/Eliom_common.Ocsipersist.wiki
diff --git a/doc/10.x/api/server/Eliom_common.wiki b/doc/11.x/api/server/Eliom_common.wiki
similarity index 97%
rename from doc/10.x/api/server/Eliom_common.wiki
rename to doc/11.x/api/server/Eliom_common.wiki
index da3084668d..ec7e3c85d2 100644
--- a/doc/10.x/api/server/Eliom_common.wiki
+++ b/doc/11.x/api/server/Eliom_common.wiki
@@ -58,6 +58,8 @@
     ~In that case you must
     delay the function call using <<a_api subproject="server" | val Eliom_service.register_eliom_module >>~.
 >>
+<<pre id="EXCEPTIONCannot_call_this_function_before_app_is_linked_to_a_site" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|exception>> <<span class="odocwiki_name"|Cannot_call_this_function_before_app_is_linked_to_a_site>>>><<div class="odocwiki_info"|~Statically linked app~: ~You cannot call this function before <<span class="odocwiki_inlinecode"|~Eliom~_run>>~.
+>>
 <<pre class="ocsforge_color odocwiki_code" id="TYPEfull_state_name"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|full~_state~_name>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_delimiter"|~{>>
 <<span class="odocwiki_record"|<<span class="odocwiki_field"|<<span class="odocwiki_field_descr"|  <<span class="ocsforge_color_label"|user_scope:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="user_scope" | type Eliom_common.user_scope >>>><<span class="ocsforge_color_delimiter"|~;>> >>>><<span class="odocwiki_field"|<<span class="odocwiki_field_descr"|  <<span class="ocsforge_color_label"|secure:>> <<span class="odocwiki_type"|bool>><<span class="ocsforge_color_delimiter"|~;>> >>>><<span class="odocwiki_field"|<<span class="odocwiki_field_descr"|  <<span class="ocsforge_color_label"|site_dir_str:>> <<span class="odocwiki_type"|string>><<span class="ocsforge_color_delimiter"|~;>> >>>>>><<span class="ocsforge_color_delimiter"|~}>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Full_state_name_table" | module Eliom_common.Full_state_name_table >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Map.S>>>><<span class="odocwiki_type"|  with type key = full_state_name>>>><<pre id="VALeliom_link_too_old" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|eliom~_link~_too~_old>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|bool <<span class="ocsforge_color_uid"|Polytables>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|key>>>>>><<div class="odocwiki_info"|~If present and true in request data~, it means that
     the previous coservice does not exist any more
diff --git a/doc/11.x/api/server/Eliom_config.wiki b/doc/11.x/api/server/Eliom_config.wiki
new file mode 100644
index 0000000000..f6cd706dee
--- /dev/null
+++ b/doc/11.x/api/server/Eliom_config.wiki
@@ -0,0 +1,87 @@
+=Module <<a_api_type subproject="server" | module Eliom_config >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Eliom_config>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="server" text=".." | module Eliom_config >><<span class="ocsforge_color_keyword"|end>>>>~This module makes also possible get information from the configuration
+file~.
+
+
+    ~It make also possible to add configuration options
+    in configuration file for your ~Eliom modules~.
+    ~Use <<a_api subproject="server" | val Eliom_config.parse_config >> for that~.
+
+
+    ~Example~:
+
+
+{{{     <eliommodule ...>
+        <myoption myattr="...">myvalue</myoption>
+     </eliommodule>}}}
+
+----
+<<pre id="VALset_session_gc_frequency" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|set~_session~_gc~_frequency>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|int option <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<div class="odocwiki_info"|~Set frequency 
+    for garnage collection of both in memory data and service sessions~.
+    <<span class="odocwiki_inlinecode"|~None>> means never~.
+>>
+<<pre id="VALset_service_session_gc_frequency" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|set~_service~_session~_gc~_frequency>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|int option <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<div class="odocwiki_info"|~Set frequency for garbage collection of service sessions~.
+    <<span class="odocwiki_inlinecode"|~None>> means never~.
+>>
+<<pre id="VALset_data_session_gc_frequency" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|set~_data~_session~_gc~_frequency>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|int option <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<div class="odocwiki_info"|~Set frequency for garbage collection of in memory data sessions~.
+    <<span class="odocwiki_inlinecode"|~None>> means never~.
+>>
+<<pre id="VALset_persistent_session_gc_frequency" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|set~_persistent~_session~_gc~_frequency>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|int option <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<div class="odocwiki_info"|~Set frequency for garbage collection of persistent data sessions~.
+    <<span class="odocwiki_inlinecode"|~None>> means never~.
+>>
+<<pre id="VALset_volatile_timeout" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|set~_volatile~_timeout>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?scope_hierarchy: >><<a_api subproject="server" text="Eliom_common.scope_hierarchy" | type Eliom_common.scope_hierarchy >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| cookie_level: >>[< `Client_process | `Session ] <<span class="ocsforge_color_delimiter"| -> >> int option <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALset_data_timeout" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|set~_data~_timeout>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?scope_hierarchy: >><<a_api subproject="server" text="Eliom_common.scope_hierarchy" | type Eliom_common.scope_hierarchy >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| cookie_level: >>[< `Client_process | `Session ] <<span class="ocsforge_color_delimiter"| -> >> int option <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALset_service_timeout" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|set~_service~_timeout>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?scope_hierarchy: >><<a_api subproject="server" text="Eliom_common.scope_hierarchy" | type Eliom_common.scope_hierarchy >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| cookie_level: >>[< `Client_process | `Session ] <<span class="ocsforge_color_delimiter"| -> >> int option <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALset_persistent_timeout" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|set~_persistent~_timeout>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?scope_hierarchy: >><<a_api subproject="server" text="Eliom_common.scope_hierarchy" | type Eliom_common.scope_hierarchy >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| cookie_level: >>[< `Client_process | `Session ] <<span class="ocsforge_color_delimiter"| -> >> int option <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALset_max_service_sessions_per_group" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|set~_max~_service~_sessions~_per~_group>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|int <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALset_max_volatile_data_sessions_per_group" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|set~_max~_volatile~_data~_sessions~_per~_group>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|int <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALset_max_persistent_data_sessions_per_group" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|set~_max~_persistent~_data~_sessions~_per~_group>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|int <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALset_max_service_tab_sessions_per_group" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|set~_max~_service~_tab~_sessions~_per~_group>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|int <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALset_max_volatile_data_tab_sessions_per_group" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|set~_max~_volatile~_data~_tab~_sessions~_per~_group>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|int <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALset_max_persistent_data_tab_sessions_per_group" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|set~_max~_persistent~_data~_tab~_sessions~_per~_group>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|int <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALset_max_anonymous_services_per_session" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|set~_max~_anonymous~_services~_per~_session>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|int <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALset_max_volatile_groups_per_site" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|set~_max~_volatile~_groups~_per~_site>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|int <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALset_secure_cookies" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|set~_secure~_cookies>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|bool <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALset_application_script" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|set~_application~_script>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|bool * bool <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALset_cache_global_data" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|set~_cache~_global~_data>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >><<span class="ocsforge_color_uid"|Eliom_lib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Url>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|path>> * int<<span class="ocsforge_color_delimiter"| ) >> option <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALset_html_content_type" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|set~_html~_content~_type>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|string <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALadd_ignored_get_params" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|add~_ignored~_get~_params>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|string * <<span class="ocsforge_color_uid"|Re>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|re>> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALadd_ignored_post_params" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|add~_ignored~_post~_params>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|string * <<span class="ocsforge_color_uid"|Re>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|re>> <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALset_omitpersistentstorage" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|set~_omitpersistentstorage>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_uid"|Eliom_common>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|omitpersistentstorage_rule>> list option <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<pre id="VALget_default_hostname" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|get~_default~_hostname>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|unit <<span class="ocsforge_color_delimiter"| -> >> string>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|get~_default~_hostname ~(~)>>returns the hostname
+   declared in the config file ~(<<span class="odocwiki_inlinecode"|~<host defaulthostname~="~.~.~."~>>>~) or
+   the default machine hostname~.
+   ~In that case~, absolute ~U~R~L will use that hostname~.
+>>
+<<pre id="VALget_default_port" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|get~_default~_port>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|unit <<span class="ocsforge_color_delimiter"| -> >> int>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|get~_default~_port ~(~)>> returns the port number
+   declared in the config file ~(<<span class="odocwiki_inlinecode"|~<host defaulthttpport~="~.~.~."~>>>~) or
+   ~-~> unit
+    ~8~0 if undeclared~.
+>>
+<<pre id="VALget_default_sslport" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|get~_default~_sslport>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|unit <<span class="ocsforge_color_delimiter"| -> >> int>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|get~_default~_sslport ~(~)>> returns the https port
+    number declared in the config file ~(<<span class="odocwiki_inlinecode"|~<host
+    defaulthttpsport~="~.~.~."~>>>~) or ~4~4~3 if undeclared~.
+>>
+<<pre id="VALdefault_protocol_is_https" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|default~_protocol~_is~_https>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|unit <<span class="ocsforge_color_delimiter"| -> >> bool>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|default~_protocol~_is~_https ~(~)>> returns <<span class="odocwiki_inlinecode"|true>>
+    if there is option ~(<<span class="odocwiki_inlinecode"|~<host
+    defaultprotocol~="https"~>>>~)or false otherwise~.
+    ~In that case~, absolute links will use https protocol even if
+    the current request is http~.
+>>
+<<pre id="VALget_config_default_charset" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|get~_config~_default~_charset>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|unit <<span class="ocsforge_color_delimiter"| -> >> string>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|get~_config~_default~_charset ~(~)>> returns the default
+    charset for this site~.
+>>
+<<pre id="VALset_default_links_xhr" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|set~_default~_links~_xhr>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_label"| ?override_configfile: >>bool <<span class="ocsforge_color_delimiter"| -> >> bool <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<div class="odocwiki_info"|~The provided value serves as a default value for the optional parameter
+    <<span class="odocwiki_inlinecode"|~~xhr>> in the functions <<span class="odocwiki_inlinecode"|~Eliom~_registration~.~*~.~{a~, get~_form~, post~_form~,
+    lwt~_get~_form~, lwt~_post~_form~}>> ~(cf~. <<span class="odocwiki_inlinecode"|~Eliom~_registration~.~Html~.a>> et al~.~)~.
+    ~This value can also be set in the
+    [[http://ocsigen.org/eliom/dev/manual/config#h5o-25|config file]]~.
+>>
+<<pre id="VALget_config" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|get~_config>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|unit <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|xml>> list>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|get~_config ~(~)>> returns the information of the
+    configuration file concerning that site ~(between <<span class="odocwiki_inlinecode"|~<eliommodule~>>> and
+    <<span class="odocwiki_inlinecode"|~<~/eliommodule~>>> or <<span class="odocwiki_inlinecode"|~<eliom~>>> and <<span class="odocwiki_inlinecode"|~<~/eliom~>>>~)~.
+
+
+    //~Warning~: ~You must call that function during the initialisation of
+    your module ~(not during a ~Lwt thread or a service~)
+    otherwise it will raise the exception
+    <<a_api subproject="server" | exception Eliom_common.Eliom_site_information_not_available >>~.
+    ~If you want to build a statically linkable module~, you must call this
+    function inside the initialisation function given to
+    <<a_api subproject="server" | val Eliom_service.register_eliom_module >>~.//
+>>
+<<pre id="VALparse_config" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|parse~_config>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?pcdata: >><<span class="ocsforge_color_delimiter"| ( >>string <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?other_elements: >><<span class="ocsforge_color_delimiter"| ( >>string <<span class="ocsforge_color_delimiter"| -> >>\\                   <<span class="ocsforge_color_delimiter"| ( >>string * string<<span class="ocsforge_color_delimiter"| ) >> list <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|xml>> list <<span class="ocsforge_color_delimiter"| -> >> unit<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_uid"|Ocsigen_extensions>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Configuration>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|element>> list <<span class="ocsforge_color_delimiter"| -> >> unit>>>><<div class="odocwiki_info"|~Process the configuration
+    ~(same as the one returned by
+    <<a_api module="Eliom_config" | val get_config>> ~)
+    by a given specification ~(cf~. <<a_api project="ocsigenserver" | type Ocsigen_extensions.Configuration.element >> ~)
+>>
+<<pre id="VALget_config_info" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|get~_config~_info>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|unit <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Ocsigen_extensions>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|config_info>>>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|get~_config~_info ~(~)>> returns the information
+    concerning the current request from the configuration files
+    ~(must be called during a request~)~.
+    ~The configuration may have been modified by previous ~Ocsigen server
+    extensions~.
+>>
+<<pre id="VALget_debugmode" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|get~_debugmode>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|unit <<span class="ocsforge_color_delimiter"| -> >> bool>>>><<div class="odocwiki_info"|~Same as <<span class="odocwiki_inlinecode"|~Ocsigen~_config~.get~_debugmode>>~.
+    ~On client side~, returns <<span class="odocwiki_inlinecode"|false>> for now~.
+>>
diff --git a/doc/10.x/api/server/Eliom_content.Html.C.wiki b/doc/11.x/api/server/Eliom_content.Html.C.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_content.Html.C.wiki
rename to doc/11.x/api/server/Eliom_content.Html.C.wiki
diff --git a/doc/10.x/api/server/Eliom_content.Html.Custom_data.wiki b/doc/11.x/api/server/Eliom_content.Html.Custom_data.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_content.Html.Custom_data.wiki
rename to doc/11.x/api/server/Eliom_content.Html.Custom_data.wiki
diff --git a/doc/11.x/api/server/Eliom_content.Html.D.Raw.wiki b/doc/11.x/api/server/Eliom_content.Html.D.Raw.wiki
new file mode 100644
index 0000000000..172ef4e807
--- /dev/null
+++ b/doc/11.x/api/server/Eliom_content.Html.D.Raw.wiki
@@ -0,0 +1,5 @@
+=Module <<a_api_type subproject="server" | module Eliom_content.Html.D.Raw >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="server" text=".." | module Eliom_content.Html.D.Raw >><<span class="ocsforge_color_keyword"|end>>>>
+----
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content.Html.D.Raw'>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> ??>>
diff --git a/doc/10.x/api/server/Eliom_content.Html.D.wiki b/doc/11.x/api/server/Eliom_content.Html.D.wiki
similarity index 71%
rename from doc/10.x/api/server/Eliom_content.Html.D.wiki
rename to doc/11.x/api/server/Eliom_content.Html.D.wiki
index bf498e5b7e..cb78999bd3 100644
--- a/doc/10.x/api/server/Eliom_content.Html.D.wiki
+++ b/doc/11.x/api/server/Eliom_content.Html.D.wiki
@@ -13,7 +13,7 @@
         ~If you want to create an untyped form~, you will have to use         <<a_api|module Eliom_content.Html.F.Raw>>  otherwise~, use
         ~Eliom form widgets~.  ~For more information~, see
         <<a_manual chapter="server-links" fragment="forms"|the manual>> ~.
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Raw" | module Eliom_content.Html.D.Raw >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Html_sigs.Make>>(Xml)(<<span class="ocsforge_color_uid"|Svg.D.Raw>>).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>><<div class="odocwiki_info"|~See <<a_api project="tyxml" | module Html_sigs.T >> ~.
->>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="server" | module Eliom_content.Html.D.Raw >>>>
+
+~See <<a_api project="tyxml" | module Html_sigs.T >> ~.
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Raw" | module Eliom_content.Html.D.Raw >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="server" text=".." | module Eliom_content.Html.D.Raw >><<span class="ocsforge_color_keyword"|end>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content.Html.D.Raw'>>
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="server" | module type Eliom_content_sigs.LINKS_AND_FORMS >>>>
diff --git a/doc/11.x/api/server/Eliom_content.Html.F.Raw.wiki b/doc/11.x/api/server/Eliom_content.Html.F.Raw.wiki
new file mode 100644
index 0000000000..7ff641ed81
--- /dev/null
+++ b/doc/11.x/api/server/Eliom_content.Html.F.Raw.wiki
@@ -0,0 +1,5 @@
+=Module <<a_api_type subproject="server" | module Eliom_content.Html.F.Raw >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="server" text=".." | module Eliom_content.Html.F.Raw >><<span class="ocsforge_color_keyword"|end>>>>
+----
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content.Html.F.Raw'>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> ??>>
diff --git a/doc/10.x/api/server/Eliom_content.Html.F.wiki b/doc/11.x/api/server/Eliom_content.Html.F.wiki
similarity index 72%
rename from doc/10.x/api/server/Eliom_content.Html.F.wiki
rename to doc/11.x/api/server/Eliom_content.Html.F.wiki
index 666056a21c..938a105c65 100644
--- a/doc/10.x/api/server/Eliom_content.Html.F.wiki
+++ b/doc/11.x/api/server/Eliom_content.Html.F.wiki
@@ -13,7 +13,7 @@
         ~If you want to create an untyped form~, you will have to use         <<a_api|module Eliom_content.Html.F.Raw>>  otherwise~, use
         ~Eliom form widgets~.  ~For more information~, see
         <<a_manual chapter="server-links" fragment="forms"|the manual>> ~.
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Raw" | module Eliom_content.Html.F.Raw >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Html_sigs.Make>>(Xml)(<<span class="ocsforge_color_uid"|Svg.F.Raw>>).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>><<div class="odocwiki_info"|~See <<a_api project="tyxml" | module Html_sigs.T >> ~.
->>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="server" | module Eliom_content.Html.F.Raw >>>>
+
+~See <<a_api project="tyxml" | module Html_sigs.T >> ~.
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Raw" | module Eliom_content.Html.F.Raw >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="server" text=".." | module Eliom_content.Html.F.Raw >><<span class="ocsforge_color_keyword"|end>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content.Html.F.Raw'>>
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="server" | module type Eliom_content_sigs.LINKS_AND_FORMS >>>>
diff --git a/doc/10.x/api/server/Eliom_content.Html.Id.wiki b/doc/11.x/api/server/Eliom_content.Html.Id.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_content.Html.Id.wiki
rename to doc/11.x/api/server/Eliom_content.Html.Id.wiki
diff --git a/doc/10.x/api/server/Eliom_content.Html.Printer.wiki b/doc/11.x/api/server/Eliom_content.Html.Printer.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_content.Html.Printer.wiki
rename to doc/11.x/api/server/Eliom_content.Html.Printer.wiki
diff --git a/doc/10.x/api/server/Eliom_content.Html.R.wiki b/doc/11.x/api/server/Eliom_content.Html.R.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_content.Html.R.wiki
rename to doc/11.x/api/server/Eliom_content.Html.R.wiki
diff --git a/doc/10.x/api/server/Eliom_content.Html.wiki b/doc/11.x/api/server/Eliom_content.Html.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_content.Html.wiki
rename to doc/11.x/api/server/Eliom_content.Html.wiki
diff --git a/doc/10.x/api/server/Eliom_content.Svg.C.wiki b/doc/11.x/api/server/Eliom_content.Svg.C.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_content.Svg.C.wiki
rename to doc/11.x/api/server/Eliom_content.Svg.C.wiki
diff --git a/doc/11.x/api/server/Eliom_content.Svg.D.Raw.wiki b/doc/11.x/api/server/Eliom_content.Svg.D.Raw.wiki
new file mode 100644
index 0000000000..a633fd8008
--- /dev/null
+++ b/doc/11.x/api/server/Eliom_content.Svg.D.Raw.wiki
@@ -0,0 +1,5 @@
+=Module <<a_api_type subproject="server" | module Eliom_content.Svg.D.Raw >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="server" text=".." | module Eliom_content.Svg.D.Raw >><<span class="ocsforge_color_keyword"|end>>>>
+----
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content.Svg.D.Raw'>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> ??>>
diff --git a/doc/10.x/api/server/Eliom_content.Svg.D.wiki b/doc/11.x/api/server/Eliom_content.Svg.D.wiki
similarity index 62%
rename from doc/10.x/api/server/Eliom_content.Svg.D.wiki
rename to doc/11.x/api/server/Eliom_content.Svg.D.wiki
index 7d35b243a1..308a077f58 100644
--- a/doc/10.x/api/server/Eliom_content.Svg.D.wiki
+++ b/doc/11.x/api/server/Eliom_content.Svg.D.wiki
@@ -3,6 +3,6 @@
       <<a_api project="tyxml" | module Svg_sigs.T >> ~.
 
 ----
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Raw" | module Eliom_content.Svg.D.Raw >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(Xml).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>><<div class="odocwiki_info"|~See <<a_api project="tyxml" | module Html_sigs.T >> ~.
->>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="server" | module Eliom_content.Svg.D.Raw >>>>
+
+~See <<a_api project="tyxml" | module Html_sigs.T >> ~.
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Raw" | module Eliom_content.Svg.D.Raw >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="server" text=".." | module Eliom_content.Svg.D.Raw >><<span class="ocsforge_color_keyword"|end>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content.Svg.D.Raw'>>
diff --git a/doc/11.x/api/server/Eliom_content.Svg.F.Raw.wiki b/doc/11.x/api/server/Eliom_content.Svg.F.Raw.wiki
new file mode 100644
index 0000000000..2455b59b78
--- /dev/null
+++ b/doc/11.x/api/server/Eliom_content.Svg.F.Raw.wiki
@@ -0,0 +1,5 @@
+=Module <<a_api_type subproject="server" | module Eliom_content.Svg.F.Raw >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="server" text=".." | module Eliom_content.Svg.F.Raw >><<span class="ocsforge_color_keyword"|end>>>>
+----
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content.Svg.F.Raw'>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> ??>>
diff --git a/doc/10.x/api/server/Eliom_content.Svg.F.wiki b/doc/11.x/api/server/Eliom_content.Svg.F.wiki
similarity index 62%
rename from doc/10.x/api/server/Eliom_content.Svg.F.wiki
rename to doc/11.x/api/server/Eliom_content.Svg.F.wiki
index 577c139895..5bc1545f73 100644
--- a/doc/10.x/api/server/Eliom_content.Svg.F.wiki
+++ b/doc/11.x/api/server/Eliom_content.Svg.F.wiki
@@ -4,6 +4,6 @@
       Svg_sigs.T >> ~.
 
 ----
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Raw" | module Eliom_content.Svg.F.Raw >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(Xml).T>><<span class="odocwiki_type"| \\        with type +'a elt = 'a elt\\         and type +'a attrib = 'a attrib>>>><<div class="odocwiki_info"|~See <<a_api project="tyxml" | module Html_sigs.T >> ~.
->>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="server" | module Eliom_content.Svg.F.Raw >>>>
+
+~See <<a_api project="tyxml" | module Html_sigs.T >> ~.
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Raw" | module Eliom_content.Svg.F.Raw >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="server" text=".." | module Eliom_content.Svg.F.Raw >><<span class="ocsforge_color_keyword"|end>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> Eliom_content.Svg.F.Raw'>>
diff --git a/doc/10.x/api/server/Eliom_content.Svg.Id.wiki b/doc/11.x/api/server/Eliom_content.Svg.Id.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_content.Svg.Id.wiki
rename to doc/11.x/api/server/Eliom_content.Svg.Id.wiki
diff --git a/doc/10.x/api/server/Eliom_content.Svg.Printer.wiki b/doc/11.x/api/server/Eliom_content.Svg.Printer.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_content.Svg.Printer.wiki
rename to doc/11.x/api/server/Eliom_content.Svg.Printer.wiki
diff --git a/doc/10.x/api/server/Eliom_content.Svg.R.Raw.wiki b/doc/11.x/api/server/Eliom_content.Svg.R.Raw.wiki
similarity index 79%
rename from doc/10.x/api/server/Eliom_content.Svg.R.Raw.wiki
rename to doc/11.x/api/server/Eliom_content.Svg.R.Raw.wiki
index 92f09d8db2..c19fcbc09d 100644
--- a/doc/10.x/api/server/Eliom_content.Svg.R.Raw.wiki
+++ b/doc/11.x/api/server/Eliom_content.Svg.R.Raw.wiki
@@ -1,3 +1,3 @@
 =Module <<a_api_type subproject="server" | module Eliom_content.Svg.R.Raw >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(Xml_shared).T>><<span class="odocwiki_type"| \\        with type 'a elt = 'a elt\\         and type 'a attrib = 'a attrib>>>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Raw>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(Xml_shared).T>><<span class="odocwiki_type"| \\      with type 'a elt = 'a elt\\       and type 'a attrib = 'a attrib>>>>
 ----
diff --git a/doc/10.x/api/server/Eliom_content.Svg.R.wiki b/doc/11.x/api/server/Eliom_content.Svg.R.wiki
similarity index 91%
rename from doc/10.x/api/server/Eliom_content.Svg.R.wiki
rename to doc/11.x/api/server/Eliom_content.Svg.R.wiki
index 6d360d5576..06b3236677 100644
--- a/doc/10.x/api/server/Eliom_content.Svg.R.wiki
+++ b/doc/11.x/api/server/Eliom_content.Svg.R.wiki
@@ -5,7 +5,7 @@
       <<a_api project="tyxml" | module Svg_sigs.T >> ~.
 
 ----
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Raw" | module Eliom_content.Svg.R.Raw >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(Xml_shared).T>><<span class="odocwiki_type"| \\        with type 'a elt = 'a elt\\         and type 'a attrib = 'a attrib>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="server" | module Eliom_content.Svg.R.Raw >>>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Raw" | module Eliom_content.Svg.R.Raw >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Svg_sigs.Make>>(Xml_shared).T>><<span class="odocwiki_type"| \\      with type 'a elt = 'a elt\\       and type 'a attrib = 'a attrib>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="server" | module Eliom_content.Svg.R.Raw >>>>
 <<pre id="VALpcdata" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|pcdata>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|string <<span class="ocsforge_color_uid"|Eliom_content>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Xml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|W>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> [> `Unimplemented ]>>>><<div class="odocwiki_info"|<<span class="odocwiki_inlinecode"|pcdata>> is not implemented reactively for ~S~V~G~.
 >>
 <<pre id="VALnode" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|node>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  'a <<a_api subproject="server" text="Eliom_content.Svg.elt" | type Eliom_content.Svg.elt >> <<span class="ocsforge_color_uid"|Eliom_shared>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|React>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|S>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  'a <<a_api subproject="server" text="Eliom_content.Svg.elt" | type Eliom_content.Svg.elt >>>>>><<div class="odocwiki_info"|<<span class="odocwiki_inlinecode"|node s>> produces an <<span class="odocwiki_inlinecode"|~'a elt>> out of the shared reactive
diff --git a/doc/10.x/api/server/Eliom_content.Svg.wiki b/doc/11.x/api/server/Eliom_content.Svg.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_content.Svg.wiki
rename to doc/11.x/api/server/Eliom_content.Svg.wiki
diff --git a/doc/10.x/api/server/Eliom_content.Xml.wiki b/doc/11.x/api/server/Eliom_content.Xml.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_content.Xml.wiki
rename to doc/11.x/api/server/Eliom_content.Xml.wiki
diff --git a/doc/11.x/api/server/Eliom_content.Xml_shared.wiki b/doc/11.x/api/server/Eliom_content.Xml_shared.wiki
new file mode 100644
index 0000000000..536fa4ffe4
--- /dev/null
+++ b/doc/11.x/api/server/Eliom_content.Xml_shared.wiki
@@ -0,0 +1,3 @@
+=Module <<a_api_type subproject="server" | module Eliom_content.Xml_shared >> =
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Xml_shared>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Xml_sigs.T>>>><<span class="odocwiki_type"| \\  with type 'a W.t = 'a <<a_api subproject="server" text="Eliom_shared.React.S" | module Eliom_shared.React.S >>.t\\   and type 'a W.tlist = 'a <<a_api subproject="server" text="Eliom_shared.ReactiveData.RList" | module Eliom_shared.ReactiveData.RList >>.t\\   and type event_handler = (Dom_html.event Js.t -> unit) Eliom_client_value.t\\   and type mouse_event_handler =\\    (Dom_html.mouseEvent Js.t -> unit) Eliom_client_value.t\\   and type keyboard_event_handler =\\    (Dom_html.keyboardEvent Js.t -> unit) Eliom_client_value.t\\   and type touch_event_handler =\\    (Dom_html.touchEvent Js.t -> unit) Eliom_client_value.t>>>>
+----
diff --git a/doc/10.x/api/server/Eliom_content.wiki b/doc/11.x/api/server/Eliom_content.wiki
similarity index 82%
rename from doc/10.x/api/server/Eliom_content.wiki
rename to doc/11.x/api/server/Eliom_content.wiki
index 22a792306a..032f1c7f2c 100644
--- a/doc/10.x/api/server/Eliom_content.wiki
+++ b/doc/11.x/api/server/Eliom_content.wiki
@@ -77,7 +77,7 @@
    to learn how to generate ~H~T~M~L~. **
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Xml" | module Eliom_content.Xml >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="server" text=".." | module Eliom_content.Xml >><<span class="ocsforge_color_keyword"|end>>>><<div class="odocwiki_info"|~Low~-level ~X~M~L manipulation~.
 >>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Xml_shared" | module Eliom_content.Xml_shared >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Xml_sigs.T>>>><<span class="odocwiki_type"| \\    with type 'a W.t = 'a <<a_api subproject="server" text="Eliom_shared.React.S" | module Eliom_shared.React.S >>.t\\     and type 'a W.tlist = 'a <<a_api subproject="server" text="Eliom_shared.ReactiveData.RList" | module Eliom_shared.ReactiveData.RList >>.t\\     and type event_handler = (Dom_html.event Js.t -> unit) Eliom_client_value.t\\     and type mouse_event_handler =\\          (Dom_html.mouseEvent Js.t -> unit) Eliom_client_value.t\\     and type keyboard_event_handler =\\          (Dom_html.keyboardEvent Js.t -> unit) Eliom_client_value.t\\     and type touch_event_handler =\\          (Dom_html.touchEvent Js.t -> unit) Eliom_client_value.t>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Svg" | module Eliom_content.Svg >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="server" text=".." | module Eliom_content.Svg >><<span class="ocsforge_color_keyword"|end>>>><<div class="odocwiki_info"|~Building and pretty~-printing valid ~S~V~G tree~.
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Xml_shared" | module Eliom_content.Xml_shared >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Xml_sigs.T>>>><<span class="odocwiki_type"| \\  with type 'a W.t = 'a <<a_api subproject="server" text="Eliom_shared.React.S" | module Eliom_shared.React.S >>.t\\   and type 'a W.tlist = 'a <<a_api subproject="server" text="Eliom_shared.ReactiveData.RList" | module Eliom_shared.ReactiveData.RList >>.t\\   and type event_handler = (Dom_html.event Js.t -> unit) Eliom_client_value.t\\   and type mouse_event_handler =\\    (Dom_html.mouseEvent Js.t -> unit) Eliom_client_value.t\\   and type keyboard_event_handler =\\    (Dom_html.keyboardEvent Js.t -> unit) Eliom_client_value.t\\   and type touch_event_handler =\\    (Dom_html.touchEvent Js.t -> unit) Eliom_client_value.t>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Svg" | module Eliom_content.Svg >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="server" text=".." | module Eliom_content.Svg >><<span class="ocsforge_color_keyword"|end>>>><<div class="odocwiki_info"|~Building and pretty~-printing valid ~S~V~G tree~.
 >>
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Html" | module Eliom_content.Html >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="server" text=".." | module Eliom_content.Html >><<span class="ocsforge_color_keyword"|end>>>><<div class="odocwiki_info"|~Building and printing valid ~H~T~M~L~5 tree~.
 >>
diff --git a/doc/10.x/api/server/Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki b/doc/11.x/api/server/Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki
similarity index 94%
rename from doc/10.x/api/server/Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki
rename to doc/11.x/api/server/Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki
index 282b9c07ef..8a48226442 100644
--- a/doc/10.x/api/server/Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki
+++ b/doc/11.x/api/server/Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki
@@ -1,5 +1,5 @@
 =Module <<a_api_type subproject="server" | module Eliom_content_sigs.LINKS_AND_FORMS.Form >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Form>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_form_sigs.S" | module Eliom_form_sigs.S >>>><<span class="odocwiki_type"| \\      with type +'a elt := 'a elt\\       and type +'a attrib := 'a attrib\\       and type uri := uri\\       and type 'a param = 'a form_param>>>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Form>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_form_sigs.S" | module Eliom_form_sigs.S >>>><<span class="odocwiki_type"| \\    with type +'a elt := 'a elt\\     and type +'a attrib := 'a attrib\\     and type uri := uri\\     and type 'a param = 'a form_param>>>>
 ----
 <<pre class="ocsforge_color odocwiki_code" id="TYPEparam"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|param>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEelt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|+'a>> <<span class="odocwiki_name"|elt>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEattrib"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|+'a>> <<span class="odocwiki_name"|attrib>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEuri"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|uri>>>><<pre id="VALfloat" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|float>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|float <<a_api subproject="server" text="param" | type Eliom_form_sigs.S.param >>>>>><<pre id="VALint" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|int>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|int <<a_api subproject="server" text="param" | type Eliom_form_sigs.S.param >>>>>><<pre id="VALint32" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|int~3~2>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|int32 <<a_api subproject="server" text="param" | type Eliom_form_sigs.S.param >>>>>><<pre id="VALint64" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|int~6~4>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|int64 <<a_api subproject="server" text="param" | type Eliom_form_sigs.S.param >>>>>><<pre id="VALnativeint" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|nativeint>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|nativeint <<a_api subproject="server" text="param" | type Eliom_form_sigs.S.param >>>>>><<pre id="VALbool" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|bool>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|bool <<a_api subproject="server" text="param" | type Eliom_form_sigs.S.param >>>>>><<pre id="VALstring" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|string>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|string <<a_api subproject="server" text="param" | type Eliom_form_sigs.S.param >>>>>><<pre id="VALuser" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|user>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >>'a <<span class="ocsforge_color_delimiter"| -> >> string<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >> 'a <<a_api subproject="server" text="param" | type Eliom_form_sigs.S.param >>>>>><<pre id="VALmake_post_uri_components" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|make~_post~_uri~_components>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?absolute: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?absolute_path: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?https: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| service: >><<span class="ocsforge_color_delimiter"| ( >>'get, 'post, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|post>>, 'a, 'b, 'c, 'd,\\           [< `WithSuffix | `WithoutSuffix ], 'e, 'f, 'g<<span class="ocsforge_color_delimiter"| ) >>\\          <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?hostname: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?port: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?fragment: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?keep_nl_params: >>[ `All | `None | `Persistent ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?nl_params: >><<span class="ocsforge_color_uid"|Eliom_parameter>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|nl_params_set>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?keep_get_na_params: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  'get <<span class="ocsforge_color_delimiter"| -> >>\\  'post <<span class="ocsforge_color_delimiter"| -> >>\\  string * <<span class="ocsforge_color_delimiter"| ( >>string * <<span class="ocsforge_color_uid"|Eliommod_parameters>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|param>><<span class="ocsforge_color_delimiter"| ) >> list * string option *\\  <<span class="ocsforge_color_delimiter"| ( >>string * <<span class="ocsforge_color_uid"|Eliommod_parameters>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|param>><<span class="ocsforge_color_delimiter"| ) >> list>>>><<div class="odocwiki_info"|~Same as <<span class="odocwiki_inlinecode"|~L~I~N~K~.make~_uri~_components>>~, but also returns a list of
       post parameters~.
@@ -79,7 +79,7 @@
 >>
 <<pre id="VALtextarea" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|textarea>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?a: >>[< <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|textarea_attrib>> ] <<a_api subproject="server" text="attrib" | type Eliom_form_sigs.S.attrib >> list <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| name: >>[< string <<span class="ocsforge_color_uid"|Eliom_parameter>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|setoneradio>> ]\\       <<span class="ocsforge_color_uid"|Eliom_parameter>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|param_name>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?value: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  unit <<span class="ocsforge_color_delimiter"| -> >> [> <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|textarea>> ] <<a_api subproject="server" text="elt" | type Eliom_form_sigs.S.elt >>>>>><<div class="odocwiki_info"|~Creates a <<span class="odocwiki_inlinecode"|~<textarea~>>> tag
 >>
-<<pre class="ocsforge_color odocwiki_code" id="TYPEsoption"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|soption>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|option_attrib>> <<a_api subproject="server" text="attrib" | type Eliom_form_sigs.S.attrib >> list * 'a *\\  <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|pcdata>> <<a_api subproject="server" text="elt" | type Eliom_form_sigs.S.elt >> option * bool>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEselect_opt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|select~_opt>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Optgroup>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    [ `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 ] <<a_api subproject="server" text="attrib" | type Eliom_form_sigs.S.attrib >> list * string\\       * 'a <<a_api subproject="server" text="soption" | type Eliom_form_sigs.S.soption >>\\       * 'a <<a_api subproject="server" text="soption" | type Eliom_form_sigs.S.soption >> list>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Option>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|'a <<a_api subproject="server" text="soption" | type Eliom_form_sigs.S.soption >>>>>>>>>>>><<div class="odocwiki_info"|~The type for <<span class="odocwiki_inlinecode"|~<select~>>> options and groups of options~.
+<<pre class="ocsforge_color odocwiki_code" id="TYPEsoption"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|soption>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|option_attrib>> <<a_api subproject="server" text="attrib" | type Eliom_form_sigs.S.attrib >> list * 'a *\\  <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|pcdata>> <<a_api subproject="server" text="elt" | type Eliom_form_sigs.S.elt >> option * bool>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEselect_opt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|select~_opt>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Optgroup>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    [ `Accesskey\\    | `Aria\\    | `Class\\    | `Contenteditable\\    | `Contextmenu\\    | `Dir\\    | `Disabled\\    | `Draggable\\    | `Hidden\\    | `Id\\    | `Lang\\    | `OnAbort\\    | `OnBlur\\    | `OnCanPlay\\    | `OnCanPlayThrough\\    | `OnChange\\    | `OnClick\\    | `OnClose\\    | `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 ] <<a_api subproject="server" text="attrib" | type Eliom_form_sigs.S.attrib >> list * string\\       * 'a <<a_api subproject="server" text="soption" | type Eliom_form_sigs.S.soption >>\\       * 'a <<a_api subproject="server" text="soption" | type Eliom_form_sigs.S.soption >> list>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Option>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|'a <<a_api subproject="server" text="soption" | type Eliom_form_sigs.S.soption >>>>>>>>>>>><<div class="odocwiki_info"|~The type for <<span class="odocwiki_inlinecode"|~<select~>>> options and groups of options~.
 
 
 * ~The field of type ~'a in <<span class="odocwiki_inlinecode"|soption>> is the value that will be
diff --git a/doc/10.x/api/server/Eliom_content_sigs.LINKS_AND_FORMS.wiki b/doc/11.x/api/server/Eliom_content_sigs.LINKS_AND_FORMS.wiki
similarity index 94%
rename from doc/10.x/api/server/Eliom_content_sigs.LINKS_AND_FORMS.wiki
rename to doc/11.x/api/server/Eliom_content_sigs.LINKS_AND_FORMS.wiki
index 855d3fb0c1..6d7ae2eb24 100644
--- a/doc/10.x/api/server/Eliom_content_sigs.LINKS_AND_FORMS.wiki
+++ b/doc/11.x/api/server/Eliom_content_sigs.LINKS_AND_FORMS.wiki
@@ -2,4 +2,4 @@
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module type>> <<span class="ocsforge_color_uid"|LINKS_AND_FORMS>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="server" text=".." | module type Eliom_content_sigs.LINKS_AND_FORMS >><<span class="ocsforge_color_keyword"|end>>>>
 ----
 <<pre class="ocsforge_color odocwiki_code" id="TYPEelt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|+'a>> <<span class="odocwiki_name"|elt>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEattrib"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|+'a>> <<span class="odocwiki_name"|attrib>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEuri"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|uri>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEstar"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >>'_, '_, '_<<span class="ocsforge_color_delimiter"| ) >>>> <<span class="odocwiki_name"|star>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEform_param"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|form~_param>>>><<pre class="ocsforge_color odocwiki_code" id="TYPElazy_star"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >>'a, 'b, 'c<<span class="ocsforge_color_delimiter"| ) >>>> <<span class="odocwiki_name"|lazy~_star>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?a: >>'a <<a_api subproject="server" text="attrib" | type Eliom_content_sigs.LINKS_AND_FORMS.attrib >> list <<span class="ocsforge_color_delimiter"| -> >>\\  'b <<a_api subproject="server" text="elt" | type Eliom_content_sigs.LINKS_AND_FORMS.elt >> list <<span class="ocsforge_color_uid"|Eliom_lazy>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|request>> <<span class="ocsforge_color_delimiter"| -> >>\\  'c <<a_api subproject="server" text="elt" | type Eliom_content_sigs.LINKS_AND_FORMS.elt >>>> >><<pre id="VALlazy_form" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|lazy~_form>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_delimiter"| ( >>[< <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|form_attrib>> ], [< <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|form_content_fun>> ],\\   [> <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|form>> ]<<span class="ocsforge_color_delimiter"| ) >>\\  <<a_api subproject="server" text="lazy_star" | type Eliom_content_sigs.LINKS_AND_FORMS.lazy_star >>>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="server" | module type Eliom_form_sigs.LINKS >>>>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Form" | module Eliom_content_sigs.LINKS_AND_FORMS.Form >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_form_sigs.S" | module Eliom_form_sigs.S >>>><<span class="odocwiki_type"| \\      with type +'a elt := 'a elt\\       and type +'a attrib := 'a attrib\\       and type uri := uri\\       and type 'a param = 'a form_param>>>>
\ No newline at end of file
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Form" | module Eliom_content_sigs.LINKS_AND_FORMS.Form >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_form_sigs.S" | module Eliom_form_sigs.S >>>><<span class="odocwiki_type"| \\    with type +'a elt := 'a elt\\     and type +'a attrib := 'a attrib\\     and type uri := uri\\     and type 'a param = 'a form_param>>>>
\ No newline at end of file
diff --git a/doc/10.x/api/server/Eliom_content_sigs.wiki b/doc/11.x/api/server/Eliom_content_sigs.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_content_sigs.wiki
rename to doc/11.x/api/server/Eliom_content_sigs.wiki
diff --git a/doc/10.x/api/server/Eliom_cscache.wiki b/doc/11.x/api/server/Eliom_cscache.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_cscache.wiki
rename to doc/11.x/api/server/Eliom_cscache.wiki
diff --git a/doc/10.x/api/server/Eliom_extension.wiki b/doc/11.x/api/server/Eliom_extension.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_extension.wiki
rename to doc/11.x/api/server/Eliom_extension.wiki
diff --git a/doc/10.x/api/server/Eliom_form_sigs.LINKS.wiki b/doc/11.x/api/server/Eliom_form_sigs.LINKS.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_form_sigs.LINKS.wiki
rename to doc/11.x/api/server/Eliom_form_sigs.LINKS.wiki
diff --git a/doc/10.x/api/server/Eliom_form_sigs.S.wiki b/doc/11.x/api/server/Eliom_form_sigs.S.wiki
similarity index 95%
rename from doc/10.x/api/server/Eliom_form_sigs.S.wiki
rename to doc/11.x/api/server/Eliom_form_sigs.S.wiki
index eef302bbba..d4d32a555b 100644
--- a/doc/10.x/api/server/Eliom_form_sigs.S.wiki
+++ b/doc/11.x/api/server/Eliom_form_sigs.S.wiki
@@ -79,7 +79,7 @@
 >>
 <<pre id="VALtextarea" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|textarea>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?a: >>[< <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|textarea_attrib>> ] <<a_api subproject="server" text="attrib" | type Eliom_form_sigs.S.attrib >> list <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| name: >>[< string <<span class="ocsforge_color_uid"|Eliom_parameter>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|setoneradio>> ]\\       <<span class="ocsforge_color_uid"|Eliom_parameter>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|param_name>> <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?value: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  unit <<span class="ocsforge_color_delimiter"| -> >> [> <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|textarea>> ] <<a_api subproject="server" text="elt" | type Eliom_form_sigs.S.elt >>>>>><<div class="odocwiki_info"|~Creates a <<span class="odocwiki_inlinecode"|~<textarea~>>> tag
 >>
-<<pre class="ocsforge_color odocwiki_code" id="TYPEsoption"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|soption>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|option_attrib>> <<a_api subproject="server" text="attrib" | type Eliom_form_sigs.S.attrib >> list * 'a *\\  <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|pcdata>> <<a_api subproject="server" text="elt" | type Eliom_form_sigs.S.elt >> option * bool>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEselect_opt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|select~_opt>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Optgroup>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    [ `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 ] <<a_api subproject="server" text="attrib" | type Eliom_form_sigs.S.attrib >> list * string\\       * 'a <<a_api subproject="server" text="soption" | type Eliom_form_sigs.S.soption >>\\       * 'a <<a_api subproject="server" text="soption" | type Eliom_form_sigs.S.soption >> list>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Option>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|'a <<a_api subproject="server" text="soption" | type Eliom_form_sigs.S.soption >>>>>>>>>>>><<div class="odocwiki_info"|~The type for <<span class="odocwiki_inlinecode"|~<select~>>> options and groups of options~.
+<<pre class="ocsforge_color odocwiki_code" id="TYPEsoption"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|soption>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|option_attrib>> <<a_api subproject="server" text="attrib" | type Eliom_form_sigs.S.attrib >> list * 'a *\\  <<span class="ocsforge_color_uid"|Html_types>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|pcdata>> <<a_api subproject="server" text="elt" | type Eliom_form_sigs.S.elt >> option * bool>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEselect_opt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|select~_opt>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Optgroup>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    [ `Accesskey\\    | `Aria\\    | `Class\\    | `Contenteditable\\    | `Contextmenu\\    | `Dir\\    | `Disabled\\    | `Draggable\\    | `Hidden\\    | `Id\\    | `Lang\\    | `OnAbort\\    | `OnBlur\\    | `OnCanPlay\\    | `OnCanPlayThrough\\    | `OnChange\\    | `OnClick\\    | `OnClose\\    | `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 ] <<a_api subproject="server" text="attrib" | type Eliom_form_sigs.S.attrib >> list * string\\       * 'a <<a_api subproject="server" text="soption" | type Eliom_form_sigs.S.soption >>\\       * 'a <<a_api subproject="server" text="soption" | type Eliom_form_sigs.S.soption >> list>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Option>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|'a <<a_api subproject="server" text="soption" | type Eliom_form_sigs.S.soption >>>>>>>>>>>><<div class="odocwiki_info"|~The type for <<span class="odocwiki_inlinecode"|~<select~>>> options and groups of options~.
 
 
 * ~The field of type ~'a in <<span class="odocwiki_inlinecode"|soption>> is the value that will be
diff --git a/doc/10.x/api/server/Eliom_form_sigs.wiki b/doc/11.x/api/server/Eliom_form_sigs.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_form_sigs.wiki
rename to doc/11.x/api/server/Eliom_form_sigs.wiki
diff --git a/doc/10.x/api/server/Eliom_lib.Lwt_log.wiki b/doc/11.x/api/server/Eliom_lib.Lwt_log.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_lib.Lwt_log.wiki
rename to doc/11.x/api/server/Eliom_lib.Lwt_log.wiki
diff --git a/doc/10.x/api/server/Eliom_lib.wiki b/doc/11.x/api/server/Eliom_lib.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_lib.wiki
rename to doc/11.x/api/server/Eliom_lib.wiki
diff --git a/doc/10.x/api/server/Eliom_mkreg.Make.wiki b/doc/11.x/api/server/Eliom_mkreg.Make.wiki
similarity index 99%
rename from doc/10.x/api/server/Eliom_mkreg.Make.wiki
rename to doc/11.x/api/server/Eliom_mkreg.Make.wiki
index 9195fdb4d5..068921fd9b 100644
--- a/doc/10.x/api/server/Eliom_mkreg.Make.wiki
+++ b/doc/11.x/api/server/Eliom_mkreg.Make.wiki
@@ -1,5 +1,5 @@
 =Functor <<a_api_type subproject="server" | module Eliom_mkreg.Make >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Make>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>Pages <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.PARAM" | module Eliom_registration_sigs.PARAM >>>><<span class="odocwiki_type"|     with type frame := Ocsigen_response.t>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\    with type page = Pages.page\\     and type options = Pages.options\\     and type result = Pages.result>>>>>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Make>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>Pages <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.PARAM" | module Eliom_registration_sigs.PARAM >>>><<span class="odocwiki_type"|     with type frame := Ocsigen_response.t>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\  with type page = Pages.page\\   and type options = Pages.options\\   and type result = Pages.result>>>>>>
 ==@@id="2_Createsmodulestoregisterservicesforonetypeofpages"@@~Creates modules to register services for one type of pages==
 
 <<div class="odocwiki_module_param_list" | <<span class="odocwiki_param_title" |Parameters :>><<div|
diff --git a/doc/10.x/api/server/Eliom_mkreg.Make_poly.wiki b/doc/11.x/api/server/Eliom_mkreg.Make_poly.wiki
similarity index 96%
rename from doc/10.x/api/server/Eliom_mkreg.Make_poly.wiki
rename to doc/11.x/api/server/Eliom_mkreg.Make_poly.wiki
index bb67fdc7fb..c0843c4dfa 100644
--- a/doc/10.x/api/server/Eliom_mkreg.Make_poly.wiki
+++ b/doc/11.x/api/server/Eliom_mkreg.Make_poly.wiki
@@ -1,10 +1,10 @@
 =Functor <<a_api_type subproject="server" | module Eliom_mkreg.Make_poly >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Make_poly>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>Pages <<span class="ocsforge_color_delimiter"|~:>> \\      <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.PARAM_POLY" | module Eliom_registration_sigs.PARAM_POLY >>>><<span class="odocwiki_type"|    \\                     with type frame := Ocsigen_response.t>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_poly_with_create" | module Eliom_registration_sigs.S_poly_with_create >>>><<span class="odocwiki_type"| \\    with type 'a page = 'a Pages.page\\     and type options = Pages.options\\     and type 'a return = 'a Pages.return>>>>>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Make_poly>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>Pages <<span class="ocsforge_color_delimiter"|~:>> \\      <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.PARAM_POLY" | module Eliom_registration_sigs.PARAM_POLY >>>><<span class="odocwiki_type"|    \\                   with type frame := Ocsigen_response.t>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_poly_with_create" | module Eliom_registration_sigs.S_poly_with_create >>>><<span class="odocwiki_type"| \\  with type 'a page = 'a Pages.page\\   and type options = Pages.options\\   and type 'a return = 'a Pages.return>>>>>>
 ==@@id="2_Creatingmodulestoregisterservicesforonetypeofparametrisedpages"@@~Creating modules to register services for one type of
     parametrised pages==
 
 <<div class="odocwiki_module_param_list" | <<span class="odocwiki_param_title" |Parameters :>><<div|
-|@@class="odocwiki_paramstable"@ @class="centertop fifteen code"@@{{{Pages}}}|@@class="centertop"@@:|<<span class="odocwiki_type"|\\Eliom_registration_sigs.PARAM_POLY\\               with type frame := Ocsigen_response.t>>|
+|@@class="odocwiki_paramstable"@ @class="centertop fifteen code"@@{{{Pages}}}|@@class="centertop"@@:|<<span class="odocwiki_type"|\\Eliom_registration_sigs.PARAM_POLY\\             with type frame := Ocsigen_response.t>>|
 >>>>
 
 ----
diff --git a/doc/10.x/api/server/Eliom_mkreg.wiki b/doc/11.x/api/server/Eliom_mkreg.wiki
similarity index 71%
rename from doc/10.x/api/server/Eliom_mkreg.wiki
rename to doc/11.x/api/server/Eliom_mkreg.wiki
index 809da88973..b481634fc9 100644
--- a/doc/10.x/api/server/Eliom_mkreg.wiki
+++ b/doc/11.x/api/server/Eliom_mkreg.wiki
@@ -4,8 +4,8 @@
     pages~.  ~It is used for example in <<a_api subproject="server" | module Eliom_registration >>~.
 
 ----
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Make" | module Eliom_mkreg.Make >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>Pages <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.PARAM" | module Eliom_registration_sigs.PARAM >>>><<span class="odocwiki_type"|     with type frame := Ocsigen_response.t>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\    with type page = Pages.page\\     and type options = Pages.options\\     and type result = Pages.result>>>>>><<div class="odocwiki_info"|~Creates modules to register services for one type of pages
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Make" | module Eliom_mkreg.Make >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>Pages <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.PARAM" | module Eliom_registration_sigs.PARAM >>>><<span class="odocwiki_type"|     with type frame := Ocsigen_response.t>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\  with type page = Pages.page\\   and type options = Pages.options\\   and type result = Pages.result>>>>>><<div class="odocwiki_info"|~Creates modules to register services for one type of pages
 >>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Make_poly" | module Eliom_mkreg.Make_poly >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>Pages <<span class="ocsforge_color_delimiter"|~:>> \\      <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.PARAM_POLY" | module Eliom_registration_sigs.PARAM_POLY >>>><<span class="odocwiki_type"|    \\                     with type frame := Ocsigen_response.t>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_poly_with_create" | module Eliom_registration_sigs.S_poly_with_create >>>><<span class="odocwiki_type"| \\    with type 'a page = 'a Pages.page\\     and type options = Pages.options\\     and type 'a return = 'a Pages.return>>>>>><<div class="odocwiki_info"|~Creating modules to register services for one type of
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Make_poly" | module Eliom_mkreg.Make_poly >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>Pages <<span class="ocsforge_color_delimiter"|~:>> \\      <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.PARAM_POLY" | module Eliom_registration_sigs.PARAM_POLY >>>><<span class="odocwiki_type"|    \\                   with type frame := Ocsigen_response.t>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_poly_with_create" | module Eliom_registration_sigs.S_poly_with_create >>>><<span class="odocwiki_type"| \\  with type 'a page = 'a Pages.page\\   and type options = Pages.options\\   and type 'a return = 'a Pages.return>>>>>><<div class="odocwiki_info"|~Creating modules to register services for one type of
     parametrised pages
 >>
diff --git a/doc/10.x/api/server/Eliom_notif.ARG.wiki b/doc/11.x/api/server/Eliom_notif.ARG.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_notif.ARG.wiki
rename to doc/11.x/api/server/Eliom_notif.ARG.wiki
diff --git a/doc/10.x/api/server/Eliom_notif.ARG_SIMPLE.wiki b/doc/11.x/api/server/Eliom_notif.ARG_SIMPLE.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_notif.ARG_SIMPLE.wiki
rename to doc/11.x/api/server/Eliom_notif.ARG_SIMPLE.wiki
diff --git a/doc/10.x/api/server/Eliom_notif.Make.wiki b/doc/11.x/api/server/Eliom_notif.Make.wiki
similarity index 97%
rename from doc/10.x/api/server/Eliom_notif.Make.wiki
rename to doc/11.x/api/server/Eliom_notif.Make.wiki
index 7c5c29dba7..378e7924f5 100644
--- a/doc/10.x/api/server/Eliom_notif.Make.wiki
+++ b/doc/11.x/api/server/Eliom_notif.Make.wiki
@@ -1,5 +1,5 @@
 =Functor <<a_api_type subproject="server" | module Eliom_notif.Make >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Make>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>A <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="ARG" | module Eliom_notif.ARG >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="S" | module Eliom_notif.S >>>><<span class="odocwiki_type"| \\    with type identity = A.identity\\     and type key = A.key\\     and type server_notif = A.server_notif\\     and type client_notif = A.client_notif>>>>>>~Use this functor if you need to customise your notifications with
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Make>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>A <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="ARG" | module Eliom_notif.ARG >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="S" | module Eliom_notif.S >>>><<span class="odocwiki_type"| \\  with type identity = A.identity\\   and type key = A.key\\   and type server_notif = A.server_notif\\   and type client_notif = A.client_notif>>>>>>~Use this functor if you need to customise your notifications with
     client~-specific data ~(or block notifications for specific clients~)~.
     ~This is made to work specifically in a multi~-server set~-up as well~, where
     ~In a multi~-server set~-up notifications might need to be serialised twice~,
diff --git a/doc/10.x/api/server/Eliom_notif.Make_Simple.wiki b/doc/11.x/api/server/Eliom_notif.Make_Simple.wiki
similarity index 97%
rename from doc/10.x/api/server/Eliom_notif.Make_Simple.wiki
rename to doc/11.x/api/server/Eliom_notif.Make_Simple.wiki
index 8603733dba..5ccb2ef8fe 100644
--- a/doc/10.x/api/server/Eliom_notif.Make_Simple.wiki
+++ b/doc/11.x/api/server/Eliom_notif.Make_Simple.wiki
@@ -1,5 +1,5 @@
 =Functor <<a_api_type subproject="server" | module Eliom_notif.Make_Simple >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Make_Simple>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>A <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="ARG_SIMPLE" | module Eliom_notif.ARG_SIMPLE >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="S" | module Eliom_notif.S >>>><<span class="odocwiki_type"| \\    with type key = A.key\\     and type server_notif = A.notification\\     and type client_notif = A.notification>>>>>>~Use this functor if you have no need of customising your notifications with
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Make_Simple>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>A <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="ARG_SIMPLE" | module Eliom_notif.ARG_SIMPLE >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="S" | module Eliom_notif.S >>>><<span class="odocwiki_type"| \\  with type key = A.key\\   and type server_notif = A.notification\\   and type client_notif = A.notification>>>>>>~Use this functor if you have no need of customising your notifications with
     client~-specific data~.
 <<div class="odocwiki_module_param_list" | <<span class="odocwiki_param_title" |Parameters :>><<div|
 |@@class="odocwiki_paramstable"@ @class="centertop fifteen code"@@{{{A}}}|@@class="centertop"@@:|<<span class="odocwiki_type"|Eliom_notif.ARG_SIMPLE>>|
diff --git a/doc/10.x/api/server/Eliom_notif.S.Ext.wiki b/doc/11.x/api/server/Eliom_notif.S.Ext.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_notif.S.Ext.wiki
rename to doc/11.x/api/server/Eliom_notif.S.Ext.wiki
diff --git a/doc/10.x/api/server/Eliom_notif.S.wiki b/doc/11.x/api/server/Eliom_notif.S.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_notif.S.wiki
rename to doc/11.x/api/server/Eliom_notif.S.wiki
diff --git a/doc/10.x/api/server/Eliom_notif.wiki b/doc/11.x/api/server/Eliom_notif.wiki
similarity index 89%
rename from doc/10.x/api/server/Eliom_notif.wiki
rename to doc/11.x/api/server/Eliom_notif.wiki
index d677da223c..b7ade2367b 100644
--- a/doc/10.x/api/server/Eliom_notif.wiki
+++ b/doc/11.x/api/server/Eliom_notif.wiki
@@ -30,11 +30,11 @@
 >>
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module type>> <<a_api subproject="server" text="ARG" | module type Eliom_notif.ARG >> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="server" text=".." | module type Eliom_notif.ARG >><<span class="ocsforge_color_keyword"|end>>>><<div class="odocwiki_info"|<<span class="odocwiki_inlinecode"|~A~R~G>> is for making <<span class="odocwiki_inlinecode"|~Make>>
 >>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Make" | module Eliom_notif.Make >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>A <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="ARG" | module Eliom_notif.ARG >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="S" | module Eliom_notif.S >>>><<span class="odocwiki_type"| \\    with type identity = A.identity\\     and type key = A.key\\     and type server_notif = A.server_notif\\     and type client_notif = A.client_notif>>>>>><<div class="odocwiki_info"|~Use this functor if you need to customise your notifications with
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Make" | module Eliom_notif.Make >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>A <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="ARG" | module Eliom_notif.ARG >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="S" | module Eliom_notif.S >>>><<span class="odocwiki_type"| \\  with type identity = A.identity\\   and type key = A.key\\   and type server_notif = A.server_notif\\   and type client_notif = A.client_notif>>>>>><<div class="odocwiki_info"|~Use this functor if you need to customise your notifications with
     client~-specific data ~(or block notifications for specific clients~)~.
 >>
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module type>> <<a_api subproject="server" text="ARG_SIMPLE" | module type Eliom_notif.ARG_SIMPLE >> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="server" text=".." | module type Eliom_notif.ARG_SIMPLE >><<span class="ocsforge_color_keyword"|end>>>><<div class="odocwiki_info"|<<span class="odocwiki_inlinecode"|~A~R~G~_~S~I~M~P~L~E>> is for making <<a_api subproject="server" | module Eliom_notif.Make_Simple >>
 >>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Make_Simple" | module Eliom_notif.Make_Simple >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>A <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="ARG_SIMPLE" | module Eliom_notif.ARG_SIMPLE >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="S" | module Eliom_notif.S >>>><<span class="odocwiki_type"| \\    with type key = A.key\\     and type server_notif = A.notification\\     and type client_notif = A.notification>>>>>><<div class="odocwiki_info"|~Use this functor if you have no need of customising your notifications with
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Make_Simple" | module Eliom_notif.Make_Simple >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>A <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="ARG_SIMPLE" | module Eliom_notif.ARG_SIMPLE >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="S" | module Eliom_notif.S >>>><<span class="odocwiki_type"| \\  with type key = A.key\\   and type server_notif = A.notification\\   and type client_notif = A.notification>>>>>><<div class="odocwiki_info"|~Use this functor if you have no need of customising your notifications with
     client~-specific data~.
 >>
diff --git a/doc/10.x/api/server/Eliom_parameter.wiki b/doc/11.x/api/server/Eliom_parameter.wiki
similarity index 79%
rename from doc/10.x/api/server/Eliom_parameter.wiki
rename to doc/11.x/api/server/Eliom_parameter.wiki
index b2e64f6a57..32b53eea4e 100644
--- a/doc/10.x/api/server/Eliom_parameter.wiki
+++ b/doc/11.x/api/server/Eliom_parameter.wiki
@@ -22,15 +22,15 @@
     parameter is not correct~, and the error handler will be called
     instead of the service handler~.
 >>
-<<pre id="VALregexp" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|regexp>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_uid"|Pcre>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|regexp>> <<span class="ocsforge_color_delimiter"| -> >>\\  string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| to_string: >><<span class="ocsforge_color_delimiter"| ( >>string <<span class="ocsforge_color_delimiter"| -> >> string<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>string, [ `WithoutSuffix ], [ `One of string ] param_name<<span class="ocsforge_color_delimiter"| ) >>\\  params_type>>>><<div class="odocwiki_info"|<<span class="odocwiki_inlinecode"|regexp r d s>> tells that the service takes a string that matches
+<<pre id="VALregexp" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|regexp>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_uid"|Re>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Pcre>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|regexp>> <<span class="ocsforge_color_delimiter"| -> >>\\  string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| to_string: >><<span class="ocsforge_color_delimiter"| ( >>string <<span class="ocsforge_color_delimiter"| -> >> string<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>string, [ `WithoutSuffix ], [ `One of string ] param_name<<span class="ocsforge_color_delimiter"| ) >>\\  params_type>>>><<div class="odocwiki_info"|<<span class="odocwiki_inlinecode"|regexp r d s>> tells that the service takes a string that matches
     the regular expression <<span class="odocwiki_inlinecode"|r>> as parameter~, labeled <<span class="odocwiki_inlinecode"|s>>~, and that will
     be rewritten in d~.  ~The syntax of regexp is ~P~C~R~E~'s one ~(uses then
     <<span class="odocwiki_inlinecode"|~Pcre>> bindings~)~.  ~For example~: <<span class="odocwiki_inlinecode"|regexp
-    ~(~Pcre~.regexp "~\~[~(~.~* ~)~\~]"~) "~(~$~1~)" "myparam">> will match
+    ~(~Re~.~Pcre~.regexp "~\~[~(~.~* ~)~\~]"~) "~(~$~1~)" "myparam">> will match
     the parameter <<span class="odocwiki_inlinecode"|myparam~=~[hello~]>> and send the string <<span class="odocwiki_inlinecode"|"~(hello~)">> to
     the service handler~.
 >>
-<<pre id="VALall_suffix_regexp" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|all~_suffix~_regexp>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_uid"|Pcre>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|regexp>> <<span class="ocsforge_color_delimiter"| -> >>\\  string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| to_string: >><<span class="ocsforge_color_delimiter"| ( >>string <<span class="ocsforge_color_delimiter"| -> >> string<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>string, [ `Endsuffix ], [ `One of string ] param_name<<span class="ocsforge_color_delimiter"| ) >> params_type>>>><<div class="odocwiki_info"|<<span class="odocwiki_inlinecode"|all~_suffix~_regexp r d s>> takes all the suffix~, as long as
+<<pre id="VALall_suffix_regexp" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|all~_suffix~_regexp>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_uid"|Re>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Pcre>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|regexp>> <<span class="ocsforge_color_delimiter"| -> >>\\  string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| to_string: >><<span class="ocsforge_color_delimiter"| ( >>string <<span class="ocsforge_color_delimiter"| -> >> string<<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>string, [ `Endsuffix ], [ `One of string ] param_name<<span class="ocsforge_color_delimiter"| ) >> params_type>>>><<div class="odocwiki_info"|<<span class="odocwiki_inlinecode"|all~_suffix~_regexp r d s>> takes all the suffix~, as long as
     possible~, matching the regular expression <<span class="odocwiki_inlinecode"|r>>~, name <<span class="odocwiki_inlinecode"|s>>~, and
     rewrite it in <<span class="odocwiki_inlinecode"|d>>~.
 >>
diff --git a/doc/10.x/api/server/Eliom_parameter_sigs.S.wiki b/doc/11.x/api/server/Eliom_parameter_sigs.S.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_parameter_sigs.S.wiki
rename to doc/11.x/api/server/Eliom_parameter_sigs.S.wiki
diff --git a/doc/10.x/api/server/Eliom_parameter_sigs.wiki b/doc/11.x/api/server/Eliom_parameter_sigs.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_parameter_sigs.wiki
rename to doc/11.x/api/server/Eliom_parameter_sigs.wiki
diff --git a/doc/10.x/api/server/Eliom_react.Down.wiki b/doc/11.x/api/server/Eliom_react.Down.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_react.Down.wiki
rename to doc/11.x/api/server/Eliom_react.Down.wiki
diff --git a/doc/10.x/api/server/Eliom_react.S.Down.wiki b/doc/11.x/api/server/Eliom_react.S.Down.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_react.S.Down.wiki
rename to doc/11.x/api/server/Eliom_react.S.Down.wiki
diff --git a/doc/10.x/api/server/Eliom_react.S.wiki b/doc/11.x/api/server/Eliom_react.S.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_react.S.wiki
rename to doc/11.x/api/server/Eliom_react.S.wiki
diff --git a/doc/10.x/api/server/Eliom_react.Up.wiki b/doc/11.x/api/server/Eliom_react.Up.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_react.Up.wiki
rename to doc/11.x/api/server/Eliom_react.Up.wiki
diff --git a/doc/10.x/api/server/Eliom_react.wiki b/doc/11.x/api/server/Eliom_react.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_react.wiki
rename to doc/11.x/api/server/Eliom_react.wiki
diff --git a/doc/10.x/api/server/Eliom_reference.Ext.wiki b/doc/11.x/api/server/Eliom_reference.Ext.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_reference.Ext.wiki
rename to doc/11.x/api/server/Eliom_reference.Ext.wiki
diff --git a/doc/10.x/api/server/Eliom_reference.Volatile.Ext.wiki b/doc/11.x/api/server/Eliom_reference.Volatile.Ext.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_reference.Volatile.Ext.wiki
rename to doc/11.x/api/server/Eliom_reference.Volatile.Ext.wiki
diff --git a/doc/10.x/api/server/Eliom_reference.Volatile.wiki b/doc/11.x/api/server/Eliom_reference.Volatile.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_reference.Volatile.wiki
rename to doc/11.x/api/server/Eliom_reference.Volatile.wiki
diff --git a/doc/10.x/api/server/Eliom_reference.wiki b/doc/11.x/api/server/Eliom_reference.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_reference.wiki
rename to doc/11.x/api/server/Eliom_reference.wiki
diff --git a/doc/10.x/api/server/Eliom_registration.APP.wiki b/doc/11.x/api/server/Eliom_registration.APP.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_registration.APP.wiki
rename to doc/11.x/api/server/Eliom_registration.APP.wiki
diff --git a/doc/10.x/api/server/Eliom_registration.Action.wiki b/doc/11.x/api/server/Eliom_registration.Action.wiki
similarity index 98%
rename from doc/10.x/api/server/Eliom_registration.Action.wiki
rename to doc/11.x/api/server/Eliom_registration.Action.wiki
index 06759d90c3..790de77b5b 100644
--- a/doc/10.x/api/server/Eliom_registration.Action.wiki
+++ b/doc/11.x/api/server/Eliom_registration.Action.wiki
@@ -1,5 +1,5 @@
 =Module <<a_api_type subproject="server" | module Eliom_registration.Action >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Action>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\    with type return = Eliom_service.non_ocaml\\     and type page = unit\\     and type options = [`Reload | `NoReload]\\     and type result = browser_content kind>>>>~Eliom service registration for services that only execute
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Action>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\  with type return = Eliom_service.non_ocaml\\   and type page = unit\\   and type options = [`Reload | `NoReload]\\   and type result = browser_content kind>>>>~Eliom service registration for services that only execute
     actions~. ~See the ~Eliom manual for more information about     <<a_manual chapter="server-outputs" fragment="actions"|Actions
     outputs>>~.
 
diff --git a/doc/10.x/api/server/Eliom_registration.Any.wiki b/doc/11.x/api/server/Eliom_registration.Any.wiki
similarity index 90%
rename from doc/10.x/api/server/Eliom_registration.Any.wiki
rename to doc/11.x/api/server/Eliom_registration.Any.wiki
index 224aa08c26..2e1bc04449 100644
--- a/doc/10.x/api/server/Eliom_registration.Any.wiki
+++ b/doc/11.x/api/server/Eliom_registration.Any.wiki
@@ -1,5 +1,5 @@
 =Module <<a_api_type subproject="server" | module Eliom_registration.Any >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Any>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_poly_with_create_with_send" | module Eliom_registration_sigs.S_poly_with_create_with_send >>>><<span class="odocwiki_type"| \\    with type 'a page = 'a kind\\     and type options = unit\\     and type 'a return = Eliom_service.non_ocaml\\     and type 'a result = 'a kind>>>>~Eliom service registration for services that choose dynamically
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Any>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_poly_with_create_with_send" | module Eliom_registration_sigs.S_poly_with_create_with_send >>>><<span class="odocwiki_type"| \\  with type 'a page = 'a kind\\   and type options = unit\\   and type 'a return = Eliom_service.non_ocaml\\   and type 'a result = 'a kind>>>>~Eliom service registration for services that choose dynamically
     what they want to send~. ~The content is created using for example
     <<span class="odocwiki_inlinecode"|~Html~.send>> or <<span class="odocwiki_inlinecode"|~String~.send>> functions~. ~See the ~Eliom manual
     for more information about <<a_manual chapter="server-outputs"
diff --git a/doc/10.x/api/server/Eliom_registration.App.wiki b/doc/11.x/api/server/Eliom_registration.App.wiki
similarity index 85%
rename from doc/10.x/api/server/Eliom_registration.App.wiki
rename to doc/11.x/api/server/Eliom_registration.App.wiki
index 9df393fbb2..ab0ee29ca5 100644
--- a/doc/10.x/api/server/Eliom_registration.App.wiki
+++ b/doc/11.x/api/server/Eliom_registration.App.wiki
@@ -1,9 +1,9 @@
 =Functor <<a_api_type subproject="server" | module Eliom_registration.App >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|App>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>App_params <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.APP_PARAM" | module Eliom_registration_sigs.APP_PARAM >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="APP" | module Eliom_registration.APP >>>><<span class="odocwiki_type"| >>>>>>~Functor for application creation~.
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|App>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>* <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<span class="odocwiki_sig_block"|>><<span class="ocsforge_color_keyword"|end>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="APP" | module Eliom_registration.APP >>>><<span class="odocwiki_type"| >>>>>>~Functor for application creation~.
     ~See <<a_manual chapter="clientserver-applications" | the chapter on applications >> 
     in the ~Eliom manual for details~.
 <<div class="odocwiki_module_param_list" | <<span class="odocwiki_param_title" |Parameters :>><<div|
-|@@class="odocwiki_paramstable"@ @class="centertop fifteen code"@@{{{App_params}}}|@@class="centertop"@@:|<<span class="odocwiki_type"|Eliom_registration_sigs.APP_PARAM>>|
+|@@class="odocwiki_paramstable"@ @class="centertop fifteen code"@@{{{*}}}|@@class="centertop"@@:|<<span class="odocwiki_type"|Eliom_registration_sigs.APP_PARAM>>|
 >>>>
 
 ----
diff --git a/doc/10.x/api/server/Eliom_registration.CssText.wiki b/doc/11.x/api/server/Eliom_registration.CssText.wiki
similarity index 98%
rename from doc/10.x/api/server/Eliom_registration.CssText.wiki
rename to doc/11.x/api/server/Eliom_registration.CssText.wiki
index 1d11d1435c..17f5a0a5a5 100644
--- a/doc/10.x/api/server/Eliom_registration.CssText.wiki
+++ b/doc/11.x/api/server/Eliom_registration.CssText.wiki
@@ -1,5 +1,5 @@
 =Module <<a_api_type subproject="server" | module Eliom_registration.CssText >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|CssText>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\    with type page = string\\     and type options = int\\     and type return = Eliom_service.non_ocaml\\     and type result = browser_content kind>>>>~Eliom service registration for services that returns ~C~S~S~. ~The page
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|CssText>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\  with type page = string\\   and type options = int\\   and type return = Eliom_service.non_ocaml\\   and type result = browser_content kind>>>>~Eliom service registration for services that returns ~C~S~S~. ~The page
     content is a <<span class="odocwiki_inlinecode"|string>> that must contains valid ~C~S~S and the content
     type is always <<span class="odocwiki_inlinecode"|text~/css>>~. ~The option is the optional
     "~Cache~-policy~: max~-age" header value to be sent~.
diff --git a/doc/10.x/api/server/Eliom_registration.Customize.wiki b/doc/11.x/api/server/Eliom_registration.Customize.wiki
similarity index 98%
rename from doc/10.x/api/server/Eliom_registration.Customize.wiki
rename to doc/11.x/api/server/Eliom_registration.Customize.wiki
index a1568d16d0..53f0db2105 100644
--- a/doc/10.x/api/server/Eliom_registration.Customize.wiki
+++ b/doc/11.x/api/server/Eliom_registration.Customize.wiki
@@ -1,10 +1,10 @@
 =Functor <<a_api_type subproject="server" | module Eliom_registration.Customize >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Customize>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>R <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>T <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<span class="odocwiki_sig_block"|<<span class="ocsforge_color odocwiki_code" id="TYPEpage"|      <<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|page>>>><<span id="VALtranslate" class="ocsforge_color odocwiki_code"|      <<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|translate>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_lid"|page>> <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|R>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|page>> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>>>><<span class="ocsforge_color_keyword"|end>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\    with type options = R.options\\     and type return = R.return\\     and type page = T.page\\     and type result = R.result>>>>>>>>~The <<span class="odocwiki_inlinecode"|~Customize>> functor allows specialization of service
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Customize>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>R <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>T <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<span class="odocwiki_sig_block"|<<span class="ocsforge_color odocwiki_code" id="TYPEpage"|      <<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|page>>>><<span id="VALtranslate" class="ocsforge_color odocwiki_code"|      <<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|translate>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_lid"|page>> <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|R>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|page>> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>>>><<span class="ocsforge_color_keyword"|end>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\  with type options = R.options\\   and type return = R.return\\   and type page = T.page\\   and type result = R.result>>>>>>>>~The <<span class="odocwiki_inlinecode"|~Customize>> functor allows specialization of service
     registration functions by customizing the page type~. ~See the     <<a_manual project="tutorial" chapter="interaction"| Eliom
     tutorial>> for example~.
 <<div class="odocwiki_module_param_list" | <<span class="odocwiki_param_title" |Parameters :>><<div|
 |@@class="odocwiki_paramstable"@ @class="centertop fifteen code"@@{{{R}}}|@@class="centertop"@@:|<<span class="odocwiki_type"|Eliom_registration_sigs.S_with_create>>|
-|@@class="centertop fifteen code"@@{{{T}}}|@@class="centertop"@@:|<<span class="odocwiki_type"|\\sig\\      type page\\\\      val translate : page -> R.page Lwt.t\\    end>>|
+|@@class="centertop fifteen code"@@{{{T}}}|@@class="centertop"@@:|<<span class="odocwiki_type"|\\sig\\       type page\\\\       val translate : page -> R.page Lwt.t\\     end>>|
 >>>>
 
 ----
diff --git a/doc/10.x/api/server/Eliom_registration.Eliom_tmpl.wiki b/doc/11.x/api/server/Eliom_registration.Eliom_tmpl.wiki
similarity index 98%
rename from doc/10.x/api/server/Eliom_registration.Eliom_tmpl.wiki
rename to doc/11.x/api/server/Eliom_registration.Eliom_tmpl.wiki
index a4fafdbaf4..f8dede1c44 100644
--- a/doc/10.x/api/server/Eliom_registration.Eliom_tmpl.wiki
+++ b/doc/11.x/api/server/Eliom_registration.Eliom_tmpl.wiki
@@ -1,5 +1,5 @@
 =Functor <<a_api_type subproject="server" | module Eliom_registration.Eliom_tmpl >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Eliom_tmpl>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>App <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="APP" | module Eliom_registration.APP >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>Tmpl_param <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="TMPL_PARAMS" | module Eliom_registration.TMPL_PARAMS >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\    with type page = Tmpl_param.t\\     and type options = appl_service_options\\     and type return = Eliom_service.non_ocaml\\     and type result = App.app_id application_content kind>>>>>>>><<div class="odocwiki_module_param_list" | <<span class="odocwiki_param_title" |Parameters :>><<div|
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Eliom_tmpl>>>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>App <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="APP" | module Eliom_registration.APP >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>Tmpl_param <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="TMPL_PARAMS" | module Eliom_registration.TMPL_PARAMS >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\  with type page = Tmpl_param.t\\   and type options = appl_service_options\\   and type return = Eliom_service.non_ocaml\\   and type result = App.app_id application_content kind>>>>>>>><<div class="odocwiki_module_param_list" | <<span class="odocwiki_param_title" |Parameters :>><<div|
 |@@class="odocwiki_paramstable"@ @class="centertop fifteen code"@@{{{App}}}|@@class="centertop"@@:|<<span class="odocwiki_type"|Eliom_registration.APP>>|
 |@@class="centertop fifteen code"@@{{{Tmpl_param}}}|@@class="centertop"@@:|<<span class="odocwiki_type"|Eliom_registration.TMPL_PARAMS>>|
 >>>>
diff --git a/doc/10.x/api/server/Eliom_registration.File.wiki b/doc/11.x/api/server/Eliom_registration.File.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_registration.File.wiki
rename to doc/11.x/api/server/Eliom_registration.File.wiki
diff --git a/doc/10.x/api/server/Eliom_registration.File_ct.wiki b/doc/11.x/api/server/Eliom_registration.File_ct.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_registration.File_ct.wiki
rename to doc/11.x/api/server/Eliom_registration.File_ct.wiki
diff --git a/doc/10.x/api/server/Eliom_registration.Flow5.wiki b/doc/11.x/api/server/Eliom_registration.Flow5.wiki
similarity index 97%
rename from doc/10.x/api/server/Eliom_registration.Flow5.wiki
rename to doc/11.x/api/server/Eliom_registration.Flow5.wiki
index 561c61b536..813e24cd27 100644
--- a/doc/10.x/api/server/Eliom_registration.Flow5.wiki
+++ b/doc/11.x/api/server/Eliom_registration.Flow5.wiki
@@ -1,5 +1,5 @@
 =Module <<a_api_type subproject="server" | module Eliom_registration.Flow5 >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Flow5>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\    with type page = Html_types.flow5 <<a_api subproject="server" text="Eliom_content.Html" | module Eliom_content.Html >>.elt list\\     and type options = unit\\     and type return = Eliom_service.non_ocaml\\     and type result = block_content kind>>>>~Eliom service registration and forms creation for fragment of ~H~T~M~L
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Flow5>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\  with type page = Html_types.flow5 <<a_api subproject="server" text="Eliom_content.Html" | module Eliom_content.Html >>.elt list\\   and type options = unit\\   and type return = Eliom_service.non_ocaml\\   and type result = block_content kind>>>>~Eliom service registration and forms creation for fragment of ~H~T~M~L
     page~.
 
 
diff --git a/doc/10.x/api/server/Eliom_registration.Html.wiki b/doc/11.x/api/server/Eliom_registration.Html.wiki
similarity index 98%
rename from doc/10.x/api/server/Eliom_registration.Html.wiki
rename to doc/11.x/api/server/Eliom_registration.Html.wiki
index 4e306f97e0..fef6a2606f 100644
--- a/doc/10.x/api/server/Eliom_registration.Html.wiki
+++ b/doc/11.x/api/server/Eliom_registration.Html.wiki
@@ -1,5 +1,5 @@
 =Module <<a_api_type subproject="server" | module Eliom_registration.Html >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Html>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\    with type page = Html_types.html <<a_api subproject="server" text="Eliom_content.Html" | module Eliom_content.Html >>.elt\\     and type options = unit\\     and type return = Eliom_service.non_ocaml\\     and type result = browser_content kind>>>>~Eliom service registration for services that return ~H~T~M~L
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Html>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\  with type page = Html_types.html <<a_api subproject="server" text="Eliom_content.Html" | module Eliom_content.Html >>.elt\\   and type options = unit\\   and type return = Eliom_service.non_ocaml\\   and type result = browser_content kind>>>>~Eliom service registration for services that return ~H~T~M~L
     pages~.
 
 ----
diff --git a/doc/10.x/api/server/Eliom_registration.Html_text.wiki b/doc/11.x/api/server/Eliom_registration.Html_text.wiki
similarity index 98%
rename from doc/10.x/api/server/Eliom_registration.Html_text.wiki
rename to doc/11.x/api/server/Eliom_registration.Html_text.wiki
index d9b91d6737..1e6517da8d 100644
--- a/doc/10.x/api/server/Eliom_registration.Html_text.wiki
+++ b/doc/11.x/api/server/Eliom_registration.Html_text.wiki
@@ -1,5 +1,5 @@
 =Module <<a_api_type subproject="server" | module Eliom_registration.Html_text >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Html_text>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\    with type page = string\\     and type options = unit\\     and type return = Eliom_service.non_ocaml\\     and type result = browser_content kind>>>>~Eliom service registration and forms creation for untyped ~H~T~M~L
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Html_text>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\  with type page = string\\   and type options = unit\\   and type return = Eliom_service.non_ocaml\\   and type result = browser_content kind>>>>~Eliom service registration and forms creation for untyped ~H~T~M~L
     page~. ~The page content is a <<span class="odocwiki_inlinecode"|string>> that must contains valid ~H~T~M~L
     and the content type is always <<span class="odocwiki_inlinecode"|text~/html>>~.
 
diff --git a/doc/10.x/api/server/Eliom_registration.Ocaml.wiki b/doc/11.x/api/server/Eliom_registration.Ocaml.wiki
similarity index 88%
rename from doc/10.x/api/server/Eliom_registration.Ocaml.wiki
rename to doc/11.x/api/server/Eliom_registration.Ocaml.wiki
index 3a0a67e10e..611472e440 100644
--- a/doc/10.x/api/server/Eliom_registration.Ocaml.wiki
+++ b/doc/11.x/api/server/Eliom_registration.Ocaml.wiki
@@ -1,5 +1,5 @@
 =Module <<a_api_type subproject="server" | module Eliom_registration.Ocaml >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Ocaml>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_poly_with_create_with_send" | module Eliom_registration_sigs.S_poly_with_create_with_send >>>><<span class="odocwiki_type"| \\    with type 'a page = 'a\\     and type options = unit\\     and type 'a return = 'a Eliom_service.ocaml\\     and type 'a result = 'a ocaml_content kind>>>>~Eliom service registration for services that send marshalled ~O~Caml
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Ocaml>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_poly_with_create_with_send" | module Eliom_registration_sigs.S_poly_with_create_with_send >>>><<span class="odocwiki_type"| \\  with type 'a page = 'a\\   and type options = unit\\   and type 'a return = 'a Eliom_service.ocaml\\   and type 'a result = 'a ocaml_content kind>>>>~Eliom service registration for services that send marshalled ~O~Caml
     values~.
 
 ----
diff --git a/doc/10.x/api/server/Eliom_registration.Redirection.wiki b/doc/11.x/api/server/Eliom_registration.Redirection.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_registration.Redirection.wiki
rename to doc/11.x/api/server/Eliom_registration.Redirection.wiki
diff --git a/doc/10.x/api/server/Eliom_registration.String.wiki b/doc/11.x/api/server/Eliom_registration.String.wiki
similarity index 98%
rename from doc/10.x/api/server/Eliom_registration.String.wiki
rename to doc/11.x/api/server/Eliom_registration.String.wiki
index f744ffb467..ff5d19834c 100644
--- a/doc/10.x/api/server/Eliom_registration.String.wiki
+++ b/doc/11.x/api/server/Eliom_registration.String.wiki
@@ -1,5 +1,5 @@
 =Module <<a_api_type subproject="server" | module Eliom_registration.String >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|String>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\    with type page = string * string\\     and type options = int\\     and type return = Eliom_service.non_ocaml\\     and type result = unknown_content kind>>>>~Eliom service registration for services that returns "byte"~-string
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|String>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\  with type page = string * string\\   and type options = int\\   and type return = Eliom_service.non_ocaml\\   and type result = unknown_content kind>>>>~Eliom service registration for services that returns "byte"~-string
     contents~. ~The page content is a pair <<span class="odocwiki_inlinecode"|~(raw~_content~,
     content~_type~)>>~. ~See also <<span class="odocwiki_inlinecode"|~Streamlist>> for another kind of service
     that returns "byte" contents~. ~The option is the optional
diff --git a/doc/10.x/api/server/Eliom_registration.String_redirection.wiki b/doc/11.x/api/server/Eliom_registration.String_redirection.wiki
similarity index 97%
rename from doc/10.x/api/server/Eliom_registration.String_redirection.wiki
rename to doc/11.x/api/server/Eliom_registration.String_redirection.wiki
index 31feae4682..4d9e3c1823 100644
--- a/doc/10.x/api/server/Eliom_registration.String_redirection.wiki
+++ b/doc/11.x/api/server/Eliom_registration.String_redirection.wiki
@@ -1,5 +1,5 @@
 =Module <<a_api_type subproject="server" | module Eliom_registration.String_redirection >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|String_redirection>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\    with type page = <<span class="ocsforge_color_uid"|Eliom_lib.Url>>.uri\\     and type options =\\          [ `MovedPermanently\\          | `Found\\          | `SeeOther\\          | `NotNodifed\\          | `UseProxy\\          | `TemporaryRedirect ]\\     and type return = Eliom_service.non_ocaml\\     and type result = browser_content kind>>>>~Eliom service registration for services that returns a
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|String_redirection>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\  with type page = <<span class="ocsforge_color_uid"|Eliom_lib.Url>>.uri\\   and type options =\\    [ `MovedPermanently\\    | `Found\\    | `SeeOther\\    | `NotNodifed\\    | `UseProxy\\    | `TemporaryRedirect ]\\   and type return = Eliom_service.non_ocaml\\   and type result = browser_content kind>>>>~Eliom service registration for services that returns a
     redirections towards a string~-~U~R~L~. ~See the ~Eliom manual for more
     information about <<a_manual chapter="server-outputs"
     fragment="redirections"|Redirections outputs>>~. ~The ~U~R~L given
diff --git a/doc/10.x/api/server/Eliom_registration.TMPL_PARAMS.wiki b/doc/11.x/api/server/Eliom_registration.TMPL_PARAMS.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_registration.TMPL_PARAMS.wiki
rename to doc/11.x/api/server/Eliom_registration.TMPL_PARAMS.wiki
diff --git a/doc/10.x/api/server/Eliom_registration.Unit.wiki b/doc/11.x/api/server/Eliom_registration.Unit.wiki
similarity index 98%
rename from doc/10.x/api/server/Eliom_registration.Unit.wiki
rename to doc/11.x/api/server/Eliom_registration.Unit.wiki
index b306028f98..d7963ffe06 100644
--- a/doc/10.x/api/server/Eliom_registration.Unit.wiki
+++ b/doc/11.x/api/server/Eliom_registration.Unit.wiki
@@ -1,5 +1,5 @@
 =Module <<a_api_type subproject="server" | module Eliom_registration.Unit >> =
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Unit>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\    with type page = unit\\     and type options = unit\\     and type return = Eliom_service.non_ocaml\\     and type result = browser_content kind>>>>~Similar to <<span class="odocwiki_inlinecode"|~Actions>> with <<span class="odocwiki_inlinecode"|`~No~Reload>> option~.
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<span class="ocsforge_color_uid"|<<span class="ocsforge_color_uid"|Unit>>>> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\  with type page = unit\\   and type options = unit\\   and type return = Eliom_service.non_ocaml\\   and type result = browser_content kind>>>>~Similar to <<span class="odocwiki_inlinecode"|~Actions>> with <<span class="odocwiki_inlinecode"|`~No~Reload>> option~.
 
 ----
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="server" | module type Eliom_registration_sigs.S >>>>
diff --git a/doc/10.x/api/server/Eliom_registration.wiki b/doc/11.x/api/server/Eliom_registration.wiki
similarity index 83%
rename from doc/10.x/api/server/Eliom_registration.wiki
rename to doc/11.x/api/server/Eliom_registration.wiki
index 1a7daad366..aa9fc9f429 100644
--- a/doc/10.x/api/server/Eliom_registration.wiki
+++ b/doc/11.x/api/server/Eliom_registration.wiki
@@ -76,7 +76,7 @@
 
 ==@@id="2_UsingHTMLwithservices"@@~Using ~H~T~M~L with services ==
 
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Html" | module Eliom_registration.Html >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\    with type page = Html_types.html <<a_api subproject="server" text="Eliom_content.Html" | module Eliom_content.Html >>.elt\\     and type options = unit\\     and type return = Eliom_service.non_ocaml\\     and type result = browser_content kind>>>><<div class="odocwiki_info"|~Eliom service registration for services that return ~H~T~M~L
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Html" | module Eliom_registration.Html >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\  with type page = Html_types.html <<a_api subproject="server" text="Eliom_content.Html" | module Eliom_content.Html >>.elt\\   and type options = unit\\   and type return = Eliom_service.non_ocaml\\   and type result = browser_content kind>>>><<div class="odocwiki_info"|~Eliom service registration for services that return ~H~T~M~L
     pages~.
 >>
 
@@ -99,39 +99,39 @@
 >>
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module type>> <<a_api subproject="server" text="APP" | module type Eliom_registration.APP >> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="server" text=".." | module type Eliom_registration.APP >><<span class="ocsforge_color_keyword"|end>>>><<pre id="VALtransform_global_app_uri" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|transform~_global~_app~_uri>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_delimiter"| ( >><<a_api subproject="server" text="Eliom_content.Html.uri" | type Eliom_content.Html.uri >> <<span class="ocsforge_color_delimiter"| -> >> <<a_api subproject="server" text="Eliom_content.Html.uri" | type Eliom_content.Html.uri >><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_uid"|Stdlib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|ref>>>>>><<div class="odocwiki_info"|~Function to modify the global~_app ~U~R~I for some obscure reason
 >>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="App" | module Eliom_registration.App >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>App_params <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.APP_PARAM" | module Eliom_registration_sigs.APP_PARAM >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="APP" | module Eliom_registration.APP >>>><<span class="odocwiki_type"| >>>>>><<div class="odocwiki_info"|~Functor for application creation~.
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="App" | module Eliom_registration.App >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>* <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<span class="odocwiki_sig_block"|>><<span class="ocsforge_color_keyword"|end>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="APP" | module Eliom_registration.APP >>>><<span class="odocwiki_type"| >>>>>><<div class="odocwiki_info"|~Functor for application creation~.
 >>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module type>> <<a_api subproject="server" text="TMPL_PARAMS" | module type Eliom_registration.TMPL_PARAMS >> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="server" text=".." | module type Eliom_registration.TMPL_PARAMS >><<span class="ocsforge_color_keyword"|end>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Eliom_tmpl" | module Eliom_registration.Eliom_tmpl >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>App <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="APP" | module Eliom_registration.APP >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>Tmpl_param <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="TMPL_PARAMS" | module Eliom_registration.TMPL_PARAMS >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\    with type page = Tmpl_param.t\\     and type options = appl_service_options\\     and type return = Eliom_service.non_ocaml\\     and type result = App.app_id application_content kind>>>>>>>>
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module type>> <<a_api subproject="server" text="TMPL_PARAMS" | module type Eliom_registration.TMPL_PARAMS >> <<span class="ocsforge_color_delimiter"|~=>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="server" text=".." | module type Eliom_registration.TMPL_PARAMS >><<span class="ocsforge_color_keyword"|end>>>><<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Eliom_tmpl" | module Eliom_registration.Eliom_tmpl >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>App <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="APP" | module Eliom_registration.APP >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>Tmpl_param <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="TMPL_PARAMS" | module Eliom_registration.TMPL_PARAMS >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\  with type page = Tmpl_param.t\\   and type options = appl_service_options\\   and type return = Eliom_service.non_ocaml\\   and type result = App.app_id application_content kind>>>>>>>>
 
 ===@@id="3_ServicesreturningHTMLorotherTyXMLfragments"@@~Services returning ~H~T~M~L ~(or other ~Ty~X~M~L~) fragments===
 
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Flow5" | module Eliom_registration.Flow5 >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\    with type page = Html_types.flow5 <<a_api subproject="server" text="Eliom_content.Html" | module Eliom_content.Html >>.elt list\\     and type options = unit\\     and type return = Eliom_service.non_ocaml\\     and type result = block_content kind>>>><<div class="odocwiki_info"|~Eliom service registration and forms creation for fragment of ~H~T~M~L
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Flow5" | module Eliom_registration.Flow5 >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\  with type page = Html_types.flow5 <<a_api subproject="server" text="Eliom_content.Html" | module Eliom_content.Html >>.elt list\\   and type options = unit\\   and type return = Eliom_service.non_ocaml\\   and type result = block_content kind>>>><<div class="odocwiki_info"|~Eliom service registration and forms creation for fragment of ~H~T~M~L
     page~.
 >>
 
 
 ==@@id="2_Untypedpages"@@~Untyped pages==
 
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Html_text" | module Eliom_registration.Html_text >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\    with type page = string\\     and type options = unit\\     and type return = Eliom_service.non_ocaml\\     and type result = browser_content kind>>>><<div class="odocwiki_info"|~Eliom service registration and forms creation for untyped ~H~T~M~L
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Html_text" | module Eliom_registration.Html_text >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\  with type page = string\\   and type options = unit\\   and type return = Eliom_service.non_ocaml\\   and type result = browser_content kind>>>><<div class="odocwiki_info"|~Eliom service registration and forms creation for untyped ~H~T~M~L
     page~.
 >>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="CssText" | module Eliom_registration.CssText >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\    with type page = string\\     and type options = int\\     and type return = Eliom_service.non_ocaml\\     and type result = browser_content kind>>>><<div class="odocwiki_info"|~Eliom service registration for services that returns ~C~S~S~.
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="CssText" | module Eliom_registration.CssText >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\  with type page = string\\   and type options = int\\   and type return = Eliom_service.non_ocaml\\   and type result = browser_content kind>>>><<div class="odocwiki_info"|~Eliom service registration for services that returns ~C~S~S~.
 >>
 
 
 ==@@id="2_Otherkindsofservices"@@~Other kinds of services==
 
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Action" | module Eliom_registration.Action >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\    with type return = Eliom_service.non_ocaml\\     and type page = unit\\     and type options = [`Reload | `NoReload]\\     and type result = browser_content kind>>>><<div class="odocwiki_info"|~Eliom service registration for services that only execute
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Action" | module Eliom_registration.Action >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\  with type return = Eliom_service.non_ocaml\\   and type page = unit\\   and type options = [`Reload | `NoReload]\\   and type result = browser_content kind>>>><<div class="odocwiki_info"|~Eliom service registration for services that only execute
     actions~.
 >>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Unit" | module Eliom_registration.Unit >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\    with type page = unit\\     and type options = unit\\     and type return = Eliom_service.non_ocaml\\     and type result = browser_content kind>>>><<div class="odocwiki_info"|~Similar to <<span class="odocwiki_inlinecode"|~Actions>> with <<span class="odocwiki_inlinecode"|`~No~Reload>> option~.
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Unit" | module Eliom_registration.Unit >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\  with type page = unit\\   and type options = unit\\   and type return = Eliom_service.non_ocaml\\   and type result = browser_content kind>>>><<div class="odocwiki_info"|~Similar to <<span class="odocwiki_inlinecode"|~Actions>> with <<span class="odocwiki_inlinecode"|`~No~Reload>> option~.
 >>
 <<pre class="ocsforge_color odocwiki_code" id="TYPEredirection"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'_>> <<span class="odocwiki_name"|redirection>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Redirection>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>unit, unit, <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|get>>, 'b, 'c, 'd, 'e,\\     [ `WithoutSuffix ], unit, unit, 'a<<span class="ocsforge_color_delimiter"| ) >>\\    <<span class="ocsforge_color_uid"|Eliom_service>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>>>>>>>><<div class="odocwiki_info"|~Auxiliarry type to hide non~-interesting type parameters
 >>
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Redirection" | module Eliom_registration.Redirection >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="server" text=".." | module Eliom_registration.Redirection >><<span class="ocsforge_color_keyword"|end>>>><<div class="odocwiki_info"|~Eliom service registration for services that returns a
     redirections towards another service~.
 >>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="String_redirection" | module Eliom_registration.String_redirection >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\    with type page = <<span class="ocsforge_color_uid"|Eliom_lib.Url>>.uri\\     and type options =\\          [ `MovedPermanently\\          | `Found\\          | `SeeOther\\          | `NotNodifed\\          | `UseProxy\\          | `TemporaryRedirect ]\\     and type return = Eliom_service.non_ocaml\\     and type result = browser_content kind>>>><<div class="odocwiki_info"|~Eliom service registration for services that returns a
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="String_redirection" | module Eliom_registration.String_redirection >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\  with type page = <<span class="ocsforge_color_uid"|Eliom_lib.Url>>.uri\\   and type options =\\    [ `MovedPermanently\\    | `Found\\    | `SeeOther\\    | `NotNodifed\\    | `UseProxy\\    | `TemporaryRedirect ]\\   and type return = Eliom_service.non_ocaml\\   and type result = browser_content kind>>>><<div class="odocwiki_info"|~Eliom service registration for services that returns a
     redirections towards a string~-~U~R~L~.
 >>
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="File" | module Eliom_registration.File >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="server" text=".." | module Eliom_registration.File >><<span class="ocsforge_color_keyword"|end>>>><<div class="odocwiki_info"|~Eliom service registration for services that returns file
@@ -140,10 +140,10 @@
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="File_ct" | module Eliom_registration.File_ct >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<a_api subproject="server" text=".." | module Eliom_registration.File_ct >><<span class="ocsforge_color_keyword"|end>>>><<div class="odocwiki_info"|~Same as file but makes possible to specify the content type for
     each file~.
 >>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Ocaml" | module Eliom_registration.Ocaml >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_poly_with_create_with_send" | module Eliom_registration_sigs.S_poly_with_create_with_send >>>><<span class="odocwiki_type"| \\    with type 'a page = 'a\\     and type options = unit\\     and type 'a return = 'a Eliom_service.ocaml\\     and type 'a result = 'a ocaml_content kind>>>><<div class="odocwiki_info"|~Eliom service registration for services that send marshalled ~O~Caml
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Ocaml" | module Eliom_registration.Ocaml >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_poly_with_create_with_send" | module Eliom_registration_sigs.S_poly_with_create_with_send >>>><<span class="odocwiki_type"| \\  with type 'a page = 'a\\   and type options = unit\\   and type 'a return = 'a Eliom_service.ocaml\\   and type 'a result = 'a ocaml_content kind>>>><<div class="odocwiki_info"|~Eliom service registration for services that send marshalled ~O~Caml
     values~.
 >>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Any" | module Eliom_registration.Any >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_poly_with_create_with_send" | module Eliom_registration_sigs.S_poly_with_create_with_send >>>><<span class="odocwiki_type"| \\    with type 'a page = 'a kind\\     and type options = unit\\     and type 'a return = Eliom_service.non_ocaml\\     and type 'a result = 'a kind>>>><<div class="odocwiki_info"|~Eliom service registration for services that choose dynamically
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Any" | module Eliom_registration.Any >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_poly_with_create_with_send" | module Eliom_registration_sigs.S_poly_with_create_with_send >>>><<span class="odocwiki_type"| \\  with type 'a page = 'a kind\\   and type options = unit\\   and type 'a return = Eliom_service.non_ocaml\\   and type 'a result = 'a kind>>>><<div class="odocwiki_info"|~Eliom service registration for services that choose dynamically
     what they want to send~.
 >>
 <<pre id="VALappl_self_redirect" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|appl~_self~_redirect>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_delimiter"| ( >>'page <<span class="ocsforge_color_delimiter"| -> >> [< `Appl of 'a | `Browser ] <<a_api subproject="server" text="kind" | type Eliom_registration.kind >> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>><<span class="ocsforge_color_delimiter"| ) >> <<span class="ocsforge_color_delimiter"| -> >>\\  'page <<span class="ocsforge_color_delimiter"| -> >>\\  'appl <<a_api subproject="server" text="application_content" | type Eliom_registration.application_content >> <<a_api subproject="server" text="kind" | type Eliom_registration.kind >>\\  <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>><<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|appl~_self~_redirect send page>> is an helper function
@@ -160,14 +160,14 @@
     and you should not use this function for services that use ~P~O~S~T
     parameters~.
 >>
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="String" | module Eliom_registration.String >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\    with type page = string * string\\     and type options = int\\     and type return = Eliom_service.non_ocaml\\     and type result = unknown_content kind>>>><<div class="odocwiki_info"|~Eliom service registration for services that returns "byte"~-string
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="String" | module Eliom_registration.String >> <<span class="ocsforge_color_delimiter"|~:>> \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\  with type page = string * string\\   and type options = int\\   and type return = Eliom_service.non_ocaml\\   and type result = unknown_content kind>>>><<div class="odocwiki_info"|~Eliom service registration for services that returns "byte"~-string
     contents~.
 >>
 
 
 ==@@id="2_Customizingregistration"@@~Customizing registration==
 
-<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Customize" | module Eliom_registration.Customize >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>R <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>T <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<span class="odocwiki_sig_block"|<<span class="ocsforge_color odocwiki_code" id="TYPEpage"|      <<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|page>>>><<span id="VALtranslate" class="ocsforge_color odocwiki_code"|      <<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|translate>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_lid"|page>> <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|R>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|page>> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>>>><<span class="ocsforge_color_keyword"|end>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\    with type options = R.options\\     and type return = R.return\\     and type page = T.page\\     and type result = R.result>>>>>>>><<div class="odocwiki_info"|~The <<span class="odocwiki_inlinecode"|~Customize>> functor allows specialization of service
+<<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|module>> <<a_api subproject="server" text="Customize" | module Eliom_registration.Customize >> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>R <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  <<span class="odocwiki_sig_block"|<<span class="ocsforge_color_keyword"|functor>> <<span class="ocsforge_color_delimiter"|(>>T <<span class="ocsforge_color_delimiter"|~:>> <<span class="ocsforge_color_keyword"|sig>><<span class="odocwiki_sig_block"|<<span class="ocsforge_color odocwiki_code" id="TYPEpage"|      <<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|page>>>><<span id="VALtranslate" class="ocsforge_color odocwiki_code"|      <<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|translate>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_lid"|page>> <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|R>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|page>> <<span class="ocsforge_color_uid"|Lwt>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>>>><<span class="ocsforge_color_keyword"|end>><<span class="ocsforge_color_delimiter"|)>> <<span class="ocsforge_color_delimiter"|-~>>> \\  \\  <<span class="odocwiki_type"|<<a_api subproject="server" text="Eliom_registration_sigs.S_with_create" | module Eliom_registration_sigs.S_with_create >>>><<span class="odocwiki_type"| \\  with type options = R.options\\   and type return = R.return\\   and type page = T.page\\   and type result = R.result>>>>>>>><<div class="odocwiki_info"|~The <<span class="odocwiki_inlinecode"|~Customize>> functor allows specialization of service
     registration functions by customizing the page type~.
 >>
 
@@ -206,4 +206,3 @@
 <<pre id="VALcast_http_result" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|cast~_http~_result>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Ocsigen_response>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>> <<span class="ocsforge_color_delimiter"| -> >> 'a <<a_api subproject="server" text="kind" | type Eliom_registration.kind >>>>>><<div class="odocwiki_info"|<<span class="odocwiki_inlinecode"|cast~_http~_result>> should only be used to register new output
     modules
 >>
-<<pre id="VALextension" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|extension>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Ocsigen_server>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Site>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|extension>>>>>><<pre id="VALend_init" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|end~_init>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|unit <<span class="ocsforge_color_delimiter"| -> >> unit>>>>
\ No newline at end of file
diff --git a/doc/10.x/api/server/Eliom_registration_sigs.APP_PARAM.wiki b/doc/11.x/api/server/Eliom_registration_sigs.APP_PARAM.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_registration_sigs.APP_PARAM.wiki
rename to doc/11.x/api/server/Eliom_registration_sigs.APP_PARAM.wiki
diff --git a/doc/10.x/api/server/Eliom_registration_sigs.PARAM.wiki b/doc/11.x/api/server/Eliom_registration_sigs.PARAM.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_registration_sigs.PARAM.wiki
rename to doc/11.x/api/server/Eliom_registration_sigs.PARAM.wiki
diff --git a/doc/10.x/api/server/Eliom_registration_sigs.PARAM_POLY.wiki b/doc/11.x/api/server/Eliom_registration_sigs.PARAM_POLY.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_registration_sigs.PARAM_POLY.wiki
rename to doc/11.x/api/server/Eliom_registration_sigs.PARAM_POLY.wiki
diff --git a/doc/10.x/api/server/Eliom_registration_sigs.S.wiki b/doc/11.x/api/server/Eliom_registration_sigs.S.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_registration_sigs.S.wiki
rename to doc/11.x/api/server/Eliom_registration_sigs.S.wiki
diff --git a/doc/10.x/api/server/Eliom_registration_sigs.S_poly.wiki b/doc/11.x/api/server/Eliom_registration_sigs.S_poly.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_registration_sigs.S_poly.wiki
rename to doc/11.x/api/server/Eliom_registration_sigs.S_poly.wiki
diff --git a/doc/10.x/api/server/Eliom_registration_sigs.S_poly_with_create.wiki b/doc/11.x/api/server/Eliom_registration_sigs.S_poly_with_create.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_registration_sigs.S_poly_with_create.wiki
rename to doc/11.x/api/server/Eliom_registration_sigs.S_poly_with_create.wiki
diff --git a/doc/10.x/api/server/Eliom_registration_sigs.S_poly_with_create_with_send.wiki b/doc/11.x/api/server/Eliom_registration_sigs.S_poly_with_create_with_send.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_registration_sigs.S_poly_with_create_with_send.wiki
rename to doc/11.x/api/server/Eliom_registration_sigs.S_poly_with_create_with_send.wiki
diff --git a/doc/10.x/api/server/Eliom_registration_sigs.S_poly_with_send.wiki b/doc/11.x/api/server/Eliom_registration_sigs.S_poly_with_send.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_registration_sigs.S_poly_with_send.wiki
rename to doc/11.x/api/server/Eliom_registration_sigs.S_poly_with_send.wiki
diff --git a/doc/10.x/api/server/Eliom_registration_sigs.S_with_create.wiki b/doc/11.x/api/server/Eliom_registration_sigs.S_with_create.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_registration_sigs.S_with_create.wiki
rename to doc/11.x/api/server/Eliom_registration_sigs.S_with_create.wiki
diff --git a/doc/10.x/api/server/Eliom_registration_sigs.wiki b/doc/11.x/api/server/Eliom_registration_sigs.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_registration_sigs.wiki
rename to doc/11.x/api/server/Eliom_registration_sigs.wiki
diff --git a/doc/10.x/api/server/Eliom_request_info.wiki b/doc/11.x/api/server/Eliom_request_info.wiki
similarity index 97%
rename from doc/10.x/api/server/Eliom_request_info.wiki
rename to doc/11.x/api/server/Eliom_request_info.wiki
index 377876a36c..af3a835de0 100644
--- a/doc/10.x/api/server/Eliom_request_info.wiki
+++ b/doc/11.x/api/server/Eliom_request_info.wiki
@@ -88,6 +88,10 @@
     ~(if any~)~.
 >>
 <<pre id="VALget_site_dir" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|get~_site~_dir>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|unit <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Eliom_lib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Url>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|path>>>>>><<div class="odocwiki_info"|returns the root of the site~.
+    ~Raises <<span class="odocwiki_inlinecode"|~Eliom~_common~.~Eliom~_site~_information~_not~_available>>
+    if unavailable~.
+>>
+<<pre id="VALget_site_dir_option" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|get~_site~_dir~_option>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|unit <<span class="ocsforge_color_delimiter"| -> >> <<span class="ocsforge_color_uid"|Eliom_lib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Url>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|path>> option>>>><<div class="odocwiki_info"|returns the root of the site~.
 >>
 
 
diff --git a/doc/10.x/api/server/Eliom_service.wiki b/doc/11.x/api/server/Eliom_service.wiki
similarity index 99%
rename from doc/10.x/api/server/Eliom_service.wiki
rename to doc/11.x/api/server/Eliom_service.wiki
index 6e34156a5c..6ddb845bf5 100644
--- a/doc/10.x/api/server/Eliom_service.wiki
+++ b/doc/11.x/api/server/Eliom_service.wiki
@@ -10,10 +10,9 @@
 
 ----
 <<pre class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|include>> <<a_api subproject="server" | module type Eliom_service_sigs.S >>>>
-<<pre id="VALcreate" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|create>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?name: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_safe: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_scope: >>[< <<a_api subproject="server" text="Eliom_common.user_scope" | type Eliom_common.user_scope >> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_secure: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?max_use: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?timeout: >>float <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?https: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?keep_nl_params: >>[ `All | `None | `Persistent ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?priority: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| meth: >><<span class="ocsforge_color_delimiter"| ( >>'m, 'gp, 'gn, 'pp, 'pn, [< `WithSuffix | `WithoutSuffix ] as 'a,\\        'gp_<<span class="ocsforge_color_delimiter"| ) >>\\       meth <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| path: >><<span class="ocsforge_color_delimiter"| ( >>'att, 'co, 'gp_<<span class="ocsforge_color_delimiter"| ) >> path_option <<span class="ocsforge_color_delimiter"| -> >>\\  unit <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp, 'pp, 'm, 'att, 'co, non_ext, reg, 'a, 'gn, 'pn, non_ocaml<<span class="ocsforge_color_delimiter"| ) >> t>>>><<div class="odocwiki_info"|**~Service definition**
 
-
-    ~The function <<span class="odocwiki_inlinecode"|create ~~id ~~path ~(~)>> creates a service
+**~Service definition**
+<<pre id="VALcreate" class="ocsforge_color odocwiki_code"|<<span class="ocsforge_color_keyword"|val>> <<span class="odocwiki_name"|create>> <<span class="ocsforge_color_delimiter"|~:>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_label"| ?name: >>string <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_safe: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_scope: >>[< <<a_api subproject="server" text="Eliom_common.user_scope" | type Eliom_common.user_scope >> ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?csrf_secure: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?max_use: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?timeout: >>float <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?https: >>bool <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?keep_nl_params: >>[ `All | `None | `Persistent ] <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| ?priority: >>int <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| meth: >><<span class="ocsforge_color_delimiter"| ( >>'m, 'gp, 'gn, 'pp, 'pn, [< `WithSuffix | `WithoutSuffix ] as 'a,\\        'gp_<<span class="ocsforge_color_delimiter"| ) >>\\       meth <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_label"| path: >><<span class="ocsforge_color_delimiter"| ( >>'att, 'co, 'gp_<<span class="ocsforge_color_delimiter"| ) >> path_option <<span class="ocsforge_color_delimiter"| -> >>\\  unit <<span class="ocsforge_color_delimiter"| -> >>\\  <<span class="ocsforge_color_delimiter"| ( >>'gp, 'pp, 'm, 'att, 'co, non_ext, reg, 'a, 'gn, 'pn, non_ocaml<<span class="ocsforge_color_delimiter"| ) >> t>>>><<div class="odocwiki_info"|<<span class="odocwiki_inlinecode"|create ~~id ~~path ~(~)>> creates a service
     ~(<<a_api subproject="server" | type Eliom_service_sigs.S.t >>~) identified as per <<span class="odocwiki_inlinecode"|path>> and accepting
     parameters as per <<span class="odocwiki_inlinecode"|meth>>~. ~See <<a_api subproject="server" | type Eliom_service_sigs.S.path_option >>
     and <<a_api subproject="server" | type Eliom_service_sigs.TYPES.meth >> for the respective arguments~.
diff --git a/doc/10.x/api/server/Eliom_service_sigs.S.wiki b/doc/11.x/api/server/Eliom_service_sigs.S.wiki
similarity index 93%
rename from doc/10.x/api/server/Eliom_service_sigs.S.wiki
rename to doc/11.x/api/server/Eliom_service_sigs.S.wiki
index 20e04b6cd5..c9f450ff00 100644
--- a/doc/10.x/api/server/Eliom_service_sigs.S.wiki
+++ b/doc/11.x/api/server/Eliom_service_sigs.S.wiki
@@ -14,10 +14,9 @@
 
 ===@@id="3_Auxiliarytypes"@@~Auxiliary types===
 
-<<pre class="ocsforge_color odocwiki_code" id="TYPEatt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|att>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEnon_att"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|non~_att>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEattached_info"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|attached~_info>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Attached>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|<<a_api subproject="server" text="att" | type Eliom_service_sigs.S.att >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Nonattached>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|<<a_api subproject="server" text="non_att" | type Eliom_service_sigs.S.non_att >>>>>>>>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_delimiter"| ( >>'get, 'post, 'meth, 'attached, 'co, 'ext, 'reg\\    , +[< `WithSuffix | `WithoutSuffix ], 'gn, 'pn, 'ret<<span class="ocsforge_color_delimiter"| ) >>>> <<span class="odocwiki_name"|t>>>><<div class="odocwiki_info"|**~Type of services**
-
-
-      ~For a service
+<<pre class="ocsforge_color odocwiki_code" id="TYPEatt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|att>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEnon_att"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|non~_att>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEattached_info"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'a>> <<span class="odocwiki_name"|attached~_info>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Attached>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|<<a_api subproject="server" text="att" | type Eliom_service_sigs.S.att >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Nonattached>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|<<a_api subproject="server" text="non_att" | type Eliom_service_sigs.S.non_att >>>>>>>>>>>>
+**~Type of services**
+<<pre class="ocsforge_color odocwiki_code" id="TYPEt"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_delimiter"| ( >>'get, 'post, 'meth, 'attached, 'co, 'ext, 'reg\\    , +[< `WithSuffix | `WithoutSuffix ], 'gn, 'pn, 'ret<<span class="ocsforge_color_delimiter"| ) >>>> <<span class="odocwiki_name"|t>>>><<div class="odocwiki_info"|~For a service
       <<span class="odocwiki_inlinecode"|~(~'get~, ~'post~, ~'meth~, ~'attached~, ~'co~, ~'ext~, ~'reg~,
         ~'tipo~, ~'gn~, ~'pn~, ~'ret~) t>>~:
 
@@ -42,9 +41,9 @@
 
 >>
 <<pre class="ocsforge_color odocwiki_code" id="TYPEresult"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|result>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|No_contents>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Dom>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Dom_html>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|element>> <<span class="ocsforge_color_uid"|Js_of_ocaml>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Js>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|t>>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Redirect>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>unit, unit, get, 'a, 'b, 'c, 'd, [ `WithoutSuffix ], unit, \\     unit, non_ocaml<<span class="ocsforge_color_delimiter"| ) >>\\    <<a_api subproject="server" text="t" | type Eliom_service_sigs.S.t >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Reload_action>> <<span class="ocsforge_color_keyword"|of>> <<span class="ocsforge_color_delimiter"|~{>>
-<<span class="odocwiki_record"|<<span class="odocwiki_field"|<<span class="odocwiki_field_descr"|      <<span class="ocsforge_color_label"|hidden:>> <<span class="odocwiki_type"|bool>><<span class="ocsforge_color_delimiter"|~;>> >>>><<span class="odocwiki_field"|<<span class="odocwiki_field_descr"|      <<span class="ocsforge_color_label"|https:>> <<span class="odocwiki_type"|bool>><<span class="ocsforge_color_delimiter"|~;>> >>>>>><<span class="ocsforge_color_delimiter"|~}>>>>>>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEunit_service"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|unit~_service>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_delimiter"| ( >>unit, unit, get, <<a_api subproject="server" text="att" | type Eliom_service_sigs.S.att >>, non_co, non_ext, \\   non_reg, [ `WithoutSuffix ], unit, unit, non_ocaml<<span class="ocsforge_color_delimiter"| ) >>\\  <<a_api subproject="server" text="t" | type Eliom_service_sigs.S.t >>>> >><<pre class="ocsforge_color odocwiki_code" id="TYPEpath_option"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >>'_, '_, '_<<span class="ocsforge_color_delimiter"| ) >>>> <<span class="odocwiki_name"|path~_option>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Path>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Eliom_lib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Url>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|path>>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|No_path>>>>>>>>>><<div class="odocwiki_info"|**~Optional service path**
->>
-
+<<span class="odocwiki_record"|<<span class="odocwiki_field"|<<span class="odocwiki_field_descr"|      <<span class="ocsforge_color_label"|hidden:>> <<span class="odocwiki_type"|bool>><<span class="ocsforge_color_delimiter"|~;>> >>>><<span class="odocwiki_field"|<<span class="odocwiki_field_descr"|      <<span class="ocsforge_color_label"|https:>> <<span class="odocwiki_type"|bool>><<span class="ocsforge_color_delimiter"|~;>> >>>>>><<span class="ocsforge_color_delimiter"|~}>>>>>>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEunit_service"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_name"|unit~_service>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_type"|\\  <<span class="ocsforge_color_delimiter"| ( >>unit, unit, get, <<a_api subproject="server" text="att" | type Eliom_service_sigs.S.att >>, non_co, non_ext, \\   non_reg, [ `WithoutSuffix ], unit, unit, non_ocaml<<span class="ocsforge_color_delimiter"| ) >>\\  <<a_api subproject="server" text="t" | type Eliom_service_sigs.S.t >>>> >>
+**~Optional service path**
+<<pre class="ocsforge_color odocwiki_code" id="TYPEpath_option"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >>'_, '_, '_<<span class="ocsforge_color_delimiter"| ) >>>> <<span class="odocwiki_name"|path~_option>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Path>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|<<span class="ocsforge_color_uid"|Eliom_lib>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_uid"|Url>><<span class="ocsforge_color_delimiter"| . >><<span class="ocsforge_color_lid"|path>>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|No_path>>>>>>>>>>
 
 ===@@id="3_Predefinedservices"@@~Predefined services===
 
diff --git a/doc/10.x/api/server/Eliom_service_sigs.TYPES.wiki b/doc/11.x/api/server/Eliom_service_sigs.TYPES.wiki
similarity index 90%
rename from doc/10.x/api/server/Eliom_service_sigs.TYPES.wiki
rename to doc/11.x/api/server/Eliom_service_sigs.TYPES.wiki
index de8e30ca3c..43adc7aeb7 100644
--- a/doc/10.x/api/server/Eliom_service_sigs.TYPES.wiki
+++ b/doc/11.x/api/server/Eliom_service_sigs.TYPES.wiki
@@ -9,7 +9,8 @@
 
 ==@@id="2_Methodspecification"@@~Method specification==
 
-<<pre class="ocsforge_color odocwiki_code" id="TYPEmeth"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >>'m, '_, '_, '_, '_, '_, '_<<span class="ocsforge_color_delimiter"| ) >>>> <<span class="odocwiki_name"|meth>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Get>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>'gp, [< `WithSuffix | `WithoutSuffix ], 'gn<<span class="ocsforge_color_delimiter"| ) >>\\    <<a_api subproject="server" text="params" | type Eliom_service_sigs.TYPES.params >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Post>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>'gp0, [< `WithSuffix | `WithoutSuffix ], 'gn0<<span class="ocsforge_color_delimiter"| ) >>\\    <<a_api subproject="server" text="params" | type Eliom_service_sigs.TYPES.params >>\\       * <<span class="ocsforge_color_delimiter"| ( >>'pp, [ `WithoutSuffix ], 'pn<<span class="ocsforge_color_delimiter"| ) >>\\         <<a_api subproject="server" text="params" | type Eliom_service_sigs.TYPES.params >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Put>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>'gp1, [< `WithSuffix | `WithoutSuffix ], 'gn1<<span class="ocsforge_color_delimiter"| ) >>\\    <<a_api subproject="server" text="params" | type Eliom_service_sigs.TYPES.params >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Delete>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>'gp2, [< `WithSuffix | `WithoutSuffix ], 'gn2<<span class="ocsforge_color_delimiter"| ) >>\\    <<a_api subproject="server" text="params" | type Eliom_service_sigs.TYPES.params >>>>>>>>>>>><<div class="odocwiki_info"|**~Method specification datatype**
+
+**~Method specification datatype**
 
 
       ~An ~Eliom service ~(see <<a_api subproject="server" | type Eliom_service_sigs.S.t >>~) can respond to
@@ -39,6 +40,5 @@
                      not unit ~; used to force unit ~G~E~T parameters when
                      needed
 
->>
-<<pre class="ocsforge_color odocwiki_code" id="TYPEwhich_meth"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'m>> <<span class="odocwiki_name"|which~_meth>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Get'>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Post'>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Put'>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Delete'>>>>>>>>>><<div class="odocwiki_info"|~Like <<a_api subproject="server" | type Eliom_service_sigs.TYPES.meth >> but without the parameters
+<<pre class="ocsforge_color odocwiki_code" id="TYPEmeth"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|<<span class="ocsforge_color_delimiter"| ( >>'m, '_, '_, '_, '_, '_, '_<<span class="ocsforge_color_delimiter"| ) >>>> <<span class="odocwiki_name"|meth>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Get>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>'gp, [< `WithSuffix | `WithoutSuffix ], 'gn<<span class="ocsforge_color_delimiter"| ) >>\\    <<a_api subproject="server" text="params" | type Eliom_service_sigs.TYPES.params >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Post>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>'gp0, [< `WithSuffix | `WithoutSuffix ], 'gn0<<span class="ocsforge_color_delimiter"| ) >>\\    <<a_api subproject="server" text="params" | type Eliom_service_sigs.TYPES.params >>\\       * <<span class="ocsforge_color_delimiter"| ( >>'pp, [ `WithoutSuffix ], 'pn<<span class="ocsforge_color_delimiter"| ) >>\\         <<a_api subproject="server" text="params" | type Eliom_service_sigs.TYPES.params >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Put>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>'gp1, [< `WithSuffix | `WithoutSuffix ], 'gn1<<span class="ocsforge_color_delimiter"| ) >>\\    <<a_api subproject="server" text="params" | type Eliom_service_sigs.TYPES.params >>>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Delete>> <<span class="ocsforge_color_keyword"|of>> <<span class="odocwiki_type"|\\    <<span class="ocsforge_color_delimiter"| ( >>'gp2, [< `WithSuffix | `WithoutSuffix ], 'gn2<<span class="ocsforge_color_delimiter"| ) >>\\    <<a_api subproject="server" text="params" | type Eliom_service_sigs.TYPES.params >>>>>>>>>>>><<pre class="ocsforge_color odocwiki_code" id="TYPEwhich_meth"|<<span class="ocsforge_color_keyword"|type>> <<span class="odocwiki_type"|'m>> <<span class="odocwiki_name"|which~_meth>> <<span class="ocsforge_color_delimiter"|~=>> <<span class="odocwiki_variants"|<<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Get'>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Post'>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Put'>>>>>><<span class="odocwiki_variant"|<<span class="odocwiki_variant_constr"|<<span class="ocsforge_color_keyword"| ~|>> <<span class="ocsforge_color_uid"|Delete'>>>>>>>>>><<div class="odocwiki_info"|~Like <<a_api subproject="server" | type Eliom_service_sigs.TYPES.meth >> but without the parameters
 >>
diff --git a/doc/10.x/api/server/Eliom_service_sigs.wiki b/doc/11.x/api/server/Eliom_service_sigs.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_service_sigs.wiki
rename to doc/11.x/api/server/Eliom_service_sigs.wiki
diff --git a/doc/10.x/api/server/Eliom_shared.FakeReactiveData.RList.wiki b/doc/11.x/api/server/Eliom_shared.FakeReactiveData.RList.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_shared.FakeReactiveData.RList.wiki
rename to doc/11.x/api/server/Eliom_shared.FakeReactiveData.RList.wiki
diff --git a/doc/10.x/api/server/Eliom_shared.FakeReactiveData.wiki b/doc/11.x/api/server/Eliom_shared.FakeReactiveData.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_shared.FakeReactiveData.wiki
rename to doc/11.x/api/server/Eliom_shared.FakeReactiveData.wiki
diff --git a/doc/10.x/api/server/Eliom_shared.React.S.wiki b/doc/11.x/api/server/Eliom_shared.React.S.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_shared.React.S.wiki
rename to doc/11.x/api/server/Eliom_shared.React.S.wiki
diff --git a/doc/10.x/api/server/Eliom_shared.React.wiki b/doc/11.x/api/server/Eliom_shared.React.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_shared.React.wiki
rename to doc/11.x/api/server/Eliom_shared.React.wiki
diff --git a/doc/10.x/api/server/Eliom_shared.ReactiveData.RList.wiki b/doc/11.x/api/server/Eliom_shared.ReactiveData.RList.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_shared.ReactiveData.RList.wiki
rename to doc/11.x/api/server/Eliom_shared.ReactiveData.RList.wiki
diff --git a/doc/10.x/api/server/Eliom_shared.ReactiveData.wiki b/doc/11.x/api/server/Eliom_shared.ReactiveData.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_shared.ReactiveData.wiki
rename to doc/11.x/api/server/Eliom_shared.ReactiveData.wiki
diff --git a/doc/10.x/api/server/Eliom_shared.Value.wiki b/doc/11.x/api/server/Eliom_shared.Value.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_shared.Value.wiki
rename to doc/11.x/api/server/Eliom_shared.Value.wiki
diff --git a/doc/10.x/api/server/Eliom_shared.wiki b/doc/11.x/api/server/Eliom_shared.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_shared.wiki
rename to doc/11.x/api/server/Eliom_shared.wiki
diff --git a/doc/10.x/api/server/Eliom_shared_sigs.RLIST.Lwt.wiki b/doc/11.x/api/server/Eliom_shared_sigs.RLIST.Lwt.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_shared_sigs.RLIST.Lwt.wiki
rename to doc/11.x/api/server/Eliom_shared_sigs.RLIST.Lwt.wiki
diff --git a/doc/10.x/api/server/Eliom_shared_sigs.RLIST.wiki b/doc/11.x/api/server/Eliom_shared_sigs.RLIST.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_shared_sigs.RLIST.wiki
rename to doc/11.x/api/server/Eliom_shared_sigs.RLIST.wiki
diff --git a/doc/10.x/api/server/Eliom_shared_sigs.S.Infix.wiki b/doc/11.x/api/server/Eliom_shared_sigs.S.Infix.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_shared_sigs.S.Infix.wiki
rename to doc/11.x/api/server/Eliom_shared_sigs.S.Infix.wiki
diff --git a/doc/10.x/api/server/Eliom_shared_sigs.S.Lwt.wiki b/doc/11.x/api/server/Eliom_shared_sigs.S.Lwt.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_shared_sigs.S.Lwt.wiki
rename to doc/11.x/api/server/Eliom_shared_sigs.S.Lwt.wiki
diff --git a/doc/10.x/api/server/Eliom_shared_sigs.S.wiki b/doc/11.x/api/server/Eliom_shared_sigs.S.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_shared_sigs.S.wiki
rename to doc/11.x/api/server/Eliom_shared_sigs.S.wiki
diff --git a/doc/10.x/api/server/Eliom_shared_sigs.VALUE.wiki b/doc/11.x/api/server/Eliom_shared_sigs.VALUE.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_shared_sigs.VALUE.wiki
rename to doc/11.x/api/server/Eliom_shared_sigs.VALUE.wiki
diff --git a/doc/10.x/api/server/Eliom_shared_sigs.wiki b/doc/11.x/api/server/Eliom_shared_sigs.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_shared_sigs.wiki
rename to doc/11.x/api/server/Eliom_shared_sigs.wiki
diff --git a/doc/10.x/api/server/Eliom_state.Ext.Low_level.wiki b/doc/11.x/api/server/Eliom_state.Ext.Low_level.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_state.Ext.Low_level.wiki
rename to doc/11.x/api/server/Eliom_state.Ext.Low_level.wiki
diff --git a/doc/10.x/api/server/Eliom_state.Ext.wiki b/doc/11.x/api/server/Eliom_state.Ext.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_state.Ext.wiki
rename to doc/11.x/api/server/Eliom_state.Ext.wiki
diff --git a/doc/10.x/api/server/Eliom_state.wiki b/doc/11.x/api/server/Eliom_state.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_state.wiki
rename to doc/11.x/api/server/Eliom_state.wiki
diff --git a/doc/10.x/api/server/Eliom_syntax.wiki b/doc/11.x/api/server/Eliom_syntax.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_syntax.wiki
rename to doc/11.x/api/server/Eliom_syntax.wiki
diff --git a/doc/10.x/api/server/Eliom_tools.D.wiki b/doc/11.x/api/server/Eliom_tools.D.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_tools.D.wiki
rename to doc/11.x/api/server/Eliom_tools.D.wiki
diff --git a/doc/10.x/api/server/Eliom_tools.F.wiki b/doc/11.x/api/server/Eliom_tools.F.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_tools.F.wiki
rename to doc/11.x/api/server/Eliom_tools.F.wiki
diff --git a/doc/10.x/api/server/Eliom_tools.HTML5_TOOLS.wiki b/doc/11.x/api/server/Eliom_tools.HTML5_TOOLS.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_tools.HTML5_TOOLS.wiki
rename to doc/11.x/api/server/Eliom_tools.HTML5_TOOLS.wiki
diff --git a/doc/10.x/api/server/Eliom_tools.wiki b/doc/11.x/api/server/Eliom_tools.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_tools.wiki
rename to doc/11.x/api/server/Eliom_tools.wiki
diff --git a/doc/10.x/api/server/Eliom_types.wiki b/doc/11.x/api/server/Eliom_types.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_types.wiki
rename to doc/11.x/api/server/Eliom_types.wiki
diff --git a/doc/10.x/api/server/Eliom_uri.wiki b/doc/11.x/api/server/Eliom_uri.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_uri.wiki
rename to doc/11.x/api/server/Eliom_uri.wiki
diff --git a/doc/10.x/api/server/Eliom_wrap.wiki b/doc/11.x/api/server/Eliom_wrap.wiki
similarity index 100%
rename from doc/10.x/api/server/Eliom_wrap.wiki
rename to doc/11.x/api/server/Eliom_wrap.wiki
diff --git a/doc/10.x/api/server/index.wiki b/doc/11.x/api/server/index.wiki
similarity index 98%
rename from doc/10.x/api/server/index.wiki
rename to doc/11.x/api/server/index.wiki
index d58d24b1fd..590bb83642 100644
--- a/doc/10.x/api/server/index.wiki
+++ b/doc/11.x/api/server/index.wiki
@@ -5,28 +5,45 @@
 
 
 
-|<<a_api subproject="server" | module Eliom_lib >>|<<div class="odocwiki_info"|~A few common functions used by ~Eliom~.
+==@@id="2_Servicecreation"@@~Service creation==
+
+
+
+
+|<<a_api subproject="server" | module Eliom_service >>|<<div class="odocwiki_info"|~Creation and manipulation of ~Eliom services~.
 >>
 |
-|<<a_api subproject="server" | module Eliom_client >>||
-|<<a_api subproject="server" | module Eliom_client_value >>|<<div class="odocwiki_info"|~Client and shared values
+|<<a_api subproject="server" | module Eliom_parameter >>||
+|<<a_api subproject="server" | module Eliom_registration >>|<<div class="odocwiki_info"|~Eliom services registration for various kinds of page content~:
+    ~Eliom application~, valid <<a_api subproject="server" | module Eliom_registration.Html >>~, actions~, redirections~, static
+    files~, ~.~.~.
 >>
 |
-|<<a_api subproject="server" | module Eliom_common >>|<<div class="odocwiki_info"|~Low level functions for ~Eliom~, exceptions and types~.
+|<<a_api subproject="server" | module Eliom_registration.Html >>|<<div class="odocwiki_info"|~Eliom service registration for services that return ~H~T~M~L
+    pages~.
 >>
 |
-|<<a_api subproject="server" | module Eliom_config >>|<<div class="odocwiki_info"|~This module makes also possible get information from the configuration
-file~.
+|<<a_api subproject="server" | module Eliom_registration.Action >>|<<div class="odocwiki_info"|~Eliom service registration for services that only execute
+    actions~.
 >>
 |
-|<<a_api subproject="server" | module Eliom_request_info >>|<<div class="odocwiki_info"|~This module contains the functions you need to get ~(or set~)
-    information about current request~.
+|<<a_api subproject="server" | module Eliom_registration.Ocaml >>|<<div class="odocwiki_info"|~Eliom service registration for services that send marshalled ~O~Caml
+    values~.
 >>
 |
-|<<a_api subproject="server" | module Eliom_reference >>|<<div class="odocwiki_info"|~Server side state data~, a~.k~.a ~Eliom references
+|<<a_api subproject="server" | module Eliom_registration.App >>|<<div class="odocwiki_info"|~Functor for application creation~.
 >>
 |
-|<<a_api subproject="server" | module Eliom_state >>|<<div class="odocwiki_info"|~Storing server~-side values for your applications or sessions~.
+|<<a_api subproject="server" | module Eliom_registration.File >>|<<div class="odocwiki_info"|~Eliom service registration for services that returns file
+    contents~.
+>>
+|
+|<<a_api subproject="server" | module Eliom_registration.Any >>|<<div class="odocwiki_info"|~Eliom service registration for services that choose dynamically
+    what they want to send~.
+>>
+|
+|<<a_api subproject="server" | module Eliom_registration.Redirection >>|<<div class="odocwiki_info"|~Eliom service registration for services that returns a
+    redirections towards another service~.
 >>
 |
 
@@ -59,45 +76,29 @@ file~.
 
 
 
-==@@id="2_Servicecreation"@@~Service creation==
+==@@id="2_Serversidestaterequestsmisc"@@~Server side state~, requests~, misc==
 
 
 
 
-|<<a_api subproject="server" | module Eliom_service >>|<<div class="odocwiki_info"|~Creation and manipulation of ~Eliom services~.
->>
-|
-|<<a_api subproject="server" | module Eliom_parameter >>||
-|<<a_api subproject="server" | module Eliom_registration >>|<<div class="odocwiki_info"|~Eliom services registration for various kinds of page content~:
-    ~Eliom application~, valid <<a_api subproject="server" | module Eliom_registration.Html >>~, actions~, redirections~, static
-    files~, ~.~.~.
->>
-|
-|<<a_api subproject="server" | module Eliom_registration.Html >>|<<div class="odocwiki_info"|~Eliom service registration for services that return ~H~T~M~L
-    pages~.
->>
-|
-|<<a_api subproject="server" | module Eliom_registration.Action >>|<<div class="odocwiki_info"|~Eliom service registration for services that only execute
-    actions~.
+|<<a_api subproject="server" | module Eliom_reference >>|<<div class="odocwiki_info"|~Server side state data~, a~.k~.a ~Eliom references
 >>
 |
-|<<a_api subproject="server" | module Eliom_registration.Ocaml >>|<<div class="odocwiki_info"|~Eliom service registration for services that send marshalled ~O~Caml
-    values~.
+|<<a_api subproject="server" | module Eliom_state >>|<<div class="odocwiki_info"|~Storing server~-side values for your applications or sessions~.
 >>
 |
-|<<a_api subproject="server" | module Eliom_registration.App >>|<<div class="odocwiki_info"|~Functor for application creation~.
+|<<a_api subproject="server" | module Eliom_config >>|<<div class="odocwiki_info"|~This module makes also possible get information from the configuration
+file~.
 >>
 |
-|<<a_api subproject="server" | module Eliom_registration.File >>|<<div class="odocwiki_info"|~Eliom service registration for services that returns file
-    contents~.
+|<<a_api subproject="server" | module Eliom_request_info >>|<<div class="odocwiki_info"|~This module contains the functions you need to get ~(or set~)
+    information about current request~.
 >>
 |
-|<<a_api subproject="server" | module Eliom_registration.Any >>|<<div class="odocwiki_info"|~Eliom service registration for services that choose dynamically
-    what they want to send~.
+|<<a_api subproject="server" | module Eliom_common >>|<<div class="odocwiki_info"|~Low level functions for ~Eliom~, exceptions and types~.
 >>
 |
-|<<a_api subproject="server" | module Eliom_registration.Redirection >>|<<div class="odocwiki_info"|~Eliom service registration for services that returns a
-    redirections towards another service~.
+|<<a_api subproject="server" | module Eliom_lib >>|<<div class="odocwiki_info"|~A few common functions used by ~Eliom~.
 >>
 |
 
@@ -110,6 +111,10 @@ file~.
 
 
 
+|<<a_api subproject="server" | module Eliom_client >>||
+|<<a_api subproject="server" | module Eliom_client_value >>|<<div class="odocwiki_info"|~Client and shared values
+>>
+|
 |<<a_api subproject="server" | module Eliom_shared >>|<<div class="odocwiki_info"|~This module implements shared ~(i~.e~.~, client~-server~) versions of
     the ~React and ~Reactive~Data libraries~.
 >>
diff --git a/doc/10.x/api/server/index_attributes.wiki b/doc/11.x/api/server/index_attributes.wiki
similarity index 100%
rename from doc/10.x/api/server/index_attributes.wiki
rename to doc/11.x/api/server/index_attributes.wiki
diff --git a/doc/10.x/api/server/index_class_types.wiki b/doc/11.x/api/server/index_class_types.wiki
similarity index 100%
rename from doc/10.x/api/server/index_class_types.wiki
rename to doc/11.x/api/server/index_class_types.wiki
diff --git a/doc/10.x/api/server/index_classes.wiki b/doc/11.x/api/server/index_classes.wiki
similarity index 100%
rename from doc/10.x/api/server/index_classes.wiki
rename to doc/11.x/api/server/index_classes.wiki
diff --git a/doc/10.x/api/server/index_exceptions.wiki b/doc/11.x/api/server/index_exceptions.wiki
similarity index 87%
rename from doc/10.x/api/server/index_exceptions.wiki
rename to doc/11.x/api/server/index_exceptions.wiki
index 53423cb8fd..1556d60c37 100644
--- a/doc/10.x/api/server/index_exceptions.wiki
+++ b/doc/11.x/api/server/index_exceptions.wiki
@@ -1,6 +1,9 @@
 =Index of exceptions=
 
 |@@ @style="tet-align: left;"@@\\C|
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="Cannot_call_this_function_before_app_is_linked_to_a_site"| exception Eliom_common.Cannot_call_this_function_before_app_is_linked_to_a_site >> ~[<<a_api subproject="server" | module Eliom_common >>~]|<<div class="odocwiki_info"|~Statically linked app~: ~You cannot call this function before <<span class="odocwiki_inlinecode"|~Eliom~_run>>~.
+>>
+|
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="Client_value_creation_invalid_context"| exception Eliom_client_value.Client_value_creation_invalid_context >> ~[<<a_api subproject="server" | module Eliom_client_value >>~]|<<div class="odocwiki_info"|~Raised if a client value of the given closure ~I~D is created at a
     point in time where it is neither global ~(i~.e~.
 >>
diff --git a/doc/10.x/api/server/index_methods.wiki b/doc/11.x/api/server/index_methods.wiki
similarity index 100%
rename from doc/10.x/api/server/index_methods.wiki
rename to doc/11.x/api/server/index_methods.wiki
diff --git a/doc/10.x/api/server/index_module_types.wiki b/doc/11.x/api/server/index_module_types.wiki
similarity index 100%
rename from doc/10.x/api/server/index_module_types.wiki
rename to doc/11.x/api/server/index_module_types.wiki
diff --git a/doc/10.x/api/server/index_modules.wiki b/doc/11.x/api/server/index_modules.wiki
similarity index 97%
rename from doc/10.x/api/server/index_modules.wiki
rename to doc/11.x/api/server/index_modules.wiki
index 384035c69a..a7844159c6 100644
--- a/doc/10.x/api/server/index_modules.wiki
+++ b/doc/11.x/api/server/index_modules.wiki
@@ -249,19 +249,11 @@ file~.
 |
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="RList"| module Eliom_shared.ReactiveData.RList >> ~[<<a_api subproject="server" | module Eliom_shared.ReactiveData >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="RList"| module Eliom_shared.FakeReactiveData.RList >> ~[<<a_api subproject="server" | module Eliom_shared.FakeReactiveData >>~]||
-|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="Raw"| module Eliom_content.Html.D.Raw >> ~[<<a_api subproject="server" | module Eliom_content.Html.D >>~]|<<div class="odocwiki_info"|~See <<a_api project="tyxml" | module Html_sigs.T >> ~.
->>
-|
-|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="Raw"| module Eliom_content.Html.F.Raw >> ~[<<a_api subproject="server" | module Eliom_content.Html.F >>~]|<<div class="odocwiki_info"|~See <<a_api project="tyxml" | module Html_sigs.T >> ~.
->>
-|
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="Raw"| module Eliom_content.Html.D.Raw >> ~[<<a_api subproject="server" | module Eliom_content.Html.D >>~]||
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="Raw"| module Eliom_content.Html.F.Raw >> ~[<<a_api subproject="server" | module Eliom_content.Html.F >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="Raw"| module Eliom_content.Svg.R.Raw >> ~[<<a_api subproject="server" | module Eliom_content.Svg.R >>~]||
-|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="Raw"| module Eliom_content.Svg.D.Raw >> ~[<<a_api subproject="server" | module Eliom_content.Svg.D >>~]|<<div class="odocwiki_info"|~See <<a_api project="tyxml" | module Html_sigs.T >> ~.
->>
-|
-|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="Raw"| module Eliom_content.Svg.F.Raw >> ~[<<a_api subproject="server" | module Eliom_content.Svg.F >>~]|<<div class="odocwiki_info"|~See <<a_api project="tyxml" | module Html_sigs.T >> ~.
->>
-|
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="Raw"| module Eliom_content.Svg.D.Raw >> ~[<<a_api subproject="server" | module Eliom_content.Svg.D >>~]||
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="Raw"| module Eliom_content.Svg.F.Raw >> ~[<<a_api subproject="server" | module Eliom_content.Svg.F >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="React"| module Eliom_shared.React >> ~[<<a_api subproject="server" | module Eliom_shared >>~]|<<div class="odocwiki_info"|~Shared implementation of ~React
 >>
 |
diff --git a/doc/10.x/api/server/index_types.wiki b/doc/11.x/api/server/index_types.wiki
similarity index 99%
rename from doc/10.x/api/server/index_types.wiki
rename to doc/11.x/api/server/index_types.wiki
index 3da61b891a..6f89b9b08f 100644
--- a/doc/10.x/api/server/index_types.wiki
+++ b/doc/11.x/api/server/index_types.wiki
@@ -152,9 +152,7 @@
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="main_page"| type Eliom_tools.main_page >> ~[<<a_api subproject="server" | module Eliom_tools >>~]|<<div class="odocwiki_info"|~Main page description for a section of a hierarchical site~.
 >>
 |
-|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="meth"| type Eliom_service_sigs.TYPES.meth >> ~[<<a_api subproject="server" | module Eliom_service_sigs.TYPES >>~]|<<div class="odocwiki_info"|**~Method specification datatype**
->>
-|
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="meth"| type Eliom_service_sigs.TYPES.meth >> ~[<<a_api subproject="server" | module Eliom_service_sigs.TYPES >>~]||
 |@@ @style="tet-align: left;"@@\\N|
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="nl_params_set"| type Eliom_parameter_sigs.S.nl_params_set >> ~[<<a_api subproject="server" | module Eliom_parameter_sigs.S >>~]|<<div class="odocwiki_info"|~Use this type to give non localized parameters to a link or a
       form
@@ -201,9 +199,7 @@
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="params_type"| type Eliom_parameter_sigs.S.params_type >> ~[<<a_api subproject="server" | module Eliom_parameter_sigs.S >>~]|<<div class="odocwiki_info"|~Abstract type for service parameters~.
 >>
 |
-|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="path_option"| type Eliom_service_sigs.S.path_option >> ~[<<a_api subproject="server" | module Eliom_service_sigs.S >>~]|<<div class="odocwiki_info"|**~Optional service path**
->>
-|
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="path_option"| type Eliom_service_sigs.S.path_option >> ~[<<a_api subproject="server" | module Eliom_service_sigs.S >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="persistent_cookie_info"| type Eliom_state.Ext.persistent_cookie_info >> ~[<<a_api subproject="server" | module Eliom_state.Ext >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="persistent_table"| type Eliom_state.persistent_table >> ~[<<a_api subproject="server" | module Eliom_state >>~]|<<div class="odocwiki_info"|~The type of persistent state data tables~.
 >>
@@ -310,7 +306,9 @@
 |
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="t"| type Eliom_shared_sigs.S.t >> ~[<<a_api subproject="server" | module Eliom_shared_sigs.S >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="t"| type Eliom_shared_sigs.VALUE.t >> ~[<<a_api subproject="server" | module Eliom_shared_sigs.VALUE >>~]||
-|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="t"| type Eliom_service_sigs.S.t >> ~[<<a_api subproject="server" | module Eliom_service_sigs.S >>~]|<<div class="odocwiki_info"|**~Type of services**
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="t"| type Eliom_service_sigs.S.t >> ~[<<a_api subproject="server" | module Eliom_service_sigs.S >>~]|<<div class="odocwiki_info"|~For a service
+      <<span class="odocwiki_inlinecode"|~(~'get~, ~'post~, ~'meth~, ~'attached~, ~'co~, ~'ext~, ~'reg~,
+        ~'tipo~, ~'gn~, ~'pn~, ~'ret~) t>>~:
 >>
 |
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="timeout"| type Eliom_state.Ext.timeout >> ~[<<a_api subproject="server" | module Eliom_state.Ext >>~]|<<div class="odocwiki_info"|~Type used to describe session timeouts
diff --git a/doc/10.x/api/server/index_values.wiki b/doc/11.x/api/server/index_values.wiki
similarity index 95%
rename from doc/10.x/api/server/index_values.wiki
rename to doc/11.x/api/server/index_values.wiki
index 6fed741960..461830cc23 100644
--- a/doc/10.x/api/server/index_values.wiki
+++ b/doc/11.x/api/server/index_values.wiki
@@ -18,6 +18,8 @@
 >>
 |
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="acc_e"| value Eliom_shared_sigs.RLIST.acc_e >> ~[<<a_api subproject="server" | module Eliom_shared_sigs.RLIST >>~]||
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="add_ignored_get_params"| value Eliom_config.add_ignored_get_params >> ~[<<a_api subproject="server" | module Eliom_config >>~]||
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="add_ignored_post_params"| value Eliom_config.add_ignored_post_params >> ~[<<a_api subproject="server" | module Eliom_config >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="add_nl_parameter"| value Eliom_parameter_sigs.S.add_nl_parameter >> ~[<<a_api subproject="server" | module Eliom_parameter_sigs.S >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="add_non_localized_get_parameters"| value Eliom_service_sigs.S.add_non_localized_get_parameters >> ~[<<a_api subproject="server" | module Eliom_service_sigs.S >>~]|<<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|add~_non~_localized~_get~_parameters ~~params ~~service>>
       ~Adds non localized ~G~E~T parameters <<span class="odocwiki_inlinecode"|params>> to <<span class="odocwiki_inlinecode"|service>>~.
@@ -136,7 +138,9 @@
       coordinates of a point in an <<span class="odocwiki_inlinecode"|~<input type~="image" ~.~.~.~>>>~.
 >>
 |
-|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="create"| value Eliom_service.create >> ~[<<a_api subproject="server" | module Eliom_service >>~]|<<div class="odocwiki_info"|**~Service definition**
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="create"| value Eliom_service.create >> ~[<<a_api subproject="server" | module Eliom_service >>~]|<<div class="odocwiki_info"|<<span class="odocwiki_inlinecode"|create ~~id ~~path ~(~)>> creates a service
+    ~(<<a_api subproject="server" | type Eliom_service_sigs.S.t >>~) identified as per <<span class="odocwiki_inlinecode"|path>> and accepting
+    parameters as per <<span class="odocwiki_inlinecode"|meth>>~.
 >>
 |
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="create"| value Eliom_cscache.create >> ~[<<a_api subproject="server" | module Eliom_cscache >>~]|<<div class="odocwiki_info"|~Create a new table~.
@@ -318,7 +322,6 @@
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="empty_wrapper"| value Eliom_wrap.empty_wrapper >> ~[<<a_api subproject="server" | module Eliom_wrap >>~]|<<div class="odocwiki_info"|a wrapper that do not change the value
 >>
 |
-|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="end_init"| value Eliom_registration.end_init >> ~[<<a_api subproject="server" | module Eliom_registration >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="equal_identity"| value Eliom_notif.ARG.equal_identity >> ~[<<a_api subproject="server" | module Eliom_notif.ARG >>~]|<<div class="odocwiki_info"|<<span class="odocwiki_inlinecode"|equal~_identity>> is the same as <<span class="odocwiki_inlinecode"|equal~_key>> but for values of type
       <<span class="odocwiki_inlinecode"|identity>>~.
 >>
@@ -347,7 +350,6 @@
     the process~.
 >>
 |
-|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="extension"| value Eliom_registration.extension >> ~[<<a_api subproject="server" | module Eliom_registration >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="extern"| value Eliom_service_sigs.S.extern >> ~[<<a_api subproject="server" | module Eliom_service_sigs.S >>~]|<<div class="odocwiki_info"|<<span class="odocwiki_inlinecode"|extern ~~prefix ~~path ~~meth ~(~)>> creates an external service~,
       i~.e~.~, a service implemented by a remote server ~(not necessarily
       running ~Ocsigen~/~Eliom~)~.
@@ -473,12 +475,13 @@
 >>
 |
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="get_default_hostname"| value Eliom_config.get_default_hostname >> ~[<<a_api subproject="server" | module Eliom_config >>~]|<<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|get~_default~_hostname ~(~)>>returns the hostname
-    declared in the config file ~(<<span class="odocwiki_inlinecode"|~<host defaulthostname~="~.~.~."~>>>~) or
-    the default machine hostname~.
+   declared in the config file ~(<<span class="odocwiki_inlinecode"|~<host defaulthostname~="~.~.~."~>>>~) or
+   the default machine hostname~.
 >>
 |
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="get_default_port"| value Eliom_config.get_default_port >> ~[<<a_api subproject="server" | module Eliom_config >>~]|<<div class="odocwiki_info"|~The function <<span class="odocwiki_inlinecode"|get~_default~_port ~(~)>> returns the port number
-    declared in the config file ~(<<span class="odocwiki_inlinecode"|~<host defaulthttpport~="~.~.~."~>>>~) or
+   declared in the config file ~(<<span class="odocwiki_inlinecode"|~<host defaulthttpport~="~.~.~."~>>>~) or
+   ~-~> unit
     ~8~0 if undeclared~.
 >>
 |
@@ -642,6 +645,9 @@
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="get_site_dir"| value Eliom_request_info.get_site_dir >> ~[<<a_api subproject="server" | module Eliom_request_info >>~]|<<div class="odocwiki_info"|returns the root of the site~.
 >>
 |
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="get_site_dir_option"| value Eliom_request_info.get_site_dir_option >> ~[<<a_api subproject="server" | module Eliom_request_info >>~]|<<div class="odocwiki_info"|returns the root of the site~.
+>>
+|
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="get_sitedata"| value Eliom_request_info.get_sitedata >> ~[<<a_api subproject="server" | module Eliom_request_info >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="get_ssl"| value Eliom_request_info.get_ssl >> ~[<<a_api subproject="server" | module Eliom_request_info >>~]|<<div class="odocwiki_info"|returns true if https is used~, false if http~.
 >>
@@ -1070,9 +1076,15 @@
       with the same name~.
 >>
 |
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_application_script"| value Eliom_config.set_application_script >> ~[<<a_api subproject="server" | module Eliom_config >>~]||
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_cache_global_data"| value Eliom_config.set_cache_global_data >> ~[<<a_api subproject="server" | module Eliom_config >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_cookie"| value Eliom_state.set_cookie >> ~[<<a_api subproject="server" | module Eliom_state >>~]|<<div class="odocwiki_info"|~Ask the browser to record a cookie~.
 >>
 |
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_data_session_gc_frequency"| value Eliom_config.set_data_session_gc_frequency >> ~[<<a_api subproject="server" | module Eliom_config >>~]|<<div class="odocwiki_info"|~Set frequency for garbage collection of in memory data sessions~.
+>>
+|
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_data_timeout"| value Eliom_config.set_data_timeout >> ~[<<a_api subproject="server" | module Eliom_config >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_default_global_persistent_data_state_timeout"| value Eliom_state.set_default_global_persistent_data_state_timeout >> ~[<<a_api subproject="server" | module Eliom_state >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_default_global_service_state_timeout"| value Eliom_state.set_default_global_service_state_timeout >> ~[<<a_api subproject="server" | module Eliom_state >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_default_global_volatile_data_state_timeout"| value Eliom_state.set_default_global_volatile_data_state_timeout >> ~[<<a_api subproject="server" | module Eliom_state >>~]||
@@ -1145,25 +1157,35 @@
     service session and volatile data session~)~.
 >>
 |
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_html_content_type"| value Eliom_config.set_html_content_type >> ~[<<a_api subproject="server" | module Eliom_config >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_ipv4_subnet_mask"| value Eliom_state.set_ipv4_subnet_mask >> ~[<<a_api subproject="server" | module Eliom_state >>~]|<<div class="odocwiki_info"|~Sets the mask for subnet ~(~I~P~V~4~)~.
 >>
 |
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_ipv6_subnet_mask"| value Eliom_state.set_ipv6_subnet_mask >> ~[<<a_api subproject="server" | module Eliom_state >>~]|<<div class="odocwiki_info"|~Sets the mask for subnet ~(~I~P~V~6~)~.
 >>
 |
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_max_anonymous_services_per_session"| value Eliom_config.set_max_anonymous_services_per_session >> ~[<<a_api subproject="server" | module Eliom_config >>~]||
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_max_persistent_data_sessions_per_group"| value Eliom_config.set_max_persistent_data_sessions_per_group >> ~[<<a_api subproject="server" | module Eliom_config >>~]||
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_max_persistent_data_tab_sessions_per_group"| value Eliom_config.set_max_persistent_data_tab_sessions_per_group >> ~[<<a_api subproject="server" | module Eliom_config >>~]||
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_max_service_sessions_per_group"| value Eliom_config.set_max_service_sessions_per_group >> ~[<<a_api subproject="server" | module Eliom_config >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_max_service_states_for_group_or_subnet"| value Eliom_state.set_max_service_states_for_group_or_subnet >> ~[<<a_api subproject="server" | module Eliom_state >>~]|<<div class="odocwiki_info"|~Sets the maximum number of service sessions in the current session
     group ~(or for the client sub network~, if there is no group~)~.
 >>
 |
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_max_service_tab_sessions_per_group"| value Eliom_config.set_max_service_tab_sessions_per_group >> ~[<<a_api subproject="server" | module Eliom_config >>~]||
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_max_volatile_data_sessions_per_group"| value Eliom_config.set_max_volatile_data_sessions_per_group >> ~[<<a_api subproject="server" | module Eliom_config >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_max_volatile_data_states_for_group_or_subnet"| value Eliom_state.set_max_volatile_data_states_for_group_or_subnet >> ~[<<a_api subproject="server" | module Eliom_state >>~]|<<div class="odocwiki_info"|~Sets the maximum number of volatile data sessions in the current session
     group ~(or for the client sub network~, if there is no group~)~.
 >>
 |
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_max_volatile_data_tab_sessions_per_group"| value Eliom_config.set_max_volatile_data_tab_sessions_per_group >> ~[<<a_api subproject="server" | module Eliom_config >>~]||
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_max_volatile_groups_per_site"| value Eliom_config.set_max_volatile_groups_per_site >> ~[<<a_api subproject="server" | module Eliom_config >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_max_volatile_states_for_group_or_subnet"| value Eliom_state.set_max_volatile_states_for_group_or_subnet >> ~[<<a_api subproject="server" | module Eliom_state >>~]|<<div class="odocwiki_info"|~Sets the maximum number of volatile sessions
     ~(both data and service sessions~) in the current
     group ~(or for the client sub network~, if there is no group~)~.
 >>
 |
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_omitpersistentstorage"| value Eliom_config.set_omitpersistentstorage >> ~[<<a_api subproject="server" | module Eliom_config >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_persistent_data"| value Eliom_state.Ext.Low_level.set_persistent_data >> ~[<<a_api subproject="server" | module Eliom_state.Ext.Low_level >>~]|<<div class="odocwiki_info"|~Fails with lwt exception <<span class="odocwiki_inlinecode"|~Not~_found>>
         if no data in the table for the cookie~.
 >>
@@ -1180,11 +1202,19 @@
    in seconds~.
 >>
 |
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_persistent_session_gc_frequency"| value Eliom_config.set_persistent_session_gc_frequency >> ~[<<a_api subproject="server" | module Eliom_config >>~]|<<div class="odocwiki_info"|~Set frequency for garbage collection of persistent data sessions~.
+>>
+|
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_persistent_timeout"| value Eliom_config.set_persistent_timeout >> ~[<<a_api subproject="server" | module Eliom_config >>~]||
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_secure_cookies"| value Eliom_config.set_secure_cookies >> ~[<<a_api subproject="server" | module Eliom_config >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_service_cookie_exp_date"| value Eliom_state.set_service_cookie_exp_date >> ~[<<a_api subproject="server" | module Eliom_state >>~]|<<div class="odocwiki_info"|~Sets the cookie expiration date for the current service state
     ~(see above~)~.
 >>
 |
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_service_cookie_timeout"| value Eliom_state.Ext.set_service_cookie_timeout >> ~[<<a_api subproject="server" | module Eliom_state.Ext >>~]||
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_service_session_gc_frequency"| value Eliom_config.set_service_session_gc_frequency >> ~[<<a_api subproject="server" | module Eliom_config >>~]|<<div class="odocwiki_info"|~Set frequency for garbage collection of service sessions~.
+>>
+|
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_service_session_group"| value Eliom_state.set_service_session_group >> ~[<<a_api subproject="server" | module Eliom_state >>~]|<<div class="odocwiki_info"|sets the group to which belong the service session~.
 >>
 |
@@ -1192,6 +1222,11 @@
    in seconds~.
 >>
 |
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_service_timeout"| value Eliom_config.set_service_timeout >> ~[<<a_api subproject="server" | module Eliom_config >>~]||
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_session_gc_frequency"| value Eliom_config.set_session_gc_frequency >> ~[<<a_api subproject="server" | module Eliom_config >>~]|<<div class="odocwiki_info"|~Set frequency 
+    for garnage collection of both in memory data and service sessions~.
+>>
+|
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_volatile_data"| value Eliom_state.Ext.Low_level.set_volatile_data >> ~[<<a_api subproject="server" | module Eliom_state.Ext.Low_level >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_volatile_data_cookie_exp_date"| value Eliom_state.set_volatile_data_cookie_exp_date >> ~[<<a_api subproject="server" | module Eliom_state >>~]|<<div class="odocwiki_info"|~Sets the cookie expiration date for the current data state ~(see
     above~)~.
@@ -1205,6 +1240,7 @@
    in seconds~.
 >>
 |
+|@@class="odocwiki_index"@ @@<<a_api subproject="server" text="set_volatile_timeout"| value Eliom_config.set_volatile_timeout >> ~[<<a_api subproject="server" | module Eliom_config >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="signal"| value Eliom_shared_sigs.RLIST.signal >> ~[<<a_api subproject="server" | module Eliom_shared_sigs.RLIST >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="singleton_s"| value Eliom_shared_sigs.RLIST.singleton_s >> ~[<<a_api subproject="server" | module Eliom_shared_sigs.RLIST >>~]||
 |@@class="odocwiki_index"@ @@<<a_api subproject="server" text="site_scope"| value Eliom_common.site_scope >> ~[<<a_api subproject="server" | module Eliom_common >>~]||
diff --git a/doc/10.x/api/server/menu.wiki b/doc/11.x/api/server/menu.wiki
similarity index 80%
rename from doc/10.x/api/server/menu.wiki
rename to doc/11.x/api/server/menu.wiki
index 001e64cccd..9054e1ce5f 100644
--- a/doc/10.x/api/server/menu.wiki
+++ b/doc/11.x/api/server/menu.wiki
@@ -1,18 +1,4 @@
 =~Server ~A~P~I
-==[[server/Eliom_lib|Eliom_lib]]
-==[[server/Eliom_client|Eliom_client]]
-==[[server/Eliom_client_value|Eliom_client_value]]
-==[[server/Eliom_common|Eliom_common]]
-==[[server/Eliom_config|Eliom_config]]
-==[[server/Eliom_request_info|Eliom_request_info]]
-==[[server/Eliom_reference|Eliom_reference]]
-==[[server/Eliom_state|Eliom_state]]
-==~Content and form creation
-===[[server/Eliom_content|Eliom_content]]
-===[[server/Eliom_content.Html|Eliom_content.Html]]
-===[[server/Eliom_content.Svg|Eliom_content.Svg]]
-===[[server/Eliom_content.Xml|Eliom_content.Xml]]
-===[[server/Eliom_tools|Eliom_tools]]
 ==~Service creation
 ===[[server/Eliom_service|Eliom_service]]
 ===[[server/Eliom_parameter|Eliom_parameter]]
@@ -24,7 +10,22 @@
 ===[[server/Eliom_registration.File|Eliom_registration.File]]
 ===[[server/Eliom_registration.Any|Eliom_registration.Any]]
 ===[[server/Eliom_registration.Redirection|Eliom_registration.Redirection]]
+==~Content and form creation
+===[[server/Eliom_content|Eliom_content]]
+===[[server/Eliom_content.Html|Eliom_content.Html]]
+===[[server/Eliom_content.Svg|Eliom_content.Svg]]
+===[[server/Eliom_content.Xml|Eliom_content.Xml]]
+===[[server/Eliom_tools|Eliom_tools]]
+==~Server side state~, requests~, misc
+===[[server/Eliom_reference|Eliom_reference]]
+===[[server/Eliom_state|Eliom_state]]
+===[[server/Eliom_config|Eliom_config]]
+===[[server/Eliom_request_info|Eliom_request_info]]
+===[[server/Eliom_common|Eliom_common]]
+===[[server/Eliom_lib|Eliom_lib]]
 ==~Client~/server communication
+===[[server/Eliom_client|Eliom_client]]
+===[[server/Eliom_client_value|Eliom_client_value]]
 ===[[server/Eliom_shared|Eliom_shared]]
 ===[[server/Eliom_notif|Eliom_notif]]
 ===[[server/Eliom_cscache|Eliom_cscache]]
diff --git a/doc/10.x/api/server/type_Eliom_bus.wiki b/doc/11.x/api/server/type_Eliom_bus.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_bus.wiki
rename to doc/11.x/api/server/type_Eliom_bus.wiki
diff --git a/doc/10.x/api/server/type_Eliom_client.wiki b/doc/11.x/api/server/type_Eliom_client.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_client.wiki
rename to doc/11.x/api/server/type_Eliom_client.wiki
diff --git a/doc/10.x/api/server/type_Eliom_client_value.wiki b/doc/11.x/api/server/type_Eliom_client_value.wiki
similarity index 94%
rename from doc/10.x/api/server/type_Eliom_client_value.wiki
rename to doc/11.x/api/server/type_Eliom_client_value.wiki
index d17e74922c..07e32b255f 100644
--- a/doc/10.x/api/server/type_Eliom_client_value.wiki
+++ b/doc/11.x/api/server/type_Eliom_client_value.wiki
@@ -2,7 +2,7 @@
   type +'a t
   exception Client_value_creation_invalid_context of string
   val create_client_value :
-    ?loc:Eliom_lib.pos ->
+    loc:Eliom_lib.pos option ->
     instance_id:int -> 'a Eliom_runtime.Client_value_server_repr.t
   val client_value_from_server_repr :
     'a Eliom_runtime.Client_value_server_repr.t -> 'a Eliom_client_value.t
diff --git a/doc/10.x/api/server/type_Eliom_comet.Channel.wiki b/doc/11.x/api/server/type_Eliom_comet.Channel.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_comet.Channel.wiki
rename to doc/11.x/api/server/type_Eliom_comet.Channel.wiki
diff --git a/doc/10.x/api/server/type_Eliom_comet.wiki b/doc/11.x/api/server/type_Eliom_comet.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_comet.wiki
rename to doc/11.x/api/server/type_Eliom_comet.wiki
diff --git a/doc/10.x/api/server/type_Eliom_common.Full_state_name_table.wiki b/doc/11.x/api/server/type_Eliom_common.Full_state_name_table.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_common.Full_state_name_table.wiki
rename to doc/11.x/api/server/type_Eliom_common.Full_state_name_table.wiki
diff --git a/doc/10.x/api/server/type_Eliom_common.Ocsipersist.wiki b/doc/11.x/api/server/type_Eliom_common.Ocsipersist.wiki
similarity index 83%
rename from doc/10.x/api/server/type_Eliom_common.Ocsipersist.wiki
rename to doc/11.x/api/server/type_Eliom_common.Ocsipersist.wiki
index b94027a3f5..9e52c4cada 100644
--- a/doc/10.x/api/server/type_Eliom_common.Ocsipersist.wiki
+++ b/doc/11.x/api/server/type_Eliom_common.Ocsipersist.wiki
@@ -3,7 +3,9 @@
   module type TABLE = Ocsipersist_lib.Sigs.TABLE
   module Polymorphic : Ocsipersist_lib.Sigs.POLYMORPHIC
   type 'value table = 'value Polymorphic.table
+  module Ref : Ocsipersist_lib.Sigs.REF
   module Store : Ocsipersist_lib.Sigs.STORE
   type store = Store.store
   type 'a variable = 'a Store.t
+  val init : unit -> unit
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/server/type_Eliom_common.wiki b/doc/11.x/api/server/type_Eliom_common.wiki
similarity index 98%
rename from doc/10.x/api/server/type_Eliom_common.wiki
rename to doc/11.x/api/server/type_Eliom_common.wiki
index 70090aaaae..931b71b40f 100644
--- a/doc/10.x/api/server/type_Eliom_common.wiki
+++ b/doc/11.x/api/server/type_Eliom_common.wiki
@@ -5,9 +5,11 @@
       module type TABLE = Ocsipersist_lib.Sigs.TABLE
       module Polymorphic : Ocsipersist_lib.Sigs.POLYMORPHIC
       type 'value table = 'value Polymorphic.table
+      module Ref : Ocsipersist_lib.Sigs.REF
       module Store : Ocsipersist_lib.Sigs.STORE
       type store = Store.store
       type 'a variable = 'a Store.t
+      val init : unit -> unit
     end
   type scope_hierarchy = Eliom_common_base.scope_hierarchy
   type cookie_scope =
@@ -61,6 +63,7 @@
   exception Eliom_Session_expired
   exception Eliom_Typing_Error of (string * exn) list
   exception Eliom_site_information_not_available of string
+  exception Cannot_call_this_function_before_app_is_linked_to_a_site
   type full_state_name = {
     user_scope : Eliom_common.user_scope;
     secure : bool;
@@ -240,7 +243,7 @@
       val filter_map_inplace : (key -> 'a -> 'a option) -> 'a t -> unit
       val fold : (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b
       val length : 'a t -> int
-      val stats : 'a t -> Hashtbl.statistics
+      val stats : 'a t -> Stdlib__Hashtbl.statistics
       val to_seq : 'a t -> (key * 'a) Seq.t
       val to_seq_keys : 'a t -> key Seq.t
       val to_seq_values : 'a t -> 'a Seq.t
@@ -516,9 +519,9 @@
       Eliom_lib.leftright Ocsigen_cache.Dlist.node;
   }
   and sitedata = {
-    site_dir : Eliom_lib.Url.path;
-    site_dir_string : string;
-    config_info : Ocsigen_extensions.config_info;
+    mutable site_dir : Eliom_lib.Url.path option;
+    mutable site_dir_string : string option;
+    mutable config_info : Ocsigen_extensions.config_info option;
     default_links_xhr : bool Eliom_common.tenable_value;
     mutable servtimeout :
       (float option * bool) option * (float option * bool) option *
@@ -631,9 +634,6 @@
   val remove_unregistered_na :
     Eliom_common.sitedata -> Eliom_common.na_key_serv -> unit
   val verify_all_registered : Eliom_common.sitedata -> unit
-  val during_eliom_module_loading : unit -> bool
-  val begin_load_eliom_module : unit -> unit
-  val end_load_eliom_module : unit -> unit
   val global_register_allowed :
     unit -> (unit -> Eliom_common.sitedata) option
   val get_site_data : unit -> Eliom_common.sitedata
@@ -705,6 +705,8 @@
   }
   val get_site_dir : Eliom_common.sitedata -> Eliom_lib.Url.path
   val get_site_dir_string : Eliom_common.sitedata -> string
+  val get_config_info :
+    Eliom_common.sitedata -> Ocsigen_extensions.config_info
   val get_secure :
     secure_o:bool option -> sitedata:Eliom_common.sitedata -> unit -> bool
   val is_client_app : bool Stdlib.ref
@@ -722,4 +724,8 @@
         'a Eliom_common.To_and_of_shared.t -> 'a Eliom_common.to_and_of
     end
   val client_html_file : unit -> string
+  val default_app_name : string
+  val current_app_name : string Stdlib.ref
+  val get_app_name : unit -> string
+  val defer : (unit -> 'a option) -> ('a -> 'b) -> 'b option Stdlib.ref
 end >>
\ No newline at end of file
diff --git a/doc/11.x/api/server/type_Eliom_config.wiki b/doc/11.x/api/server/type_Eliom_config.wiki
new file mode 100644
index 0000000000..d8848fbc60
--- /dev/null
+++ b/doc/11.x/api/server/type_Eliom_config.wiki
@@ -0,0 +1,51 @@
+<<code language="ocaml" | sig
+  val set_session_gc_frequency : int option -> unit
+  val set_service_session_gc_frequency : int option -> unit
+  val set_data_session_gc_frequency : int option -> unit
+  val set_persistent_session_gc_frequency : int option -> unit
+  val set_volatile_timeout :
+    ?scope_hierarchy:Eliom_common.scope_hierarchy ->
+    cookie_level:[< `Client_process | `Session ] -> int option -> unit
+  val set_data_timeout :
+    ?scope_hierarchy:Eliom_common.scope_hierarchy ->
+    cookie_level:[< `Client_process | `Session ] -> int option -> unit
+  val set_service_timeout :
+    ?scope_hierarchy:Eliom_common.scope_hierarchy ->
+    cookie_level:[< `Client_process | `Session ] -> int option -> unit
+  val set_persistent_timeout :
+    ?scope_hierarchy:Eliom_common.scope_hierarchy ->
+    cookie_level:[< `Client_process | `Session ] -> int option -> unit
+  val set_max_service_sessions_per_group : int -> unit
+  val set_max_volatile_data_sessions_per_group : int -> unit
+  val set_max_persistent_data_sessions_per_group : int -> unit
+  val set_max_service_tab_sessions_per_group : int -> unit
+  val set_max_volatile_data_tab_sessions_per_group : int -> unit
+  val set_max_persistent_data_tab_sessions_per_group : int -> unit
+  val set_max_anonymous_services_per_session : int -> unit
+  val set_max_volatile_groups_per_site : int -> unit
+  val set_secure_cookies : bool -> unit
+  val set_application_script : bool * bool -> unit
+  val set_cache_global_data : (Eliom_lib.Url.path * int) option -> unit
+  val set_html_content_type : string -> unit
+  val add_ignored_get_params : string * Re.re -> unit
+  val add_ignored_post_params : string * Re.re -> unit
+  val set_omitpersistentstorage :
+    Eliom_common.omitpersistentstorage_rule list option -> unit
+  val get_default_hostname : unit -> string
+  val get_default_port : unit -> int
+  val get_default_sslport : unit -> int
+  val default_protocol_is_https : unit -> bool
+  val get_config_default_charset : unit -> string
+  val set_default_links_xhr : ?override_configfile:bool -> bool -> unit
+  val get_default_links_xhr : unit -> bool
+  val get_config : unit -> Xml.xml list
+  val parse_config :
+    ?pcdata:(string -> unit) ->
+    ?other_elements:(string -> (string * string) list -> Xml.xml list -> unit) ->
+    Ocsigen_extensions.Configuration.element list -> unit
+  val get_config_info : unit -> Ocsigen_extensions.config_info
+  val get_debugmode : unit -> bool
+  val get_config_info_sp :
+    Eliom_common.server_params -> Ocsigen_extensions.config_info
+  val get_config_default_charset_sp : Eliom_common.server_params -> string
+end >>
\ No newline at end of file
diff --git a/doc/10.x/api/server/type_Eliom_content.Html.C.wiki b/doc/11.x/api/server/type_Eliom_content.Html.C.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_content.Html.C.wiki
rename to doc/11.x/api/server/type_Eliom_content.Html.C.wiki
diff --git a/doc/10.x/api/server/type_Eliom_content.Html.Custom_data.wiki b/doc/11.x/api/server/type_Eliom_content.Html.Custom_data.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_content.Html.Custom_data.wiki
rename to doc/11.x/api/server/type_Eliom_content.Html.Custom_data.wiki
diff --git a/doc/10.x/api/server/type_Eliom_content.Html.D.Raw.wiki b/doc/11.x/api/server/type_Eliom_content.Html.D.Raw.wiki
similarity index 84%
rename from doc/10.x/api/server/type_Eliom_content.Html.D.Raw.wiki
rename to doc/11.x/api/server/type_Eliom_content.Html.D.Raw.wiki
index 87f6260c65..33caf70750 100644
--- a/doc/10.x/api/server/type_Eliom_content.Html.D.Raw.wiki
+++ b/doc/11.x/api/server/type_Eliom_content.Html.D.Raw.wiki
@@ -69,83 +69,10 @@
   val a_title : Html_types.text wrap -> [> `Title ] attrib
   val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
   val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-  val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-  val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
-  val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
-  val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
-  val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-  val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-  val a_oncanplaythrough : Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-  val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-  val a_ondurationchange : Xml.event_handler -> [> `OnDurationChange ] attrib
-  val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-  val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-  val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-  val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-  val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
-  val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
-  val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
-  val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-  val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-  val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
-  val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-  val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-  val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-  val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-  val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-  val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-  val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-  val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-  val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-  val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
-  val a_onreadystatechange :
-    Xml.event_handler -> [> `OnReadyStateChange ] attrib
-  val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-  val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-  val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-  val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-  val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-  val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-  val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-  val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-  val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-  val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-  val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-  val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
-  val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-  val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-  val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
-  val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-  val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-  val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
-  val a_onloadedmetadata : Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-  val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
-  val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-  val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-  val a_oncontextmenu : Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-  val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-  val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-  val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-  val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-  val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-  val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-  val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-  val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-  val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-  val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-  val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-  val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-  val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-  val a_ontouchstart : Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-  val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-  val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-  val a_ontouchcancel : Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-  val a_onkeypress : Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-  val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-  val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
   val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
   val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-  val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+  val a_autocomplete :
+    Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
   val a_async : unit -> [> `Async ] attrib
   val a_autofocus : unit -> [> `Autofocus ] attrib
   val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -244,7 +171,7 @@
   val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
   val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
   val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-  val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+  val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
   val a_multiple : unit -> [> `Multiple ] attrib
   val a_name : Html_types.text wrap -> [> `Name ] attrib
   val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -285,6 +212,7 @@
   val a_readonly : unit -> [> `ReadOnly ] attrib
   val a_button_type :
     [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+  val a_script_type : Html_types.script_type wrap -> [> `Script_type ] attrib
   val a_command_type :
     [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
   val a_menu_type : [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
@@ -343,8 +271,8 @@
      [> Html_types.body ])
     star
   val svg :
-    ?a:[< Html_types.svg_attrib ] Svg.D.Raw.attrib list ->
-    [< Html_types.svg_content ] Svg.D.Raw.elt list_wrap ->
+    ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+    [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
     [> Html_types.svg ] elt
   val footer :
     ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
@@ -418,6 +346,10 @@
     ([< Html_types.blockquote_attrib ],
      [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
     star
+  val dialog :
+    ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+     [> Html_types.dialog ])
+    star
   val div :
     ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
      [> Html_types.div ])
@@ -596,6 +528,7 @@
       | `OnCanPlayThrough
       | `OnChange
       | `OnClick
+      | `OnClose
       | `OnContextMenu
       | `OnDblClick
       | `OnDrag
@@ -845,4 +778,78 @@
       val space_sep_attrib : string -> string list wrap -> 'a attrib
       val comma_sep_attrib : string -> string list wrap -> 'a attrib
     end
+  val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+  val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+  val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+  val a_onbeforeunload : string -> [> `OnBeforeUnload ] Raw'.attrib
+  val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+  val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+  val a_oncanplaythrough : string -> [> `OnCanPlayThrough ] Raw'.attrib
+  val a_onchange : string -> [> `OnChange ] Raw'.attrib
+  val a_onclose : string -> [> `OnClose ] Raw'.attrib
+  val a_ondurationchange : string -> [> `OnDurationChange ] Raw'.attrib
+  val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+  val a_onended : string -> [> `OnEnded ] Raw'.attrib
+  val a_onerror : string -> [> `OnError ] Raw'.attrib
+  val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+  val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+  val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+  val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+  val a_oninput : string -> [> `OnInput ] Raw'.attrib
+  val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+  val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+  val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+  val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+  val a_onpause : string -> [> `OnPause ] Raw'.attrib
+  val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+  val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+  val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+  val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+  val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+  val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+  val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+  val a_onreadystatechange : string -> [> `OnReadyStateChange ] Raw'.attrib
+  val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+  val a_onresize : string -> [> `OnResize ] Raw'.attrib
+  val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+  val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+  val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+  val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+  val a_onshow : string -> [> `OnShow ] Raw'.attrib
+  val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+  val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+  val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+  val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+  val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+  val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+  val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+  val a_onvolumechange : string -> [> `OnVolumeChange ] Raw'.attrib
+  val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+  val a_onload : string -> [> `OnLoad ] Raw'.attrib
+  val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+  val a_onloadedmetadata : string -> [> `OnLoadedMetaData ] Raw'.attrib
+  val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+  val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+  val a_onclick : string -> [> `OnClick ] Raw'.attrib
+  val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+  val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+  val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+  val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+  val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+  val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+  val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+  val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+  val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+  val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+  val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+  val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+  val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+  val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+  val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+  val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+  val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+  val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+  val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+  val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+  val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/client/type_Eliom_content.Html.D.wiki b/doc/11.x/api/server/type_Eliom_content.Html.D.wiki
similarity index 67%
rename from doc/10.x/api/client/type_Eliom_content.Html.D.wiki
rename to doc/11.x/api/server/type_Eliom_content.Html.D.wiki
index 5789c67a56..e07369f051 100644
--- a/doc/10.x/api/client/type_Eliom_content.Html.D.wiki
+++ b/doc/11.x/api/server/type_Eliom_content.Html.D.wiki
@@ -1,4 +1,890 @@
 <<code language="ocaml" | sig
+  module Raw' :
+    sig
+      type 'a elt = 'a elt
+      type doc = Html_types.html elt
+      type 'a attrib = 'a attrib
+      module Xml :
+        sig
+          module W :
+            sig
+              type 'a t = 'a Xml.W.t
+              val return : 'a -> 'a t
+              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+              val fmap : ('a, 'b) ft -> 'a t -> 'b t
+              type 'a tlist = 'a Xml.W.tlist
+              val nil : unit -> 'a tlist
+              val singleton : 'a t -> 'a tlist
+              val cons : 'a t -> 'a tlist -> 'a tlist
+              val append : 'a tlist -> 'a tlist -> 'a tlist
+              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+            end
+          type 'a wrap = 'a W.t
+          type 'a list_wrap = 'a W.tlist
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) W.ft
+          val uri_of_string : (string, uri) W.ft
+          type aname = string
+          type event_handler = Xml.event_handler
+          type mouse_event_handler = Xml.mouse_event_handler
+          type keyboard_event_handler = Xml.keyboard_event_handler
+          type touch_event_handler = Xml.touch_event_handler
+          type attrib = Xml.attrib
+          val float_attrib : aname -> float wrap -> attrib
+          val int_attrib : aname -> int wrap -> attrib
+          val string_attrib : aname -> string wrap -> attrib
+          val space_sep_attrib : aname -> string list wrap -> attrib
+          val comma_sep_attrib : aname -> string list wrap -> attrib
+          val event_handler_attrib : aname -> event_handler -> attrib
+          val mouse_event_handler_attrib :
+            aname -> mouse_event_handler -> attrib
+          val keyboard_event_handler_attrib :
+            aname -> keyboard_event_handler -> attrib
+          val touch_event_handler_attrib :
+            aname -> touch_event_handler -> attrib
+          val uri_attrib : aname -> uri wrap -> attrib
+          val uris_attrib : aname -> uri list wrap -> attrib
+          type elt = Xml.elt
+          type ename = string
+          val empty : unit -> elt
+          val comment : string -> elt
+          val pcdata : string wrap -> elt
+          val encodedpcdata : string wrap -> elt
+          val entity : string -> elt
+          val leaf : ?a:attrib list -> ename -> elt
+          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+          val cdata : string -> elt
+          val cdata_script : string -> elt
+          val cdata_style : string -> elt
+        end
+      type 'a wrap = 'a Xml.W.t
+      type 'a list_wrap = 'a Xml.W.tlist
+      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
+      type ('a, 'b, 'c) star =
+          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+      module Info : Xml_sigs.Info
+      type uri = Xml.uri
+      val string_of_uri : (uri, string) Xml.W.ft
+      val uri_of_string : (string, uri) Xml.W.ft
+      val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+      val a_user_data :
+        Html_types.nmtoken -> Html_types.text wrap -> [> `User_data ] attrib
+      val a_id : Html_types.text wrap -> [> `Id ] attrib
+      val a_title : Html_types.text wrap -> [> `Title ] attrib
+      val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
+      val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
+      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+      val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
+      val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
+      val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
+      val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
+      val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
+      val a_oncanplaythrough :
+        Xml.event_handler -> [> `OnCanPlayThrough ] attrib
+      val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+      val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
+      val a_ondurationchange :
+        Xml.event_handler -> [> `OnDurationChange ] attrib
+      val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
+      val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
+      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+      val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
+      val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
+      val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
+      val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
+      val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
+      val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
+      val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
+      val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
+      val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
+      val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
+      val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
+      val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
+      val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
+      val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
+      val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
+      val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
+      val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
+      val a_onreadystatechange :
+        Xml.event_handler -> [> `OnReadyStateChange ] attrib
+      val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
+      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+      val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
+      val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
+      val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
+      val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
+      val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
+      val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
+      val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
+      val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
+      val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
+      val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
+      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+      val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
+      val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
+      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+      val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
+      val a_onloadedmetadata :
+        Xml.event_handler -> [> `OnLoadedMetaData ] attrib
+      val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
+      val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
+      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+      val a_oncontextmenu :
+        Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
+      val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
+      val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
+      val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
+      val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
+      val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
+      val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
+      val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
+      val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
+      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+      val a_ontouchstart :
+        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+      val a_ontouchcancel :
+        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+      val a_onkeypress :
+        Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
+      val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
+      val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+      val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
+      val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
+      val a_autocomplete :
+        Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
+      val a_async : unit -> [> `Async ] attrib
+      val a_autofocus : unit -> [> `Autofocus ] attrib
+      val a_autoplay : unit -> [> `Autoplay ] attrib
+      val a_muted : unit -> [> `Muted ] attrib
+      val a_crossorigin :
+        [< `Anonymous | `Use_credentials ] wrap -> [> `Crossorigin ] attrib
+      val a_integrity : string wrap -> [> `Integrity ] attrib
+      val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
+      val a_challenge : Html_types.text wrap -> [> `Challenge ] attrib
+      val a_contenteditable : bool wrap -> [> `Contenteditable ] attrib
+      val a_contextmenu : Html_types.idref wrap -> [> `Contextmenu ] attrib
+      val a_controls : unit -> [> `Controls ] attrib
+      val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
+      val a_draggable : bool wrap -> [> `Draggable ] attrib
+      val a_form : Html_types.idref wrap -> [> `Form ] attrib
+      val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
+      val a_formenctype :
+        Html_types.contenttype wrap -> [> `Formenctype ] attrib
+      val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
+      val a_formtarget : Html_types.text wrap -> [> `Formtarget ] attrib
+      val a_hidden : unit -> [> `Hidden ] attrib
+      val a_high : Html_types.float_number wrap -> [> `High ] attrib
+      val a_icon : Xml.uri wrap -> [> `Icon ] attrib
+      val a_ismap : unit -> [> `Ismap ] attrib
+      val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
+      val a_list : Html_types.idref wrap -> [> `List ] attrib
+      val a_loop : unit -> [> `Loop ] attrib
+      val a_low : Html_types.float_number wrap -> [> `High ] attrib
+      val a_max : Html_types.float_number wrap -> [> `Max ] attrib
+      val a_input_max :
+        Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
+      val a_min : Html_types.float_number wrap -> [> `Min ] attrib
+      val a_input_min :
+        Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
+      val a_inputmode :
+        [< `Decimal
+         | `Email
+         | `None
+         | `Numeric
+         | `Search
+         | `Tel
+         | `Text
+         | `Url ]
+        wrap -> [> `Inputmode ] attrib
+      val a_novalidate : unit -> [> `Novalidate ] attrib
+      val a_open : unit -> [> `Open ] attrib
+      val a_optimum : Html_types.float_number wrap -> [> `Optimum ] attrib
+      val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
+      val a_placeholder : Html_types.text wrap -> [> `Placeholder ] attrib
+      val a_poster : Xml.uri wrap -> [> `Poster ] attrib
+      val a_preload :
+        [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
+      val a_pubdate : unit -> [> `Pubdate ] attrib
+      val a_radiogroup : Html_types.text wrap -> [> `Radiogroup ] attrib
+      val a_referrerpolicy :
+        Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
+      val a_required : unit -> [> `Required ] attrib
+      val a_reversed : unit -> [> `Reversed ] attrib
+      val a_sandbox :
+        [< Html_types.sandbox_token ] list wrap -> [> `Sandbox ] attrib
+      val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
+      val a_scoped : unit -> [> `Scoped ] attrib
+      val a_seamless : unit -> [> `Seamless ] attrib
+      val a_sizes :
+        (Html_types.number * Html_types.number) list option wrap ->
+        [> `Sizes ] attrib
+      val a_span : Html_types.number wrap -> [> `Span ] attrib
+      val a_srclang : Html_types.nmtoken wrap -> [> `XML_lang ] attrib
+      type image_candidate =
+          [ `Url of uri
+          | `Url_pixel of uri * Html_types.float_number
+          | `Url_width of uri * Html_types.number ]
+      val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
+      val a_img_sizes : Html_types.text list wrap -> [> `Img_sizes ] attrib
+      val a_start : Html_types.number wrap -> [> `Start ] attrib
+      val a_step : Html_types.float_number option wrap -> [> `Step ] attrib
+      val a_translate : [< `No | `Yes ] wrap -> [> `Translate ] attrib
+      val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
+      val a_version : Html_types.cdata wrap -> [> `Version ] attrib
+      val a_xmlns : [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
+      val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
+      val a_cite : Xml.uri wrap -> [> `Cite ] attrib
+      val a_xml_space :
+        [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
+      val a_accesskey : Html_types.character wrap -> [> `Accesskey ] attrib
+      val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
+      val a_accept_charset :
+        Html_types.charsets wrap -> [> `Accept_charset ] attrib
+      val a_accept : Html_types.contenttypes wrap -> [> `Accept ] attrib
+      val a_href : Xml.uri wrap -> [> `Href ] attrib
+      val a_hreflang : Html_types.languagecode wrap -> [> `Hreflang ] attrib
+      val a_download : string option wrap -> [> `Download ] attrib
+      val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
+      val a_tabindex : Html_types.number wrap -> [> `Tabindex ] attrib
+      val a_mime_type : Html_types.contenttype wrap -> [> `Mime_type ] attrib
+      val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
+      val a_action : Xml.uri wrap -> [> `Action ] attrib
+      val a_checked : unit -> [> `Checked ] attrib
+      val a_cols : Html_types.number wrap -> [> `Cols ] attrib
+      val a_enctype : Html_types.contenttype wrap -> [> `Enctype ] attrib
+      val a_label_for : Html_types.idref wrap -> [> `Label_for ] attrib
+      val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
+      val a_output_for : Html_types.idrefs wrap -> [> `Output_for ] attrib
+      val a_for_list : Html_types.idrefs wrap -> [> `Output_for ] attrib
+      val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
+      val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
+      val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
+      val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
+      val a_multiple : unit -> [> `Multiple ] attrib
+      val a_name : Html_types.text wrap -> [> `Name ] attrib
+      val a_rows : Html_types.number wrap -> [> `Rows ] attrib
+      val a_selected : unit -> [> `Selected ] attrib
+      val a_size : Html_types.number wrap -> [> `Size ] attrib
+      val a_src : Xml.uri wrap -> [> `Src ] attrib
+      val a_input_type :
+        [< `Button
+         | `Checkbox
+         | `Color
+         | `Date
+         | `Datetime
+         | `Datetime_local
+         | `Email
+         | `File
+         | `Hidden
+         | `Image
+         | `Month
+         | `Number
+         | `Password
+         | `Radio
+         | `Range
+         | `Reset
+         | `Search
+         | `Submit
+         | `Tel
+         | `Text
+         | `Time
+         | `Url
+         | `Week ]
+        wrap -> [> `Input_Type ] attrib
+      val a_text_value : Html_types.text wrap -> [> `Text_Value ] attrib
+      val a_int_value : Html_types.number wrap -> [> `Int_Value ] attrib
+      val a_value : Html_types.cdata wrap -> [> `Value ] attrib
+      val a_float_value :
+        Html_types.float_number wrap -> [> `Float_Value ] attrib
+      val a_disabled : unit -> [> `Disabled ] attrib
+      val a_readonly : unit -> [> `ReadOnly ] attrib
+      val a_button_type :
+        [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+      val a_script_type :
+        Html_types.script_type wrap -> [> `Script_type ] attrib
+      val a_command_type :
+        [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
+      val a_menu_type :
+        [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
+      val a_label : Html_types.text wrap -> [> `Label ] attrib
+      val a_align :
+        [< `Char | `Justify | `Left | `Right ] wrap -> [> `Align ] attrib
+      val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
+      val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
+      val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
+      val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
+      val a_scope :
+        [< `Col | `Colgroup | `Row | `Rowgroup ] wrap -> [> `Scope ] attrib
+      val a_summary : Html_types.text wrap -> [> `Summary ] attrib
+      val a_border : Html_types.pixels wrap -> [> `Border ] attrib
+      val a_rules :
+        [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
+        [> `Rules ] attrib
+      val a_char : Html_types.character wrap -> [> `Char ] attrib
+      val a_alt : Html_types.text wrap -> [> `Alt ] attrib
+      val a_height : Html_types.number wrap -> [> `Height ] attrib
+      val a_width : Html_types.number wrap -> [> `Width ] attrib
+      type shape = [ `Circle | `Default | `Poly | `Rect ]
+      val a_shape : shape wrap -> [> `Shape ] attrib
+      val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
+      val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
+      val a_data : Xml.uri wrap -> [> `Data ] attrib
+      val a_codetype : Html_types.contenttype wrap -> [> `Codetype ] attrib
+      val a_frameborder : [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
+      val a_marginheight :
+        Html_types.pixels wrap -> [> `Marginheight ] attrib
+      val a_marginwidth : Html_types.pixels wrap -> [> `Marginwidth ] attrib
+      val a_scrolling :
+        [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
+      val a_target : Html_types.frametarget wrap -> [> `Target ] attrib
+      val a_content : Html_types.text wrap -> [> `Content ] attrib
+      val a_http_equiv : Html_types.text wrap -> [> `Http_equiv ] attrib
+      val a_defer : unit -> [> `Defer ] attrib
+      val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
+      val a_style : string wrap -> [> `Style_Attr ] attrib
+      val a_property : string wrap -> [> `Property ] attrib
+      val a_role : string list wrap -> [> `Role ] attrib
+      val a_aria : string -> string list wrap -> [> `Aria ] attrib
+      val txt : string wrap -> [> Html_types.txt ] elt
+      val html :
+        ?a:Html_types.html_attrib attrib list ->
+        [< Html_types.head ] elt wrap ->
+        [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
+      val head :
+        ?a:Html_types.head_attrib attrib list ->
+        [< Html_types.title ] elt wrap ->
+        Html_types.head_content_fun elt list_wrap -> [> Html_types.head ] elt
+      val base : ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
+      val title :
+        (Html_types.title_attrib, [< Html_types.title_content_fun ],
+         [> Html_types.title ])
+        unary
+      val body :
+        ([< Html_types.body_attrib ], [< Html_types.body_content_fun ],
+         [> Html_types.body ])
+        star
+      val svg :
+        ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+        [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
+        [> Html_types.svg ] elt
+      val footer :
+        ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
+         [> Html_types.footer ])
+        star
+      val header :
+        ([< Html_types.header_attrib ], [< Html_types.header_content_fun ],
+         [> Html_types.header ])
+        star
+      val section :
+        ([< Html_types.section_attrib ], [< Html_types.section_content_fun ],
+         [> Html_types.section ])
+        star
+      val nav :
+        ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
+         [> Html_types.nav ])
+        star
+      val h1 :
+        ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
+         [> Html_types.h1 ])
+        star
+      val h2 :
+        ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
+         [> Html_types.h2 ])
+        star
+      val h3 :
+        ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
+         [> Html_types.h3 ])
+        star
+      val h4 :
+        ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
+         [> Html_types.h4 ])
+        star
+      val h5 :
+        ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
+         [> Html_types.h5 ])
+        star
+      val h6 :
+        ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
+         [> Html_types.h6 ])
+        star
+      val hgroup :
+        ([< Html_types.hgroup_attrib ], [< Html_types.hgroup_content_fun ],
+         [> Html_types.hgroup ])
+        star
+      val address :
+        ([< Html_types.address_attrib ], [< Html_types.address_content_fun ],
+         [> Html_types.address ])
+        star
+      val article :
+        ([< Html_types.article_attrib ], [< Html_types.article_content_fun ],
+         [> Html_types.article ])
+        star
+      val aside :
+        ([< Html_types.aside_attrib ], [< Html_types.aside_content_fun ],
+         [> Html_types.aside ])
+        star
+      val main :
+        ([< Html_types.main_attrib ], [< Html_types.main_content_fun ],
+         [> Html_types.main ])
+        star
+      val p :
+        ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
+         [> Html_types.p ])
+        star
+      val pre :
+        ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
+         [> Html_types.pre ])
+        star
+      val blockquote :
+        ([< Html_types.blockquote_attrib ],
+         [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
+        star
+      val dialog :
+        ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+         [> Html_types.dialog ])
+        star
+      val div :
+        ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
+         [> Html_types.div ])
+        star
+      val dl :
+        ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
+         [> Html_types.dl ])
+        star
+      val ol :
+        ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
+         [> Html_types.ol ])
+        star
+      val ul :
+        ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
+         [> Html_types.ul ])
+        star
+      val dd :
+        ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
+         [> Html_types.dd ])
+        star
+      val dt :
+        ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
+         [> Html_types.dt ])
+        star
+      val li :
+        ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
+         [> Html_types.li ])
+        star
+      val figcaption :
+        ([< Html_types.figcaption_attrib ],
+         [< Html_types.figcaption_content_fun ], [> Html_types.figcaption ])
+        star
+      val figure :
+        ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
+                    | `Top of [< Html_types.figcaption ] elt wrap ] ->
+        ([< Html_types.figure_attrib ], [< Html_types.figure_content_fun ],
+         [> Html_types.figure ])
+        star
+      val hr : ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
+      val b :
+        ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
+         [> Html_types.b ])
+        star
+      val i :
+        ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
+         [> Html_types.i ])
+        star
+      val u :
+        ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
+         [> Html_types.u ])
+        star
+      val small :
+        ([< Html_types.small_attrib ], [< Html_types.small_content_fun ],
+         [> Html_types.small ])
+        star
+      val sub :
+        ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
+         [> Html_types.sub ])
+        star
+      val sup :
+        ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
+         [> Html_types.sup ])
+        star
+      val mark :
+        ([< Html_types.mark_attrib ], [< Html_types.mark_content_fun ],
+         [> Html_types.mark ])
+        star
+      val wbr : ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
+      val bdo :
+        dir:[< `Ltr | `Rtl ] wrap ->
+        ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
+         [> Html_types.bdo ])
+        star
+      val abbr :
+        ([< Html_types.abbr_attrib ], [< Html_types.abbr_content_fun ],
+         [> Html_types.abbr ])
+        star
+      val br : ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
+      val cite :
+        ([< Html_types.cite_attrib ], [< Html_types.cite_content_fun ],
+         [> Html_types.cite ])
+        star
+      val code :
+        ([< Html_types.code_attrib ], [< Html_types.code_content_fun ],
+         [> Html_types.code ])
+        star
+      val dfn :
+        ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
+         [> Html_types.dfn ])
+        star
+      val em :
+        ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
+         [> Html_types.em ])
+        star
+      val kbd :
+        ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
+         [> Html_types.kbd ])
+        star
+      val q :
+        ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
+         [> Html_types.q ])
+        star
+      val samp :
+        ([< Html_types.samp_attrib ], [< Html_types.samp_content_fun ],
+         [> Html_types.samp ])
+        star
+      val span :
+        ([< Html_types.span_attrib ], [< Html_types.span_content_fun ],
+         [> Html_types.span ])
+        star
+      val strong :
+        ([< Html_types.strong_attrib ], [< Html_types.strong_content_fun ],
+         [> Html_types.strong ])
+        star
+      val time :
+        ([< Html_types.time_attrib ], [< Html_types.time_content_fun ],
+         [> Html_types.time ])
+        star
+      val var :
+        ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
+         [> Html_types.var ])
+        star
+      val a : ([< Html_types.a_attrib ], 'a, [> 'a Html_types.a ]) star
+      val del : ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
+      val ins : ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
+      val img :
+        src:Xml.uri wrap ->
+        alt:Html_types.text wrap ->
+        ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
+      val picture :
+        img:[< Html_types.img ] elt wrap ->
+        ([< Html_types.picture_attrib ], [< Html_types.picture_content_fun ],
+         [> Html_types.picture ])
+        star
+      val iframe :
+        ([< Html_types.iframe_attrib ], [< Html_types.iframe_content_fun ],
+         [> Html_types.iframe ])
+        star
+      val object_ :
+        ?params:[< Html_types.param ] elt list_wrap ->
+        ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
+      val param :
+        ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
+      val embed :
+        ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
+      val audio :
+        ?src:Xml.uri wrap ->
+        ?srcs:[< Html_types.source ] elt list_wrap ->
+        ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ]) star
+      val video :
+        ?src:Xml.uri wrap ->
+        ?srcs:[< Html_types.source ] elt list_wrap ->
+        ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ]) star
+      val canvas :
+        ([< Html_types.canvas_attrib ], 'a, [> 'a Html_types.canvas ]) star
+      val source :
+        ([< Html_types.source_attrib ], [> Html_types.source ]) nullary
+      val area :
+        alt:Html_types.text wrap ->
+        ([< `Accesskey
+          | `Alt
+          | `Aria
+          | `Class
+          | `Contenteditable
+          | `Contextmenu
+          | `Coords
+          | `Dir
+          | `Draggable
+          | `Hidden
+          | `Hreflang
+          | `Id
+          | `Lang
+          | `Media
+          | `Mime_type
+          | `OnAbort
+          | `OnBlur
+          | `OnCanPlay
+          | `OnCanPlayThrough
+          | `OnChange
+          | `OnClick
+          | `OnClose
+          | `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
+          | `Rel
+          | `Role
+          | `Shape
+          | `Spellcheck
+          | `Style_Attr
+          | `Tabindex
+          | `Target
+          | `Title
+          | `Translate
+          | `User_data
+          | `XML_lang
+          | `XMLns ],
+         [> Html_types.area ])
+        nullary
+      val map : ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
+      val caption :
+        ([< Html_types.caption_attrib ], [< Html_types.caption_content_fun ],
+         [> Html_types.caption ])
+        star
+      val table :
+        ?caption:[< Html_types.caption ] elt wrap ->
+        ?columns:[< Html_types.colgroup ] elt list_wrap ->
+        ?thead:[< Html_types.thead ] elt wrap ->
+        ?tfoot:[< Html_types.tfoot ] elt wrap ->
+        ([< Html_types.table_attrib ], [< Html_types.table_content_fun ],
+         [> Html_types.table ])
+        star
+      val tablex :
+        ?caption:[< Html_types.caption ] elt wrap ->
+        ?columns:[< Html_types.colgroup ] elt list_wrap ->
+        ?thead:[< Html_types.thead ] elt wrap ->
+        ?tfoot:[< Html_types.tfoot ] elt wrap ->
+        ([< Html_types.tablex_attrib ], [< Html_types.tablex_content_fun ],
+         [> Html_types.tablex ])
+        star
+      val colgroup :
+        ([< Html_types.colgroup_attrib ],
+         [< Html_types.colgroup_content_fun ], [> Html_types.colgroup ])
+        star
+      val col : ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
+      val thead :
+        ([< Html_types.thead_attrib ], [< Html_types.thead_content_fun ],
+         [> Html_types.thead ])
+        star
+      val tbody :
+        ([< Html_types.tbody_attrib ], [< Html_types.tbody_content_fun ],
+         [> Html_types.tbody ])
+        star
+      val tfoot :
+        ([< Html_types.tfoot_attrib ], [< Html_types.tfoot_content_fun ],
+         [> Html_types.tfoot ])
+        star
+      val td :
+        ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
+         [> Html_types.td ])
+        star
+      val th :
+        ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
+         [> Html_types.th ])
+        star
+      val tr :
+        ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
+         [> Html_types.tr ])
+        star
+      val form :
+        ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
+         [> Html_types.form ])
+        star
+      val fieldset :
+        ?legend:[< Html_types.legend ] elt wrap ->
+        ([< Html_types.fieldset_attrib ],
+         [< Html_types.fieldset_content_fun ], [> Html_types.fieldset ])
+        star
+      val legend :
+        ([< Html_types.legend_attrib ], [< Html_types.legend_content_fun ],
+         [> Html_types.legend ])
+        star
+      val label :
+        ([< Html_types.label_attrib ], [< Html_types.label_content_fun ],
+         [> Html_types.label ])
+        star
+      val input :
+        ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
+      val button :
+        ([< Html_types.button_attrib ], [< Html_types.button_content_fun ],
+         [> Html_types.button ])
+        star
+      val select :
+        ([< Html_types.select_attrib ], [< Html_types.select_content_fun ],
+         [> Html_types.select ])
+        star
+      val datalist :
+        ?children:[< `Options of [< Html_types.selectoption ] elt list_wrap
+                   | `Phras of [< Html_types.phrasing ] elt list_wrap ] ->
+        ([< Html_types.datalist_attrib ], [> Html_types.datalist ]) nullary
+      val optgroup :
+        label:Html_types.text wrap ->
+        ([< Html_types.optgroup_attrib ],
+         [< Html_types.optgroup_content_fun ], [> Html_types.optgroup ])
+        star
+      val option :
+        ([< Html_types.option_attrib ], [< Html_types.option_content_fun ],
+         [> Html_types.selectoption ])
+        unary
+      val textarea :
+        ([< Html_types.textarea_attrib ],
+         [< Html_types.textarea_content_fun ], [> Html_types.textarea ])
+        unary
+      val keygen :
+        ([< Html_types.keygen_attrib ], [> Html_types.keygen ]) nullary
+      val progress :
+        ([< Html_types.progress_attrib ],
+         [< Html_types.progress_content_fun ], [> Html_types.progress ])
+        star
+      val meter :
+        ([< Html_types.meter_attrib ], [< Html_types.meter_content_fun ],
+         [> Html_types.meter ])
+        star
+      val output_elt :
+        ([< Html_types.output_elt_attrib ],
+         [< Html_types.output_elt_content_fun ], [> Html_types.output_elt ])
+        star
+      val entity : string -> [> Html_types.txt ] elt
+      val space : unit -> [> Html_types.txt ] elt
+      val cdata : string -> [> Html_types.txt ] elt
+      val cdata_script : string -> [> Html_types.txt ] elt
+      val cdata_style : string -> [> Html_types.txt ] elt
+      val details :
+        [< Html_types.summary ] elt wrap ->
+        ([< Html_types.details_attrib ], [< Html_types.details_content_fun ],
+         [> Html_types.details ])
+        star
+      val summary :
+        ([< Html_types.summary_attrib ], [< Html_types.summary_content_fun ],
+         [> Html_types.summary ])
+        star
+      val command :
+        label:Html_types.text wrap ->
+        ([< Html_types.command_attrib ], [> Html_types.command ]) nullary
+      val menu :
+        ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
+                   | `Lis of [< `Li of [< Html_types.common ] ] elt list_wrap
+                  ] ->
+        ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
+      val script :
+        ([< Html_types.script_attrib ], [< Html_types.script_content_fun ],
+         [> Html_types.script ])
+        unary
+      val noscript :
+        ([< Html_types.noscript_attrib ],
+         [< Html_types.noscript_content_fun ], [> Html_types.noscript ])
+        star
+      val template :
+        ([< Html_types.template_attrib ],
+         [< Html_types.template_content_fun ], [> Html_types.template ])
+        star
+      val meta : ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
+      val style :
+        ([< Html_types.style_attrib ], [< Html_types.style_content_fun ],
+         [> Html_types.style ])
+        star
+      val link :
+        rel:Html_types.linktypes wrap ->
+        href:Xml.uri wrap ->
+        ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
+      val rt :
+        ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
+         [> Html_types.rt ])
+        star
+      val rp :
+        ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
+         [> Html_types.rp ])
+        star
+      val ruby :
+        ([< Html_types.ruby_attrib ], [< Html_types.ruby_content_fun ],
+         [> Html_types.ruby ])
+        star
+      val pcdata : string wrap -> [> Html_types.pcdata ] elt
+      val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+      val tot : Xml.elt -> 'a elt
+      val totl : Xml.elt list_wrap -> 'a elt list_wrap
+      val toelt : 'a elt -> Xml.elt
+      val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+      val doc_toelt : doc -> Xml.elt
+      val to_xmlattribs : 'a attrib list -> Xml.attrib list
+      val to_attrib : Xml.attrib -> 'a attrib
+      module Unsafe :
+        sig
+          val data : string wrap -> 'a elt
+          val node :
+            string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+          val coerce_elt : 'a elt -> 'b elt
+          val string_attrib : string -> string wrap -> 'a attrib
+          val float_attrib : string -> float wrap -> 'a attrib
+          val int_attrib : string -> int wrap -> 'a attrib
+          val uri_attrib : string -> uri wrap -> 'a attrib
+          val space_sep_attrib : string -> string list wrap -> 'a attrib
+          val comma_sep_attrib : string -> string list wrap -> 'a attrib
+        end
+    end
   module Raw :
     sig
       type 'a elt = 'a elt
@@ -74,90 +960,10 @@
       val a_title : Html_types.text wrap -> [> `Title ] attrib
       val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
       val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-      val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
-      val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
-      val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
-      val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-      val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-      val a_oncanplaythrough :
-        Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-      val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-      val a_ondurationchange :
-        Xml.event_handler -> [> `OnDurationChange ] attrib
-      val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-      val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-      val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-      val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
-      val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
-      val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
-      val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-      val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-      val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
-      val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-      val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-      val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-      val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-      val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-      val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-      val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-      val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-      val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-      val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
-      val a_onreadystatechange :
-        Xml.event_handler -> [> `OnReadyStateChange ] attrib
-      val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-      val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-      val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-      val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-      val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-      val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-      val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-      val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-      val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-      val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
-      val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-      val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
-      val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-      val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
-      val a_onloadedmetadata :
-        Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-      val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
-      val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-      val a_oncontextmenu :
-        Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-      val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-      val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-      val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-      val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-      val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-      val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-      val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-      val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-      val a_ontouchstart :
-        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-      val a_ontouchcancel :
-        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-      val a_onkeypress :
-        Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-      val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-      val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
       val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
       val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-      val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+      val a_autocomplete :
+        Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
       val a_async : unit -> [> `Async ] attrib
       val a_autofocus : unit -> [> `Autofocus ] attrib
       val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -265,7 +1071,7 @@
       val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
       val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
       val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-      val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+      val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
       val a_multiple : unit -> [> `Multiple ] attrib
       val a_name : Html_types.text wrap -> [> `Name ] attrib
       val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -306,6 +1112,8 @@
       val a_readonly : unit -> [> `ReadOnly ] attrib
       val a_button_type :
         [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+      val a_script_type :
+        Html_types.script_type wrap -> [> `Script_type ] attrib
       val a_command_type :
         [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
       val a_menu_type :
@@ -368,8 +1176,8 @@
          [> Html_types.body ])
         star
       val svg :
-        ?a:[< Html_types.svg_attrib ] Svg.D.Raw.attrib list ->
-        [< Html_types.svg_content ] Svg.D.Raw.elt list_wrap ->
+        ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+        [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
         [> Html_types.svg ] elt
       val footer :
         ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
@@ -443,6 +1251,10 @@
         ([< Html_types.blockquote_attrib ],
          [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
         star
+      val dialog :
+        ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+         [> Html_types.dialog ])
+        star
       val div :
         ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
          [> Html_types.div ])
@@ -623,6 +1435,7 @@
           | `OnCanPlayThrough
           | `OnChange
           | `OnClick
+          | `OnClose
           | `OnContextMenu
           | `OnDblClick
           | `OnDrag
@@ -875,6 +1688,81 @@
           val space_sep_attrib : string -> string list wrap -> 'a attrib
           val comma_sep_attrib : string -> string list wrap -> 'a attrib
         end
+      val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+      val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+      val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+      val a_onbeforeunload : string -> [> `OnBeforeUnload ] Raw'.attrib
+      val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+      val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+      val a_oncanplaythrough : string -> [> `OnCanPlayThrough ] Raw'.attrib
+      val a_onchange : string -> [> `OnChange ] Raw'.attrib
+      val a_onclose : string -> [> `OnClose ] Raw'.attrib
+      val a_ondurationchange : string -> [> `OnDurationChange ] Raw'.attrib
+      val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+      val a_onended : string -> [> `OnEnded ] Raw'.attrib
+      val a_onerror : string -> [> `OnError ] Raw'.attrib
+      val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+      val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+      val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+      val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+      val a_oninput : string -> [> `OnInput ] Raw'.attrib
+      val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+      val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+      val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+      val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+      val a_onpause : string -> [> `OnPause ] Raw'.attrib
+      val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+      val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+      val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+      val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+      val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+      val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+      val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+      val a_onreadystatechange :
+        string -> [> `OnReadyStateChange ] Raw'.attrib
+      val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+      val a_onresize : string -> [> `OnResize ] Raw'.attrib
+      val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+      val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+      val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+      val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+      val a_onshow : string -> [> `OnShow ] Raw'.attrib
+      val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+      val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+      val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+      val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+      val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+      val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+      val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+      val a_onvolumechange : string -> [> `OnVolumeChange ] Raw'.attrib
+      val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+      val a_onload : string -> [> `OnLoad ] Raw'.attrib
+      val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+      val a_onloadedmetadata : string -> [> `OnLoadedMetaData ] Raw'.attrib
+      val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+      val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+      val a_onclick : string -> [> `OnClick ] Raw'.attrib
+      val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+      val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+      val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+      val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+      val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+      val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+      val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+      val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+      val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+      val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+      val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+      val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+      val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+      val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+      val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+      val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+      val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+      val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+      val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+      val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+      val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
     end
   type 'a elt = 'a elt
   type doc = Html_types.html elt
@@ -953,6 +1841,7 @@
   val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
   val a_oncanplaythrough : Xml.event_handler -> [> `OnCanPlayThrough ] attrib
   val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+  val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
   val a_ondurationchange : Xml.event_handler -> [> `OnDurationChange ] attrib
   val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
   val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
@@ -1021,7 +1910,8 @@
   val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
   val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
   val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-  val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+  val a_autocomplete :
+    Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
   val a_async : unit -> [> `Async ] attrib
   val a_autofocus : unit -> [> `Autofocus ] attrib
   val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -1120,7 +2010,7 @@
   val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
   val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
   val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-  val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+  val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
   val a_multiple : unit -> [> `Multiple ] attrib
   val a_name : Html_types.text wrap -> [> `Name ] attrib
   val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -1161,6 +2051,7 @@
   val a_readonly : unit -> [> `ReadOnly ] attrib
   val a_button_type :
     [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+  val a_script_type : Html_types.script_type wrap -> [> `Script_type ] attrib
   val a_command_type :
     [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
   val a_menu_type : [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
@@ -1219,8 +2110,8 @@
      [> Html_types.body ])
     star
   val svg :
-    ?a:[< Html_types.svg_attrib ] Svg.D.Raw.attrib list ->
-    [< Html_types.svg_content ] Svg.D.Raw.elt list_wrap ->
+    ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+    [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
     [> Html_types.svg ] elt
   val footer :
     ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
@@ -1294,6 +2185,10 @@
     ([< Html_types.blockquote_attrib ],
      [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
     star
+  val dialog :
+    ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+     [> Html_types.dialog ])
+    star
   val div :
     ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
      [> Html_types.div ])
@@ -1471,6 +2366,7 @@
       | `OnCanPlayThrough
       | `OnChange
       | `OnClick
+      | `OnClose
       | `OnContextMenu
       | `OnDblClick
       | `OnDrag
@@ -1931,6 +2827,7 @@
             | `OnCanPlayThrough
             | `OnChange
             | `OnClick
+            | `OnClose
             | `OnContextMenu
             | `OnDblClick
             | `OnDrag
diff --git a/doc/10.x/api/server/type_Eliom_content.Html.F.Raw.wiki b/doc/11.x/api/server/type_Eliom_content.Html.F.Raw.wiki
similarity index 84%
rename from doc/10.x/api/server/type_Eliom_content.Html.F.Raw.wiki
rename to doc/11.x/api/server/type_Eliom_content.Html.F.Raw.wiki
index 80cd193d9e..f2eaf2ed4e 100644
--- a/doc/10.x/api/server/type_Eliom_content.Html.F.Raw.wiki
+++ b/doc/11.x/api/server/type_Eliom_content.Html.F.Raw.wiki
@@ -69,83 +69,10 @@
   val a_title : Html_types.text wrap -> [> `Title ] attrib
   val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
   val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-  val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-  val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
-  val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
-  val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
-  val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-  val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-  val a_oncanplaythrough : Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-  val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-  val a_ondurationchange : Xml.event_handler -> [> `OnDurationChange ] attrib
-  val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-  val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-  val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-  val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-  val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
-  val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
-  val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
-  val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-  val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-  val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
-  val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-  val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-  val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-  val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-  val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-  val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-  val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-  val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-  val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-  val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
-  val a_onreadystatechange :
-    Xml.event_handler -> [> `OnReadyStateChange ] attrib
-  val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-  val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-  val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-  val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-  val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-  val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-  val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-  val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-  val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-  val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-  val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-  val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
-  val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-  val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-  val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
-  val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-  val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-  val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
-  val a_onloadedmetadata : Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-  val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
-  val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-  val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-  val a_oncontextmenu : Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-  val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-  val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-  val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-  val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-  val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-  val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-  val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-  val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-  val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-  val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-  val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-  val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-  val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-  val a_ontouchstart : Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-  val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-  val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-  val a_ontouchcancel : Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-  val a_onkeypress : Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-  val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-  val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
   val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
   val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-  val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+  val a_autocomplete :
+    Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
   val a_async : unit -> [> `Async ] attrib
   val a_autofocus : unit -> [> `Autofocus ] attrib
   val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -244,7 +171,7 @@
   val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
   val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
   val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-  val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+  val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
   val a_multiple : unit -> [> `Multiple ] attrib
   val a_name : Html_types.text wrap -> [> `Name ] attrib
   val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -285,6 +212,7 @@
   val a_readonly : unit -> [> `ReadOnly ] attrib
   val a_button_type :
     [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+  val a_script_type : Html_types.script_type wrap -> [> `Script_type ] attrib
   val a_command_type :
     [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
   val a_menu_type : [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
@@ -343,8 +271,8 @@
      [> Html_types.body ])
     star
   val svg :
-    ?a:[< Html_types.svg_attrib ] Svg.F.Raw.attrib list ->
-    [< Html_types.svg_content ] Svg.F.Raw.elt list_wrap ->
+    ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+    [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
     [> Html_types.svg ] elt
   val footer :
     ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
@@ -418,6 +346,10 @@
     ([< Html_types.blockquote_attrib ],
      [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
     star
+  val dialog :
+    ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+     [> Html_types.dialog ])
+    star
   val div :
     ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
      [> Html_types.div ])
@@ -596,6 +528,7 @@
       | `OnCanPlayThrough
       | `OnChange
       | `OnClick
+      | `OnClose
       | `OnContextMenu
       | `OnDblClick
       | `OnDrag
@@ -845,4 +778,78 @@
       val space_sep_attrib : string -> string list wrap -> 'a attrib
       val comma_sep_attrib : string -> string list wrap -> 'a attrib
     end
+  val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+  val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+  val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+  val a_onbeforeunload : string -> [> `OnBeforeUnload ] Raw'.attrib
+  val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+  val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+  val a_oncanplaythrough : string -> [> `OnCanPlayThrough ] Raw'.attrib
+  val a_onchange : string -> [> `OnChange ] Raw'.attrib
+  val a_onclose : string -> [> `OnClose ] Raw'.attrib
+  val a_ondurationchange : string -> [> `OnDurationChange ] Raw'.attrib
+  val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+  val a_onended : string -> [> `OnEnded ] Raw'.attrib
+  val a_onerror : string -> [> `OnError ] Raw'.attrib
+  val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+  val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+  val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+  val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+  val a_oninput : string -> [> `OnInput ] Raw'.attrib
+  val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+  val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+  val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+  val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+  val a_onpause : string -> [> `OnPause ] Raw'.attrib
+  val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+  val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+  val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+  val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+  val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+  val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+  val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+  val a_onreadystatechange : string -> [> `OnReadyStateChange ] Raw'.attrib
+  val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+  val a_onresize : string -> [> `OnResize ] Raw'.attrib
+  val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+  val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+  val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+  val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+  val a_onshow : string -> [> `OnShow ] Raw'.attrib
+  val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+  val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+  val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+  val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+  val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+  val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+  val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+  val a_onvolumechange : string -> [> `OnVolumeChange ] Raw'.attrib
+  val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+  val a_onload : string -> [> `OnLoad ] Raw'.attrib
+  val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+  val a_onloadedmetadata : string -> [> `OnLoadedMetaData ] Raw'.attrib
+  val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+  val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+  val a_onclick : string -> [> `OnClick ] Raw'.attrib
+  val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+  val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+  val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+  val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+  val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+  val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+  val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+  val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+  val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+  val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+  val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+  val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+  val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+  val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+  val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+  val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+  val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+  val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+  val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+  val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+  val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/server/type_Eliom_content.Html.F.wiki b/doc/11.x/api/server/type_Eliom_content.Html.F.wiki
similarity index 67%
rename from doc/10.x/api/server/type_Eliom_content.Html.F.wiki
rename to doc/11.x/api/server/type_Eliom_content.Html.F.wiki
index 65a62bf7ca..0611ca9ea8 100644
--- a/doc/10.x/api/server/type_Eliom_content.Html.F.wiki
+++ b/doc/11.x/api/server/type_Eliom_content.Html.F.wiki
@@ -1,4 +1,890 @@
 <<code language="ocaml" | sig
+  module Raw' :
+    sig
+      type 'a elt = 'a elt
+      type doc = Html_types.html elt
+      type 'a attrib = 'a attrib
+      module Xml :
+        sig
+          module W :
+            sig
+              type 'a t = 'a Xml.W.t
+              val return : 'a -> 'a t
+              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+              val fmap : ('a, 'b) ft -> 'a t -> 'b t
+              type 'a tlist = 'a Xml.W.tlist
+              val nil : unit -> 'a tlist
+              val singleton : 'a t -> 'a tlist
+              val cons : 'a t -> 'a tlist -> 'a tlist
+              val append : 'a tlist -> 'a tlist -> 'a tlist
+              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+            end
+          type 'a wrap = 'a W.t
+          type 'a list_wrap = 'a W.tlist
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) W.ft
+          val uri_of_string : (string, uri) W.ft
+          type aname = string
+          type event_handler = Xml.event_handler
+          type mouse_event_handler = Xml.mouse_event_handler
+          type keyboard_event_handler = Xml.keyboard_event_handler
+          type touch_event_handler = Xml.touch_event_handler
+          type attrib = Xml.attrib
+          val float_attrib : aname -> float wrap -> attrib
+          val int_attrib : aname -> int wrap -> attrib
+          val string_attrib : aname -> string wrap -> attrib
+          val space_sep_attrib : aname -> string list wrap -> attrib
+          val comma_sep_attrib : aname -> string list wrap -> attrib
+          val event_handler_attrib : aname -> event_handler -> attrib
+          val mouse_event_handler_attrib :
+            aname -> mouse_event_handler -> attrib
+          val keyboard_event_handler_attrib :
+            aname -> keyboard_event_handler -> attrib
+          val touch_event_handler_attrib :
+            aname -> touch_event_handler -> attrib
+          val uri_attrib : aname -> uri wrap -> attrib
+          val uris_attrib : aname -> uri list wrap -> attrib
+          type elt = Xml.elt
+          type ename = string
+          val empty : unit -> elt
+          val comment : string -> elt
+          val pcdata : string wrap -> elt
+          val encodedpcdata : string wrap -> elt
+          val entity : string -> elt
+          val leaf : ?a:attrib list -> ename -> elt
+          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+          val cdata : string -> elt
+          val cdata_script : string -> elt
+          val cdata_style : string -> elt
+        end
+      type 'a wrap = 'a Xml.W.t
+      type 'a list_wrap = 'a Xml.W.tlist
+      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
+      type ('a, 'b, 'c) star =
+          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+      module Info : Xml_sigs.Info
+      type uri = Xml.uri
+      val string_of_uri : (uri, string) Xml.W.ft
+      val uri_of_string : (string, uri) Xml.W.ft
+      val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+      val a_user_data :
+        Html_types.nmtoken -> Html_types.text wrap -> [> `User_data ] attrib
+      val a_id : Html_types.text wrap -> [> `Id ] attrib
+      val a_title : Html_types.text wrap -> [> `Title ] attrib
+      val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
+      val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
+      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+      val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
+      val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
+      val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
+      val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
+      val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
+      val a_oncanplaythrough :
+        Xml.event_handler -> [> `OnCanPlayThrough ] attrib
+      val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+      val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
+      val a_ondurationchange :
+        Xml.event_handler -> [> `OnDurationChange ] attrib
+      val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
+      val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
+      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+      val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
+      val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
+      val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
+      val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
+      val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
+      val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
+      val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
+      val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
+      val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
+      val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
+      val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
+      val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
+      val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
+      val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
+      val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
+      val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
+      val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
+      val a_onreadystatechange :
+        Xml.event_handler -> [> `OnReadyStateChange ] attrib
+      val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
+      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+      val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
+      val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
+      val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
+      val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
+      val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
+      val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
+      val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
+      val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
+      val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
+      val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
+      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+      val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
+      val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
+      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+      val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
+      val a_onloadedmetadata :
+        Xml.event_handler -> [> `OnLoadedMetaData ] attrib
+      val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
+      val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
+      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+      val a_oncontextmenu :
+        Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
+      val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
+      val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
+      val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
+      val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
+      val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
+      val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
+      val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
+      val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
+      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+      val a_ontouchstart :
+        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+      val a_ontouchcancel :
+        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+      val a_onkeypress :
+        Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
+      val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
+      val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+      val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
+      val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
+      val a_autocomplete :
+        Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
+      val a_async : unit -> [> `Async ] attrib
+      val a_autofocus : unit -> [> `Autofocus ] attrib
+      val a_autoplay : unit -> [> `Autoplay ] attrib
+      val a_muted : unit -> [> `Muted ] attrib
+      val a_crossorigin :
+        [< `Anonymous | `Use_credentials ] wrap -> [> `Crossorigin ] attrib
+      val a_integrity : string wrap -> [> `Integrity ] attrib
+      val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
+      val a_challenge : Html_types.text wrap -> [> `Challenge ] attrib
+      val a_contenteditable : bool wrap -> [> `Contenteditable ] attrib
+      val a_contextmenu : Html_types.idref wrap -> [> `Contextmenu ] attrib
+      val a_controls : unit -> [> `Controls ] attrib
+      val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
+      val a_draggable : bool wrap -> [> `Draggable ] attrib
+      val a_form : Html_types.idref wrap -> [> `Form ] attrib
+      val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
+      val a_formenctype :
+        Html_types.contenttype wrap -> [> `Formenctype ] attrib
+      val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
+      val a_formtarget : Html_types.text wrap -> [> `Formtarget ] attrib
+      val a_hidden : unit -> [> `Hidden ] attrib
+      val a_high : Html_types.float_number wrap -> [> `High ] attrib
+      val a_icon : Xml.uri wrap -> [> `Icon ] attrib
+      val a_ismap : unit -> [> `Ismap ] attrib
+      val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
+      val a_list : Html_types.idref wrap -> [> `List ] attrib
+      val a_loop : unit -> [> `Loop ] attrib
+      val a_low : Html_types.float_number wrap -> [> `High ] attrib
+      val a_max : Html_types.float_number wrap -> [> `Max ] attrib
+      val a_input_max :
+        Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
+      val a_min : Html_types.float_number wrap -> [> `Min ] attrib
+      val a_input_min :
+        Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
+      val a_inputmode :
+        [< `Decimal
+         | `Email
+         | `None
+         | `Numeric
+         | `Search
+         | `Tel
+         | `Text
+         | `Url ]
+        wrap -> [> `Inputmode ] attrib
+      val a_novalidate : unit -> [> `Novalidate ] attrib
+      val a_open : unit -> [> `Open ] attrib
+      val a_optimum : Html_types.float_number wrap -> [> `Optimum ] attrib
+      val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
+      val a_placeholder : Html_types.text wrap -> [> `Placeholder ] attrib
+      val a_poster : Xml.uri wrap -> [> `Poster ] attrib
+      val a_preload :
+        [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
+      val a_pubdate : unit -> [> `Pubdate ] attrib
+      val a_radiogroup : Html_types.text wrap -> [> `Radiogroup ] attrib
+      val a_referrerpolicy :
+        Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
+      val a_required : unit -> [> `Required ] attrib
+      val a_reversed : unit -> [> `Reversed ] attrib
+      val a_sandbox :
+        [< Html_types.sandbox_token ] list wrap -> [> `Sandbox ] attrib
+      val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
+      val a_scoped : unit -> [> `Scoped ] attrib
+      val a_seamless : unit -> [> `Seamless ] attrib
+      val a_sizes :
+        (Html_types.number * Html_types.number) list option wrap ->
+        [> `Sizes ] attrib
+      val a_span : Html_types.number wrap -> [> `Span ] attrib
+      val a_srclang : Html_types.nmtoken wrap -> [> `XML_lang ] attrib
+      type image_candidate =
+          [ `Url of uri
+          | `Url_pixel of uri * Html_types.float_number
+          | `Url_width of uri * Html_types.number ]
+      val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
+      val a_img_sizes : Html_types.text list wrap -> [> `Img_sizes ] attrib
+      val a_start : Html_types.number wrap -> [> `Start ] attrib
+      val a_step : Html_types.float_number option wrap -> [> `Step ] attrib
+      val a_translate : [< `No | `Yes ] wrap -> [> `Translate ] attrib
+      val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
+      val a_version : Html_types.cdata wrap -> [> `Version ] attrib
+      val a_xmlns : [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
+      val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
+      val a_cite : Xml.uri wrap -> [> `Cite ] attrib
+      val a_xml_space :
+        [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
+      val a_accesskey : Html_types.character wrap -> [> `Accesskey ] attrib
+      val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
+      val a_accept_charset :
+        Html_types.charsets wrap -> [> `Accept_charset ] attrib
+      val a_accept : Html_types.contenttypes wrap -> [> `Accept ] attrib
+      val a_href : Xml.uri wrap -> [> `Href ] attrib
+      val a_hreflang : Html_types.languagecode wrap -> [> `Hreflang ] attrib
+      val a_download : string option wrap -> [> `Download ] attrib
+      val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
+      val a_tabindex : Html_types.number wrap -> [> `Tabindex ] attrib
+      val a_mime_type : Html_types.contenttype wrap -> [> `Mime_type ] attrib
+      val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
+      val a_action : Xml.uri wrap -> [> `Action ] attrib
+      val a_checked : unit -> [> `Checked ] attrib
+      val a_cols : Html_types.number wrap -> [> `Cols ] attrib
+      val a_enctype : Html_types.contenttype wrap -> [> `Enctype ] attrib
+      val a_label_for : Html_types.idref wrap -> [> `Label_for ] attrib
+      val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
+      val a_output_for : Html_types.idrefs wrap -> [> `Output_for ] attrib
+      val a_for_list : Html_types.idrefs wrap -> [> `Output_for ] attrib
+      val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
+      val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
+      val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
+      val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
+      val a_multiple : unit -> [> `Multiple ] attrib
+      val a_name : Html_types.text wrap -> [> `Name ] attrib
+      val a_rows : Html_types.number wrap -> [> `Rows ] attrib
+      val a_selected : unit -> [> `Selected ] attrib
+      val a_size : Html_types.number wrap -> [> `Size ] attrib
+      val a_src : Xml.uri wrap -> [> `Src ] attrib
+      val a_input_type :
+        [< `Button
+         | `Checkbox
+         | `Color
+         | `Date
+         | `Datetime
+         | `Datetime_local
+         | `Email
+         | `File
+         | `Hidden
+         | `Image
+         | `Month
+         | `Number
+         | `Password
+         | `Radio
+         | `Range
+         | `Reset
+         | `Search
+         | `Submit
+         | `Tel
+         | `Text
+         | `Time
+         | `Url
+         | `Week ]
+        wrap -> [> `Input_Type ] attrib
+      val a_text_value : Html_types.text wrap -> [> `Text_Value ] attrib
+      val a_int_value : Html_types.number wrap -> [> `Int_Value ] attrib
+      val a_value : Html_types.cdata wrap -> [> `Value ] attrib
+      val a_float_value :
+        Html_types.float_number wrap -> [> `Float_Value ] attrib
+      val a_disabled : unit -> [> `Disabled ] attrib
+      val a_readonly : unit -> [> `ReadOnly ] attrib
+      val a_button_type :
+        [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+      val a_script_type :
+        Html_types.script_type wrap -> [> `Script_type ] attrib
+      val a_command_type :
+        [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
+      val a_menu_type :
+        [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
+      val a_label : Html_types.text wrap -> [> `Label ] attrib
+      val a_align :
+        [< `Char | `Justify | `Left | `Right ] wrap -> [> `Align ] attrib
+      val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
+      val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
+      val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
+      val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
+      val a_scope :
+        [< `Col | `Colgroup | `Row | `Rowgroup ] wrap -> [> `Scope ] attrib
+      val a_summary : Html_types.text wrap -> [> `Summary ] attrib
+      val a_border : Html_types.pixels wrap -> [> `Border ] attrib
+      val a_rules :
+        [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
+        [> `Rules ] attrib
+      val a_char : Html_types.character wrap -> [> `Char ] attrib
+      val a_alt : Html_types.text wrap -> [> `Alt ] attrib
+      val a_height : Html_types.number wrap -> [> `Height ] attrib
+      val a_width : Html_types.number wrap -> [> `Width ] attrib
+      type shape = [ `Circle | `Default | `Poly | `Rect ]
+      val a_shape : shape wrap -> [> `Shape ] attrib
+      val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
+      val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
+      val a_data : Xml.uri wrap -> [> `Data ] attrib
+      val a_codetype : Html_types.contenttype wrap -> [> `Codetype ] attrib
+      val a_frameborder : [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
+      val a_marginheight :
+        Html_types.pixels wrap -> [> `Marginheight ] attrib
+      val a_marginwidth : Html_types.pixels wrap -> [> `Marginwidth ] attrib
+      val a_scrolling :
+        [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
+      val a_target : Html_types.frametarget wrap -> [> `Target ] attrib
+      val a_content : Html_types.text wrap -> [> `Content ] attrib
+      val a_http_equiv : Html_types.text wrap -> [> `Http_equiv ] attrib
+      val a_defer : unit -> [> `Defer ] attrib
+      val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
+      val a_style : string wrap -> [> `Style_Attr ] attrib
+      val a_property : string wrap -> [> `Property ] attrib
+      val a_role : string list wrap -> [> `Role ] attrib
+      val a_aria : string -> string list wrap -> [> `Aria ] attrib
+      val txt : string wrap -> [> Html_types.txt ] elt
+      val html :
+        ?a:Html_types.html_attrib attrib list ->
+        [< Html_types.head ] elt wrap ->
+        [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
+      val head :
+        ?a:Html_types.head_attrib attrib list ->
+        [< Html_types.title ] elt wrap ->
+        Html_types.head_content_fun elt list_wrap -> [> Html_types.head ] elt
+      val base : ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
+      val title :
+        (Html_types.title_attrib, [< Html_types.title_content_fun ],
+         [> Html_types.title ])
+        unary
+      val body :
+        ([< Html_types.body_attrib ], [< Html_types.body_content_fun ],
+         [> Html_types.body ])
+        star
+      val svg :
+        ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+        [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
+        [> Html_types.svg ] elt
+      val footer :
+        ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
+         [> Html_types.footer ])
+        star
+      val header :
+        ([< Html_types.header_attrib ], [< Html_types.header_content_fun ],
+         [> Html_types.header ])
+        star
+      val section :
+        ([< Html_types.section_attrib ], [< Html_types.section_content_fun ],
+         [> Html_types.section ])
+        star
+      val nav :
+        ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
+         [> Html_types.nav ])
+        star
+      val h1 :
+        ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
+         [> Html_types.h1 ])
+        star
+      val h2 :
+        ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
+         [> Html_types.h2 ])
+        star
+      val h3 :
+        ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
+         [> Html_types.h3 ])
+        star
+      val h4 :
+        ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
+         [> Html_types.h4 ])
+        star
+      val h5 :
+        ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
+         [> Html_types.h5 ])
+        star
+      val h6 :
+        ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
+         [> Html_types.h6 ])
+        star
+      val hgroup :
+        ([< Html_types.hgroup_attrib ], [< Html_types.hgroup_content_fun ],
+         [> Html_types.hgroup ])
+        star
+      val address :
+        ([< Html_types.address_attrib ], [< Html_types.address_content_fun ],
+         [> Html_types.address ])
+        star
+      val article :
+        ([< Html_types.article_attrib ], [< Html_types.article_content_fun ],
+         [> Html_types.article ])
+        star
+      val aside :
+        ([< Html_types.aside_attrib ], [< Html_types.aside_content_fun ],
+         [> Html_types.aside ])
+        star
+      val main :
+        ([< Html_types.main_attrib ], [< Html_types.main_content_fun ],
+         [> Html_types.main ])
+        star
+      val p :
+        ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
+         [> Html_types.p ])
+        star
+      val pre :
+        ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
+         [> Html_types.pre ])
+        star
+      val blockquote :
+        ([< Html_types.blockquote_attrib ],
+         [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
+        star
+      val dialog :
+        ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+         [> Html_types.dialog ])
+        star
+      val div :
+        ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
+         [> Html_types.div ])
+        star
+      val dl :
+        ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
+         [> Html_types.dl ])
+        star
+      val ol :
+        ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
+         [> Html_types.ol ])
+        star
+      val ul :
+        ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
+         [> Html_types.ul ])
+        star
+      val dd :
+        ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
+         [> Html_types.dd ])
+        star
+      val dt :
+        ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
+         [> Html_types.dt ])
+        star
+      val li :
+        ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
+         [> Html_types.li ])
+        star
+      val figcaption :
+        ([< Html_types.figcaption_attrib ],
+         [< Html_types.figcaption_content_fun ], [> Html_types.figcaption ])
+        star
+      val figure :
+        ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
+                    | `Top of [< Html_types.figcaption ] elt wrap ] ->
+        ([< Html_types.figure_attrib ], [< Html_types.figure_content_fun ],
+         [> Html_types.figure ])
+        star
+      val hr : ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
+      val b :
+        ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
+         [> Html_types.b ])
+        star
+      val i :
+        ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
+         [> Html_types.i ])
+        star
+      val u :
+        ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
+         [> Html_types.u ])
+        star
+      val small :
+        ([< Html_types.small_attrib ], [< Html_types.small_content_fun ],
+         [> Html_types.small ])
+        star
+      val sub :
+        ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
+         [> Html_types.sub ])
+        star
+      val sup :
+        ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
+         [> Html_types.sup ])
+        star
+      val mark :
+        ([< Html_types.mark_attrib ], [< Html_types.mark_content_fun ],
+         [> Html_types.mark ])
+        star
+      val wbr : ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
+      val bdo :
+        dir:[< `Ltr | `Rtl ] wrap ->
+        ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
+         [> Html_types.bdo ])
+        star
+      val abbr :
+        ([< Html_types.abbr_attrib ], [< Html_types.abbr_content_fun ],
+         [> Html_types.abbr ])
+        star
+      val br : ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
+      val cite :
+        ([< Html_types.cite_attrib ], [< Html_types.cite_content_fun ],
+         [> Html_types.cite ])
+        star
+      val code :
+        ([< Html_types.code_attrib ], [< Html_types.code_content_fun ],
+         [> Html_types.code ])
+        star
+      val dfn :
+        ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
+         [> Html_types.dfn ])
+        star
+      val em :
+        ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
+         [> Html_types.em ])
+        star
+      val kbd :
+        ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
+         [> Html_types.kbd ])
+        star
+      val q :
+        ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
+         [> Html_types.q ])
+        star
+      val samp :
+        ([< Html_types.samp_attrib ], [< Html_types.samp_content_fun ],
+         [> Html_types.samp ])
+        star
+      val span :
+        ([< Html_types.span_attrib ], [< Html_types.span_content_fun ],
+         [> Html_types.span ])
+        star
+      val strong :
+        ([< Html_types.strong_attrib ], [< Html_types.strong_content_fun ],
+         [> Html_types.strong ])
+        star
+      val time :
+        ([< Html_types.time_attrib ], [< Html_types.time_content_fun ],
+         [> Html_types.time ])
+        star
+      val var :
+        ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
+         [> Html_types.var ])
+        star
+      val a : ([< Html_types.a_attrib ], 'a, [> 'a Html_types.a ]) star
+      val del : ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
+      val ins : ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
+      val img :
+        src:Xml.uri wrap ->
+        alt:Html_types.text wrap ->
+        ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
+      val picture :
+        img:[< Html_types.img ] elt wrap ->
+        ([< Html_types.picture_attrib ], [< Html_types.picture_content_fun ],
+         [> Html_types.picture ])
+        star
+      val iframe :
+        ([< Html_types.iframe_attrib ], [< Html_types.iframe_content_fun ],
+         [> Html_types.iframe ])
+        star
+      val object_ :
+        ?params:[< Html_types.param ] elt list_wrap ->
+        ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
+      val param :
+        ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
+      val embed :
+        ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
+      val audio :
+        ?src:Xml.uri wrap ->
+        ?srcs:[< Html_types.source ] elt list_wrap ->
+        ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ]) star
+      val video :
+        ?src:Xml.uri wrap ->
+        ?srcs:[< Html_types.source ] elt list_wrap ->
+        ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ]) star
+      val canvas :
+        ([< Html_types.canvas_attrib ], 'a, [> 'a Html_types.canvas ]) star
+      val source :
+        ([< Html_types.source_attrib ], [> Html_types.source ]) nullary
+      val area :
+        alt:Html_types.text wrap ->
+        ([< `Accesskey
+          | `Alt
+          | `Aria
+          | `Class
+          | `Contenteditable
+          | `Contextmenu
+          | `Coords
+          | `Dir
+          | `Draggable
+          | `Hidden
+          | `Hreflang
+          | `Id
+          | `Lang
+          | `Media
+          | `Mime_type
+          | `OnAbort
+          | `OnBlur
+          | `OnCanPlay
+          | `OnCanPlayThrough
+          | `OnChange
+          | `OnClick
+          | `OnClose
+          | `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
+          | `Rel
+          | `Role
+          | `Shape
+          | `Spellcheck
+          | `Style_Attr
+          | `Tabindex
+          | `Target
+          | `Title
+          | `Translate
+          | `User_data
+          | `XML_lang
+          | `XMLns ],
+         [> Html_types.area ])
+        nullary
+      val map : ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
+      val caption :
+        ([< Html_types.caption_attrib ], [< Html_types.caption_content_fun ],
+         [> Html_types.caption ])
+        star
+      val table :
+        ?caption:[< Html_types.caption ] elt wrap ->
+        ?columns:[< Html_types.colgroup ] elt list_wrap ->
+        ?thead:[< Html_types.thead ] elt wrap ->
+        ?tfoot:[< Html_types.tfoot ] elt wrap ->
+        ([< Html_types.table_attrib ], [< Html_types.table_content_fun ],
+         [> Html_types.table ])
+        star
+      val tablex :
+        ?caption:[< Html_types.caption ] elt wrap ->
+        ?columns:[< Html_types.colgroup ] elt list_wrap ->
+        ?thead:[< Html_types.thead ] elt wrap ->
+        ?tfoot:[< Html_types.tfoot ] elt wrap ->
+        ([< Html_types.tablex_attrib ], [< Html_types.tablex_content_fun ],
+         [> Html_types.tablex ])
+        star
+      val colgroup :
+        ([< Html_types.colgroup_attrib ],
+         [< Html_types.colgroup_content_fun ], [> Html_types.colgroup ])
+        star
+      val col : ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
+      val thead :
+        ([< Html_types.thead_attrib ], [< Html_types.thead_content_fun ],
+         [> Html_types.thead ])
+        star
+      val tbody :
+        ([< Html_types.tbody_attrib ], [< Html_types.tbody_content_fun ],
+         [> Html_types.tbody ])
+        star
+      val tfoot :
+        ([< Html_types.tfoot_attrib ], [< Html_types.tfoot_content_fun ],
+         [> Html_types.tfoot ])
+        star
+      val td :
+        ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
+         [> Html_types.td ])
+        star
+      val th :
+        ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
+         [> Html_types.th ])
+        star
+      val tr :
+        ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
+         [> Html_types.tr ])
+        star
+      val form :
+        ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
+         [> Html_types.form ])
+        star
+      val fieldset :
+        ?legend:[< Html_types.legend ] elt wrap ->
+        ([< Html_types.fieldset_attrib ],
+         [< Html_types.fieldset_content_fun ], [> Html_types.fieldset ])
+        star
+      val legend :
+        ([< Html_types.legend_attrib ], [< Html_types.legend_content_fun ],
+         [> Html_types.legend ])
+        star
+      val label :
+        ([< Html_types.label_attrib ], [< Html_types.label_content_fun ],
+         [> Html_types.label ])
+        star
+      val input :
+        ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
+      val button :
+        ([< Html_types.button_attrib ], [< Html_types.button_content_fun ],
+         [> Html_types.button ])
+        star
+      val select :
+        ([< Html_types.select_attrib ], [< Html_types.select_content_fun ],
+         [> Html_types.select ])
+        star
+      val datalist :
+        ?children:[< `Options of [< Html_types.selectoption ] elt list_wrap
+                   | `Phras of [< Html_types.phrasing ] elt list_wrap ] ->
+        ([< Html_types.datalist_attrib ], [> Html_types.datalist ]) nullary
+      val optgroup :
+        label:Html_types.text wrap ->
+        ([< Html_types.optgroup_attrib ],
+         [< Html_types.optgroup_content_fun ], [> Html_types.optgroup ])
+        star
+      val option :
+        ([< Html_types.option_attrib ], [< Html_types.option_content_fun ],
+         [> Html_types.selectoption ])
+        unary
+      val textarea :
+        ([< Html_types.textarea_attrib ],
+         [< Html_types.textarea_content_fun ], [> Html_types.textarea ])
+        unary
+      val keygen :
+        ([< Html_types.keygen_attrib ], [> Html_types.keygen ]) nullary
+      val progress :
+        ([< Html_types.progress_attrib ],
+         [< Html_types.progress_content_fun ], [> Html_types.progress ])
+        star
+      val meter :
+        ([< Html_types.meter_attrib ], [< Html_types.meter_content_fun ],
+         [> Html_types.meter ])
+        star
+      val output_elt :
+        ([< Html_types.output_elt_attrib ],
+         [< Html_types.output_elt_content_fun ], [> Html_types.output_elt ])
+        star
+      val entity : string -> [> Html_types.txt ] elt
+      val space : unit -> [> Html_types.txt ] elt
+      val cdata : string -> [> Html_types.txt ] elt
+      val cdata_script : string -> [> Html_types.txt ] elt
+      val cdata_style : string -> [> Html_types.txt ] elt
+      val details :
+        [< Html_types.summary ] elt wrap ->
+        ([< Html_types.details_attrib ], [< Html_types.details_content_fun ],
+         [> Html_types.details ])
+        star
+      val summary :
+        ([< Html_types.summary_attrib ], [< Html_types.summary_content_fun ],
+         [> Html_types.summary ])
+        star
+      val command :
+        label:Html_types.text wrap ->
+        ([< Html_types.command_attrib ], [> Html_types.command ]) nullary
+      val menu :
+        ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
+                   | `Lis of [< `Li of [< Html_types.common ] ] elt list_wrap
+                  ] ->
+        ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
+      val script :
+        ([< Html_types.script_attrib ], [< Html_types.script_content_fun ],
+         [> Html_types.script ])
+        unary
+      val noscript :
+        ([< Html_types.noscript_attrib ],
+         [< Html_types.noscript_content_fun ], [> Html_types.noscript ])
+        star
+      val template :
+        ([< Html_types.template_attrib ],
+         [< Html_types.template_content_fun ], [> Html_types.template ])
+        star
+      val meta : ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
+      val style :
+        ([< Html_types.style_attrib ], [< Html_types.style_content_fun ],
+         [> Html_types.style ])
+        star
+      val link :
+        rel:Html_types.linktypes wrap ->
+        href:Xml.uri wrap ->
+        ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
+      val rt :
+        ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
+         [> Html_types.rt ])
+        star
+      val rp :
+        ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
+         [> Html_types.rp ])
+        star
+      val ruby :
+        ([< Html_types.ruby_attrib ], [< Html_types.ruby_content_fun ],
+         [> Html_types.ruby ])
+        star
+      val pcdata : string wrap -> [> Html_types.pcdata ] elt
+      val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+      val tot : Xml.elt -> 'a elt
+      val totl : Xml.elt list_wrap -> 'a elt list_wrap
+      val toelt : 'a elt -> Xml.elt
+      val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+      val doc_toelt : doc -> Xml.elt
+      val to_xmlattribs : 'a attrib list -> Xml.attrib list
+      val to_attrib : Xml.attrib -> 'a attrib
+      module Unsafe :
+        sig
+          val data : string wrap -> 'a elt
+          val node :
+            string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+          val coerce_elt : 'a elt -> 'b elt
+          val string_attrib : string -> string wrap -> 'a attrib
+          val float_attrib : string -> float wrap -> 'a attrib
+          val int_attrib : string -> int wrap -> 'a attrib
+          val uri_attrib : string -> uri wrap -> 'a attrib
+          val space_sep_attrib : string -> string list wrap -> 'a attrib
+          val comma_sep_attrib : string -> string list wrap -> 'a attrib
+        end
+    end
   module Raw :
     sig
       type 'a elt = 'a elt
@@ -74,90 +960,10 @@
       val a_title : Html_types.text wrap -> [> `Title ] attrib
       val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
       val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-      val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
-      val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
-      val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
-      val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-      val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-      val a_oncanplaythrough :
-        Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-      val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-      val a_ondurationchange :
-        Xml.event_handler -> [> `OnDurationChange ] attrib
-      val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-      val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-      val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-      val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
-      val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
-      val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
-      val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-      val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-      val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
-      val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-      val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-      val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-      val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-      val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-      val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-      val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-      val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-      val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-      val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
-      val a_onreadystatechange :
-        Xml.event_handler -> [> `OnReadyStateChange ] attrib
-      val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-      val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-      val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-      val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-      val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-      val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-      val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-      val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-      val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-      val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
-      val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-      val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
-      val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-      val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
-      val a_onloadedmetadata :
-        Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-      val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
-      val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-      val a_oncontextmenu :
-        Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-      val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-      val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-      val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-      val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-      val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-      val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-      val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-      val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-      val a_ontouchstart :
-        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-      val a_ontouchcancel :
-        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-      val a_onkeypress :
-        Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-      val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-      val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
       val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
       val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-      val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+      val a_autocomplete :
+        Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
       val a_async : unit -> [> `Async ] attrib
       val a_autofocus : unit -> [> `Autofocus ] attrib
       val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -265,7 +1071,7 @@
       val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
       val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
       val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-      val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+      val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
       val a_multiple : unit -> [> `Multiple ] attrib
       val a_name : Html_types.text wrap -> [> `Name ] attrib
       val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -306,6 +1112,8 @@
       val a_readonly : unit -> [> `ReadOnly ] attrib
       val a_button_type :
         [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+      val a_script_type :
+        Html_types.script_type wrap -> [> `Script_type ] attrib
       val a_command_type :
         [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
       val a_menu_type :
@@ -368,8 +1176,8 @@
          [> Html_types.body ])
         star
       val svg :
-        ?a:[< Html_types.svg_attrib ] Svg.F.Raw.attrib list ->
-        [< Html_types.svg_content ] Svg.F.Raw.elt list_wrap ->
+        ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+        [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
         [> Html_types.svg ] elt
       val footer :
         ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
@@ -443,6 +1251,10 @@
         ([< Html_types.blockquote_attrib ],
          [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
         star
+      val dialog :
+        ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+         [> Html_types.dialog ])
+        star
       val div :
         ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
          [> Html_types.div ])
@@ -623,6 +1435,7 @@
           | `OnCanPlayThrough
           | `OnChange
           | `OnClick
+          | `OnClose
           | `OnContextMenu
           | `OnDblClick
           | `OnDrag
@@ -875,6 +1688,81 @@
           val space_sep_attrib : string -> string list wrap -> 'a attrib
           val comma_sep_attrib : string -> string list wrap -> 'a attrib
         end
+      val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+      val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+      val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+      val a_onbeforeunload : string -> [> `OnBeforeUnload ] Raw'.attrib
+      val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+      val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+      val a_oncanplaythrough : string -> [> `OnCanPlayThrough ] Raw'.attrib
+      val a_onchange : string -> [> `OnChange ] Raw'.attrib
+      val a_onclose : string -> [> `OnClose ] Raw'.attrib
+      val a_ondurationchange : string -> [> `OnDurationChange ] Raw'.attrib
+      val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+      val a_onended : string -> [> `OnEnded ] Raw'.attrib
+      val a_onerror : string -> [> `OnError ] Raw'.attrib
+      val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+      val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+      val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+      val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+      val a_oninput : string -> [> `OnInput ] Raw'.attrib
+      val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+      val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+      val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+      val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+      val a_onpause : string -> [> `OnPause ] Raw'.attrib
+      val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+      val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+      val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+      val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+      val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+      val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+      val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+      val a_onreadystatechange :
+        string -> [> `OnReadyStateChange ] Raw'.attrib
+      val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+      val a_onresize : string -> [> `OnResize ] Raw'.attrib
+      val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+      val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+      val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+      val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+      val a_onshow : string -> [> `OnShow ] Raw'.attrib
+      val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+      val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+      val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+      val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+      val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+      val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+      val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+      val a_onvolumechange : string -> [> `OnVolumeChange ] Raw'.attrib
+      val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+      val a_onload : string -> [> `OnLoad ] Raw'.attrib
+      val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+      val a_onloadedmetadata : string -> [> `OnLoadedMetaData ] Raw'.attrib
+      val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+      val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+      val a_onclick : string -> [> `OnClick ] Raw'.attrib
+      val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+      val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+      val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+      val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+      val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+      val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+      val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+      val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+      val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+      val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+      val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+      val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+      val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+      val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+      val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+      val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+      val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+      val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+      val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+      val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+      val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
     end
   type 'a elt = 'a elt
   type doc = Html_types.html elt
@@ -953,6 +1841,7 @@
   val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
   val a_oncanplaythrough : Xml.event_handler -> [> `OnCanPlayThrough ] attrib
   val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+  val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
   val a_ondurationchange : Xml.event_handler -> [> `OnDurationChange ] attrib
   val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
   val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
@@ -1021,7 +1910,8 @@
   val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
   val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
   val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-  val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+  val a_autocomplete :
+    Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
   val a_async : unit -> [> `Async ] attrib
   val a_autofocus : unit -> [> `Autofocus ] attrib
   val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -1120,7 +2010,7 @@
   val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
   val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
   val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-  val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+  val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
   val a_multiple : unit -> [> `Multiple ] attrib
   val a_name : Html_types.text wrap -> [> `Name ] attrib
   val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -1161,6 +2051,7 @@
   val a_readonly : unit -> [> `ReadOnly ] attrib
   val a_button_type :
     [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+  val a_script_type : Html_types.script_type wrap -> [> `Script_type ] attrib
   val a_command_type :
     [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
   val a_menu_type : [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
@@ -1219,8 +2110,8 @@
      [> Html_types.body ])
     star
   val svg :
-    ?a:[< Html_types.svg_attrib ] Svg.F.Raw.attrib list ->
-    [< Html_types.svg_content ] Svg.F.Raw.elt list_wrap ->
+    ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+    [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
     [> Html_types.svg ] elt
   val footer :
     ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
@@ -1294,6 +2185,10 @@
     ([< Html_types.blockquote_attrib ],
      [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
     star
+  val dialog :
+    ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+     [> Html_types.dialog ])
+    star
   val div :
     ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
      [> Html_types.div ])
@@ -1471,6 +2366,7 @@
       | `OnCanPlayThrough
       | `OnChange
       | `OnClick
+      | `OnClose
       | `OnContextMenu
       | `OnDblClick
       | `OnDrag
@@ -1931,6 +2827,7 @@
             | `OnCanPlayThrough
             | `OnChange
             | `OnClick
+            | `OnClose
             | `OnContextMenu
             | `OnDblClick
             | `OnDrag
diff --git a/doc/10.x/api/server/type_Eliom_content.Html.Id.wiki b/doc/11.x/api/server/type_Eliom_content.Html.Id.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_content.Html.Id.wiki
rename to doc/11.x/api/server/type_Eliom_content.Html.Id.wiki
diff --git a/doc/10.x/api/server/type_Eliom_content.Html.Printer.wiki b/doc/11.x/api/server/type_Eliom_content.Html.Printer.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_content.Html.Printer.wiki
rename to doc/11.x/api/server/type_Eliom_content.Html.Printer.wiki
diff --git a/doc/10.x/api/server/type_Eliom_content.Html.R.wiki b/doc/11.x/api/server/type_Eliom_content.Html.R.wiki
similarity index 98%
rename from doc/10.x/api/server/type_Eliom_content.Html.R.wiki
rename to doc/11.x/api/server/type_Eliom_content.Html.R.wiki
index ed200f7009..e5c7101b13 100644
--- a/doc/10.x/api/server/type_Eliom_content.Html.R.wiki
+++ b/doc/11.x/api/server/type_Eliom_content.Html.R.wiki
@@ -77,6 +77,7 @@
   val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
   val a_oncanplaythrough : Xml.event_handler -> [> `OnCanPlayThrough ] attrib
   val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+  val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
   val a_ondurationchange : Xml.event_handler -> [> `OnDurationChange ] attrib
   val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
   val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
@@ -145,7 +146,8 @@
   val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
   val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
   val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-  val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+  val a_autocomplete :
+    Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
   val a_async : unit -> [> `Async ] attrib
   val a_autofocus : unit -> [> `Autofocus ] attrib
   val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -244,7 +246,7 @@
   val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
   val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
   val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-  val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+  val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
   val a_multiple : unit -> [> `Multiple ] attrib
   val a_name : Html_types.text wrap -> [> `Name ] attrib
   val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -285,6 +287,7 @@
   val a_readonly : unit -> [> `ReadOnly ] attrib
   val a_button_type :
     [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+  val a_script_type : Html_types.script_type wrap -> [> `Script_type ] attrib
   val a_command_type :
     [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
   val a_menu_type : [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
@@ -418,6 +421,10 @@
     ([< Html_types.blockquote_attrib ],
      [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
     star
+  val dialog :
+    ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+     [> Html_types.dialog ])
+    star
   val div :
     ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
      [> Html_types.div ])
@@ -596,6 +603,7 @@
       | `OnCanPlayThrough
       | `OnChange
       | `OnClick
+      | `OnClose
       | `OnContextMenu
       | `OnDblClick
       | `OnDrag
diff --git a/doc/10.x/api/client/type_Eliom_content.Html.wiki b/doc/11.x/api/server/type_Eliom_content.Html.wiki
similarity index 83%
rename from doc/10.x/api/client/type_Eliom_content.Html.wiki
rename to doc/11.x/api/server/type_Eliom_content.Html.wiki
index 805c2a8cbf..65387f74ab 100644
--- a/doc/10.x/api/client/type_Eliom_content.Html.wiki
+++ b/doc/11.x/api/server/type_Eliom_content.Html.wiki
@@ -3,9 +3,10 @@
   type +'a attrib
   type uri = Eliom_content.Xml.uri
   type 'a form_param
+  module Ev' = Eliom_content_core.Html.Ev'
   module F :
     sig
-      module Raw :
+      module Raw' :
         sig
           type 'a elt = 'a elt
           type doc = Html_types.html elt
@@ -94,6 +95,7 @@
           val a_oncanplaythrough :
             Xml.event_handler -> [> `OnCanPlayThrough ] attrib
           val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+          val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
           val a_ondurationchange :
             Xml.event_handler -> [> `OnDurationChange ] attrib
           val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
@@ -182,7 +184,8 @@
           val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
           val a_allowpaymentrequest :
             unit -> [> `Allowpaymentrequest ] attrib
-          val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+          val a_autocomplete :
+            Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
           val a_async : unit -> [> `Async ] attrib
           val a_autofocus : unit -> [> `Autofocus ] attrib
           val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -300,7 +303,8 @@
           val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
           val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
           val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-          val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+          val a_formmethod :
+            [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
           val a_multiple : unit -> [> `Multiple ] attrib
           val a_name : Html_types.text wrap -> [> `Name ] attrib
           val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -341,6 +345,8 @@
           val a_readonly : unit -> [> `ReadOnly ] attrib
           val a_button_type :
             [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+          val a_script_type :
+            Html_types.script_type wrap -> [> `Script_type ] attrib
           val a_command_type :
             [< `Checkbox | `Command | `Radio ] wrap ->
             [> `Command_Type ] attrib
@@ -410,8 +416,8 @@
              [> Html_types.body ])
             star
           val svg :
-            ?a:[< Html_types.svg_attrib ] Svg.F.Raw.attrib list ->
-            [< Html_types.svg_content ] Svg.F.Raw.elt list_wrap ->
+            ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+            [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
             [> Html_types.svg ] elt
           val footer :
             ([< Html_types.footer_attrib ],
@@ -486,6 +492,10 @@
              [< Html_types.blockquote_content_fun ],
              [> Html_types.blockquote ])
             star
+          val dialog :
+            ([< Html_types.dialog_attrib ],
+             [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+            star
           val div :
             ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
              [> Html_types.div ])
@@ -670,6 +680,7 @@
               | `OnCanPlayThrough
               | `OnChange
               | `OnClick
+              | `OnClose
               | `OnContextMenu
               | `OnDblClick
               | `OnDrag
@@ -929,1235 +940,72 @@
               val comma_sep_attrib : string -> string list wrap -> 'a attrib
             end
         end
-      type 'a elt = 'a elt
-      type doc = Html_types.html elt
-      type 'a attrib = 'a attrib
-      module Xml :
+      module Raw :
         sig
-          module W :
+          type 'a elt = 'a elt
+          type doc = Html_types.html elt
+          type 'a attrib = 'a attrib
+          module Xml :
             sig
-              type 'a t = 'a Xml.W.t
-              val return : 'a -> 'a t
-              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
-              val fmap : ('a, 'b) ft -> 'a t -> 'b t
-              type 'a tlist = 'a Xml.W.tlist
-              val nil : unit -> 'a tlist
-              val singleton : 'a t -> 'a tlist
-              val cons : 'a t -> 'a tlist -> 'a tlist
-              val append : 'a tlist -> 'a tlist -> 'a tlist
-              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+              module W :
+                sig
+                  type 'a t = 'a Xml.W.t
+                  val return : 'a -> 'a t
+                  type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                  type 'a tlist = 'a Xml.W.tlist
+                  val nil : unit -> 'a tlist
+                  val singleton : 'a t -> 'a tlist
+                  val cons : 'a t -> 'a tlist -> 'a tlist
+                  val append : 'a tlist -> 'a tlist -> 'a tlist
+                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                end
+              type 'a wrap = 'a W.t
+              type 'a list_wrap = 'a W.tlist
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) W.ft
+              val uri_of_string : (string, uri) W.ft
+              type aname = string
+              type event_handler = Xml.event_handler
+              type mouse_event_handler = Xml.mouse_event_handler
+              type keyboard_event_handler = Xml.keyboard_event_handler
+              type touch_event_handler = Xml.touch_event_handler
+              type attrib = Xml.attrib
+              val float_attrib : aname -> float wrap -> attrib
+              val int_attrib : aname -> int wrap -> attrib
+              val string_attrib : aname -> string wrap -> attrib
+              val space_sep_attrib : aname -> string list wrap -> attrib
+              val comma_sep_attrib : aname -> string list wrap -> attrib
+              val event_handler_attrib : aname -> event_handler -> attrib
+              val mouse_event_handler_attrib :
+                aname -> mouse_event_handler -> attrib
+              val keyboard_event_handler_attrib :
+                aname -> keyboard_event_handler -> attrib
+              val touch_event_handler_attrib :
+                aname -> touch_event_handler -> attrib
+              val uri_attrib : aname -> uri wrap -> attrib
+              val uris_attrib : aname -> uri list wrap -> attrib
+              type elt = Xml.elt
+              type ename = string
+              val empty : unit -> elt
+              val comment : string -> elt
+              val pcdata : string wrap -> elt
+              val encodedpcdata : string wrap -> elt
+              val entity : string -> elt
+              val leaf : ?a:attrib list -> ename -> elt
+              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+              val cdata : string -> elt
+              val cdata_script : string -> elt
+              val cdata_style : string -> elt
             end
-          type 'a wrap = 'a W.t
-          type 'a list_wrap = 'a W.tlist
-          type uri = Xml.uri
-          val string_of_uri : (uri, string) W.ft
-          val uri_of_string : (string, uri) W.ft
-          type aname = string
-          type event_handler = Xml.event_handler
-          type mouse_event_handler = Xml.mouse_event_handler
-          type keyboard_event_handler = Xml.keyboard_event_handler
-          type touch_event_handler = Xml.touch_event_handler
-          type attrib = Xml.attrib
-          val float_attrib : aname -> float wrap -> attrib
-          val int_attrib : aname -> int wrap -> attrib
-          val string_attrib : aname -> string wrap -> attrib
-          val space_sep_attrib : aname -> string list wrap -> attrib
-          val comma_sep_attrib : aname -> string list wrap -> attrib
-          val event_handler_attrib : aname -> event_handler -> attrib
-          val mouse_event_handler_attrib :
-            aname -> mouse_event_handler -> attrib
-          val keyboard_event_handler_attrib :
-            aname -> keyboard_event_handler -> attrib
-          val touch_event_handler_attrib :
-            aname -> touch_event_handler -> attrib
-          val uri_attrib : aname -> uri wrap -> attrib
-          val uris_attrib : aname -> uri list wrap -> attrib
-          type elt = Xml.elt
-          type ename = string
-          val empty : unit -> elt
-          val comment : string -> elt
-          val pcdata : string wrap -> elt
-          val encodedpcdata : string wrap -> elt
-          val entity : string -> elt
-          val leaf : ?a:attrib list -> ename -> elt
-          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
-          val cdata : string -> elt
-          val cdata_script : string -> elt
-          val cdata_style : string -> elt
-        end
-      type 'a wrap = 'a Xml.W.t
-      type 'a list_wrap = 'a Xml.W.tlist
-      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
-      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
-      type ('a, 'b, 'c) star =
-          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-      module Info : Xml_sigs.Info
-      type uri = Xml.uri
-      val string_of_uri : (uri, string) Xml.W.ft
-      val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
-      val a_user_data :
-        Html_types.nmtoken -> Html_types.text wrap -> [> `User_data ] attrib
-      val a_id : Html_types.text wrap -> [> `Id ] attrib
-      val a_title : Html_types.text wrap -> [> `Title ] attrib
-      val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
-      val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-      val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
-      val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
-      val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
-      val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-      val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-      val a_oncanplaythrough :
-        Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-      val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-      val a_ondurationchange :
-        Xml.event_handler -> [> `OnDurationChange ] attrib
-      val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-      val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-      val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-      val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
-      val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
-      val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
-      val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-      val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-      val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
-      val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-      val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-      val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-      val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-      val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-      val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-      val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-      val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-      val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-      val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
-      val a_onreadystatechange :
-        Xml.event_handler -> [> `OnReadyStateChange ] attrib
-      val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-      val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-      val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-      val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-      val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-      val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-      val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-      val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-      val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-      val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
-      val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-      val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
-      val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-      val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
-      val a_onloadedmetadata :
-        Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-      val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
-      val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-      val a_oncontextmenu :
-        Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-      val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-      val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-      val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-      val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-      val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-      val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-      val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-      val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-      val a_ontouchstart :
-        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-      val a_ontouchcancel :
-        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-      val a_onkeypress :
-        Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-      val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-      val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
-      val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
-      val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-      val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
-      val a_async : unit -> [> `Async ] attrib
-      val a_autofocus : unit -> [> `Autofocus ] attrib
-      val a_autoplay : unit -> [> `Autoplay ] attrib
-      val a_muted : unit -> [> `Muted ] attrib
-      val a_crossorigin :
-        [< `Anonymous | `Use_credentials ] wrap -> [> `Crossorigin ] attrib
-      val a_integrity : string wrap -> [> `Integrity ] attrib
-      val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
-      val a_challenge : Html_types.text wrap -> [> `Challenge ] attrib
-      val a_contenteditable : bool wrap -> [> `Contenteditable ] attrib
-      val a_contextmenu : Html_types.idref wrap -> [> `Contextmenu ] attrib
-      val a_controls : unit -> [> `Controls ] attrib
-      val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
-      val a_draggable : bool wrap -> [> `Draggable ] attrib
-      val a_form : Html_types.idref wrap -> [> `Form ] attrib
-      val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
-      val a_formenctype :
-        Html_types.contenttype wrap -> [> `Formenctype ] attrib
-      val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
-      val a_formtarget : Html_types.text wrap -> [> `Formtarget ] attrib
-      val a_hidden : unit -> [> `Hidden ] attrib
-      val a_high : Html_types.float_number wrap -> [> `High ] attrib
-      val a_icon : Xml.uri wrap -> [> `Icon ] attrib
-      val a_ismap : unit -> [> `Ismap ] attrib
-      val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
-      val a_list : Html_types.idref wrap -> [> `List ] attrib
-      val a_loop : unit -> [> `Loop ] attrib
-      val a_low : Html_types.float_number wrap -> [> `High ] attrib
-      val a_max : Html_types.float_number wrap -> [> `Max ] attrib
-      val a_input_max :
-        Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
-      val a_min : Html_types.float_number wrap -> [> `Min ] attrib
-      val a_input_min :
-        Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
-      val a_inputmode :
-        [< `Decimal
-         | `Email
-         | `None
-         | `Numeric
-         | `Search
-         | `Tel
-         | `Text
-         | `Url ]
-        wrap -> [> `Inputmode ] attrib
-      val a_novalidate : unit -> [> `Novalidate ] attrib
-      val a_open : unit -> [> `Open ] attrib
-      val a_optimum : Html_types.float_number wrap -> [> `Optimum ] attrib
-      val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
-      val a_placeholder : Html_types.text wrap -> [> `Placeholder ] attrib
-      val a_poster : Xml.uri wrap -> [> `Poster ] attrib
-      val a_preload :
-        [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
-      val a_pubdate : unit -> [> `Pubdate ] attrib
-      val a_radiogroup : Html_types.text wrap -> [> `Radiogroup ] attrib
-      val a_referrerpolicy :
-        Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
-      val a_required : unit -> [> `Required ] attrib
-      val a_reversed : unit -> [> `Reversed ] attrib
-      val a_sandbox :
-        [< Html_types.sandbox_token ] list wrap -> [> `Sandbox ] attrib
-      val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
-      val a_scoped : unit -> [> `Scoped ] attrib
-      val a_seamless : unit -> [> `Seamless ] attrib
-      val a_sizes :
-        (Html_types.number * Html_types.number) list option wrap ->
-        [> `Sizes ] attrib
-      val a_span : Html_types.number wrap -> [> `Span ] attrib
-      val a_srclang : Html_types.nmtoken wrap -> [> `XML_lang ] attrib
-      type image_candidate =
-          [ `Url of uri
-          | `Url_pixel of uri * Html_types.float_number
-          | `Url_width of uri * Html_types.number ]
-      val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
-      val a_img_sizes : Html_types.text list wrap -> [> `Img_sizes ] attrib
-      val a_start : Html_types.number wrap -> [> `Start ] attrib
-      val a_step : Html_types.float_number option wrap -> [> `Step ] attrib
-      val a_translate : [< `No | `Yes ] wrap -> [> `Translate ] attrib
-      val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
-      val a_version : Html_types.cdata wrap -> [> `Version ] attrib
-      val a_xmlns : [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
-      val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
-      val a_cite : Xml.uri wrap -> [> `Cite ] attrib
-      val a_xml_space :
-        [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
-      val a_accesskey : Html_types.character wrap -> [> `Accesskey ] attrib
-      val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
-      val a_accept_charset :
-        Html_types.charsets wrap -> [> `Accept_charset ] attrib
-      val a_accept : Html_types.contenttypes wrap -> [> `Accept ] attrib
-      val a_href : Xml.uri wrap -> [> `Href ] attrib
-      val a_hreflang : Html_types.languagecode wrap -> [> `Hreflang ] attrib
-      val a_download : string option wrap -> [> `Download ] attrib
-      val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
-      val a_tabindex : Html_types.number wrap -> [> `Tabindex ] attrib
-      val a_mime_type : Html_types.contenttype wrap -> [> `Mime_type ] attrib
-      val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
-      val a_action : Xml.uri wrap -> [> `Action ] attrib
-      val a_checked : unit -> [> `Checked ] attrib
-      val a_cols : Html_types.number wrap -> [> `Cols ] attrib
-      val a_enctype : Html_types.contenttype wrap -> [> `Enctype ] attrib
-      val a_label_for : Html_types.idref wrap -> [> `Label_for ] attrib
-      val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
-      val a_output_for : Html_types.idrefs wrap -> [> `Output_for ] attrib
-      val a_for_list : Html_types.idrefs wrap -> [> `Output_for ] attrib
-      val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
-      val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
-      val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-      val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
-      val a_multiple : unit -> [> `Multiple ] attrib
-      val a_name : Html_types.text wrap -> [> `Name ] attrib
-      val a_rows : Html_types.number wrap -> [> `Rows ] attrib
-      val a_selected : unit -> [> `Selected ] attrib
-      val a_size : Html_types.number wrap -> [> `Size ] attrib
-      val a_src : Xml.uri wrap -> [> `Src ] attrib
-      val a_input_type :
-        [< `Button
-         | `Checkbox
-         | `Color
-         | `Date
-         | `Datetime
-         | `Datetime_local
-         | `Email
-         | `File
-         | `Hidden
-         | `Image
-         | `Month
-         | `Number
-         | `Password
-         | `Radio
-         | `Range
-         | `Reset
-         | `Search
-         | `Submit
-         | `Tel
-         | `Text
-         | `Time
-         | `Url
-         | `Week ]
-        wrap -> [> `Input_Type ] attrib
-      val a_text_value : Html_types.text wrap -> [> `Text_Value ] attrib
-      val a_int_value : Html_types.number wrap -> [> `Int_Value ] attrib
-      val a_value : Html_types.cdata wrap -> [> `Value ] attrib
-      val a_float_value :
-        Html_types.float_number wrap -> [> `Float_Value ] attrib
-      val a_disabled : unit -> [> `Disabled ] attrib
-      val a_readonly : unit -> [> `ReadOnly ] attrib
-      val a_button_type :
-        [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
-      val a_command_type :
-        [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
-      val a_menu_type :
-        [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
-      val a_label : Html_types.text wrap -> [> `Label ] attrib
-      val a_align :
-        [< `Char | `Justify | `Left | `Right ] wrap -> [> `Align ] attrib
-      val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
-      val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
-      val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
-      val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
-      val a_scope :
-        [< `Col | `Colgroup | `Row | `Rowgroup ] wrap -> [> `Scope ] attrib
-      val a_summary : Html_types.text wrap -> [> `Summary ] attrib
-      val a_border : Html_types.pixels wrap -> [> `Border ] attrib
-      val a_rules :
-        [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
-        [> `Rules ] attrib
-      val a_char : Html_types.character wrap -> [> `Char ] attrib
-      val a_alt : Html_types.text wrap -> [> `Alt ] attrib
-      val a_height : Html_types.number wrap -> [> `Height ] attrib
-      val a_width : Html_types.number wrap -> [> `Width ] attrib
-      type shape = [ `Circle | `Default | `Poly | `Rect ]
-      val a_shape : shape wrap -> [> `Shape ] attrib
-      val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
-      val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
-      val a_data : Xml.uri wrap -> [> `Data ] attrib
-      val a_codetype : Html_types.contenttype wrap -> [> `Codetype ] attrib
-      val a_frameborder : [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
-      val a_marginheight :
-        Html_types.pixels wrap -> [> `Marginheight ] attrib
-      val a_marginwidth : Html_types.pixels wrap -> [> `Marginwidth ] attrib
-      val a_scrolling :
-        [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
-      val a_target : Html_types.frametarget wrap -> [> `Target ] attrib
-      val a_content : Html_types.text wrap -> [> `Content ] attrib
-      val a_http_equiv : Html_types.text wrap -> [> `Http_equiv ] attrib
-      val a_defer : unit -> [> `Defer ] attrib
-      val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
-      val a_style : string wrap -> [> `Style_Attr ] attrib
-      val a_property : string wrap -> [> `Property ] attrib
-      val a_role : string list wrap -> [> `Role ] attrib
-      val a_aria : string -> string list wrap -> [> `Aria ] attrib
-      val txt : string wrap -> [> Html_types.txt ] elt
-      val html :
-        ?a:Html_types.html_attrib attrib list ->
-        [< Html_types.head ] elt wrap ->
-        [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
-      val head :
-        ?a:Html_types.head_attrib attrib list ->
-        [< Html_types.title ] elt wrap ->
-        Html_types.head_content_fun elt list_wrap -> [> Html_types.head ] elt
-      val base : ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
-      val title :
-        (Html_types.title_attrib, [< Html_types.title_content_fun ],
-         [> Html_types.title ])
-        unary
-      val body :
-        ([< Html_types.body_attrib ], [< Html_types.body_content_fun ],
-         [> Html_types.body ])
-        star
-      val svg :
-        ?a:[< Html_types.svg_attrib ] Svg.F.Raw.attrib list ->
-        [< Html_types.svg_content ] Svg.F.Raw.elt list_wrap ->
-        [> Html_types.svg ] elt
-      val footer :
-        ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
-         [> Html_types.footer ])
-        star
-      val header :
-        ([< Html_types.header_attrib ], [< Html_types.header_content_fun ],
-         [> Html_types.header ])
-        star
-      val section :
-        ([< Html_types.section_attrib ], [< Html_types.section_content_fun ],
-         [> Html_types.section ])
-        star
-      val nav :
-        ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
-         [> Html_types.nav ])
-        star
-      val h1 :
-        ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
-         [> Html_types.h1 ])
-        star
-      val h2 :
-        ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
-         [> Html_types.h2 ])
-        star
-      val h3 :
-        ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
-         [> Html_types.h3 ])
-        star
-      val h4 :
-        ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
-         [> Html_types.h4 ])
-        star
-      val h5 :
-        ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
-         [> Html_types.h5 ])
-        star
-      val h6 :
-        ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
-         [> Html_types.h6 ])
-        star
-      val hgroup :
-        ([< Html_types.hgroup_attrib ], [< Html_types.hgroup_content_fun ],
-         [> Html_types.hgroup ])
-        star
-      val address :
-        ([< Html_types.address_attrib ], [< Html_types.address_content_fun ],
-         [> Html_types.address ])
-        star
-      val article :
-        ([< Html_types.article_attrib ], [< Html_types.article_content_fun ],
-         [> Html_types.article ])
-        star
-      val aside :
-        ([< Html_types.aside_attrib ], [< Html_types.aside_content_fun ],
-         [> Html_types.aside ])
-        star
-      val main :
-        ([< Html_types.main_attrib ], [< Html_types.main_content_fun ],
-         [> Html_types.main ])
-        star
-      val p :
-        ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
-         [> Html_types.p ])
-        star
-      val pre :
-        ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
-         [> Html_types.pre ])
-        star
-      val blockquote :
-        ([< Html_types.blockquote_attrib ],
-         [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
-        star
-      val div :
-        ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
-         [> Html_types.div ])
-        star
-      val dl :
-        ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
-         [> Html_types.dl ])
-        star
-      val ol :
-        ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
-         [> Html_types.ol ])
-        star
-      val ul :
-        ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
-         [> Html_types.ul ])
-        star
-      val dd :
-        ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
-         [> Html_types.dd ])
-        star
-      val dt :
-        ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
-         [> Html_types.dt ])
-        star
-      val li :
-        ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
-         [> Html_types.li ])
-        star
-      val figcaption :
-        ([< Html_types.figcaption_attrib ],
-         [< Html_types.figcaption_content_fun ], [> Html_types.figcaption ])
-        star
-      val figure :
-        ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
-                    | `Top of [< Html_types.figcaption ] elt wrap ] ->
-        ([< Html_types.figure_attrib ], [< Html_types.figure_content_fun ],
-         [> Html_types.figure ])
-        star
-      val hr : ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
-      val b :
-        ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
-         [> Html_types.b ])
-        star
-      val i :
-        ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
-         [> Html_types.i ])
-        star
-      val u :
-        ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
-         [> Html_types.u ])
-        star
-      val small :
-        ([< Html_types.small_attrib ], [< Html_types.small_content_fun ],
-         [> Html_types.small ])
-        star
-      val sub :
-        ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
-         [> Html_types.sub ])
-        star
-      val sup :
-        ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
-         [> Html_types.sup ])
-        star
-      val mark :
-        ([< Html_types.mark_attrib ], [< Html_types.mark_content_fun ],
-         [> Html_types.mark ])
-        star
-      val wbr : ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
-      val bdo :
-        dir:[< `Ltr | `Rtl ] wrap ->
-        ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
-         [> Html_types.bdo ])
-        star
-      val abbr :
-        ([< Html_types.abbr_attrib ], [< Html_types.abbr_content_fun ],
-         [> Html_types.abbr ])
-        star
-      val br : ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
-      val cite :
-        ([< Html_types.cite_attrib ], [< Html_types.cite_content_fun ],
-         [> Html_types.cite ])
-        star
-      val code :
-        ([< Html_types.code_attrib ], [< Html_types.code_content_fun ],
-         [> Html_types.code ])
-        star
-      val dfn :
-        ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
-         [> Html_types.dfn ])
-        star
-      val em :
-        ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
-         [> Html_types.em ])
-        star
-      val kbd :
-        ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
-         [> Html_types.kbd ])
-        star
-      val q :
-        ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
-         [> Html_types.q ])
-        star
-      val samp :
-        ([< Html_types.samp_attrib ], [< Html_types.samp_content_fun ],
-         [> Html_types.samp ])
-        star
-      val span :
-        ([< Html_types.span_attrib ], [< Html_types.span_content_fun ],
-         [> Html_types.span ])
-        star
-      val strong :
-        ([< Html_types.strong_attrib ], [< Html_types.strong_content_fun ],
-         [> Html_types.strong ])
-        star
-      val time :
-        ([< Html_types.time_attrib ], [< Html_types.time_content_fun ],
-         [> Html_types.time ])
-        star
-      val var :
-        ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
-         [> Html_types.var ])
-        star
-      val del : ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
-      val ins : ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
-      val img :
-        src:Xml.uri wrap ->
-        alt:Html_types.text wrap ->
-        ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
-      val picture :
-        img:[< Html_types.img ] elt wrap ->
-        ([< Html_types.picture_attrib ], [< Html_types.picture_content_fun ],
-         [> Html_types.picture ])
-        star
-      val iframe :
-        ([< Html_types.iframe_attrib ], [< Html_types.iframe_content_fun ],
-         [> Html_types.iframe ])
-        star
-      val object_ :
-        ?params:[< Html_types.param ] elt list_wrap ->
-        ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
-      val param :
-        ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
-      val embed :
-        ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
-      val audio :
-        ?src:Xml.uri wrap ->
-        ?srcs:[< Html_types.source ] elt list_wrap ->
-        ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ]) star
-      val video :
-        ?src:Xml.uri wrap ->
-        ?srcs:[< Html_types.source ] elt list_wrap ->
-        ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ]) star
-      val canvas :
-        ([< Html_types.canvas_attrib ], 'a, [> 'a Html_types.canvas ]) star
-      val source :
-        ([< Html_types.source_attrib ], [> Html_types.source ]) nullary
-      val area :
-        alt:Html_types.text wrap ->
-        ([< `Accesskey
-          | `Alt
-          | `Aria
-          | `Class
-          | `Contenteditable
-          | `Contextmenu
-          | `Coords
-          | `Dir
-          | `Draggable
-          | `Hidden
-          | `Hreflang
-          | `Id
-          | `Lang
-          | `Media
-          | `Mime_type
-          | `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
-          | `Rel
-          | `Role
-          | `Shape
-          | `Spellcheck
-          | `Style_Attr
-          | `Tabindex
-          | `Target
-          | `Title
-          | `Translate
-          | `User_data
-          | `XML_lang
-          | `XMLns ],
-         [> Html_types.area ])
-        nullary
-      val map : ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
-      val caption :
-        ([< Html_types.caption_attrib ], [< Html_types.caption_content_fun ],
-         [> Html_types.caption ])
-        star
-      val table :
-        ?caption:[< Html_types.caption ] elt wrap ->
-        ?columns:[< Html_types.colgroup ] elt list_wrap ->
-        ?thead:[< Html_types.thead ] elt wrap ->
-        ?tfoot:[< Html_types.tfoot ] elt wrap ->
-        ([< Html_types.table_attrib ], [< Html_types.table_content_fun ],
-         [> Html_types.table ])
-        star
-      val tablex :
-        ?caption:[< Html_types.caption ] elt wrap ->
-        ?columns:[< Html_types.colgroup ] elt list_wrap ->
-        ?thead:[< Html_types.thead ] elt wrap ->
-        ?tfoot:[< Html_types.tfoot ] elt wrap ->
-        ([< Html_types.tablex_attrib ], [< Html_types.tablex_content_fun ],
-         [> Html_types.tablex ])
-        star
-      val colgroup :
-        ([< Html_types.colgroup_attrib ],
-         [< Html_types.colgroup_content_fun ], [> Html_types.colgroup ])
-        star
-      val col : ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
-      val thead :
-        ([< Html_types.thead_attrib ], [< Html_types.thead_content_fun ],
-         [> Html_types.thead ])
-        star
-      val tbody :
-        ([< Html_types.tbody_attrib ], [< Html_types.tbody_content_fun ],
-         [> Html_types.tbody ])
-        star
-      val tfoot :
-        ([< Html_types.tfoot_attrib ], [< Html_types.tfoot_content_fun ],
-         [> Html_types.tfoot ])
-        star
-      val td :
-        ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
-         [> Html_types.td ])
-        star
-      val th :
-        ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
-         [> Html_types.th ])
-        star
-      val tr :
-        ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
-         [> Html_types.tr ])
-        star
-      val form :
-        ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
-         [> Html_types.form ])
-        star
-      val fieldset :
-        ?legend:[< Html_types.legend ] elt wrap ->
-        ([< Html_types.fieldset_attrib ],
-         [< Html_types.fieldset_content_fun ], [> Html_types.fieldset ])
-        star
-      val legend :
-        ([< Html_types.legend_attrib ], [< Html_types.legend_content_fun ],
-         [> Html_types.legend ])
-        star
-      val label :
-        ([< Html_types.label_attrib ], [< Html_types.label_content_fun ],
-         [> Html_types.label ])
-        star
-      val input :
-        ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
-      val button :
-        ([< Html_types.button_attrib ], [< Html_types.button_content_fun ],
-         [> Html_types.button ])
-        star
-      val select :
-        ([< Html_types.select_attrib ], [< Html_types.select_content_fun ],
-         [> Html_types.select ])
-        star
-      val datalist :
-        ?children:[< `Options of [< Html_types.selectoption ] elt list_wrap
-                   | `Phras of [< Html_types.phrasing ] elt list_wrap ] ->
-        ([< Html_types.datalist_attrib ], [> Html_types.datalist ]) nullary
-      val optgroup :
-        label:Html_types.text wrap ->
-        ([< Html_types.optgroup_attrib ],
-         [< Html_types.optgroup_content_fun ], [> Html_types.optgroup ])
-        star
-      val option :
-        ([< Html_types.option_attrib ], [< Html_types.option_content_fun ],
-         [> Html_types.selectoption ])
-        unary
-      val textarea :
-        ([< Html_types.textarea_attrib ],
-         [< Html_types.textarea_content_fun ], [> Html_types.textarea ])
-        unary
-      val keygen :
-        ([< Html_types.keygen_attrib ], [> Html_types.keygen ]) nullary
-      val progress :
-        ([< Html_types.progress_attrib ],
-         [< Html_types.progress_content_fun ], [> Html_types.progress ])
-        star
-      val meter :
-        ([< Html_types.meter_attrib ], [< Html_types.meter_content_fun ],
-         [> Html_types.meter ])
-        star
-      val output_elt :
-        ([< Html_types.output_elt_attrib ],
-         [< Html_types.output_elt_content_fun ], [> Html_types.output_elt ])
-        star
-      val entity : string -> [> Html_types.txt ] elt
-      val space : unit -> [> Html_types.txt ] elt
-      val cdata : string -> [> Html_types.txt ] elt
-      val cdata_script : string -> [> Html_types.txt ] elt
-      val cdata_style : string -> [> Html_types.txt ] elt
-      val details :
-        [< Html_types.summary ] elt wrap ->
-        ([< Html_types.details_attrib ], [< Html_types.details_content_fun ],
-         [> Html_types.details ])
-        star
-      val summary :
-        ([< Html_types.summary_attrib ], [< Html_types.summary_content_fun ],
-         [> Html_types.summary ])
-        star
-      val command :
-        label:Html_types.text wrap ->
-        ([< Html_types.command_attrib ], [> Html_types.command ]) nullary
-      val menu :
-        ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
-                   | `Lis of [< `Li of [< Html_types.common ] ] elt list_wrap
-                  ] ->
-        ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
-      val script :
-        ([< Html_types.script_attrib ], [< Html_types.script_content_fun ],
-         [> Html_types.script ])
-        unary
-      val noscript :
-        ([< Html_types.noscript_attrib ],
-         [< Html_types.noscript_content_fun ], [> Html_types.noscript ])
-        star
-      val template :
-        ([< Html_types.template_attrib ],
-         [< Html_types.template_content_fun ], [> Html_types.template ])
-        star
-      val meta : ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
-      val style :
-        ([< Html_types.style_attrib ], [< Html_types.style_content_fun ],
-         [> Html_types.style ])
-        star
-      val link :
-        rel:Html_types.linktypes wrap ->
-        href:Xml.uri wrap ->
-        ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
-      val rt :
-        ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
-         [> Html_types.rt ])
-        star
-      val rp :
-        ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
-         [> Html_types.rp ])
-        star
-      val ruby :
-        ([< Html_types.ruby_attrib ], [< Html_types.ruby_content_fun ],
-         [> Html_types.ruby ])
-        star
-      val pcdata : string wrap -> [> Html_types.pcdata ] elt
-      val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
-      val tot : Xml.elt -> 'a elt
-      val totl : Xml.elt list_wrap -> 'a elt list_wrap
-      val toelt : 'a elt -> Xml.elt
-      val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
-      val doc_toelt : doc -> Xml.elt
-      val to_xmlattribs : 'a attrib list -> Xml.attrib list
-      val to_attrib : Xml.attrib -> 'a attrib
-      module Unsafe :
-        sig
-          val data : string wrap -> 'a elt
-          val node :
-            string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-          val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
-          val coerce_elt : 'a elt -> 'b elt
-          val string_attrib : string -> string wrap -> 'a attrib
-          val float_attrib : string -> float wrap -> 'a attrib
-          val int_attrib : string -> int wrap -> 'a attrib
-          val uri_attrib : string -> uri wrap -> 'a attrib
-          val space_sep_attrib : string -> string list wrap -> 'a attrib
-          val comma_sep_attrib : string -> string list wrap -> 'a attrib
-        end
-      type ('a, 'b, 'c) lazy_star =
-          ?a:'a attrib list -> 'b elt list Eliom_lazy.request -> 'c elt
-      val lazy_form :
-        ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
-         [> Html_types.form ])
-        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
-  module D :
-    sig
-      module Raw :
-        sig
-          type 'a elt = 'a elt
-          type doc = Html_types.html elt
-          type 'a attrib = 'a attrib
-          module Xml :
-            sig
-              module W :
-                sig
-                  type 'a t = 'a Xml.W.t
-                  val return : 'a -> 'a t
-                  type ('a, 'b) ft = ('a, 'b) Xml.W.ft
-                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
-                  type 'a tlist = 'a Xml.W.tlist
-                  val nil : unit -> 'a tlist
-                  val singleton : 'a t -> 'a tlist
-                  val cons : 'a t -> 'a tlist -> 'a tlist
-                  val append : 'a tlist -> 'a tlist -> 'a tlist
-                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
-                end
-              type 'a wrap = 'a W.t
-              type 'a list_wrap = 'a W.tlist
-              type uri = Xml.uri
-              val string_of_uri : (uri, string) W.ft
-              val uri_of_string : (string, uri) W.ft
-              type aname = string
-              type event_handler = Xml.event_handler
-              type mouse_event_handler = Xml.mouse_event_handler
-              type keyboard_event_handler = Xml.keyboard_event_handler
-              type touch_event_handler = Xml.touch_event_handler
-              type attrib = Xml.attrib
-              val float_attrib : aname -> float wrap -> attrib
-              val int_attrib : aname -> int wrap -> attrib
-              val string_attrib : aname -> string wrap -> attrib
-              val space_sep_attrib : aname -> string list wrap -> attrib
-              val comma_sep_attrib : aname -> string list wrap -> attrib
-              val event_handler_attrib : aname -> event_handler -> attrib
-              val mouse_event_handler_attrib :
-                aname -> mouse_event_handler -> attrib
-              val keyboard_event_handler_attrib :
-                aname -> keyboard_event_handler -> attrib
-              val touch_event_handler_attrib :
-                aname -> touch_event_handler -> attrib
-              val uri_attrib : aname -> uri wrap -> attrib
-              val uris_attrib : aname -> uri list wrap -> attrib
-              type elt = Xml.elt
-              type ename = string
-              val empty : unit -> elt
-              val comment : string -> elt
-              val pcdata : string wrap -> elt
-              val encodedpcdata : string wrap -> elt
-              val entity : string -> elt
-              val leaf : ?a:attrib list -> ename -> elt
-              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
-              val cdata : string -> elt
-              val cdata_script : string -> elt
-              val cdata_style : string -> elt
-            end
-          type 'a wrap = 'a Xml.W.t
-          type 'a list_wrap = 'a Xml.W.tlist
-          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
-          type ('a, 'b, 'c) unary =
-              ?a:'a attrib list -> 'b elt wrap -> 'c elt
-          type ('a, 'b, 'c) star =
-              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-          module Info : Xml_sigs.Info
+          type 'a wrap = 'a Xml.W.t
+          type 'a list_wrap = 'a Xml.W.tlist
+          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+          type ('a, 'b, 'c) unary =
+              ?a:'a attrib list -> 'b elt wrap -> 'c elt
+          type ('a, 'b, 'c) star =
+              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          module Info : Xml_sigs.Info
           type uri = Xml.uri
           val string_of_uri : (uri, string) Xml.W.ft
           val uri_of_string : (string, uri) Xml.W.ft
@@ -2170,106 +1018,11 @@
           val a_xml_lang :
             Html_types.languagecode wrap -> [> `XML_lang ] attrib
           val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-          val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-          val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
-          val a_onbeforeprint :
-            Xml.event_handler -> [> `OnBeforePrint ] attrib
-          val a_onbeforeunload :
-            Xml.event_handler -> [> `OnBeforeUnload ] attrib
-          val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-          val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-          val a_oncanplaythrough :
-            Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-          val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-          val a_ondurationchange :
-            Xml.event_handler -> [> `OnDurationChange ] attrib
-          val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-          val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-          val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-          val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-          val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
-          val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
-          val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
-          val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-          val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-          val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
-          val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-          val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-          val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-          val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-          val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-          val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-          val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-          val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-          val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-          val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
-          val a_onreadystatechange :
-            Xml.event_handler -> [> `OnReadyStateChange ] attrib
-          val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-          val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-          val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-          val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-          val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-          val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-          val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-          val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-          val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-          val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-          val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-          val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
-          val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-          val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-          val a_onvolumechange :
-            Xml.event_handler -> [> `OnVolumeChange ] attrib
-          val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-          val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-          val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
-          val a_onloadedmetadata :
-            Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-          val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
-          val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-          val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-          val a_oncontextmenu :
-            Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-          val a_ondblclick :
-            Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-          val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-          val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-          val a_ondragenter :
-            Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-          val a_ondragleave :
-            Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-          val a_ondragover :
-            Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-          val a_ondragstart :
-            Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-          val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-          val a_onmousedown :
-            Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-          val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-          val a_onmouseover :
-            Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-          val a_onmousemove :
-            Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-          val a_onmouseout :
-            Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-          val a_ontouchstart :
-            Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-          val a_ontouchend :
-            Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-          val a_ontouchmove :
-            Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-          val a_ontouchcancel :
-            Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-          val a_onkeypress :
-            Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-          val a_onkeydown :
-            Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-          val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
           val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
           val a_allowpaymentrequest :
             unit -> [> `Allowpaymentrequest ] attrib
-          val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+          val a_autocomplete :
+            Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
           val a_async : unit -> [> `Async ] attrib
           val a_autofocus : unit -> [> `Autofocus ] attrib
           val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -2387,7 +1140,8 @@
           val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
           val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
           val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-          val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+          val a_formmethod :
+            [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
           val a_multiple : unit -> [> `Multiple ] attrib
           val a_name : Html_types.text wrap -> [> `Name ] attrib
           val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -2428,6 +1182,8 @@
           val a_readonly : unit -> [> `ReadOnly ] attrib
           val a_button_type :
             [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+          val a_script_type :
+            Html_types.script_type wrap -> [> `Script_type ] attrib
           val a_command_type :
             [< `Checkbox | `Command | `Radio ] wrap ->
             [> `Command_Type ] attrib
@@ -2497,8 +1253,8 @@
              [> Html_types.body ])
             star
           val svg :
-            ?a:[< Html_types.svg_attrib ] Svg.D.Raw.attrib list ->
-            [< Html_types.svg_content ] Svg.D.Raw.elt list_wrap ->
+            ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+            [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
             [> Html_types.svg ] elt
           val footer :
             ([< Html_types.footer_attrib ],
@@ -2573,6 +1329,10 @@
              [< Html_types.blockquote_content_fun ],
              [> Html_types.blockquote ])
             star
+          val dialog :
+            ([< Html_types.dialog_attrib ],
+             [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+            star
           val div :
             ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
              [> Html_types.div ])
@@ -2757,6 +1517,7 @@
               | `OnCanPlayThrough
               | `OnChange
               | `OnClick
+              | `OnClose
               | `OnContextMenu
               | `OnDblClick
               | `OnDrag
@@ -3015,6 +1776,84 @@
               val space_sep_attrib : string -> string list wrap -> 'a attrib
               val comma_sep_attrib : string -> string list wrap -> 'a attrib
             end
+          val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+          val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+          val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+          val a_onbeforeunload : string -> [> `OnBeforeUnload ] Raw'.attrib
+          val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+          val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+          val a_oncanplaythrough :
+            string -> [> `OnCanPlayThrough ] Raw'.attrib
+          val a_onchange : string -> [> `OnChange ] Raw'.attrib
+          val a_onclose : string -> [> `OnClose ] Raw'.attrib
+          val a_ondurationchange :
+            string -> [> `OnDurationChange ] Raw'.attrib
+          val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+          val a_onended : string -> [> `OnEnded ] Raw'.attrib
+          val a_onerror : string -> [> `OnError ] Raw'.attrib
+          val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+          val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+          val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+          val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+          val a_oninput : string -> [> `OnInput ] Raw'.attrib
+          val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+          val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+          val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+          val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+          val a_onpause : string -> [> `OnPause ] Raw'.attrib
+          val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+          val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+          val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+          val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+          val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+          val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+          val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+          val a_onreadystatechange :
+            string -> [> `OnReadyStateChange ] Raw'.attrib
+          val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+          val a_onresize : string -> [> `OnResize ] Raw'.attrib
+          val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+          val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+          val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+          val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+          val a_onshow : string -> [> `OnShow ] Raw'.attrib
+          val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+          val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+          val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+          val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+          val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+          val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+          val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+          val a_onvolumechange : string -> [> `OnVolumeChange ] Raw'.attrib
+          val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+          val a_onload : string -> [> `OnLoad ] Raw'.attrib
+          val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+          val a_onloadedmetadata :
+            string -> [> `OnLoadedMetaData ] Raw'.attrib
+          val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+          val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+          val a_onclick : string -> [> `OnClick ] Raw'.attrib
+          val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+          val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+          val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+          val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+          val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+          val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+          val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+          val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+          val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+          val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+          val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+          val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+          val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+          val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+          val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+          val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+          val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+          val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+          val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+          val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+          val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
         end
       type 'a elt = 'a elt
       type doc = Html_types.html elt
@@ -3097,6 +1936,7 @@
       val a_oncanplaythrough :
         Xml.event_handler -> [> `OnCanPlayThrough ] attrib
       val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+      val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
       val a_ondurationchange :
         Xml.event_handler -> [> `OnDurationChange ] attrib
       val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
@@ -3171,7 +2011,8 @@
       val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
       val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
       val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-      val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+      val a_autocomplete :
+        Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
       val a_async : unit -> [> `Async ] attrib
       val a_autofocus : unit -> [> `Autofocus ] attrib
       val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -3279,7 +2120,7 @@
       val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
       val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
       val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-      val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+      val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
       val a_multiple : unit -> [> `Multiple ] attrib
       val a_name : Html_types.text wrap -> [> `Name ] attrib
       val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -3320,6 +2161,8 @@
       val a_readonly : unit -> [> `ReadOnly ] attrib
       val a_button_type :
         [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+      val a_script_type :
+        Html_types.script_type wrap -> [> `Script_type ] attrib
       val a_command_type :
         [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
       val a_menu_type :
@@ -3382,8 +2225,8 @@
          [> Html_types.body ])
         star
       val svg :
-        ?a:[< Html_types.svg_attrib ] Svg.D.Raw.attrib list ->
-        [< Html_types.svg_content ] Svg.D.Raw.elt list_wrap ->
+        ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+        [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
         [> Html_types.svg ] elt
       val footer :
         ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
@@ -3457,6 +2300,10 @@
         ([< Html_types.blockquote_attrib ],
          [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
         star
+      val dialog :
+        ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+         [> Html_types.dialog ])
+        star
       val div :
         ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
          [> Html_types.div ])
@@ -3636,6 +2483,7 @@
           | `OnCanPlayThrough
           | `OnChange
           | `OnClick
+          | `OnClose
           | `OnContextMenu
           | `OnDblClick
           | `OnDrag
@@ -4027,164 +2875,1093 @@
             ('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
+            ?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
+                | `OnClose
+                | `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
+  module D :
+    sig
+      module Raw' :
+        sig
+          type 'a elt = 'a elt
+          type doc = Html_types.html elt
+          type 'a attrib = 'a attrib
+          module Xml :
+            sig
+              module W :
+                sig
+                  type 'a t = 'a Xml.W.t
+                  val return : 'a -> 'a t
+                  type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                  type 'a tlist = 'a Xml.W.tlist
+                  val nil : unit -> 'a tlist
+                  val singleton : 'a t -> 'a tlist
+                  val cons : 'a t -> 'a tlist -> 'a tlist
+                  val append : 'a tlist -> 'a tlist -> 'a tlist
+                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                end
+              type 'a wrap = 'a W.t
+              type 'a list_wrap = 'a W.tlist
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) W.ft
+              val uri_of_string : (string, uri) W.ft
+              type aname = string
+              type event_handler = Xml.event_handler
+              type mouse_event_handler = Xml.mouse_event_handler
+              type keyboard_event_handler = Xml.keyboard_event_handler
+              type touch_event_handler = Xml.touch_event_handler
+              type attrib = Xml.attrib
+              val float_attrib : aname -> float wrap -> attrib
+              val int_attrib : aname -> int wrap -> attrib
+              val string_attrib : aname -> string wrap -> attrib
+              val space_sep_attrib : aname -> string list wrap -> attrib
+              val comma_sep_attrib : aname -> string list wrap -> attrib
+              val event_handler_attrib : aname -> event_handler -> attrib
+              val mouse_event_handler_attrib :
+                aname -> mouse_event_handler -> attrib
+              val keyboard_event_handler_attrib :
+                aname -> keyboard_event_handler -> attrib
+              val touch_event_handler_attrib :
+                aname -> touch_event_handler -> attrib
+              val uri_attrib : aname -> uri wrap -> attrib
+              val uris_attrib : aname -> uri list wrap -> attrib
+              type elt = Xml.elt
+              type ename = string
+              val empty : unit -> elt
+              val comment : string -> elt
+              val pcdata : string wrap -> elt
+              val encodedpcdata : string wrap -> elt
+              val entity : string -> elt
+              val leaf : ?a:attrib list -> ename -> elt
+              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+              val cdata : string -> elt
+              val cdata_script : string -> elt
+              val cdata_style : string -> elt
+            end
+          type 'a wrap = 'a Xml.W.t
+          type 'a list_wrap = 'a Xml.W.tlist
+          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+          type ('a, 'b, 'c) unary =
+              ?a:'a attrib list -> 'b elt wrap -> 'c elt
+          type ('a, 'b, 'c) star =
+              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          module Info : Xml_sigs.Info
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) Xml.W.ft
+          val uri_of_string : (string, uri) Xml.W.ft
+          val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+          val a_user_data :
+            Html_types.nmtoken ->
+            Html_types.text wrap -> [> `User_data ] attrib
+          val a_id : Html_types.text wrap -> [> `Id ] attrib
+          val a_title : Html_types.text wrap -> [> `Title ] attrib
+          val a_xml_lang :
+            Html_types.languagecode wrap -> [> `XML_lang ] attrib
+          val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
+          val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+          val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
+          val a_onbeforeprint :
+            Xml.event_handler -> [> `OnBeforePrint ] attrib
+          val a_onbeforeunload :
+            Xml.event_handler -> [> `OnBeforeUnload ] attrib
+          val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
+          val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
+          val a_oncanplaythrough :
+            Xml.event_handler -> [> `OnCanPlayThrough ] attrib
+          val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+          val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
+          val a_ondurationchange :
+            Xml.event_handler -> [> `OnDurationChange ] attrib
+          val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
+          val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
+          val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+          val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
+          val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
+          val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
+          val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
+          val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
+          val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
+          val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
+          val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
+          val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
+          val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
+          val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
+          val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
+          val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
+          val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
+          val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
+          val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
+          val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
+          val a_onreadystatechange :
+            Xml.event_handler -> [> `OnReadyStateChange ] attrib
+          val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
+          val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+          val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+          val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
+          val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
+          val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
+          val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
+          val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
+          val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
+          val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
+          val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
+          val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
+          val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
+          val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+          val a_onvolumechange :
+            Xml.event_handler -> [> `OnVolumeChange ] attrib
+          val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
+          val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+          val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
+          val a_onloadedmetadata :
+            Xml.event_handler -> [> `OnLoadedMetaData ] attrib
+          val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
+          val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
+          val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+          val a_oncontextmenu :
+            Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
+          val a_ondblclick :
+            Xml.mouse_event_handler -> [> `OnDblClick ] attrib
+          val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
+          val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
+          val a_ondragenter :
+            Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
+          val a_ondragleave :
+            Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
+          val a_ondragover :
+            Xml.mouse_event_handler -> [> `OnDragOver ] attrib
+          val a_ondragstart :
+            Xml.mouse_event_handler -> [> `OnDragStart ] attrib
+          val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
+          val a_onmousedown :
+            Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+          val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+          val a_onmouseover :
+            Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+          val a_onmousemove :
+            Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+          val a_onmouseout :
+            Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+          val a_ontouchstart :
+            Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+          val a_ontouchend :
+            Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+          val a_ontouchmove :
+            Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+          val a_ontouchcancel :
+            Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+          val a_onkeypress :
+            Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
+          val a_onkeydown :
+            Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
+          val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+          val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
+          val a_allowpaymentrequest :
+            unit -> [> `Allowpaymentrequest ] attrib
+          val a_autocomplete :
+            Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
+          val a_async : unit -> [> `Async ] attrib
+          val a_autofocus : unit -> [> `Autofocus ] attrib
+          val a_autoplay : unit -> [> `Autoplay ] attrib
+          val a_muted : unit -> [> `Muted ] attrib
+          val a_crossorigin :
+            [< `Anonymous | `Use_credentials ] wrap ->
+            [> `Crossorigin ] attrib
+          val a_integrity : string wrap -> [> `Integrity ] attrib
+          val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
+          val a_challenge : Html_types.text wrap -> [> `Challenge ] attrib
+          val a_contenteditable : bool wrap -> [> `Contenteditable ] attrib
+          val a_contextmenu :
+            Html_types.idref wrap -> [> `Contextmenu ] attrib
+          val a_controls : unit -> [> `Controls ] attrib
+          val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
+          val a_draggable : bool wrap -> [> `Draggable ] attrib
+          val a_form : Html_types.idref wrap -> [> `Form ] attrib
+          val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
+          val a_formenctype :
+            Html_types.contenttype wrap -> [> `Formenctype ] attrib
+          val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
+          val a_formtarget : Html_types.text wrap -> [> `Formtarget ] attrib
+          val a_hidden : unit -> [> `Hidden ] attrib
+          val a_high : Html_types.float_number wrap -> [> `High ] attrib
+          val a_icon : Xml.uri wrap -> [> `Icon ] attrib
+          val a_ismap : unit -> [> `Ismap ] attrib
+          val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
+          val a_list : Html_types.idref wrap -> [> `List ] attrib
+          val a_loop : unit -> [> `Loop ] attrib
+          val a_low : Html_types.float_number wrap -> [> `High ] attrib
+          val a_max : Html_types.float_number wrap -> [> `Max ] attrib
+          val a_input_max :
+            Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
+          val a_min : Html_types.float_number wrap -> [> `Min ] attrib
+          val a_input_min :
+            Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
+          val a_inputmode :
+            [< `Decimal
+             | `Email
+             | `None
+             | `Numeric
+             | `Search
+             | `Tel
+             | `Text
+             | `Url ]
+            wrap -> [> `Inputmode ] attrib
+          val a_novalidate : unit -> [> `Novalidate ] attrib
+          val a_open : unit -> [> `Open ] attrib
+          val a_optimum :
+            Html_types.float_number wrap -> [> `Optimum ] attrib
+          val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
+          val a_placeholder :
+            Html_types.text wrap -> [> `Placeholder ] attrib
+          val a_poster : Xml.uri wrap -> [> `Poster ] attrib
+          val a_preload :
+            [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
+          val a_pubdate : unit -> [> `Pubdate ] attrib
+          val a_radiogroup : Html_types.text wrap -> [> `Radiogroup ] attrib
+          val a_referrerpolicy :
+            Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
+          val a_required : unit -> [> `Required ] attrib
+          val a_reversed : unit -> [> `Reversed ] attrib
+          val a_sandbox :
+            [< Html_types.sandbox_token ] list wrap -> [> `Sandbox ] attrib
+          val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
+          val a_scoped : unit -> [> `Scoped ] attrib
+          val a_seamless : unit -> [> `Seamless ] attrib
+          val a_sizes :
+            (Html_types.number * Html_types.number) list option wrap ->
+            [> `Sizes ] attrib
+          val a_span : Html_types.number wrap -> [> `Span ] attrib
+          val a_srclang : Html_types.nmtoken wrap -> [> `XML_lang ] attrib
+          type image_candidate =
+              [ `Url of uri
+              | `Url_pixel of uri * Html_types.float_number
+              | `Url_width of uri * Html_types.number ]
+          val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
+          val a_img_sizes :
+            Html_types.text list wrap -> [> `Img_sizes ] attrib
+          val a_start : Html_types.number wrap -> [> `Start ] attrib
+          val a_step :
+            Html_types.float_number option wrap -> [> `Step ] attrib
+          val a_translate : [< `No | `Yes ] wrap -> [> `Translate ] attrib
+          val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
+          val a_version : Html_types.cdata wrap -> [> `Version ] attrib
+          val a_xmlns : [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
+          val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
+          val a_cite : Xml.uri wrap -> [> `Cite ] attrib
+          val a_xml_space :
+            [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
+          val a_accesskey :
+            Html_types.character wrap -> [> `Accesskey ] attrib
+          val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
+          val a_accept_charset :
+            Html_types.charsets wrap -> [> `Accept_charset ] attrib
+          val a_accept : Html_types.contenttypes wrap -> [> `Accept ] attrib
+          val a_href : Xml.uri wrap -> [> `Href ] attrib
+          val a_hreflang :
+            Html_types.languagecode wrap -> [> `Hreflang ] attrib
+          val a_download : string option wrap -> [> `Download ] attrib
+          val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
+          val a_tabindex : Html_types.number wrap -> [> `Tabindex ] attrib
+          val a_mime_type :
+            Html_types.contenttype wrap -> [> `Mime_type ] attrib
+          val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
+          val a_action : Xml.uri wrap -> [> `Action ] attrib
+          val a_checked : unit -> [> `Checked ] attrib
+          val a_cols : Html_types.number wrap -> [> `Cols ] attrib
+          val a_enctype : Html_types.contenttype wrap -> [> `Enctype ] attrib
+          val a_label_for : Html_types.idref wrap -> [> `Label_for ] attrib
+          val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
+          val a_output_for :
+            Html_types.idrefs wrap -> [> `Output_for ] attrib
+          val a_for_list : Html_types.idrefs wrap -> [> `Output_for ] attrib
+          val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
+          val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
+          val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
+          val a_formmethod :
+            [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
+          val a_multiple : unit -> [> `Multiple ] attrib
+          val a_name : Html_types.text wrap -> [> `Name ] attrib
+          val a_rows : Html_types.number wrap -> [> `Rows ] attrib
+          val a_selected : unit -> [> `Selected ] attrib
+          val a_size : Html_types.number wrap -> [> `Size ] attrib
+          val a_src : Xml.uri wrap -> [> `Src ] attrib
+          val a_input_type :
+            [< `Button
+             | `Checkbox
+             | `Color
+             | `Date
+             | `Datetime
+             | `Datetime_local
+             | `Email
+             | `File
+             | `Hidden
+             | `Image
+             | `Month
+             | `Number
+             | `Password
+             | `Radio
+             | `Range
+             | `Reset
+             | `Search
+             | `Submit
+             | `Tel
+             | `Text
+             | `Time
+             | `Url
+             | `Week ]
+            wrap -> [> `Input_Type ] attrib
+          val a_text_value : Html_types.text wrap -> [> `Text_Value ] attrib
+          val a_int_value : Html_types.number wrap -> [> `Int_Value ] attrib
+          val a_value : Html_types.cdata wrap -> [> `Value ] attrib
+          val a_float_value :
+            Html_types.float_number wrap -> [> `Float_Value ] attrib
+          val a_disabled : unit -> [> `Disabled ] attrib
+          val a_readonly : unit -> [> `ReadOnly ] attrib
+          val a_button_type :
+            [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+          val a_script_type :
+            Html_types.script_type wrap -> [> `Script_type ] attrib
+          val a_command_type :
+            [< `Checkbox | `Command | `Radio ] wrap ->
+            [> `Command_Type ] attrib
+          val a_menu_type :
+            [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
+          val a_label : Html_types.text wrap -> [> `Label ] attrib
+          val a_align :
+            [< `Char | `Justify | `Left | `Right ] wrap -> [> `Align ] attrib
+          val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
+          val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
+          val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
+          val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
+          val a_scope :
+            [< `Col | `Colgroup | `Row | `Rowgroup ] wrap ->
+            [> `Scope ] attrib
+          val a_summary : Html_types.text wrap -> [> `Summary ] attrib
+          val a_border : Html_types.pixels wrap -> [> `Border ] attrib
+          val a_rules :
+            [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
+            [> `Rules ] attrib
+          val a_char : Html_types.character wrap -> [> `Char ] attrib
+          val a_alt : Html_types.text wrap -> [> `Alt ] attrib
+          val a_height : Html_types.number wrap -> [> `Height ] attrib
+          val a_width : Html_types.number wrap -> [> `Width ] attrib
+          type shape = [ `Circle | `Default | `Poly | `Rect ]
+          val a_shape : shape wrap -> [> `Shape ] attrib
+          val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
+          val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
+          val a_data : Xml.uri wrap -> [> `Data ] attrib
+          val a_codetype :
+            Html_types.contenttype wrap -> [> `Codetype ] attrib
+          val a_frameborder :
+            [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
+          val a_marginheight :
+            Html_types.pixels wrap -> [> `Marginheight ] attrib
+          val a_marginwidth :
+            Html_types.pixels wrap -> [> `Marginwidth ] attrib
+          val a_scrolling :
+            [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
+          val a_target : Html_types.frametarget wrap -> [> `Target ] attrib
+          val a_content : Html_types.text wrap -> [> `Content ] attrib
+          val a_http_equiv : Html_types.text wrap -> [> `Http_equiv ] attrib
+          val a_defer : unit -> [> `Defer ] attrib
+          val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
+          val a_style : string wrap -> [> `Style_Attr ] attrib
+          val a_property : string wrap -> [> `Property ] attrib
+          val a_role : string list wrap -> [> `Role ] attrib
+          val a_aria : string -> string list wrap -> [> `Aria ] attrib
+          val txt : string wrap -> [> Html_types.txt ] elt
+          val html :
+            ?a:Html_types.html_attrib attrib list ->
+            [< Html_types.head ] elt wrap ->
+            [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
+          val head :
+            ?a:Html_types.head_attrib attrib list ->
+            [< Html_types.title ] elt wrap ->
+            Html_types.head_content_fun elt list_wrap ->
+            [> Html_types.head ] elt
+          val base :
+            ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
+          val title :
+            (Html_types.title_attrib, [< Html_types.title_content_fun ],
+             [> Html_types.title ])
+            unary
+          val body :
+            ([< Html_types.body_attrib ], [< Html_types.body_content_fun ],
+             [> Html_types.body ])
+            star
+          val svg :
+            ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+            [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
+            [> Html_types.svg ] elt
+          val footer :
+            ([< Html_types.footer_attrib ],
+             [< Html_types.footer_content_fun ], [> Html_types.footer ])
+            star
+          val header :
+            ([< Html_types.header_attrib ],
+             [< Html_types.header_content_fun ], [> Html_types.header ])
+            star
+          val section :
+            ([< Html_types.section_attrib ],
+             [< Html_types.section_content_fun ], [> Html_types.section ])
+            star
+          val nav :
+            ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
+             [> Html_types.nav ])
+            star
+          val h1 :
+            ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
+             [> Html_types.h1 ])
+            star
+          val h2 :
+            ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
+             [> Html_types.h2 ])
+            star
+          val h3 :
+            ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
+             [> Html_types.h3 ])
+            star
+          val h4 :
+            ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
+             [> Html_types.h4 ])
+            star
+          val h5 :
+            ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
+             [> Html_types.h5 ])
+            star
+          val h6 :
+            ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
+             [> Html_types.h6 ])
+            star
+          val hgroup :
+            ([< Html_types.hgroup_attrib ],
+             [< Html_types.hgroup_content_fun ], [> Html_types.hgroup ])
+            star
+          val address :
+            ([< Html_types.address_attrib ],
+             [< Html_types.address_content_fun ], [> Html_types.address ])
+            star
+          val article :
+            ([< Html_types.article_attrib ],
+             [< Html_types.article_content_fun ], [> Html_types.article ])
+            star
+          val aside :
+            ([< Html_types.aside_attrib ], [< Html_types.aside_content_fun ],
+             [> Html_types.aside ])
+            star
+          val main :
+            ([< Html_types.main_attrib ], [< Html_types.main_content_fun ],
+             [> Html_types.main ])
+            star
+          val p :
+            ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
+             [> Html_types.p ])
+            star
+          val pre :
+            ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
+             [> Html_types.pre ])
+            star
+          val blockquote :
+            ([< Html_types.blockquote_attrib ],
+             [< Html_types.blockquote_content_fun ],
+             [> Html_types.blockquote ])
+            star
+          val dialog :
+            ([< Html_types.dialog_attrib ],
+             [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+            star
+          val div :
+            ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
+             [> Html_types.div ])
+            star
+          val dl :
+            ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
+             [> Html_types.dl ])
+            star
+          val ol :
+            ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
+             [> Html_types.ol ])
+            star
+          val ul :
+            ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
+             [> Html_types.ul ])
+            star
+          val dd :
+            ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
+             [> Html_types.dd ])
+            star
+          val dt :
+            ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
+             [> Html_types.dt ])
+            star
+          val li :
+            ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
+             [> Html_types.li ])
+            star
+          val figcaption :
+            ([< Html_types.figcaption_attrib ],
+             [< Html_types.figcaption_content_fun ],
+             [> Html_types.figcaption ])
+            star
+          val figure :
+            ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
+                        | `Top of [< Html_types.figcaption ] elt wrap ] ->
+            ([< Html_types.figure_attrib ],
+             [< Html_types.figure_content_fun ], [> Html_types.figure ])
+            star
+          val hr : ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
+          val b :
+            ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
+             [> Html_types.b ])
+            star
+          val i :
+            ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
+             [> Html_types.i ])
+            star
+          val u :
+            ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
+             [> Html_types.u ])
+            star
+          val small :
+            ([< Html_types.small_attrib ], [< Html_types.small_content_fun ],
+             [> Html_types.small ])
+            star
+          val sub :
+            ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
+             [> Html_types.sub ])
+            star
+          val sup :
+            ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
+             [> Html_types.sup ])
+            star
+          val mark :
+            ([< Html_types.mark_attrib ], [< Html_types.mark_content_fun ],
+             [> Html_types.mark ])
+            star
+          val wbr : ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
+          val bdo :
+            dir:[< `Ltr | `Rtl ] wrap ->
+            ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
+             [> Html_types.bdo ])
+            star
+          val abbr :
+            ([< Html_types.abbr_attrib ], [< Html_types.abbr_content_fun ],
+             [> Html_types.abbr ])
+            star
+          val br : ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
+          val cite :
+            ([< Html_types.cite_attrib ], [< Html_types.cite_content_fun ],
+             [> Html_types.cite ])
+            star
+          val code :
+            ([< Html_types.code_attrib ], [< Html_types.code_content_fun ],
+             [> Html_types.code ])
+            star
+          val dfn :
+            ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
+             [> Html_types.dfn ])
+            star
+          val em :
+            ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
+             [> Html_types.em ])
+            star
+          val kbd :
+            ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
+             [> Html_types.kbd ])
+            star
+          val q :
+            ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
+             [> Html_types.q ])
+            star
+          val samp :
+            ([< Html_types.samp_attrib ], [< Html_types.samp_content_fun ],
+             [> Html_types.samp ])
+            star
+          val span :
+            ([< Html_types.span_attrib ], [< Html_types.span_content_fun ],
+             [> Html_types.span ])
+            star
+          val strong :
+            ([< Html_types.strong_attrib ],
+             [< Html_types.strong_content_fun ], [> Html_types.strong ])
+            star
+          val time :
+            ([< Html_types.time_attrib ], [< Html_types.time_content_fun ],
+             [> Html_types.time ])
+            star
+          val var :
+            ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
+             [> Html_types.var ])
+            star
+          val a : ([< Html_types.a_attrib ], 'a, [> 'a Html_types.a ]) star
+          val del :
+            ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
+          val ins :
+            ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
+          val img :
+            src:Xml.uri wrap ->
+            alt:Html_types.text wrap ->
+            ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
+          val picture :
+            img:[< Html_types.img ] elt wrap ->
+            ([< Html_types.picture_attrib ],
+             [< Html_types.picture_content_fun ], [> Html_types.picture ])
+            star
+          val iframe :
+            ([< Html_types.iframe_attrib ],
+             [< Html_types.iframe_content_fun ], [> Html_types.iframe ])
+            star
+          val object_ :
+            ?params:[< Html_types.param ] elt list_wrap ->
+            ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
+          val param :
+            ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
+          val embed :
+            ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
+          val audio :
+            ?src:Xml.uri wrap ->
+            ?srcs:[< Html_types.source ] elt list_wrap ->
+            ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ]) star
+          val video :
+            ?src:Xml.uri wrap ->
+            ?srcs:[< Html_types.source ] elt list_wrap ->
+            ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ]) star
+          val canvas :
+            ([< Html_types.canvas_attrib ], 'a, [> 'a Html_types.canvas ])
+            star
+          val source :
+            ([< Html_types.source_attrib ], [> Html_types.source ]) nullary
+          val area :
+            alt:Html_types.text wrap ->
+            ([< `Accesskey
+              | `Alt
+              | `Aria
+              | `Class
+              | `Contenteditable
+              | `Contextmenu
+              | `Coords
+              | `Dir
+              | `Draggable
+              | `Hidden
+              | `Hreflang
+              | `Id
+              | `Lang
+              | `Media
+              | `Mime_type
+              | `OnAbort
+              | `OnBlur
+              | `OnCanPlay
+              | `OnCanPlayThrough
+              | `OnChange
+              | `OnClick
+              | `OnClose
+              | `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
+              | `Rel
+              | `Role
+              | `Shape
+              | `Spellcheck
+              | `Style_Attr
+              | `Tabindex
+              | `Target
+              | `Title
+              | `Translate
+              | `User_data
+              | `XML_lang
+              | `XMLns ],
+             [> Html_types.area ])
+            nullary
+          val map :
+            ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
+          val caption :
+            ([< Html_types.caption_attrib ],
+             [< Html_types.caption_content_fun ], [> Html_types.caption ])
+            star
+          val table :
+            ?caption:[< Html_types.caption ] elt wrap ->
+            ?columns:[< Html_types.colgroup ] elt list_wrap ->
+            ?thead:[< Html_types.thead ] elt wrap ->
+            ?tfoot:[< Html_types.tfoot ] elt wrap ->
+            ([< Html_types.table_attrib ], [< Html_types.table_content_fun ],
+             [> Html_types.table ])
+            star
+          val tablex :
+            ?caption:[< Html_types.caption ] elt wrap ->
+            ?columns:[< Html_types.colgroup ] elt list_wrap ->
+            ?thead:[< Html_types.thead ] elt wrap ->
+            ?tfoot:[< Html_types.tfoot ] elt wrap ->
+            ([< Html_types.tablex_attrib ],
+             [< Html_types.tablex_content_fun ], [> Html_types.tablex ])
+            star
+          val colgroup :
+            ([< Html_types.colgroup_attrib ],
+             [< Html_types.colgroup_content_fun ], [> Html_types.colgroup ])
+            star
+          val col : ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
+          val thead :
+            ([< Html_types.thead_attrib ], [< Html_types.thead_content_fun ],
+             [> Html_types.thead ])
+            star
+          val tbody :
+            ([< Html_types.tbody_attrib ], [< Html_types.tbody_content_fun ],
+             [> Html_types.tbody ])
+            star
+          val tfoot :
+            ([< Html_types.tfoot_attrib ], [< Html_types.tfoot_content_fun ],
+             [> Html_types.tfoot ])
+            star
+          val td :
+            ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
+             [> Html_types.td ])
+            star
+          val th :
+            ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
+             [> Html_types.th ])
+            star
+          val tr :
+            ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
+             [> Html_types.tr ])
+            star
+          val form :
+            ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
+             [> Html_types.form ])
+            star
+          val fieldset :
+            ?legend:[< Html_types.legend ] elt wrap ->
+            ([< Html_types.fieldset_attrib ],
+             [< Html_types.fieldset_content_fun ], [> Html_types.fieldset ])
+            star
+          val legend :
+            ([< Html_types.legend_attrib ],
+             [< Html_types.legend_content_fun ], [> Html_types.legend ])
+            star
+          val label :
+            ([< Html_types.label_attrib ], [< Html_types.label_content_fun ],
+             [> Html_types.label ])
+            star
+          val input :
+            ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
           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
+            ([< Html_types.button_attrib ],
+             [< Html_types.button_content_fun ], [> Html_types.button ])
+            star
           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
+            ([< Html_types.select_attrib ],
+             [< Html_types.select_content_fun ], [> Html_types.select ])
+            star
+          val datalist :
+            ?children:[< `Options of
+                           [< Html_types.selectoption ] elt list_wrap
+                       | `Phras of [< Html_types.phrasing ] elt list_wrap ] ->
+            ([< Html_types.datalist_attrib ], [> Html_types.datalist ])
+            nullary
+          val optgroup :
+            label:Html_types.text wrap ->
+            ([< Html_types.optgroup_attrib ],
+             [< Html_types.optgroup_content_fun ], [> Html_types.optgroup ])
+            star
+          val option :
+            ([< Html_types.option_attrib ],
+             [< Html_types.option_content_fun ],
+             [> Html_types.selectoption ])
+            unary
+          val textarea :
+            ([< Html_types.textarea_attrib ],
+             [< Html_types.textarea_content_fun ], [> Html_types.textarea ])
+            unary
+          val keygen :
+            ([< Html_types.keygen_attrib ], [> Html_types.keygen ]) nullary
+          val progress :
+            ([< Html_types.progress_attrib ],
+             [< Html_types.progress_content_fun ], [> Html_types.progress ])
+            star
+          val meter :
+            ([< Html_types.meter_attrib ], [< Html_types.meter_content_fun ],
+             [> Html_types.meter ])
+            star
+          val output_elt :
+            ([< Html_types.output_elt_attrib ],
+             [< Html_types.output_elt_content_fun ],
+             [> Html_types.output_elt ])
+            star
+          val entity : string -> [> Html_types.txt ] elt
+          val space : unit -> [> Html_types.txt ] elt
+          val cdata : string -> [> Html_types.txt ] elt
+          val cdata_script : string -> [> Html_types.txt ] elt
+          val cdata_style : string -> [> Html_types.txt ] elt
+          val details :
+            [< Html_types.summary ] elt wrap ->
+            ([< Html_types.details_attrib ],
+             [< Html_types.details_content_fun ], [> Html_types.details ])
+            star
+          val summary :
+            ([< Html_types.summary_attrib ],
+             [< Html_types.summary_content_fun ], [> Html_types.summary ])
+            star
+          val command :
+            label:Html_types.text wrap ->
+            ([< Html_types.command_attrib ], [> Html_types.command ]) nullary
+          val menu :
+            ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
+                       | `Lis of
+                           [< `Li of [< Html_types.common ] ] elt list_wrap ] ->
+            ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
+          val script :
+            ([< Html_types.script_attrib ],
+             [< Html_types.script_content_fun ], [> Html_types.script ])
+            unary
+          val noscript :
+            ([< Html_types.noscript_attrib ],
+             [< Html_types.noscript_content_fun ], [> Html_types.noscript ])
+            star
+          val template :
+            ([< Html_types.template_attrib ],
+             [< Html_types.template_content_fun ], [> Html_types.template ])
+            star
+          val meta :
+            ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
+          val style :
+            ([< Html_types.style_attrib ], [< Html_types.style_content_fun ],
+             [> Html_types.style ])
+            star
+          val link :
+            rel:Html_types.linktypes wrap ->
+            href:Xml.uri wrap ->
+            ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
+          val rt :
+            ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
+             [> Html_types.rt ])
+            star
+          val rp :
+            ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
+             [> Html_types.rp ])
+            star
+          val ruby :
+            ([< Html_types.ruby_attrib ], [< Html_types.ruby_content_fun ],
+             [> Html_types.ruby ])
+            star
+          val pcdata : string wrap -> [> Html_types.pcdata ] elt
+          val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+          val tot : Xml.elt -> 'a elt
+          val totl : Xml.elt list_wrap -> 'a elt list_wrap
+          val toelt : 'a elt -> Xml.elt
+          val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+          val doc_toelt : doc -> Xml.elt
+          val to_xmlattribs : 'a attrib list -> Xml.attrib list
+          val to_attrib : Xml.attrib -> 'a attrib
+          module Unsafe :
+            sig
+              val data : string wrap -> 'a elt
+              val node :
+                string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+              val coerce_elt : 'a elt -> 'b elt
+              val string_attrib : string -> string wrap -> 'a attrib
+              val float_attrib : string -> float wrap -> 'a attrib
+              val int_attrib : string -> int wrap -> 'a attrib
+              val uri_attrib : string -> uri wrap -> 'a attrib
+              val space_sep_attrib : string -> string list wrap -> 'a attrib
+              val comma_sep_attrib : string -> string list wrap -> 'a attrib
+            end
         end
-    end
-  module R :
-    sig
-      val node :
-        'a Eliom_content.Html.elt React.signal Eliom_client_value.t ->
-        'a Eliom_content.Html.elt
-      val filter_attrib :
-        'a Eliom_content.Html.attrib ->
-        bool React.signal -> 'a Eliom_content.Html.attrib
       module Raw :
         sig
           type 'a elt = 'a elt
@@ -4194,178 +3971,80 @@
             sig
               module W :
                 sig
-                  type 'a t = 'a Eliom_content_core.Xml_wed.W.t
+                  type 'a t = 'a Xml.W.t
                   val return : 'a -> 'a t
-                  type ('a, 'b) ft = ('a, 'b) Eliom_content_core.Xml_wed.W.ft
+                  type ('a, 'b) ft = ('a, 'b) Xml.W.ft
                   val fmap : ('a, 'b) ft -> 'a t -> 'b t
-                  type 'a tlist = 'a Eliom_content_core.Xml_wed.W.tlist
-                  val nil : unit -> 'a tlist
-                  val singleton : 'a t -> 'a tlist
-                  val cons : 'a t -> 'a tlist -> 'a tlist
-                  val append : 'a tlist -> 'a tlist -> 'a tlist
-                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
-                end
-              type 'a wrap = 'a W.t
-              type 'a list_wrap = 'a W.tlist
-              type uri = Eliom_content_core.Xml_wed.uri
-              val string_of_uri : (uri, string) W.ft
-              val uri_of_string : (string, uri) W.ft
-              type aname = string
-              type event_handler = Eliom_content_core.Xml_wed.event_handler
-              type mouse_event_handler =
-                  Eliom_content_core.Xml_wed.mouse_event_handler
-              type keyboard_event_handler =
-                  Eliom_content_core.Xml_wed.keyboard_event_handler
-              type touch_event_handler =
-                  Eliom_content_core.Xml_wed.touch_event_handler
-              type attrib = Eliom_content_core.Xml_wed.attrib
-              val float_attrib : aname -> float wrap -> attrib
-              val int_attrib : aname -> int wrap -> attrib
-              val string_attrib : aname -> string wrap -> attrib
-              val space_sep_attrib : aname -> string list wrap -> attrib
-              val comma_sep_attrib : aname -> string list wrap -> attrib
-              val event_handler_attrib : aname -> event_handler -> attrib
-              val mouse_event_handler_attrib :
-                aname -> mouse_event_handler -> attrib
-              val keyboard_event_handler_attrib :
-                aname -> keyboard_event_handler -> attrib
-              val touch_event_handler_attrib :
-                aname -> touch_event_handler -> attrib
-              val uri_attrib : aname -> uri wrap -> attrib
-              val uris_attrib : aname -> uri list wrap -> attrib
-              type elt = Eliom_content_core.Xml_wed.elt
-              type ename = string
-              val empty : unit -> elt
-              val comment : string -> elt
-              val pcdata : string wrap -> elt
-              val encodedpcdata : string wrap -> elt
-              val entity : string -> elt
-              val leaf : ?a:attrib list -> ename -> elt
-              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
-              val cdata : string -> elt
-              val cdata_script : string -> elt
-              val cdata_style : string -> elt
-            end
-          type 'a wrap = 'a Xml.W.t
-          type 'a list_wrap = 'a Xml.W.tlist
-          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
-          type ('a, 'b, 'c) unary =
-              ?a:'a attrib list -> 'b elt wrap -> 'c elt
-          type ('a, 'b, 'c) star =
-              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-          module Info : Xml_sigs.Info
-          type uri = Xml.uri
-          val string_of_uri : (uri, string) Xml.W.ft
-          val uri_of_string : (string, uri) Xml.W.ft
-          val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
-          val a_user_data :
-            Html_types.nmtoken ->
-            Html_types.text wrap -> [> `User_data ] attrib
-          val a_id : Html_types.text wrap -> [> `Id ] attrib
-          val a_title : Html_types.text wrap -> [> `Title ] attrib
-          val a_xml_lang :
-            Html_types.languagecode wrap -> [> `XML_lang ] attrib
-          val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-          val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-          val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
-          val a_onbeforeprint :
-            Xml.event_handler -> [> `OnBeforePrint ] attrib
-          val a_onbeforeunload :
-            Xml.event_handler -> [> `OnBeforeUnload ] attrib
-          val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-          val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-          val a_oncanplaythrough :
-            Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-          val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-          val a_ondurationchange :
-            Xml.event_handler -> [> `OnDurationChange ] attrib
-          val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-          val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-          val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-          val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-          val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
-          val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
-          val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
-          val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-          val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-          val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
-          val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-          val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-          val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-          val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-          val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-          val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-          val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-          val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-          val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-          val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
-          val a_onreadystatechange :
-            Xml.event_handler -> [> `OnReadyStateChange ] attrib
-          val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-          val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-          val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-          val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-          val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-          val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-          val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-          val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-          val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-          val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-          val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-          val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
-          val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-          val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-          val a_onvolumechange :
-            Xml.event_handler -> [> `OnVolumeChange ] attrib
-          val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-          val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-          val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
-          val a_onloadedmetadata :
-            Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-          val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
-          val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-          val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-          val a_oncontextmenu :
-            Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-          val a_ondblclick :
-            Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-          val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-          val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-          val a_ondragenter :
-            Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-          val a_ondragleave :
-            Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-          val a_ondragover :
-            Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-          val a_ondragstart :
-            Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-          val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-          val a_onmousedown :
-            Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-          val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-          val a_onmouseover :
-            Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-          val a_onmousemove :
-            Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-          val a_onmouseout :
-            Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-          val a_ontouchstart :
-            Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-          val a_ontouchend :
-            Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-          val a_ontouchmove :
-            Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-          val a_ontouchcancel :
-            Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-          val a_onkeypress :
-            Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-          val a_onkeydown :
-            Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-          val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+                  type 'a tlist = 'a Xml.W.tlist
+                  val nil : unit -> 'a tlist
+                  val singleton : 'a t -> 'a tlist
+                  val cons : 'a t -> 'a tlist -> 'a tlist
+                  val append : 'a tlist -> 'a tlist -> 'a tlist
+                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                end
+              type 'a wrap = 'a W.t
+              type 'a list_wrap = 'a W.tlist
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) W.ft
+              val uri_of_string : (string, uri) W.ft
+              type aname = string
+              type event_handler = Xml.event_handler
+              type mouse_event_handler = Xml.mouse_event_handler
+              type keyboard_event_handler = Xml.keyboard_event_handler
+              type touch_event_handler = Xml.touch_event_handler
+              type attrib = Xml.attrib
+              val float_attrib : aname -> float wrap -> attrib
+              val int_attrib : aname -> int wrap -> attrib
+              val string_attrib : aname -> string wrap -> attrib
+              val space_sep_attrib : aname -> string list wrap -> attrib
+              val comma_sep_attrib : aname -> string list wrap -> attrib
+              val event_handler_attrib : aname -> event_handler -> attrib
+              val mouse_event_handler_attrib :
+                aname -> mouse_event_handler -> attrib
+              val keyboard_event_handler_attrib :
+                aname -> keyboard_event_handler -> attrib
+              val touch_event_handler_attrib :
+                aname -> touch_event_handler -> attrib
+              val uri_attrib : aname -> uri wrap -> attrib
+              val uris_attrib : aname -> uri list wrap -> attrib
+              type elt = Xml.elt
+              type ename = string
+              val empty : unit -> elt
+              val comment : string -> elt
+              val pcdata : string wrap -> elt
+              val encodedpcdata : string wrap -> elt
+              val entity : string -> elt
+              val leaf : ?a:attrib list -> ename -> elt
+              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+              val cdata : string -> elt
+              val cdata_script : string -> elt
+              val cdata_style : string -> elt
+            end
+          type 'a wrap = 'a Xml.W.t
+          type 'a list_wrap = 'a Xml.W.tlist
+          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+          type ('a, 'b, 'c) unary =
+              ?a:'a attrib list -> 'b elt wrap -> 'c elt
+          type ('a, 'b, 'c) star =
+              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          module Info : Xml_sigs.Info
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) Xml.W.ft
+          val uri_of_string : (string, uri) Xml.W.ft
+          val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+          val a_user_data :
+            Html_types.nmtoken ->
+            Html_types.text wrap -> [> `User_data ] attrib
+          val a_id : Html_types.text wrap -> [> `Id ] attrib
+          val a_title : Html_types.text wrap -> [> `Title ] attrib
+          val a_xml_lang :
+            Html_types.languagecode wrap -> [> `XML_lang ] attrib
+          val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
           val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
           val a_allowpaymentrequest :
             unit -> [> `Allowpaymentrequest ] attrib
-          val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+          val a_autocomplete :
+            Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
           val a_async : unit -> [> `Async ] attrib
           val a_autofocus : unit -> [> `Autofocus ] attrib
           val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -4483,7 +4162,8 @@
           val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
           val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
           val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-          val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+          val a_formmethod :
+            [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
           val a_multiple : unit -> [> `Multiple ] attrib
           val a_name : Html_types.text wrap -> [> `Name ] attrib
           val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -4524,6 +4204,8 @@
           val a_readonly : unit -> [> `ReadOnly ] attrib
           val a_button_type :
             [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+          val a_script_type :
+            Html_types.script_type wrap -> [> `Script_type ] attrib
           val a_command_type :
             [< `Checkbox | `Command | `Radio ] wrap ->
             [> `Command_Type ] attrib
@@ -4593,8 +4275,8 @@
              [> Html_types.body ])
             star
           val svg :
-            ?a:[< Html_types.svg_attrib ] Svg.R.Raw.attrib list ->
-            [< Html_types.svg_content ] Svg.R.Raw.elt list_wrap ->
+            ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+            [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
             [> Html_types.svg ] elt
           val footer :
             ([< Html_types.footer_attrib ],
@@ -4669,6 +4351,10 @@
              [< Html_types.blockquote_content_fun ],
              [> Html_types.blockquote ])
             star
+          val dialog :
+            ([< Html_types.dialog_attrib ],
+             [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+            star
           val div :
             ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
              [> Html_types.div ])
@@ -4853,6 +4539,7 @@
               | `OnCanPlayThrough
               | `OnChange
               | `OnClick
+              | `OnClose
               | `OnContextMenu
               | `OnDblClick
               | `OnDrag
@@ -4988,130 +4675,1406 @@
              [> Html_types.label ])
             star
           val input :
-            ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
+            ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
+          val button :
+            ([< Html_types.button_attrib ],
+             [< Html_types.button_content_fun ], [> Html_types.button ])
+            star
+          val select :
+            ([< Html_types.select_attrib ],
+             [< Html_types.select_content_fun ], [> Html_types.select ])
+            star
+          val datalist :
+            ?children:[< `Options of
+                           [< Html_types.selectoption ] elt list_wrap
+                       | `Phras of [< Html_types.phrasing ] elt list_wrap ] ->
+            ([< Html_types.datalist_attrib ], [> Html_types.datalist ])
+            nullary
+          val optgroup :
+            label:Html_types.text wrap ->
+            ([< Html_types.optgroup_attrib ],
+             [< Html_types.optgroup_content_fun ], [> Html_types.optgroup ])
+            star
+          val option :
+            ([< Html_types.option_attrib ],
+             [< Html_types.option_content_fun ],
+             [> Html_types.selectoption ])
+            unary
+          val textarea :
+            ([< Html_types.textarea_attrib ],
+             [< Html_types.textarea_content_fun ], [> Html_types.textarea ])
+            unary
+          val keygen :
+            ([< Html_types.keygen_attrib ], [> Html_types.keygen ]) nullary
+          val progress :
+            ([< Html_types.progress_attrib ],
+             [< Html_types.progress_content_fun ], [> Html_types.progress ])
+            star
+          val meter :
+            ([< Html_types.meter_attrib ], [< Html_types.meter_content_fun ],
+             [> Html_types.meter ])
+            star
+          val output_elt :
+            ([< Html_types.output_elt_attrib ],
+             [< Html_types.output_elt_content_fun ],
+             [> Html_types.output_elt ])
+            star
+          val entity : string -> [> Html_types.txt ] elt
+          val space : unit -> [> Html_types.txt ] elt
+          val cdata : string -> [> Html_types.txt ] elt
+          val cdata_script : string -> [> Html_types.txt ] elt
+          val cdata_style : string -> [> Html_types.txt ] elt
+          val details :
+            [< Html_types.summary ] elt wrap ->
+            ([< Html_types.details_attrib ],
+             [< Html_types.details_content_fun ], [> Html_types.details ])
+            star
+          val summary :
+            ([< Html_types.summary_attrib ],
+             [< Html_types.summary_content_fun ], [> Html_types.summary ])
+            star
+          val command :
+            label:Html_types.text wrap ->
+            ([< Html_types.command_attrib ], [> Html_types.command ]) nullary
+          val menu :
+            ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
+                       | `Lis of
+                           [< `Li of [< Html_types.common ] ] elt list_wrap ] ->
+            ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
+          val script :
+            ([< Html_types.script_attrib ],
+             [< Html_types.script_content_fun ], [> Html_types.script ])
+            unary
+          val noscript :
+            ([< Html_types.noscript_attrib ],
+             [< Html_types.noscript_content_fun ], [> Html_types.noscript ])
+            star
+          val template :
+            ([< Html_types.template_attrib ],
+             [< Html_types.template_content_fun ], [> Html_types.template ])
+            star
+          val meta :
+            ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
+          val style :
+            ([< Html_types.style_attrib ], [< Html_types.style_content_fun ],
+             [> Html_types.style ])
+            star
+          val link :
+            rel:Html_types.linktypes wrap ->
+            href:Xml.uri wrap ->
+            ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
+          val rt :
+            ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
+             [> Html_types.rt ])
+            star
+          val rp :
+            ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
+             [> Html_types.rp ])
+            star
+          val ruby :
+            ([< Html_types.ruby_attrib ], [< Html_types.ruby_content_fun ],
+             [> Html_types.ruby ])
+            star
+          val pcdata : string wrap -> [> Html_types.pcdata ] elt
+          val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+          val tot : Xml.elt -> 'a elt
+          val totl : Xml.elt list_wrap -> 'a elt list_wrap
+          val toelt : 'a elt -> Xml.elt
+          val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+          val doc_toelt : doc -> Xml.elt
+          val to_xmlattribs : 'a attrib list -> Xml.attrib list
+          val to_attrib : Xml.attrib -> 'a attrib
+          module Unsafe :
+            sig
+              val data : string wrap -> 'a elt
+              val node :
+                string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+              val coerce_elt : 'a elt -> 'b elt
+              val string_attrib : string -> string wrap -> 'a attrib
+              val float_attrib : string -> float wrap -> 'a attrib
+              val int_attrib : string -> int wrap -> 'a attrib
+              val uri_attrib : string -> uri wrap -> 'a attrib
+              val space_sep_attrib : string -> string list wrap -> 'a attrib
+              val comma_sep_attrib : string -> string list wrap -> 'a attrib
+            end
+          val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+          val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+          val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+          val a_onbeforeunload : string -> [> `OnBeforeUnload ] Raw'.attrib
+          val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+          val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+          val a_oncanplaythrough :
+            string -> [> `OnCanPlayThrough ] Raw'.attrib
+          val a_onchange : string -> [> `OnChange ] Raw'.attrib
+          val a_onclose : string -> [> `OnClose ] Raw'.attrib
+          val a_ondurationchange :
+            string -> [> `OnDurationChange ] Raw'.attrib
+          val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+          val a_onended : string -> [> `OnEnded ] Raw'.attrib
+          val a_onerror : string -> [> `OnError ] Raw'.attrib
+          val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+          val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+          val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+          val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+          val a_oninput : string -> [> `OnInput ] Raw'.attrib
+          val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+          val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+          val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+          val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+          val a_onpause : string -> [> `OnPause ] Raw'.attrib
+          val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+          val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+          val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+          val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+          val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+          val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+          val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+          val a_onreadystatechange :
+            string -> [> `OnReadyStateChange ] Raw'.attrib
+          val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+          val a_onresize : string -> [> `OnResize ] Raw'.attrib
+          val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+          val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+          val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+          val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+          val a_onshow : string -> [> `OnShow ] Raw'.attrib
+          val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+          val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+          val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+          val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+          val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+          val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+          val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+          val a_onvolumechange : string -> [> `OnVolumeChange ] Raw'.attrib
+          val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+          val a_onload : string -> [> `OnLoad ] Raw'.attrib
+          val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+          val a_onloadedmetadata :
+            string -> [> `OnLoadedMetaData ] Raw'.attrib
+          val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+          val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+          val a_onclick : string -> [> `OnClick ] Raw'.attrib
+          val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+          val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+          val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+          val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+          val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+          val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+          val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+          val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+          val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+          val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+          val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+          val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+          val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+          val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+          val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+          val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+          val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+          val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+          val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+          val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+          val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
+        end
+      type 'a elt = 'a elt
+      type doc = Html_types.html elt
+      type 'a attrib = 'a attrib
+      module Xml :
+        sig
+          module W :
+            sig
+              type 'a t = 'a Xml.W.t
+              val return : 'a -> 'a t
+              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+              val fmap : ('a, 'b) ft -> 'a t -> 'b t
+              type 'a tlist = 'a Xml.W.tlist
+              val nil : unit -> 'a tlist
+              val singleton : 'a t -> 'a tlist
+              val cons : 'a t -> 'a tlist -> 'a tlist
+              val append : 'a tlist -> 'a tlist -> 'a tlist
+              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+            end
+          type 'a wrap = 'a W.t
+          type 'a list_wrap = 'a W.tlist
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) W.ft
+          val uri_of_string : (string, uri) W.ft
+          type aname = string
+          type event_handler = Xml.event_handler
+          type mouse_event_handler = Xml.mouse_event_handler
+          type keyboard_event_handler = Xml.keyboard_event_handler
+          type touch_event_handler = Xml.touch_event_handler
+          type attrib = Xml.attrib
+          val float_attrib : aname -> float wrap -> attrib
+          val int_attrib : aname -> int wrap -> attrib
+          val string_attrib : aname -> string wrap -> attrib
+          val space_sep_attrib : aname -> string list wrap -> attrib
+          val comma_sep_attrib : aname -> string list wrap -> attrib
+          val event_handler_attrib : aname -> event_handler -> attrib
+          val mouse_event_handler_attrib :
+            aname -> mouse_event_handler -> attrib
+          val keyboard_event_handler_attrib :
+            aname -> keyboard_event_handler -> attrib
+          val touch_event_handler_attrib :
+            aname -> touch_event_handler -> attrib
+          val uri_attrib : aname -> uri wrap -> attrib
+          val uris_attrib : aname -> uri list wrap -> attrib
+          type elt = Xml.elt
+          type ename = string
+          val empty : unit -> elt
+          val comment : string -> elt
+          val pcdata : string wrap -> elt
+          val encodedpcdata : string wrap -> elt
+          val entity : string -> elt
+          val leaf : ?a:attrib list -> ename -> elt
+          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+          val cdata : string -> elt
+          val cdata_script : string -> elt
+          val cdata_style : string -> elt
+        end
+      type 'a wrap = 'a Xml.W.t
+      type 'a list_wrap = 'a Xml.W.tlist
+      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
+      type ('a, 'b, 'c) star =
+          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+      module Info : Xml_sigs.Info
+      type uri = Xml.uri
+      val string_of_uri : (uri, string) Xml.W.ft
+      val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+      val a_user_data :
+        Html_types.nmtoken -> Html_types.text wrap -> [> `User_data ] attrib
+      val a_id : Html_types.text wrap -> [> `Id ] attrib
+      val a_title : Html_types.text wrap -> [> `Title ] attrib
+      val a_xml_lang : Html_types.languagecode wrap -> [> `XML_lang ] attrib
+      val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
+      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+      val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
+      val a_onbeforeprint : Xml.event_handler -> [> `OnBeforePrint ] attrib
+      val a_onbeforeunload : Xml.event_handler -> [> `OnBeforeUnload ] attrib
+      val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
+      val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
+      val a_oncanplaythrough :
+        Xml.event_handler -> [> `OnCanPlayThrough ] attrib
+      val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+      val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
+      val a_ondurationchange :
+        Xml.event_handler -> [> `OnDurationChange ] attrib
+      val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
+      val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
+      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+      val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
+      val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
+      val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
+      val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
+      val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
+      val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
+      val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
+      val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
+      val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
+      val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
+      val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
+      val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
+      val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
+      val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
+      val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
+      val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
+      val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
+      val a_onreadystatechange :
+        Xml.event_handler -> [> `OnReadyStateChange ] attrib
+      val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
+      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+      val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
+      val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
+      val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
+      val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
+      val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
+      val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
+      val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
+      val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
+      val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
+      val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
+      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+      val a_onvolumechange : Xml.event_handler -> [> `OnVolumeChange ] attrib
+      val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
+      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+      val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
+      val a_onloadedmetadata :
+        Xml.event_handler -> [> `OnLoadedMetaData ] attrib
+      val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
+      val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
+      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+      val a_oncontextmenu :
+        Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
+      val a_ondblclick : Xml.mouse_event_handler -> [> `OnDblClick ] attrib
+      val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
+      val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
+      val a_ondragenter : Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
+      val a_ondragleave : Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
+      val a_ondragover : Xml.mouse_event_handler -> [> `OnDragOver ] attrib
+      val a_ondragstart : Xml.mouse_event_handler -> [> `OnDragStart ] attrib
+      val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
+      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+      val a_ontouchstart :
+        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+      val a_ontouchcancel :
+        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+      val a_onkeypress :
+        Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
+      val a_onkeydown : Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
+      val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+      val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
+      val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
+      val a_autocomplete :
+        Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
+      val a_async : unit -> [> `Async ] attrib
+      val a_autofocus : unit -> [> `Autofocus ] attrib
+      val a_autoplay : unit -> [> `Autoplay ] attrib
+      val a_muted : unit -> [> `Muted ] attrib
+      val a_crossorigin :
+        [< `Anonymous | `Use_credentials ] wrap -> [> `Crossorigin ] attrib
+      val a_integrity : string wrap -> [> `Integrity ] attrib
+      val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
+      val a_challenge : Html_types.text wrap -> [> `Challenge ] attrib
+      val a_contenteditable : bool wrap -> [> `Contenteditable ] attrib
+      val a_contextmenu : Html_types.idref wrap -> [> `Contextmenu ] attrib
+      val a_controls : unit -> [> `Controls ] attrib
+      val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
+      val a_draggable : bool wrap -> [> `Draggable ] attrib
+      val a_form : Html_types.idref wrap -> [> `Form ] attrib
+      val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
+      val a_formenctype :
+        Html_types.contenttype wrap -> [> `Formenctype ] attrib
+      val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
+      val a_formtarget : Html_types.text wrap -> [> `Formtarget ] attrib
+      val a_hidden : unit -> [> `Hidden ] attrib
+      val a_high : Html_types.float_number wrap -> [> `High ] attrib
+      val a_icon : Xml.uri wrap -> [> `Icon ] attrib
+      val a_ismap : unit -> [> `Ismap ] attrib
+      val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
+      val a_list : Html_types.idref wrap -> [> `List ] attrib
+      val a_loop : unit -> [> `Loop ] attrib
+      val a_low : Html_types.float_number wrap -> [> `High ] attrib
+      val a_max : Html_types.float_number wrap -> [> `Max ] attrib
+      val a_input_max :
+        Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
+      val a_min : Html_types.float_number wrap -> [> `Min ] attrib
+      val a_input_min :
+        Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
+      val a_inputmode :
+        [< `Decimal
+         | `Email
+         | `None
+         | `Numeric
+         | `Search
+         | `Tel
+         | `Text
+         | `Url ]
+        wrap -> [> `Inputmode ] attrib
+      val a_novalidate : unit -> [> `Novalidate ] attrib
+      val a_open : unit -> [> `Open ] attrib
+      val a_optimum : Html_types.float_number wrap -> [> `Optimum ] attrib
+      val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
+      val a_placeholder : Html_types.text wrap -> [> `Placeholder ] attrib
+      val a_poster : Xml.uri wrap -> [> `Poster ] attrib
+      val a_preload :
+        [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
+      val a_pubdate : unit -> [> `Pubdate ] attrib
+      val a_radiogroup : Html_types.text wrap -> [> `Radiogroup ] attrib
+      val a_referrerpolicy :
+        Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
+      val a_required : unit -> [> `Required ] attrib
+      val a_reversed : unit -> [> `Reversed ] attrib
+      val a_sandbox :
+        [< Html_types.sandbox_token ] list wrap -> [> `Sandbox ] attrib
+      val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
+      val a_scoped : unit -> [> `Scoped ] attrib
+      val a_seamless : unit -> [> `Seamless ] attrib
+      val a_sizes :
+        (Html_types.number * Html_types.number) list option wrap ->
+        [> `Sizes ] attrib
+      val a_span : Html_types.number wrap -> [> `Span ] attrib
+      val a_srclang : Html_types.nmtoken wrap -> [> `XML_lang ] attrib
+      type image_candidate =
+          [ `Url of uri
+          | `Url_pixel of uri * Html_types.float_number
+          | `Url_width of uri * Html_types.number ]
+      val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
+      val a_img_sizes : Html_types.text list wrap -> [> `Img_sizes ] attrib
+      val a_start : Html_types.number wrap -> [> `Start ] attrib
+      val a_step : Html_types.float_number option wrap -> [> `Step ] attrib
+      val a_translate : [< `No | `Yes ] wrap -> [> `Translate ] attrib
+      val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
+      val a_version : Html_types.cdata wrap -> [> `Version ] attrib
+      val a_xmlns : [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
+      val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
+      val a_cite : Xml.uri wrap -> [> `Cite ] attrib
+      val a_xml_space :
+        [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
+      val a_accesskey : Html_types.character wrap -> [> `Accesskey ] attrib
+      val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
+      val a_accept_charset :
+        Html_types.charsets wrap -> [> `Accept_charset ] attrib
+      val a_accept : Html_types.contenttypes wrap -> [> `Accept ] attrib
+      val a_href : Xml.uri wrap -> [> `Href ] attrib
+      val a_hreflang : Html_types.languagecode wrap -> [> `Hreflang ] attrib
+      val a_download : string option wrap -> [> `Download ] attrib
+      val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
+      val a_tabindex : Html_types.number wrap -> [> `Tabindex ] attrib
+      val a_mime_type : Html_types.contenttype wrap -> [> `Mime_type ] attrib
+      val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
+      val a_action : Xml.uri wrap -> [> `Action ] attrib
+      val a_checked : unit -> [> `Checked ] attrib
+      val a_cols : Html_types.number wrap -> [> `Cols ] attrib
+      val a_enctype : Html_types.contenttype wrap -> [> `Enctype ] attrib
+      val a_label_for : Html_types.idref wrap -> [> `Label_for ] attrib
+      val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
+      val a_output_for : Html_types.idrefs wrap -> [> `Output_for ] attrib
+      val a_for_list : Html_types.idrefs wrap -> [> `Output_for ] attrib
+      val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
+      val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
+      val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
+      val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
+      val a_multiple : unit -> [> `Multiple ] attrib
+      val a_name : Html_types.text wrap -> [> `Name ] attrib
+      val a_rows : Html_types.number wrap -> [> `Rows ] attrib
+      val a_selected : unit -> [> `Selected ] attrib
+      val a_size : Html_types.number wrap -> [> `Size ] attrib
+      val a_src : Xml.uri wrap -> [> `Src ] attrib
+      val a_input_type :
+        [< `Button
+         | `Checkbox
+         | `Color
+         | `Date
+         | `Datetime
+         | `Datetime_local
+         | `Email
+         | `File
+         | `Hidden
+         | `Image
+         | `Month
+         | `Number
+         | `Password
+         | `Radio
+         | `Range
+         | `Reset
+         | `Search
+         | `Submit
+         | `Tel
+         | `Text
+         | `Time
+         | `Url
+         | `Week ]
+        wrap -> [> `Input_Type ] attrib
+      val a_text_value : Html_types.text wrap -> [> `Text_Value ] attrib
+      val a_int_value : Html_types.number wrap -> [> `Int_Value ] attrib
+      val a_value : Html_types.cdata wrap -> [> `Value ] attrib
+      val a_float_value :
+        Html_types.float_number wrap -> [> `Float_Value ] attrib
+      val a_disabled : unit -> [> `Disabled ] attrib
+      val a_readonly : unit -> [> `ReadOnly ] attrib
+      val a_button_type :
+        [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+      val a_script_type :
+        Html_types.script_type wrap -> [> `Script_type ] attrib
+      val a_command_type :
+        [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
+      val a_menu_type :
+        [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
+      val a_label : Html_types.text wrap -> [> `Label ] attrib
+      val a_align :
+        [< `Char | `Justify | `Left | `Right ] wrap -> [> `Align ] attrib
+      val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
+      val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
+      val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
+      val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
+      val a_scope :
+        [< `Col | `Colgroup | `Row | `Rowgroup ] wrap -> [> `Scope ] attrib
+      val a_summary : Html_types.text wrap -> [> `Summary ] attrib
+      val a_border : Html_types.pixels wrap -> [> `Border ] attrib
+      val a_rules :
+        [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
+        [> `Rules ] attrib
+      val a_char : Html_types.character wrap -> [> `Char ] attrib
+      val a_alt : Html_types.text wrap -> [> `Alt ] attrib
+      val a_height : Html_types.number wrap -> [> `Height ] attrib
+      val a_width : Html_types.number wrap -> [> `Width ] attrib
+      type shape = [ `Circle | `Default | `Poly | `Rect ]
+      val a_shape : shape wrap -> [> `Shape ] attrib
+      val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
+      val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
+      val a_data : Xml.uri wrap -> [> `Data ] attrib
+      val a_codetype : Html_types.contenttype wrap -> [> `Codetype ] attrib
+      val a_frameborder : [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
+      val a_marginheight :
+        Html_types.pixels wrap -> [> `Marginheight ] attrib
+      val a_marginwidth : Html_types.pixels wrap -> [> `Marginwidth ] attrib
+      val a_scrolling :
+        [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
+      val a_target : Html_types.frametarget wrap -> [> `Target ] attrib
+      val a_content : Html_types.text wrap -> [> `Content ] attrib
+      val a_http_equiv : Html_types.text wrap -> [> `Http_equiv ] attrib
+      val a_defer : unit -> [> `Defer ] attrib
+      val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
+      val a_style : string wrap -> [> `Style_Attr ] attrib
+      val a_property : string wrap -> [> `Property ] attrib
+      val a_role : string list wrap -> [> `Role ] attrib
+      val a_aria : string -> string list wrap -> [> `Aria ] attrib
+      val txt : string wrap -> [> Html_types.txt ] elt
+      val html :
+        ?a:Html_types.html_attrib attrib list ->
+        [< Html_types.head ] elt wrap ->
+        [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
+      val head :
+        ?a:Html_types.head_attrib attrib list ->
+        [< Html_types.title ] elt wrap ->
+        Html_types.head_content_fun elt list_wrap -> [> Html_types.head ] elt
+      val base : ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
+      val title :
+        (Html_types.title_attrib, [< Html_types.title_content_fun ],
+         [> Html_types.title ])
+        unary
+      val body :
+        ([< Html_types.body_attrib ], [< Html_types.body_content_fun ],
+         [> Html_types.body ])
+        star
+      val svg :
+        ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+        [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
+        [> Html_types.svg ] elt
+      val footer :
+        ([< Html_types.footer_attrib ], [< Html_types.footer_content_fun ],
+         [> Html_types.footer ])
+        star
+      val header :
+        ([< Html_types.header_attrib ], [< Html_types.header_content_fun ],
+         [> Html_types.header ])
+        star
+      val section :
+        ([< Html_types.section_attrib ], [< Html_types.section_content_fun ],
+         [> Html_types.section ])
+        star
+      val nav :
+        ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
+         [> Html_types.nav ])
+        star
+      val h1 :
+        ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
+         [> Html_types.h1 ])
+        star
+      val h2 :
+        ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
+         [> Html_types.h2 ])
+        star
+      val h3 :
+        ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
+         [> Html_types.h3 ])
+        star
+      val h4 :
+        ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
+         [> Html_types.h4 ])
+        star
+      val h5 :
+        ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
+         [> Html_types.h5 ])
+        star
+      val h6 :
+        ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
+         [> Html_types.h6 ])
+        star
+      val hgroup :
+        ([< Html_types.hgroup_attrib ], [< Html_types.hgroup_content_fun ],
+         [> Html_types.hgroup ])
+        star
+      val address :
+        ([< Html_types.address_attrib ], [< Html_types.address_content_fun ],
+         [> Html_types.address ])
+        star
+      val article :
+        ([< Html_types.article_attrib ], [< Html_types.article_content_fun ],
+         [> Html_types.article ])
+        star
+      val aside :
+        ([< Html_types.aside_attrib ], [< Html_types.aside_content_fun ],
+         [> Html_types.aside ])
+        star
+      val main :
+        ([< Html_types.main_attrib ], [< Html_types.main_content_fun ],
+         [> Html_types.main ])
+        star
+      val p :
+        ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
+         [> Html_types.p ])
+        star
+      val pre :
+        ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
+         [> Html_types.pre ])
+        star
+      val blockquote :
+        ([< Html_types.blockquote_attrib ],
+         [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
+        star
+      val dialog :
+        ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+         [> Html_types.dialog ])
+        star
+      val div :
+        ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
+         [> Html_types.div ])
+        star
+      val dl :
+        ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
+         [> Html_types.dl ])
+        star
+      val ol :
+        ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
+         [> Html_types.ol ])
+        star
+      val ul :
+        ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
+         [> Html_types.ul ])
+        star
+      val dd :
+        ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
+         [> Html_types.dd ])
+        star
+      val dt :
+        ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
+         [> Html_types.dt ])
+        star
+      val li :
+        ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
+         [> Html_types.li ])
+        star
+      val figcaption :
+        ([< Html_types.figcaption_attrib ],
+         [< Html_types.figcaption_content_fun ], [> Html_types.figcaption ])
+        star
+      val figure :
+        ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
+                    | `Top of [< Html_types.figcaption ] elt wrap ] ->
+        ([< Html_types.figure_attrib ], [< Html_types.figure_content_fun ],
+         [> Html_types.figure ])
+        star
+      val hr : ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
+      val b :
+        ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
+         [> Html_types.b ])
+        star
+      val i :
+        ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
+         [> Html_types.i ])
+        star
+      val u :
+        ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
+         [> Html_types.u ])
+        star
+      val small :
+        ([< Html_types.small_attrib ], [< Html_types.small_content_fun ],
+         [> Html_types.small ])
+        star
+      val sub :
+        ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
+         [> Html_types.sub ])
+        star
+      val sup :
+        ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
+         [> Html_types.sup ])
+        star
+      val mark :
+        ([< Html_types.mark_attrib ], [< Html_types.mark_content_fun ],
+         [> Html_types.mark ])
+        star
+      val wbr : ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
+      val bdo :
+        dir:[< `Ltr | `Rtl ] wrap ->
+        ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
+         [> Html_types.bdo ])
+        star
+      val abbr :
+        ([< Html_types.abbr_attrib ], [< Html_types.abbr_content_fun ],
+         [> Html_types.abbr ])
+        star
+      val br : ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
+      val cite :
+        ([< Html_types.cite_attrib ], [< Html_types.cite_content_fun ],
+         [> Html_types.cite ])
+        star
+      val code :
+        ([< Html_types.code_attrib ], [< Html_types.code_content_fun ],
+         [> Html_types.code ])
+        star
+      val dfn :
+        ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
+         [> Html_types.dfn ])
+        star
+      val em :
+        ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
+         [> Html_types.em ])
+        star
+      val kbd :
+        ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
+         [> Html_types.kbd ])
+        star
+      val q :
+        ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
+         [> Html_types.q ])
+        star
+      val samp :
+        ([< Html_types.samp_attrib ], [< Html_types.samp_content_fun ],
+         [> Html_types.samp ])
+        star
+      val span :
+        ([< Html_types.span_attrib ], [< Html_types.span_content_fun ],
+         [> Html_types.span ])
+        star
+      val strong :
+        ([< Html_types.strong_attrib ], [< Html_types.strong_content_fun ],
+         [> Html_types.strong ])
+        star
+      val time :
+        ([< Html_types.time_attrib ], [< Html_types.time_content_fun ],
+         [> Html_types.time ])
+        star
+      val var :
+        ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
+         [> Html_types.var ])
+        star
+      val del : ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
+      val ins : ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
+      val img :
+        src:Xml.uri wrap ->
+        alt:Html_types.text wrap ->
+        ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
+      val picture :
+        img:[< Html_types.img ] elt wrap ->
+        ([< Html_types.picture_attrib ], [< Html_types.picture_content_fun ],
+         [> Html_types.picture ])
+        star
+      val iframe :
+        ([< Html_types.iframe_attrib ], [< Html_types.iframe_content_fun ],
+         [> Html_types.iframe ])
+        star
+      val object_ :
+        ?params:[< Html_types.param ] elt list_wrap ->
+        ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
+      val param :
+        ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
+      val embed :
+        ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
+      val audio :
+        ?src:Xml.uri wrap ->
+        ?srcs:[< Html_types.source ] elt list_wrap ->
+        ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ]) star
+      val video :
+        ?src:Xml.uri wrap ->
+        ?srcs:[< Html_types.source ] elt list_wrap ->
+        ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ]) star
+      val canvas :
+        ([< Html_types.canvas_attrib ], 'a, [> 'a Html_types.canvas ]) star
+      val source :
+        ([< Html_types.source_attrib ], [> Html_types.source ]) nullary
+      val area :
+        alt:Html_types.text wrap ->
+        ([< `Accesskey
+          | `Alt
+          | `Aria
+          | `Class
+          | `Contenteditable
+          | `Contextmenu
+          | `Coords
+          | `Dir
+          | `Draggable
+          | `Hidden
+          | `Hreflang
+          | `Id
+          | `Lang
+          | `Media
+          | `Mime_type
+          | `OnAbort
+          | `OnBlur
+          | `OnCanPlay
+          | `OnCanPlayThrough
+          | `OnChange
+          | `OnClick
+          | `OnClose
+          | `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
+          | `Rel
+          | `Role
+          | `Shape
+          | `Spellcheck
+          | `Style_Attr
+          | `Tabindex
+          | `Target
+          | `Title
+          | `Translate
+          | `User_data
+          | `XML_lang
+          | `XMLns ],
+         [> Html_types.area ])
+        nullary
+      val map : ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
+      val caption :
+        ([< Html_types.caption_attrib ], [< Html_types.caption_content_fun ],
+         [> Html_types.caption ])
+        star
+      val table :
+        ?caption:[< Html_types.caption ] elt wrap ->
+        ?columns:[< Html_types.colgroup ] elt list_wrap ->
+        ?thead:[< Html_types.thead ] elt wrap ->
+        ?tfoot:[< Html_types.tfoot ] elt wrap ->
+        ([< Html_types.table_attrib ], [< Html_types.table_content_fun ],
+         [> Html_types.table ])
+        star
+      val tablex :
+        ?caption:[< Html_types.caption ] elt wrap ->
+        ?columns:[< Html_types.colgroup ] elt list_wrap ->
+        ?thead:[< Html_types.thead ] elt wrap ->
+        ?tfoot:[< Html_types.tfoot ] elt wrap ->
+        ([< Html_types.tablex_attrib ], [< Html_types.tablex_content_fun ],
+         [> Html_types.tablex ])
+        star
+      val colgroup :
+        ([< Html_types.colgroup_attrib ],
+         [< Html_types.colgroup_content_fun ], [> Html_types.colgroup ])
+        star
+      val col : ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
+      val thead :
+        ([< Html_types.thead_attrib ], [< Html_types.thead_content_fun ],
+         [> Html_types.thead ])
+        star
+      val tbody :
+        ([< Html_types.tbody_attrib ], [< Html_types.tbody_content_fun ],
+         [> Html_types.tbody ])
+        star
+      val tfoot :
+        ([< Html_types.tfoot_attrib ], [< Html_types.tfoot_content_fun ],
+         [> Html_types.tfoot ])
+        star
+      val td :
+        ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
+         [> Html_types.td ])
+        star
+      val th :
+        ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
+         [> Html_types.th ])
+        star
+      val tr :
+        ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
+         [> Html_types.tr ])
+        star
+      val form :
+        ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
+         [> Html_types.form ])
+        star
+      val fieldset :
+        ?legend:[< Html_types.legend ] elt wrap ->
+        ([< Html_types.fieldset_attrib ],
+         [< Html_types.fieldset_content_fun ], [> Html_types.fieldset ])
+        star
+      val legend :
+        ([< Html_types.legend_attrib ], [< Html_types.legend_content_fun ],
+         [> Html_types.legend ])
+        star
+      val label :
+        ([< Html_types.label_attrib ], [< Html_types.label_content_fun ],
+         [> Html_types.label ])
+        star
+      val input :
+        ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
+      val button :
+        ([< Html_types.button_attrib ], [< Html_types.button_content_fun ],
+         [> Html_types.button ])
+        star
+      val select :
+        ([< Html_types.select_attrib ], [< Html_types.select_content_fun ],
+         [> Html_types.select ])
+        star
+      val datalist :
+        ?children:[< `Options of [< Html_types.selectoption ] elt list_wrap
+                   | `Phras of [< Html_types.phrasing ] elt list_wrap ] ->
+        ([< Html_types.datalist_attrib ], [> Html_types.datalist ]) nullary
+      val optgroup :
+        label:Html_types.text wrap ->
+        ([< Html_types.optgroup_attrib ],
+         [< Html_types.optgroup_content_fun ], [> Html_types.optgroup ])
+        star
+      val option :
+        ([< Html_types.option_attrib ], [< Html_types.option_content_fun ],
+         [> Html_types.selectoption ])
+        unary
+      val textarea :
+        ([< Html_types.textarea_attrib ],
+         [< Html_types.textarea_content_fun ], [> Html_types.textarea ])
+        unary
+      val keygen :
+        ([< Html_types.keygen_attrib ], [> Html_types.keygen ]) nullary
+      val progress :
+        ([< Html_types.progress_attrib ],
+         [< Html_types.progress_content_fun ], [> Html_types.progress ])
+        star
+      val meter :
+        ([< Html_types.meter_attrib ], [< Html_types.meter_content_fun ],
+         [> Html_types.meter ])
+        star
+      val output_elt :
+        ([< Html_types.output_elt_attrib ],
+         [< Html_types.output_elt_content_fun ], [> Html_types.output_elt ])
+        star
+      val entity : string -> [> Html_types.txt ] elt
+      val space : unit -> [> Html_types.txt ] elt
+      val cdata : string -> [> Html_types.txt ] elt
+      val cdata_script : string -> [> Html_types.txt ] elt
+      val cdata_style : string -> [> Html_types.txt ] elt
+      val details :
+        [< Html_types.summary ] elt wrap ->
+        ([< Html_types.details_attrib ], [< Html_types.details_content_fun ],
+         [> Html_types.details ])
+        star
+      val summary :
+        ([< Html_types.summary_attrib ], [< Html_types.summary_content_fun ],
+         [> Html_types.summary ])
+        star
+      val command :
+        label:Html_types.text wrap ->
+        ([< Html_types.command_attrib ], [> Html_types.command ]) nullary
+      val menu :
+        ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
+                   | `Lis of [< `Li of [< Html_types.common ] ] elt list_wrap
+                  ] ->
+        ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
+      val script :
+        ([< Html_types.script_attrib ], [< Html_types.script_content_fun ],
+         [> Html_types.script ])
+        unary
+      val noscript :
+        ([< Html_types.noscript_attrib ],
+         [< Html_types.noscript_content_fun ], [> Html_types.noscript ])
+        star
+      val template :
+        ([< Html_types.template_attrib ],
+         [< Html_types.template_content_fun ], [> Html_types.template ])
+        star
+      val meta : ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
+      val style :
+        ([< Html_types.style_attrib ], [< Html_types.style_content_fun ],
+         [> Html_types.style ])
+        star
+      val link :
+        rel:Html_types.linktypes wrap ->
+        href:Xml.uri wrap ->
+        ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
+      val rt :
+        ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
+         [> Html_types.rt ])
+        star
+      val rp :
+        ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
+         [> Html_types.rp ])
+        star
+      val ruby :
+        ([< Html_types.ruby_attrib ], [< Html_types.ruby_content_fun ],
+         [> Html_types.ruby ])
+        star
+      val pcdata : string wrap -> [> Html_types.pcdata ] elt
+      val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+      val tot : Xml.elt -> 'a elt
+      val totl : Xml.elt list_wrap -> 'a elt list_wrap
+      val toelt : 'a elt -> Xml.elt
+      val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+      val doc_toelt : doc -> Xml.elt
+      val to_xmlattribs : 'a attrib list -> Xml.attrib list
+      val to_attrib : Xml.attrib -> 'a attrib
+      module Unsafe :
+        sig
+          val data : string wrap -> 'a elt
+          val node :
+            string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+          val coerce_elt : 'a elt -> 'b elt
+          val string_attrib : string -> string wrap -> 'a attrib
+          val float_attrib : string -> float wrap -> 'a attrib
+          val int_attrib : string -> int wrap -> 'a attrib
+          val uri_attrib : string -> uri wrap -> 'a attrib
+          val space_sep_attrib : string -> string list wrap -> 'a attrib
+          val comma_sep_attrib : string -> string list wrap -> 'a attrib
+        end
+      type ('a, 'b, 'c) lazy_star =
+          ?a:'a attrib list -> 'b elt list Eliom_lazy.request -> 'c elt
+      val lazy_form :
+        ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
+         [> Html_types.form ])
+        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 :
-            ([< Html_types.button_attrib ],
-             [< Html_types.button_content_fun ], [> Html_types.button ])
-            star
+            ?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
+                | `OnClose
+                | `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 :
-            ([< Html_types.select_attrib ],
-             [< Html_types.select_content_fun ], [> Html_types.select ])
-            star
-          val datalist :
-            ?children:[< `Options of
-                           [< Html_types.selectoption ] elt list_wrap
-                       | `Phras of [< Html_types.phrasing ] elt list_wrap ] ->
-            ([< Html_types.datalist_attrib ], [> Html_types.datalist ])
-            nullary
-          val optgroup :
-            label:Html_types.text wrap ->
-            ([< Html_types.optgroup_attrib ],
-             [< Html_types.optgroup_content_fun ], [> Html_types.optgroup ])
-            star
-          val option :
-            ([< Html_types.option_attrib ],
-             [< Html_types.option_content_fun ],
-             [> Html_types.selectoption ])
-            unary
-          val textarea :
-            ([< Html_types.textarea_attrib ],
-             [< Html_types.textarea_content_fun ], [> Html_types.textarea ])
-            unary
-          val keygen :
-            ([< Html_types.keygen_attrib ], [> Html_types.keygen ]) nullary
-          val progress :
-            ([< Html_types.progress_attrib ],
-             [< Html_types.progress_content_fun ], [> Html_types.progress ])
-            star
-          val meter :
-            ([< Html_types.meter_attrib ], [< Html_types.meter_content_fun ],
-             [> Html_types.meter ])
-            star
-          val output_elt :
-            ([< Html_types.output_elt_attrib ],
-             [< Html_types.output_elt_content_fun ],
-             [> Html_types.output_elt ])
-            star
-          val entity : string -> [> Html_types.txt ] elt
-          val space : unit -> [> Html_types.txt ] elt
-          val cdata : string -> [> Html_types.txt ] elt
-          val cdata_script : string -> [> Html_types.txt ] elt
-          val cdata_style : string -> [> Html_types.txt ] elt
-          val details :
-            [< Html_types.summary ] elt wrap ->
-            ([< Html_types.details_attrib ],
-             [< Html_types.details_content_fun ], [> Html_types.details ])
-            star
-          val summary :
-            ([< Html_types.summary_attrib ],
-             [< Html_types.summary_content_fun ], [> Html_types.summary ])
-            star
-          val command :
-            label:Html_types.text wrap ->
-            ([< Html_types.command_attrib ], [> Html_types.command ]) nullary
-          val menu :
-            ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
-                       | `Lis of
-                           [< `Li of [< Html_types.common ] ] elt list_wrap ] ->
-            ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
-          val script :
-            ([< Html_types.script_attrib ],
-             [< Html_types.script_content_fun ], [> Html_types.script ])
-            unary
-          val noscript :
-            ([< Html_types.noscript_attrib ],
-             [< Html_types.noscript_content_fun ], [> Html_types.noscript ])
-            star
-          val template :
-            ([< Html_types.template_attrib ],
-             [< Html_types.template_content_fun ], [> Html_types.template ])
-            star
-          val meta :
-            ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
-          val style :
-            ([< Html_types.style_attrib ], [< Html_types.style_content_fun ],
-             [> Html_types.style ])
-            star
-          val link :
-            rel:Html_types.linktypes wrap ->
-            href:Xml.uri wrap ->
-            ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
-          val rt :
-            ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
-             [> Html_types.rt ])
-            star
-          val rp :
-            ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
-             [> Html_types.rp ])
-            star
-          val ruby :
-            ([< Html_types.ruby_attrib ], [< Html_types.ruby_content_fun ],
-             [> Html_types.ruby ])
-            star
-          val pcdata : string wrap -> [> Html_types.pcdata ] elt
-          val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
-          val tot : Xml.elt -> 'a elt
-          val totl : Xml.elt list_wrap -> 'a elt list_wrap
-          val toelt : 'a elt -> Xml.elt
-          val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
-          val doc_toelt : doc -> Xml.elt
-          val to_xmlattribs : 'a attrib list -> Xml.attrib list
-          val to_attrib : Xml.attrib -> 'a attrib
-          module Unsafe :
-            sig
-              val data : string wrap -> 'a elt
-              val node :
-                string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-              val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
-              val coerce_elt : 'a elt -> 'b elt
-              val string_attrib : string -> string wrap -> 'a attrib
-              val float_attrib : string -> float wrap -> 'a attrib
-              val int_attrib : string -> int wrap -> 'a attrib
-              val uri_attrib : string -> uri wrap -> 'a attrib
-              val space_sep_attrib : string -> string list wrap -> 'a attrib
-              val comma_sep_attrib : string -> string list wrap -> 'a attrib
-            end
+            ?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
+  module C :
+    sig
+      val node :
+        ?init:'a Eliom_content.Html.elt ->
+        'a Eliom_content.Html.elt Eliom_client_value.t ->
+        'a Eliom_content.Html.elt
+      val attr :
+        ?init:'a Eliom_content.Html.attrib ->
+        'a Eliom_content.Html.attrib Eliom_client_value.t ->
+        'a Eliom_content.Html.attrib
+    end
+  module Id :
+    sig
+      type +'a id
+      val new_elt_id : ?global:bool -> unit -> 'a Eliom_content.Html.Id.id
+      val create_named_elt :
+        id:'a Eliom_content.Html.Id.id ->
+        'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
+      val create_global_elt :
+        'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
+      val create_request_elt :
+        ?reset:bool -> 'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
+      val have_id :
+        'a Eliom_content.Html.Id.id -> 'b Eliom_content.Html.elt -> bool
+    end
+  module R :
+    sig
       type 'a elt = 'a elt
       type doc = Html_types.html elt
       type 'a attrib = 'a attrib
@@ -5119,11 +6082,11 @@
         sig
           module W :
             sig
-              type 'a t = 'a Eliom_content_core.Xml_wed.W.t
+              type 'a t = 'a Xml_shared.W.t
               val return : 'a -> 'a t
-              type ('a, 'b) ft = ('a, 'b) Eliom_content_core.Xml_wed.W.ft
+              type ('a, 'b) ft = ('a, 'b) Xml_shared.W.ft
               val fmap : ('a, 'b) ft -> 'a t -> 'b t
-              type 'a tlist = 'a Eliom_content_core.Xml_wed.W.tlist
+              type 'a tlist = 'a Xml_shared.W.tlist
               val nil : unit -> 'a tlist
               val singleton : 'a t -> 'a tlist
               val cons : 'a t -> 'a tlist -> 'a tlist
@@ -5132,18 +6095,15 @@
             end
           type 'a wrap = 'a W.t
           type 'a list_wrap = 'a W.tlist
-          type uri = Eliom_content_core.Xml_wed.uri
+          type uri = Xml_shared.uri
           val string_of_uri : (uri, string) W.ft
           val uri_of_string : (string, uri) W.ft
           type aname = string
-          type event_handler = Eliom_content_core.Xml_wed.event_handler
-          type mouse_event_handler =
-              Eliom_content_core.Xml_wed.mouse_event_handler
-          type keyboard_event_handler =
-              Eliom_content_core.Xml_wed.keyboard_event_handler
-          type touch_event_handler =
-              Eliom_content_core.Xml_wed.touch_event_handler
-          type attrib = Eliom_content_core.Xml_wed.attrib
+          type event_handler = Xml_shared.event_handler
+          type mouse_event_handler = Xml_shared.mouse_event_handler
+          type keyboard_event_handler = Xml_shared.keyboard_event_handler
+          type touch_event_handler = Xml_shared.touch_event_handler
+          type attrib = Xml_shared.attrib
           val float_attrib : aname -> float wrap -> attrib
           val int_attrib : aname -> int wrap -> attrib
           val string_attrib : aname -> string wrap -> attrib
@@ -5158,7 +6118,7 @@
             aname -> touch_event_handler -> attrib
           val uri_attrib : aname -> uri wrap -> attrib
           val uris_attrib : aname -> uri list wrap -> attrib
-          type elt = Eliom_content_core.Xml_wed.elt
+          type elt = Xml_shared.elt
           type ename = string
           val empty : unit -> elt
           val comment : string -> elt
@@ -5197,6 +6157,7 @@
       val a_oncanplaythrough :
         Xml.event_handler -> [> `OnCanPlayThrough ] attrib
       val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+      val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
       val a_ondurationchange :
         Xml.event_handler -> [> `OnDurationChange ] attrib
       val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
@@ -5271,7 +6232,8 @@
       val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
       val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
       val a_allowpaymentrequest : unit -> [> `Allowpaymentrequest ] attrib
-      val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+      val a_autocomplete :
+        Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
       val a_async : unit -> [> `Async ] attrib
       val a_autofocus : unit -> [> `Autofocus ] attrib
       val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -5379,7 +6341,7 @@
       val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
       val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
       val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-      val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+      val a_formmethod : [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
       val a_multiple : unit -> [> `Multiple ] attrib
       val a_name : Html_types.text wrap -> [> `Name ] attrib
       val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -5420,6 +6382,8 @@
       val a_readonly : unit -> [> `ReadOnly ] attrib
       val a_button_type :
         [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+      val a_script_type :
+        Html_types.script_type wrap -> [> `Script_type ] attrib
       val a_command_type :
         [< `Checkbox | `Command | `Radio ] wrap -> [> `Command_Type ] attrib
       val a_menu_type :
@@ -5557,6 +6521,10 @@
         ([< Html_types.blockquote_attrib ],
          [< Html_types.blockquote_content_fun ], [> Html_types.blockquote ])
         star
+      val dialog :
+        ([< Html_types.dialog_attrib ], [< Html_types.dialog_content_fun ],
+         [> Html_types.dialog ])
+        star
       val div :
         ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
          [> Html_types.div ])
@@ -5737,6 +6705,7 @@
           | `OnCanPlayThrough
           | `OnChange
           | `OnClick
+          | `OnClose
           | `OnContextMenu
           | `OnDblClick
           | `OnDrag
@@ -5966,7 +6935,6 @@
         ([< Html_types.ruby_attrib ], [< Html_types.ruby_content_fun ],
          [> Html_types.ruby ])
         star
-      val pcdata : string wrap -> [> Html_types.pcdata ] elt
       val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
       val tot : Xml.elt -> 'a elt
       val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -5989,31 +6957,15 @@
           val space_sep_attrib : string -> string list wrap -> 'a attrib
           val comma_sep_attrib : string -> string list wrap -> 'a attrib
         end
-    end
-  module C :
-    sig
+      val pcdata :
+        string Eliom_shared.React.S.t ->
+        [> Html_types.span ] Eliom_content.Html.elt
       val node :
-        ?init:'a Eliom_content.Html.D.elt ->
-        'a Eliom_content.Html.elt Eliom_client_value.t ->
-        'a Eliom_content.Html.D.elt
-      val attr :
-        ?init:'a Eliom_content.Html.attrib ->
-        'a Eliom_content.Html.attrib Eliom_client_value.t ->
-        'a Eliom_content.Html.attrib
-    end
-  module Id :
-    sig
-      type +'a id
-      val new_elt_id : ?global:bool -> unit -> 'a Eliom_content.Html.Id.id
-      val create_named_elt :
-        id:'a Eliom_content.Html.Id.id ->
-        'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
-      val create_global_elt :
-        'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
-      val create_request_elt :
-        ?reset:bool -> 'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
-      val get_element :
-        'a Eliom_content.Html.Id.id -> 'a Eliom_content.Html.elt option
+        'a Eliom_content.Html.elt Eliom_shared.React.S.t ->
+        'a Eliom_content.Html.elt
+      val filter_attrib :
+        'a Eliom_content.Html.attrib ->
+        bool Eliom_shared.React.S.t -> 'a Eliom_content.Html.attrib
     end
   module Custom_data :
     sig
@@ -6031,891 +6983,15 @@
       val attrib :
         'a Eliom_content.Html.Custom_data.t ->
         'a -> [> `User_data ] Eliom_content.Html.attrib
-      val get_dom :
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t ->
-        'a Eliom_content.Html.Custom_data.t -> 'a
-      val set_dom :
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t ->
-        'a Eliom_content.Html.Custom_data.t -> 'a -> unit
-    end
-  module To_dom :
-    sig
-      type 'a elt = 'a elt
-      val of_element :
-        'a elt -> Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_node : 'a elt -> Js_of_ocaml.Dom.node Js_of_ocaml.Js.t
-      val of_pcdata :
-        [< Html_types.pcdata ] elt -> Js_of_ocaml.Dom.text Js_of_ocaml.Js.t
-      val of_html :
-        [< Html_types.html ] elt ->
-        Js_of_ocaml.Dom_html.htmlElement Js_of_ocaml.Js.t
-      val of_head :
-        [< Html_types.head ] elt ->
-        Js_of_ocaml.Dom_html.headElement Js_of_ocaml.Js.t
-      val of_link :
-        [< Html_types.link ] elt ->
-        Js_of_ocaml.Dom_html.linkElement Js_of_ocaml.Js.t
-      val of_title :
-        [< Html_types.title ] elt ->
-        Js_of_ocaml.Dom_html.titleElement Js_of_ocaml.Js.t
-      val of_meta :
-        [< Html_types.meta ] elt ->
-        Js_of_ocaml.Dom_html.metaElement Js_of_ocaml.Js.t
-      val of_base :
-        [< Html_types.base ] elt ->
-        Js_of_ocaml.Dom_html.baseElement Js_of_ocaml.Js.t
-      val of_style :
-        [< Html_types.style ] elt ->
-        Js_of_ocaml.Dom_html.styleElement Js_of_ocaml.Js.t
-      val of_body :
-        [< Html_types.body ] elt ->
-        Js_of_ocaml.Dom_html.bodyElement Js_of_ocaml.Js.t
-      val of_form :
-        [< Html_types.form ] elt ->
-        Js_of_ocaml.Dom_html.formElement Js_of_ocaml.Js.t
-      val of_optgroup :
-        [< Html_types.optgroup ] elt ->
-        Js_of_ocaml.Dom_html.optGroupElement Js_of_ocaml.Js.t
-      val of_option :
-        [< Html_types.selectoption ] elt ->
-        Js_of_ocaml.Dom_html.optionElement Js_of_ocaml.Js.t
-      val of_select :
-        [< Html_types.select ] elt ->
-        Js_of_ocaml.Dom_html.selectElement Js_of_ocaml.Js.t
-      val of_input :
-        [< Html_types.input ] elt ->
-        Js_of_ocaml.Dom_html.inputElement Js_of_ocaml.Js.t
-      val of_textarea :
-        [< Html_types.textarea ] elt ->
-        Js_of_ocaml.Dom_html.textAreaElement Js_of_ocaml.Js.t
-      val of_button :
-        [< Html_types.button ] elt ->
-        Js_of_ocaml.Dom_html.buttonElement Js_of_ocaml.Js.t
-      val of_label :
-        [< Html_types.label ] elt ->
-        Js_of_ocaml.Dom_html.labelElement Js_of_ocaml.Js.t
-      val of_fieldset :
-        [< Html_types.fieldset ] elt ->
-        Js_of_ocaml.Dom_html.fieldSetElement Js_of_ocaml.Js.t
-      val of_legend :
-        [< Html_types.legend ] elt ->
-        Js_of_ocaml.Dom_html.legendElement Js_of_ocaml.Js.t
-      val of_ul :
-        [< Html_types.ul ] elt ->
-        Js_of_ocaml.Dom_html.uListElement Js_of_ocaml.Js.t
-      val of_ol :
-        [< Html_types.ol ] elt ->
-        Js_of_ocaml.Dom_html.oListElement Js_of_ocaml.Js.t
-      val of_dl :
-        [< Html_types.dl ] elt ->
-        Js_of_ocaml.Dom_html.dListElement Js_of_ocaml.Js.t
-      val of_li :
-        [< Html_types.li ] elt ->
-        Js_of_ocaml.Dom_html.liElement Js_of_ocaml.Js.t
-      val of_div :
-        [< Html_types.div ] elt ->
-        Js_of_ocaml.Dom_html.divElement Js_of_ocaml.Js.t
-      val of_p :
-        [< Html_types.p ] elt ->
-        Js_of_ocaml.Dom_html.paragraphElement Js_of_ocaml.Js.t
-      val of_heading :
-        [< Html_types.heading ] elt ->
-        Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
-      val of_blockquote :
-        [< Html_types.blockquote ] elt ->
-        Js_of_ocaml.Dom_html.quoteElement Js_of_ocaml.Js.t
-      val of_pre :
-        [< Html_types.pre ] elt ->
-        Js_of_ocaml.Dom_html.preElement Js_of_ocaml.Js.t
-      val of_br :
-        [< Html_types.br ] elt ->
-        Js_of_ocaml.Dom_html.brElement Js_of_ocaml.Js.t
-      val of_hr :
-        [< Html_types.hr ] elt ->
-        Js_of_ocaml.Dom_html.hrElement Js_of_ocaml.Js.t
-      val of_del :
-        [< 'a Html_types.del ] elt ->
-        Js_of_ocaml.Dom_html.modElement Js_of_ocaml.Js.t
-      val of_ins :
-        [< 'a Html_types.ins ] elt ->
-        Js_of_ocaml.Dom_html.modElement Js_of_ocaml.Js.t
-      val of_a :
-        [< 'a Html_types.a ] elt ->
-        Js_of_ocaml.Dom_html.anchorElement Js_of_ocaml.Js.t
-      val of_img :
-        [< Html_types.img_interactive ] elt ->
-        Js_of_ocaml.Dom_html.imageElement Js_of_ocaml.Js.t
-      val of_object :
-        [< 'a Html_types.object_ ] elt ->
-        Js_of_ocaml.Dom_html.objectElement Js_of_ocaml.Js.t
-      val of_param :
-        [< Html_types.param ] elt ->
-        Js_of_ocaml.Dom_html.paramElement Js_of_ocaml.Js.t
-      val of_area :
-        [< Html_types.area ] elt ->
-        Js_of_ocaml.Dom_html.areaElement Js_of_ocaml.Js.t
-      val of_map :
-        [< 'a Html_types.map ] elt ->
-        Js_of_ocaml.Dom_html.mapElement Js_of_ocaml.Js.t
-      val of_script :
-        [< Html_types.script ] elt ->
-        Js_of_ocaml.Dom_html.scriptElement Js_of_ocaml.Js.t
-      val of_td :
-        [< `Td ] elt ->
-        Js_of_ocaml.Dom_html.tableCellElement Js_of_ocaml.Js.t
-      val of_tr :
-        [< Html_types.tr ] elt ->
-        Js_of_ocaml.Dom_html.tableRowElement Js_of_ocaml.Js.t
-      val of_col :
-        [< Html_types.col ] elt ->
-        Js_of_ocaml.Dom_html.tableColElement Js_of_ocaml.Js.t
-      val of_tfoot :
-        [< Html_types.tfoot ] elt ->
-        Js_of_ocaml.Dom_html.tableSectionElement Js_of_ocaml.Js.t
-      val of_thead :
-        [< Html_types.thead ] elt ->
-        Js_of_ocaml.Dom_html.tableSectionElement Js_of_ocaml.Js.t
-      val of_tbody :
-        [< Html_types.tbody ] elt ->
-        Js_of_ocaml.Dom_html.tableSectionElement Js_of_ocaml.Js.t
-      val of_caption :
-        [< Html_types.caption ] elt ->
-        Js_of_ocaml.Dom_html.tableCaptionElement Js_of_ocaml.Js.t
-      val of_table :
-        [< Html_types.table ] elt ->
-        Js_of_ocaml.Dom_html.tableElement Js_of_ocaml.Js.t
-      val of_canvas :
-        [< 'a Html_types.canvas ] elt ->
-        Js_of_ocaml.Dom_html.canvasElement Js_of_ocaml.Js.t
-      val of_iframe :
-        [< Html_types.iframe ] elt ->
-        Js_of_ocaml.Dom_html.iFrameElement Js_of_ocaml.Js.t
-      val of_audio :
-        [< 'a Html_types.audio_interactive ] elt ->
-        Js_of_ocaml.Dom_html.audioElement Js_of_ocaml.Js.t
-      val of_video :
-        [< 'a Html_types.video_interactive ] elt ->
-        Js_of_ocaml.Dom_html.videoElement Js_of_ocaml.Js.t
-      val of_h1 :
-        Html_types.heading elt ->
-        Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
-      val of_h2 :
-        Html_types.heading elt ->
-        Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
-      val of_h3 :
-        Html_types.heading elt ->
-        Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
-      val of_h4 :
-        Html_types.heading elt ->
-        Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
-      val of_h5 :
-        Html_types.heading elt ->
-        Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
-      val of_h6 :
-        Html_types.heading elt ->
-        Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
-      val of_abbr :
-        [> Html_types.abbr ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_address :
-        [> Html_types.address ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_article :
-        [> Html_types.article ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_aside :
-        [> Html_types.aside ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_b :
-        [> Html_types.b ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_bdo :
-        [> Html_types.bdo ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_cite :
-        [> Html_types.cite ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_code :
-        [> Html_types.code ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_colgroup :
-        [> Html_types.colgroup ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_command :
-        [> Html_types.command ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_datalist :
-        [> Html_types.datalist ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_dd :
-        [> Html_types.dd ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_details :
-        [> Html_types.details ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_dfn :
-        [> Html_types.dfn ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_dt :
-        [> Html_types.dt ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_em :
-        [> Html_types.em ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_embed :
-        [> Html_types.embed ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_figcaption :
-        [> Html_types.figcaption ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_figure :
-        [> Html_types.figure ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_footer :
-        [> Html_types.footer ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_header :
-        [> Html_types.header ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_hgroup :
-        [> Html_types.hgroup ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_i :
-        [> Html_types.i ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_kbd :
-        [> Html_types.kbd ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_keygen :
-        [> Html_types.keygen ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_main :
-        [> Html_types.main ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_mark :
-        [> Html_types.mark ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_menu :
-        [> Html_types.menu ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_meter :
-        [> Html_types.meter ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_nav :
-        [> Html_types.nav ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_noscript :
-        [> Html_types.noscript ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_output :
-        [> Html_types.output_elt ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_progress :
-        [> Html_types.progress ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_q :
-        [> Html_types.q ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_rp :
-        [> Html_types.rp ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_rt :
-        [> Html_types.rt ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_ruby :
-        [> Html_types.ruby ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_samp :
-        [> Html_types.samp ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_section :
-        [> Html_types.section ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_small :
-        [> Html_types.small ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_source :
-        [> Html_types.source ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_span :
-        [> Html_types.span ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_strong :
-        [> Html_types.strong ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_sub :
-        [> Html_types.sub ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_summary :
-        [> Html_types.summary ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_sup :
-        [> Html_types.sup ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_th :
-        [> Html_types.th ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_time :
-        [> Html_types.time ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_u :
-        [> Html_types.u ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_var :
-        [> Html_types.var ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-      val of_wbr :
-        [> Html_types.wbr ] elt ->
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-    end
-  module Manip :
-    sig
-      val appendChild :
-        ?before:'a Eliom_content.Html.elt ->
-        'b Eliom_content.Html.elt -> 'c Eliom_content.Html.elt -> unit
-      val appendToBody :
-        ?before:'a Eliom_content.Html.elt ->
-        'c Eliom_content.Html.elt -> unit
-      val appendChildren :
-        ?before:'a Eliom_content.Html.elt ->
-        'b Eliom_content.Html.elt -> 'c Eliom_content.Html.elt list -> unit
-      val insertFirstChild :
-        'b Eliom_content.Html.elt -> 'c Eliom_content.Html.elt -> unit
-      val nth :
-        'a Eliom_content.Html.elt -> int -> 'b Eliom_content.Html.elt option
-      val childLength : 'a Eliom_content.Html.elt -> int
-      val removeChild :
-        'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt -> unit
-      val replaceChild :
-        'a Eliom_content.Html.elt ->
-        'b Eliom_content.Html.elt -> 'c Eliom_content.Html.elt -> unit
-      val removeChildren : 'a Eliom_content.Html.elt -> unit
-      val removeSelf : 'a Eliom_content.Html.elt -> unit
-      val replaceChildren :
-        'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt list -> unit
-      val parentNode :
-        'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt option
-      val nextSibling :
-        'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt option
-      val previousSibling :
-        'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt option
-      val insertBefore :
-        before:'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt -> unit
-      val insertAfter :
-        after:'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt -> unit
-      val replaceSelf :
-        'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt -> unit
-      val children :
-        'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt list
-      val addEventListener :
-        ?capture:bool ->
-        'a Eliom_content.Html.elt ->
-        (#Js_of_ocaml.Dom_html.event as 'b) Js_of_ocaml.Js.t
-        Js_of_ocaml.Dom_html.Event.typ ->
-        ('a Eliom_content.Html.elt -> 'b Js_of_ocaml.Js.t -> bool) ->
-        Js_of_ocaml.Dom_html.event_listener_id
-      module Named :
-        sig
-          val appendChild :
-            ?before:'a Eliom_content.Html.elt ->
-            'b Eliom_content.Html.Id.id -> 'c Eliom_content.Html.elt -> unit
-          val appendChildren :
-            ?before:'a Eliom_content.Html.elt ->
-            'b Eliom_content.Html.Id.id ->
-            'c Eliom_content.Html.elt list -> unit
-          val removeChild :
-            'a Eliom_content.Html.Id.id -> 'b Eliom_content.Html.elt -> unit
-          val replaceChild :
-            'a Eliom_content.Html.Id.id ->
-            'b Eliom_content.Html.elt -> 'c Eliom_content.Html.elt -> unit
-          val removeChildren : 'a Eliom_content.Html.Id.id -> unit
-          val replaceChildren :
-            'a Eliom_content.Html.Id.id ->
-            'b Eliom_content.Html.elt list -> unit
-          val addEventListener :
-            ?capture:bool ->
-            'a Eliom_content.Html.Id.id ->
-            (#Js_of_ocaml.Dom_html.event as 'b) Js_of_ocaml.Js.t
-            Js_of_ocaml.Dom_html.Event.typ ->
-            ('a Eliom_content.Html.elt -> 'b Js_of_ocaml.Js.t -> bool) ->
-            Js_of_ocaml.Dom_html.event_listener_id
-        end
-      val scrollIntoView : ?bottom:bool -> 'a Eliom_content.Html.elt -> unit
-      val childNodes :
-        'a Eliom_content.Html.elt ->
-        Js_of_ocaml.Dom.node Js_of_ocaml.Js.t list
-      val childElements :
-        'a Eliom_content.Html.elt ->
-        Js_of_ocaml.Dom.element Js_of_ocaml.Js.t list
-      module Class :
-        sig
-          val contain : 'a Eliom_content.Html.elt -> string -> bool
-          val remove : 'a Eliom_content.Html.elt -> string -> unit
-          val removes : 'a Eliom_content.Html.elt -> string list -> unit
-          val add : 'a Eliom_content.Html.elt -> string -> unit
-          val adds : 'a Eliom_content.Html.elt -> string list -> unit
-          val replace : 'a Eliom_content.Html.elt -> string -> string -> unit
-          val clear : 'a Eliom_content.Html.elt -> unit
-          val toggle : 'a Eliom_content.Html.elt -> string -> unit
-          val toggle2 : 'a Eliom_content.Html.elt -> string -> string -> unit
-        end
-      module Elt :
-        sig val body : unit -> [ `Body ] Eliom_content.Html.elt end
-      module Ev :
-        sig
-          type ('a, 'b) ev =
-              'a Eliom_content.Html.elt ->
-              ('b Js_of_ocaml.Js.t -> bool) -> unit
-          type ('a, 'b) ev_unit =
-              'a Eliom_content.Html.elt ->
-              ('b Js_of_ocaml.Js.t -> unit) -> unit
-          val onkeyup :
-            ('a, Js_of_ocaml.Dom_html.keyboardEvent)
-            Eliom_content.Html.Manip.Ev.ev
-          val onkeydown :
-            ('a, Js_of_ocaml.Dom_html.keyboardEvent)
-            Eliom_content.Html.Manip.Ev.ev
-          val onmouseup :
-            ('a, Js_of_ocaml.Dom_html.mouseEvent)
-            Eliom_content.Html.Manip.Ev.ev
-          val onmousedown :
-            ('a, Js_of_ocaml.Dom_html.mouseEvent)
-            Eliom_content.Html.Manip.Ev.ev
-          val onmouseout :
-            ('a, Js_of_ocaml.Dom_html.mouseEvent)
-            Eliom_content.Html.Manip.Ev.ev
-          val onmouseover :
-            ('a, Js_of_ocaml.Dom_html.mouseEvent)
-            Eliom_content.Html.Manip.Ev.ev
-          val onclick :
-            ('a, Js_of_ocaml.Dom_html.mouseEvent)
-            Eliom_content.Html.Manip.Ev.ev
-          val ondblclick :
-            ('a, Js_of_ocaml.Dom_html.mouseEvent)
-            Eliom_content.Html.Manip.Ev.ev
-          val onload :
-            ('a, Js_of_ocaml.Dom_html.event) Eliom_content.Html.Manip.Ev.ev
-          val onerror :
-            ('a, Js_of_ocaml.Dom_html.event) Eliom_content.Html.Manip.Ev.ev
-          val onabort :
-            ('a, Js_of_ocaml.Dom_html.event) Eliom_content.Html.Manip.Ev.ev
-          val onfocus :
-            ('a, Js_of_ocaml.Dom_html.event) Eliom_content.Html.Manip.Ev.ev
-          val onblur :
-            ('a, Js_of_ocaml.Dom_html.event) Eliom_content.Html.Manip.Ev.ev
-          val onfocus_textarea :
-            ('a, Js_of_ocaml.Dom_html.event) Eliom_content.Html.Manip.Ev.ev
-          val onblur_textarea :
-            ('a, Js_of_ocaml.Dom_html.event) Eliom_content.Html.Manip.Ev.ev
-          val onscroll :
-            ('a, Js_of_ocaml.Dom_html.event) Eliom_content.Html.Manip.Ev.ev
-          val onreturn :
-            ('a, Js_of_ocaml.Dom_html.keyboardEvent)
-            Eliom_content.Html.Manip.Ev.ev_unit
-          val onchange :
-            ('a, Js_of_ocaml.Dom_html.event) Eliom_content.Html.Manip.Ev.ev
-          val onchange_select :
-            ('a, Js_of_ocaml.Dom_html.event) Eliom_content.Html.Manip.Ev.ev
-        end
-      module Attr :
-        sig
-          val clientWidth : 'a Eliom_content.Html.elt -> int
-          val clientHeight : 'a Eliom_content.Html.elt -> int
-          val offsetWidth : 'a Eliom_content.Html.elt -> int
-          val offsetHeight : 'a Eliom_content.Html.elt -> int
-          val clientLeft : 'a Eliom_content.Html.elt -> int
-          val clientTop : 'a Eliom_content.Html.elt -> int
-        end
-      module Css :
-        sig
-          val background : 'a Eliom_content.Html.elt -> string
-          val backgroundAttachment : 'a Eliom_content.Html.elt -> string
-          val backgroundColor : 'a Eliom_content.Html.elt -> string
-          val backgroundImage : 'a Eliom_content.Html.elt -> string
-          val backgroundPosition : 'a Eliom_content.Html.elt -> string
-          val backgroundRepeat : 'a Eliom_content.Html.elt -> string
-          val border : 'a Eliom_content.Html.elt -> string
-          val borderBottom : 'a Eliom_content.Html.elt -> string
-          val borderBottomColor : 'a Eliom_content.Html.elt -> string
-          val borderBottomStyle : 'a Eliom_content.Html.elt -> string
-          val borderBottomWidth : 'a Eliom_content.Html.elt -> string
-          val borderBottomWidthPx : 'a Eliom_content.Html.elt -> int
-          val borderCollapse : 'a Eliom_content.Html.elt -> string
-          val borderColor : 'a Eliom_content.Html.elt -> string
-          val borderLeft : 'a Eliom_content.Html.elt -> string
-          val borderLeftColor : 'a Eliom_content.Html.elt -> string
-          val borderLeftStyle : 'a Eliom_content.Html.elt -> string
-          val borderLeftWidth : 'a Eliom_content.Html.elt -> string
-          val borderLeftWidthPx : 'a Eliom_content.Html.elt -> int
-          val borderRight : 'a Eliom_content.Html.elt -> string
-          val borderRightColor : 'a Eliom_content.Html.elt -> string
-          val borderRightStyle : 'a Eliom_content.Html.elt -> string
-          val borderRightWidth : 'a Eliom_content.Html.elt -> string
-          val borderRightWidthPx : 'a Eliom_content.Html.elt -> int
-          val borderSpacing : 'a Eliom_content.Html.elt -> string
-          val borderStyle : 'a Eliom_content.Html.elt -> string
-          val borderTop : 'a Eliom_content.Html.elt -> string
-          val borderTopColor : 'a Eliom_content.Html.elt -> string
-          val borderTopStyle : 'a Eliom_content.Html.elt -> string
-          val borderTopWidth : 'a Eliom_content.Html.elt -> string
-          val borderTopWidthPx : 'a Eliom_content.Html.elt -> int
-          val borderWidth : 'a Eliom_content.Html.elt -> string
-          val bottom : 'a Eliom_content.Html.elt -> string
-          val captionSide : 'a Eliom_content.Html.elt -> string
-          val clear : 'a Eliom_content.Html.elt -> string
-          val clip : 'a Eliom_content.Html.elt -> string
-          val color : 'a Eliom_content.Html.elt -> string
-          val content : 'a Eliom_content.Html.elt -> string
-          val counterIncrement : 'a Eliom_content.Html.elt -> string
-          val counterReset : 'a Eliom_content.Html.elt -> string
-          val cssFloat : 'a Eliom_content.Html.elt -> string
-          val cssText : 'a Eliom_content.Html.elt -> string
-          val cursor : 'a Eliom_content.Html.elt -> string
-          val direction : 'a Eliom_content.Html.elt -> string
-          val display : 'a Eliom_content.Html.elt -> string
-          val emptyCells : 'a Eliom_content.Html.elt -> string
-          val font : 'a Eliom_content.Html.elt -> string
-          val fontFamily : 'a Eliom_content.Html.elt -> string
-          val fontSize : 'a Eliom_content.Html.elt -> string
-          val fontStyle : 'a Eliom_content.Html.elt -> string
-          val fontVariant : 'a Eliom_content.Html.elt -> string
-          val fontWeight : 'a Eliom_content.Html.elt -> string
-          val height : 'a Eliom_content.Html.elt -> string
-          val heightPx : 'a Eliom_content.Html.elt -> int
-          val left : 'a Eliom_content.Html.elt -> string
-          val leftPx : 'a Eliom_content.Html.elt -> int
-          val letterSpacing : 'a Eliom_content.Html.elt -> string
-          val lineHeight : 'a Eliom_content.Html.elt -> string
-          val listStyle : 'a Eliom_content.Html.elt -> string
-          val listStyleImage : 'a Eliom_content.Html.elt -> string
-          val listStylePosition : 'a Eliom_content.Html.elt -> string
-          val listStyleType : 'a Eliom_content.Html.elt -> string
-          val margin : 'a Eliom_content.Html.elt -> string
-          val marginBottom : 'a Eliom_content.Html.elt -> string
-          val marginBottomPx : 'a Eliom_content.Html.elt -> int
-          val marginLeft : 'a Eliom_content.Html.elt -> string
-          val marginLeftPx : 'a Eliom_content.Html.elt -> int
-          val marginRight : 'a Eliom_content.Html.elt -> string
-          val marginRightPx : 'a Eliom_content.Html.elt -> int
-          val marginTop : 'a Eliom_content.Html.elt -> string
-          val marginTopPx : 'a Eliom_content.Html.elt -> int
-          val maxHeight : 'a Eliom_content.Html.elt -> string
-          val maxHeightPx : 'a Eliom_content.Html.elt -> int
-          val maxWidth : 'a Eliom_content.Html.elt -> string
-          val maxWidthPx : 'a Eliom_content.Html.elt -> int
-          val minHeight : 'a Eliom_content.Html.elt -> string
-          val minHeightPx : 'a Eliom_content.Html.elt -> int
-          val minWidth : 'a Eliom_content.Html.elt -> string
-          val minWidthPx : 'a Eliom_content.Html.elt -> int
-          val opacity : 'a Eliom_content.Html.elt -> string option
-          val outline : 'a Eliom_content.Html.elt -> string
-          val outlineColor : 'a Eliom_content.Html.elt -> string
-          val outlineOffset : 'a Eliom_content.Html.elt -> string
-          val outlineStyle : 'a Eliom_content.Html.elt -> string
-          val outlineWidth : 'a Eliom_content.Html.elt -> string
-          val overflow : 'a Eliom_content.Html.elt -> string
-          val overflowX : 'a Eliom_content.Html.elt -> string
-          val overflowY : 'a Eliom_content.Html.elt -> string
-          val padding : 'a Eliom_content.Html.elt -> string
-          val paddingBottom : 'a Eliom_content.Html.elt -> string
-          val paddingBottomPx : 'a Eliom_content.Html.elt -> int
-          val paddingLeft : 'a Eliom_content.Html.elt -> string
-          val paddingLeftPx : 'a Eliom_content.Html.elt -> int
-          val paddingRight : 'a Eliom_content.Html.elt -> string
-          val paddingRightPx : 'a Eliom_content.Html.elt -> int
-          val paddingTop : 'a Eliom_content.Html.elt -> string
-          val paddingTopPx : 'a Eliom_content.Html.elt -> int
-          val pageBreakAfter : 'a Eliom_content.Html.elt -> string
-          val pageBreakBefore : 'a Eliom_content.Html.elt -> string
-          val position : 'a Eliom_content.Html.elt -> string
-          val right : 'a Eliom_content.Html.elt -> string
-          val rightPx : 'a Eliom_content.Html.elt -> int
-          val tableLayout : 'a Eliom_content.Html.elt -> string
-          val textAlign : 'a Eliom_content.Html.elt -> string
-          val textDecoration : 'a Eliom_content.Html.elt -> string
-          val textIndent : 'a Eliom_content.Html.elt -> string
-          val textTransform : 'a Eliom_content.Html.elt -> string
-          val top : 'a Eliom_content.Html.elt -> string
-          val topPx : 'a Eliom_content.Html.elt -> int
-          val verticalAlign : 'a Eliom_content.Html.elt -> string
-          val visibility : 'a Eliom_content.Html.elt -> string
-          val whiteSpace : 'a Eliom_content.Html.elt -> string
-          val width : 'a Eliom_content.Html.elt -> string
-          val widthPx : 'a Eliom_content.Html.elt -> int
-          val wordSpacing : 'a Eliom_content.Html.elt -> string
-          val zIndex : 'a Eliom_content.Html.elt -> string
-        end
-      module SetCss :
-        sig
-          val background : 'a Eliom_content.Html.elt -> string -> unit
-          val backgroundAttachment :
-            'a Eliom_content.Html.elt -> string -> unit
-          val backgroundColor : 'a Eliom_content.Html.elt -> string -> unit
-          val backgroundImage : 'a Eliom_content.Html.elt -> string -> unit
-          val backgroundPosition :
-            'a Eliom_content.Html.elt -> string -> unit
-          val backgroundRepeat : 'a Eliom_content.Html.elt -> string -> unit
-          val border : 'a Eliom_content.Html.elt -> string -> unit
-          val borderBottom : 'a Eliom_content.Html.elt -> string -> unit
-          val borderBottomColor : 'a Eliom_content.Html.elt -> string -> unit
-          val borderBottomStyle : 'a Eliom_content.Html.elt -> string -> unit
-          val borderBottomWidth : 'a Eliom_content.Html.elt -> string -> unit
-          val borderBottomWidthPx : 'a Eliom_content.Html.elt -> int -> unit
-          val borderCollapse : 'a Eliom_content.Html.elt -> string -> unit
-          val borderColor : 'a Eliom_content.Html.elt -> string -> unit
-          val borderLeft : 'a Eliom_content.Html.elt -> string -> unit
-          val borderLeftColor : 'a Eliom_content.Html.elt -> string -> unit
-          val borderLeftStyle : 'a Eliom_content.Html.elt -> string -> unit
-          val borderLeftWidth : 'a Eliom_content.Html.elt -> string -> unit
-          val borderLeftWidthPx : 'a Eliom_content.Html.elt -> int -> unit
-          val borderRight : 'a Eliom_content.Html.elt -> string -> unit
-          val borderRightColor : 'a Eliom_content.Html.elt -> string -> unit
-          val borderRightStyle : 'a Eliom_content.Html.elt -> string -> unit
-          val borderRightWidth : 'a Eliom_content.Html.elt -> string -> unit
-          val borderRightWidthPx : 'a Eliom_content.Html.elt -> int -> unit
-          val borderSpacing : 'a Eliom_content.Html.elt -> string -> unit
-          val borderStyle : 'a Eliom_content.Html.elt -> string -> unit
-          val borderTop : 'a Eliom_content.Html.elt -> string -> unit
-          val borderTopColor : 'a Eliom_content.Html.elt -> string -> unit
-          val borderTopStyle : 'a Eliom_content.Html.elt -> string -> unit
-          val borderTopWidth : 'a Eliom_content.Html.elt -> string -> unit
-          val borderTopWidthPx : 'a Eliom_content.Html.elt -> int -> unit
-          val borderWidth : 'a Eliom_content.Html.elt -> string -> unit
-          val bottom : 'a Eliom_content.Html.elt -> string -> unit
-          val bottomPx : 'a Eliom_content.Html.elt -> int -> unit
-          val captionSide : 'a Eliom_content.Html.elt -> string -> unit
-          val clear : 'a Eliom_content.Html.elt -> string -> unit
-          val clip : 'a Eliom_content.Html.elt -> string -> unit
-          val color : 'a Eliom_content.Html.elt -> string -> unit
-          val content : 'a Eliom_content.Html.elt -> string -> unit
-          val counterIncrement : 'a Eliom_content.Html.elt -> string -> unit
-          val counterReset : 'a Eliom_content.Html.elt -> string -> unit
-          val cssFloat : 'a Eliom_content.Html.elt -> string -> unit
-          val cssText : 'a Eliom_content.Html.elt -> string -> unit
-          val cursor : 'a Eliom_content.Html.elt -> string -> unit
-          val direction : 'a Eliom_content.Html.elt -> string -> unit
-          val display : 'a Eliom_content.Html.elt -> string -> unit
-          val emptyCells : 'a Eliom_content.Html.elt -> string -> unit
-          val font : 'a Eliom_content.Html.elt -> string -> unit
-          val fontFamily : 'a Eliom_content.Html.elt -> string -> unit
-          val fontSize : 'a Eliom_content.Html.elt -> string -> unit
-          val fontStyle : 'a Eliom_content.Html.elt -> string -> unit
-          val fontVariant : 'a Eliom_content.Html.elt -> string -> unit
-          val fontWeight : 'a Eliom_content.Html.elt -> string -> unit
-          val height : 'a Eliom_content.Html.elt -> string -> unit
-          val heightPx : 'a Eliom_content.Html.elt -> int -> unit
-          val left : 'a Eliom_content.Html.elt -> string -> unit
-          val leftPx : 'a Eliom_content.Html.elt -> int -> unit
-          val letterSpacing : 'a Eliom_content.Html.elt -> string -> unit
-          val lineHeight : 'a Eliom_content.Html.elt -> string -> unit
-          val listStyle : 'a Eliom_content.Html.elt -> string -> unit
-          val listStyleImage : 'a Eliom_content.Html.elt -> string -> unit
-          val listStylePosition : 'a Eliom_content.Html.elt -> string -> unit
-          val listStyleType : 'a Eliom_content.Html.elt -> string -> unit
-          val margin : 'a Eliom_content.Html.elt -> string -> unit
-          val marginBottom : 'a Eliom_content.Html.elt -> string -> unit
-          val marginBottomPx : 'a Eliom_content.Html.elt -> int -> unit
-          val marginLeft : 'a Eliom_content.Html.elt -> string -> unit
-          val marginLeftPx : 'a Eliom_content.Html.elt -> int -> unit
-          val marginRight : 'a Eliom_content.Html.elt -> string -> unit
-          val marginRightPx : 'a Eliom_content.Html.elt -> int -> unit
-          val marginTop : 'a Eliom_content.Html.elt -> string -> unit
-          val marginTopPx : 'a Eliom_content.Html.elt -> int -> unit
-          val maxHeight : 'a Eliom_content.Html.elt -> string -> unit
-          val maxHeightPx : 'a Eliom_content.Html.elt -> int -> unit
-          val maxWidth : 'a Eliom_content.Html.elt -> string -> unit
-          val maxWidthPx : 'a Eliom_content.Html.elt -> int -> unit
-          val minHeight : 'a Eliom_content.Html.elt -> string -> unit
-          val minHeightPx : 'a Eliom_content.Html.elt -> int -> unit
-          val minWidth : 'a Eliom_content.Html.elt -> string -> unit
-          val minWidthPx : 'a Eliom_content.Html.elt -> int -> unit
-          val opacity : 'a Eliom_content.Html.elt -> string -> unit
-          val outline : 'a Eliom_content.Html.elt -> string -> unit
-          val outlineColor : 'a Eliom_content.Html.elt -> string -> unit
-          val outlineOffset : 'a Eliom_content.Html.elt -> string -> unit
-          val outlineStyle : 'a Eliom_content.Html.elt -> string -> unit
-          val outlineWidth : 'a Eliom_content.Html.elt -> string -> unit
-          val overflow : 'a Eliom_content.Html.elt -> string -> unit
-          val overflowX : 'a Eliom_content.Html.elt -> string -> unit
-          val overflowY : 'a Eliom_content.Html.elt -> string -> unit
-          val padding : 'a Eliom_content.Html.elt -> string -> unit
-          val paddingBottom : 'a Eliom_content.Html.elt -> string -> unit
-          val paddingBottomPx : 'a Eliom_content.Html.elt -> int -> unit
-          val paddingLeft : 'a Eliom_content.Html.elt -> string -> unit
-          val paddingLeftPx : 'a Eliom_content.Html.elt -> int -> unit
-          val paddingRight : 'a Eliom_content.Html.elt -> string -> unit
-          val paddingRightPx : 'a Eliom_content.Html.elt -> int -> unit
-          val paddingTop : 'a Eliom_content.Html.elt -> string -> unit
-          val paddingTopPx : 'a Eliom_content.Html.elt -> int -> unit
-          val pageBreakAfter : 'a Eliom_content.Html.elt -> string -> unit
-          val pageBreakBefore : 'a Eliom_content.Html.elt -> string -> unit
-          val position : 'a Eliom_content.Html.elt -> string -> unit
-          val right : 'a Eliom_content.Html.elt -> string -> unit
-          val rightPx : 'a Eliom_content.Html.elt -> int -> unit
-          val tableLayout : 'a Eliom_content.Html.elt -> string -> unit
-          val textAlign : 'a Eliom_content.Html.elt -> string -> unit
-          val textDecoration : 'a Eliom_content.Html.elt -> string -> unit
-          val textIndent : 'a Eliom_content.Html.elt -> string -> unit
-          val textTransform : 'a Eliom_content.Html.elt -> string -> unit
-          val top : 'a Eliom_content.Html.elt -> string -> unit
-          val topPx : 'a Eliom_content.Html.elt -> int -> unit
-          val verticalAlign : 'a Eliom_content.Html.elt -> string -> unit
-          val visibility : 'a Eliom_content.Html.elt -> string -> unit
-          val whiteSpace : 'a Eliom_content.Html.elt -> string -> unit
-          val width : 'a Eliom_content.Html.elt -> string -> unit
-          val widthPx : 'a Eliom_content.Html.elt -> int -> unit
-          val wordSpacing : 'a Eliom_content.Html.elt -> string -> unit
-          val zIndex : 'a Eliom_content.Html.elt -> string -> unit
-        end
     end
-  module Of_dom :
+  module Printer :
     sig
-      type 'a elt = 'a elt
-      val of_element :
-        Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t -> 'a elt
-      val of_html :
-        Js_of_ocaml.Dom_html.htmlElement Js_of_ocaml.Js.t ->
-        [> Html_types.html ] elt
-      val of_head :
-        Js_of_ocaml.Dom_html.headElement Js_of_ocaml.Js.t ->
-        [> Html_types.head ] elt
-      val of_link :
-        Js_of_ocaml.Dom_html.linkElement Js_of_ocaml.Js.t ->
-        [> Html_types.link ] elt
-      val of_title :
-        Js_of_ocaml.Dom_html.titleElement Js_of_ocaml.Js.t ->
-        [> Html_types.title ] elt
-      val of_meta :
-        Js_of_ocaml.Dom_html.metaElement Js_of_ocaml.Js.t ->
-        [> Html_types.meta ] elt
-      val of_base :
-        Js_of_ocaml.Dom_html.baseElement Js_of_ocaml.Js.t ->
-        [> Html_types.base ] elt
-      val of_style :
-        Js_of_ocaml.Dom_html.styleElement Js_of_ocaml.Js.t ->
-        [> Html_types.style ] elt
-      val of_body :
-        Js_of_ocaml.Dom_html.bodyElement Js_of_ocaml.Js.t ->
-        [> Html_types.body ] elt
-      val of_form :
-        Js_of_ocaml.Dom_html.formElement Js_of_ocaml.Js.t ->
-        [> Html_types.form ] elt
-      val of_optGroup :
-        Js_of_ocaml.Dom_html.optGroupElement Js_of_ocaml.Js.t ->
-        [> Html_types.optgroup ] elt
-      val of_option :
-        Js_of_ocaml.Dom_html.optionElement Js_of_ocaml.Js.t ->
-        [> Html_types.selectoption ] elt
-      val of_select :
-        Js_of_ocaml.Dom_html.selectElement Js_of_ocaml.Js.t ->
-        [> Html_types.select ] elt
-      val of_input :
-        Js_of_ocaml.Dom_html.inputElement Js_of_ocaml.Js.t ->
-        [> Html_types.input ] elt
-      val of_textArea :
-        Js_of_ocaml.Dom_html.textAreaElement Js_of_ocaml.Js.t ->
-        [> Html_types.textarea ] elt
-      val of_button :
-        Js_of_ocaml.Dom_html.buttonElement Js_of_ocaml.Js.t ->
-        [> Html_types.button ] elt
-      val of_label :
-        Js_of_ocaml.Dom_html.labelElement Js_of_ocaml.Js.t ->
-        [> Html_types.label ] elt
-      val of_fieldSet :
-        Js_of_ocaml.Dom_html.fieldSetElement Js_of_ocaml.Js.t ->
-        [> Html_types.fieldset ] elt
-      val of_legend :
-        Js_of_ocaml.Dom_html.legendElement Js_of_ocaml.Js.t ->
-        [> Html_types.legend ] elt
-      val of_uList :
-        Js_of_ocaml.Dom_html.uListElement Js_of_ocaml.Js.t ->
-        [> Html_types.ul ] elt
-      val of_oList :
-        Js_of_ocaml.Dom_html.oListElement Js_of_ocaml.Js.t ->
-        [> Html_types.ol ] elt
-      val of_dList :
-        Js_of_ocaml.Dom_html.dListElement Js_of_ocaml.Js.t ->
-        [> Html_types.dl ] elt
-      val of_li :
-        Js_of_ocaml.Dom_html.liElement Js_of_ocaml.Js.t ->
-        [> Html_types.li ] elt
-      val of_div :
-        Js_of_ocaml.Dom_html.divElement Js_of_ocaml.Js.t ->
-        [> Html_types.div ] elt
-      val of_paragraph :
-        Js_of_ocaml.Dom_html.paragraphElement Js_of_ocaml.Js.t ->
-        [> Html_types.p ] elt
-      val of_heading :
-        Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t ->
-        [> Html_types.heading ] elt
-      val of_quote :
-        Js_of_ocaml.Dom_html.quoteElement Js_of_ocaml.Js.t ->
-        [> Html_types.blockquote ] elt
-      val of_pre :
-        Js_of_ocaml.Dom_html.preElement Js_of_ocaml.Js.t ->
-        [> Html_types.pre ] elt
-      val of_br :
-        Js_of_ocaml.Dom_html.brElement Js_of_ocaml.Js.t ->
-        [> Html_types.br ] elt
-      val of_hr :
-        Js_of_ocaml.Dom_html.hrElement Js_of_ocaml.Js.t ->
-        [> Html_types.hr ] elt
-      val of_mod :
-        Js_of_ocaml.Dom_html.modElement Js_of_ocaml.Js.t ->
-        [> `Del of 'a | `Ins of 'a ] elt
-      val of_anchor :
-        Js_of_ocaml.Dom_html.anchorElement Js_of_ocaml.Js.t ->
-        [> 'a Html_types.a ] elt
-      val of_image :
-        Js_of_ocaml.Dom_html.imageElement Js_of_ocaml.Js.t ->
-        [> Html_types.img ] elt
-      val of_object :
-        Js_of_ocaml.Dom_html.objectElement Js_of_ocaml.Js.t ->
-        [> 'a Html_types.object_ ] elt
-      val of_param :
-        Js_of_ocaml.Dom_html.paramElement Js_of_ocaml.Js.t ->
-        [> Html_types.param ] elt
-      val of_area :
-        Js_of_ocaml.Dom_html.areaElement Js_of_ocaml.Js.t ->
-        [> Html_types.area ] elt
-      val of_map :
-        Js_of_ocaml.Dom_html.mapElement Js_of_ocaml.Js.t ->
-        [> 'a Html_types.map ] elt
-      val of_script :
-        Js_of_ocaml.Dom_html.scriptElement Js_of_ocaml.Js.t ->
-        [> Html_types.script ] elt
-      val of_embed :
-        Js_of_ocaml.Dom_html.embedElement Js_of_ocaml.Js.t ->
-        [> Html_types.embed ] elt
-      val of_tableCell :
-        Js_of_ocaml.Dom_html.tableCellElement Js_of_ocaml.Js.t ->
-        [> `Td | `Th ] elt
-      val of_tableRow :
-        Js_of_ocaml.Dom_html.tableRowElement Js_of_ocaml.Js.t ->
-        [> Html_types.tr ] elt
-      val of_tableCol :
-        Js_of_ocaml.Dom_html.tableColElement Js_of_ocaml.Js.t ->
-        [> Html_types.col ] elt
-      val of_tableSection :
-        Js_of_ocaml.Dom_html.tableSectionElement Js_of_ocaml.Js.t ->
-        [> `Tbody | `Tfoot | `Thead ] elt
-      val of_tableCaption :
-        Js_of_ocaml.Dom_html.tableCaptionElement Js_of_ocaml.Js.t ->
-        [> Html_types.caption ] elt
-      val of_table :
-        Js_of_ocaml.Dom_html.tableElement Js_of_ocaml.Js.t ->
-        [> Html_types.table ] elt
-      val of_canvas :
-        Js_of_ocaml.Dom_html.canvasElement Js_of_ocaml.Js.t ->
-        [> 'a Html_types.canvas ] elt
-      val of_iFrame :
-        Js_of_ocaml.Dom_html.iFrameElement Js_of_ocaml.Js.t ->
-        [> Html_types.iframe ] elt
-      val of_audio :
-        Js_of_ocaml.Dom_html.audioElement Js_of_ocaml.Js.t ->
-        [> 'a Html_types.audio ] elt
-      val of_video :
-        Js_of_ocaml.Dom_html.videoElement Js_of_ocaml.Js.t ->
-        [> 'a Html_types.video ] elt
+      val pp_elt :
+        ?encode:(string -> string) ->
+        ?indent:bool -> unit -> Format.formatter -> 'a elt -> unit
+      val pp :
+        ?encode:(string -> string) ->
+        ?indent:bool ->
+        ?advert:string -> unit -> Format.formatter -> F.doc -> unit
     end
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/server/type_Eliom_content.Svg.C.wiki b/doc/11.x/api/server/type_Eliom_content.Svg.C.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_content.Svg.C.wiki
rename to doc/11.x/api/server/type_Eliom_content.Svg.C.wiki
diff --git a/doc/10.x/api/server/type_Eliom_content.Svg.D.Raw.wiki b/doc/11.x/api/server/type_Eliom_content.Svg.D.Raw.wiki
similarity index 94%
rename from doc/10.x/api/server/type_Eliom_content.Svg.D.Raw.wiki
rename to doc/11.x/api/server/type_Eliom_content.Svg.D.Raw.wiki
index 2da2dd1419..d44b014540 100644
--- a/doc/10.x/api/server/type_Eliom_content.Svg.D.Raw.wiki
+++ b/doc/11.x/api/server/type_Eliom_content.Svg.D.Raw.wiki
@@ -154,7 +154,7 @@
     [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
     [ `GradientUnits ] attrib
   val a_gradientTransform :
-    Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+    Svg_types.transforms wrap -> [> `GradientTransform ] attrib
   val a_spreadMethod :
     [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
   val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -285,6 +285,7 @@
   val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
   val a_animation_fill :
     [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+  val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
   val a_calcMode :
     [< `Discrete | `Linear | `Paced | `Spline ] wrap -> [> `CalcMode ] attrib
   val a_animation_values : Svg_types.strings wrap -> [> `Valuesanim ] attrib
@@ -403,29 +404,6 @@
   val a_stroke_dashoffset :
     Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
   val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
-  val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-  val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
-  val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
-  val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
-  val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-  val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
-  val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
-  val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-  val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
-  val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-  val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-  val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-  val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
-  val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-  val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-  val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-  val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-  val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-  val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-  val a_ontouchstart : Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-  val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-  val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-  val a_ontouchcancel : Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
   val txt : string wrap -> [> Svg_types.txt ] elt
   val svg :
     ([< Svg_types.svg_attr ], [< Svg_types.svg_content ], [> Svg_types.svg ])
@@ -667,9 +645,9 @@
     ([< Svg_types.script_attr ], [< Svg_types.script_content ],
      [> Svg_types.script ])
     unary
-  val animation :
-    ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-     [> Svg_types.animation ])
+  val animate :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
     star
   val set :
     ([< Svg_types.set_attr ], [< Svg_types.set_content ], [> Svg_types.set ])
@@ -728,6 +706,10 @@
     ?a:Svg_types.foreignobject_attr attrib list ->
     Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
   val pcdata : string wrap -> [> Svg_types.txt ] elt
+  val animation :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
+    star
   val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
   val tot : Xml.elt -> 'a elt
   val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -749,4 +731,27 @@
       val space_sep_attrib : string -> string list wrap -> 'a attrib
       val comma_sep_attrib : string -> string list wrap -> 'a attrib
     end
+  val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+  val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+  val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+  val a_onend : string -> [> `OnEnd ] Raw'.attrib
+  val a_onerror : string -> [> `OnError ] Raw'.attrib
+  val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+  val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+  val a_onload : string -> [> `OnLoad ] Raw'.attrib
+  val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+  val a_onresize : string -> [> `OnResize ] Raw'.attrib
+  val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+  val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+  val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+  val a_onclick : string -> [> `OnClick ] Raw'.attrib
+  val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+  val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+  val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+  val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+  val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+  val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+  val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+  val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+  val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/server/type_Eliom_content.Svg.D.wiki b/doc/11.x/api/server/type_Eliom_content.Svg.D.wiki
similarity index 64%
rename from doc/10.x/api/server/type_Eliom_content.Svg.D.wiki
rename to doc/11.x/api/server/type_Eliom_content.Svg.D.wiki
index 11f7f95969..0a069f3646 100644
--- a/doc/10.x/api/server/type_Eliom_content.Svg.D.wiki
+++ b/doc/11.x/api/server/type_Eliom_content.Svg.D.wiki
@@ -1,4 +1,795 @@
 <<code language="ocaml" | sig
+  module Raw' :
+    sig
+      type 'a elt = 'a elt
+      type doc = [ `Svg ] elt
+      type 'a attrib = 'a attrib
+      module Xml :
+        sig
+          module W :
+            sig
+              type 'a t = 'a Xml.W.t
+              val return : 'a -> 'a t
+              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+              val fmap : ('a, 'b) ft -> 'a t -> 'b t
+              type 'a tlist = 'a Xml.W.tlist
+              val nil : unit -> 'a tlist
+              val singleton : 'a t -> 'a tlist
+              val cons : 'a t -> 'a tlist -> 'a tlist
+              val append : 'a tlist -> 'a tlist -> 'a tlist
+              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+            end
+          type 'a wrap = 'a W.t
+          type 'a list_wrap = 'a W.tlist
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) W.ft
+          val uri_of_string : (string, uri) W.ft
+          type aname = string
+          type event_handler = Xml.event_handler
+          type mouse_event_handler = Xml.mouse_event_handler
+          type keyboard_event_handler = Xml.keyboard_event_handler
+          type touch_event_handler = Xml.touch_event_handler
+          type attrib = Xml.attrib
+          val float_attrib : aname -> float wrap -> attrib
+          val int_attrib : aname -> int wrap -> attrib
+          val string_attrib : aname -> string wrap -> attrib
+          val space_sep_attrib : aname -> string list wrap -> attrib
+          val comma_sep_attrib : aname -> string list wrap -> attrib
+          val event_handler_attrib : aname -> event_handler -> attrib
+          val mouse_event_handler_attrib :
+            aname -> mouse_event_handler -> attrib
+          val keyboard_event_handler_attrib :
+            aname -> keyboard_event_handler -> attrib
+          val touch_event_handler_attrib :
+            aname -> touch_event_handler -> attrib
+          val uri_attrib : aname -> uri wrap -> attrib
+          val uris_attrib : aname -> uri list wrap -> attrib
+          type elt = Xml.elt
+          type ename = string
+          val empty : unit -> elt
+          val comment : string -> elt
+          val pcdata : string wrap -> elt
+          val encodedpcdata : string wrap -> elt
+          val entity : string -> elt
+          val leaf : ?a:attrib list -> ename -> elt
+          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+          val cdata : string -> elt
+          val cdata_script : string -> elt
+          val cdata_style : string -> elt
+        end
+      type 'a wrap = 'a Xml.W.t
+      type 'a list_wrap = 'a Xml.W.tlist
+      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
+      type ('a, 'b, 'c) star =
+          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+      module Info : Xml_sigs.Info
+      type uri = Xml.uri
+      val string_of_uri : (uri, string) Xml.W.ft
+      val uri_of_string : (string, uri) Xml.W.ft
+      val a_version : string wrap -> [> `Version ] attrib
+      val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+      val a_x : Svg_types.coord wrap -> [> `X ] attrib
+      val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+      val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+      val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
+      val a_preserveAspectRatio :
+        string wrap -> [> `PreserveAspectRatio ] attrib
+      val a_contentScriptType : string wrap -> [> `ContentScriptType ] attrib
+      val a_contentStyleType : string wrap -> [> `ContentStyleType ] attrib
+      val a_zoomAndPan :
+        [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+      val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+      val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+      val a_requiredFeatures :
+        Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+      val a_requiredExtensions :
+        Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+      val a_systemLanguage :
+        Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+      val a_externalRessourcesRequired :
+        bool wrap -> [> `ExternalRessourcesRequired ] attrib
+      val a_id : string wrap -> [> `Id ] attrib
+      val a_user_data : string -> string wrap -> [> `User_data ] attrib
+      val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+      val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+      val a_xml_space :
+        [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+      val a_type : string wrap -> [> `Type ] attrib
+      val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+      val a_xlink_title : string wrap -> [> `Title ] attrib
+      val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+      val a_style : string wrap -> [> `Style ] attrib
+      val a_transform : Svg_types.transforms wrap -> [> `Transform ] attrib
+      val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+      val a_d : string wrap -> [> `D ] attrib
+      val a_pathLength : float wrap -> [> `PathLength ] attrib
+      val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+      val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+      val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+      val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+      val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+      val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+      val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+      val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+      val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+      val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+      val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+      val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+      val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+      val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+      val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+      val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+      val a_lengthAdjust :
+        [< `Spacing | `SpacingAndGlyphs ] wrap -> [> `LengthAdjust ] attrib
+      val a_textLength :
+        Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+      val a_text_anchor :
+        [< `End | `Inherit | `Middle | `Start ] wrap ->
+        [> `Text_Anchor ] attrib
+      val a_text_decoration :
+        [< `Blink | `Inherit | `Line_through | `None | `Overline | `Underline
+        ] wrap -> [> `Text_Decoration ] attrib
+      val a_text_rendering :
+        [< `Auto
+         | `GeometricPrecision
+         | `Inherit
+         | `OptimizeLegibility
+         | `OptimizeSpeed ]
+        wrap -> [> `Text_Rendering ] attrib
+      val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+      val a_startOffset :
+        Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+      val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+      val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+      val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+      val a_format : string wrap -> [> `Format ] attrib
+      val a_markerUnits :
+        [< `StrokeWidth | `UserSpaceOnUse ] wrap -> [> `MarkerUnits ] attrib
+      val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+      val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+      val a_markerWidth :
+        Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+      val a_markerHeight :
+        Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+      val a_orient : Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+      val a_local : string wrap -> [> `Local ] attrib
+      val a_rendering_intent :
+        [< `Absolute_colorimetric
+         | `Auto
+         | `Perceptual
+         | `Relative_colorimetric
+         | `Saturation ]
+        wrap -> [> `Rendering_Indent ] attrib
+      val a_gradientUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [ `GradientUnits ] attrib
+      val a_gradientTransform :
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+      val a_spreadMethod :
+        [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
+      val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+      val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+      val a_offset :
+        [< `Number of Svg_types.number | `Percentage of Svg_types.percentage
+        ] wrap -> [> `Offset ] attrib
+      val a_patternUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PatternUnits ] attrib
+      val a_patternContentUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PatternContentUnits ] attrib
+      val a_patternTransform :
+        Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+      val a_clipPathUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `ClipPathUnits ] attrib
+      val a_maskUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `MaskUnits ] attrib
+      val a_maskContentUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `MaskContentUnits ] attrib
+      val a_primitiveUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PrimitiveUnits ] attrib
+      val a_filterRes :
+        Svg_types.number_optional_number wrap -> [> `FilterResUnits ] attrib
+      val a_result : string wrap -> [> `Result ] attrib
+      val a_in :
+        [< `BackgroundAlpha
+         | `BackgroundImage
+         | `FillPaint
+         | `Ref of string
+         | `SourceAlpha
+         | `SourceGraphic
+         | `StrokePaint ]
+        wrap -> [> `In ] attrib
+      val a_in2 :
+        [< `BackgroundAlpha
+         | `BackgroundImage
+         | `FillPaint
+         | `Ref of string
+         | `SourceAlpha
+         | `SourceGraphic
+         | `StrokePaint ]
+        wrap -> [> `In2 ] attrib
+      val a_azimuth : float wrap -> [> `Azimuth ] attrib
+      val a_elevation : float wrap -> [> `Elevation ] attrib
+      val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
+      val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
+      val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
+      val a_specularExponent : float wrap -> [> `SpecularExponent ] attrib
+      val a_specularConstant : float wrap -> [> `SpecularConstant ] attrib
+      val a_limitingConeAngle : float wrap -> [> `LimitingConeAngle ] attrib
+      val a_mode :
+        [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
+        [> `Mode ] attrib
+      val a_feColorMatrix_type :
+        [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ] wrap ->
+        [> `Typefecolor ] attrib
+      val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
+      val a_transfer_type :
+        [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
+        [> `Type_transfert ] attrib
+      val a_tableValues : Svg_types.numbers wrap -> [> `TableValues ] attrib
+      val a_intercept : Svg_types.number wrap -> [> `Intercept ] attrib
+      val a_amplitude : Svg_types.number wrap -> [> `Amplitude ] attrib
+      val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
+      val a_transfer_offset :
+        Svg_types.number wrap -> [> `Offset_transfer ] attrib
+      val a_feComposite_operator :
+        [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
+        [> `OperatorComposite ] attrib
+      val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
+      val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
+      val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
+      val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
+      val a_order :
+        Svg_types.number_optional_number wrap -> [> `Order ] attrib
+      val a_kernelMatrix :
+        Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
+      val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
+      val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
+      val a_kernelUnitLength :
+        Svg_types.number_optional_number wrap ->
+        [> `KernelUnitLength ] attrib
+      val a_targetX : int wrap -> [> `TargetX ] attrib
+      val a_targetY : int wrap -> [> `TargetY ] attrib
+      val a_edgeMode :
+        [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
+      val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
+      val a_surfaceScale : Svg_types.number wrap -> [> `SurfaceScale ] attrib
+      val a_diffuseConstant :
+        Svg_types.number wrap -> [> `DiffuseConstant ] attrib
+      val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
+      val a_xChannelSelector :
+        [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
+      val a_yChannelSelector :
+        [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
+      val a_stdDeviation :
+        Svg_types.number_optional_number wrap -> [> `StdDeviation ] attrib
+      val a_feMorphology_operator :
+        [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
+      val a_radius :
+        Svg_types.number_optional_number wrap -> [> `Radius ] attrib
+      val a_baseFrenquency :
+        Svg_types.number_optional_number wrap -> [> `BaseFrequency ] attrib
+      val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
+      val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
+      val a_stitchTiles :
+        [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
+      val a_feTurbulence_type :
+        [< `FractalNoise | `Turbulence ] wrap -> [> `TypeStitch ] attrib
+      val a_xlink_show : [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
+      val a_xlink_actuate :
+        [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
+        [> `Xlink_actuate ] attrib
+      val a_target : string wrap -> [> `Xlink_target ] attrib
+      val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
+      val a_attributeName : string wrap -> [> `AttributeName ] attrib
+      val a_attributeType :
+        [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
+      val a_begin : string wrap -> [> `Begin ] attrib
+      val a_dur : string wrap -> [> `Dur ] attrib
+      val a_min : string wrap -> [> `Min ] attrib
+      val a_max : string wrap -> [> `Max ] attrib
+      val a_restart :
+        [< `Always | `Never | `WhenNotActive ] wrap -> [> `Restart ] attrib
+      val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
+      val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
+      val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
+      val a_animation_fill :
+        [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
+      val a_calcMode :
+        [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
+        [> `CalcMode ] attrib
+      val a_animation_values :
+        Svg_types.strings wrap -> [> `Valuesanim ] attrib
+      val a_keyTimes : Svg_types.strings wrap -> [> `KeyTimes ] attrib
+      val a_keySplines : Svg_types.strings wrap -> [> `KeySplines ] attrib
+      val a_from : string wrap -> [> `From ] attrib
+      val a_to : string wrap -> [> `To ] attrib
+      val a_by : string wrap -> [> `By ] attrib
+      val a_additive : [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
+      val a_accumulate : [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
+      val a_keyPoints :
+        Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
+      val a_path : string wrap -> [> `Path ] attrib
+      val a_animateTransform_type :
+        [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
+        [ `Typeanimatetransform ] attrib
+      val a_horiz_origin_x :
+        Svg_types.number wrap -> [> `HorizOriginX ] attrib
+      val a_horiz_origin_y :
+        Svg_types.number wrap -> [> `HorizOriginY ] attrib
+      val a_horiz_adv_x : Svg_types.number wrap -> [> `HorizAdvX ] attrib
+      val a_vert_origin_x : Svg_types.number wrap -> [> `VertOriginX ] attrib
+      val a_vert_origin_y : Svg_types.number wrap -> [> `VertOriginY ] attrib
+      val a_vert_adv_y : Svg_types.number wrap -> [> `VertAdvY ] attrib
+      val a_unicode : string wrap -> [> `Unicode ] attrib
+      val a_glyph_name : string wrap -> [> `glyphname ] attrib
+      val a_orientation : [< `H | `V ] wrap -> [> `Orientation ] attrib
+      val a_arabic_form :
+        [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
+        [> `Arabicform ] attrib
+      val a_lang : string wrap -> [> `Lang ] attrib
+      val a_u1 : string wrap -> [> `U1 ] attrib
+      val a_u2 : string wrap -> [> `U2 ] attrib
+      val a_g1 : string wrap -> [> `G1 ] attrib
+      val a_g2 : string wrap -> [> `G2 ] attrib
+      val a_k : string wrap -> [> `K ] attrib
+      val a_font_family : string wrap -> [> `Font_Family ] attrib
+      val a_font_style : string wrap -> [> `Font_Style ] attrib
+      val a_font_variant : string wrap -> [> `Font_Variant ] attrib
+      val a_font_weight : string wrap -> [> `Font_Weight ] attrib
+      val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
+      val a_font_size : string wrap -> [> `Font_Size ] attrib
+      val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
+      val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
+      val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
+      val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
+      val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
+      val a_cap_height : Svg_types.number wrap -> [> `CapHeight ] attrib
+      val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
+      val a_accent_height :
+        Svg_types.number wrap -> [> `AccentHeight ] attrib
+      val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
+      val a_widths : string wrap -> [> `Widths ] attrib
+      val a_bbox : string wrap -> [> `Bbox ] attrib
+      val a_ideographic : Svg_types.number wrap -> [> `Ideographic ] attrib
+      val a_alphabetic : Svg_types.number wrap -> [> `Alphabetic ] attrib
+      val a_mathematical : Svg_types.number wrap -> [> `Mathematical ] attrib
+      val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
+      val a_videographic : Svg_types.number wrap -> [> `VIdeographic ] attrib
+      val a_v_alphabetic : Svg_types.number wrap -> [> `VAlphabetic ] attrib
+      val a_v_mathematical :
+        Svg_types.number wrap -> [> `VMathematical ] attrib
+      val a_v_hanging : Svg_types.number wrap -> [> `VHanging ] attrib
+      val a_underline_position :
+        Svg_types.number wrap -> [> `UnderlinePosition ] attrib
+      val a_underline_thickness :
+        Svg_types.number wrap -> [> `UnderlineThickness ] attrib
+      val a_strikethrough_position :
+        Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
+      val a_strikethrough_thickness :
+        Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
+      val a_overline_position :
+        Svg_types.number wrap -> [> `OverlinePosition ] attrib
+      val a_overline_thickness :
+        Svg_types.number wrap -> [> `OverlineThickness ] attrib
+      val a_string : string wrap -> [> `String ] attrib
+      val a_name : string wrap -> [> `Name ] attrib
+      val a_alignment_baseline :
+        [< `After_edge
+         | `Alphabetic
+         | `Auto
+         | `Baseline
+         | `Before_edge
+         | `Central
+         | `Hanging
+         | `Ideographic
+         | `Inherit
+         | `Mathematical
+         | `Middle
+         | `Text_after_edge
+         | `Text_before_edge ]
+        wrap -> [> `Alignment_Baseline ] attrib
+      val a_dominant_baseline :
+        [< `Alphabetic
+         | `Auto
+         | `Central
+         | `Hanging
+         | `Ideographic
+         | `Inherit
+         | `Mathematical
+         | `Middle
+         | `No_change
+         | `Reset_size
+         | `Text_after_edge
+         | `Text_before_edge
+         | `Use_script ]
+        wrap -> [> `Dominant_Baseline ] attrib
+      val a_stop_color : Svg_types.color wrap -> [> `Stop_Color ] attrib
+      val a_stop_opacity : Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+      val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+      val a_stroke_width :
+        Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+      val a_stroke_linecap :
+        [< `Butt | `Round | `Square ] wrap -> [> `Stroke_Linecap ] attrib
+      val a_stroke_linejoin :
+        [< `Bever | `Miter | `Round ] wrap -> [> `Stroke_Linejoin ] attrib
+      val a_stroke_miterlimit : float wrap -> [> `Stroke_Miterlimit ] attrib
+      val a_stroke_dasharray :
+        Svg_types.Unit.length list wrap -> [> `Stroke_Dasharray ] attrib
+      val a_stroke_dashoffset :
+        Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+      val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
+      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+      val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
+      val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
+      val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
+      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+      val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
+      val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
+      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+      val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
+      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+      val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
+      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+      val a_ontouchstart :
+        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+      val a_ontouchcancel :
+        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+      val txt : string wrap -> [> Svg_types.txt ] elt
+      val svg :
+        ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
+         [> Svg_types.svg ])
+        star
+      val g :
+        ([< Svg_types.g_attr ], [< Svg_types.g_content ], [> Svg_types.g ])
+        star
+      val defs :
+        ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
+         [> Svg_types.defs ])
+        star
+      val desc :
+        ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
+         [> Svg_types.desc ])
+        unary
+      val title :
+        ([< Svg_types.title_attr ], [< Svg_types.title_content ],
+         [> Svg_types.title ])
+        unary
+      val symbol :
+        ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
+         [> Svg_types.symbol ])
+        star
+      val use :
+        ([< Svg_types.use_attr ], [< Svg_types.use_content ],
+         [> Svg_types.use ])
+        star
+      val image :
+        ([< Svg_types.image_attr ], [< Svg_types.image_content ],
+         [> Svg_types.image ])
+        star
+      val switch :
+        ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
+         [> Svg_types.switch ])
+        star
+      val style :
+        ([< Svg_types.style_attr ], [< Svg_types.style_content ],
+         [> Svg_types.style ])
+        unary
+      val path :
+        ([< Svg_types.path_attr ], [< Svg_types.path_content ],
+         [> Svg_types.path ])
+        star
+      val rect :
+        ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
+         [> Svg_types.rect ])
+        star
+      val circle :
+        ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
+         [> Svg_types.circle ])
+        star
+      val ellipse :
+        ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
+         [> Svg_types.ellipse ])
+        star
+      val line :
+        ([< Svg_types.line_attr ], [< Svg_types.line_content ],
+         [> Svg_types.line ])
+        star
+      val polyline :
+        ([< Svg_types.polyline_attr ], [< Svg_types.polyline_content ],
+         [> Svg_types.polyline ])
+        star
+      val polygon :
+        ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
+         [> Svg_types.polygon ])
+        star
+      val text :
+        ([< Svg_types.text_attr ], [< Svg_types.text_content ],
+         [> Svg_types.text ])
+        star
+      val tspan :
+        ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
+         [> Svg_types.tspan ])
+        star
+      val tref :
+        ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
+         [> Svg_types.tref ])
+        star
+      val textPath :
+        ([< Svg_types.textpath_attr ], [< Svg_types.textpath_content ],
+         [> Svg_types.textpath ])
+        star
+      val altGlyph :
+        ([< Svg_types.altglyph_attr ], [< Svg_types.altglyph_content ],
+         [> Svg_types.altglyph ])
+        unary
+      type altglyphdef_content =
+          [ `Item of Svg_types.altglyphitem elt list
+          | `Ref of Svg_types.glyphref elt list ]
+      val altGlyphDef :
+        ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
+         [> Svg_types.altglyphdef ])
+        unary
+      val altGlyphItem :
+        ([< Svg_types.altglyphitem_attr ],
+         [< Svg_types.altglyphitem_content ], [> Svg_types.altglyphitem ])
+        star
+      val glyphRef :
+        ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ]) nullary
+      val marker :
+        ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
+         [> Svg_types.marker ])
+        star
+      val color_profile :
+        ([< Svg_types.colorprofile_attr ],
+         [< Svg_types.colorprofile_content ], [> Svg_types.colorprofile ])
+        star
+      val linearGradient :
+        ([< Svg_types.lineargradient_attr ],
+         [< Svg_types.lineargradient_content ],
+         [> Svg_types.lineargradient ])
+        star
+      val radialGradient :
+        ([< Svg_types.radialgradient_attr ],
+         [< Svg_types.radialgradient_content ],
+         [> Svg_types.radialgradient ])
+        star
+      val stop :
+        ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
+         [> Svg_types.stop ])
+        star
+      val pattern :
+        ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
+         [> Svg_types.pattern ])
+        star
+      val clipPath :
+        ([< Svg_types.clippath_attr ], [< Svg_types.clippath_content ],
+         [> Svg_types.clippath ])
+        star
+      val filter :
+        ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
+         [> Svg_types.filter ])
+        star
+      val feDistantLight :
+        ([< Svg_types.fedistantlight_attr ],
+         [< Svg_types.fedistantlight_content ],
+         [> Svg_types.fedistantlight ])
+        star
+      val fePointLight :
+        ([< Svg_types.fepointlight_attr ],
+         [< Svg_types.fepointlight_content ], [> Svg_types.fepointlight ])
+        star
+      val feSpotLight :
+        ([< Svg_types.fespotlight_attr ], [< Svg_types.fespotlight_content ],
+         [> Svg_types.fespotlight ])
+        star
+      val feBlend :
+        ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
+         [> Svg_types.feblend ])
+        star
+      val feColorMatrix :
+        ([< Svg_types.fecolormatrix_attr ],
+         [< Svg_types.fecolormatrix_content ], [> Svg_types.fecolormatrix ])
+        star
+      val feComponentTransfer :
+        ([< Svg_types.fecomponenttransfer_attr ],
+         [< Svg_types.fecomponenttransfer_content ],
+         [> Svg_types.fecomponenttransfer ])
+        star
+      val feFuncA :
+        ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
+         [> Svg_types.fefunca ])
+        star
+      val feFuncG :
+        ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
+         [> Svg_types.fefuncg ])
+        star
+      val feFuncB :
+        ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
+         [> Svg_types.fefuncb ])
+        star
+      val feFuncR :
+        ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
+         [> Svg_types.fefuncr ])
+        star
+      val feComposite :
+        ([< Svg_types.fecomposite_attr ], [< Svg_types.fecomposite_content ],
+         [> Svg_types.fecomposite ])
+        star
+      val feConvolveMatrix :
+        ([< Svg_types.feconvolvematrix_attr ],
+         [< Svg_types.feconvolvematrix_content ],
+         [> Svg_types.feconvolvematrix ])
+        star
+      val feDiffuseLighting :
+        ([< Svg_types.fediffuselighting_attr ],
+         [< Svg_types.fediffuselighting_content ],
+         [> Svg_types.fediffuselighting ])
+        star
+      val feDisplacementMap :
+        ([< Svg_types.fedisplacementmap_attr ],
+         [< Svg_types.fedisplacementmap_content ],
+         [> Svg_types.fedisplacementmap ])
+        star
+      val feFlood :
+        ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
+         [> Svg_types.feflood ])
+        star
+      val feGaussianBlur :
+        ([< Svg_types.fegaussianblur_attr ],
+         [< Svg_types.fegaussianblur_content ],
+         [> Svg_types.fegaussianblur ])
+        star
+      val feImage :
+        ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
+         [> Svg_types.feimage ])
+        star
+      val feMerge :
+        ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
+         [> Svg_types.femerge ])
+        star
+      val feMorphology :
+        ([< Svg_types.femorphology_attr ],
+         [< Svg_types.femorphology_content ], [> Svg_types.femorphology ])
+        star
+      val feOffset :
+        ([< Svg_types.feoffset_attr ], [< Svg_types.feoffset_content ],
+         [> Svg_types.feoffset ])
+        star
+      val feSpecularLighting :
+        ([< Svg_types.fespecularlighting_attr ],
+         [< Svg_types.fespecularlighting_content ],
+         [> Svg_types.fespecularlighting ])
+        star
+      val feTile :
+        ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
+         [> Svg_types.fetile ])
+        star
+      val feTurbulence :
+        ([< Svg_types.feturbulence_attr ],
+         [< Svg_types.feturbulence_content ], [> Svg_types.feturbulence ])
+        star
+      val cursor :
+        ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
+         [> Svg_types.cursor ])
+        star
+      val a :
+        ([< Svg_types.a_attr ], [< Svg_types.a_content ], [> Svg_types.a ])
+        star
+      val view :
+        ([< Svg_types.view_attr ], [< Svg_types.view_content ],
+         [> Svg_types.view ])
+        star
+      val script :
+        ([< Svg_types.script_attr ], [< Svg_types.script_content ],
+         [> Svg_types.script ])
+        unary
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
+      val set :
+        ([< Svg_types.set_attr ], [< Svg_types.set_content ],
+         [> Svg_types.set ])
+        star
+      val animateMotion :
+        ([< Svg_types.animatemotion_attr ],
+         [< Svg_types.animatemotion_content ], [> Svg_types.animatemotion ])
+        star
+      val mpath :
+        ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
+         [> Svg_types.mpath ])
+        star
+      val animateColor :
+        ([< Svg_types.animatecolor_attr ],
+         [< Svg_types.animatecolor_content ], [> Svg_types.animatecolor ])
+        star
+      val animateTransform :
+        ([< Svg_types.animatetransform_attr ],
+         [< Svg_types.animatetransform_content ],
+         [> Svg_types.animatetransform ])
+        star
+      val font :
+        ([< Svg_types.font_attr ], [< Svg_types.font_content ],
+         [> Svg_types.font ])
+        star
+      val glyph :
+        ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
+         [> Svg_types.glyph ])
+        star
+      val missing_glyph :
+        ([< Svg_types.missingglyph_attr ],
+         [< Svg_types.missingglyph_content ], [> Svg_types.missingglyph ])
+        star
+      val hkern : ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
+      val vkern : ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
+      val font_face :
+        ([< Svg_types.font_face_attr ], [> Svg_types.font_face ]) nullary
+      val font_face_src :
+        ([< Svg_types.font_face_src_attr ],
+         [< Svg_types.font_face_src_content ], [> Svg_types.font_face_src ])
+        star
+      val font_face_uri :
+        ([< Svg_types.font_face_uri_attr ],
+         [< Svg_types.font_face_uri_content ], [> Svg_types.font_face_uri ])
+        star
+      val font_face_format :
+        ([< Svg_types.font_face_format_attr ],
+         [> Svg_types.font_face_format ])
+        nullary
+      val font_face_name :
+        ([< Svg_types.font_face_name_attr ], [> Svg_types.font_face_name ])
+        nullary
+      val metadata :
+        ?a:Svg_types.metadata_attr attrib list ->
+        Xml.elt list_wrap -> [> Svg_types.metadata ] elt
+      val foreignObject :
+        ?a:Svg_types.foreignobject_attr attrib list ->
+        Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+      val pcdata : string wrap -> [> Svg_types.txt ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
+      val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+      val tot : Xml.elt -> 'a elt
+      val totl : Xml.elt list_wrap -> 'a elt list_wrap
+      val toelt : 'a elt -> Xml.elt
+      val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+      val doc_toelt : doc -> Xml.elt
+      val to_xmlattribs : 'a attrib list -> Xml.attrib list
+      val to_attrib : Xml.attrib -> 'a attrib
+      module Unsafe :
+        sig
+          val data : string wrap -> 'a elt
+          val node :
+            string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+          val coerce_elt : 'a elt -> 'b elt
+          val string_attrib : string -> string wrap -> 'a attrib
+          val float_attrib : string -> float wrap -> 'a attrib
+          val int_attrib : string -> int wrap -> 'a attrib
+          val uri_attrib : string -> uri wrap -> 'a attrib
+          val space_sep_attrib : string -> string list wrap -> 'a attrib
+          val comma_sep_attrib : string -> string list wrap -> 'a attrib
+        end
+    end
   module Raw :
     sig
       type 'a elt = 'a elt
@@ -165,7 +956,7 @@
         [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
         [ `GradientUnits ] attrib
       val a_gradientTransform :
-        Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
       val a_spreadMethod :
         [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
       val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -301,6 +1092,7 @@
       val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
       val a_animation_fill :
         [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
       val a_calcMode :
         [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
         [> `CalcMode ] attrib
@@ -425,31 +1217,6 @@
       val a_stroke_dashoffset :
         Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
       val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
-      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-      val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
-      val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
-      val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
-      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-      val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
-      val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
-      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-      val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
-      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-      val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
-      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-      val a_ontouchstart :
-        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-      val a_ontouchcancel :
-        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
       val txt : string wrap -> [> Svg_types.txt ] elt
       val svg :
         ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
@@ -699,9 +1466,9 @@
         ([< Svg_types.script_attr ], [< Svg_types.script_content ],
          [> Svg_types.script ])
         unary
-      val animation :
-        ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-         [> Svg_types.animation ])
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
         star
       val set :
         ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -762,6 +1529,10 @@
         ?a:Svg_types.foreignobject_attr attrib list ->
         Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
       val pcdata : string wrap -> [> Svg_types.txt ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
       val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
       val tot : Xml.elt -> 'a elt
       val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -784,6 +1555,29 @@
           val space_sep_attrib : string -> string list wrap -> 'a attrib
           val comma_sep_attrib : string -> string list wrap -> 'a attrib
         end
+      val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+      val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+      val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+      val a_onend : string -> [> `OnEnd ] Raw'.attrib
+      val a_onerror : string -> [> `OnError ] Raw'.attrib
+      val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+      val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+      val a_onload : string -> [> `OnLoad ] Raw'.attrib
+      val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+      val a_onresize : string -> [> `OnResize ] Raw'.attrib
+      val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+      val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+      val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+      val a_onclick : string -> [> `OnClick ] Raw'.attrib
+      val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+      val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+      val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+      val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+      val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+      val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+      val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+      val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+      val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
     end
   type 'a elt = 'a elt
   type doc = [ `Svg ] elt
@@ -940,7 +1734,7 @@
     [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
     [ `GradientUnits ] attrib
   val a_gradientTransform :
-    Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+    Svg_types.transforms wrap -> [> `GradientTransform ] attrib
   val a_spreadMethod :
     [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
   val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -1071,6 +1865,7 @@
   val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
   val a_animation_fill :
     [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+  val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
   val a_calcMode :
     [< `Discrete | `Linear | `Paced | `Spline ] wrap -> [> `CalcMode ] attrib
   val a_animation_values : Svg_types.strings wrap -> [> `Valuesanim ] attrib
@@ -1453,9 +2248,9 @@
     ([< Svg_types.script_attr ], [< Svg_types.script_content ],
      [> Svg_types.script ])
     unary
-  val animation :
-    ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-     [> Svg_types.animation ])
+  val animate :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
     star
   val set :
     ([< Svg_types.set_attr ], [< Svg_types.set_content ], [> Svg_types.set ])
@@ -1514,6 +2309,10 @@
     ?a:Svg_types.foreignobject_attr attrib list ->
     Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
   val pcdata : string wrap -> [> Svg_types.txt ] elt
+  val animation :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
+    star
   val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
   val tot : Xml.elt -> 'a elt
   val totl : Xml.elt list_wrap -> 'a elt list_wrap
diff --git a/doc/10.x/api/client/type_Eliom_content.Svg.F.Raw.wiki b/doc/11.x/api/server/type_Eliom_content.Svg.F.Raw.wiki
similarity index 94%
rename from doc/10.x/api/client/type_Eliom_content.Svg.F.Raw.wiki
rename to doc/11.x/api/server/type_Eliom_content.Svg.F.Raw.wiki
index 2da2dd1419..d44b014540 100644
--- a/doc/10.x/api/client/type_Eliom_content.Svg.F.Raw.wiki
+++ b/doc/11.x/api/server/type_Eliom_content.Svg.F.Raw.wiki
@@ -154,7 +154,7 @@
     [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
     [ `GradientUnits ] attrib
   val a_gradientTransform :
-    Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+    Svg_types.transforms wrap -> [> `GradientTransform ] attrib
   val a_spreadMethod :
     [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
   val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -285,6 +285,7 @@
   val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
   val a_animation_fill :
     [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+  val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
   val a_calcMode :
     [< `Discrete | `Linear | `Paced | `Spline ] wrap -> [> `CalcMode ] attrib
   val a_animation_values : Svg_types.strings wrap -> [> `Valuesanim ] attrib
@@ -403,29 +404,6 @@
   val a_stroke_dashoffset :
     Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
   val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
-  val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-  val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
-  val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
-  val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
-  val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-  val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
-  val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
-  val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-  val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
-  val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-  val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-  val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-  val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
-  val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-  val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-  val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-  val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-  val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-  val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-  val a_ontouchstart : Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-  val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-  val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-  val a_ontouchcancel : Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
   val txt : string wrap -> [> Svg_types.txt ] elt
   val svg :
     ([< Svg_types.svg_attr ], [< Svg_types.svg_content ], [> Svg_types.svg ])
@@ -667,9 +645,9 @@
     ([< Svg_types.script_attr ], [< Svg_types.script_content ],
      [> Svg_types.script ])
     unary
-  val animation :
-    ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-     [> Svg_types.animation ])
+  val animate :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
     star
   val set :
     ([< Svg_types.set_attr ], [< Svg_types.set_content ], [> Svg_types.set ])
@@ -728,6 +706,10 @@
     ?a:Svg_types.foreignobject_attr attrib list ->
     Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
   val pcdata : string wrap -> [> Svg_types.txt ] elt
+  val animation :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
+    star
   val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
   val tot : Xml.elt -> 'a elt
   val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -749,4 +731,27 @@
       val space_sep_attrib : string -> string list wrap -> 'a attrib
       val comma_sep_attrib : string -> string list wrap -> 'a attrib
     end
+  val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+  val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+  val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+  val a_onend : string -> [> `OnEnd ] Raw'.attrib
+  val a_onerror : string -> [> `OnError ] Raw'.attrib
+  val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+  val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+  val a_onload : string -> [> `OnLoad ] Raw'.attrib
+  val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+  val a_onresize : string -> [> `OnResize ] Raw'.attrib
+  val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+  val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+  val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+  val a_onclick : string -> [> `OnClick ] Raw'.attrib
+  val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+  val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+  val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+  val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+  val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+  val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+  val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+  val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+  val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/client/type_Eliom_content.Svg.F.wiki b/doc/11.x/api/server/type_Eliom_content.Svg.F.wiki
similarity index 64%
rename from doc/10.x/api/client/type_Eliom_content.Svg.F.wiki
rename to doc/11.x/api/server/type_Eliom_content.Svg.F.wiki
index 11f7f95969..0a069f3646 100644
--- a/doc/10.x/api/client/type_Eliom_content.Svg.F.wiki
+++ b/doc/11.x/api/server/type_Eliom_content.Svg.F.wiki
@@ -1,4 +1,795 @@
 <<code language="ocaml" | sig
+  module Raw' :
+    sig
+      type 'a elt = 'a elt
+      type doc = [ `Svg ] elt
+      type 'a attrib = 'a attrib
+      module Xml :
+        sig
+          module W :
+            sig
+              type 'a t = 'a Xml.W.t
+              val return : 'a -> 'a t
+              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+              val fmap : ('a, 'b) ft -> 'a t -> 'b t
+              type 'a tlist = 'a Xml.W.tlist
+              val nil : unit -> 'a tlist
+              val singleton : 'a t -> 'a tlist
+              val cons : 'a t -> 'a tlist -> 'a tlist
+              val append : 'a tlist -> 'a tlist -> 'a tlist
+              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+            end
+          type 'a wrap = 'a W.t
+          type 'a list_wrap = 'a W.tlist
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) W.ft
+          val uri_of_string : (string, uri) W.ft
+          type aname = string
+          type event_handler = Xml.event_handler
+          type mouse_event_handler = Xml.mouse_event_handler
+          type keyboard_event_handler = Xml.keyboard_event_handler
+          type touch_event_handler = Xml.touch_event_handler
+          type attrib = Xml.attrib
+          val float_attrib : aname -> float wrap -> attrib
+          val int_attrib : aname -> int wrap -> attrib
+          val string_attrib : aname -> string wrap -> attrib
+          val space_sep_attrib : aname -> string list wrap -> attrib
+          val comma_sep_attrib : aname -> string list wrap -> attrib
+          val event_handler_attrib : aname -> event_handler -> attrib
+          val mouse_event_handler_attrib :
+            aname -> mouse_event_handler -> attrib
+          val keyboard_event_handler_attrib :
+            aname -> keyboard_event_handler -> attrib
+          val touch_event_handler_attrib :
+            aname -> touch_event_handler -> attrib
+          val uri_attrib : aname -> uri wrap -> attrib
+          val uris_attrib : aname -> uri list wrap -> attrib
+          type elt = Xml.elt
+          type ename = string
+          val empty : unit -> elt
+          val comment : string -> elt
+          val pcdata : string wrap -> elt
+          val encodedpcdata : string wrap -> elt
+          val entity : string -> elt
+          val leaf : ?a:attrib list -> ename -> elt
+          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+          val cdata : string -> elt
+          val cdata_script : string -> elt
+          val cdata_style : string -> elt
+        end
+      type 'a wrap = 'a Xml.W.t
+      type 'a list_wrap = 'a Xml.W.tlist
+      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
+      type ('a, 'b, 'c) star =
+          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+      module Info : Xml_sigs.Info
+      type uri = Xml.uri
+      val string_of_uri : (uri, string) Xml.W.ft
+      val uri_of_string : (string, uri) Xml.W.ft
+      val a_version : string wrap -> [> `Version ] attrib
+      val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+      val a_x : Svg_types.coord wrap -> [> `X ] attrib
+      val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+      val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+      val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
+      val a_preserveAspectRatio :
+        string wrap -> [> `PreserveAspectRatio ] attrib
+      val a_contentScriptType : string wrap -> [> `ContentScriptType ] attrib
+      val a_contentStyleType : string wrap -> [> `ContentStyleType ] attrib
+      val a_zoomAndPan :
+        [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+      val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+      val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+      val a_requiredFeatures :
+        Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+      val a_requiredExtensions :
+        Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+      val a_systemLanguage :
+        Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+      val a_externalRessourcesRequired :
+        bool wrap -> [> `ExternalRessourcesRequired ] attrib
+      val a_id : string wrap -> [> `Id ] attrib
+      val a_user_data : string -> string wrap -> [> `User_data ] attrib
+      val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+      val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+      val a_xml_space :
+        [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+      val a_type : string wrap -> [> `Type ] attrib
+      val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+      val a_xlink_title : string wrap -> [> `Title ] attrib
+      val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+      val a_style : string wrap -> [> `Style ] attrib
+      val a_transform : Svg_types.transforms wrap -> [> `Transform ] attrib
+      val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+      val a_d : string wrap -> [> `D ] attrib
+      val a_pathLength : float wrap -> [> `PathLength ] attrib
+      val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+      val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+      val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+      val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+      val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+      val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+      val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+      val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+      val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+      val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+      val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+      val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+      val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+      val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+      val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+      val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+      val a_lengthAdjust :
+        [< `Spacing | `SpacingAndGlyphs ] wrap -> [> `LengthAdjust ] attrib
+      val a_textLength :
+        Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+      val a_text_anchor :
+        [< `End | `Inherit | `Middle | `Start ] wrap ->
+        [> `Text_Anchor ] attrib
+      val a_text_decoration :
+        [< `Blink | `Inherit | `Line_through | `None | `Overline | `Underline
+        ] wrap -> [> `Text_Decoration ] attrib
+      val a_text_rendering :
+        [< `Auto
+         | `GeometricPrecision
+         | `Inherit
+         | `OptimizeLegibility
+         | `OptimizeSpeed ]
+        wrap -> [> `Text_Rendering ] attrib
+      val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+      val a_startOffset :
+        Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+      val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+      val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+      val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+      val a_format : string wrap -> [> `Format ] attrib
+      val a_markerUnits :
+        [< `StrokeWidth | `UserSpaceOnUse ] wrap -> [> `MarkerUnits ] attrib
+      val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+      val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+      val a_markerWidth :
+        Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+      val a_markerHeight :
+        Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+      val a_orient : Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+      val a_local : string wrap -> [> `Local ] attrib
+      val a_rendering_intent :
+        [< `Absolute_colorimetric
+         | `Auto
+         | `Perceptual
+         | `Relative_colorimetric
+         | `Saturation ]
+        wrap -> [> `Rendering_Indent ] attrib
+      val a_gradientUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [ `GradientUnits ] attrib
+      val a_gradientTransform :
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+      val a_spreadMethod :
+        [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
+      val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+      val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+      val a_offset :
+        [< `Number of Svg_types.number | `Percentage of Svg_types.percentage
+        ] wrap -> [> `Offset ] attrib
+      val a_patternUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PatternUnits ] attrib
+      val a_patternContentUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PatternContentUnits ] attrib
+      val a_patternTransform :
+        Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+      val a_clipPathUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `ClipPathUnits ] attrib
+      val a_maskUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `MaskUnits ] attrib
+      val a_maskContentUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `MaskContentUnits ] attrib
+      val a_primitiveUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PrimitiveUnits ] attrib
+      val a_filterRes :
+        Svg_types.number_optional_number wrap -> [> `FilterResUnits ] attrib
+      val a_result : string wrap -> [> `Result ] attrib
+      val a_in :
+        [< `BackgroundAlpha
+         | `BackgroundImage
+         | `FillPaint
+         | `Ref of string
+         | `SourceAlpha
+         | `SourceGraphic
+         | `StrokePaint ]
+        wrap -> [> `In ] attrib
+      val a_in2 :
+        [< `BackgroundAlpha
+         | `BackgroundImage
+         | `FillPaint
+         | `Ref of string
+         | `SourceAlpha
+         | `SourceGraphic
+         | `StrokePaint ]
+        wrap -> [> `In2 ] attrib
+      val a_azimuth : float wrap -> [> `Azimuth ] attrib
+      val a_elevation : float wrap -> [> `Elevation ] attrib
+      val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
+      val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
+      val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
+      val a_specularExponent : float wrap -> [> `SpecularExponent ] attrib
+      val a_specularConstant : float wrap -> [> `SpecularConstant ] attrib
+      val a_limitingConeAngle : float wrap -> [> `LimitingConeAngle ] attrib
+      val a_mode :
+        [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
+        [> `Mode ] attrib
+      val a_feColorMatrix_type :
+        [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ] wrap ->
+        [> `Typefecolor ] attrib
+      val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
+      val a_transfer_type :
+        [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
+        [> `Type_transfert ] attrib
+      val a_tableValues : Svg_types.numbers wrap -> [> `TableValues ] attrib
+      val a_intercept : Svg_types.number wrap -> [> `Intercept ] attrib
+      val a_amplitude : Svg_types.number wrap -> [> `Amplitude ] attrib
+      val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
+      val a_transfer_offset :
+        Svg_types.number wrap -> [> `Offset_transfer ] attrib
+      val a_feComposite_operator :
+        [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
+        [> `OperatorComposite ] attrib
+      val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
+      val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
+      val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
+      val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
+      val a_order :
+        Svg_types.number_optional_number wrap -> [> `Order ] attrib
+      val a_kernelMatrix :
+        Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
+      val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
+      val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
+      val a_kernelUnitLength :
+        Svg_types.number_optional_number wrap ->
+        [> `KernelUnitLength ] attrib
+      val a_targetX : int wrap -> [> `TargetX ] attrib
+      val a_targetY : int wrap -> [> `TargetY ] attrib
+      val a_edgeMode :
+        [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
+      val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
+      val a_surfaceScale : Svg_types.number wrap -> [> `SurfaceScale ] attrib
+      val a_diffuseConstant :
+        Svg_types.number wrap -> [> `DiffuseConstant ] attrib
+      val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
+      val a_xChannelSelector :
+        [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
+      val a_yChannelSelector :
+        [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
+      val a_stdDeviation :
+        Svg_types.number_optional_number wrap -> [> `StdDeviation ] attrib
+      val a_feMorphology_operator :
+        [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
+      val a_radius :
+        Svg_types.number_optional_number wrap -> [> `Radius ] attrib
+      val a_baseFrenquency :
+        Svg_types.number_optional_number wrap -> [> `BaseFrequency ] attrib
+      val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
+      val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
+      val a_stitchTiles :
+        [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
+      val a_feTurbulence_type :
+        [< `FractalNoise | `Turbulence ] wrap -> [> `TypeStitch ] attrib
+      val a_xlink_show : [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
+      val a_xlink_actuate :
+        [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
+        [> `Xlink_actuate ] attrib
+      val a_target : string wrap -> [> `Xlink_target ] attrib
+      val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
+      val a_attributeName : string wrap -> [> `AttributeName ] attrib
+      val a_attributeType :
+        [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
+      val a_begin : string wrap -> [> `Begin ] attrib
+      val a_dur : string wrap -> [> `Dur ] attrib
+      val a_min : string wrap -> [> `Min ] attrib
+      val a_max : string wrap -> [> `Max ] attrib
+      val a_restart :
+        [< `Always | `Never | `WhenNotActive ] wrap -> [> `Restart ] attrib
+      val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
+      val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
+      val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
+      val a_animation_fill :
+        [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
+      val a_calcMode :
+        [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
+        [> `CalcMode ] attrib
+      val a_animation_values :
+        Svg_types.strings wrap -> [> `Valuesanim ] attrib
+      val a_keyTimes : Svg_types.strings wrap -> [> `KeyTimes ] attrib
+      val a_keySplines : Svg_types.strings wrap -> [> `KeySplines ] attrib
+      val a_from : string wrap -> [> `From ] attrib
+      val a_to : string wrap -> [> `To ] attrib
+      val a_by : string wrap -> [> `By ] attrib
+      val a_additive : [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
+      val a_accumulate : [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
+      val a_keyPoints :
+        Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
+      val a_path : string wrap -> [> `Path ] attrib
+      val a_animateTransform_type :
+        [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
+        [ `Typeanimatetransform ] attrib
+      val a_horiz_origin_x :
+        Svg_types.number wrap -> [> `HorizOriginX ] attrib
+      val a_horiz_origin_y :
+        Svg_types.number wrap -> [> `HorizOriginY ] attrib
+      val a_horiz_adv_x : Svg_types.number wrap -> [> `HorizAdvX ] attrib
+      val a_vert_origin_x : Svg_types.number wrap -> [> `VertOriginX ] attrib
+      val a_vert_origin_y : Svg_types.number wrap -> [> `VertOriginY ] attrib
+      val a_vert_adv_y : Svg_types.number wrap -> [> `VertAdvY ] attrib
+      val a_unicode : string wrap -> [> `Unicode ] attrib
+      val a_glyph_name : string wrap -> [> `glyphname ] attrib
+      val a_orientation : [< `H | `V ] wrap -> [> `Orientation ] attrib
+      val a_arabic_form :
+        [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
+        [> `Arabicform ] attrib
+      val a_lang : string wrap -> [> `Lang ] attrib
+      val a_u1 : string wrap -> [> `U1 ] attrib
+      val a_u2 : string wrap -> [> `U2 ] attrib
+      val a_g1 : string wrap -> [> `G1 ] attrib
+      val a_g2 : string wrap -> [> `G2 ] attrib
+      val a_k : string wrap -> [> `K ] attrib
+      val a_font_family : string wrap -> [> `Font_Family ] attrib
+      val a_font_style : string wrap -> [> `Font_Style ] attrib
+      val a_font_variant : string wrap -> [> `Font_Variant ] attrib
+      val a_font_weight : string wrap -> [> `Font_Weight ] attrib
+      val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
+      val a_font_size : string wrap -> [> `Font_Size ] attrib
+      val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
+      val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
+      val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
+      val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
+      val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
+      val a_cap_height : Svg_types.number wrap -> [> `CapHeight ] attrib
+      val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
+      val a_accent_height :
+        Svg_types.number wrap -> [> `AccentHeight ] attrib
+      val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
+      val a_widths : string wrap -> [> `Widths ] attrib
+      val a_bbox : string wrap -> [> `Bbox ] attrib
+      val a_ideographic : Svg_types.number wrap -> [> `Ideographic ] attrib
+      val a_alphabetic : Svg_types.number wrap -> [> `Alphabetic ] attrib
+      val a_mathematical : Svg_types.number wrap -> [> `Mathematical ] attrib
+      val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
+      val a_videographic : Svg_types.number wrap -> [> `VIdeographic ] attrib
+      val a_v_alphabetic : Svg_types.number wrap -> [> `VAlphabetic ] attrib
+      val a_v_mathematical :
+        Svg_types.number wrap -> [> `VMathematical ] attrib
+      val a_v_hanging : Svg_types.number wrap -> [> `VHanging ] attrib
+      val a_underline_position :
+        Svg_types.number wrap -> [> `UnderlinePosition ] attrib
+      val a_underline_thickness :
+        Svg_types.number wrap -> [> `UnderlineThickness ] attrib
+      val a_strikethrough_position :
+        Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
+      val a_strikethrough_thickness :
+        Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
+      val a_overline_position :
+        Svg_types.number wrap -> [> `OverlinePosition ] attrib
+      val a_overline_thickness :
+        Svg_types.number wrap -> [> `OverlineThickness ] attrib
+      val a_string : string wrap -> [> `String ] attrib
+      val a_name : string wrap -> [> `Name ] attrib
+      val a_alignment_baseline :
+        [< `After_edge
+         | `Alphabetic
+         | `Auto
+         | `Baseline
+         | `Before_edge
+         | `Central
+         | `Hanging
+         | `Ideographic
+         | `Inherit
+         | `Mathematical
+         | `Middle
+         | `Text_after_edge
+         | `Text_before_edge ]
+        wrap -> [> `Alignment_Baseline ] attrib
+      val a_dominant_baseline :
+        [< `Alphabetic
+         | `Auto
+         | `Central
+         | `Hanging
+         | `Ideographic
+         | `Inherit
+         | `Mathematical
+         | `Middle
+         | `No_change
+         | `Reset_size
+         | `Text_after_edge
+         | `Text_before_edge
+         | `Use_script ]
+        wrap -> [> `Dominant_Baseline ] attrib
+      val a_stop_color : Svg_types.color wrap -> [> `Stop_Color ] attrib
+      val a_stop_opacity : Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+      val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+      val a_stroke_width :
+        Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+      val a_stroke_linecap :
+        [< `Butt | `Round | `Square ] wrap -> [> `Stroke_Linecap ] attrib
+      val a_stroke_linejoin :
+        [< `Bever | `Miter | `Round ] wrap -> [> `Stroke_Linejoin ] attrib
+      val a_stroke_miterlimit : float wrap -> [> `Stroke_Miterlimit ] attrib
+      val a_stroke_dasharray :
+        Svg_types.Unit.length list wrap -> [> `Stroke_Dasharray ] attrib
+      val a_stroke_dashoffset :
+        Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+      val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
+      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+      val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
+      val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
+      val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
+      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+      val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
+      val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
+      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+      val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
+      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+      val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
+      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+      val a_ontouchstart :
+        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+      val a_ontouchcancel :
+        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+      val txt : string wrap -> [> Svg_types.txt ] elt
+      val svg :
+        ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
+         [> Svg_types.svg ])
+        star
+      val g :
+        ([< Svg_types.g_attr ], [< Svg_types.g_content ], [> Svg_types.g ])
+        star
+      val defs :
+        ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
+         [> Svg_types.defs ])
+        star
+      val desc :
+        ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
+         [> Svg_types.desc ])
+        unary
+      val title :
+        ([< Svg_types.title_attr ], [< Svg_types.title_content ],
+         [> Svg_types.title ])
+        unary
+      val symbol :
+        ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
+         [> Svg_types.symbol ])
+        star
+      val use :
+        ([< Svg_types.use_attr ], [< Svg_types.use_content ],
+         [> Svg_types.use ])
+        star
+      val image :
+        ([< Svg_types.image_attr ], [< Svg_types.image_content ],
+         [> Svg_types.image ])
+        star
+      val switch :
+        ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
+         [> Svg_types.switch ])
+        star
+      val style :
+        ([< Svg_types.style_attr ], [< Svg_types.style_content ],
+         [> Svg_types.style ])
+        unary
+      val path :
+        ([< Svg_types.path_attr ], [< Svg_types.path_content ],
+         [> Svg_types.path ])
+        star
+      val rect :
+        ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
+         [> Svg_types.rect ])
+        star
+      val circle :
+        ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
+         [> Svg_types.circle ])
+        star
+      val ellipse :
+        ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
+         [> Svg_types.ellipse ])
+        star
+      val line :
+        ([< Svg_types.line_attr ], [< Svg_types.line_content ],
+         [> Svg_types.line ])
+        star
+      val polyline :
+        ([< Svg_types.polyline_attr ], [< Svg_types.polyline_content ],
+         [> Svg_types.polyline ])
+        star
+      val polygon :
+        ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
+         [> Svg_types.polygon ])
+        star
+      val text :
+        ([< Svg_types.text_attr ], [< Svg_types.text_content ],
+         [> Svg_types.text ])
+        star
+      val tspan :
+        ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
+         [> Svg_types.tspan ])
+        star
+      val tref :
+        ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
+         [> Svg_types.tref ])
+        star
+      val textPath :
+        ([< Svg_types.textpath_attr ], [< Svg_types.textpath_content ],
+         [> Svg_types.textpath ])
+        star
+      val altGlyph :
+        ([< Svg_types.altglyph_attr ], [< Svg_types.altglyph_content ],
+         [> Svg_types.altglyph ])
+        unary
+      type altglyphdef_content =
+          [ `Item of Svg_types.altglyphitem elt list
+          | `Ref of Svg_types.glyphref elt list ]
+      val altGlyphDef :
+        ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
+         [> Svg_types.altglyphdef ])
+        unary
+      val altGlyphItem :
+        ([< Svg_types.altglyphitem_attr ],
+         [< Svg_types.altglyphitem_content ], [> Svg_types.altglyphitem ])
+        star
+      val glyphRef :
+        ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ]) nullary
+      val marker :
+        ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
+         [> Svg_types.marker ])
+        star
+      val color_profile :
+        ([< Svg_types.colorprofile_attr ],
+         [< Svg_types.colorprofile_content ], [> Svg_types.colorprofile ])
+        star
+      val linearGradient :
+        ([< Svg_types.lineargradient_attr ],
+         [< Svg_types.lineargradient_content ],
+         [> Svg_types.lineargradient ])
+        star
+      val radialGradient :
+        ([< Svg_types.radialgradient_attr ],
+         [< Svg_types.radialgradient_content ],
+         [> Svg_types.radialgradient ])
+        star
+      val stop :
+        ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
+         [> Svg_types.stop ])
+        star
+      val pattern :
+        ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
+         [> Svg_types.pattern ])
+        star
+      val clipPath :
+        ([< Svg_types.clippath_attr ], [< Svg_types.clippath_content ],
+         [> Svg_types.clippath ])
+        star
+      val filter :
+        ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
+         [> Svg_types.filter ])
+        star
+      val feDistantLight :
+        ([< Svg_types.fedistantlight_attr ],
+         [< Svg_types.fedistantlight_content ],
+         [> Svg_types.fedistantlight ])
+        star
+      val fePointLight :
+        ([< Svg_types.fepointlight_attr ],
+         [< Svg_types.fepointlight_content ], [> Svg_types.fepointlight ])
+        star
+      val feSpotLight :
+        ([< Svg_types.fespotlight_attr ], [< Svg_types.fespotlight_content ],
+         [> Svg_types.fespotlight ])
+        star
+      val feBlend :
+        ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
+         [> Svg_types.feblend ])
+        star
+      val feColorMatrix :
+        ([< Svg_types.fecolormatrix_attr ],
+         [< Svg_types.fecolormatrix_content ], [> Svg_types.fecolormatrix ])
+        star
+      val feComponentTransfer :
+        ([< Svg_types.fecomponenttransfer_attr ],
+         [< Svg_types.fecomponenttransfer_content ],
+         [> Svg_types.fecomponenttransfer ])
+        star
+      val feFuncA :
+        ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
+         [> Svg_types.fefunca ])
+        star
+      val feFuncG :
+        ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
+         [> Svg_types.fefuncg ])
+        star
+      val feFuncB :
+        ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
+         [> Svg_types.fefuncb ])
+        star
+      val feFuncR :
+        ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
+         [> Svg_types.fefuncr ])
+        star
+      val feComposite :
+        ([< Svg_types.fecomposite_attr ], [< Svg_types.fecomposite_content ],
+         [> Svg_types.fecomposite ])
+        star
+      val feConvolveMatrix :
+        ([< Svg_types.feconvolvematrix_attr ],
+         [< Svg_types.feconvolvematrix_content ],
+         [> Svg_types.feconvolvematrix ])
+        star
+      val feDiffuseLighting :
+        ([< Svg_types.fediffuselighting_attr ],
+         [< Svg_types.fediffuselighting_content ],
+         [> Svg_types.fediffuselighting ])
+        star
+      val feDisplacementMap :
+        ([< Svg_types.fedisplacementmap_attr ],
+         [< Svg_types.fedisplacementmap_content ],
+         [> Svg_types.fedisplacementmap ])
+        star
+      val feFlood :
+        ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
+         [> Svg_types.feflood ])
+        star
+      val feGaussianBlur :
+        ([< Svg_types.fegaussianblur_attr ],
+         [< Svg_types.fegaussianblur_content ],
+         [> Svg_types.fegaussianblur ])
+        star
+      val feImage :
+        ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
+         [> Svg_types.feimage ])
+        star
+      val feMerge :
+        ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
+         [> Svg_types.femerge ])
+        star
+      val feMorphology :
+        ([< Svg_types.femorphology_attr ],
+         [< Svg_types.femorphology_content ], [> Svg_types.femorphology ])
+        star
+      val feOffset :
+        ([< Svg_types.feoffset_attr ], [< Svg_types.feoffset_content ],
+         [> Svg_types.feoffset ])
+        star
+      val feSpecularLighting :
+        ([< Svg_types.fespecularlighting_attr ],
+         [< Svg_types.fespecularlighting_content ],
+         [> Svg_types.fespecularlighting ])
+        star
+      val feTile :
+        ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
+         [> Svg_types.fetile ])
+        star
+      val feTurbulence :
+        ([< Svg_types.feturbulence_attr ],
+         [< Svg_types.feturbulence_content ], [> Svg_types.feturbulence ])
+        star
+      val cursor :
+        ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
+         [> Svg_types.cursor ])
+        star
+      val a :
+        ([< Svg_types.a_attr ], [< Svg_types.a_content ], [> Svg_types.a ])
+        star
+      val view :
+        ([< Svg_types.view_attr ], [< Svg_types.view_content ],
+         [> Svg_types.view ])
+        star
+      val script :
+        ([< Svg_types.script_attr ], [< Svg_types.script_content ],
+         [> Svg_types.script ])
+        unary
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
+      val set :
+        ([< Svg_types.set_attr ], [< Svg_types.set_content ],
+         [> Svg_types.set ])
+        star
+      val animateMotion :
+        ([< Svg_types.animatemotion_attr ],
+         [< Svg_types.animatemotion_content ], [> Svg_types.animatemotion ])
+        star
+      val mpath :
+        ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
+         [> Svg_types.mpath ])
+        star
+      val animateColor :
+        ([< Svg_types.animatecolor_attr ],
+         [< Svg_types.animatecolor_content ], [> Svg_types.animatecolor ])
+        star
+      val animateTransform :
+        ([< Svg_types.animatetransform_attr ],
+         [< Svg_types.animatetransform_content ],
+         [> Svg_types.animatetransform ])
+        star
+      val font :
+        ([< Svg_types.font_attr ], [< Svg_types.font_content ],
+         [> Svg_types.font ])
+        star
+      val glyph :
+        ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
+         [> Svg_types.glyph ])
+        star
+      val missing_glyph :
+        ([< Svg_types.missingglyph_attr ],
+         [< Svg_types.missingglyph_content ], [> Svg_types.missingglyph ])
+        star
+      val hkern : ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
+      val vkern : ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
+      val font_face :
+        ([< Svg_types.font_face_attr ], [> Svg_types.font_face ]) nullary
+      val font_face_src :
+        ([< Svg_types.font_face_src_attr ],
+         [< Svg_types.font_face_src_content ], [> Svg_types.font_face_src ])
+        star
+      val font_face_uri :
+        ([< Svg_types.font_face_uri_attr ],
+         [< Svg_types.font_face_uri_content ], [> Svg_types.font_face_uri ])
+        star
+      val font_face_format :
+        ([< Svg_types.font_face_format_attr ],
+         [> Svg_types.font_face_format ])
+        nullary
+      val font_face_name :
+        ([< Svg_types.font_face_name_attr ], [> Svg_types.font_face_name ])
+        nullary
+      val metadata :
+        ?a:Svg_types.metadata_attr attrib list ->
+        Xml.elt list_wrap -> [> Svg_types.metadata ] elt
+      val foreignObject :
+        ?a:Svg_types.foreignobject_attr attrib list ->
+        Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+      val pcdata : string wrap -> [> Svg_types.txt ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
+      val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+      val tot : Xml.elt -> 'a elt
+      val totl : Xml.elt list_wrap -> 'a elt list_wrap
+      val toelt : 'a elt -> Xml.elt
+      val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+      val doc_toelt : doc -> Xml.elt
+      val to_xmlattribs : 'a attrib list -> Xml.attrib list
+      val to_attrib : Xml.attrib -> 'a attrib
+      module Unsafe :
+        sig
+          val data : string wrap -> 'a elt
+          val node :
+            string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+          val coerce_elt : 'a elt -> 'b elt
+          val string_attrib : string -> string wrap -> 'a attrib
+          val float_attrib : string -> float wrap -> 'a attrib
+          val int_attrib : string -> int wrap -> 'a attrib
+          val uri_attrib : string -> uri wrap -> 'a attrib
+          val space_sep_attrib : string -> string list wrap -> 'a attrib
+          val comma_sep_attrib : string -> string list wrap -> 'a attrib
+        end
+    end
   module Raw :
     sig
       type 'a elt = 'a elt
@@ -165,7 +956,7 @@
         [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
         [ `GradientUnits ] attrib
       val a_gradientTransform :
-        Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
       val a_spreadMethod :
         [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
       val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -301,6 +1092,7 @@
       val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
       val a_animation_fill :
         [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
       val a_calcMode :
         [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
         [> `CalcMode ] attrib
@@ -425,31 +1217,6 @@
       val a_stroke_dashoffset :
         Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
       val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
-      val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-      val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
-      val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
-      val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
-      val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-      val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
-      val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
-      val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-      val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
-      val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-      val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-      val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-      val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
-      val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-      val a_onmousedown : Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-      val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-      val a_onmouseover : Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-      val a_onmouseout : Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-      val a_onmousemove : Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-      val a_ontouchstart :
-        Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-      val a_ontouchend : Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-      val a_ontouchmove : Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-      val a_ontouchcancel :
-        Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
       val txt : string wrap -> [> Svg_types.txt ] elt
       val svg :
         ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
@@ -699,9 +1466,9 @@
         ([< Svg_types.script_attr ], [< Svg_types.script_content ],
          [> Svg_types.script ])
         unary
-      val animation :
-        ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-         [> Svg_types.animation ])
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
         star
       val set :
         ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -762,6 +1529,10 @@
         ?a:Svg_types.foreignobject_attr attrib list ->
         Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
       val pcdata : string wrap -> [> Svg_types.txt ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
       val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
       val tot : Xml.elt -> 'a elt
       val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -784,6 +1555,29 @@
           val space_sep_attrib : string -> string list wrap -> 'a attrib
           val comma_sep_attrib : string -> string list wrap -> 'a attrib
         end
+      val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+      val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+      val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+      val a_onend : string -> [> `OnEnd ] Raw'.attrib
+      val a_onerror : string -> [> `OnError ] Raw'.attrib
+      val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+      val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+      val a_onload : string -> [> `OnLoad ] Raw'.attrib
+      val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+      val a_onresize : string -> [> `OnResize ] Raw'.attrib
+      val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+      val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+      val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+      val a_onclick : string -> [> `OnClick ] Raw'.attrib
+      val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+      val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+      val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+      val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+      val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+      val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+      val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+      val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+      val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
     end
   type 'a elt = 'a elt
   type doc = [ `Svg ] elt
@@ -940,7 +1734,7 @@
     [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
     [ `GradientUnits ] attrib
   val a_gradientTransform :
-    Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+    Svg_types.transforms wrap -> [> `GradientTransform ] attrib
   val a_spreadMethod :
     [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
   val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -1071,6 +1865,7 @@
   val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
   val a_animation_fill :
     [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+  val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
   val a_calcMode :
     [< `Discrete | `Linear | `Paced | `Spline ] wrap -> [> `CalcMode ] attrib
   val a_animation_values : Svg_types.strings wrap -> [> `Valuesanim ] attrib
@@ -1453,9 +2248,9 @@
     ([< Svg_types.script_attr ], [< Svg_types.script_content ],
      [> Svg_types.script ])
     unary
-  val animation :
-    ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-     [> Svg_types.animation ])
+  val animate :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
     star
   val set :
     ([< Svg_types.set_attr ], [< Svg_types.set_content ], [> Svg_types.set ])
@@ -1514,6 +2309,10 @@
     ?a:Svg_types.foreignobject_attr attrib list ->
     Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
   val pcdata : string wrap -> [> Svg_types.txt ] elt
+  val animation :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
+    star
   val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
   val tot : Xml.elt -> 'a elt
   val totl : Xml.elt list_wrap -> 'a elt list_wrap
diff --git a/doc/10.x/api/server/type_Eliom_content.Svg.Id.wiki b/doc/11.x/api/server/type_Eliom_content.Svg.Id.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_content.Svg.Id.wiki
rename to doc/11.x/api/server/type_Eliom_content.Svg.Id.wiki
diff --git a/doc/10.x/api/server/type_Eliom_content.Svg.Printer.wiki b/doc/11.x/api/server/type_Eliom_content.Svg.Printer.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_content.Svg.Printer.wiki
rename to doc/11.x/api/server/type_Eliom_content.Svg.Printer.wiki
diff --git a/doc/10.x/api/server/type_Eliom_content.Svg.R.Raw.wiki b/doc/11.x/api/server/type_Eliom_content.Svg.R.Raw.wiki
similarity index 98%
rename from doc/10.x/api/server/type_Eliom_content.Svg.R.Raw.wiki
rename to doc/11.x/api/server/type_Eliom_content.Svg.R.Raw.wiki
index 3115a3f330..5091486911 100644
--- a/doc/10.x/api/server/type_Eliom_content.Svg.R.Raw.wiki
+++ b/doc/11.x/api/server/type_Eliom_content.Svg.R.Raw.wiki
@@ -154,7 +154,7 @@
     [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
     [ `GradientUnits ] attrib
   val a_gradientTransform :
-    Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+    Svg_types.transforms wrap -> [> `GradientTransform ] attrib
   val a_spreadMethod :
     [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
   val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -285,6 +285,7 @@
   val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
   val a_animation_fill :
     [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+  val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
   val a_calcMode :
     [< `Discrete | `Linear | `Paced | `Spline ] wrap -> [> `CalcMode ] attrib
   val a_animation_values : Svg_types.strings wrap -> [> `Valuesanim ] attrib
@@ -667,9 +668,9 @@
     ([< Svg_types.script_attr ], [< Svg_types.script_content ],
      [> Svg_types.script ])
     unary
-  val animation :
-    ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-     [> Svg_types.animation ])
+  val animate :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
     star
   val set :
     ([< Svg_types.set_attr ], [< Svg_types.set_content ], [> Svg_types.set ])
@@ -728,6 +729,10 @@
     ?a:Svg_types.foreignobject_attr attrib list ->
     Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
   val pcdata : string wrap -> [> Svg_types.txt ] elt
+  val animation :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
+    star
   val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
   val tot : Xml.elt -> 'a elt
   val totl : Xml.elt list_wrap -> 'a elt list_wrap
diff --git a/doc/10.x/api/server/type_Eliom_content.Svg.R.wiki b/doc/11.x/api/server/type_Eliom_content.Svg.R.wiki
similarity index 98%
rename from doc/10.x/api/server/type_Eliom_content.Svg.R.wiki
rename to doc/11.x/api/server/type_Eliom_content.Svg.R.wiki
index a2c84c7a18..38c2a1eefc 100644
--- a/doc/10.x/api/server/type_Eliom_content.Svg.R.wiki
+++ b/doc/11.x/api/server/type_Eliom_content.Svg.R.wiki
@@ -165,7 +165,7 @@
         [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
         [ `GradientUnits ] attrib
       val a_gradientTransform :
-        Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
       val a_spreadMethod :
         [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
       val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -301,6 +301,7 @@
       val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
       val a_animation_fill :
         [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
       val a_calcMode :
         [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
         [> `CalcMode ] attrib
@@ -699,9 +700,9 @@
         ([< Svg_types.script_attr ], [< Svg_types.script_content ],
          [> Svg_types.script ])
         unary
-      val animation :
-        ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-         [> Svg_types.animation ])
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
         star
       val set :
         ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -762,6 +763,10 @@
         ?a:Svg_types.foreignobject_attr attrib list ->
         Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
       val pcdata : string wrap -> [> Svg_types.txt ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
       val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
       val tot : Xml.elt -> 'a elt
       val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -940,7 +945,7 @@
     [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
     [ `GradientUnits ] attrib
   val a_gradientTransform :
-    Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+    Svg_types.transforms wrap -> [> `GradientTransform ] attrib
   val a_spreadMethod :
     [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
   val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -1071,6 +1076,7 @@
   val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
   val a_animation_fill :
     [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+  val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
   val a_calcMode :
     [< `Discrete | `Linear | `Paced | `Spline ] wrap -> [> `CalcMode ] attrib
   val a_animation_values : Svg_types.strings wrap -> [> `Valuesanim ] attrib
@@ -1453,9 +1459,9 @@
     ([< Svg_types.script_attr ], [< Svg_types.script_content ],
      [> Svg_types.script ])
     unary
-  val animation :
-    ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-     [> Svg_types.animation ])
+  val animate :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
     star
   val set :
     ([< Svg_types.set_attr ], [< Svg_types.set_content ], [> Svg_types.set ])
@@ -1513,6 +1519,10 @@
   val foreignObject :
     ?a:Svg_types.foreignobject_attr attrib list ->
     Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+  val animation :
+    ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+     [> Svg_types.animate ])
+    star
   val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
   val tot : Xml.elt -> 'a elt
   val totl : Xml.elt list_wrap -> 'a elt list_wrap
diff --git a/doc/10.x/api/server/type_Eliom_content.Svg.wiki b/doc/11.x/api/server/type_Eliom_content.Svg.wiki
similarity index 73%
rename from doc/10.x/api/server/type_Eliom_content.Svg.wiki
rename to doc/11.x/api/server/type_Eliom_content.Svg.wiki
index f3440e0226..3905b04aa5 100644
--- a/doc/10.x/api/server/type_Eliom_content.Svg.wiki
+++ b/doc/11.x/api/server/type_Eliom_content.Svg.wiki
@@ -4,9 +4,10 @@
   type 'a wrap = 'a
   type 'a list_wrap = 'a list
   type uri = Eliom_content.Xml.uri
+  module Ev' = Eliom_content_core.Svg.Ev'
   module F :
     sig
-      module Raw :
+      module Raw' :
         sig
           type 'a elt = 'a elt
           type doc = [ `Svg ] elt
@@ -184,7 +185,7 @@
             [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
             [ `GradientUnits ] attrib
           val a_gradientTransform :
-            Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
           val a_spreadMethod :
             [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
           val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -331,6 +332,8 @@
           val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
           val a_animation_fill :
             [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
           val a_calcMode :
             [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
             [> `CalcMode ] attrib
@@ -754,9 +757,9 @@
             ([< Svg_types.script_attr ], [< Svg_types.script_content ],
              [> Svg_types.script ])
             unary
-          val animation :
-            ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-             [> Svg_types.animation ])
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
             star
           val set :
             ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -825,6 +828,10 @@
             ?a:Svg_types.foreignobject_attr attrib list ->
             Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
           val pcdata : string wrap -> [> Svg_types.txt ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
           val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
           val tot : Xml.elt -> 'a elt
           val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -848,200 +855,1040 @@
               val comma_sep_attrib : string -> string list wrap -> 'a attrib
             end
         end
-      type 'a elt = 'a elt
-      type doc = [ `Svg ] elt
-      type 'a attrib = 'a attrib
-      module Xml :
+      module Raw :
         sig
-          module W :
+          type 'a elt = 'a elt
+          type doc = [ `Svg ] elt
+          type 'a attrib = 'a attrib
+          module Xml :
             sig
-              type 'a t = 'a Xml.W.t
-              val return : 'a -> 'a t
-              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
-              val fmap : ('a, 'b) ft -> 'a t -> 'b t
-              type 'a tlist = 'a Xml.W.tlist
-              val nil : unit -> 'a tlist
-              val singleton : 'a t -> 'a tlist
-              val cons : 'a t -> 'a tlist -> 'a tlist
-              val append : 'a tlist -> 'a tlist -> 'a tlist
-              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+              module W :
+                sig
+                  type 'a t = 'a Xml.W.t
+                  val return : 'a -> 'a t
+                  type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                  type 'a tlist = 'a Xml.W.tlist
+                  val nil : unit -> 'a tlist
+                  val singleton : 'a t -> 'a tlist
+                  val cons : 'a t -> 'a tlist -> 'a tlist
+                  val append : 'a tlist -> 'a tlist -> 'a tlist
+                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                end
+              type 'a wrap = 'a W.t
+              type 'a list_wrap = 'a W.tlist
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) W.ft
+              val uri_of_string : (string, uri) W.ft
+              type aname = string
+              type event_handler = Xml.event_handler
+              type mouse_event_handler = Xml.mouse_event_handler
+              type keyboard_event_handler = Xml.keyboard_event_handler
+              type touch_event_handler = Xml.touch_event_handler
+              type attrib = Xml.attrib
+              val float_attrib : aname -> float wrap -> attrib
+              val int_attrib : aname -> int wrap -> attrib
+              val string_attrib : aname -> string wrap -> attrib
+              val space_sep_attrib : aname -> string list wrap -> attrib
+              val comma_sep_attrib : aname -> string list wrap -> attrib
+              val event_handler_attrib : aname -> event_handler -> attrib
+              val mouse_event_handler_attrib :
+                aname -> mouse_event_handler -> attrib
+              val keyboard_event_handler_attrib :
+                aname -> keyboard_event_handler -> attrib
+              val touch_event_handler_attrib :
+                aname -> touch_event_handler -> attrib
+              val uri_attrib : aname -> uri wrap -> attrib
+              val uris_attrib : aname -> uri list wrap -> attrib
+              type elt = Xml.elt
+              type ename = string
+              val empty : unit -> elt
+              val comment : string -> elt
+              val pcdata : string wrap -> elt
+              val encodedpcdata : string wrap -> elt
+              val entity : string -> elt
+              val leaf : ?a:attrib list -> ename -> elt
+              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+              val cdata : string -> elt
+              val cdata_script : string -> elt
+              val cdata_style : string -> elt
             end
-          type 'a wrap = 'a W.t
-          type 'a list_wrap = 'a W.tlist
+          type 'a wrap = 'a Xml.W.t
+          type 'a list_wrap = 'a Xml.W.tlist
+          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+          type ('a, 'b, 'c) unary =
+              ?a:'a attrib list -> 'b elt wrap -> 'c elt
+          type ('a, 'b, 'c) star =
+              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          module Info : Xml_sigs.Info
           type uri = Xml.uri
-          val string_of_uri : (uri, string) W.ft
-          val uri_of_string : (string, uri) W.ft
-          type aname = string
-          type event_handler = Xml.event_handler
-          type mouse_event_handler = Xml.mouse_event_handler
-          type keyboard_event_handler = Xml.keyboard_event_handler
-          type touch_event_handler = Xml.touch_event_handler
-          type attrib = Xml.attrib
-          val float_attrib : aname -> float wrap -> attrib
-          val int_attrib : aname -> int wrap -> attrib
-          val string_attrib : aname -> string wrap -> attrib
-          val space_sep_attrib : aname -> string list wrap -> attrib
-          val comma_sep_attrib : aname -> string list wrap -> attrib
-          val event_handler_attrib : aname -> event_handler -> attrib
-          val mouse_event_handler_attrib :
-            aname -> mouse_event_handler -> attrib
-          val keyboard_event_handler_attrib :
-            aname -> keyboard_event_handler -> attrib
-          val touch_event_handler_attrib :
-            aname -> touch_event_handler -> attrib
-          val uri_attrib : aname -> uri wrap -> attrib
-          val uris_attrib : aname -> uri list wrap -> attrib
-          type elt = Xml.elt
-          type ename = string
-          val empty : unit -> elt
-          val comment : string -> elt
-          val pcdata : string wrap -> elt
-          val encodedpcdata : string wrap -> elt
-          val entity : string -> elt
-          val leaf : ?a:attrib list -> ename -> elt
-          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
-          val cdata : string -> elt
-          val cdata_script : string -> elt
-          val cdata_style : string -> elt
-        end
-      type 'a wrap = 'a Xml.W.t
-      type 'a list_wrap = 'a Xml.W.tlist
-      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
-      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
-      type ('a, 'b, 'c) star =
-          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-      module Info : Xml_sigs.Info
-      type uri = Xml.uri
-      val string_of_uri : (uri, string) Xml.W.ft
-      val uri_of_string : (string, uri) Xml.W.ft
-      val a_version : string wrap -> [> `Version ] attrib
-      val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
-      val a_x : Svg_types.coord wrap -> [> `X ] attrib
-      val a_y : Svg_types.coord wrap -> [> `Y ] attrib
-      val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
-      val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
-      val a_preserveAspectRatio :
-        string wrap -> [> `PreserveAspectRatio ] attrib
-      val a_contentScriptType : string wrap -> [> `ContentScriptType ] attrib
-      val a_contentStyleType : string wrap -> [> `ContentStyleType ] attrib
-      val a_zoomAndPan :
-        [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
-      val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
-      val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
-      val a_requiredFeatures :
-        Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
-      val a_requiredExtensions :
-        Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
-      val a_systemLanguage :
-        Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
-      val a_externalRessourcesRequired :
-        bool wrap -> [> `ExternalRessourcesRequired ] attrib
-      val a_id : string wrap -> [> `Id ] attrib
-      val a_user_data : string -> string wrap -> [> `User_data ] attrib
-      val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
-      val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
-      val a_xml_space :
-        [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
-      val a_type : string wrap -> [> `Type ] attrib
-      val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
-      val a_xlink_title : string wrap -> [> `Title ] attrib
-      val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
-      val a_style : string wrap -> [> `Style ] attrib
-      val a_transform : Svg_types.transforms wrap -> [> `Transform ] attrib
-      val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
-      val a_d : string wrap -> [> `D ] attrib
-      val a_pathLength : float wrap -> [> `PathLength ] attrib
-      val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
-      val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
-      val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
-      val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
-      val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
-      val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
-      val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
-      val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
-      val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
-      val a_points : Svg_types.coords wrap -> [> `Points ] attrib
-      val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
-      val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
-      val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
-      val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
-      val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
-      val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
-      val a_lengthAdjust :
-        [< `Spacing | `SpacingAndGlyphs ] wrap -> [> `LengthAdjust ] attrib
-      val a_textLength :
-        Svg_types.Unit.length wrap -> [> `TextLength ] attrib
-      val a_text_anchor :
-        [< `End | `Inherit | `Middle | `Start ] wrap ->
-        [> `Text_Anchor ] attrib
-      val a_text_decoration :
-        [< `Blink | `Inherit | `Line_through | `None | `Overline | `Underline
-        ] wrap -> [> `Text_Decoration ] attrib
-      val a_text_rendering :
-        [< `Auto
-         | `GeometricPrecision
-         | `Inherit
-         | `OptimizeLegibility
-         | `OptimizeSpeed ]
-        wrap -> [> `Text_Rendering ] attrib
-      val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
-      val a_startOffset :
-        Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
-      val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
-      val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
-      val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
-      val a_format : string wrap -> [> `Format ] attrib
-      val a_markerUnits :
-        [< `StrokeWidth | `UserSpaceOnUse ] wrap -> [> `MarkerUnits ] attrib
-      val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
-      val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
-      val a_markerWidth :
-        Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
-      val a_markerHeight :
-        Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
-      val a_orient : Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
-      val a_local : string wrap -> [> `Local ] attrib
-      val a_rendering_intent :
-        [< `Absolute_colorimetric
-         | `Auto
-         | `Perceptual
-         | `Relative_colorimetric
-         | `Saturation ]
-        wrap -> [> `Rendering_Indent ] attrib
-      val a_gradientUnits :
-        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-        [ `GradientUnits ] attrib
-      val a_gradientTransform :
-        Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
-      val a_spreadMethod :
-        [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
-      val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
-      val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
-      val a_offset :
-        [< `Number of Svg_types.number | `Percentage of Svg_types.percentage
-        ] wrap -> [> `Offset ] attrib
-      val a_patternUnits :
-        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-        [> `PatternUnits ] attrib
-      val a_patternContentUnits :
-        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-        [> `PatternContentUnits ] attrib
-      val a_patternTransform :
-        Svg_types.transforms wrap -> [> `PatternTransform ] attrib
-      val a_clipPathUnits :
-        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-        [> `ClipPathUnits ] attrib
-      val a_maskUnits :
-        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-        [> `MaskUnits ] attrib
-      val a_maskContentUnits :
-        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-        [> `MaskContentUnits ] attrib
-      val a_primitiveUnits :
-        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-        [> `PrimitiveUnits ] attrib
-      val a_filterRes :
-        Svg_types.number_optional_number wrap -> [> `FilterResUnits ] attrib
+          val string_of_uri : (uri, string) Xml.W.ft
+          val uri_of_string : (string, uri) Xml.W.ft
+          val a_version : string wrap -> [> `Version ] attrib
+          val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+          val a_x : Svg_types.coord wrap -> [> `X ] attrib
+          val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+          val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+          val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
+          val a_preserveAspectRatio :
+            string wrap -> [> `PreserveAspectRatio ] attrib
+          val a_contentScriptType :
+            string wrap -> [> `ContentScriptType ] attrib
+          val a_contentStyleType :
+            string wrap -> [> `ContentStyleType ] attrib
+          val a_zoomAndPan :
+            [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+          val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+          val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+          val a_requiredFeatures :
+            Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+          val a_requiredExtensions :
+            Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+          val a_systemLanguage :
+            Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+          val a_externalRessourcesRequired :
+            bool wrap -> [> `ExternalRessourcesRequired ] attrib
+          val a_id : string wrap -> [> `Id ] attrib
+          val a_user_data : string -> string wrap -> [> `User_data ] attrib
+          val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+          val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+          val a_xml_space :
+            [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+          val a_type : string wrap -> [> `Type ] attrib
+          val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+          val a_xlink_title : string wrap -> [> `Title ] attrib
+          val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+          val a_style : string wrap -> [> `Style ] attrib
+          val a_transform :
+            Svg_types.transforms wrap -> [> `Transform ] attrib
+          val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+          val a_d : string wrap -> [> `D ] attrib
+          val a_pathLength : float wrap -> [> `PathLength ] attrib
+          val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+          val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+          val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+          val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+          val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+          val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+          val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+          val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+          val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+          val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+          val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+          val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+          val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+          val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+          val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+          val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+          val a_lengthAdjust :
+            [< `Spacing | `SpacingAndGlyphs ] wrap ->
+            [> `LengthAdjust ] attrib
+          val a_textLength :
+            Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+          val a_text_anchor :
+            [< `End | `Inherit | `Middle | `Start ] wrap ->
+            [> `Text_Anchor ] attrib
+          val a_text_decoration :
+            [< `Blink
+             | `Inherit
+             | `Line_through
+             | `None
+             | `Overline
+             | `Underline ]
+            wrap -> [> `Text_Decoration ] attrib
+          val a_text_rendering :
+            [< `Auto
+             | `GeometricPrecision
+             | `Inherit
+             | `OptimizeLegibility
+             | `OptimizeSpeed ]
+            wrap -> [> `Text_Rendering ] attrib
+          val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+          val a_startOffset :
+            Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+          val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+          val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+          val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+          val a_format : string wrap -> [> `Format ] attrib
+          val a_markerUnits :
+            [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
+            [> `MarkerUnits ] attrib
+          val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+          val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+          val a_markerWidth :
+            Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+          val a_markerHeight :
+            Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+          val a_orient :
+            Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+          val a_local : string wrap -> [> `Local ] attrib
+          val a_rendering_intent :
+            [< `Absolute_colorimetric
+             | `Auto
+             | `Perceptual
+             | `Relative_colorimetric
+             | `Saturation ]
+            wrap -> [> `Rendering_Indent ] attrib
+          val a_gradientUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [ `GradientUnits ] attrib
+          val a_gradientTransform :
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+          val a_spreadMethod :
+            [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
+          val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+          val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+          val a_offset :
+            [< `Number of Svg_types.number
+             | `Percentage of Svg_types.percentage ]
+            wrap -> [> `Offset ] attrib
+          val a_patternUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PatternUnits ] attrib
+          val a_patternContentUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PatternContentUnits ] attrib
+          val a_patternTransform :
+            Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+          val a_clipPathUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `ClipPathUnits ] attrib
+          val a_maskUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `MaskUnits ] attrib
+          val a_maskContentUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `MaskContentUnits ] attrib
+          val a_primitiveUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PrimitiveUnits ] attrib
+          val a_filterRes :
+            Svg_types.number_optional_number wrap ->
+            [> `FilterResUnits ] attrib
+          val a_result : string wrap -> [> `Result ] attrib
+          val a_in :
+            [< `BackgroundAlpha
+             | `BackgroundImage
+             | `FillPaint
+             | `Ref of string
+             | `SourceAlpha
+             | `SourceGraphic
+             | `StrokePaint ]
+            wrap -> [> `In ] attrib
+          val a_in2 :
+            [< `BackgroundAlpha
+             | `BackgroundImage
+             | `FillPaint
+             | `Ref of string
+             | `SourceAlpha
+             | `SourceGraphic
+             | `StrokePaint ]
+            wrap -> [> `In2 ] attrib
+          val a_azimuth : float wrap -> [> `Azimuth ] attrib
+          val a_elevation : float wrap -> [> `Elevation ] attrib
+          val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
+          val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
+          val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
+          val a_specularExponent :
+            float wrap -> [> `SpecularExponent ] attrib
+          val a_specularConstant :
+            float wrap -> [> `SpecularConstant ] attrib
+          val a_limitingConeAngle :
+            float wrap -> [> `LimitingConeAngle ] attrib
+          val a_mode :
+            [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
+            [> `Mode ] attrib
+          val a_feColorMatrix_type :
+            [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ] wrap ->
+            [> `Typefecolor ] attrib
+          val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
+          val a_transfer_type :
+            [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
+            [> `Type_transfert ] attrib
+          val a_tableValues :
+            Svg_types.numbers wrap -> [> `TableValues ] attrib
+          val a_intercept : Svg_types.number wrap -> [> `Intercept ] attrib
+          val a_amplitude : Svg_types.number wrap -> [> `Amplitude ] attrib
+          val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
+          val a_transfer_offset :
+            Svg_types.number wrap -> [> `Offset_transfer ] attrib
+          val a_feComposite_operator :
+            [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
+            [> `OperatorComposite ] attrib
+          val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
+          val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
+          val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
+          val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
+          val a_order :
+            Svg_types.number_optional_number wrap -> [> `Order ] attrib
+          val a_kernelMatrix :
+            Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
+          val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
+          val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
+          val a_kernelUnitLength :
+            Svg_types.number_optional_number wrap ->
+            [> `KernelUnitLength ] attrib
+          val a_targetX : int wrap -> [> `TargetX ] attrib
+          val a_targetY : int wrap -> [> `TargetY ] attrib
+          val a_edgeMode :
+            [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
+          val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
+          val a_surfaceScale :
+            Svg_types.number wrap -> [> `SurfaceScale ] attrib
+          val a_diffuseConstant :
+            Svg_types.number wrap -> [> `DiffuseConstant ] attrib
+          val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
+          val a_xChannelSelector :
+            [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
+          val a_yChannelSelector :
+            [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
+          val a_stdDeviation :
+            Svg_types.number_optional_number wrap ->
+            [> `StdDeviation ] attrib
+          val a_feMorphology_operator :
+            [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
+          val a_radius :
+            Svg_types.number_optional_number wrap -> [> `Radius ] attrib
+          val a_baseFrenquency :
+            Svg_types.number_optional_number wrap ->
+            [> `BaseFrequency ] attrib
+          val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
+          val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
+          val a_stitchTiles :
+            [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
+          val a_feTurbulence_type :
+            [< `FractalNoise | `Turbulence ] wrap -> [> `TypeStitch ] attrib
+          val a_xlink_show :
+            [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
+          val a_xlink_actuate :
+            [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
+            [> `Xlink_actuate ] attrib
+          val a_target : string wrap -> [> `Xlink_target ] attrib
+          val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
+          val a_attributeName : string wrap -> [> `AttributeName ] attrib
+          val a_attributeType :
+            [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
+          val a_begin : string wrap -> [> `Begin ] attrib
+          val a_dur : string wrap -> [> `Dur ] attrib
+          val a_min : string wrap -> [> `Min ] attrib
+          val a_max : string wrap -> [> `Max ] attrib
+          val a_restart :
+            [< `Always | `Never | `WhenNotActive ] wrap ->
+            [> `Restart ] attrib
+          val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
+          val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
+          val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
+          val a_animation_fill :
+            [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
+          val a_calcMode :
+            [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
+            [> `CalcMode ] attrib
+          val a_animation_values :
+            Svg_types.strings wrap -> [> `Valuesanim ] attrib
+          val a_keyTimes : Svg_types.strings wrap -> [> `KeyTimes ] attrib
+          val a_keySplines :
+            Svg_types.strings wrap -> [> `KeySplines ] attrib
+          val a_from : string wrap -> [> `From ] attrib
+          val a_to : string wrap -> [> `To ] attrib
+          val a_by : string wrap -> [> `By ] attrib
+          val a_additive : [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
+          val a_accumulate :
+            [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
+          val a_keyPoints :
+            Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
+          val a_path : string wrap -> [> `Path ] attrib
+          val a_animateTransform_type :
+            [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
+            [ `Typeanimatetransform ] attrib
+          val a_horiz_origin_x :
+            Svg_types.number wrap -> [> `HorizOriginX ] attrib
+          val a_horiz_origin_y :
+            Svg_types.number wrap -> [> `HorizOriginY ] attrib
+          val a_horiz_adv_x : Svg_types.number wrap -> [> `HorizAdvX ] attrib
+          val a_vert_origin_x :
+            Svg_types.number wrap -> [> `VertOriginX ] attrib
+          val a_vert_origin_y :
+            Svg_types.number wrap -> [> `VertOriginY ] attrib
+          val a_vert_adv_y : Svg_types.number wrap -> [> `VertAdvY ] attrib
+          val a_unicode : string wrap -> [> `Unicode ] attrib
+          val a_glyph_name : string wrap -> [> `glyphname ] attrib
+          val a_orientation : [< `H | `V ] wrap -> [> `Orientation ] attrib
+          val a_arabic_form :
+            [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
+            [> `Arabicform ] attrib
+          val a_lang : string wrap -> [> `Lang ] attrib
+          val a_u1 : string wrap -> [> `U1 ] attrib
+          val a_u2 : string wrap -> [> `U2 ] attrib
+          val a_g1 : string wrap -> [> `G1 ] attrib
+          val a_g2 : string wrap -> [> `G2 ] attrib
+          val a_k : string wrap -> [> `K ] attrib
+          val a_font_family : string wrap -> [> `Font_Family ] attrib
+          val a_font_style : string wrap -> [> `Font_Style ] attrib
+          val a_font_variant : string wrap -> [> `Font_Variant ] attrib
+          val a_font_weight : string wrap -> [> `Font_Weight ] attrib
+          val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
+          val a_font_size : string wrap -> [> `Font_Size ] attrib
+          val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
+          val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
+          val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
+          val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
+          val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
+          val a_cap_height : Svg_types.number wrap -> [> `CapHeight ] attrib
+          val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
+          val a_accent_height :
+            Svg_types.number wrap -> [> `AccentHeight ] attrib
+          val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
+          val a_widths : string wrap -> [> `Widths ] attrib
+          val a_bbox : string wrap -> [> `Bbox ] attrib
+          val a_ideographic :
+            Svg_types.number wrap -> [> `Ideographic ] attrib
+          val a_alphabetic : Svg_types.number wrap -> [> `Alphabetic ] attrib
+          val a_mathematical :
+            Svg_types.number wrap -> [> `Mathematical ] attrib
+          val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
+          val a_videographic :
+            Svg_types.number wrap -> [> `VIdeographic ] attrib
+          val a_v_alphabetic :
+            Svg_types.number wrap -> [> `VAlphabetic ] attrib
+          val a_v_mathematical :
+            Svg_types.number wrap -> [> `VMathematical ] attrib
+          val a_v_hanging : Svg_types.number wrap -> [> `VHanging ] attrib
+          val a_underline_position :
+            Svg_types.number wrap -> [> `UnderlinePosition ] attrib
+          val a_underline_thickness :
+            Svg_types.number wrap -> [> `UnderlineThickness ] attrib
+          val a_strikethrough_position :
+            Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
+          val a_strikethrough_thickness :
+            Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
+          val a_overline_position :
+            Svg_types.number wrap -> [> `OverlinePosition ] attrib
+          val a_overline_thickness :
+            Svg_types.number wrap -> [> `OverlineThickness ] attrib
+          val a_string : string wrap -> [> `String ] attrib
+          val a_name : string wrap -> [> `Name ] attrib
+          val a_alignment_baseline :
+            [< `After_edge
+             | `Alphabetic
+             | `Auto
+             | `Baseline
+             | `Before_edge
+             | `Central
+             | `Hanging
+             | `Ideographic
+             | `Inherit
+             | `Mathematical
+             | `Middle
+             | `Text_after_edge
+             | `Text_before_edge ]
+            wrap -> [> `Alignment_Baseline ] attrib
+          val a_dominant_baseline :
+            [< `Alphabetic
+             | `Auto
+             | `Central
+             | `Hanging
+             | `Ideographic
+             | `Inherit
+             | `Mathematical
+             | `Middle
+             | `No_change
+             | `Reset_size
+             | `Text_after_edge
+             | `Text_before_edge
+             | `Use_script ]
+            wrap -> [> `Dominant_Baseline ] attrib
+          val a_stop_color : Svg_types.color wrap -> [> `Stop_Color ] attrib
+          val a_stop_opacity :
+            Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+          val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+          val a_stroke_width :
+            Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+          val a_stroke_linecap :
+            [< `Butt | `Round | `Square ] wrap -> [> `Stroke_Linecap ] attrib
+          val a_stroke_linejoin :
+            [< `Bever | `Miter | `Round ] wrap ->
+            [> `Stroke_Linejoin ] attrib
+          val a_stroke_miterlimit :
+            float wrap -> [> `Stroke_Miterlimit ] attrib
+          val a_stroke_dasharray :
+            Svg_types.Unit.length list wrap -> [> `Stroke_Dasharray ] attrib
+          val a_stroke_dashoffset :
+            Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+          val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
+          val txt : string wrap -> [> Svg_types.txt ] elt
+          val svg :
+            ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
+             [> Svg_types.svg ])
+            star
+          val g :
+            ([< Svg_types.g_attr ], [< Svg_types.g_content ],
+             [> Svg_types.g ])
+            star
+          val defs :
+            ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
+             [> Svg_types.defs ])
+            star
+          val desc :
+            ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
+             [> Svg_types.desc ])
+            unary
+          val title :
+            ([< Svg_types.title_attr ], [< Svg_types.title_content ],
+             [> Svg_types.title ])
+            unary
+          val symbol :
+            ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
+             [> Svg_types.symbol ])
+            star
+          val use :
+            ([< Svg_types.use_attr ], [< Svg_types.use_content ],
+             [> Svg_types.use ])
+            star
+          val image :
+            ([< Svg_types.image_attr ], [< Svg_types.image_content ],
+             [> Svg_types.image ])
+            star
+          val switch :
+            ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
+             [> Svg_types.switch ])
+            star
+          val style :
+            ([< Svg_types.style_attr ], [< Svg_types.style_content ],
+             [> Svg_types.style ])
+            unary
+          val path :
+            ([< Svg_types.path_attr ], [< Svg_types.path_content ],
+             [> Svg_types.path ])
+            star
+          val rect :
+            ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
+             [> Svg_types.rect ])
+            star
+          val circle :
+            ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
+             [> Svg_types.circle ])
+            star
+          val ellipse :
+            ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
+             [> Svg_types.ellipse ])
+            star
+          val line :
+            ([< Svg_types.line_attr ], [< Svg_types.line_content ],
+             [> Svg_types.line ])
+            star
+          val polyline :
+            ([< Svg_types.polyline_attr ], [< Svg_types.polyline_content ],
+             [> Svg_types.polyline ])
+            star
+          val polygon :
+            ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
+             [> Svg_types.polygon ])
+            star
+          val text :
+            ([< Svg_types.text_attr ], [< Svg_types.text_content ],
+             [> Svg_types.text ])
+            star
+          val tspan :
+            ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
+             [> Svg_types.tspan ])
+            star
+          val tref :
+            ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
+             [> Svg_types.tref ])
+            star
+          val textPath :
+            ([< Svg_types.textpath_attr ], [< Svg_types.textpath_content ],
+             [> Svg_types.textpath ])
+            star
+          val altGlyph :
+            ([< Svg_types.altglyph_attr ], [< Svg_types.altglyph_content ],
+             [> Svg_types.altglyph ])
+            unary
+          type altglyphdef_content =
+              [ `Item of Svg_types.altglyphitem elt list
+              | `Ref of Svg_types.glyphref elt list ]
+          val altGlyphDef :
+            ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
+             [> Svg_types.altglyphdef ])
+            unary
+          val altGlyphItem :
+            ([< Svg_types.altglyphitem_attr ],
+             [< Svg_types.altglyphitem_content ],
+             [> Svg_types.altglyphitem ])
+            star
+          val glyphRef :
+            ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ]) nullary
+          val marker :
+            ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
+             [> Svg_types.marker ])
+            star
+          val color_profile :
+            ([< Svg_types.colorprofile_attr ],
+             [< Svg_types.colorprofile_content ],
+             [> Svg_types.colorprofile ])
+            star
+          val linearGradient :
+            ([< Svg_types.lineargradient_attr ],
+             [< Svg_types.lineargradient_content ],
+             [> Svg_types.lineargradient ])
+            star
+          val radialGradient :
+            ([< Svg_types.radialgradient_attr ],
+             [< Svg_types.radialgradient_content ],
+             [> Svg_types.radialgradient ])
+            star
+          val stop :
+            ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
+             [> Svg_types.stop ])
+            star
+          val pattern :
+            ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
+             [> Svg_types.pattern ])
+            star
+          val clipPath :
+            ([< Svg_types.clippath_attr ], [< Svg_types.clippath_content ],
+             [> Svg_types.clippath ])
+            star
+          val filter :
+            ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
+             [> Svg_types.filter ])
+            star
+          val feDistantLight :
+            ([< Svg_types.fedistantlight_attr ],
+             [< Svg_types.fedistantlight_content ],
+             [> Svg_types.fedistantlight ])
+            star
+          val fePointLight :
+            ([< Svg_types.fepointlight_attr ],
+             [< Svg_types.fepointlight_content ],
+             [> Svg_types.fepointlight ])
+            star
+          val feSpotLight :
+            ([< Svg_types.fespotlight_attr ],
+             [< Svg_types.fespotlight_content ], [> Svg_types.fespotlight ])
+            star
+          val feBlend :
+            ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
+             [> Svg_types.feblend ])
+            star
+          val feColorMatrix :
+            ([< Svg_types.fecolormatrix_attr ],
+             [< Svg_types.fecolormatrix_content ],
+             [> Svg_types.fecolormatrix ])
+            star
+          val feComponentTransfer :
+            ([< Svg_types.fecomponenttransfer_attr ],
+             [< Svg_types.fecomponenttransfer_content ],
+             [> Svg_types.fecomponenttransfer ])
+            star
+          val feFuncA :
+            ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
+             [> Svg_types.fefunca ])
+            star
+          val feFuncG :
+            ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
+             [> Svg_types.fefuncg ])
+            star
+          val feFuncB :
+            ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
+             [> Svg_types.fefuncb ])
+            star
+          val feFuncR :
+            ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
+             [> Svg_types.fefuncr ])
+            star
+          val feComposite :
+            ([< Svg_types.fecomposite_attr ],
+             [< Svg_types.fecomposite_content ], [> Svg_types.fecomposite ])
+            star
+          val feConvolveMatrix :
+            ([< Svg_types.feconvolvematrix_attr ],
+             [< Svg_types.feconvolvematrix_content ],
+             [> Svg_types.feconvolvematrix ])
+            star
+          val feDiffuseLighting :
+            ([< Svg_types.fediffuselighting_attr ],
+             [< Svg_types.fediffuselighting_content ],
+             [> Svg_types.fediffuselighting ])
+            star
+          val feDisplacementMap :
+            ([< Svg_types.fedisplacementmap_attr ],
+             [< Svg_types.fedisplacementmap_content ],
+             [> Svg_types.fedisplacementmap ])
+            star
+          val feFlood :
+            ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
+             [> Svg_types.feflood ])
+            star
+          val feGaussianBlur :
+            ([< Svg_types.fegaussianblur_attr ],
+             [< Svg_types.fegaussianblur_content ],
+             [> Svg_types.fegaussianblur ])
+            star
+          val feImage :
+            ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
+             [> Svg_types.feimage ])
+            star
+          val feMerge :
+            ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
+             [> Svg_types.femerge ])
+            star
+          val feMorphology :
+            ([< Svg_types.femorphology_attr ],
+             [< Svg_types.femorphology_content ],
+             [> Svg_types.femorphology ])
+            star
+          val feOffset :
+            ([< Svg_types.feoffset_attr ], [< Svg_types.feoffset_content ],
+             [> Svg_types.feoffset ])
+            star
+          val feSpecularLighting :
+            ([< Svg_types.fespecularlighting_attr ],
+             [< Svg_types.fespecularlighting_content ],
+             [> Svg_types.fespecularlighting ])
+            star
+          val feTile :
+            ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
+             [> Svg_types.fetile ])
+            star
+          val feTurbulence :
+            ([< Svg_types.feturbulence_attr ],
+             [< Svg_types.feturbulence_content ],
+             [> Svg_types.feturbulence ])
+            star
+          val cursor :
+            ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
+             [> Svg_types.cursor ])
+            star
+          val a :
+            ([< Svg_types.a_attr ], [< Svg_types.a_content ],
+             [> Svg_types.a ])
+            star
+          val view :
+            ([< Svg_types.view_attr ], [< Svg_types.view_content ],
+             [> Svg_types.view ])
+            star
+          val script :
+            ([< Svg_types.script_attr ], [< Svg_types.script_content ],
+             [> Svg_types.script ])
+            unary
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
+          val set :
+            ([< Svg_types.set_attr ], [< Svg_types.set_content ],
+             [> Svg_types.set ])
+            star
+          val animateMotion :
+            ([< Svg_types.animatemotion_attr ],
+             [< Svg_types.animatemotion_content ],
+             [> Svg_types.animatemotion ])
+            star
+          val mpath :
+            ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
+             [> Svg_types.mpath ])
+            star
+          val animateColor :
+            ([< Svg_types.animatecolor_attr ],
+             [< Svg_types.animatecolor_content ],
+             [> Svg_types.animatecolor ])
+            star
+          val animateTransform :
+            ([< Svg_types.animatetransform_attr ],
+             [< Svg_types.animatetransform_content ],
+             [> Svg_types.animatetransform ])
+            star
+          val font :
+            ([< Svg_types.font_attr ], [< Svg_types.font_content ],
+             [> Svg_types.font ])
+            star
+          val glyph :
+            ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
+             [> Svg_types.glyph ])
+            star
+          val missing_glyph :
+            ([< Svg_types.missingglyph_attr ],
+             [< Svg_types.missingglyph_content ],
+             [> Svg_types.missingglyph ])
+            star
+          val hkern :
+            ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
+          val vkern :
+            ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
+          val font_face :
+            ([< Svg_types.font_face_attr ], [> Svg_types.font_face ]) nullary
+          val font_face_src :
+            ([< Svg_types.font_face_src_attr ],
+             [< Svg_types.font_face_src_content ],
+             [> Svg_types.font_face_src ])
+            star
+          val font_face_uri :
+            ([< Svg_types.font_face_uri_attr ],
+             [< Svg_types.font_face_uri_content ],
+             [> Svg_types.font_face_uri ])
+            star
+          val font_face_format :
+            ([< Svg_types.font_face_format_attr ],
+             [> Svg_types.font_face_format ])
+            nullary
+          val font_face_name :
+            ([< Svg_types.font_face_name_attr ],
+             [> Svg_types.font_face_name ])
+            nullary
+          val metadata :
+            ?a:Svg_types.metadata_attr attrib list ->
+            Xml.elt list_wrap -> [> Svg_types.metadata ] elt
+          val foreignObject :
+            ?a:Svg_types.foreignobject_attr attrib list ->
+            Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+          val pcdata : string wrap -> [> Svg_types.txt ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
+          val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+          val tot : Xml.elt -> 'a elt
+          val totl : Xml.elt list_wrap -> 'a elt list_wrap
+          val toelt : 'a elt -> Xml.elt
+          val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+          val doc_toelt : doc -> Xml.elt
+          val to_xmlattribs : 'a attrib list -> Xml.attrib list
+          val to_attrib : Xml.attrib -> 'a attrib
+          module Unsafe :
+            sig
+              val data : string wrap -> 'a elt
+              val node :
+                string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+              val coerce_elt : 'a elt -> 'b elt
+              val string_attrib : string -> string wrap -> 'a attrib
+              val float_attrib : string -> float wrap -> 'a attrib
+              val int_attrib : string -> int wrap -> 'a attrib
+              val uri_attrib : string -> uri wrap -> 'a attrib
+              val space_sep_attrib : string -> string list wrap -> 'a attrib
+              val comma_sep_attrib : string -> string list wrap -> 'a attrib
+            end
+          val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+          val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+          val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+          val a_onend : string -> [> `OnEnd ] Raw'.attrib
+          val a_onerror : string -> [> `OnError ] Raw'.attrib
+          val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+          val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+          val a_onload : string -> [> `OnLoad ] Raw'.attrib
+          val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+          val a_onresize : string -> [> `OnResize ] Raw'.attrib
+          val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+          val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+          val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+          val a_onclick : string -> [> `OnClick ] Raw'.attrib
+          val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+          val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+          val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+          val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+          val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+          val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+          val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+          val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+          val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+        end
+      type 'a elt = 'a elt
+      type doc = [ `Svg ] elt
+      type 'a attrib = 'a attrib
+      module Xml :
+        sig
+          module W :
+            sig
+              type 'a t = 'a Xml.W.t
+              val return : 'a -> 'a t
+              type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+              val fmap : ('a, 'b) ft -> 'a t -> 'b t
+              type 'a tlist = 'a Xml.W.tlist
+              val nil : unit -> 'a tlist
+              val singleton : 'a t -> 'a tlist
+              val cons : 'a t -> 'a tlist -> 'a tlist
+              val append : 'a tlist -> 'a tlist -> 'a tlist
+              val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+            end
+          type 'a wrap = 'a W.t
+          type 'a list_wrap = 'a W.tlist
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) W.ft
+          val uri_of_string : (string, uri) W.ft
+          type aname = string
+          type event_handler = Xml.event_handler
+          type mouse_event_handler = Xml.mouse_event_handler
+          type keyboard_event_handler = Xml.keyboard_event_handler
+          type touch_event_handler = Xml.touch_event_handler
+          type attrib = Xml.attrib
+          val float_attrib : aname -> float wrap -> attrib
+          val int_attrib : aname -> int wrap -> attrib
+          val string_attrib : aname -> string wrap -> attrib
+          val space_sep_attrib : aname -> string list wrap -> attrib
+          val comma_sep_attrib : aname -> string list wrap -> attrib
+          val event_handler_attrib : aname -> event_handler -> attrib
+          val mouse_event_handler_attrib :
+            aname -> mouse_event_handler -> attrib
+          val keyboard_event_handler_attrib :
+            aname -> keyboard_event_handler -> attrib
+          val touch_event_handler_attrib :
+            aname -> touch_event_handler -> attrib
+          val uri_attrib : aname -> uri wrap -> attrib
+          val uris_attrib : aname -> uri list wrap -> attrib
+          type elt = Xml.elt
+          type ename = string
+          val empty : unit -> elt
+          val comment : string -> elt
+          val pcdata : string wrap -> elt
+          val encodedpcdata : string wrap -> elt
+          val entity : string -> elt
+          val leaf : ?a:attrib list -> ename -> elt
+          val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+          val cdata : string -> elt
+          val cdata_script : string -> elt
+          val cdata_style : string -> elt
+        end
+      type 'a wrap = 'a Xml.W.t
+      type 'a list_wrap = 'a Xml.W.tlist
+      type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+      type ('a, 'b, 'c) unary = ?a:'a attrib list -> 'b elt wrap -> 'c elt
+      type ('a, 'b, 'c) star =
+          ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+      module Info : Xml_sigs.Info
+      type uri = Xml.uri
+      val string_of_uri : (uri, string) Xml.W.ft
+      val uri_of_string : (string, uri) Xml.W.ft
+      val a_version : string wrap -> [> `Version ] attrib
+      val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+      val a_x : Svg_types.coord wrap -> [> `X ] attrib
+      val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+      val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+      val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
+      val a_preserveAspectRatio :
+        string wrap -> [> `PreserveAspectRatio ] attrib
+      val a_contentScriptType : string wrap -> [> `ContentScriptType ] attrib
+      val a_contentStyleType : string wrap -> [> `ContentStyleType ] attrib
+      val a_zoomAndPan :
+        [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+      val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+      val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+      val a_requiredFeatures :
+        Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+      val a_requiredExtensions :
+        Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+      val a_systemLanguage :
+        Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+      val a_externalRessourcesRequired :
+        bool wrap -> [> `ExternalRessourcesRequired ] attrib
+      val a_id : string wrap -> [> `Id ] attrib
+      val a_user_data : string -> string wrap -> [> `User_data ] attrib
+      val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+      val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+      val a_xml_space :
+        [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+      val a_type : string wrap -> [> `Type ] attrib
+      val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+      val a_xlink_title : string wrap -> [> `Title ] attrib
+      val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+      val a_style : string wrap -> [> `Style ] attrib
+      val a_transform : Svg_types.transforms wrap -> [> `Transform ] attrib
+      val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+      val a_d : string wrap -> [> `D ] attrib
+      val a_pathLength : float wrap -> [> `PathLength ] attrib
+      val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+      val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+      val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+      val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+      val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+      val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+      val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+      val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+      val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+      val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+      val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+      val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+      val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+      val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+      val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+      val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+      val a_lengthAdjust :
+        [< `Spacing | `SpacingAndGlyphs ] wrap -> [> `LengthAdjust ] attrib
+      val a_textLength :
+        Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+      val a_text_anchor :
+        [< `End | `Inherit | `Middle | `Start ] wrap ->
+        [> `Text_Anchor ] attrib
+      val a_text_decoration :
+        [< `Blink | `Inherit | `Line_through | `None | `Overline | `Underline
+        ] wrap -> [> `Text_Decoration ] attrib
+      val a_text_rendering :
+        [< `Auto
+         | `GeometricPrecision
+         | `Inherit
+         | `OptimizeLegibility
+         | `OptimizeSpeed ]
+        wrap -> [> `Text_Rendering ] attrib
+      val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+      val a_startOffset :
+        Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+      val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+      val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+      val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+      val a_format : string wrap -> [> `Format ] attrib
+      val a_markerUnits :
+        [< `StrokeWidth | `UserSpaceOnUse ] wrap -> [> `MarkerUnits ] attrib
+      val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+      val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+      val a_markerWidth :
+        Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+      val a_markerHeight :
+        Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+      val a_orient : Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+      val a_local : string wrap -> [> `Local ] attrib
+      val a_rendering_intent :
+        [< `Absolute_colorimetric
+         | `Auto
+         | `Perceptual
+         | `Relative_colorimetric
+         | `Saturation ]
+        wrap -> [> `Rendering_Indent ] attrib
+      val a_gradientUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [ `GradientUnits ] attrib
+      val a_gradientTransform :
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+      val a_spreadMethod :
+        [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
+      val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+      val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+      val a_offset :
+        [< `Number of Svg_types.number | `Percentage of Svg_types.percentage
+        ] wrap -> [> `Offset ] attrib
+      val a_patternUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PatternUnits ] attrib
+      val a_patternContentUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PatternContentUnits ] attrib
+      val a_patternTransform :
+        Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+      val a_clipPathUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `ClipPathUnits ] attrib
+      val a_maskUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `MaskUnits ] attrib
+      val a_maskContentUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `MaskContentUnits ] attrib
+      val a_primitiveUnits :
+        [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+        [> `PrimitiveUnits ] attrib
+      val a_filterRes :
+        Svg_types.number_optional_number wrap -> [> `FilterResUnits ] attrib
       val a_result : string wrap -> [> `Result ] attrib
       val a_in :
         [< `BackgroundAlpha
@@ -1148,6 +1995,7 @@
       val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
       val a_animation_fill :
         [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
       val a_calcMode :
         [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
         [> `CalcMode ] attrib
@@ -1546,9 +2394,9 @@
         ([< Svg_types.script_attr ], [< Svg_types.script_content ],
          [> Svg_types.script ])
         unary
-      val animation :
-        ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-         [> Svg_types.animation ])
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
         star
       val set :
         ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -1609,6 +2457,10 @@
         ?a:Svg_types.foreignobject_attr attrib list ->
         Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
       val pcdata : string wrap -> [> Svg_types.txt ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
       val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
       val tot : Xml.elt -> 'a elt
       val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -1631,9 +2483,857 @@
           val space_sep_attrib : string -> string list wrap -> 'a attrib
           val comma_sep_attrib : string -> string list wrap -> 'a attrib
         end
-    end
-  module D :
-    sig
+    end
+  module D :
+    sig
+      module Raw' :
+        sig
+          type 'a elt = 'a elt
+          type doc = [ `Svg ] elt
+          type 'a attrib = 'a attrib
+          module Xml :
+            sig
+              module W :
+                sig
+                  type 'a t = 'a Xml.W.t
+                  val return : 'a -> 'a t
+                  type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                  type 'a tlist = 'a Xml.W.tlist
+                  val nil : unit -> 'a tlist
+                  val singleton : 'a t -> 'a tlist
+                  val cons : 'a t -> 'a tlist -> 'a tlist
+                  val append : 'a tlist -> 'a tlist -> 'a tlist
+                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                end
+              type 'a wrap = 'a W.t
+              type 'a list_wrap = 'a W.tlist
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) W.ft
+              val uri_of_string : (string, uri) W.ft
+              type aname = string
+              type event_handler = Xml.event_handler
+              type mouse_event_handler = Xml.mouse_event_handler
+              type keyboard_event_handler = Xml.keyboard_event_handler
+              type touch_event_handler = Xml.touch_event_handler
+              type attrib = Xml.attrib
+              val float_attrib : aname -> float wrap -> attrib
+              val int_attrib : aname -> int wrap -> attrib
+              val string_attrib : aname -> string wrap -> attrib
+              val space_sep_attrib : aname -> string list wrap -> attrib
+              val comma_sep_attrib : aname -> string list wrap -> attrib
+              val event_handler_attrib : aname -> event_handler -> attrib
+              val mouse_event_handler_attrib :
+                aname -> mouse_event_handler -> attrib
+              val keyboard_event_handler_attrib :
+                aname -> keyboard_event_handler -> attrib
+              val touch_event_handler_attrib :
+                aname -> touch_event_handler -> attrib
+              val uri_attrib : aname -> uri wrap -> attrib
+              val uris_attrib : aname -> uri list wrap -> attrib
+              type elt = Xml.elt
+              type ename = string
+              val empty : unit -> elt
+              val comment : string -> elt
+              val pcdata : string wrap -> elt
+              val encodedpcdata : string wrap -> elt
+              val entity : string -> elt
+              val leaf : ?a:attrib list -> ename -> elt
+              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+              val cdata : string -> elt
+              val cdata_script : string -> elt
+              val cdata_style : string -> elt
+            end
+          type 'a wrap = 'a Xml.W.t
+          type 'a list_wrap = 'a Xml.W.tlist
+          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+          type ('a, 'b, 'c) unary =
+              ?a:'a attrib list -> 'b elt wrap -> 'c elt
+          type ('a, 'b, 'c) star =
+              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          module Info : Xml_sigs.Info
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) Xml.W.ft
+          val uri_of_string : (string, uri) Xml.W.ft
+          val a_version : string wrap -> [> `Version ] attrib
+          val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+          val a_x : Svg_types.coord wrap -> [> `X ] attrib
+          val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+          val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+          val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
+          val a_preserveAspectRatio :
+            string wrap -> [> `PreserveAspectRatio ] attrib
+          val a_contentScriptType :
+            string wrap -> [> `ContentScriptType ] attrib
+          val a_contentStyleType :
+            string wrap -> [> `ContentStyleType ] attrib
+          val a_zoomAndPan :
+            [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+          val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+          val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+          val a_requiredFeatures :
+            Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+          val a_requiredExtensions :
+            Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+          val a_systemLanguage :
+            Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+          val a_externalRessourcesRequired :
+            bool wrap -> [> `ExternalRessourcesRequired ] attrib
+          val a_id : string wrap -> [> `Id ] attrib
+          val a_user_data : string -> string wrap -> [> `User_data ] attrib
+          val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+          val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+          val a_xml_space :
+            [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+          val a_type : string wrap -> [> `Type ] attrib
+          val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+          val a_xlink_title : string wrap -> [> `Title ] attrib
+          val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+          val a_style : string wrap -> [> `Style ] attrib
+          val a_transform :
+            Svg_types.transforms wrap -> [> `Transform ] attrib
+          val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+          val a_d : string wrap -> [> `D ] attrib
+          val a_pathLength : float wrap -> [> `PathLength ] attrib
+          val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+          val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+          val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+          val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+          val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+          val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+          val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+          val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+          val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+          val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+          val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+          val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+          val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+          val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+          val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+          val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+          val a_lengthAdjust :
+            [< `Spacing | `SpacingAndGlyphs ] wrap ->
+            [> `LengthAdjust ] attrib
+          val a_textLength :
+            Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+          val a_text_anchor :
+            [< `End | `Inherit | `Middle | `Start ] wrap ->
+            [> `Text_Anchor ] attrib
+          val a_text_decoration :
+            [< `Blink
+             | `Inherit
+             | `Line_through
+             | `None
+             | `Overline
+             | `Underline ]
+            wrap -> [> `Text_Decoration ] attrib
+          val a_text_rendering :
+            [< `Auto
+             | `GeometricPrecision
+             | `Inherit
+             | `OptimizeLegibility
+             | `OptimizeSpeed ]
+            wrap -> [> `Text_Rendering ] attrib
+          val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+          val a_startOffset :
+            Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+          val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+          val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+          val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+          val a_format : string wrap -> [> `Format ] attrib
+          val a_markerUnits :
+            [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
+            [> `MarkerUnits ] attrib
+          val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+          val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+          val a_markerWidth :
+            Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+          val a_markerHeight :
+            Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+          val a_orient :
+            Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+          val a_local : string wrap -> [> `Local ] attrib
+          val a_rendering_intent :
+            [< `Absolute_colorimetric
+             | `Auto
+             | `Perceptual
+             | `Relative_colorimetric
+             | `Saturation ]
+            wrap -> [> `Rendering_Indent ] attrib
+          val a_gradientUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [ `GradientUnits ] attrib
+          val a_gradientTransform :
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+          val a_spreadMethod :
+            [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
+          val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+          val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+          val a_offset :
+            [< `Number of Svg_types.number
+             | `Percentage of Svg_types.percentage ]
+            wrap -> [> `Offset ] attrib
+          val a_patternUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PatternUnits ] attrib
+          val a_patternContentUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PatternContentUnits ] attrib
+          val a_patternTransform :
+            Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+          val a_clipPathUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `ClipPathUnits ] attrib
+          val a_maskUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `MaskUnits ] attrib
+          val a_maskContentUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `MaskContentUnits ] attrib
+          val a_primitiveUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PrimitiveUnits ] attrib
+          val a_filterRes :
+            Svg_types.number_optional_number wrap ->
+            [> `FilterResUnits ] attrib
+          val a_result : string wrap -> [> `Result ] attrib
+          val a_in :
+            [< `BackgroundAlpha
+             | `BackgroundImage
+             | `FillPaint
+             | `Ref of string
+             | `SourceAlpha
+             | `SourceGraphic
+             | `StrokePaint ]
+            wrap -> [> `In ] attrib
+          val a_in2 :
+            [< `BackgroundAlpha
+             | `BackgroundImage
+             | `FillPaint
+             | `Ref of string
+             | `SourceAlpha
+             | `SourceGraphic
+             | `StrokePaint ]
+            wrap -> [> `In2 ] attrib
+          val a_azimuth : float wrap -> [> `Azimuth ] attrib
+          val a_elevation : float wrap -> [> `Elevation ] attrib
+          val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
+          val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
+          val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
+          val a_specularExponent :
+            float wrap -> [> `SpecularExponent ] attrib
+          val a_specularConstant :
+            float wrap -> [> `SpecularConstant ] attrib
+          val a_limitingConeAngle :
+            float wrap -> [> `LimitingConeAngle ] attrib
+          val a_mode :
+            [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
+            [> `Mode ] attrib
+          val a_feColorMatrix_type :
+            [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ] wrap ->
+            [> `Typefecolor ] attrib
+          val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
+          val a_transfer_type :
+            [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
+            [> `Type_transfert ] attrib
+          val a_tableValues :
+            Svg_types.numbers wrap -> [> `TableValues ] attrib
+          val a_intercept : Svg_types.number wrap -> [> `Intercept ] attrib
+          val a_amplitude : Svg_types.number wrap -> [> `Amplitude ] attrib
+          val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
+          val a_transfer_offset :
+            Svg_types.number wrap -> [> `Offset_transfer ] attrib
+          val a_feComposite_operator :
+            [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
+            [> `OperatorComposite ] attrib
+          val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
+          val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
+          val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
+          val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
+          val a_order :
+            Svg_types.number_optional_number wrap -> [> `Order ] attrib
+          val a_kernelMatrix :
+            Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
+          val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
+          val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
+          val a_kernelUnitLength :
+            Svg_types.number_optional_number wrap ->
+            [> `KernelUnitLength ] attrib
+          val a_targetX : int wrap -> [> `TargetX ] attrib
+          val a_targetY : int wrap -> [> `TargetY ] attrib
+          val a_edgeMode :
+            [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
+          val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
+          val a_surfaceScale :
+            Svg_types.number wrap -> [> `SurfaceScale ] attrib
+          val a_diffuseConstant :
+            Svg_types.number wrap -> [> `DiffuseConstant ] attrib
+          val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
+          val a_xChannelSelector :
+            [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
+          val a_yChannelSelector :
+            [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
+          val a_stdDeviation :
+            Svg_types.number_optional_number wrap ->
+            [> `StdDeviation ] attrib
+          val a_feMorphology_operator :
+            [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
+          val a_radius :
+            Svg_types.number_optional_number wrap -> [> `Radius ] attrib
+          val a_baseFrenquency :
+            Svg_types.number_optional_number wrap ->
+            [> `BaseFrequency ] attrib
+          val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
+          val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
+          val a_stitchTiles :
+            [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
+          val a_feTurbulence_type :
+            [< `FractalNoise | `Turbulence ] wrap -> [> `TypeStitch ] attrib
+          val a_xlink_show :
+            [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
+          val a_xlink_actuate :
+            [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
+            [> `Xlink_actuate ] attrib
+          val a_target : string wrap -> [> `Xlink_target ] attrib
+          val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
+          val a_attributeName : string wrap -> [> `AttributeName ] attrib
+          val a_attributeType :
+            [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
+          val a_begin : string wrap -> [> `Begin ] attrib
+          val a_dur : string wrap -> [> `Dur ] attrib
+          val a_min : string wrap -> [> `Min ] attrib
+          val a_max : string wrap -> [> `Max ] attrib
+          val a_restart :
+            [< `Always | `Never | `WhenNotActive ] wrap ->
+            [> `Restart ] attrib
+          val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
+          val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
+          val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
+          val a_animation_fill :
+            [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
+          val a_calcMode :
+            [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
+            [> `CalcMode ] attrib
+          val a_animation_values :
+            Svg_types.strings wrap -> [> `Valuesanim ] attrib
+          val a_keyTimes : Svg_types.strings wrap -> [> `KeyTimes ] attrib
+          val a_keySplines :
+            Svg_types.strings wrap -> [> `KeySplines ] attrib
+          val a_from : string wrap -> [> `From ] attrib
+          val a_to : string wrap -> [> `To ] attrib
+          val a_by : string wrap -> [> `By ] attrib
+          val a_additive : [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
+          val a_accumulate :
+            [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
+          val a_keyPoints :
+            Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
+          val a_path : string wrap -> [> `Path ] attrib
+          val a_animateTransform_type :
+            [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
+            [ `Typeanimatetransform ] attrib
+          val a_horiz_origin_x :
+            Svg_types.number wrap -> [> `HorizOriginX ] attrib
+          val a_horiz_origin_y :
+            Svg_types.number wrap -> [> `HorizOriginY ] attrib
+          val a_horiz_adv_x : Svg_types.number wrap -> [> `HorizAdvX ] attrib
+          val a_vert_origin_x :
+            Svg_types.number wrap -> [> `VertOriginX ] attrib
+          val a_vert_origin_y :
+            Svg_types.number wrap -> [> `VertOriginY ] attrib
+          val a_vert_adv_y : Svg_types.number wrap -> [> `VertAdvY ] attrib
+          val a_unicode : string wrap -> [> `Unicode ] attrib
+          val a_glyph_name : string wrap -> [> `glyphname ] attrib
+          val a_orientation : [< `H | `V ] wrap -> [> `Orientation ] attrib
+          val a_arabic_form :
+            [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
+            [> `Arabicform ] attrib
+          val a_lang : string wrap -> [> `Lang ] attrib
+          val a_u1 : string wrap -> [> `U1 ] attrib
+          val a_u2 : string wrap -> [> `U2 ] attrib
+          val a_g1 : string wrap -> [> `G1 ] attrib
+          val a_g2 : string wrap -> [> `G2 ] attrib
+          val a_k : string wrap -> [> `K ] attrib
+          val a_font_family : string wrap -> [> `Font_Family ] attrib
+          val a_font_style : string wrap -> [> `Font_Style ] attrib
+          val a_font_variant : string wrap -> [> `Font_Variant ] attrib
+          val a_font_weight : string wrap -> [> `Font_Weight ] attrib
+          val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
+          val a_font_size : string wrap -> [> `Font_Size ] attrib
+          val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
+          val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
+          val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
+          val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
+          val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
+          val a_cap_height : Svg_types.number wrap -> [> `CapHeight ] attrib
+          val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
+          val a_accent_height :
+            Svg_types.number wrap -> [> `AccentHeight ] attrib
+          val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
+          val a_widths : string wrap -> [> `Widths ] attrib
+          val a_bbox : string wrap -> [> `Bbox ] attrib
+          val a_ideographic :
+            Svg_types.number wrap -> [> `Ideographic ] attrib
+          val a_alphabetic : Svg_types.number wrap -> [> `Alphabetic ] attrib
+          val a_mathematical :
+            Svg_types.number wrap -> [> `Mathematical ] attrib
+          val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
+          val a_videographic :
+            Svg_types.number wrap -> [> `VIdeographic ] attrib
+          val a_v_alphabetic :
+            Svg_types.number wrap -> [> `VAlphabetic ] attrib
+          val a_v_mathematical :
+            Svg_types.number wrap -> [> `VMathematical ] attrib
+          val a_v_hanging : Svg_types.number wrap -> [> `VHanging ] attrib
+          val a_underline_position :
+            Svg_types.number wrap -> [> `UnderlinePosition ] attrib
+          val a_underline_thickness :
+            Svg_types.number wrap -> [> `UnderlineThickness ] attrib
+          val a_strikethrough_position :
+            Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
+          val a_strikethrough_thickness :
+            Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
+          val a_overline_position :
+            Svg_types.number wrap -> [> `OverlinePosition ] attrib
+          val a_overline_thickness :
+            Svg_types.number wrap -> [> `OverlineThickness ] attrib
+          val a_string : string wrap -> [> `String ] attrib
+          val a_name : string wrap -> [> `Name ] attrib
+          val a_alignment_baseline :
+            [< `After_edge
+             | `Alphabetic
+             | `Auto
+             | `Baseline
+             | `Before_edge
+             | `Central
+             | `Hanging
+             | `Ideographic
+             | `Inherit
+             | `Mathematical
+             | `Middle
+             | `Text_after_edge
+             | `Text_before_edge ]
+            wrap -> [> `Alignment_Baseline ] attrib
+          val a_dominant_baseline :
+            [< `Alphabetic
+             | `Auto
+             | `Central
+             | `Hanging
+             | `Ideographic
+             | `Inherit
+             | `Mathematical
+             | `Middle
+             | `No_change
+             | `Reset_size
+             | `Text_after_edge
+             | `Text_before_edge
+             | `Use_script ]
+            wrap -> [> `Dominant_Baseline ] attrib
+          val a_stop_color : Svg_types.color wrap -> [> `Stop_Color ] attrib
+          val a_stop_opacity :
+            Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+          val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+          val a_stroke_width :
+            Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+          val a_stroke_linecap :
+            [< `Butt | `Round | `Square ] wrap -> [> `Stroke_Linecap ] attrib
+          val a_stroke_linejoin :
+            [< `Bever | `Miter | `Round ] wrap ->
+            [> `Stroke_Linejoin ] attrib
+          val a_stroke_miterlimit :
+            float wrap -> [> `Stroke_Miterlimit ] attrib
+          val a_stroke_dasharray :
+            Svg_types.Unit.length list wrap -> [> `Stroke_Dasharray ] attrib
+          val a_stroke_dashoffset :
+            Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+          val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
+          val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+          val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
+          val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
+          val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
+          val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+          val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
+          val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
+          val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+          val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
+          val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+          val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+          val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+          val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
+          val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+          val a_onmousedown :
+            Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+          val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+          val a_onmouseover :
+            Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+          val a_onmouseout :
+            Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+          val a_onmousemove :
+            Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+          val a_ontouchstart :
+            Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+          val a_ontouchend :
+            Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+          val a_ontouchmove :
+            Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+          val a_ontouchcancel :
+            Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+          val txt : string wrap -> [> Svg_types.txt ] elt
+          val svg :
+            ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
+             [> Svg_types.svg ])
+            star
+          val g :
+            ([< Svg_types.g_attr ], [< Svg_types.g_content ],
+             [> Svg_types.g ])
+            star
+          val defs :
+            ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
+             [> Svg_types.defs ])
+            star
+          val desc :
+            ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
+             [> Svg_types.desc ])
+            unary
+          val title :
+            ([< Svg_types.title_attr ], [< Svg_types.title_content ],
+             [> Svg_types.title ])
+            unary
+          val symbol :
+            ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
+             [> Svg_types.symbol ])
+            star
+          val use :
+            ([< Svg_types.use_attr ], [< Svg_types.use_content ],
+             [> Svg_types.use ])
+            star
+          val image :
+            ([< Svg_types.image_attr ], [< Svg_types.image_content ],
+             [> Svg_types.image ])
+            star
+          val switch :
+            ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
+             [> Svg_types.switch ])
+            star
+          val style :
+            ([< Svg_types.style_attr ], [< Svg_types.style_content ],
+             [> Svg_types.style ])
+            unary
+          val path :
+            ([< Svg_types.path_attr ], [< Svg_types.path_content ],
+             [> Svg_types.path ])
+            star
+          val rect :
+            ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
+             [> Svg_types.rect ])
+            star
+          val circle :
+            ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
+             [> Svg_types.circle ])
+            star
+          val ellipse :
+            ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
+             [> Svg_types.ellipse ])
+            star
+          val line :
+            ([< Svg_types.line_attr ], [< Svg_types.line_content ],
+             [> Svg_types.line ])
+            star
+          val polyline :
+            ([< Svg_types.polyline_attr ], [< Svg_types.polyline_content ],
+             [> Svg_types.polyline ])
+            star
+          val polygon :
+            ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
+             [> Svg_types.polygon ])
+            star
+          val text :
+            ([< Svg_types.text_attr ], [< Svg_types.text_content ],
+             [> Svg_types.text ])
+            star
+          val tspan :
+            ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
+             [> Svg_types.tspan ])
+            star
+          val tref :
+            ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
+             [> Svg_types.tref ])
+            star
+          val textPath :
+            ([< Svg_types.textpath_attr ], [< Svg_types.textpath_content ],
+             [> Svg_types.textpath ])
+            star
+          val altGlyph :
+            ([< Svg_types.altglyph_attr ], [< Svg_types.altglyph_content ],
+             [> Svg_types.altglyph ])
+            unary
+          type altglyphdef_content =
+              [ `Item of Svg_types.altglyphitem elt list
+              | `Ref of Svg_types.glyphref elt list ]
+          val altGlyphDef :
+            ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
+             [> Svg_types.altglyphdef ])
+            unary
+          val altGlyphItem :
+            ([< Svg_types.altglyphitem_attr ],
+             [< Svg_types.altglyphitem_content ],
+             [> Svg_types.altglyphitem ])
+            star
+          val glyphRef :
+            ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ]) nullary
+          val marker :
+            ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
+             [> Svg_types.marker ])
+            star
+          val color_profile :
+            ([< Svg_types.colorprofile_attr ],
+             [< Svg_types.colorprofile_content ],
+             [> Svg_types.colorprofile ])
+            star
+          val linearGradient :
+            ([< Svg_types.lineargradient_attr ],
+             [< Svg_types.lineargradient_content ],
+             [> Svg_types.lineargradient ])
+            star
+          val radialGradient :
+            ([< Svg_types.radialgradient_attr ],
+             [< Svg_types.radialgradient_content ],
+             [> Svg_types.radialgradient ])
+            star
+          val stop :
+            ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
+             [> Svg_types.stop ])
+            star
+          val pattern :
+            ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
+             [> Svg_types.pattern ])
+            star
+          val clipPath :
+            ([< Svg_types.clippath_attr ], [< Svg_types.clippath_content ],
+             [> Svg_types.clippath ])
+            star
+          val filter :
+            ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
+             [> Svg_types.filter ])
+            star
+          val feDistantLight :
+            ([< Svg_types.fedistantlight_attr ],
+             [< Svg_types.fedistantlight_content ],
+             [> Svg_types.fedistantlight ])
+            star
+          val fePointLight :
+            ([< Svg_types.fepointlight_attr ],
+             [< Svg_types.fepointlight_content ],
+             [> Svg_types.fepointlight ])
+            star
+          val feSpotLight :
+            ([< Svg_types.fespotlight_attr ],
+             [< Svg_types.fespotlight_content ], [> Svg_types.fespotlight ])
+            star
+          val feBlend :
+            ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
+             [> Svg_types.feblend ])
+            star
+          val feColorMatrix :
+            ([< Svg_types.fecolormatrix_attr ],
+             [< Svg_types.fecolormatrix_content ],
+             [> Svg_types.fecolormatrix ])
+            star
+          val feComponentTransfer :
+            ([< Svg_types.fecomponenttransfer_attr ],
+             [< Svg_types.fecomponenttransfer_content ],
+             [> Svg_types.fecomponenttransfer ])
+            star
+          val feFuncA :
+            ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
+             [> Svg_types.fefunca ])
+            star
+          val feFuncG :
+            ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
+             [> Svg_types.fefuncg ])
+            star
+          val feFuncB :
+            ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
+             [> Svg_types.fefuncb ])
+            star
+          val feFuncR :
+            ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
+             [> Svg_types.fefuncr ])
+            star
+          val feComposite :
+            ([< Svg_types.fecomposite_attr ],
+             [< Svg_types.fecomposite_content ], [> Svg_types.fecomposite ])
+            star
+          val feConvolveMatrix :
+            ([< Svg_types.feconvolvematrix_attr ],
+             [< Svg_types.feconvolvematrix_content ],
+             [> Svg_types.feconvolvematrix ])
+            star
+          val feDiffuseLighting :
+            ([< Svg_types.fediffuselighting_attr ],
+             [< Svg_types.fediffuselighting_content ],
+             [> Svg_types.fediffuselighting ])
+            star
+          val feDisplacementMap :
+            ([< Svg_types.fedisplacementmap_attr ],
+             [< Svg_types.fedisplacementmap_content ],
+             [> Svg_types.fedisplacementmap ])
+            star
+          val feFlood :
+            ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
+             [> Svg_types.feflood ])
+            star
+          val feGaussianBlur :
+            ([< Svg_types.fegaussianblur_attr ],
+             [< Svg_types.fegaussianblur_content ],
+             [> Svg_types.fegaussianblur ])
+            star
+          val feImage :
+            ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
+             [> Svg_types.feimage ])
+            star
+          val feMerge :
+            ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
+             [> Svg_types.femerge ])
+            star
+          val feMorphology :
+            ([< Svg_types.femorphology_attr ],
+             [< Svg_types.femorphology_content ],
+             [> Svg_types.femorphology ])
+            star
+          val feOffset :
+            ([< Svg_types.feoffset_attr ], [< Svg_types.feoffset_content ],
+             [> Svg_types.feoffset ])
+            star
+          val feSpecularLighting :
+            ([< Svg_types.fespecularlighting_attr ],
+             [< Svg_types.fespecularlighting_content ],
+             [> Svg_types.fespecularlighting ])
+            star
+          val feTile :
+            ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
+             [> Svg_types.fetile ])
+            star
+          val feTurbulence :
+            ([< Svg_types.feturbulence_attr ],
+             [< Svg_types.feturbulence_content ],
+             [> Svg_types.feturbulence ])
+            star
+          val cursor :
+            ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
+             [> Svg_types.cursor ])
+            star
+          val a :
+            ([< Svg_types.a_attr ], [< Svg_types.a_content ],
+             [> Svg_types.a ])
+            star
+          val view :
+            ([< Svg_types.view_attr ], [< Svg_types.view_content ],
+             [> Svg_types.view ])
+            star
+          val script :
+            ([< Svg_types.script_attr ], [< Svg_types.script_content ],
+             [> Svg_types.script ])
+            unary
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
+          val set :
+            ([< Svg_types.set_attr ], [< Svg_types.set_content ],
+             [> Svg_types.set ])
+            star
+          val animateMotion :
+            ([< Svg_types.animatemotion_attr ],
+             [< Svg_types.animatemotion_content ],
+             [> Svg_types.animatemotion ])
+            star
+          val mpath :
+            ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
+             [> Svg_types.mpath ])
+            star
+          val animateColor :
+            ([< Svg_types.animatecolor_attr ],
+             [< Svg_types.animatecolor_content ],
+             [> Svg_types.animatecolor ])
+            star
+          val animateTransform :
+            ([< Svg_types.animatetransform_attr ],
+             [< Svg_types.animatetransform_content ],
+             [> Svg_types.animatetransform ])
+            star
+          val font :
+            ([< Svg_types.font_attr ], [< Svg_types.font_content ],
+             [> Svg_types.font ])
+            star
+          val glyph :
+            ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
+             [> Svg_types.glyph ])
+            star
+          val missing_glyph :
+            ([< Svg_types.missingglyph_attr ],
+             [< Svg_types.missingglyph_content ],
+             [> Svg_types.missingglyph ])
+            star
+          val hkern :
+            ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
+          val vkern :
+            ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
+          val font_face :
+            ([< Svg_types.font_face_attr ], [> Svg_types.font_face ]) nullary
+          val font_face_src :
+            ([< Svg_types.font_face_src_attr ],
+             [< Svg_types.font_face_src_content ],
+             [> Svg_types.font_face_src ])
+            star
+          val font_face_uri :
+            ([< Svg_types.font_face_uri_attr ],
+             [< Svg_types.font_face_uri_content ],
+             [> Svg_types.font_face_uri ])
+            star
+          val font_face_format :
+            ([< Svg_types.font_face_format_attr ],
+             [> Svg_types.font_face_format ])
+            nullary
+          val font_face_name :
+            ([< Svg_types.font_face_name_attr ],
+             [> Svg_types.font_face_name ])
+            nullary
+          val metadata :
+            ?a:Svg_types.metadata_attr attrib list ->
+            Xml.elt list_wrap -> [> Svg_types.metadata ] elt
+          val foreignObject :
+            ?a:Svg_types.foreignobject_attr attrib list ->
+            Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+          val pcdata : string wrap -> [> Svg_types.txt ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
+          val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+          val tot : Xml.elt -> 'a elt
+          val totl : Xml.elt list_wrap -> 'a elt list_wrap
+          val toelt : 'a elt -> Xml.elt
+          val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+          val doc_toelt : doc -> Xml.elt
+          val to_xmlattribs : 'a attrib list -> Xml.attrib list
+          val to_attrib : Xml.attrib -> 'a attrib
+          module Unsafe :
+            sig
+              val data : string wrap -> 'a elt
+              val node :
+                string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+              val coerce_elt : 'a elt -> 'b elt
+              val string_attrib : string -> string wrap -> 'a attrib
+              val float_attrib : string -> float wrap -> 'a attrib
+              val int_attrib : string -> int wrap -> 'a attrib
+              val uri_attrib : string -> uri wrap -> 'a attrib
+              val space_sep_attrib : string -> string list wrap -> 'a attrib
+              val comma_sep_attrib : string -> string list wrap -> 'a attrib
+            end
+        end
       module Raw :
         sig
           type 'a elt = 'a elt
@@ -1812,7 +3512,7 @@
             [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
             [ `GradientUnits ] attrib
           val a_gradientTransform :
-            Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
           val a_spreadMethod :
             [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
           val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -1959,6 +3659,8 @@
           val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
           val a_animation_fill :
             [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
           val a_calcMode :
             [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
             [> `CalcMode ] attrib
@@ -2094,37 +3796,6 @@
           val a_stroke_dashoffset :
             Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
           val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
-          val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-          val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
-          val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
-          val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
-          val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-          val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
-          val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
-          val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-          val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
-          val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-          val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-          val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-          val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
-          val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-          val a_onmousedown :
-            Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-          val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-          val a_onmouseover :
-            Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-          val a_onmouseout :
-            Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-          val a_onmousemove :
-            Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-          val a_ontouchstart :
-            Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-          val a_ontouchend :
-            Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-          val a_ontouchmove :
-            Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-          val a_ontouchcancel :
-            Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
           val txt : string wrap -> [> Svg_types.txt ] elt
           val svg :
             ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
@@ -2382,9 +4053,9 @@
             ([< Svg_types.script_attr ], [< Svg_types.script_content ],
              [> Svg_types.script ])
             unary
-          val animation :
-            ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-             [> Svg_types.animation ])
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
             star
           val set :
             ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -2453,6 +4124,10 @@
             ?a:Svg_types.foreignobject_attr attrib list ->
             Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
           val pcdata : string wrap -> [> Svg_types.txt ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
           val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
           val tot : Xml.elt -> 'a elt
           val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -2475,6 +4150,29 @@
               val space_sep_attrib : string -> string list wrap -> 'a attrib
               val comma_sep_attrib : string -> string list wrap -> 'a attrib
             end
+          val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+          val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+          val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+          val a_onend : string -> [> `OnEnd ] Raw'.attrib
+          val a_onerror : string -> [> `OnError ] Raw'.attrib
+          val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+          val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+          val a_onload : string -> [> `OnLoad ] Raw'.attrib
+          val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+          val a_onresize : string -> [> `OnResize ] Raw'.attrib
+          val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+          val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+          val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+          val a_onclick : string -> [> `OnClick ] Raw'.attrib
+          val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+          val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+          val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+          val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+          val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+          val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+          val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+          val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+          val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
         end
       type 'a elt = 'a elt
       type doc = [ `Svg ] elt
@@ -2640,7 +4338,7 @@
         [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
         [ `GradientUnits ] attrib
       val a_gradientTransform :
-        Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
       val a_spreadMethod :
         [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
       val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -2776,6 +4474,7 @@
       val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
       val a_animation_fill :
         [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
       val a_calcMode :
         [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
         [> `CalcMode ] attrib
@@ -3174,9 +4873,9 @@
         ([< Svg_types.script_attr ], [< Svg_types.script_content ],
          [> Svg_types.script ])
         unary
-      val animation :
-        ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-         [> Svg_types.animation ])
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
         star
       val set :
         ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -3237,6 +4936,10 @@
         ?a:Svg_types.foreignobject_attr attrib list ->
         Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
       val pcdata : string wrap -> [> Svg_types.txt ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
       val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
       val tot : Xml.elt -> 'a elt
       val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -3440,7 +5143,7 @@
             [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
             [ `GradientUnits ] attrib
           val a_gradientTransform :
-            Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
           val a_spreadMethod :
             [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
           val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -3587,6 +5290,8 @@
           val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
           val a_animation_fill :
             [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
           val a_calcMode :
             [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
             [> `CalcMode ] attrib
@@ -4010,9 +5715,9 @@
             ([< Svg_types.script_attr ], [< Svg_types.script_content ],
              [> Svg_types.script ])
             unary
-          val animation :
-            ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-             [> Svg_types.animation ])
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
             star
           val set :
             ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -4081,6 +5786,10 @@
             ?a:Svg_types.foreignobject_attr attrib list ->
             Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
           val pcdata : string wrap -> [> Svg_types.txt ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
           val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
           val tot : Xml.elt -> 'a elt
           val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -4268,7 +5977,7 @@
         [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
         [ `GradientUnits ] attrib
       val a_gradientTransform :
-        Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+        Svg_types.transforms wrap -> [> `GradientTransform ] attrib
       val a_spreadMethod :
         [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
       val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
@@ -4404,6 +6113,7 @@
       val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
       val a_animation_fill :
         [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+      val a_fill_rule : Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
       val a_calcMode :
         [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
         [> `CalcMode ] attrib
@@ -4802,9 +6512,9 @@
         ([< Svg_types.script_attr ], [< Svg_types.script_content ],
          [> Svg_types.script ])
         unary
-      val animation :
-        ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-         [> Svg_types.animation ])
+      val animate :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
         star
       val set :
         ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -4864,6 +6574,10 @@
       val foreignObject :
         ?a:Svg_types.foreignobject_attr attrib list ->
         Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+      val animation :
+        ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+         [> Svg_types.animate ])
+        star
       val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
       val tot : Xml.elt -> 'a elt
       val totl : Xml.elt list_wrap -> 'a elt list_wrap
diff --git a/doc/10.x/api/server/type_Eliom_content.Xml.wiki b/doc/11.x/api/server/type_Eliom_content.Xml.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_content.Xml.wiki
rename to doc/11.x/api/server/type_Eliom_content.Xml.wiki
diff --git a/doc/10.x/api/server/type_Eliom_content.Xml_shared.wiki b/doc/11.x/api/server/type_Eliom_content.Xml_shared.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_content.Xml_shared.wiki
rename to doc/11.x/api/server/type_Eliom_content.Xml_shared.wiki
diff --git a/doc/10.x/api/client/type_Eliom_content.wiki b/doc/11.x/api/server/type_Eliom_content.wiki
similarity index 78%
rename from doc/10.x/api/client/type_Eliom_content.wiki
rename to doc/11.x/api/server/type_Eliom_content.wiki
index 2e8945d056..28949b6f4f 100644
--- a/doc/10.x/api/client/type_Eliom_content.wiki
+++ b/doc/11.x/api/server/type_Eliom_content.wiki
@@ -14,41 +14,57 @@
           val append : 'a tlist -> 'a tlist -> 'a tlist
           val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
         end
-      type uri = string
-      val uri_of_string : uri -> string
-      val string_of_uri : string -> uri
-      val uri_of_fun : (unit -> string) -> uri
+      type 'a wrap = 'a
+      type 'a list_wrap = 'a list
+      type uri
+      val string_of_uri : (uri, string) W.ft
+      val uri_of_string : (string, uri) W.ft
       type aname = string
-      type attrib
-      type caml_event_handler =
-          CE_registered_closure of string * Eliom_lib.poly
-        | CE_client_closure of
-            (Js_of_ocaml.Dom_html.event Js_of_ocaml.Js.t -> unit)
-        | CE_client_closure_mouse of
-            (Js_of_ocaml.Dom_html.mouseEvent Js_of_ocaml.Js.t -> unit)
-        | CE_client_closure_keyboard of
-            (Js_of_ocaml.Dom_html.keyboardEvent Js_of_ocaml.Js.t -> unit)
-        | CE_client_closure_touch of
-            (Js_of_ocaml.Dom_html.touchEvent Js_of_ocaml.Js.t -> unit)
-        | CE_call_service of
-            ([ `A | `Form_get | `Form_post ] * (bool * string list) option *
-             string option * Ocsigen_lib_base.poly)
-            option Eliom_lazy.request
-      type internal_event_handler =
-          Raw of string
-        | Caml of caml_event_handler
       type event_handler =
-          Js_of_ocaml.Dom_html.event Js_of_ocaml.Js.t -> unit
+          (Js_of_ocaml.Dom_html.event Js_of_ocaml.Js.t -> unit)
+          Eliom_client_value.t
       type mouse_event_handler =
-          Js_of_ocaml.Dom_html.mouseEvent Js_of_ocaml.Js.t -> unit
+          (Js_of_ocaml.Dom_html.mouseEvent Js_of_ocaml.Js.t -> unit)
+          Eliom_client_value.t
       type keyboard_event_handler =
-          Js_of_ocaml.Dom_html.keyboardEvent Js_of_ocaml.Js.t -> unit
+          (Js_of_ocaml.Dom_html.keyboardEvent Js_of_ocaml.Js.t -> unit)
+          Eliom_client_value.t
       type touch_event_handler =
-          Js_of_ocaml.Dom_html.touchEvent Js_of_ocaml.Js.t -> unit
-      type ename = string
+          (Js_of_ocaml.Dom_html.touchEvent Js_of_ocaml.Js.t -> unit)
+          Eliom_client_value.t
+      type attrib
+      val float_attrib : aname -> float wrap -> attrib
+      val int_attrib : aname -> int wrap -> attrib
+      val string_attrib : aname -> string wrap -> attrib
+      val space_sep_attrib : aname -> string list wrap -> attrib
+      val comma_sep_attrib : aname -> string list wrap -> attrib
+      val event_handler_attrib : aname -> event_handler -> attrib
+      val mouse_event_handler_attrib : aname -> mouse_event_handler -> attrib
+      val keyboard_event_handler_attrib :
+        aname -> keyboard_event_handler -> attrib
+      val touch_event_handler_attrib : aname -> touch_event_handler -> attrib
+      val uri_attrib : aname -> uri wrap -> attrib
+      val uris_attrib : aname -> uri list wrap -> attrib
       type elt
-      type 'a wrap = 'a
-      type 'a list_wrap = 'a list
+      type ename = string
+      val empty : unit -> elt
+      val comment : string -> elt
+      val pcdata : string wrap -> elt
+      val encodedpcdata : string wrap -> elt
+      val entity : string -> elt
+      val leaf : ?a:attrib list -> ename -> elt
+      val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+      val cdata : string -> elt
+      val cdata_script : string -> elt
+      val cdata_style : string -> elt
+      type separator = Space | Comma
+      val aname : attrib -> aname
+      type acontent = private
+          AFloat of float
+        | AInt of int
+        | AStr of string
+        | AStrL of separator * string list
+      val acontent : attrib -> acontent
       type econtent = private
           Empty
         | Comment of string
@@ -57,81 +73,102 @@
         | Entity of string
         | Leaf of ename * attrib list
         | Node of ename * attrib list * elt list
-      val internal_event_handler_of_service :
-        ([ `A | `Form_get | `Form_post ] * (bool * string list) option *
-         string option * Eliom_lib.poly)
-        option Eliom_lazy.request -> internal_event_handler
-      type separator = Space | Comma
-      type acontent = private
-          AFloat of float
-        | AInt of int
-        | AStr of string
-        | AStrL of separator * string list
-      val acontent : attrib -> acontent
+      val content : elt -> econtent
+      type caml_event_handler
+      val make_process_node : ?id:string -> elt -> elt
+      val make_request_node : ?reset:bool -> elt -> elt
+      val uri_of_fun : (unit -> string) -> uri
+      type node_id
+      val get_node_id : elt -> Eliom_content.Xml.node_id
+      val make_event_handler_table :
+        elt -> Eliom_runtime.RawXML.event_handler_table
+      val make_client_attrib_table :
+        elt -> Eliom_runtime.RawXML.client_attrib_table
+      val caml_event_handler :
+        (Js_of_ocaml.Dom_html.event Js_of_ocaml.Js.t -> unit)
+        Eliom_client_value.t -> Eliom_content.Xml.caml_event_handler
       type racontent =
           RA of acontent
         | RAReact of acontent option React.signal
-        | RACamlEventHandler of caml_event_handler
+        | RACamlEventHandler of Eliom_content.Xml.caml_event_handler
         | RALazyStr of string Eliom_lazy.request
         | RALazyStrL of separator * string Eliom_lazy.request list
         | RAClient of string * attrib option * Eliom_lib.poly
-      val racontent : attrib -> racontent
-      val aname : attrib -> aname
-      val float_attrib : aname -> float -> attrib
-      val int_attrib : aname -> int -> attrib
-      val string_attrib : aname -> string -> attrib
-      val space_sep_attrib : aname -> string list -> attrib
-      val comma_sep_attrib : aname -> string list -> attrib
-      val internal_event_handler_attrib :
-        aname -> internal_event_handler -> attrib
+      val racontent : attrib -> Eliom_content.Xml.racontent
+      val lazy_node :
+        ?a:attrib list -> ename -> elt list Eliom_lazy.request -> elt
+      val wrap : elt -> 'a -> 'a Eliom_wrap.wrapped_value
+    end
+  module Xml_shared :
+    sig
+      module W :
+        sig
+          type 'a t = 'a Eliom_shared.React.S.t
+          val return : 'a -> 'a t
+          type (-'a, 'b) ft
+          val fmap : ('a, 'b) ft -> 'a t -> 'b t
+          type 'a tlist = 'a Eliom_shared.ReactiveData.RList.t
+          val nil : unit -> 'a tlist
+          val singleton : 'a t -> 'a tlist
+          val cons : 'a t -> 'a tlist -> 'a tlist
+          val append : 'a tlist -> 'a tlist -> 'a tlist
+          val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+        end
+      type 'a wrap = 'a W.t
+      type 'a list_wrap = 'a W.tlist
+      type uri
+      val string_of_uri : (uri, string) W.ft
+      val uri_of_string : (string, uri) W.ft
+      type aname = string
+      type event_handler =
+          (Js_of_ocaml.Dom_html.event Js_of_ocaml.Js.t -> unit)
+          Eliom_client_value.t
+      type mouse_event_handler =
+          (Js_of_ocaml.Dom_html.mouseEvent Js_of_ocaml.Js.t -> unit)
+          Eliom_client_value.t
+      type keyboard_event_handler =
+          (Js_of_ocaml.Dom_html.keyboardEvent Js_of_ocaml.Js.t -> unit)
+          Eliom_client_value.t
+      type touch_event_handler =
+          (Js_of_ocaml.Dom_html.touchEvent Js_of_ocaml.Js.t -> unit)
+          Eliom_client_value.t
+      type attrib
+      val float_attrib : aname -> float wrap -> attrib
+      val int_attrib : aname -> int wrap -> attrib
+      val string_attrib : aname -> string wrap -> attrib
+      val space_sep_attrib : aname -> string list wrap -> attrib
+      val comma_sep_attrib : aname -> string list wrap -> attrib
       val event_handler_attrib : aname -> event_handler -> attrib
       val mouse_event_handler_attrib : aname -> mouse_event_handler -> attrib
       val keyboard_event_handler_attrib :
         aname -> keyboard_event_handler -> attrib
       val touch_event_handler_attrib : aname -> touch_event_handler -> attrib
-      val uri_attrib : aname -> uri -> attrib
-      val uris_attrib : aname -> uri list -> attrib
-      val content : elt -> econtent
-      val pcdata : string -> elt
-      val encodedpcdata : string -> elt
-      val entity : string -> elt
+      val uri_attrib : aname -> uri wrap -> attrib
+      val uris_attrib : aname -> uri list wrap -> attrib
+      type elt
+      type ename = string
       val empty : unit -> elt
       val comment : string -> elt
+      val pcdata : string wrap -> elt
+      val encodedpcdata : string wrap -> elt
+      val entity : string -> elt
       val leaf : ?a:attrib list -> ename -> elt
-      val node : ?a:attrib list -> ename -> elt list -> elt
-      val lazy_node :
-        ?a:attrib list -> ename -> elt list Eliom_lazy.request -> elt
+      val node : ?a:attrib list -> ename -> elt list_wrap -> elt
       val cdata : string -> elt
       val cdata_script : string -> elt
       val cdata_style : string -> elt
-      type node_id = NoId | ProcessId of string | RequestId of string
-      val string_of_node_id : node_id -> string
-      val make : ?id:node_id -> econtent -> elt
-      val make_dom :
-        ?id:node_id -> Js_of_ocaml.Dom.node Js_of_ocaml.Js.t -> elt
-      val make_lazy : ?id:node_id -> elt lazy_t -> elt
-      val force_lazy : elt -> unit
-      val make_react : ?id:node_id -> elt React.signal -> elt
-      val make_process_node : ?id:string -> elt -> elt
-      val make_request_node : ?reset:bool -> elt -> elt
-      val get_node_id : elt -> node_id
-      type node =
-          DomNode of Js_of_ocaml.Dom.node Js_of_ocaml.Js.t
-        | TyXMLNode of econtent
-        | ReactNode of elt React.signal
-        | ReactChildren of econtent * elt ReactiveData.RList.t
-      val get_node : elt -> node
-      val set_dom_node : elt -> Js_of_ocaml.Dom.node Js_of_ocaml.Js.t -> unit
-      val set_classes_of_elt : elt -> elt
     end
   module Svg :
     sig
       type +'a elt
       type +'a attrib
+      type 'a wrap = 'a
+      type 'a list_wrap = 'a list
       type uri = Eliom_content.Xml.uri
+      module Ev' = Eliom_content_core.Svg.Ev'
       module F :
         sig
-          module Raw :
+          module Raw' :
             sig
               type 'a elt = 'a elt
               type doc = [ `Svg ] elt
@@ -315,7 +352,7 @@
                 [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
                 [ `GradientUnits ] attrib
               val a_gradientTransform :
-                Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
+                Svg_types.transforms wrap -> [> `GradientTransform ] attrib
               val a_spreadMethod :
                 [< `Pad | `Reflect | `Repeat ] wrap ->
                 [> `SpreadMethod ] attrib
@@ -466,6 +503,8 @@
               val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
               val a_animation_fill :
                 [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+              val a_fill_rule :
+                Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
               val a_calcMode :
                 [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
                 [> `CalcMode ] attrib
@@ -905,9 +944,9 @@
                 ([< Svg_types.script_attr ], [< Svg_types.script_content ],
                  [> Svg_types.script ])
                 unary
-              val animation :
-                ([< Svg_types.animation_attr ],
-                 [< Svg_types.animation_content ], [> Svg_types.animation ])
+              val animate :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
                 star
               val set :
                 ([< Svg_types.set_attr ], [< Svg_types.set_content ],
@@ -977,6 +1016,10 @@
                 ?a:Svg_types.foreignobject_attr attrib list ->
                 Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
               val pcdata : string wrap -> [> Svg_types.txt ] elt
+              val animation :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
+                star
               val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
               val tot : Xml.elt -> 'a elt
               val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -1002,5375 +1045,3419 @@
                     string -> string list wrap -> 'a attrib
                 end
             end
-          type 'a elt = 'a elt
-          type doc = [ `Svg ] elt
-          type 'a attrib = 'a attrib
-          module Xml :
+          module Raw :
             sig
-              module W :
+              type 'a elt = 'a elt
+              type doc = [ `Svg ] elt
+              type 'a attrib = 'a attrib
+              module Xml :
                 sig
-                  type 'a t = 'a Xml.W.t
-                  val return : 'a -> 'a t
-                  type ('a, 'b) ft = ('a, 'b) Xml.W.ft
-                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
-                  type 'a tlist = 'a Xml.W.tlist
-                  val nil : unit -> 'a tlist
-                  val singleton : 'a t -> 'a tlist
-                  val cons : 'a t -> 'a tlist -> 'a tlist
-                  val append : 'a tlist -> 'a tlist -> 'a tlist
-                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                  module W :
+                    sig
+                      type 'a t = 'a Xml.W.t
+                      val return : 'a -> 'a t
+                      type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                      val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                      type 'a tlist = 'a Xml.W.tlist
+                      val nil : unit -> 'a tlist
+                      val singleton : 'a t -> 'a tlist
+                      val cons : 'a t -> 'a tlist -> 'a tlist
+                      val append : 'a tlist -> 'a tlist -> 'a tlist
+                      val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                    end
+                  type 'a wrap = 'a W.t
+                  type 'a list_wrap = 'a W.tlist
+                  type uri = Xml.uri
+                  val string_of_uri : (uri, string) W.ft
+                  val uri_of_string : (string, uri) W.ft
+                  type aname = string
+                  type event_handler = Xml.event_handler
+                  type mouse_event_handler = Xml.mouse_event_handler
+                  type keyboard_event_handler = Xml.keyboard_event_handler
+                  type touch_event_handler = Xml.touch_event_handler
+                  type attrib = Xml.attrib
+                  val float_attrib : aname -> float wrap -> attrib
+                  val int_attrib : aname -> int wrap -> attrib
+                  val string_attrib : aname -> string wrap -> attrib
+                  val space_sep_attrib : aname -> string list wrap -> attrib
+                  val comma_sep_attrib : aname -> string list wrap -> attrib
+                  val event_handler_attrib : aname -> event_handler -> attrib
+                  val mouse_event_handler_attrib :
+                    aname -> mouse_event_handler -> attrib
+                  val keyboard_event_handler_attrib :
+                    aname -> keyboard_event_handler -> attrib
+                  val touch_event_handler_attrib :
+                    aname -> touch_event_handler -> attrib
+                  val uri_attrib : aname -> uri wrap -> attrib
+                  val uris_attrib : aname -> uri list wrap -> attrib
+                  type elt = Xml.elt
+                  type ename = string
+                  val empty : unit -> elt
+                  val comment : string -> elt
+                  val pcdata : string wrap -> elt
+                  val encodedpcdata : string wrap -> elt
+                  val entity : string -> elt
+                  val leaf : ?a:attrib list -> ename -> elt
+                  val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+                  val cdata : string -> elt
+                  val cdata_script : string -> elt
+                  val cdata_style : string -> elt
                 end
-              type 'a wrap = 'a W.t
-              type 'a list_wrap = 'a W.tlist
+              type 'a wrap = 'a Xml.W.t
+              type 'a list_wrap = 'a Xml.W.tlist
+              type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+              type ('a, 'b, 'c) unary =
+                  ?a:'a attrib list -> 'b elt wrap -> 'c elt
+              type ('a, 'b, 'c) star =
+                  ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              module Info : Xml_sigs.Info
               type uri = Xml.uri
-              val string_of_uri : (uri, string) W.ft
-              val uri_of_string : (string, uri) W.ft
-              type aname = string
-              type event_handler = Xml.event_handler
-              type mouse_event_handler = Xml.mouse_event_handler
-              type keyboard_event_handler = Xml.keyboard_event_handler
-              type touch_event_handler = Xml.touch_event_handler
-              type attrib = Xml.attrib
-              val float_attrib : aname -> float wrap -> attrib
-              val int_attrib : aname -> int wrap -> attrib
-              val string_attrib : aname -> string wrap -> attrib
-              val space_sep_attrib : aname -> string list wrap -> attrib
-              val comma_sep_attrib : aname -> string list wrap -> attrib
-              val event_handler_attrib : aname -> event_handler -> attrib
-              val mouse_event_handler_attrib :
-                aname -> mouse_event_handler -> attrib
-              val keyboard_event_handler_attrib :
-                aname -> keyboard_event_handler -> attrib
-              val touch_event_handler_attrib :
-                aname -> touch_event_handler -> attrib
-              val uri_attrib : aname -> uri wrap -> attrib
-              val uris_attrib : aname -> uri list wrap -> attrib
-              type elt = Xml.elt
-              type ename = string
-              val empty : unit -> elt
-              val comment : string -> elt
-              val pcdata : string wrap -> elt
-              val encodedpcdata : string wrap -> elt
-              val entity : string -> elt
-              val leaf : ?a:attrib list -> ename -> elt
-              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
-              val cdata : string -> elt
-              val cdata_script : string -> elt
-              val cdata_style : string -> elt
-            end
-          type 'a wrap = 'a Xml.W.t
-          type 'a list_wrap = 'a Xml.W.tlist
-          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
-          type ('a, 'b, 'c) unary =
-              ?a:'a attrib list -> 'b elt wrap -> 'c elt
-          type ('a, 'b, 'c) star =
-              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-          module Info : Xml_sigs.Info
-          type uri = Xml.uri
-          val string_of_uri : (uri, string) Xml.W.ft
-          val uri_of_string : (string, uri) Xml.W.ft
-          val a_version : string wrap -> [> `Version ] attrib
-          val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
-          val a_x : Svg_types.coord wrap -> [> `X ] attrib
-          val a_y : Svg_types.coord wrap -> [> `Y ] attrib
-          val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
-          val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
-          val a_preserveAspectRatio :
-            string wrap -> [> `PreserveAspectRatio ] attrib
-          val a_contentScriptType :
-            string wrap -> [> `ContentScriptType ] attrib
-          val a_contentStyleType :
-            string wrap -> [> `ContentStyleType ] attrib
-          val a_zoomAndPan :
-            [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
-          val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
-          val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
-          val a_requiredFeatures :
-            Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
-          val a_requiredExtensions :
-            Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
-          val a_systemLanguage :
-            Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
-          val a_externalRessourcesRequired :
-            bool wrap -> [> `ExternalRessourcesRequired ] attrib
-          val a_id : string wrap -> [> `Id ] attrib
-          val a_user_data : string -> string wrap -> [> `User_data ] attrib
-          val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
-          val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
-          val a_xml_space :
-            [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
-          val a_type : string wrap -> [> `Type ] attrib
-          val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
-          val a_xlink_title : string wrap -> [> `Title ] attrib
-          val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
-          val a_style : string wrap -> [> `Style ] attrib
-          val a_transform :
-            Svg_types.transforms wrap -> [> `Transform ] attrib
-          val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
-          val a_d : string wrap -> [> `D ] attrib
-          val a_pathLength : float wrap -> [> `PathLength ] attrib
-          val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
-          val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
-          val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
-          val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
-          val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
-          val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
-          val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
-          val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
-          val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
-          val a_points : Svg_types.coords wrap -> [> `Points ] attrib
-          val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
-          val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
-          val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
-          val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
-          val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
-          val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
-          val a_lengthAdjust :
-            [< `Spacing | `SpacingAndGlyphs ] wrap ->
-            [> `LengthAdjust ] attrib
-          val a_textLength :
-            Svg_types.Unit.length wrap -> [> `TextLength ] attrib
-          val a_text_anchor :
-            [< `End | `Inherit | `Middle | `Start ] wrap ->
-            [> `Text_Anchor ] attrib
-          val a_text_decoration :
-            [< `Blink
-             | `Inherit
-             | `Line_through
-             | `None
-             | `Overline
-             | `Underline ]
-            wrap -> [> `Text_Decoration ] attrib
-          val a_text_rendering :
-            [< `Auto
-             | `GeometricPrecision
-             | `Inherit
-             | `OptimizeLegibility
-             | `OptimizeSpeed ]
-            wrap -> [> `Text_Rendering ] attrib
-          val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
-          val a_startOffset :
-            Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
-          val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
-          val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
-          val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
-          val a_format : string wrap -> [> `Format ] attrib
-          val a_markerUnits :
-            [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
-            [> `MarkerUnits ] attrib
-          val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
-          val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
-          val a_markerWidth :
-            Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
-          val a_markerHeight :
-            Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
-          val a_orient :
-            Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
-          val a_local : string wrap -> [> `Local ] attrib
-          val a_rendering_intent :
-            [< `Absolute_colorimetric
-             | `Auto
-             | `Perceptual
-             | `Relative_colorimetric
-             | `Saturation ]
-            wrap -> [> `Rendering_Indent ] attrib
-          val a_gradientUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [ `GradientUnits ] attrib
-          val a_gradientTransform :
-            Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
-          val a_spreadMethod :
-            [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
-          val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
-          val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
-          val a_offset :
-            [< `Number of Svg_types.number
-             | `Percentage of Svg_types.percentage ]
-            wrap -> [> `Offset ] attrib
-          val a_patternUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [> `PatternUnits ] attrib
-          val a_patternContentUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [> `PatternContentUnits ] attrib
-          val a_patternTransform :
-            Svg_types.transforms wrap -> [> `PatternTransform ] attrib
-          val a_clipPathUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [> `ClipPathUnits ] attrib
-          val a_maskUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [> `MaskUnits ] attrib
-          val a_maskContentUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [> `MaskContentUnits ] attrib
-          val a_primitiveUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [> `PrimitiveUnits ] attrib
-          val a_filterRes :
-            Svg_types.number_optional_number wrap ->
-            [> `FilterResUnits ] attrib
-          val a_result : string wrap -> [> `Result ] attrib
-          val a_in :
-            [< `BackgroundAlpha
-             | `BackgroundImage
-             | `FillPaint
-             | `Ref of string
-             | `SourceAlpha
-             | `SourceGraphic
-             | `StrokePaint ]
-            wrap -> [> `In ] attrib
-          val a_in2 :
-            [< `BackgroundAlpha
-             | `BackgroundImage
-             | `FillPaint
-             | `Ref of string
-             | `SourceAlpha
-             | `SourceGraphic
-             | `StrokePaint ]
-            wrap -> [> `In2 ] attrib
-          val a_azimuth : float wrap -> [> `Azimuth ] attrib
-          val a_elevation : float wrap -> [> `Elevation ] attrib
-          val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
-          val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
-          val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
-          val a_specularExponent :
-            float wrap -> [> `SpecularExponent ] attrib
-          val a_specularConstant :
-            float wrap -> [> `SpecularConstant ] attrib
-          val a_limitingConeAngle :
-            float wrap -> [> `LimitingConeAngle ] attrib
-          val a_mode :
-            [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
-            [> `Mode ] attrib
-          val a_feColorMatrix_type :
-            [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ] wrap ->
-            [> `Typefecolor ] attrib
-          val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
-          val a_transfer_type :
-            [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
-            [> `Type_transfert ] attrib
-          val a_tableValues :
-            Svg_types.numbers wrap -> [> `TableValues ] attrib
-          val a_intercept : Svg_types.number wrap -> [> `Intercept ] attrib
-          val a_amplitude : Svg_types.number wrap -> [> `Amplitude ] attrib
-          val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
-          val a_transfer_offset :
-            Svg_types.number wrap -> [> `Offset_transfer ] attrib
-          val a_feComposite_operator :
-            [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
-            [> `OperatorComposite ] attrib
-          val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
-          val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
-          val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
-          val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
-          val a_order :
-            Svg_types.number_optional_number wrap -> [> `Order ] attrib
-          val a_kernelMatrix :
-            Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
-          val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
-          val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
-          val a_kernelUnitLength :
-            Svg_types.number_optional_number wrap ->
-            [> `KernelUnitLength ] attrib
-          val a_targetX : int wrap -> [> `TargetX ] attrib
-          val a_targetY : int wrap -> [> `TargetY ] attrib
-          val a_edgeMode :
-            [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
-          val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
-          val a_surfaceScale :
-            Svg_types.number wrap -> [> `SurfaceScale ] attrib
-          val a_diffuseConstant :
-            Svg_types.number wrap -> [> `DiffuseConstant ] attrib
-          val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
-          val a_xChannelSelector :
-            [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
-          val a_yChannelSelector :
-            [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
-          val a_stdDeviation :
-            Svg_types.number_optional_number wrap ->
-            [> `StdDeviation ] attrib
-          val a_feMorphology_operator :
-            [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
-          val a_radius :
-            Svg_types.number_optional_number wrap -> [> `Radius ] attrib
-          val a_baseFrenquency :
-            Svg_types.number_optional_number wrap ->
-            [> `BaseFrequency ] attrib
-          val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
-          val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
-          val a_stitchTiles :
-            [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
-          val a_feTurbulence_type :
-            [< `FractalNoise | `Turbulence ] wrap -> [> `TypeStitch ] attrib
-          val a_xlink_show :
-            [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
-          val a_xlink_actuate :
-            [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
-            [> `Xlink_actuate ] attrib
-          val a_target : string wrap -> [> `Xlink_target ] attrib
-          val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
-          val a_attributeName : string wrap -> [> `AttributeName ] attrib
-          val a_attributeType :
-            [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
-          val a_begin : string wrap -> [> `Begin ] attrib
-          val a_dur : string wrap -> [> `Dur ] attrib
-          val a_min : string wrap -> [> `Min ] attrib
-          val a_max : string wrap -> [> `Max ] attrib
-          val a_restart :
-            [< `Always | `Never | `WhenNotActive ] wrap ->
-            [> `Restart ] attrib
-          val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
-          val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
-          val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
-          val a_animation_fill :
-            [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
-          val a_calcMode :
-            [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
-            [> `CalcMode ] attrib
-          val a_animation_values :
-            Svg_types.strings wrap -> [> `Valuesanim ] attrib
-          val a_keyTimes : Svg_types.strings wrap -> [> `KeyTimes ] attrib
-          val a_keySplines :
-            Svg_types.strings wrap -> [> `KeySplines ] attrib
-          val a_from : string wrap -> [> `From ] attrib
-          val a_to : string wrap -> [> `To ] attrib
-          val a_by : string wrap -> [> `By ] attrib
-          val a_additive : [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
-          val a_accumulate :
-            [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
-          val a_keyPoints :
-            Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
-          val a_path : string wrap -> [> `Path ] attrib
-          val a_animateTransform_type :
-            [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
-            [ `Typeanimatetransform ] attrib
-          val a_horiz_origin_x :
-            Svg_types.number wrap -> [> `HorizOriginX ] attrib
-          val a_horiz_origin_y :
-            Svg_types.number wrap -> [> `HorizOriginY ] attrib
-          val a_horiz_adv_x : Svg_types.number wrap -> [> `HorizAdvX ] attrib
-          val a_vert_origin_x :
-            Svg_types.number wrap -> [> `VertOriginX ] attrib
-          val a_vert_origin_y :
-            Svg_types.number wrap -> [> `VertOriginY ] attrib
-          val a_vert_adv_y : Svg_types.number wrap -> [> `VertAdvY ] attrib
-          val a_unicode : string wrap -> [> `Unicode ] attrib
-          val a_glyph_name : string wrap -> [> `glyphname ] attrib
-          val a_orientation : [< `H | `V ] wrap -> [> `Orientation ] attrib
-          val a_arabic_form :
-            [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
-            [> `Arabicform ] attrib
-          val a_lang : string wrap -> [> `Lang ] attrib
-          val a_u1 : string wrap -> [> `U1 ] attrib
-          val a_u2 : string wrap -> [> `U2 ] attrib
-          val a_g1 : string wrap -> [> `G1 ] attrib
-          val a_g2 : string wrap -> [> `G2 ] attrib
-          val a_k : string wrap -> [> `K ] attrib
-          val a_font_family : string wrap -> [> `Font_Family ] attrib
-          val a_font_style : string wrap -> [> `Font_Style ] attrib
-          val a_font_variant : string wrap -> [> `Font_Variant ] attrib
-          val a_font_weight : string wrap -> [> `Font_Weight ] attrib
-          val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
-          val a_font_size : string wrap -> [> `Font_Size ] attrib
-          val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
-          val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
-          val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
-          val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
-          val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
-          val a_cap_height : Svg_types.number wrap -> [> `CapHeight ] attrib
-          val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
-          val a_accent_height :
-            Svg_types.number wrap -> [> `AccentHeight ] attrib
-          val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
-          val a_widths : string wrap -> [> `Widths ] attrib
-          val a_bbox : string wrap -> [> `Bbox ] attrib
-          val a_ideographic :
-            Svg_types.number wrap -> [> `Ideographic ] attrib
-          val a_alphabetic : Svg_types.number wrap -> [> `Alphabetic ] attrib
-          val a_mathematical :
-            Svg_types.number wrap -> [> `Mathematical ] attrib
-          val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
-          val a_videographic :
-            Svg_types.number wrap -> [> `VIdeographic ] attrib
-          val a_v_alphabetic :
-            Svg_types.number wrap -> [> `VAlphabetic ] attrib
-          val a_v_mathematical :
-            Svg_types.number wrap -> [> `VMathematical ] attrib
-          val a_v_hanging : Svg_types.number wrap -> [> `VHanging ] attrib
-          val a_underline_position :
-            Svg_types.number wrap -> [> `UnderlinePosition ] attrib
-          val a_underline_thickness :
-            Svg_types.number wrap -> [> `UnderlineThickness ] attrib
-          val a_strikethrough_position :
-            Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
-          val a_strikethrough_thickness :
-            Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
-          val a_overline_position :
-            Svg_types.number wrap -> [> `OverlinePosition ] attrib
-          val a_overline_thickness :
-            Svg_types.number wrap -> [> `OverlineThickness ] attrib
-          val a_string : string wrap -> [> `String ] attrib
-          val a_name : string wrap -> [> `Name ] attrib
-          val a_alignment_baseline :
-            [< `After_edge
-             | `Alphabetic
-             | `Auto
-             | `Baseline
-             | `Before_edge
-             | `Central
-             | `Hanging
-             | `Ideographic
-             | `Inherit
-             | `Mathematical
-             | `Middle
-             | `Text_after_edge
-             | `Text_before_edge ]
-            wrap -> [> `Alignment_Baseline ] attrib
-          val a_dominant_baseline :
-            [< `Alphabetic
-             | `Auto
-             | `Central
-             | `Hanging
-             | `Ideographic
-             | `Inherit
-             | `Mathematical
-             | `Middle
-             | `No_change
-             | `Reset_size
-             | `Text_after_edge
-             | `Text_before_edge
-             | `Use_script ]
-            wrap -> [> `Dominant_Baseline ] attrib
-          val a_stop_color : Svg_types.color wrap -> [> `Stop_Color ] attrib
-          val a_stop_opacity :
-            Svg_types.number wrap -> [> `Stop_Opacity ] attrib
-          val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
-          val a_stroke_width :
-            Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
-          val a_stroke_linecap :
-            [< `Butt | `Round | `Square ] wrap -> [> `Stroke_Linecap ] attrib
-          val a_stroke_linejoin :
-            [< `Bever | `Miter | `Round ] wrap ->
-            [> `Stroke_Linejoin ] attrib
-          val a_stroke_miterlimit :
-            float wrap -> [> `Stroke_Miterlimit ] attrib
-          val a_stroke_dasharray :
-            Svg_types.Unit.length list wrap -> [> `Stroke_Dasharray ] attrib
-          val a_stroke_dashoffset :
-            Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
-          val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
-          val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-          val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
-          val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
-          val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
-          val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-          val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
-          val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
-          val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-          val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
-          val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-          val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-          val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-          val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
-          val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-          val a_onmousedown :
-            Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-          val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-          val a_onmouseover :
-            Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-          val a_onmouseout :
-            Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-          val a_onmousemove :
-            Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-          val a_ontouchstart :
-            Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-          val a_ontouchend :
-            Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-          val a_ontouchmove :
-            Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-          val a_ontouchcancel :
-            Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-          val txt : string wrap -> [> Svg_types.txt ] elt
-          val svg :
-            ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
-             [> Svg_types.svg ])
-            star
-          val g :
-            ([< Svg_types.g_attr ], [< Svg_types.g_content ],
-             [> Svg_types.g ])
-            star
-          val defs :
-            ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
-             [> Svg_types.defs ])
-            star
-          val desc :
-            ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
-             [> Svg_types.desc ])
-            unary
-          val title :
-            ([< Svg_types.title_attr ], [< Svg_types.title_content ],
-             [> Svg_types.title ])
-            unary
-          val symbol :
-            ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
-             [> Svg_types.symbol ])
-            star
-          val use :
-            ([< Svg_types.use_attr ], [< Svg_types.use_content ],
-             [> Svg_types.use ])
-            star
-          val image :
-            ([< Svg_types.image_attr ], [< Svg_types.image_content ],
-             [> Svg_types.image ])
-            star
-          val switch :
-            ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
-             [> Svg_types.switch ])
-            star
-          val style :
-            ([< Svg_types.style_attr ], [< Svg_types.style_content ],
-             [> Svg_types.style ])
-            unary
-          val path :
-            ([< Svg_types.path_attr ], [< Svg_types.path_content ],
-             [> Svg_types.path ])
-            star
-          val rect :
-            ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
-             [> Svg_types.rect ])
-            star
-          val circle :
-            ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
-             [> Svg_types.circle ])
-            star
-          val ellipse :
-            ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
-             [> Svg_types.ellipse ])
-            star
-          val line :
-            ([< Svg_types.line_attr ], [< Svg_types.line_content ],
-             [> Svg_types.line ])
-            star
-          val polyline :
-            ([< Svg_types.polyline_attr ], [< Svg_types.polyline_content ],
-             [> Svg_types.polyline ])
-            star
-          val polygon :
-            ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
-             [> Svg_types.polygon ])
-            star
-          val text :
-            ([< Svg_types.text_attr ], [< Svg_types.text_content ],
-             [> Svg_types.text ])
-            star
-          val tspan :
-            ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
-             [> Svg_types.tspan ])
-            star
-          val tref :
-            ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
-             [> Svg_types.tref ])
-            star
-          val textPath :
-            ([< Svg_types.textpath_attr ], [< Svg_types.textpath_content ],
-             [> Svg_types.textpath ])
-            star
-          val altGlyph :
-            ([< Svg_types.altglyph_attr ], [< Svg_types.altglyph_content ],
-             [> Svg_types.altglyph ])
-            unary
-          type altglyphdef_content =
-              [ `Item of Svg_types.altglyphitem elt list
-              | `Ref of Svg_types.glyphref elt list ]
-          val altGlyphDef :
-            ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
-             [> Svg_types.altglyphdef ])
-            unary
-          val altGlyphItem :
-            ([< Svg_types.altglyphitem_attr ],
-             [< Svg_types.altglyphitem_content ],
-             [> Svg_types.altglyphitem ])
-            star
-          val glyphRef :
-            ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ]) nullary
-          val marker :
-            ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
-             [> Svg_types.marker ])
-            star
-          val color_profile :
-            ([< Svg_types.colorprofile_attr ],
-             [< Svg_types.colorprofile_content ],
-             [> Svg_types.colorprofile ])
-            star
-          val linearGradient :
-            ([< Svg_types.lineargradient_attr ],
-             [< Svg_types.lineargradient_content ],
-             [> Svg_types.lineargradient ])
-            star
-          val radialGradient :
-            ([< Svg_types.radialgradient_attr ],
-             [< Svg_types.radialgradient_content ],
-             [> Svg_types.radialgradient ])
-            star
-          val stop :
-            ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
-             [> Svg_types.stop ])
-            star
-          val pattern :
-            ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
-             [> Svg_types.pattern ])
-            star
-          val clipPath :
-            ([< Svg_types.clippath_attr ], [< Svg_types.clippath_content ],
-             [> Svg_types.clippath ])
-            star
-          val filter :
-            ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
-             [> Svg_types.filter ])
-            star
-          val feDistantLight :
-            ([< Svg_types.fedistantlight_attr ],
-             [< Svg_types.fedistantlight_content ],
-             [> Svg_types.fedistantlight ])
-            star
-          val fePointLight :
-            ([< Svg_types.fepointlight_attr ],
-             [< Svg_types.fepointlight_content ],
-             [> Svg_types.fepointlight ])
-            star
-          val feSpotLight :
-            ([< Svg_types.fespotlight_attr ],
-             [< Svg_types.fespotlight_content ], [> Svg_types.fespotlight ])
-            star
-          val feBlend :
-            ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
-             [> Svg_types.feblend ])
-            star
-          val feColorMatrix :
-            ([< Svg_types.fecolormatrix_attr ],
-             [< Svg_types.fecolormatrix_content ],
-             [> Svg_types.fecolormatrix ])
-            star
-          val feComponentTransfer :
-            ([< Svg_types.fecomponenttransfer_attr ],
-             [< Svg_types.fecomponenttransfer_content ],
-             [> Svg_types.fecomponenttransfer ])
-            star
-          val feFuncA :
-            ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
-             [> Svg_types.fefunca ])
-            star
-          val feFuncG :
-            ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
-             [> Svg_types.fefuncg ])
-            star
-          val feFuncB :
-            ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
-             [> Svg_types.fefuncb ])
-            star
-          val feFuncR :
-            ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
-             [> Svg_types.fefuncr ])
-            star
-          val feComposite :
-            ([< Svg_types.fecomposite_attr ],
-             [< Svg_types.fecomposite_content ], [> Svg_types.fecomposite ])
-            star
-          val feConvolveMatrix :
-            ([< Svg_types.feconvolvematrix_attr ],
-             [< Svg_types.feconvolvematrix_content ],
-             [> Svg_types.feconvolvematrix ])
-            star
-          val feDiffuseLighting :
-            ([< Svg_types.fediffuselighting_attr ],
-             [< Svg_types.fediffuselighting_content ],
-             [> Svg_types.fediffuselighting ])
-            star
-          val feDisplacementMap :
-            ([< Svg_types.fedisplacementmap_attr ],
-             [< Svg_types.fedisplacementmap_content ],
-             [> Svg_types.fedisplacementmap ])
-            star
-          val feFlood :
-            ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
-             [> Svg_types.feflood ])
-            star
-          val feGaussianBlur :
-            ([< Svg_types.fegaussianblur_attr ],
-             [< Svg_types.fegaussianblur_content ],
-             [> Svg_types.fegaussianblur ])
-            star
-          val feImage :
-            ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
-             [> Svg_types.feimage ])
-            star
-          val feMerge :
-            ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
-             [> Svg_types.femerge ])
-            star
-          val feMorphology :
-            ([< Svg_types.femorphology_attr ],
-             [< Svg_types.femorphology_content ],
-             [> Svg_types.femorphology ])
-            star
-          val feOffset :
-            ([< Svg_types.feoffset_attr ], [< Svg_types.feoffset_content ],
-             [> Svg_types.feoffset ])
-            star
-          val feSpecularLighting :
-            ([< Svg_types.fespecularlighting_attr ],
-             [< Svg_types.fespecularlighting_content ],
-             [> Svg_types.fespecularlighting ])
-            star
-          val feTile :
-            ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
-             [> Svg_types.fetile ])
-            star
-          val feTurbulence :
-            ([< Svg_types.feturbulence_attr ],
-             [< Svg_types.feturbulence_content ],
-             [> Svg_types.feturbulence ])
-            star
-          val cursor :
-            ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
-             [> Svg_types.cursor ])
-            star
-          val a :
-            ([< Svg_types.a_attr ], [< Svg_types.a_content ],
-             [> Svg_types.a ])
-            star
-          val view :
-            ([< Svg_types.view_attr ], [< Svg_types.view_content ],
-             [> Svg_types.view ])
-            star
-          val script :
-            ([< Svg_types.script_attr ], [< Svg_types.script_content ],
-             [> Svg_types.script ])
-            unary
-          val animation :
-            ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-             [> Svg_types.animation ])
-            star
-          val set :
-            ([< Svg_types.set_attr ], [< Svg_types.set_content ],
-             [> Svg_types.set ])
-            star
-          val animateMotion :
-            ([< Svg_types.animatemotion_attr ],
-             [< Svg_types.animatemotion_content ],
-             [> Svg_types.animatemotion ])
-            star
-          val mpath :
-            ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
-             [> Svg_types.mpath ])
-            star
-          val animateColor :
-            ([< Svg_types.animatecolor_attr ],
-             [< Svg_types.animatecolor_content ],
-             [> Svg_types.animatecolor ])
-            star
-          val animateTransform :
-            ([< Svg_types.animatetransform_attr ],
-             [< Svg_types.animatetransform_content ],
-             [> Svg_types.animatetransform ])
-            star
-          val font :
-            ([< Svg_types.font_attr ], [< Svg_types.font_content ],
-             [> Svg_types.font ])
-            star
-          val glyph :
-            ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
-             [> Svg_types.glyph ])
-            star
-          val missing_glyph :
-            ([< Svg_types.missingglyph_attr ],
-             [< Svg_types.missingglyph_content ],
-             [> Svg_types.missingglyph ])
-            star
-          val hkern :
-            ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
-          val vkern :
-            ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
-          val font_face :
-            ([< Svg_types.font_face_attr ], [> Svg_types.font_face ]) nullary
-          val font_face_src :
-            ([< Svg_types.font_face_src_attr ],
-             [< Svg_types.font_face_src_content ],
-             [> Svg_types.font_face_src ])
-            star
-          val font_face_uri :
-            ([< Svg_types.font_face_uri_attr ],
-             [< Svg_types.font_face_uri_content ],
-             [> Svg_types.font_face_uri ])
-            star
-          val font_face_format :
-            ([< Svg_types.font_face_format_attr ],
-             [> Svg_types.font_face_format ])
-            nullary
-          val font_face_name :
-            ([< Svg_types.font_face_name_attr ],
-             [> Svg_types.font_face_name ])
-            nullary
-          val metadata :
-            ?a:Svg_types.metadata_attr attrib list ->
-            Xml.elt list_wrap -> [> Svg_types.metadata ] elt
-          val foreignObject :
-            ?a:Svg_types.foreignobject_attr attrib list ->
-            Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
-          val pcdata : string wrap -> [> Svg_types.txt ] elt
-          val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
-          val tot : Xml.elt -> 'a elt
-          val totl : Xml.elt list_wrap -> 'a elt list_wrap
-          val toelt : 'a elt -> Xml.elt
-          val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
-          val doc_toelt : doc -> Xml.elt
-          val to_xmlattribs : 'a attrib list -> Xml.attrib list
-          val to_attrib : Xml.attrib -> 'a attrib
-          module Unsafe :
-            sig
-              val data : string wrap -> 'a elt
-              val node :
-                string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-              val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
-              val coerce_elt : 'a elt -> 'b elt
-              val string_attrib : string -> string wrap -> 'a attrib
-              val float_attrib : string -> float wrap -> 'a attrib
-              val int_attrib : string -> int wrap -> 'a attrib
-              val uri_attrib : string -> uri wrap -> 'a attrib
-              val space_sep_attrib : string -> string list wrap -> 'a attrib
-              val comma_sep_attrib : string -> string list wrap -> 'a attrib
-            end
-        end
-      module D :
-        sig
-          module Raw :
-            sig
-              type 'a elt = 'a elt
-              type doc = [ `Svg ] elt
-              type 'a attrib = 'a attrib
-              module Xml :
-                sig
-                  module W :
-                    sig
-                      type 'a t = 'a Xml.W.t
-                      val return : 'a -> 'a t
-                      type ('a, 'b) ft = ('a, 'b) Xml.W.ft
-                      val fmap : ('a, 'b) ft -> 'a t -> 'b t
-                      type 'a tlist = 'a Xml.W.tlist
-                      val nil : unit -> 'a tlist
-                      val singleton : 'a t -> 'a tlist
-                      val cons : 'a t -> 'a tlist -> 'a tlist
-                      val append : 'a tlist -> 'a tlist -> 'a tlist
-                      val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
-                    end
-                  type 'a wrap = 'a W.t
-                  type 'a list_wrap = 'a W.tlist
-                  type uri = Xml.uri
-                  val string_of_uri : (uri, string) W.ft
-                  val uri_of_string : (string, uri) W.ft
-                  type aname = string
-                  type event_handler = Xml.event_handler
-                  type mouse_event_handler = Xml.mouse_event_handler
-                  type keyboard_event_handler = Xml.keyboard_event_handler
-                  type touch_event_handler = Xml.touch_event_handler
-                  type attrib = Xml.attrib
-                  val float_attrib : aname -> float wrap -> attrib
-                  val int_attrib : aname -> int wrap -> attrib
-                  val string_attrib : aname -> string wrap -> attrib
-                  val space_sep_attrib : aname -> string list wrap -> attrib
-                  val comma_sep_attrib : aname -> string list wrap -> attrib
-                  val event_handler_attrib : aname -> event_handler -> attrib
-                  val mouse_event_handler_attrib :
-                    aname -> mouse_event_handler -> attrib
-                  val keyboard_event_handler_attrib :
-                    aname -> keyboard_event_handler -> attrib
-                  val touch_event_handler_attrib :
-                    aname -> touch_event_handler -> attrib
-                  val uri_attrib : aname -> uri wrap -> attrib
-                  val uris_attrib : aname -> uri list wrap -> attrib
-                  type elt = Xml.elt
-                  type ename = string
-                  val empty : unit -> elt
-                  val comment : string -> elt
-                  val pcdata : string wrap -> elt
-                  val encodedpcdata : string wrap -> elt
-                  val entity : string -> elt
-                  val leaf : ?a:attrib list -> ename -> elt
-                  val node : ?a:attrib list -> ename -> elt list_wrap -> elt
-                  val cdata : string -> elt
-                  val cdata_script : string -> elt
-                  val cdata_style : string -> elt
-                end
-              type 'a wrap = 'a Xml.W.t
-              type 'a list_wrap = 'a Xml.W.tlist
-              type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
-              type ('a, 'b, 'c) unary =
-                  ?a:'a attrib list -> 'b elt wrap -> 'c elt
-              type ('a, 'b, 'c) star =
-                  ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-              module Info : Xml_sigs.Info
-              type uri = Xml.uri
-              val string_of_uri : (uri, string) Xml.W.ft
-              val uri_of_string : (string, uri) Xml.W.ft
-              val a_version : string wrap -> [> `Version ] attrib
-              val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
-              val a_x : Svg_types.coord wrap -> [> `X ] attrib
-              val a_y : Svg_types.coord wrap -> [> `Y ] attrib
-              val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
-              val a_height :
-                Svg_types.Unit.length wrap -> [> `Height ] attrib
-              val a_preserveAspectRatio :
-                string wrap -> [> `PreserveAspectRatio ] attrib
-              val a_contentScriptType :
-                string wrap -> [> `ContentScriptType ] attrib
-              val a_contentStyleType :
-                string wrap -> [> `ContentStyleType ] attrib
-              val a_zoomAndPan :
-                [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
-              val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
-              val a_xlink_href :
-                Svg_types.iri wrap -> [> `Xlink_href ] attrib
-              val a_requiredFeatures :
-                Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
-              val a_requiredExtensions :
-                Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
-              val a_systemLanguage :
-                Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
-              val a_externalRessourcesRequired :
-                bool wrap -> [> `ExternalRessourcesRequired ] attrib
-              val a_id : string wrap -> [> `Id ] attrib
-              val a_user_data :
-                string -> string wrap -> [> `User_data ] attrib
-              val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
-              val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
-              val a_xml_space :
-                [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
-              val a_type : string wrap -> [> `Type ] attrib
-              val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
-              val a_xlink_title : string wrap -> [> `Title ] attrib
-              val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
-              val a_style : string wrap -> [> `Style ] attrib
-              val a_transform :
-                Svg_types.transforms wrap -> [> `Transform ] attrib
-              val a_viewBox :
-                Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
-              val a_d : string wrap -> [> `D ] attrib
-              val a_pathLength : float wrap -> [> `PathLength ] attrib
-              val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
-              val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
-              val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
-              val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
-              val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
-              val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
-              val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
-              val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
-              val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
-              val a_points : Svg_types.coords wrap -> [> `Points ] attrib
-              val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
-              val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
-              val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
-              val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
-              val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
-              val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
-              val a_lengthAdjust :
-                [< `Spacing | `SpacingAndGlyphs ] wrap ->
-                [> `LengthAdjust ] attrib
-              val a_textLength :
-                Svg_types.Unit.length wrap -> [> `TextLength ] attrib
-              val a_text_anchor :
-                [< `End | `Inherit | `Middle | `Start ] wrap ->
-                [> `Text_Anchor ] attrib
-              val a_text_decoration :
-                [< `Blink
-                 | `Inherit
-                 | `Line_through
-                 | `None
-                 | `Overline
-                 | `Underline ]
-                wrap -> [> `Text_Decoration ] attrib
-              val a_text_rendering :
-                [< `Auto
-                 | `GeometricPrecision
-                 | `Inherit
-                 | `OptimizeLegibility
-                 | `OptimizeSpeed ]
-                wrap -> [> `Text_Rendering ] attrib
-              val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
-              val a_startOffset :
-                Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
-              val a_method :
-                [< `Align | `Stretch ] wrap -> [> `Method ] attrib
-              val a_spacing :
-                [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
-              val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
-              val a_format : string wrap -> [> `Format ] attrib
-              val a_markerUnits :
-                [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
-                [> `MarkerUnits ] attrib
-              val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
-              val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
-              val a_markerWidth :
-                Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
-              val a_markerHeight :
-                Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
-              val a_orient :
-                Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
-              val a_local : string wrap -> [> `Local ] attrib
-              val a_rendering_intent :
-                [< `Absolute_colorimetric
-                 | `Auto
-                 | `Perceptual
-                 | `Relative_colorimetric
-                 | `Saturation ]
-                wrap -> [> `Rendering_Indent ] attrib
-              val a_gradientUnits :
-                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-                [ `GradientUnits ] attrib
-              val a_gradientTransform :
-                Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
-              val a_spreadMethod :
-                [< `Pad | `Reflect | `Repeat ] wrap ->
-                [> `SpreadMethod ] attrib
-              val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
-              val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
-              val a_offset :
-                [< `Number of Svg_types.number
-                 | `Percentage of Svg_types.percentage ]
-                wrap -> [> `Offset ] attrib
-              val a_patternUnits :
-                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-                [> `PatternUnits ] attrib
-              val a_patternContentUnits :
-                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-                [> `PatternContentUnits ] attrib
-              val a_patternTransform :
-                Svg_types.transforms wrap -> [> `PatternTransform ] attrib
-              val a_clipPathUnits :
-                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-                [> `ClipPathUnits ] attrib
-              val a_maskUnits :
-                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-                [> `MaskUnits ] attrib
-              val a_maskContentUnits :
-                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-                [> `MaskContentUnits ] attrib
-              val a_primitiveUnits :
-                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-                [> `PrimitiveUnits ] attrib
-              val a_filterRes :
-                Svg_types.number_optional_number wrap ->
-                [> `FilterResUnits ] attrib
-              val a_result : string wrap -> [> `Result ] attrib
-              val a_in :
-                [< `BackgroundAlpha
-                 | `BackgroundImage
-                 | `FillPaint
-                 | `Ref of string
-                 | `SourceAlpha
-                 | `SourceGraphic
-                 | `StrokePaint ]
-                wrap -> [> `In ] attrib
-              val a_in2 :
-                [< `BackgroundAlpha
-                 | `BackgroundImage
-                 | `FillPaint
-                 | `Ref of string
-                 | `SourceAlpha
-                 | `SourceGraphic
-                 | `StrokePaint ]
-                wrap -> [> `In2 ] attrib
-              val a_azimuth : float wrap -> [> `Azimuth ] attrib
-              val a_elevation : float wrap -> [> `Elevation ] attrib
-              val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
-              val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
-              val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
-              val a_specularExponent :
-                float wrap -> [> `SpecularExponent ] attrib
-              val a_specularConstant :
-                float wrap -> [> `SpecularConstant ] attrib
-              val a_limitingConeAngle :
-                float wrap -> [> `LimitingConeAngle ] attrib
-              val a_mode :
-                [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
-                [> `Mode ] attrib
-              val a_feColorMatrix_type :
-                [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ]
-                wrap -> [> `Typefecolor ] attrib
-              val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
-              val a_transfer_type :
-                [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
-                [> `Type_transfert ] attrib
-              val a_tableValues :
-                Svg_types.numbers wrap -> [> `TableValues ] attrib
-              val a_intercept :
-                Svg_types.number wrap -> [> `Intercept ] attrib
-              val a_amplitude :
-                Svg_types.number wrap -> [> `Amplitude ] attrib
-              val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
-              val a_transfer_offset :
-                Svg_types.number wrap -> [> `Offset_transfer ] attrib
-              val a_feComposite_operator :
-                [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
-                [> `OperatorComposite ] attrib
-              val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
-              val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
-              val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
-              val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
-              val a_order :
-                Svg_types.number_optional_number wrap -> [> `Order ] attrib
-              val a_kernelMatrix :
-                Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
-              val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
-              val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
-              val a_kernelUnitLength :
-                Svg_types.number_optional_number wrap ->
-                [> `KernelUnitLength ] attrib
-              val a_targetX : int wrap -> [> `TargetX ] attrib
-              val a_targetY : int wrap -> [> `TargetY ] attrib
-              val a_edgeMode :
-                [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
-              val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
-              val a_surfaceScale :
-                Svg_types.number wrap -> [> `SurfaceScale ] attrib
-              val a_diffuseConstant :
-                Svg_types.number wrap -> [> `DiffuseConstant ] attrib
-              val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
-              val a_xChannelSelector :
-                [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
-              val a_yChannelSelector :
-                [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
-              val a_stdDeviation :
-                Svg_types.number_optional_number wrap ->
-                [> `StdDeviation ] attrib
-              val a_feMorphology_operator :
-                [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
-              val a_radius :
-                Svg_types.number_optional_number wrap -> [> `Radius ] attrib
-              val a_baseFrenquency :
-                Svg_types.number_optional_number wrap ->
-                [> `BaseFrequency ] attrib
-              val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
-              val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
-              val a_stitchTiles :
-                [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
-              val a_feTurbulence_type :
-                [< `FractalNoise | `Turbulence ] wrap ->
-                [> `TypeStitch ] attrib
-              val a_xlink_show :
-                [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
-              val a_xlink_actuate :
-                [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
-                [> `Xlink_actuate ] attrib
-              val a_target : string wrap -> [> `Xlink_target ] attrib
-              val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
-              val a_attributeName : string wrap -> [> `AttributeName ] attrib
-              val a_attributeType :
-                [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
-              val a_begin : string wrap -> [> `Begin ] attrib
-              val a_dur : string wrap -> [> `Dur ] attrib
-              val a_min : string wrap -> [> `Min ] attrib
-              val a_max : string wrap -> [> `Max ] attrib
-              val a_restart :
-                [< `Always | `Never | `WhenNotActive ] wrap ->
-                [> `Restart ] attrib
-              val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
-              val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
-              val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
-              val a_animation_fill :
-                [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
-              val a_calcMode :
-                [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
-                [> `CalcMode ] attrib
-              val a_animation_values :
-                Svg_types.strings wrap -> [> `Valuesanim ] attrib
-              val a_keyTimes :
-                Svg_types.strings wrap -> [> `KeyTimes ] attrib
-              val a_keySplines :
-                Svg_types.strings wrap -> [> `KeySplines ] attrib
-              val a_from : string wrap -> [> `From ] attrib
-              val a_to : string wrap -> [> `To ] attrib
-              val a_by : string wrap -> [> `By ] attrib
-              val a_additive :
-                [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
-              val a_accumulate :
-                [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
-              val a_keyPoints :
-                Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
-              val a_path : string wrap -> [> `Path ] attrib
-              val a_animateTransform_type :
-                [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
-                [ `Typeanimatetransform ] attrib
-              val a_horiz_origin_x :
-                Svg_types.number wrap -> [> `HorizOriginX ] attrib
-              val a_horiz_origin_y :
-                Svg_types.number wrap -> [> `HorizOriginY ] attrib
-              val a_horiz_adv_x :
-                Svg_types.number wrap -> [> `HorizAdvX ] attrib
-              val a_vert_origin_x :
-                Svg_types.number wrap -> [> `VertOriginX ] attrib
-              val a_vert_origin_y :
-                Svg_types.number wrap -> [> `VertOriginY ] attrib
-              val a_vert_adv_y :
-                Svg_types.number wrap -> [> `VertAdvY ] attrib
-              val a_unicode : string wrap -> [> `Unicode ] attrib
-              val a_glyph_name : string wrap -> [> `glyphname ] attrib
-              val a_orientation :
-                [< `H | `V ] wrap -> [> `Orientation ] attrib
-              val a_arabic_form :
-                [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
-                [> `Arabicform ] attrib
-              val a_lang : string wrap -> [> `Lang ] attrib
-              val a_u1 : string wrap -> [> `U1 ] attrib
-              val a_u2 : string wrap -> [> `U2 ] attrib
-              val a_g1 : string wrap -> [> `G1 ] attrib
-              val a_g2 : string wrap -> [> `G2 ] attrib
-              val a_k : string wrap -> [> `K ] attrib
-              val a_font_family : string wrap -> [> `Font_Family ] attrib
-              val a_font_style : string wrap -> [> `Font_Style ] attrib
-              val a_font_variant : string wrap -> [> `Font_Variant ] attrib
-              val a_font_weight : string wrap -> [> `Font_Weight ] attrib
-              val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
-              val a_font_size : string wrap -> [> `Font_Size ] attrib
-              val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
-              val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
-              val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
-              val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
-              val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
-              val a_cap_height :
-                Svg_types.number wrap -> [> `CapHeight ] attrib
-              val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
-              val a_accent_height :
-                Svg_types.number wrap -> [> `AccentHeight ] attrib
-              val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
-              val a_widths : string wrap -> [> `Widths ] attrib
-              val a_bbox : string wrap -> [> `Bbox ] attrib
-              val a_ideographic :
-                Svg_types.number wrap -> [> `Ideographic ] attrib
-              val a_alphabetic :
-                Svg_types.number wrap -> [> `Alphabetic ] attrib
-              val a_mathematical :
-                Svg_types.number wrap -> [> `Mathematical ] attrib
-              val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
-              val a_videographic :
-                Svg_types.number wrap -> [> `VIdeographic ] attrib
-              val a_v_alphabetic :
-                Svg_types.number wrap -> [> `VAlphabetic ] attrib
-              val a_v_mathematical :
-                Svg_types.number wrap -> [> `VMathematical ] attrib
-              val a_v_hanging :
-                Svg_types.number wrap -> [> `VHanging ] attrib
-              val a_underline_position :
-                Svg_types.number wrap -> [> `UnderlinePosition ] attrib
-              val a_underline_thickness :
-                Svg_types.number wrap -> [> `UnderlineThickness ] attrib
-              val a_strikethrough_position :
-                Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
-              val a_strikethrough_thickness :
-                Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
-              val a_overline_position :
-                Svg_types.number wrap -> [> `OverlinePosition ] attrib
-              val a_overline_thickness :
-                Svg_types.number wrap -> [> `OverlineThickness ] attrib
-              val a_string : string wrap -> [> `String ] attrib
-              val a_name : string wrap -> [> `Name ] attrib
-              val a_alignment_baseline :
-                [< `After_edge
-                 | `Alphabetic
-                 | `Auto
-                 | `Baseline
-                 | `Before_edge
-                 | `Central
-                 | `Hanging
-                 | `Ideographic
-                 | `Inherit
-                 | `Mathematical
-                 | `Middle
-                 | `Text_after_edge
-                 | `Text_before_edge ]
-                wrap -> [> `Alignment_Baseline ] attrib
-              val a_dominant_baseline :
-                [< `Alphabetic
-                 | `Auto
-                 | `Central
-                 | `Hanging
-                 | `Ideographic
-                 | `Inherit
-                 | `Mathematical
-                 | `Middle
-                 | `No_change
-                 | `Reset_size
-                 | `Text_after_edge
-                 | `Text_before_edge
-                 | `Use_script ]
-                wrap -> [> `Dominant_Baseline ] attrib
-              val a_stop_color :
-                Svg_types.color wrap -> [> `Stop_Color ] attrib
-              val a_stop_opacity :
-                Svg_types.number wrap -> [> `Stop_Opacity ] attrib
-              val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
-              val a_stroke_width :
-                Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
-              val a_stroke_linecap :
-                [< `Butt | `Round | `Square ] wrap ->
-                [> `Stroke_Linecap ] attrib
-              val a_stroke_linejoin :
-                [< `Bever | `Miter | `Round ] wrap ->
-                [> `Stroke_Linejoin ] attrib
-              val a_stroke_miterlimit :
-                float wrap -> [> `Stroke_Miterlimit ] attrib
-              val a_stroke_dasharray :
-                Svg_types.Unit.length list wrap ->
-                [> `Stroke_Dasharray ] attrib
-              val a_stroke_dashoffset :
-                Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
-              val a_stroke_opacity :
-                float wrap -> [> `Stroke_Opacity ] attrib
-              val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-              val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
-              val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
-              val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
-              val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-              val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
-              val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
-              val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-              val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
-              val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-              val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-              val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-              val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
-              val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-              val a_onmousedown :
-                Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-              val a_onmouseup :
-                Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-              val a_onmouseover :
-                Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-              val a_onmouseout :
-                Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-              val a_onmousemove :
-                Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-              val a_ontouchstart :
-                Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-              val a_ontouchend :
-                Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-              val a_ontouchmove :
-                Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-              val a_ontouchcancel :
-                Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-              val txt : string wrap -> [> Svg_types.txt ] elt
-              val svg :
-                ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
-                 [> Svg_types.svg ])
-                star
-              val g :
-                ([< Svg_types.g_attr ], [< Svg_types.g_content ],
-                 [> Svg_types.g ])
-                star
-              val defs :
-                ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
-                 [> Svg_types.defs ])
-                star
-              val desc :
-                ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
-                 [> Svg_types.desc ])
-                unary
-              val title :
-                ([< Svg_types.title_attr ], [< Svg_types.title_content ],
-                 [> Svg_types.title ])
-                unary
-              val symbol :
-                ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
-                 [> Svg_types.symbol ])
-                star
-              val use :
-                ([< Svg_types.use_attr ], [< Svg_types.use_content ],
-                 [> Svg_types.use ])
-                star
-              val image :
-                ([< Svg_types.image_attr ], [< Svg_types.image_content ],
-                 [> Svg_types.image ])
-                star
-              val switch :
-                ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
-                 [> Svg_types.switch ])
-                star
-              val style :
-                ([< Svg_types.style_attr ], [< Svg_types.style_content ],
-                 [> Svg_types.style ])
-                unary
-              val path :
-                ([< Svg_types.path_attr ], [< Svg_types.path_content ],
-                 [> Svg_types.path ])
-                star
-              val rect :
-                ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
-                 [> Svg_types.rect ])
-                star
-              val circle :
-                ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
-                 [> Svg_types.circle ])
-                star
-              val ellipse :
-                ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
-                 [> Svg_types.ellipse ])
-                star
-              val line :
-                ([< Svg_types.line_attr ], [< Svg_types.line_content ],
-                 [> Svg_types.line ])
-                star
-              val polyline :
-                ([< Svg_types.polyline_attr ],
-                 [< Svg_types.polyline_content ], [> Svg_types.polyline ])
-                star
-              val polygon :
-                ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
-                 [> Svg_types.polygon ])
-                star
-              val text :
-                ([< Svg_types.text_attr ], [< Svg_types.text_content ],
-                 [> Svg_types.text ])
-                star
-              val tspan :
-                ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
-                 [> Svg_types.tspan ])
-                star
-              val tref :
-                ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
-                 [> Svg_types.tref ])
-                star
-              val textPath :
-                ([< Svg_types.textpath_attr ],
-                 [< Svg_types.textpath_content ], [> Svg_types.textpath ])
-                star
-              val altGlyph :
-                ([< Svg_types.altglyph_attr ],
-                 [< Svg_types.altglyph_content ], [> Svg_types.altglyph ])
-                unary
-              type altglyphdef_content =
-                  [ `Item of Svg_types.altglyphitem elt list
-                  | `Ref of Svg_types.glyphref elt list ]
-              val altGlyphDef :
-                ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
-                 [> Svg_types.altglyphdef ])
-                unary
-              val altGlyphItem :
-                ([< Svg_types.altglyphitem_attr ],
-                 [< Svg_types.altglyphitem_content ],
-                 [> Svg_types.altglyphitem ])
-                star
-              val glyphRef :
-                ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ])
-                nullary
-              val marker :
-                ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
-                 [> Svg_types.marker ])
-                star
-              val color_profile :
-                ([< Svg_types.colorprofile_attr ],
-                 [< Svg_types.colorprofile_content ],
-                 [> Svg_types.colorprofile ])
-                star
-              val linearGradient :
-                ([< Svg_types.lineargradient_attr ],
-                 [< Svg_types.lineargradient_content ],
-                 [> Svg_types.lineargradient ])
-                star
-              val radialGradient :
-                ([< Svg_types.radialgradient_attr ],
-                 [< Svg_types.radialgradient_content ],
-                 [> Svg_types.radialgradient ])
-                star
-              val stop :
-                ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
-                 [> Svg_types.stop ])
-                star
-              val pattern :
-                ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
-                 [> Svg_types.pattern ])
-                star
-              val clipPath :
-                ([< Svg_types.clippath_attr ],
-                 [< Svg_types.clippath_content ], [> Svg_types.clippath ])
-                star
-              val filter :
-                ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
-                 [> Svg_types.filter ])
-                star
-              val feDistantLight :
-                ([< Svg_types.fedistantlight_attr ],
-                 [< Svg_types.fedistantlight_content ],
-                 [> Svg_types.fedistantlight ])
-                star
-              val fePointLight :
-                ([< Svg_types.fepointlight_attr ],
-                 [< Svg_types.fepointlight_content ],
-                 [> Svg_types.fepointlight ])
-                star
-              val feSpotLight :
-                ([< Svg_types.fespotlight_attr ],
-                 [< Svg_types.fespotlight_content ],
-                 [> Svg_types.fespotlight ])
-                star
-              val feBlend :
-                ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
-                 [> Svg_types.feblend ])
-                star
-              val feColorMatrix :
-                ([< Svg_types.fecolormatrix_attr ],
-                 [< Svg_types.fecolormatrix_content ],
-                 [> Svg_types.fecolormatrix ])
-                star
-              val feComponentTransfer :
-                ([< Svg_types.fecomponenttransfer_attr ],
-                 [< Svg_types.fecomponenttransfer_content ],
-                 [> Svg_types.fecomponenttransfer ])
-                star
-              val feFuncA :
-                ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
-                 [> Svg_types.fefunca ])
-                star
-              val feFuncG :
-                ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
-                 [> Svg_types.fefuncg ])
-                star
-              val feFuncB :
-                ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
-                 [> Svg_types.fefuncb ])
-                star
-              val feFuncR :
-                ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
-                 [> Svg_types.fefuncr ])
-                star
-              val feComposite :
-                ([< Svg_types.fecomposite_attr ],
-                 [< Svg_types.fecomposite_content ],
-                 [> Svg_types.fecomposite ])
-                star
-              val feConvolveMatrix :
-                ([< Svg_types.feconvolvematrix_attr ],
-                 [< Svg_types.feconvolvematrix_content ],
-                 [> Svg_types.feconvolvematrix ])
-                star
-              val feDiffuseLighting :
-                ([< Svg_types.fediffuselighting_attr ],
-                 [< Svg_types.fediffuselighting_content ],
-                 [> Svg_types.fediffuselighting ])
-                star
-              val feDisplacementMap :
-                ([< Svg_types.fedisplacementmap_attr ],
-                 [< Svg_types.fedisplacementmap_content ],
-                 [> Svg_types.fedisplacementmap ])
-                star
-              val feFlood :
-                ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
-                 [> Svg_types.feflood ])
-                star
-              val feGaussianBlur :
-                ([< Svg_types.fegaussianblur_attr ],
-                 [< Svg_types.fegaussianblur_content ],
-                 [> Svg_types.fegaussianblur ])
-                star
-              val feImage :
-                ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
-                 [> Svg_types.feimage ])
-                star
-              val feMerge :
-                ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
-                 [> Svg_types.femerge ])
-                star
-              val feMorphology :
-                ([< Svg_types.femorphology_attr ],
-                 [< Svg_types.femorphology_content ],
-                 [> Svg_types.femorphology ])
-                star
-              val feOffset :
-                ([< Svg_types.feoffset_attr ],
-                 [< Svg_types.feoffset_content ], [> Svg_types.feoffset ])
-                star
-              val feSpecularLighting :
-                ([< Svg_types.fespecularlighting_attr ],
-                 [< Svg_types.fespecularlighting_content ],
-                 [> Svg_types.fespecularlighting ])
-                star
-              val feTile :
-                ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
-                 [> Svg_types.fetile ])
-                star
-              val feTurbulence :
-                ([< Svg_types.feturbulence_attr ],
-                 [< Svg_types.feturbulence_content ],
-                 [> Svg_types.feturbulence ])
-                star
-              val cursor :
-                ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
-                 [> Svg_types.cursor ])
-                star
-              val a :
-                ([< Svg_types.a_attr ], [< Svg_types.a_content ],
-                 [> Svg_types.a ])
-                star
-              val view :
-                ([< Svg_types.view_attr ], [< Svg_types.view_content ],
-                 [> Svg_types.view ])
-                star
-              val script :
-                ([< Svg_types.script_attr ], [< Svg_types.script_content ],
-                 [> Svg_types.script ])
-                unary
-              val animation :
-                ([< Svg_types.animation_attr ],
-                 [< Svg_types.animation_content ], [> Svg_types.animation ])
-                star
-              val set :
-                ([< Svg_types.set_attr ], [< Svg_types.set_content ],
-                 [> Svg_types.set ])
-                star
-              val animateMotion :
-                ([< Svg_types.animatemotion_attr ],
-                 [< Svg_types.animatemotion_content ],
-                 [> Svg_types.animatemotion ])
-                star
-              val mpath :
-                ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
-                 [> Svg_types.mpath ])
-                star
-              val animateColor :
-                ([< Svg_types.animatecolor_attr ],
-                 [< Svg_types.animatecolor_content ],
-                 [> Svg_types.animatecolor ])
-                star
-              val animateTransform :
-                ([< Svg_types.animatetransform_attr ],
-                 [< Svg_types.animatetransform_content ],
-                 [> Svg_types.animatetransform ])
-                star
-              val font :
-                ([< Svg_types.font_attr ], [< Svg_types.font_content ],
-                 [> Svg_types.font ])
-                star
-              val glyph :
-                ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
-                 [> Svg_types.glyph ])
-                star
-              val missing_glyph :
-                ([< Svg_types.missingglyph_attr ],
-                 [< Svg_types.missingglyph_content ],
-                 [> Svg_types.missingglyph ])
-                star
-              val hkern :
-                ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
-              val vkern :
-                ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
-              val font_face :
-                ([< Svg_types.font_face_attr ], [> Svg_types.font_face ])
-                nullary
-              val font_face_src :
-                ([< Svg_types.font_face_src_attr ],
-                 [< Svg_types.font_face_src_content ],
-                 [> Svg_types.font_face_src ])
-                star
-              val font_face_uri :
-                ([< Svg_types.font_face_uri_attr ],
-                 [< Svg_types.font_face_uri_content ],
-                 [> Svg_types.font_face_uri ])
-                star
-              val font_face_format :
-                ([< Svg_types.font_face_format_attr ],
-                 [> Svg_types.font_face_format ])
-                nullary
-              val font_face_name :
-                ([< Svg_types.font_face_name_attr ],
-                 [> Svg_types.font_face_name ])
-                nullary
-              val metadata :
-                ?a:Svg_types.metadata_attr attrib list ->
-                Xml.elt list_wrap -> [> Svg_types.metadata ] elt
-              val foreignObject :
-                ?a:Svg_types.foreignobject_attr attrib list ->
-                Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
-              val pcdata : string wrap -> [> Svg_types.txt ] elt
-              val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
-              val tot : Xml.elt -> 'a elt
-              val totl : Xml.elt list_wrap -> 'a elt list_wrap
-              val toelt : 'a elt -> Xml.elt
-              val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
-              val doc_toelt : doc -> Xml.elt
-              val to_xmlattribs : 'a attrib list -> Xml.attrib list
-              val to_attrib : Xml.attrib -> 'a attrib
-              module Unsafe :
-                sig
-                  val data : string wrap -> 'a elt
-                  val node :
-                    string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-                  val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
-                  val coerce_elt : 'a elt -> 'b elt
-                  val string_attrib : string -> string wrap -> 'a attrib
-                  val float_attrib : string -> float wrap -> 'a attrib
-                  val int_attrib : string -> int wrap -> 'a attrib
-                  val uri_attrib : string -> uri wrap -> 'a attrib
-                  val space_sep_attrib :
-                    string -> string list wrap -> 'a attrib
-                  val comma_sep_attrib :
-                    string -> string list wrap -> 'a attrib
-                end
-            end
-          type 'a elt = 'a elt
-          type doc = [ `Svg ] elt
-          type 'a attrib = 'a attrib
-          module Xml :
-            sig
-              module W :
-                sig
-                  type 'a t = 'a Xml.W.t
-                  val return : 'a -> 'a t
-                  type ('a, 'b) ft = ('a, 'b) Xml.W.ft
-                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
-                  type 'a tlist = 'a Xml.W.tlist
-                  val nil : unit -> 'a tlist
-                  val singleton : 'a t -> 'a tlist
-                  val cons : 'a t -> 'a tlist -> 'a tlist
-                  val append : 'a tlist -> 'a tlist -> 'a tlist
-                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
-                end
-              type 'a wrap = 'a W.t
-              type 'a list_wrap = 'a W.tlist
-              type uri = Xml.uri
-              val string_of_uri : (uri, string) W.ft
-              val uri_of_string : (string, uri) W.ft
-              type aname = string
-              type event_handler = Xml.event_handler
-              type mouse_event_handler = Xml.mouse_event_handler
-              type keyboard_event_handler = Xml.keyboard_event_handler
-              type touch_event_handler = Xml.touch_event_handler
-              type attrib = Xml.attrib
-              val float_attrib : aname -> float wrap -> attrib
-              val int_attrib : aname -> int wrap -> attrib
-              val string_attrib : aname -> string wrap -> attrib
-              val space_sep_attrib : aname -> string list wrap -> attrib
-              val comma_sep_attrib : aname -> string list wrap -> attrib
-              val event_handler_attrib : aname -> event_handler -> attrib
-              val mouse_event_handler_attrib :
-                aname -> mouse_event_handler -> attrib
-              val keyboard_event_handler_attrib :
-                aname -> keyboard_event_handler -> attrib
-              val touch_event_handler_attrib :
-                aname -> touch_event_handler -> attrib
-              val uri_attrib : aname -> uri wrap -> attrib
-              val uris_attrib : aname -> uri list wrap -> attrib
-              type elt = Xml.elt
-              type ename = string
-              val empty : unit -> elt
-              val comment : string -> elt
-              val pcdata : string wrap -> elt
-              val encodedpcdata : string wrap -> elt
-              val entity : string -> elt
-              val leaf : ?a:attrib list -> ename -> elt
-              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
-              val cdata : string -> elt
-              val cdata_script : string -> elt
-              val cdata_style : string -> elt
-            end
-          type 'a wrap = 'a Xml.W.t
-          type 'a list_wrap = 'a Xml.W.tlist
-          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
-          type ('a, 'b, 'c) unary =
-              ?a:'a attrib list -> 'b elt wrap -> 'c elt
-          type ('a, 'b, 'c) star =
-              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-          module Info : Xml_sigs.Info
-          type uri = Xml.uri
-          val string_of_uri : (uri, string) Xml.W.ft
-          val uri_of_string : (string, uri) Xml.W.ft
-          val a_version : string wrap -> [> `Version ] attrib
-          val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
-          val a_x : Svg_types.coord wrap -> [> `X ] attrib
-          val a_y : Svg_types.coord wrap -> [> `Y ] attrib
-          val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
-          val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
-          val a_preserveAspectRatio :
-            string wrap -> [> `PreserveAspectRatio ] attrib
-          val a_contentScriptType :
-            string wrap -> [> `ContentScriptType ] attrib
-          val a_contentStyleType :
-            string wrap -> [> `ContentStyleType ] attrib
-          val a_zoomAndPan :
-            [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
-          val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
-          val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
-          val a_requiredFeatures :
-            Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
-          val a_requiredExtensions :
-            Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
-          val a_systemLanguage :
-            Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
-          val a_externalRessourcesRequired :
-            bool wrap -> [> `ExternalRessourcesRequired ] attrib
-          val a_id : string wrap -> [> `Id ] attrib
-          val a_user_data : string -> string wrap -> [> `User_data ] attrib
-          val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
-          val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
-          val a_xml_space :
-            [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
-          val a_type : string wrap -> [> `Type ] attrib
-          val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
-          val a_xlink_title : string wrap -> [> `Title ] attrib
-          val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
-          val a_style : string wrap -> [> `Style ] attrib
-          val a_transform :
-            Svg_types.transforms wrap -> [> `Transform ] attrib
-          val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
-          val a_d : string wrap -> [> `D ] attrib
-          val a_pathLength : float wrap -> [> `PathLength ] attrib
-          val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
-          val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
-          val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
-          val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
-          val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
-          val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
-          val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
-          val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
-          val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
-          val a_points : Svg_types.coords wrap -> [> `Points ] attrib
-          val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
-          val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
-          val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
-          val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
-          val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
-          val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
-          val a_lengthAdjust :
-            [< `Spacing | `SpacingAndGlyphs ] wrap ->
-            [> `LengthAdjust ] attrib
-          val a_textLength :
-            Svg_types.Unit.length wrap -> [> `TextLength ] attrib
-          val a_text_anchor :
-            [< `End | `Inherit | `Middle | `Start ] wrap ->
-            [> `Text_Anchor ] attrib
-          val a_text_decoration :
-            [< `Blink
-             | `Inherit
-             | `Line_through
-             | `None
-             | `Overline
-             | `Underline ]
-            wrap -> [> `Text_Decoration ] attrib
-          val a_text_rendering :
-            [< `Auto
-             | `GeometricPrecision
-             | `Inherit
-             | `OptimizeLegibility
-             | `OptimizeSpeed ]
-            wrap -> [> `Text_Rendering ] attrib
-          val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
-          val a_startOffset :
-            Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
-          val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
-          val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
-          val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
-          val a_format : string wrap -> [> `Format ] attrib
-          val a_markerUnits :
-            [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
-            [> `MarkerUnits ] attrib
-          val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
-          val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
-          val a_markerWidth :
-            Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
-          val a_markerHeight :
-            Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
-          val a_orient :
-            Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
-          val a_local : string wrap -> [> `Local ] attrib
-          val a_rendering_intent :
-            [< `Absolute_colorimetric
-             | `Auto
-             | `Perceptual
-             | `Relative_colorimetric
-             | `Saturation ]
-            wrap -> [> `Rendering_Indent ] attrib
-          val a_gradientUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [ `GradientUnits ] attrib
-          val a_gradientTransform :
-            Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
-          val a_spreadMethod :
-            [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
-          val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
-          val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
-          val a_offset :
-            [< `Number of Svg_types.number
-             | `Percentage of Svg_types.percentage ]
-            wrap -> [> `Offset ] attrib
-          val a_patternUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [> `PatternUnits ] attrib
-          val a_patternContentUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [> `PatternContentUnits ] attrib
-          val a_patternTransform :
-            Svg_types.transforms wrap -> [> `PatternTransform ] attrib
-          val a_clipPathUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [> `ClipPathUnits ] attrib
-          val a_maskUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [> `MaskUnits ] attrib
-          val a_maskContentUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [> `MaskContentUnits ] attrib
-          val a_primitiveUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [> `PrimitiveUnits ] attrib
-          val a_filterRes :
-            Svg_types.number_optional_number wrap ->
-            [> `FilterResUnits ] attrib
-          val a_result : string wrap -> [> `Result ] attrib
-          val a_in :
-            [< `BackgroundAlpha
-             | `BackgroundImage
-             | `FillPaint
-             | `Ref of string
-             | `SourceAlpha
-             | `SourceGraphic
-             | `StrokePaint ]
-            wrap -> [> `In ] attrib
-          val a_in2 :
-            [< `BackgroundAlpha
-             | `BackgroundImage
-             | `FillPaint
-             | `Ref of string
-             | `SourceAlpha
-             | `SourceGraphic
-             | `StrokePaint ]
-            wrap -> [> `In2 ] attrib
-          val a_azimuth : float wrap -> [> `Azimuth ] attrib
-          val a_elevation : float wrap -> [> `Elevation ] attrib
-          val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
-          val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
-          val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
-          val a_specularExponent :
-            float wrap -> [> `SpecularExponent ] attrib
-          val a_specularConstant :
-            float wrap -> [> `SpecularConstant ] attrib
-          val a_limitingConeAngle :
-            float wrap -> [> `LimitingConeAngle ] attrib
-          val a_mode :
-            [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
-            [> `Mode ] attrib
-          val a_feColorMatrix_type :
-            [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ] wrap ->
-            [> `Typefecolor ] attrib
-          val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
-          val a_transfer_type :
-            [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
-            [> `Type_transfert ] attrib
-          val a_tableValues :
-            Svg_types.numbers wrap -> [> `TableValues ] attrib
-          val a_intercept : Svg_types.number wrap -> [> `Intercept ] attrib
-          val a_amplitude : Svg_types.number wrap -> [> `Amplitude ] attrib
-          val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
-          val a_transfer_offset :
-            Svg_types.number wrap -> [> `Offset_transfer ] attrib
-          val a_feComposite_operator :
-            [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
-            [> `OperatorComposite ] attrib
-          val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
-          val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
-          val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
-          val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
-          val a_order :
-            Svg_types.number_optional_number wrap -> [> `Order ] attrib
-          val a_kernelMatrix :
-            Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
-          val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
-          val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
-          val a_kernelUnitLength :
-            Svg_types.number_optional_number wrap ->
-            [> `KernelUnitLength ] attrib
-          val a_targetX : int wrap -> [> `TargetX ] attrib
-          val a_targetY : int wrap -> [> `TargetY ] attrib
-          val a_edgeMode :
-            [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
-          val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
-          val a_surfaceScale :
-            Svg_types.number wrap -> [> `SurfaceScale ] attrib
-          val a_diffuseConstant :
-            Svg_types.number wrap -> [> `DiffuseConstant ] attrib
-          val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
-          val a_xChannelSelector :
-            [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
-          val a_yChannelSelector :
-            [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
-          val a_stdDeviation :
-            Svg_types.number_optional_number wrap ->
-            [> `StdDeviation ] attrib
-          val a_feMorphology_operator :
-            [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
-          val a_radius :
-            Svg_types.number_optional_number wrap -> [> `Radius ] attrib
-          val a_baseFrenquency :
-            Svg_types.number_optional_number wrap ->
-            [> `BaseFrequency ] attrib
-          val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
-          val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
-          val a_stitchTiles :
-            [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
-          val a_feTurbulence_type :
-            [< `FractalNoise | `Turbulence ] wrap -> [> `TypeStitch ] attrib
-          val a_xlink_show :
-            [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
-          val a_xlink_actuate :
-            [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
-            [> `Xlink_actuate ] attrib
-          val a_target : string wrap -> [> `Xlink_target ] attrib
-          val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
-          val a_attributeName : string wrap -> [> `AttributeName ] attrib
-          val a_attributeType :
-            [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
-          val a_begin : string wrap -> [> `Begin ] attrib
-          val a_dur : string wrap -> [> `Dur ] attrib
-          val a_min : string wrap -> [> `Min ] attrib
-          val a_max : string wrap -> [> `Max ] attrib
-          val a_restart :
-            [< `Always | `Never | `WhenNotActive ] wrap ->
-            [> `Restart ] attrib
-          val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
-          val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
-          val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
-          val a_animation_fill :
-            [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
-          val a_calcMode :
-            [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
-            [> `CalcMode ] attrib
-          val a_animation_values :
-            Svg_types.strings wrap -> [> `Valuesanim ] attrib
-          val a_keyTimes : Svg_types.strings wrap -> [> `KeyTimes ] attrib
-          val a_keySplines :
-            Svg_types.strings wrap -> [> `KeySplines ] attrib
-          val a_from : string wrap -> [> `From ] attrib
-          val a_to : string wrap -> [> `To ] attrib
-          val a_by : string wrap -> [> `By ] attrib
-          val a_additive : [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
-          val a_accumulate :
-            [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
-          val a_keyPoints :
-            Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
-          val a_path : string wrap -> [> `Path ] attrib
-          val a_animateTransform_type :
-            [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
-            [ `Typeanimatetransform ] attrib
-          val a_horiz_origin_x :
-            Svg_types.number wrap -> [> `HorizOriginX ] attrib
-          val a_horiz_origin_y :
-            Svg_types.number wrap -> [> `HorizOriginY ] attrib
-          val a_horiz_adv_x : Svg_types.number wrap -> [> `HorizAdvX ] attrib
-          val a_vert_origin_x :
-            Svg_types.number wrap -> [> `VertOriginX ] attrib
-          val a_vert_origin_y :
-            Svg_types.number wrap -> [> `VertOriginY ] attrib
-          val a_vert_adv_y : Svg_types.number wrap -> [> `VertAdvY ] attrib
-          val a_unicode : string wrap -> [> `Unicode ] attrib
-          val a_glyph_name : string wrap -> [> `glyphname ] attrib
-          val a_orientation : [< `H | `V ] wrap -> [> `Orientation ] attrib
-          val a_arabic_form :
-            [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
-            [> `Arabicform ] attrib
-          val a_lang : string wrap -> [> `Lang ] attrib
-          val a_u1 : string wrap -> [> `U1 ] attrib
-          val a_u2 : string wrap -> [> `U2 ] attrib
-          val a_g1 : string wrap -> [> `G1 ] attrib
-          val a_g2 : string wrap -> [> `G2 ] attrib
-          val a_k : string wrap -> [> `K ] attrib
-          val a_font_family : string wrap -> [> `Font_Family ] attrib
-          val a_font_style : string wrap -> [> `Font_Style ] attrib
-          val a_font_variant : string wrap -> [> `Font_Variant ] attrib
-          val a_font_weight : string wrap -> [> `Font_Weight ] attrib
-          val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
-          val a_font_size : string wrap -> [> `Font_Size ] attrib
-          val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
-          val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
-          val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
-          val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
-          val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
-          val a_cap_height : Svg_types.number wrap -> [> `CapHeight ] attrib
-          val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
-          val a_accent_height :
-            Svg_types.number wrap -> [> `AccentHeight ] attrib
-          val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
-          val a_widths : string wrap -> [> `Widths ] attrib
-          val a_bbox : string wrap -> [> `Bbox ] attrib
-          val a_ideographic :
-            Svg_types.number wrap -> [> `Ideographic ] attrib
-          val a_alphabetic : Svg_types.number wrap -> [> `Alphabetic ] attrib
-          val a_mathematical :
-            Svg_types.number wrap -> [> `Mathematical ] attrib
-          val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
-          val a_videographic :
-            Svg_types.number wrap -> [> `VIdeographic ] attrib
-          val a_v_alphabetic :
-            Svg_types.number wrap -> [> `VAlphabetic ] attrib
-          val a_v_mathematical :
-            Svg_types.number wrap -> [> `VMathematical ] attrib
-          val a_v_hanging : Svg_types.number wrap -> [> `VHanging ] attrib
-          val a_underline_position :
-            Svg_types.number wrap -> [> `UnderlinePosition ] attrib
-          val a_underline_thickness :
-            Svg_types.number wrap -> [> `UnderlineThickness ] attrib
-          val a_strikethrough_position :
-            Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
-          val a_strikethrough_thickness :
-            Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
-          val a_overline_position :
-            Svg_types.number wrap -> [> `OverlinePosition ] attrib
-          val a_overline_thickness :
-            Svg_types.number wrap -> [> `OverlineThickness ] attrib
-          val a_string : string wrap -> [> `String ] attrib
-          val a_name : string wrap -> [> `Name ] attrib
-          val a_alignment_baseline :
-            [< `After_edge
-             | `Alphabetic
-             | `Auto
-             | `Baseline
-             | `Before_edge
-             | `Central
-             | `Hanging
-             | `Ideographic
-             | `Inherit
-             | `Mathematical
-             | `Middle
-             | `Text_after_edge
-             | `Text_before_edge ]
-            wrap -> [> `Alignment_Baseline ] attrib
-          val a_dominant_baseline :
-            [< `Alphabetic
-             | `Auto
-             | `Central
-             | `Hanging
-             | `Ideographic
-             | `Inherit
-             | `Mathematical
-             | `Middle
-             | `No_change
-             | `Reset_size
-             | `Text_after_edge
-             | `Text_before_edge
-             | `Use_script ]
-            wrap -> [> `Dominant_Baseline ] attrib
-          val a_stop_color : Svg_types.color wrap -> [> `Stop_Color ] attrib
-          val a_stop_opacity :
-            Svg_types.number wrap -> [> `Stop_Opacity ] attrib
-          val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
-          val a_stroke_width :
-            Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
-          val a_stroke_linecap :
-            [< `Butt | `Round | `Square ] wrap -> [> `Stroke_Linecap ] attrib
-          val a_stroke_linejoin :
-            [< `Bever | `Miter | `Round ] wrap ->
-            [> `Stroke_Linejoin ] attrib
-          val a_stroke_miterlimit :
-            float wrap -> [> `Stroke_Miterlimit ] attrib
-          val a_stroke_dasharray :
-            Svg_types.Unit.length list wrap -> [> `Stroke_Dasharray ] attrib
-          val a_stroke_dashoffset :
-            Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
-          val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
-          val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-          val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
-          val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
-          val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
-          val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-          val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
-          val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
-          val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-          val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
-          val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-          val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-          val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-          val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
-          val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-          val a_onmousedown :
-            Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-          val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-          val a_onmouseover :
-            Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-          val a_onmouseout :
-            Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-          val a_onmousemove :
-            Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-          val a_ontouchstart :
-            Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-          val a_ontouchend :
-            Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-          val a_ontouchmove :
-            Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-          val a_ontouchcancel :
-            Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-          val txt : string wrap -> [> Svg_types.txt ] elt
-          val svg :
-            ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
-             [> Svg_types.svg ])
-            star
-          val g :
-            ([< Svg_types.g_attr ], [< Svg_types.g_content ],
-             [> Svg_types.g ])
-            star
-          val defs :
-            ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
-             [> Svg_types.defs ])
-            star
-          val desc :
-            ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
-             [> Svg_types.desc ])
-            unary
-          val title :
-            ([< Svg_types.title_attr ], [< Svg_types.title_content ],
-             [> Svg_types.title ])
-            unary
-          val symbol :
-            ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
-             [> Svg_types.symbol ])
-            star
-          val use :
-            ([< Svg_types.use_attr ], [< Svg_types.use_content ],
-             [> Svg_types.use ])
-            star
-          val image :
-            ([< Svg_types.image_attr ], [< Svg_types.image_content ],
-             [> Svg_types.image ])
-            star
-          val switch :
-            ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
-             [> Svg_types.switch ])
-            star
-          val style :
-            ([< Svg_types.style_attr ], [< Svg_types.style_content ],
-             [> Svg_types.style ])
-            unary
-          val path :
-            ([< Svg_types.path_attr ], [< Svg_types.path_content ],
-             [> Svg_types.path ])
-            star
-          val rect :
-            ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
-             [> Svg_types.rect ])
-            star
-          val circle :
-            ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
-             [> Svg_types.circle ])
-            star
-          val ellipse :
-            ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
-             [> Svg_types.ellipse ])
-            star
-          val line :
-            ([< Svg_types.line_attr ], [< Svg_types.line_content ],
-             [> Svg_types.line ])
-            star
-          val polyline :
-            ([< Svg_types.polyline_attr ], [< Svg_types.polyline_content ],
-             [> Svg_types.polyline ])
-            star
-          val polygon :
-            ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
-             [> Svg_types.polygon ])
-            star
-          val text :
-            ([< Svg_types.text_attr ], [< Svg_types.text_content ],
-             [> Svg_types.text ])
-            star
-          val tspan :
-            ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
-             [> Svg_types.tspan ])
-            star
-          val tref :
-            ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
-             [> Svg_types.tref ])
-            star
-          val textPath :
-            ([< Svg_types.textpath_attr ], [< Svg_types.textpath_content ],
-             [> Svg_types.textpath ])
-            star
-          val altGlyph :
-            ([< Svg_types.altglyph_attr ], [< Svg_types.altglyph_content ],
-             [> Svg_types.altglyph ])
-            unary
-          type altglyphdef_content =
-              [ `Item of Svg_types.altglyphitem elt list
-              | `Ref of Svg_types.glyphref elt list ]
-          val altGlyphDef :
-            ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
-             [> Svg_types.altglyphdef ])
-            unary
-          val altGlyphItem :
-            ([< Svg_types.altglyphitem_attr ],
-             [< Svg_types.altglyphitem_content ],
-             [> Svg_types.altglyphitem ])
-            star
-          val glyphRef :
-            ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ]) nullary
-          val marker :
-            ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
-             [> Svg_types.marker ])
-            star
-          val color_profile :
-            ([< Svg_types.colorprofile_attr ],
-             [< Svg_types.colorprofile_content ],
-             [> Svg_types.colorprofile ])
-            star
-          val linearGradient :
-            ([< Svg_types.lineargradient_attr ],
-             [< Svg_types.lineargradient_content ],
-             [> Svg_types.lineargradient ])
-            star
-          val radialGradient :
-            ([< Svg_types.radialgradient_attr ],
-             [< Svg_types.radialgradient_content ],
-             [> Svg_types.radialgradient ])
-            star
-          val stop :
-            ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
-             [> Svg_types.stop ])
-            star
-          val pattern :
-            ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
-             [> Svg_types.pattern ])
-            star
-          val clipPath :
-            ([< Svg_types.clippath_attr ], [< Svg_types.clippath_content ],
-             [> Svg_types.clippath ])
-            star
-          val filter :
-            ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
-             [> Svg_types.filter ])
-            star
-          val feDistantLight :
-            ([< Svg_types.fedistantlight_attr ],
-             [< Svg_types.fedistantlight_content ],
-             [> Svg_types.fedistantlight ])
-            star
-          val fePointLight :
-            ([< Svg_types.fepointlight_attr ],
-             [< Svg_types.fepointlight_content ],
-             [> Svg_types.fepointlight ])
-            star
-          val feSpotLight :
-            ([< Svg_types.fespotlight_attr ],
-             [< Svg_types.fespotlight_content ], [> Svg_types.fespotlight ])
-            star
-          val feBlend :
-            ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
-             [> Svg_types.feblend ])
-            star
-          val feColorMatrix :
-            ([< Svg_types.fecolormatrix_attr ],
-             [< Svg_types.fecolormatrix_content ],
-             [> Svg_types.fecolormatrix ])
-            star
-          val feComponentTransfer :
-            ([< Svg_types.fecomponenttransfer_attr ],
-             [< Svg_types.fecomponenttransfer_content ],
-             [> Svg_types.fecomponenttransfer ])
-            star
-          val feFuncA :
-            ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
-             [> Svg_types.fefunca ])
-            star
-          val feFuncG :
-            ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
-             [> Svg_types.fefuncg ])
-            star
-          val feFuncB :
-            ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
-             [> Svg_types.fefuncb ])
-            star
-          val feFuncR :
-            ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
-             [> Svg_types.fefuncr ])
-            star
-          val feComposite :
-            ([< Svg_types.fecomposite_attr ],
-             [< Svg_types.fecomposite_content ], [> Svg_types.fecomposite ])
-            star
-          val feConvolveMatrix :
-            ([< Svg_types.feconvolvematrix_attr ],
-             [< Svg_types.feconvolvematrix_content ],
-             [> Svg_types.feconvolvematrix ])
-            star
-          val feDiffuseLighting :
-            ([< Svg_types.fediffuselighting_attr ],
-             [< Svg_types.fediffuselighting_content ],
-             [> Svg_types.fediffuselighting ])
-            star
-          val feDisplacementMap :
-            ([< Svg_types.fedisplacementmap_attr ],
-             [< Svg_types.fedisplacementmap_content ],
-             [> Svg_types.fedisplacementmap ])
-            star
-          val feFlood :
-            ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
-             [> Svg_types.feflood ])
-            star
-          val feGaussianBlur :
-            ([< Svg_types.fegaussianblur_attr ],
-             [< Svg_types.fegaussianblur_content ],
-             [> Svg_types.fegaussianblur ])
-            star
-          val feImage :
-            ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
-             [> Svg_types.feimage ])
-            star
-          val feMerge :
-            ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
-             [> Svg_types.femerge ])
-            star
-          val feMorphology :
-            ([< Svg_types.femorphology_attr ],
-             [< Svg_types.femorphology_content ],
-             [> Svg_types.femorphology ])
-            star
-          val feOffset :
-            ([< Svg_types.feoffset_attr ], [< Svg_types.feoffset_content ],
-             [> Svg_types.feoffset ])
-            star
-          val feSpecularLighting :
-            ([< Svg_types.fespecularlighting_attr ],
-             [< Svg_types.fespecularlighting_content ],
-             [> Svg_types.fespecularlighting ])
-            star
-          val feTile :
-            ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
-             [> Svg_types.fetile ])
-            star
-          val feTurbulence :
-            ([< Svg_types.feturbulence_attr ],
-             [< Svg_types.feturbulence_content ],
-             [> Svg_types.feturbulence ])
-            star
-          val cursor :
-            ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
-             [> Svg_types.cursor ])
-            star
-          val a :
-            ([< Svg_types.a_attr ], [< Svg_types.a_content ],
-             [> Svg_types.a ])
-            star
-          val view :
-            ([< Svg_types.view_attr ], [< Svg_types.view_content ],
-             [> Svg_types.view ])
-            star
-          val script :
-            ([< Svg_types.script_attr ], [< Svg_types.script_content ],
-             [> Svg_types.script ])
-            unary
-          val animation :
-            ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-             [> Svg_types.animation ])
-            star
-          val set :
-            ([< Svg_types.set_attr ], [< Svg_types.set_content ],
-             [> Svg_types.set ])
-            star
-          val animateMotion :
-            ([< Svg_types.animatemotion_attr ],
-             [< Svg_types.animatemotion_content ],
-             [> Svg_types.animatemotion ])
-            star
-          val mpath :
-            ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
-             [> Svg_types.mpath ])
-            star
-          val animateColor :
-            ([< Svg_types.animatecolor_attr ],
-             [< Svg_types.animatecolor_content ],
-             [> Svg_types.animatecolor ])
-            star
-          val animateTransform :
-            ([< Svg_types.animatetransform_attr ],
-             [< Svg_types.animatetransform_content ],
-             [> Svg_types.animatetransform ])
-            star
-          val font :
-            ([< Svg_types.font_attr ], [< Svg_types.font_content ],
-             [> Svg_types.font ])
-            star
-          val glyph :
-            ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
-             [> Svg_types.glyph ])
-            star
-          val missing_glyph :
-            ([< Svg_types.missingglyph_attr ],
-             [< Svg_types.missingglyph_content ],
-             [> Svg_types.missingglyph ])
-            star
-          val hkern :
-            ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
-          val vkern :
-            ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
-          val font_face :
-            ([< Svg_types.font_face_attr ], [> Svg_types.font_face ]) nullary
-          val font_face_src :
-            ([< Svg_types.font_face_src_attr ],
-             [< Svg_types.font_face_src_content ],
-             [> Svg_types.font_face_src ])
-            star
-          val font_face_uri :
-            ([< Svg_types.font_face_uri_attr ],
-             [< Svg_types.font_face_uri_content ],
-             [> Svg_types.font_face_uri ])
-            star
-          val font_face_format :
-            ([< Svg_types.font_face_format_attr ],
-             [> Svg_types.font_face_format ])
-            nullary
-          val font_face_name :
-            ([< Svg_types.font_face_name_attr ],
-             [> Svg_types.font_face_name ])
-            nullary
-          val metadata :
-            ?a:Svg_types.metadata_attr attrib list ->
-            Xml.elt list_wrap -> [> Svg_types.metadata ] elt
-          val foreignObject :
-            ?a:Svg_types.foreignobject_attr attrib list ->
-            Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
-          val pcdata : string wrap -> [> Svg_types.txt ] elt
-          val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
-          val tot : Xml.elt -> 'a elt
-          val totl : Xml.elt list_wrap -> 'a elt list_wrap
-          val toelt : 'a elt -> Xml.elt
-          val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
-          val doc_toelt : doc -> Xml.elt
-          val to_xmlattribs : 'a attrib list -> Xml.attrib list
-          val to_attrib : Xml.attrib -> 'a attrib
-          module Unsafe :
-            sig
-              val data : string wrap -> 'a elt
-              val node :
-                string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-              val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
-              val coerce_elt : 'a elt -> 'b elt
-              val string_attrib : string -> string wrap -> 'a attrib
-              val float_attrib : string -> float wrap -> 'a attrib
-              val int_attrib : string -> int wrap -> 'a attrib
-              val uri_attrib : string -> uri wrap -> 'a attrib
-              val space_sep_attrib : string -> string list wrap -> 'a attrib
-              val comma_sep_attrib : string -> string list wrap -> 'a attrib
-            end
-        end
-      module R :
-        sig
-          val node :
-            'a Eliom_content.Svg.elt React.signal -> 'a Eliom_content.Svg.elt
-          module Raw :
-            sig
-              type 'a elt = 'a elt
-              type doc = [ `Svg ] elt
-              type 'a attrib = 'a attrib
-              module Xml :
-                sig
-                  module W :
-                    sig
-                      type 'a t = 'a Eliom_content_core.Xml_wed.W.t
-                      val return : 'a -> 'a t
-                      type ('a, 'b) ft =
-                          ('a, 'b) Eliom_content_core.Xml_wed.W.ft
-                      val fmap : ('a, 'b) ft -> 'a t -> 'b t
-                      type 'a tlist = 'a Eliom_content_core.Xml_wed.W.tlist
-                      val nil : unit -> 'a tlist
-                      val singleton : 'a t -> 'a tlist
-                      val cons : 'a t -> 'a tlist -> 'a tlist
-                      val append : 'a tlist -> 'a tlist -> 'a tlist
-                      val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
-                    end
-                  type 'a wrap = 'a W.t
-                  type 'a list_wrap = 'a W.tlist
-                  type uri = Eliom_content_core.Xml_wed.uri
-                  val string_of_uri : (uri, string) W.ft
-                  val uri_of_string : (string, uri) W.ft
-                  type aname = string
-                  type event_handler =
-                      Eliom_content_core.Xml_wed.event_handler
-                  type mouse_event_handler =
-                      Eliom_content_core.Xml_wed.mouse_event_handler
-                  type keyboard_event_handler =
-                      Eliom_content_core.Xml_wed.keyboard_event_handler
-                  type touch_event_handler =
-                      Eliom_content_core.Xml_wed.touch_event_handler
-                  type attrib = Eliom_content_core.Xml_wed.attrib
-                  val float_attrib : aname -> float wrap -> attrib
-                  val int_attrib : aname -> int wrap -> attrib
-                  val string_attrib : aname -> string wrap -> attrib
-                  val space_sep_attrib : aname -> string list wrap -> attrib
-                  val comma_sep_attrib : aname -> string list wrap -> attrib
-                  val event_handler_attrib : aname -> event_handler -> attrib
-                  val mouse_event_handler_attrib :
-                    aname -> mouse_event_handler -> attrib
-                  val keyboard_event_handler_attrib :
-                    aname -> keyboard_event_handler -> attrib
-                  val touch_event_handler_attrib :
-                    aname -> touch_event_handler -> attrib
-                  val uri_attrib : aname -> uri wrap -> attrib
-                  val uris_attrib : aname -> uri list wrap -> attrib
-                  type elt = Eliom_content_core.Xml_wed.elt
-                  type ename = string
-                  val empty : unit -> elt
-                  val comment : string -> elt
-                  val pcdata : string wrap -> elt
-                  val encodedpcdata : string wrap -> elt
-                  val entity : string -> elt
-                  val leaf : ?a:attrib list -> ename -> elt
-                  val node : ?a:attrib list -> ename -> elt list_wrap -> elt
-                  val cdata : string -> elt
-                  val cdata_script : string -> elt
-                  val cdata_style : string -> elt
-                end
-              type 'a wrap = 'a Xml.W.t
-              type 'a list_wrap = 'a Xml.W.tlist
-              type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
-              type ('a, 'b, 'c) unary =
-                  ?a:'a attrib list -> 'b elt wrap -> 'c elt
-              type ('a, 'b, 'c) star =
-                  ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-              module Info : Xml_sigs.Info
-              type uri = Xml.uri
-              val string_of_uri : (uri, string) Xml.W.ft
-              val uri_of_string : (string, uri) Xml.W.ft
-              val a_version : string wrap -> [> `Version ] attrib
-              val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
-              val a_x : Svg_types.coord wrap -> [> `X ] attrib
-              val a_y : Svg_types.coord wrap -> [> `Y ] attrib
-              val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
-              val a_height :
-                Svg_types.Unit.length wrap -> [> `Height ] attrib
-              val a_preserveAspectRatio :
-                string wrap -> [> `PreserveAspectRatio ] attrib
-              val a_contentScriptType :
-                string wrap -> [> `ContentScriptType ] attrib
-              val a_contentStyleType :
-                string wrap -> [> `ContentStyleType ] attrib
-              val a_zoomAndPan :
-                [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
-              val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
-              val a_xlink_href :
-                Svg_types.iri wrap -> [> `Xlink_href ] attrib
-              val a_requiredFeatures :
-                Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
-              val a_requiredExtensions :
-                Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
-              val a_systemLanguage :
-                Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
-              val a_externalRessourcesRequired :
-                bool wrap -> [> `ExternalRessourcesRequired ] attrib
-              val a_id : string wrap -> [> `Id ] attrib
-              val a_user_data :
-                string -> string wrap -> [> `User_data ] attrib
-              val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
-              val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
-              val a_xml_space :
-                [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
-              val a_type : string wrap -> [> `Type ] attrib
-              val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
-              val a_xlink_title : string wrap -> [> `Title ] attrib
-              val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
-              val a_style : string wrap -> [> `Style ] attrib
-              val a_transform :
-                Svg_types.transforms wrap -> [> `Transform ] attrib
-              val a_viewBox :
-                Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
-              val a_d : string wrap -> [> `D ] attrib
-              val a_pathLength : float wrap -> [> `PathLength ] attrib
-              val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
-              val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
-              val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
-              val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
-              val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
-              val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
-              val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
-              val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
-              val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
-              val a_points : Svg_types.coords wrap -> [> `Points ] attrib
-              val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
-              val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
-              val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
-              val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
-              val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
-              val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
-              val a_lengthAdjust :
-                [< `Spacing | `SpacingAndGlyphs ] wrap ->
-                [> `LengthAdjust ] attrib
-              val a_textLength :
-                Svg_types.Unit.length wrap -> [> `TextLength ] attrib
-              val a_text_anchor :
-                [< `End | `Inherit | `Middle | `Start ] wrap ->
-                [> `Text_Anchor ] attrib
-              val a_text_decoration :
-                [< `Blink
-                 | `Inherit
-                 | `Line_through
-                 | `None
-                 | `Overline
-                 | `Underline ]
-                wrap -> [> `Text_Decoration ] attrib
-              val a_text_rendering :
-                [< `Auto
-                 | `GeometricPrecision
-                 | `Inherit
-                 | `OptimizeLegibility
-                 | `OptimizeSpeed ]
-                wrap -> [> `Text_Rendering ] attrib
-              val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
-              val a_startOffset :
-                Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
-              val a_method :
-                [< `Align | `Stretch ] wrap -> [> `Method ] attrib
-              val a_spacing :
-                [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
-              val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
-              val a_format : string wrap -> [> `Format ] attrib
-              val a_markerUnits :
-                [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
-                [> `MarkerUnits ] attrib
-              val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
-              val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
-              val a_markerWidth :
-                Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
-              val a_markerHeight :
-                Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
-              val a_orient :
-                Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
-              val a_local : string wrap -> [> `Local ] attrib
-              val a_rendering_intent :
-                [< `Absolute_colorimetric
-                 | `Auto
-                 | `Perceptual
-                 | `Relative_colorimetric
-                 | `Saturation ]
-                wrap -> [> `Rendering_Indent ] attrib
-              val a_gradientUnits :
-                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-                [ `GradientUnits ] attrib
-              val a_gradientTransform :
-                Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
-              val a_spreadMethod :
-                [< `Pad | `Reflect | `Repeat ] wrap ->
-                [> `SpreadMethod ] attrib
-              val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
-              val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
-              val a_offset :
-                [< `Number of Svg_types.number
-                 | `Percentage of Svg_types.percentage ]
-                wrap -> [> `Offset ] attrib
-              val a_patternUnits :
-                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-                [> `PatternUnits ] attrib
-              val a_patternContentUnits :
-                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-                [> `PatternContentUnits ] attrib
-              val a_patternTransform :
-                Svg_types.transforms wrap -> [> `PatternTransform ] attrib
-              val a_clipPathUnits :
-                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-                [> `ClipPathUnits ] attrib
-              val a_maskUnits :
-                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-                [> `MaskUnits ] attrib
-              val a_maskContentUnits :
-                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-                [> `MaskContentUnits ] attrib
-              val a_primitiveUnits :
-                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-                [> `PrimitiveUnits ] attrib
-              val a_filterRes :
-                Svg_types.number_optional_number wrap ->
-                [> `FilterResUnits ] attrib
-              val a_result : string wrap -> [> `Result ] attrib
-              val a_in :
-                [< `BackgroundAlpha
-                 | `BackgroundImage
-                 | `FillPaint
-                 | `Ref of string
-                 | `SourceAlpha
-                 | `SourceGraphic
-                 | `StrokePaint ]
-                wrap -> [> `In ] attrib
-              val a_in2 :
-                [< `BackgroundAlpha
-                 | `BackgroundImage
-                 | `FillPaint
-                 | `Ref of string
-                 | `SourceAlpha
-                 | `SourceGraphic
-                 | `StrokePaint ]
-                wrap -> [> `In2 ] attrib
-              val a_azimuth : float wrap -> [> `Azimuth ] attrib
-              val a_elevation : float wrap -> [> `Elevation ] attrib
-              val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
-              val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
-              val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
-              val a_specularExponent :
-                float wrap -> [> `SpecularExponent ] attrib
-              val a_specularConstant :
-                float wrap -> [> `SpecularConstant ] attrib
-              val a_limitingConeAngle :
-                float wrap -> [> `LimitingConeAngle ] attrib
-              val a_mode :
-                [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
-                [> `Mode ] attrib
-              val a_feColorMatrix_type :
-                [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ]
-                wrap -> [> `Typefecolor ] attrib
-              val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
-              val a_transfer_type :
-                [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
-                [> `Type_transfert ] attrib
-              val a_tableValues :
-                Svg_types.numbers wrap -> [> `TableValues ] attrib
-              val a_intercept :
-                Svg_types.number wrap -> [> `Intercept ] attrib
-              val a_amplitude :
-                Svg_types.number wrap -> [> `Amplitude ] attrib
-              val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
-              val a_transfer_offset :
-                Svg_types.number wrap -> [> `Offset_transfer ] attrib
-              val a_feComposite_operator :
-                [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
-                [> `OperatorComposite ] attrib
-              val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
-              val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
-              val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
-              val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
-              val a_order :
-                Svg_types.number_optional_number wrap -> [> `Order ] attrib
-              val a_kernelMatrix :
-                Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
-              val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
-              val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
-              val a_kernelUnitLength :
-                Svg_types.number_optional_number wrap ->
-                [> `KernelUnitLength ] attrib
-              val a_targetX : int wrap -> [> `TargetX ] attrib
-              val a_targetY : int wrap -> [> `TargetY ] attrib
-              val a_edgeMode :
-                [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
-              val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
-              val a_surfaceScale :
-                Svg_types.number wrap -> [> `SurfaceScale ] attrib
-              val a_diffuseConstant :
-                Svg_types.number wrap -> [> `DiffuseConstant ] attrib
-              val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
-              val a_xChannelSelector :
-                [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
-              val a_yChannelSelector :
-                [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
-              val a_stdDeviation :
-                Svg_types.number_optional_number wrap ->
-                [> `StdDeviation ] attrib
-              val a_feMorphology_operator :
-                [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
-              val a_radius :
-                Svg_types.number_optional_number wrap -> [> `Radius ] attrib
-              val a_baseFrenquency :
-                Svg_types.number_optional_number wrap ->
-                [> `BaseFrequency ] attrib
-              val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
-              val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
-              val a_stitchTiles :
-                [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
-              val a_feTurbulence_type :
-                [< `FractalNoise | `Turbulence ] wrap ->
-                [> `TypeStitch ] attrib
-              val a_xlink_show :
-                [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
-              val a_xlink_actuate :
-                [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
-                [> `Xlink_actuate ] attrib
-              val a_target : string wrap -> [> `Xlink_target ] attrib
-              val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
-              val a_attributeName : string wrap -> [> `AttributeName ] attrib
-              val a_attributeType :
-                [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
-              val a_begin : string wrap -> [> `Begin ] attrib
-              val a_dur : string wrap -> [> `Dur ] attrib
-              val a_min : string wrap -> [> `Min ] attrib
-              val a_max : string wrap -> [> `Max ] attrib
-              val a_restart :
-                [< `Always | `Never | `WhenNotActive ] wrap ->
-                [> `Restart ] attrib
-              val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
-              val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
-              val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
-              val a_animation_fill :
-                [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
-              val a_calcMode :
-                [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
-                [> `CalcMode ] attrib
-              val a_animation_values :
-                Svg_types.strings wrap -> [> `Valuesanim ] attrib
-              val a_keyTimes :
-                Svg_types.strings wrap -> [> `KeyTimes ] attrib
-              val a_keySplines :
-                Svg_types.strings wrap -> [> `KeySplines ] attrib
-              val a_from : string wrap -> [> `From ] attrib
-              val a_to : string wrap -> [> `To ] attrib
-              val a_by : string wrap -> [> `By ] attrib
-              val a_additive :
-                [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
-              val a_accumulate :
-                [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
-              val a_keyPoints :
-                Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
-              val a_path : string wrap -> [> `Path ] attrib
-              val a_animateTransform_type :
-                [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
-                [ `Typeanimatetransform ] attrib
-              val a_horiz_origin_x :
-                Svg_types.number wrap -> [> `HorizOriginX ] attrib
-              val a_horiz_origin_y :
-                Svg_types.number wrap -> [> `HorizOriginY ] attrib
-              val a_horiz_adv_x :
-                Svg_types.number wrap -> [> `HorizAdvX ] attrib
-              val a_vert_origin_x :
-                Svg_types.number wrap -> [> `VertOriginX ] attrib
-              val a_vert_origin_y :
-                Svg_types.number wrap -> [> `VertOriginY ] attrib
-              val a_vert_adv_y :
-                Svg_types.number wrap -> [> `VertAdvY ] attrib
-              val a_unicode : string wrap -> [> `Unicode ] attrib
-              val a_glyph_name : string wrap -> [> `glyphname ] attrib
-              val a_orientation :
-                [< `H | `V ] wrap -> [> `Orientation ] attrib
-              val a_arabic_form :
-                [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
-                [> `Arabicform ] attrib
-              val a_lang : string wrap -> [> `Lang ] attrib
-              val a_u1 : string wrap -> [> `U1 ] attrib
-              val a_u2 : string wrap -> [> `U2 ] attrib
-              val a_g1 : string wrap -> [> `G1 ] attrib
-              val a_g2 : string wrap -> [> `G2 ] attrib
-              val a_k : string wrap -> [> `K ] attrib
-              val a_font_family : string wrap -> [> `Font_Family ] attrib
-              val a_font_style : string wrap -> [> `Font_Style ] attrib
-              val a_font_variant : string wrap -> [> `Font_Variant ] attrib
-              val a_font_weight : string wrap -> [> `Font_Weight ] attrib
-              val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
-              val a_font_size : string wrap -> [> `Font_Size ] attrib
-              val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
-              val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
-              val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
-              val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
-              val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
-              val a_cap_height :
-                Svg_types.number wrap -> [> `CapHeight ] attrib
-              val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
-              val a_accent_height :
-                Svg_types.number wrap -> [> `AccentHeight ] attrib
-              val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
-              val a_widths : string wrap -> [> `Widths ] attrib
-              val a_bbox : string wrap -> [> `Bbox ] attrib
-              val a_ideographic :
-                Svg_types.number wrap -> [> `Ideographic ] attrib
-              val a_alphabetic :
-                Svg_types.number wrap -> [> `Alphabetic ] attrib
-              val a_mathematical :
-                Svg_types.number wrap -> [> `Mathematical ] attrib
-              val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
-              val a_videographic :
-                Svg_types.number wrap -> [> `VIdeographic ] attrib
-              val a_v_alphabetic :
-                Svg_types.number wrap -> [> `VAlphabetic ] attrib
-              val a_v_mathematical :
-                Svg_types.number wrap -> [> `VMathematical ] attrib
-              val a_v_hanging :
-                Svg_types.number wrap -> [> `VHanging ] attrib
-              val a_underline_position :
-                Svg_types.number wrap -> [> `UnderlinePosition ] attrib
-              val a_underline_thickness :
-                Svg_types.number wrap -> [> `UnderlineThickness ] attrib
-              val a_strikethrough_position :
-                Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
-              val a_strikethrough_thickness :
-                Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
-              val a_overline_position :
-                Svg_types.number wrap -> [> `OverlinePosition ] attrib
-              val a_overline_thickness :
-                Svg_types.number wrap -> [> `OverlineThickness ] attrib
-              val a_string : string wrap -> [> `String ] attrib
-              val a_name : string wrap -> [> `Name ] attrib
-              val a_alignment_baseline :
-                [< `After_edge
-                 | `Alphabetic
-                 | `Auto
-                 | `Baseline
-                 | `Before_edge
-                 | `Central
-                 | `Hanging
-                 | `Ideographic
-                 | `Inherit
-                 | `Mathematical
-                 | `Middle
-                 | `Text_after_edge
-                 | `Text_before_edge ]
-                wrap -> [> `Alignment_Baseline ] attrib
-              val a_dominant_baseline :
-                [< `Alphabetic
-                 | `Auto
-                 | `Central
-                 | `Hanging
-                 | `Ideographic
-                 | `Inherit
-                 | `Mathematical
-                 | `Middle
-                 | `No_change
-                 | `Reset_size
-                 | `Text_after_edge
-                 | `Text_before_edge
-                 | `Use_script ]
-                wrap -> [> `Dominant_Baseline ] attrib
-              val a_stop_color :
-                Svg_types.color wrap -> [> `Stop_Color ] attrib
-              val a_stop_opacity :
-                Svg_types.number wrap -> [> `Stop_Opacity ] attrib
-              val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
-              val a_stroke_width :
-                Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
-              val a_stroke_linecap :
-                [< `Butt | `Round | `Square ] wrap ->
-                [> `Stroke_Linecap ] attrib
-              val a_stroke_linejoin :
-                [< `Bever | `Miter | `Round ] wrap ->
-                [> `Stroke_Linejoin ] attrib
-              val a_stroke_miterlimit :
-                float wrap -> [> `Stroke_Miterlimit ] attrib
-              val a_stroke_dasharray :
-                Svg_types.Unit.length list wrap ->
-                [> `Stroke_Dasharray ] attrib
-              val a_stroke_dashoffset :
-                Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
-              val a_stroke_opacity :
-                float wrap -> [> `Stroke_Opacity ] attrib
-              val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-              val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
-              val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
-              val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
-              val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-              val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
-              val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
-              val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-              val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
-              val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-              val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-              val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-              val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
-              val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-              val a_onmousedown :
-                Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-              val a_onmouseup :
-                Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-              val a_onmouseover :
-                Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-              val a_onmouseout :
-                Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-              val a_onmousemove :
-                Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-              val a_ontouchstart :
-                Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-              val a_ontouchend :
-                Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-              val a_ontouchmove :
-                Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-              val a_ontouchcancel :
-                Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-              val txt : string wrap -> [> Svg_types.txt ] elt
-              val svg :
-                ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
-                 [> Svg_types.svg ])
-                star
-              val g :
-                ([< Svg_types.g_attr ], [< Svg_types.g_content ],
-                 [> Svg_types.g ])
-                star
-              val defs :
-                ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
-                 [> Svg_types.defs ])
-                star
-              val desc :
-                ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
-                 [> Svg_types.desc ])
-                unary
-              val title :
-                ([< Svg_types.title_attr ], [< Svg_types.title_content ],
-                 [> Svg_types.title ])
-                unary
-              val symbol :
-                ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
-                 [> Svg_types.symbol ])
-                star
-              val use :
-                ([< Svg_types.use_attr ], [< Svg_types.use_content ],
-                 [> Svg_types.use ])
-                star
-              val image :
-                ([< Svg_types.image_attr ], [< Svg_types.image_content ],
-                 [> Svg_types.image ])
-                star
-              val switch :
-                ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
-                 [> Svg_types.switch ])
-                star
-              val style :
-                ([< Svg_types.style_attr ], [< Svg_types.style_content ],
-                 [> Svg_types.style ])
-                unary
-              val path :
-                ([< Svg_types.path_attr ], [< Svg_types.path_content ],
-                 [> Svg_types.path ])
-                star
-              val rect :
-                ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
-                 [> Svg_types.rect ])
-                star
-              val circle :
-                ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
-                 [> Svg_types.circle ])
-                star
-              val ellipse :
-                ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
-                 [> Svg_types.ellipse ])
-                star
-              val line :
-                ([< Svg_types.line_attr ], [< Svg_types.line_content ],
-                 [> Svg_types.line ])
-                star
-              val polyline :
-                ([< Svg_types.polyline_attr ],
-                 [< Svg_types.polyline_content ], [> Svg_types.polyline ])
-                star
-              val polygon :
-                ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
-                 [> Svg_types.polygon ])
-                star
-              val text :
-                ([< Svg_types.text_attr ], [< Svg_types.text_content ],
-                 [> Svg_types.text ])
-                star
-              val tspan :
-                ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
-                 [> Svg_types.tspan ])
-                star
-              val tref :
-                ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
-                 [> Svg_types.tref ])
-                star
-              val textPath :
-                ([< Svg_types.textpath_attr ],
-                 [< Svg_types.textpath_content ], [> Svg_types.textpath ])
-                star
-              val altGlyph :
-                ([< Svg_types.altglyph_attr ],
-                 [< Svg_types.altglyph_content ], [> Svg_types.altglyph ])
-                unary
-              type altglyphdef_content =
-                  [ `Item of Svg_types.altglyphitem elt list
-                  | `Ref of Svg_types.glyphref elt list ]
-              val altGlyphDef :
-                ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
-                 [> Svg_types.altglyphdef ])
-                unary
-              val altGlyphItem :
-                ([< Svg_types.altglyphitem_attr ],
-                 [< Svg_types.altglyphitem_content ],
-                 [> Svg_types.altglyphitem ])
-                star
-              val glyphRef :
-                ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ])
-                nullary
-              val marker :
-                ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
-                 [> Svg_types.marker ])
-                star
-              val color_profile :
-                ([< Svg_types.colorprofile_attr ],
-                 [< Svg_types.colorprofile_content ],
-                 [> Svg_types.colorprofile ])
-                star
-              val linearGradient :
-                ([< Svg_types.lineargradient_attr ],
-                 [< Svg_types.lineargradient_content ],
-                 [> Svg_types.lineargradient ])
-                star
-              val radialGradient :
-                ([< Svg_types.radialgradient_attr ],
-                 [< Svg_types.radialgradient_content ],
-                 [> Svg_types.radialgradient ])
-                star
-              val stop :
-                ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
-                 [> Svg_types.stop ])
-                star
-              val pattern :
-                ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
-                 [> Svg_types.pattern ])
-                star
-              val clipPath :
-                ([< Svg_types.clippath_attr ],
-                 [< Svg_types.clippath_content ], [> Svg_types.clippath ])
-                star
-              val filter :
-                ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
-                 [> Svg_types.filter ])
-                star
-              val feDistantLight :
-                ([< Svg_types.fedistantlight_attr ],
-                 [< Svg_types.fedistantlight_content ],
-                 [> Svg_types.fedistantlight ])
-                star
-              val fePointLight :
-                ([< Svg_types.fepointlight_attr ],
-                 [< Svg_types.fepointlight_content ],
-                 [> Svg_types.fepointlight ])
-                star
-              val feSpotLight :
-                ([< Svg_types.fespotlight_attr ],
-                 [< Svg_types.fespotlight_content ],
-                 [> Svg_types.fespotlight ])
-                star
-              val feBlend :
-                ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
-                 [> Svg_types.feblend ])
-                star
-              val feColorMatrix :
-                ([< Svg_types.fecolormatrix_attr ],
-                 [< Svg_types.fecolormatrix_content ],
-                 [> Svg_types.fecolormatrix ])
-                star
-              val feComponentTransfer :
-                ([< Svg_types.fecomponenttransfer_attr ],
-                 [< Svg_types.fecomponenttransfer_content ],
-                 [> Svg_types.fecomponenttransfer ])
-                star
-              val feFuncA :
-                ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
-                 [> Svg_types.fefunca ])
-                star
-              val feFuncG :
-                ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
-                 [> Svg_types.fefuncg ])
-                star
-              val feFuncB :
-                ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
-                 [> Svg_types.fefuncb ])
-                star
-              val feFuncR :
-                ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
-                 [> Svg_types.fefuncr ])
-                star
-              val feComposite :
-                ([< Svg_types.fecomposite_attr ],
-                 [< Svg_types.fecomposite_content ],
-                 [> Svg_types.fecomposite ])
-                star
-              val feConvolveMatrix :
-                ([< Svg_types.feconvolvematrix_attr ],
-                 [< Svg_types.feconvolvematrix_content ],
-                 [> Svg_types.feconvolvematrix ])
-                star
-              val feDiffuseLighting :
-                ([< Svg_types.fediffuselighting_attr ],
-                 [< Svg_types.fediffuselighting_content ],
-                 [> Svg_types.fediffuselighting ])
-                star
-              val feDisplacementMap :
-                ([< Svg_types.fedisplacementmap_attr ],
-                 [< Svg_types.fedisplacementmap_content ],
-                 [> Svg_types.fedisplacementmap ])
-                star
-              val feFlood :
-                ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
-                 [> Svg_types.feflood ])
-                star
-              val feGaussianBlur :
-                ([< Svg_types.fegaussianblur_attr ],
-                 [< Svg_types.fegaussianblur_content ],
-                 [> Svg_types.fegaussianblur ])
-                star
-              val feImage :
-                ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
-                 [> Svg_types.feimage ])
-                star
-              val feMerge :
-                ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
-                 [> Svg_types.femerge ])
-                star
-              val feMorphology :
-                ([< Svg_types.femorphology_attr ],
-                 [< Svg_types.femorphology_content ],
-                 [> Svg_types.femorphology ])
-                star
-              val feOffset :
-                ([< Svg_types.feoffset_attr ],
-                 [< Svg_types.feoffset_content ], [> Svg_types.feoffset ])
-                star
-              val feSpecularLighting :
-                ([< Svg_types.fespecularlighting_attr ],
-                 [< Svg_types.fespecularlighting_content ],
-                 [> Svg_types.fespecularlighting ])
-                star
-              val feTile :
-                ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
-                 [> Svg_types.fetile ])
-                star
-              val feTurbulence :
-                ([< Svg_types.feturbulence_attr ],
-                 [< Svg_types.feturbulence_content ],
-                 [> Svg_types.feturbulence ])
-                star
-              val cursor :
-                ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
-                 [> Svg_types.cursor ])
-                star
-              val a :
-                ([< Svg_types.a_attr ], [< Svg_types.a_content ],
-                 [> Svg_types.a ])
-                star
-              val view :
-                ([< Svg_types.view_attr ], [< Svg_types.view_content ],
-                 [> Svg_types.view ])
-                star
-              val script :
-                ([< Svg_types.script_attr ], [< Svg_types.script_content ],
-                 [> Svg_types.script ])
-                unary
-              val animation :
-                ([< Svg_types.animation_attr ],
-                 [< Svg_types.animation_content ], [> Svg_types.animation ])
-                star
-              val set :
-                ([< Svg_types.set_attr ], [< Svg_types.set_content ],
-                 [> Svg_types.set ])
-                star
-              val animateMotion :
-                ([< Svg_types.animatemotion_attr ],
-                 [< Svg_types.animatemotion_content ],
-                 [> Svg_types.animatemotion ])
-                star
-              val mpath :
-                ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
-                 [> Svg_types.mpath ])
-                star
-              val animateColor :
-                ([< Svg_types.animatecolor_attr ],
-                 [< Svg_types.animatecolor_content ],
-                 [> Svg_types.animatecolor ])
-                star
-              val animateTransform :
-                ([< Svg_types.animatetransform_attr ],
-                 [< Svg_types.animatetransform_content ],
-                 [> Svg_types.animatetransform ])
-                star
-              val font :
-                ([< Svg_types.font_attr ], [< Svg_types.font_content ],
-                 [> Svg_types.font ])
-                star
-              val glyph :
-                ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
-                 [> Svg_types.glyph ])
-                star
-              val missing_glyph :
-                ([< Svg_types.missingglyph_attr ],
-                 [< Svg_types.missingglyph_content ],
-                 [> Svg_types.missingglyph ])
-                star
-              val hkern :
-                ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
-              val vkern :
-                ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
-              val font_face :
-                ([< Svg_types.font_face_attr ], [> Svg_types.font_face ])
-                nullary
-              val font_face_src :
-                ([< Svg_types.font_face_src_attr ],
-                 [< Svg_types.font_face_src_content ],
-                 [> Svg_types.font_face_src ])
-                star
-              val font_face_uri :
-                ([< Svg_types.font_face_uri_attr ],
-                 [< Svg_types.font_face_uri_content ],
-                 [> Svg_types.font_face_uri ])
-                star
-              val font_face_format :
-                ([< Svg_types.font_face_format_attr ],
-                 [> Svg_types.font_face_format ])
-                nullary
-              val font_face_name :
-                ([< Svg_types.font_face_name_attr ],
-                 [> Svg_types.font_face_name ])
-                nullary
-              val metadata :
-                ?a:Svg_types.metadata_attr attrib list ->
-                Xml.elt list_wrap -> [> Svg_types.metadata ] elt
-              val foreignObject :
-                ?a:Svg_types.foreignobject_attr attrib list ->
-                Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
-              val pcdata : string wrap -> [> Svg_types.txt ] elt
-              val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
-              val tot : Xml.elt -> 'a elt
-              val totl : Xml.elt list_wrap -> 'a elt list_wrap
-              val toelt : 'a elt -> Xml.elt
-              val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
-              val doc_toelt : doc -> Xml.elt
-              val to_xmlattribs : 'a attrib list -> Xml.attrib list
-              val to_attrib : Xml.attrib -> 'a attrib
-              module Unsafe :
-                sig
-                  val data : string wrap -> 'a elt
-                  val node :
-                    string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-                  val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
-                  val coerce_elt : 'a elt -> 'b elt
-                  val string_attrib : string -> string wrap -> 'a attrib
-                  val float_attrib : string -> float wrap -> 'a attrib
-                  val int_attrib : string -> int wrap -> 'a attrib
-                  val uri_attrib : string -> uri wrap -> 'a attrib
-                  val space_sep_attrib :
-                    string -> string list wrap -> 'a attrib
-                  val comma_sep_attrib :
-                    string -> string list wrap -> 'a attrib
-                end
-            end
-          type 'a elt = 'a elt
-          type doc = [ `Svg ] elt
-          type 'a attrib = 'a attrib
-          module Xml :
-            sig
-              module W :
-                sig
-                  type 'a t = 'a Eliom_content_core.Xml_wed.W.t
-                  val return : 'a -> 'a t
-                  type ('a, 'b) ft = ('a, 'b) Eliom_content_core.Xml_wed.W.ft
-                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
-                  type 'a tlist = 'a Eliom_content_core.Xml_wed.W.tlist
-                  val nil : unit -> 'a tlist
-                  val singleton : 'a t -> 'a tlist
-                  val cons : 'a t -> 'a tlist -> 'a tlist
-                  val append : 'a tlist -> 'a tlist -> 'a tlist
-                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
-                end
-              type 'a wrap = 'a W.t
-              type 'a list_wrap = 'a W.tlist
-              type uri = Eliom_content_core.Xml_wed.uri
-              val string_of_uri : (uri, string) W.ft
-              val uri_of_string : (string, uri) W.ft
-              type aname = string
-              type event_handler = Eliom_content_core.Xml_wed.event_handler
-              type mouse_event_handler =
-                  Eliom_content_core.Xml_wed.mouse_event_handler
-              type keyboard_event_handler =
-                  Eliom_content_core.Xml_wed.keyboard_event_handler
-              type touch_event_handler =
-                  Eliom_content_core.Xml_wed.touch_event_handler
-              type attrib = Eliom_content_core.Xml_wed.attrib
-              val float_attrib : aname -> float wrap -> attrib
-              val int_attrib : aname -> int wrap -> attrib
-              val string_attrib : aname -> string wrap -> attrib
-              val space_sep_attrib : aname -> string list wrap -> attrib
-              val comma_sep_attrib : aname -> string list wrap -> attrib
-              val event_handler_attrib : aname -> event_handler -> attrib
-              val mouse_event_handler_attrib :
-                aname -> mouse_event_handler -> attrib
-              val keyboard_event_handler_attrib :
-                aname -> keyboard_event_handler -> attrib
-              val touch_event_handler_attrib :
-                aname -> touch_event_handler -> attrib
-              val uri_attrib : aname -> uri wrap -> attrib
-              val uris_attrib : aname -> uri list wrap -> attrib
-              type elt = Eliom_content_core.Xml_wed.elt
-              type ename = string
-              val empty : unit -> elt
-              val comment : string -> elt
-              val pcdata : string wrap -> elt
-              val encodedpcdata : string wrap -> elt
-              val entity : string -> elt
-              val leaf : ?a:attrib list -> ename -> elt
-              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
-              val cdata : string -> elt
-              val cdata_script : string -> elt
-              val cdata_style : string -> elt
-            end
-          type 'a wrap = 'a Xml.W.t
-          type 'a list_wrap = 'a Xml.W.tlist
-          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
-          type ('a, 'b, 'c) unary =
-              ?a:'a attrib list -> 'b elt wrap -> 'c elt
-          type ('a, 'b, 'c) star =
-              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-          module Info : Xml_sigs.Info
-          type uri = Xml.uri
-          val string_of_uri : (uri, string) Xml.W.ft
-          val uri_of_string : (string, uri) Xml.W.ft
-          val a_version : string wrap -> [> `Version ] attrib
-          val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
-          val a_x : Svg_types.coord wrap -> [> `X ] attrib
-          val a_y : Svg_types.coord wrap -> [> `Y ] attrib
-          val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
-          val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
-          val a_preserveAspectRatio :
-            string wrap -> [> `PreserveAspectRatio ] attrib
-          val a_contentScriptType :
-            string wrap -> [> `ContentScriptType ] attrib
-          val a_contentStyleType :
-            string wrap -> [> `ContentStyleType ] attrib
-          val a_zoomAndPan :
-            [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
-          val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
-          val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
-          val a_requiredFeatures :
-            Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
-          val a_requiredExtensions :
-            Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
-          val a_systemLanguage :
-            Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
-          val a_externalRessourcesRequired :
-            bool wrap -> [> `ExternalRessourcesRequired ] attrib
-          val a_id : string wrap -> [> `Id ] attrib
-          val a_user_data : string -> string wrap -> [> `User_data ] attrib
-          val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
-          val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
-          val a_xml_space :
-            [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
-          val a_type : string wrap -> [> `Type ] attrib
-          val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
-          val a_xlink_title : string wrap -> [> `Title ] attrib
-          val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
-          val a_style : string wrap -> [> `Style ] attrib
-          val a_transform :
-            Svg_types.transforms wrap -> [> `Transform ] attrib
-          val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
-          val a_d : string wrap -> [> `D ] attrib
-          val a_pathLength : float wrap -> [> `PathLength ] attrib
-          val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
-          val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
-          val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
-          val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
-          val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
-          val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
-          val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
-          val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
-          val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
-          val a_points : Svg_types.coords wrap -> [> `Points ] attrib
-          val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
-          val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
-          val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
-          val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
-          val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
-          val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
-          val a_lengthAdjust :
-            [< `Spacing | `SpacingAndGlyphs ] wrap ->
-            [> `LengthAdjust ] attrib
-          val a_textLength :
-            Svg_types.Unit.length wrap -> [> `TextLength ] attrib
-          val a_text_anchor :
-            [< `End | `Inherit | `Middle | `Start ] wrap ->
-            [> `Text_Anchor ] attrib
-          val a_text_decoration :
-            [< `Blink
-             | `Inherit
-             | `Line_through
-             | `None
-             | `Overline
-             | `Underline ]
-            wrap -> [> `Text_Decoration ] attrib
-          val a_text_rendering :
-            [< `Auto
-             | `GeometricPrecision
-             | `Inherit
-             | `OptimizeLegibility
-             | `OptimizeSpeed ]
-            wrap -> [> `Text_Rendering ] attrib
-          val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
-          val a_startOffset :
-            Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
-          val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
-          val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
-          val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
-          val a_format : string wrap -> [> `Format ] attrib
-          val a_markerUnits :
-            [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
-            [> `MarkerUnits ] attrib
-          val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
-          val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
-          val a_markerWidth :
-            Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
-          val a_markerHeight :
-            Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
-          val a_orient :
-            Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
-          val a_local : string wrap -> [> `Local ] attrib
-          val a_rendering_intent :
-            [< `Absolute_colorimetric
-             | `Auto
-             | `Perceptual
-             | `Relative_colorimetric
-             | `Saturation ]
-            wrap -> [> `Rendering_Indent ] attrib
-          val a_gradientUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [ `GradientUnits ] attrib
-          val a_gradientTransform :
-            Svg_types.transforms wrap -> [> `Gradient_Transform ] attrib
-          val a_spreadMethod :
-            [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
-          val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
-          val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
-          val a_offset :
-            [< `Number of Svg_types.number
-             | `Percentage of Svg_types.percentage ]
-            wrap -> [> `Offset ] attrib
-          val a_patternUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [> `PatternUnits ] attrib
-          val a_patternContentUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [> `PatternContentUnits ] attrib
-          val a_patternTransform :
-            Svg_types.transforms wrap -> [> `PatternTransform ] attrib
-          val a_clipPathUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [> `ClipPathUnits ] attrib
-          val a_maskUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [> `MaskUnits ] attrib
-          val a_maskContentUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [> `MaskContentUnits ] attrib
-          val a_primitiveUnits :
-            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
-            [> `PrimitiveUnits ] attrib
-          val a_filterRes :
-            Svg_types.number_optional_number wrap ->
-            [> `FilterResUnits ] attrib
-          val a_result : string wrap -> [> `Result ] attrib
-          val a_in :
-            [< `BackgroundAlpha
-             | `BackgroundImage
-             | `FillPaint
-             | `Ref of string
-             | `SourceAlpha
-             | `SourceGraphic
-             | `StrokePaint ]
-            wrap -> [> `In ] attrib
-          val a_in2 :
-            [< `BackgroundAlpha
-             | `BackgroundImage
-             | `FillPaint
-             | `Ref of string
-             | `SourceAlpha
-             | `SourceGraphic
-             | `StrokePaint ]
-            wrap -> [> `In2 ] attrib
-          val a_azimuth : float wrap -> [> `Azimuth ] attrib
-          val a_elevation : float wrap -> [> `Elevation ] attrib
-          val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
-          val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
-          val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
-          val a_specularExponent :
-            float wrap -> [> `SpecularExponent ] attrib
-          val a_specularConstant :
-            float wrap -> [> `SpecularConstant ] attrib
-          val a_limitingConeAngle :
-            float wrap -> [> `LimitingConeAngle ] attrib
-          val a_mode :
-            [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
-            [> `Mode ] attrib
-          val a_feColorMatrix_type :
-            [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ] wrap ->
-            [> `Typefecolor ] attrib
-          val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
-          val a_transfer_type :
-            [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
-            [> `Type_transfert ] attrib
-          val a_tableValues :
-            Svg_types.numbers wrap -> [> `TableValues ] attrib
-          val a_intercept : Svg_types.number wrap -> [> `Intercept ] attrib
-          val a_amplitude : Svg_types.number wrap -> [> `Amplitude ] attrib
-          val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
-          val a_transfer_offset :
-            Svg_types.number wrap -> [> `Offset_transfer ] attrib
-          val a_feComposite_operator :
-            [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
-            [> `OperatorComposite ] attrib
-          val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
-          val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
-          val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
-          val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
-          val a_order :
-            Svg_types.number_optional_number wrap -> [> `Order ] attrib
-          val a_kernelMatrix :
-            Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
-          val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
-          val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
-          val a_kernelUnitLength :
-            Svg_types.number_optional_number wrap ->
-            [> `KernelUnitLength ] attrib
-          val a_targetX : int wrap -> [> `TargetX ] attrib
-          val a_targetY : int wrap -> [> `TargetY ] attrib
-          val a_edgeMode :
-            [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
-          val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
-          val a_surfaceScale :
-            Svg_types.number wrap -> [> `SurfaceScale ] attrib
-          val a_diffuseConstant :
-            Svg_types.number wrap -> [> `DiffuseConstant ] attrib
-          val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
-          val a_xChannelSelector :
-            [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
-          val a_yChannelSelector :
-            [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
-          val a_stdDeviation :
-            Svg_types.number_optional_number wrap ->
-            [> `StdDeviation ] attrib
-          val a_feMorphology_operator :
-            [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
-          val a_radius :
-            Svg_types.number_optional_number wrap -> [> `Radius ] attrib
-          val a_baseFrenquency :
-            Svg_types.number_optional_number wrap ->
-            [> `BaseFrequency ] attrib
-          val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
-          val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
-          val a_stitchTiles :
-            [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
-          val a_feTurbulence_type :
-            [< `FractalNoise | `Turbulence ] wrap -> [> `TypeStitch ] attrib
-          val a_xlink_show :
-            [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
-          val a_xlink_actuate :
-            [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
-            [> `Xlink_actuate ] attrib
-          val a_target : string wrap -> [> `Xlink_target ] attrib
-          val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
-          val a_attributeName : string wrap -> [> `AttributeName ] attrib
-          val a_attributeType :
-            [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
-          val a_begin : string wrap -> [> `Begin ] attrib
-          val a_dur : string wrap -> [> `Dur ] attrib
-          val a_min : string wrap -> [> `Min ] attrib
-          val a_max : string wrap -> [> `Max ] attrib
-          val a_restart :
-            [< `Always | `Never | `WhenNotActive ] wrap ->
-            [> `Restart ] attrib
-          val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
-          val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
-          val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
-          val a_animation_fill :
-            [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
-          val a_calcMode :
-            [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
-            [> `CalcMode ] attrib
-          val a_animation_values :
-            Svg_types.strings wrap -> [> `Valuesanim ] attrib
-          val a_keyTimes : Svg_types.strings wrap -> [> `KeyTimes ] attrib
-          val a_keySplines :
-            Svg_types.strings wrap -> [> `KeySplines ] attrib
-          val a_from : string wrap -> [> `From ] attrib
-          val a_to : string wrap -> [> `To ] attrib
-          val a_by : string wrap -> [> `By ] attrib
-          val a_additive : [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
-          val a_accumulate :
-            [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
-          val a_keyPoints :
-            Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
-          val a_path : string wrap -> [> `Path ] attrib
-          val a_animateTransform_type :
-            [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
-            [ `Typeanimatetransform ] attrib
-          val a_horiz_origin_x :
-            Svg_types.number wrap -> [> `HorizOriginX ] attrib
-          val a_horiz_origin_y :
-            Svg_types.number wrap -> [> `HorizOriginY ] attrib
-          val a_horiz_adv_x : Svg_types.number wrap -> [> `HorizAdvX ] attrib
-          val a_vert_origin_x :
-            Svg_types.number wrap -> [> `VertOriginX ] attrib
-          val a_vert_origin_y :
-            Svg_types.number wrap -> [> `VertOriginY ] attrib
-          val a_vert_adv_y : Svg_types.number wrap -> [> `VertAdvY ] attrib
-          val a_unicode : string wrap -> [> `Unicode ] attrib
-          val a_glyph_name : string wrap -> [> `glyphname ] attrib
-          val a_orientation : [< `H | `V ] wrap -> [> `Orientation ] attrib
-          val a_arabic_form :
-            [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
-            [> `Arabicform ] attrib
-          val a_lang : string wrap -> [> `Lang ] attrib
-          val a_u1 : string wrap -> [> `U1 ] attrib
-          val a_u2 : string wrap -> [> `U2 ] attrib
-          val a_g1 : string wrap -> [> `G1 ] attrib
-          val a_g2 : string wrap -> [> `G2 ] attrib
-          val a_k : string wrap -> [> `K ] attrib
-          val a_font_family : string wrap -> [> `Font_Family ] attrib
-          val a_font_style : string wrap -> [> `Font_Style ] attrib
-          val a_font_variant : string wrap -> [> `Font_Variant ] attrib
-          val a_font_weight : string wrap -> [> `Font_Weight ] attrib
-          val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
-          val a_font_size : string wrap -> [> `Font_Size ] attrib
-          val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
-          val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
-          val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
-          val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
-          val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
-          val a_cap_height : Svg_types.number wrap -> [> `CapHeight ] attrib
-          val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
-          val a_accent_height :
-            Svg_types.number wrap -> [> `AccentHeight ] attrib
-          val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
-          val a_widths : string wrap -> [> `Widths ] attrib
-          val a_bbox : string wrap -> [> `Bbox ] attrib
-          val a_ideographic :
-            Svg_types.number wrap -> [> `Ideographic ] attrib
-          val a_alphabetic : Svg_types.number wrap -> [> `Alphabetic ] attrib
-          val a_mathematical :
-            Svg_types.number wrap -> [> `Mathematical ] attrib
-          val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
-          val a_videographic :
-            Svg_types.number wrap -> [> `VIdeographic ] attrib
-          val a_v_alphabetic :
-            Svg_types.number wrap -> [> `VAlphabetic ] attrib
-          val a_v_mathematical :
-            Svg_types.number wrap -> [> `VMathematical ] attrib
-          val a_v_hanging : Svg_types.number wrap -> [> `VHanging ] attrib
-          val a_underline_position :
-            Svg_types.number wrap -> [> `UnderlinePosition ] attrib
-          val a_underline_thickness :
-            Svg_types.number wrap -> [> `UnderlineThickness ] attrib
-          val a_strikethrough_position :
-            Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
-          val a_strikethrough_thickness :
-            Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
-          val a_overline_position :
-            Svg_types.number wrap -> [> `OverlinePosition ] attrib
-          val a_overline_thickness :
-            Svg_types.number wrap -> [> `OverlineThickness ] attrib
-          val a_string : string wrap -> [> `String ] attrib
-          val a_name : string wrap -> [> `Name ] attrib
-          val a_alignment_baseline :
-            [< `After_edge
-             | `Alphabetic
-             | `Auto
-             | `Baseline
-             | `Before_edge
-             | `Central
-             | `Hanging
-             | `Ideographic
-             | `Inherit
-             | `Mathematical
-             | `Middle
-             | `Text_after_edge
-             | `Text_before_edge ]
-            wrap -> [> `Alignment_Baseline ] attrib
-          val a_dominant_baseline :
-            [< `Alphabetic
-             | `Auto
-             | `Central
-             | `Hanging
-             | `Ideographic
-             | `Inherit
-             | `Mathematical
-             | `Middle
-             | `No_change
-             | `Reset_size
-             | `Text_after_edge
-             | `Text_before_edge
-             | `Use_script ]
-            wrap -> [> `Dominant_Baseline ] attrib
-          val a_stop_color : Svg_types.color wrap -> [> `Stop_Color ] attrib
-          val a_stop_opacity :
-            Svg_types.number wrap -> [> `Stop_Opacity ] attrib
-          val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
-          val a_stroke_width :
-            Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
-          val a_stroke_linecap :
-            [< `Butt | `Round | `Square ] wrap -> [> `Stroke_Linecap ] attrib
-          val a_stroke_linejoin :
-            [< `Bever | `Miter | `Round ] wrap ->
-            [> `Stroke_Linejoin ] attrib
-          val a_stroke_miterlimit :
-            float wrap -> [> `Stroke_Miterlimit ] attrib
-          val a_stroke_dasharray :
-            Svg_types.Unit.length list wrap -> [> `Stroke_Dasharray ] attrib
-          val a_stroke_dashoffset :
-            Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
-          val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
-          val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-          val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
-          val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
-          val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
-          val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-          val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
-          val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
-          val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-          val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
-          val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-          val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-          val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-          val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
-          val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-          val a_onmousedown :
-            Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-          val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-          val a_onmouseover :
-            Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-          val a_onmouseout :
-            Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-          val a_onmousemove :
-            Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-          val a_ontouchstart :
-            Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-          val a_ontouchend :
-            Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-          val a_ontouchmove :
-            Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-          val a_ontouchcancel :
-            Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-          val txt : string wrap -> [> Svg_types.txt ] elt
-          val svg :
-            ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
-             [> Svg_types.svg ])
-            star
-          val g :
-            ([< Svg_types.g_attr ], [< Svg_types.g_content ],
-             [> Svg_types.g ])
-            star
-          val defs :
-            ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
-             [> Svg_types.defs ])
-            star
-          val desc :
-            ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
-             [> Svg_types.desc ])
-            unary
-          val title :
-            ([< Svg_types.title_attr ], [< Svg_types.title_content ],
-             [> Svg_types.title ])
-            unary
-          val symbol :
-            ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
-             [> Svg_types.symbol ])
-            star
-          val use :
-            ([< Svg_types.use_attr ], [< Svg_types.use_content ],
-             [> Svg_types.use ])
-            star
-          val image :
-            ([< Svg_types.image_attr ], [< Svg_types.image_content ],
-             [> Svg_types.image ])
-            star
-          val switch :
-            ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
-             [> Svg_types.switch ])
-            star
-          val style :
-            ([< Svg_types.style_attr ], [< Svg_types.style_content ],
-             [> Svg_types.style ])
-            unary
-          val path :
-            ([< Svg_types.path_attr ], [< Svg_types.path_content ],
-             [> Svg_types.path ])
-            star
-          val rect :
-            ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
-             [> Svg_types.rect ])
-            star
-          val circle :
-            ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
-             [> Svg_types.circle ])
-            star
-          val ellipse :
-            ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
-             [> Svg_types.ellipse ])
-            star
-          val line :
-            ([< Svg_types.line_attr ], [< Svg_types.line_content ],
-             [> Svg_types.line ])
-            star
-          val polyline :
-            ([< Svg_types.polyline_attr ], [< Svg_types.polyline_content ],
-             [> Svg_types.polyline ])
-            star
-          val polygon :
-            ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
-             [> Svg_types.polygon ])
-            star
-          val text :
-            ([< Svg_types.text_attr ], [< Svg_types.text_content ],
-             [> Svg_types.text ])
-            star
-          val tspan :
-            ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
-             [> Svg_types.tspan ])
-            star
-          val tref :
-            ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
-             [> Svg_types.tref ])
-            star
-          val textPath :
-            ([< Svg_types.textpath_attr ], [< Svg_types.textpath_content ],
-             [> Svg_types.textpath ])
-            star
-          val altGlyph :
-            ([< Svg_types.altglyph_attr ], [< Svg_types.altglyph_content ],
-             [> Svg_types.altglyph ])
-            unary
-          type altglyphdef_content =
-              [ `Item of Svg_types.altglyphitem elt list
-              | `Ref of Svg_types.glyphref elt list ]
-          val altGlyphDef :
-            ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
-             [> Svg_types.altglyphdef ])
-            unary
-          val altGlyphItem :
-            ([< Svg_types.altglyphitem_attr ],
-             [< Svg_types.altglyphitem_content ],
-             [> Svg_types.altglyphitem ])
-            star
-          val glyphRef :
-            ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ]) nullary
-          val marker :
-            ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
-             [> Svg_types.marker ])
-            star
-          val color_profile :
-            ([< Svg_types.colorprofile_attr ],
-             [< Svg_types.colorprofile_content ],
-             [> Svg_types.colorprofile ])
-            star
-          val linearGradient :
-            ([< Svg_types.lineargradient_attr ],
-             [< Svg_types.lineargradient_content ],
-             [> Svg_types.lineargradient ])
-            star
-          val radialGradient :
-            ([< Svg_types.radialgradient_attr ],
-             [< Svg_types.radialgradient_content ],
-             [> Svg_types.radialgradient ])
-            star
-          val stop :
-            ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
-             [> Svg_types.stop ])
-            star
-          val pattern :
-            ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
-             [> Svg_types.pattern ])
-            star
-          val clipPath :
-            ([< Svg_types.clippath_attr ], [< Svg_types.clippath_content ],
-             [> Svg_types.clippath ])
-            star
-          val filter :
-            ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
-             [> Svg_types.filter ])
-            star
-          val feDistantLight :
-            ([< Svg_types.fedistantlight_attr ],
-             [< Svg_types.fedistantlight_content ],
-             [> Svg_types.fedistantlight ])
-            star
-          val fePointLight :
-            ([< Svg_types.fepointlight_attr ],
-             [< Svg_types.fepointlight_content ],
-             [> Svg_types.fepointlight ])
-            star
-          val feSpotLight :
-            ([< Svg_types.fespotlight_attr ],
-             [< Svg_types.fespotlight_content ], [> Svg_types.fespotlight ])
-            star
-          val feBlend :
-            ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
-             [> Svg_types.feblend ])
-            star
-          val feColorMatrix :
-            ([< Svg_types.fecolormatrix_attr ],
-             [< Svg_types.fecolormatrix_content ],
-             [> Svg_types.fecolormatrix ])
-            star
-          val feComponentTransfer :
-            ([< Svg_types.fecomponenttransfer_attr ],
-             [< Svg_types.fecomponenttransfer_content ],
-             [> Svg_types.fecomponenttransfer ])
-            star
-          val feFuncA :
-            ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
-             [> Svg_types.fefunca ])
-            star
-          val feFuncG :
-            ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
-             [> Svg_types.fefuncg ])
-            star
-          val feFuncB :
-            ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
-             [> Svg_types.fefuncb ])
-            star
-          val feFuncR :
-            ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
-             [> Svg_types.fefuncr ])
-            star
-          val feComposite :
-            ([< Svg_types.fecomposite_attr ],
-             [< Svg_types.fecomposite_content ], [> Svg_types.fecomposite ])
-            star
-          val feConvolveMatrix :
-            ([< Svg_types.feconvolvematrix_attr ],
-             [< Svg_types.feconvolvematrix_content ],
-             [> Svg_types.feconvolvematrix ])
-            star
-          val feDiffuseLighting :
-            ([< Svg_types.fediffuselighting_attr ],
-             [< Svg_types.fediffuselighting_content ],
-             [> Svg_types.fediffuselighting ])
-            star
-          val feDisplacementMap :
-            ([< Svg_types.fedisplacementmap_attr ],
-             [< Svg_types.fedisplacementmap_content ],
-             [> Svg_types.fedisplacementmap ])
-            star
-          val feFlood :
-            ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
-             [> Svg_types.feflood ])
-            star
-          val feGaussianBlur :
-            ([< Svg_types.fegaussianblur_attr ],
-             [< Svg_types.fegaussianblur_content ],
-             [> Svg_types.fegaussianblur ])
-            star
-          val feImage :
-            ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
-             [> Svg_types.feimage ])
-            star
-          val feMerge :
-            ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
-             [> Svg_types.femerge ])
-            star
-          val feMorphology :
-            ([< Svg_types.femorphology_attr ],
-             [< Svg_types.femorphology_content ],
-             [> Svg_types.femorphology ])
-            star
-          val feOffset :
-            ([< Svg_types.feoffset_attr ], [< Svg_types.feoffset_content ],
-             [> Svg_types.feoffset ])
-            star
-          val feSpecularLighting :
-            ([< Svg_types.fespecularlighting_attr ],
-             [< Svg_types.fespecularlighting_content ],
-             [> Svg_types.fespecularlighting ])
-            star
-          val feTile :
-            ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
-             [> Svg_types.fetile ])
-            star
-          val feTurbulence :
-            ([< Svg_types.feturbulence_attr ],
-             [< Svg_types.feturbulence_content ],
-             [> Svg_types.feturbulence ])
-            star
-          val cursor :
-            ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
-             [> Svg_types.cursor ])
-            star
-          val a :
-            ([< Svg_types.a_attr ], [< Svg_types.a_content ],
-             [> Svg_types.a ])
-            star
-          val view :
-            ([< Svg_types.view_attr ], [< Svg_types.view_content ],
-             [> Svg_types.view ])
-            star
-          val script :
-            ([< Svg_types.script_attr ], [< Svg_types.script_content ],
-             [> Svg_types.script ])
-            unary
-          val animation :
-            ([< Svg_types.animation_attr ], [< Svg_types.animation_content ],
-             [> Svg_types.animation ])
-            star
-          val set :
-            ([< Svg_types.set_attr ], [< Svg_types.set_content ],
-             [> Svg_types.set ])
-            star
-          val animateMotion :
-            ([< Svg_types.animatemotion_attr ],
-             [< Svg_types.animatemotion_content ],
-             [> Svg_types.animatemotion ])
-            star
-          val mpath :
-            ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
-             [> Svg_types.mpath ])
-            star
-          val animateColor :
-            ([< Svg_types.animatecolor_attr ],
-             [< Svg_types.animatecolor_content ],
-             [> Svg_types.animatecolor ])
-            star
-          val animateTransform :
-            ([< Svg_types.animatetransform_attr ],
-             [< Svg_types.animatetransform_content ],
-             [> Svg_types.animatetransform ])
-            star
-          val font :
-            ([< Svg_types.font_attr ], [< Svg_types.font_content ],
-             [> Svg_types.font ])
-            star
-          val glyph :
-            ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
-             [> Svg_types.glyph ])
-            star
-          val missing_glyph :
-            ([< Svg_types.missingglyph_attr ],
-             [< Svg_types.missingglyph_content ],
-             [> Svg_types.missingglyph ])
-            star
-          val hkern :
-            ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
-          val vkern :
-            ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
-          val font_face :
-            ([< Svg_types.font_face_attr ], [> Svg_types.font_face ]) nullary
-          val font_face_src :
-            ([< Svg_types.font_face_src_attr ],
-             [< Svg_types.font_face_src_content ],
-             [> Svg_types.font_face_src ])
-            star
-          val font_face_uri :
-            ([< Svg_types.font_face_uri_attr ],
-             [< Svg_types.font_face_uri_content ],
-             [> Svg_types.font_face_uri ])
-            star
-          val font_face_format :
-            ([< Svg_types.font_face_format_attr ],
-             [> Svg_types.font_face_format ])
-            nullary
-          val font_face_name :
-            ([< Svg_types.font_face_name_attr ],
-             [> Svg_types.font_face_name ])
-            nullary
-          val metadata :
-            ?a:Svg_types.metadata_attr attrib list ->
-            Xml.elt list_wrap -> [> Svg_types.metadata ] elt
-          val foreignObject :
-            ?a:Svg_types.foreignobject_attr attrib list ->
-            Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
-          val pcdata : string wrap -> [> Svg_types.txt ] elt
-          val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
-          val tot : Xml.elt -> 'a elt
-          val totl : Xml.elt list_wrap -> 'a elt list_wrap
-          val toelt : 'a elt -> Xml.elt
-          val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
-          val doc_toelt : doc -> Xml.elt
-          val to_xmlattribs : 'a attrib list -> Xml.attrib list
-          val to_attrib : Xml.attrib -> 'a attrib
-          module Unsafe :
-            sig
-              val data : string wrap -> 'a elt
-              val node :
-                string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-              val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
-              val coerce_elt : 'a elt -> 'b elt
-              val string_attrib : string -> string wrap -> 'a attrib
-              val float_attrib : string -> float wrap -> 'a attrib
-              val int_attrib : string -> int wrap -> 'a attrib
-              val uri_attrib : string -> uri wrap -> 'a attrib
-              val space_sep_attrib : string -> string list wrap -> 'a attrib
-              val comma_sep_attrib : string -> string list wrap -> 'a attrib
-            end
-        end
-      module C :
-        sig
-          val node :
-            ?init:'a Eliom_content.Svg.D.elt ->
-            'a Eliom_content.Svg.elt Eliom_client_value.t ->
-            'a Eliom_content.Svg.D.elt
-          val attr :
-            ?init:'a Eliom_content.Svg.attrib ->
-            'a Eliom_content.Svg.attrib Eliom_client_value.t ->
-            'a Eliom_content.Svg.attrib
-        end
-      module Id :
-        sig
-          type +'a id
-          val new_elt_id : ?global:bool -> unit -> 'a Eliom_content.Svg.Id.id
-          val create_named_elt :
-            id:'a Eliom_content.Svg.Id.id ->
-            'a Eliom_content.Svg.elt -> 'a Eliom_content.Svg.elt
-          val create_global_elt :
-            'a Eliom_content.Svg.elt -> 'a Eliom_content.Svg.elt
-          val create_request_elt :
-            ?reset:bool ->
-            'a Eliom_content.Svg.elt -> 'a Eliom_content.Svg.elt
-          val get_element :
-            'a Eliom_content.Svg.Id.id -> 'a Eliom_content.Svg.elt option
-        end
-      module Manip :
-        sig
-          val appendChild :
-            ?before:'a Eliom_content.Svg.elt ->
-            'b Eliom_content.Svg.elt -> 'c Eliom_content.Svg.elt -> unit
-          val appendChildren :
-            ?before:'a Eliom_content.Svg.elt ->
-            'b Eliom_content.Svg.elt -> 'c Eliom_content.Svg.elt list -> unit
-          val insertFirstChild :
-            'b Eliom_content.Svg.elt -> 'c Eliom_content.Svg.elt -> unit
-          val nth :
-            'a Eliom_content.Svg.elt ->
-            int -> 'b Eliom_content.Svg.elt option
-          val childLength : 'a Eliom_content.Svg.elt -> int
-          val removeChild :
-            'a Eliom_content.Svg.elt -> 'b Eliom_content.Svg.elt -> unit
-          val replaceChild :
-            'a Eliom_content.Svg.elt ->
-            'b Eliom_content.Svg.elt -> 'c Eliom_content.Svg.elt -> unit
-          val removeChildren : 'a Eliom_content.Svg.elt -> unit
-          val removeSelf : 'a Eliom_content.Svg.elt -> unit
-          val replaceChildren :
-            'a Eliom_content.Svg.elt -> 'b Eliom_content.Svg.elt list -> unit
-          val parentNode :
-            'a Eliom_content.Svg.elt -> 'b Eliom_content.Svg.elt option
-          val nextSibling :
-            'a Eliom_content.Svg.elt -> 'b Eliom_content.Svg.elt option
-          val previousSibling :
-            'a Eliom_content.Svg.elt -> 'b Eliom_content.Svg.elt option
-          val insertBefore :
-            before:'a Eliom_content.Svg.elt ->
-            'b Eliom_content.Svg.elt -> unit
-          val insertAfter :
-            after:'a Eliom_content.Svg.elt ->
-            'b Eliom_content.Svg.elt -> unit
-          val replaceSelf :
-            'a Eliom_content.Svg.elt -> 'b Eliom_content.Svg.elt -> unit
-          module Named :
-            sig
-              val appendChild :
-                ?before:'a Eliom_content.Svg.elt ->
-                'b Eliom_content.Svg.Id.id ->
-                'c Eliom_content.Svg.elt -> unit
-              val appendChildren :
-                ?before:'a Eliom_content.Svg.elt ->
-                'b Eliom_content.Svg.Id.id ->
-                'c Eliom_content.Svg.elt list -> unit
-              val removeChild :
-                'a Eliom_content.Svg.Id.id ->
-                'b Eliom_content.Svg.elt -> unit
-              val replaceChild :
-                'a Eliom_content.Svg.Id.id ->
-                'b Eliom_content.Svg.elt -> 'c Eliom_content.Svg.elt -> unit
-              val removeChildren : 'a Eliom_content.Svg.Id.id -> unit
-              val replaceChildren :
-                'a Eliom_content.Svg.Id.id ->
-                'b Eliom_content.Svg.elt list -> unit
-            end
-          val childNodes :
-            'a Eliom_content.Svg.elt ->
-            Js_of_ocaml.Dom.node Js_of_ocaml.Js.t list
-          val childElements :
-            'a Eliom_content.Svg.elt ->
-            Js_of_ocaml.Dom.element Js_of_ocaml.Js.t list
-          module Class :
-            sig
-              val contain : 'a Eliom_content.Svg.elt -> string -> bool
-              val remove : 'a Eliom_content.Svg.elt -> string -> unit
-              val removes : 'a Eliom_content.Svg.elt -> string list -> unit
-              val add : 'a Eliom_content.Svg.elt -> string -> unit
-              val adds : 'a Eliom_content.Svg.elt -> string list -> unit
-              val replace :
-                'a Eliom_content.Svg.elt -> string -> string -> unit
-              val clear : 'a Eliom_content.Svg.elt -> unit
-              val toggle : 'a Eliom_content.Svg.elt -> string -> unit
-              val toggle2 :
-                'a Eliom_content.Svg.elt -> string -> string -> unit
-            end
-        end
-      module To_dom :
-        sig
-          val of_element :
-            'a Eliom_content.Svg.elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_node :
-            'a Eliom_content.Svg.elt -> Js_of_ocaml.Dom.node Js_of_ocaml.Js.t
-          val of_pcdata :
-            [> `Pcdata ] Eliom_content.Svg.elt ->
-            Js_of_ocaml.Dom.text Js_of_ocaml.Js.t
-        end
-      module Of_dom :
-        sig
-          val of_element :
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t ->
-            'a Eliom_content.Svg.elt
-        end
-    end
-  module Html :
-    sig
-      type +'a elt
-      type +'a attrib
-      type uri = Eliom_content.Xml.uri
-      type 'a form_param
-      module F :
-        sig
-          module Raw :
-            sig
-              type 'a elt = 'a elt
-              type doc = Html_types.html elt
-              type 'a attrib = 'a attrib
-              module Xml :
-                sig
-                  module W :
-                    sig
-                      type 'a t = 'a Xml.W.t
-                      val return : 'a -> 'a t
-                      type ('a, 'b) ft = ('a, 'b) Xml.W.ft
-                      val fmap : ('a, 'b) ft -> 'a t -> 'b t
-                      type 'a tlist = 'a Xml.W.tlist
-                      val nil : unit -> 'a tlist
-                      val singleton : 'a t -> 'a tlist
-                      val cons : 'a t -> 'a tlist -> 'a tlist
-                      val append : 'a tlist -> 'a tlist -> 'a tlist
-                      val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
-                    end
-                  type 'a wrap = 'a W.t
-                  type 'a list_wrap = 'a W.tlist
-                  type uri = Xml.uri
-                  val string_of_uri : (uri, string) W.ft
-                  val uri_of_string : (string, uri) W.ft
-                  type aname = string
-                  type event_handler = Xml.event_handler
-                  type mouse_event_handler = Xml.mouse_event_handler
-                  type keyboard_event_handler = Xml.keyboard_event_handler
-                  type touch_event_handler = Xml.touch_event_handler
-                  type attrib = Xml.attrib
-                  val float_attrib : aname -> float wrap -> attrib
-                  val int_attrib : aname -> int wrap -> attrib
-                  val string_attrib : aname -> string wrap -> attrib
-                  val space_sep_attrib : aname -> string list wrap -> attrib
-                  val comma_sep_attrib : aname -> string list wrap -> attrib
-                  val event_handler_attrib : aname -> event_handler -> attrib
-                  val mouse_event_handler_attrib :
-                    aname -> mouse_event_handler -> attrib
-                  val keyboard_event_handler_attrib :
-                    aname -> keyboard_event_handler -> attrib
-                  val touch_event_handler_attrib :
-                    aname -> touch_event_handler -> attrib
-                  val uri_attrib : aname -> uri wrap -> attrib
-                  val uris_attrib : aname -> uri list wrap -> attrib
-                  type elt = Xml.elt
-                  type ename = string
-                  val empty : unit -> elt
-                  val comment : string -> elt
-                  val pcdata : string wrap -> elt
-                  val encodedpcdata : string wrap -> elt
-                  val entity : string -> elt
-                  val leaf : ?a:attrib list -> ename -> elt
-                  val node : ?a:attrib list -> ename -> elt list_wrap -> elt
-                  val cdata : string -> elt
-                  val cdata_script : string -> elt
-                  val cdata_style : string -> elt
-                end
-              type 'a wrap = 'a Xml.W.t
-              type 'a list_wrap = 'a Xml.W.tlist
-              type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
-              type ('a, 'b, 'c) unary =
-                  ?a:'a attrib list -> 'b elt wrap -> 'c elt
-              type ('a, 'b, 'c) star =
-                  ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-              module Info : Xml_sigs.Info
-              type uri = Xml.uri
-              val string_of_uri : (uri, string) Xml.W.ft
-              val uri_of_string : (string, uri) Xml.W.ft
-              val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
-              val a_user_data :
-                Html_types.nmtoken ->
-                Html_types.text wrap -> [> `User_data ] attrib
-              val a_id : Html_types.text wrap -> [> `Id ] attrib
-              val a_title : Html_types.text wrap -> [> `Title ] attrib
-              val a_xml_lang :
-                Html_types.languagecode wrap -> [> `XML_lang ] attrib
-              val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-              val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-              val a_onafterprint :
-                Xml.event_handler -> [> `OnAfterPrint ] attrib
-              val a_onbeforeprint :
-                Xml.event_handler -> [> `OnBeforePrint ] attrib
-              val a_onbeforeunload :
-                Xml.event_handler -> [> `OnBeforeUnload ] attrib
-              val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-              val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-              val a_oncanplaythrough :
-                Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-              val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-              val a_ondurationchange :
-                Xml.event_handler -> [> `OnDurationChange ] attrib
-              val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-              val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-              val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-              val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-              val a_onformchange :
-                Xml.event_handler -> [> `OnFormChange ] attrib
-              val a_onforminput :
-                Xml.event_handler -> [> `OnFormInput ] attrib
-              val a_onhashchange :
-                Xml.event_handler -> [> `OnHashChange ] attrib
-              val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-              val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-              val a_onmousewheel :
-                Xml.event_handler -> [> `OnMouseWheel ] attrib
-              val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-              val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-              val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-              val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-              val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-              val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-              val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-              val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-              val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-              val a_onratechange :
-                Xml.event_handler -> [> `OnRateChange ] attrib
-              val a_onreadystatechange :
-                Xml.event_handler -> [> `OnReadyStateChange ] attrib
-              val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-              val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-              val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-              val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-              val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-              val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-              val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-              val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-              val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-              val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-              val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-              val a_ontimeupdate :
-                Xml.event_handler -> [> `OnTimeUpdate ] attrib
-              val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-              val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-              val a_onvolumechange :
-                Xml.event_handler -> [> `OnVolumeChange ] attrib
-              val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-              val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-              val a_onloadeddata :
-                Xml.event_handler -> [> `OnLoadedData ] attrib
-              val a_onloadedmetadata :
-                Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-              val a_onloadstart :
-                Xml.event_handler -> [> `OnLoadStart ] attrib
-              val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-              val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-              val a_oncontextmenu :
-                Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-              val a_ondblclick :
-                Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-              val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-              val a_ondragend :
-                Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-              val a_ondragenter :
-                Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-              val a_ondragleave :
-                Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-              val a_ondragover :
-                Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-              val a_ondragstart :
-                Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-              val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-              val a_onmousedown :
-                Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-              val a_onmouseup :
-                Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-              val a_onmouseover :
-                Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-              val a_onmousemove :
-                Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-              val a_onmouseout :
-                Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-              val a_ontouchstart :
-                Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-              val a_ontouchend :
-                Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-              val a_ontouchmove :
-                Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-              val a_ontouchcancel :
-                Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-              val a_onkeypress :
-                Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-              val a_onkeydown :
-                Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-              val a_onkeyup :
-                Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
-              val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
-              val a_allowpaymentrequest :
-                unit -> [> `Allowpaymentrequest ] attrib
-              val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
-              val a_async : unit -> [> `Async ] attrib
-              val a_autofocus : unit -> [> `Autofocus ] attrib
-              val a_autoplay : unit -> [> `Autoplay ] attrib
-              val a_muted : unit -> [> `Muted ] attrib
-              val a_crossorigin :
-                [< `Anonymous | `Use_credentials ] wrap ->
-                [> `Crossorigin ] attrib
-              val a_integrity : string wrap -> [> `Integrity ] attrib
-              val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
-              val a_challenge :
-                Html_types.text wrap -> [> `Challenge ] attrib
-              val a_contenteditable :
-                bool wrap -> [> `Contenteditable ] attrib
-              val a_contextmenu :
-                Html_types.idref wrap -> [> `Contextmenu ] attrib
-              val a_controls : unit -> [> `Controls ] attrib
-              val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
-              val a_draggable : bool wrap -> [> `Draggable ] attrib
-              val a_form : Html_types.idref wrap -> [> `Form ] attrib
-              val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
-              val a_formenctype :
-                Html_types.contenttype wrap -> [> `Formenctype ] attrib
-              val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
-              val a_formtarget :
-                Html_types.text wrap -> [> `Formtarget ] attrib
-              val a_hidden : unit -> [> `Hidden ] attrib
-              val a_high : Html_types.float_number wrap -> [> `High ] attrib
-              val a_icon : Xml.uri wrap -> [> `Icon ] attrib
-              val a_ismap : unit -> [> `Ismap ] attrib
-              val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
-              val a_list : Html_types.idref wrap -> [> `List ] attrib
-              val a_loop : unit -> [> `Loop ] attrib
-              val a_low : Html_types.float_number wrap -> [> `High ] attrib
-              val a_max : Html_types.float_number wrap -> [> `Max ] attrib
-              val a_input_max :
-                Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
-              val a_min : Html_types.float_number wrap -> [> `Min ] attrib
-              val a_input_min :
-                Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
-              val a_inputmode :
-                [< `Decimal
-                 | `Email
-                 | `None
-                 | `Numeric
-                 | `Search
-                 | `Tel
-                 | `Text
-                 | `Url ]
-                wrap -> [> `Inputmode ] attrib
-              val a_novalidate : unit -> [> `Novalidate ] attrib
-              val a_open : unit -> [> `Open ] attrib
-              val a_optimum :
-                Html_types.float_number wrap -> [> `Optimum ] attrib
-              val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
-              val a_placeholder :
-                Html_types.text wrap -> [> `Placeholder ] attrib
-              val a_poster : Xml.uri wrap -> [> `Poster ] attrib
-              val a_preload :
-                [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
-              val a_pubdate : unit -> [> `Pubdate ] attrib
-              val a_radiogroup :
-                Html_types.text wrap -> [> `Radiogroup ] attrib
-              val a_referrerpolicy :
-                Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
-              val a_required : unit -> [> `Required ] attrib
-              val a_reversed : unit -> [> `Reversed ] attrib
-              val a_sandbox :
-                [< Html_types.sandbox_token ] list wrap ->
-                [> `Sandbox ] attrib
-              val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
-              val a_scoped : unit -> [> `Scoped ] attrib
-              val a_seamless : unit -> [> `Seamless ] attrib
-              val a_sizes :
-                (Html_types.number * Html_types.number) list option wrap ->
-                [> `Sizes ] attrib
-              val a_span : Html_types.number wrap -> [> `Span ] attrib
-              val a_srclang :
-                Html_types.nmtoken wrap -> [> `XML_lang ] attrib
-              type image_candidate =
-                  [ `Url of uri
-                  | `Url_pixel of uri * Html_types.float_number
-                  | `Url_width of uri * Html_types.number ]
-              val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
-              val a_img_sizes :
-                Html_types.text list wrap -> [> `Img_sizes ] attrib
-              val a_start : Html_types.number wrap -> [> `Start ] attrib
-              val a_step :
-                Html_types.float_number option wrap -> [> `Step ] attrib
-              val a_translate :
-                [< `No | `Yes ] wrap -> [> `Translate ] attrib
-              val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
-              val a_version : Html_types.cdata wrap -> [> `Version ] attrib
-              val a_xmlns :
-                [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
-              val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
-              val a_cite : Xml.uri wrap -> [> `Cite ] attrib
+              val string_of_uri : (uri, string) Xml.W.ft
+              val uri_of_string : (string, uri) Xml.W.ft
+              val a_version : string wrap -> [> `Version ] attrib
+              val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+              val a_x : Svg_types.coord wrap -> [> `X ] attrib
+              val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+              val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+              val a_height :
+                Svg_types.Unit.length wrap -> [> `Height ] attrib
+              val a_preserveAspectRatio :
+                string wrap -> [> `PreserveAspectRatio ] attrib
+              val a_contentScriptType :
+                string wrap -> [> `ContentScriptType ] attrib
+              val a_contentStyleType :
+                string wrap -> [> `ContentStyleType ] attrib
+              val a_zoomAndPan :
+                [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+              val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+              val a_xlink_href :
+                Svg_types.iri wrap -> [> `Xlink_href ] attrib
+              val a_requiredFeatures :
+                Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+              val a_requiredExtensions :
+                Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+              val a_systemLanguage :
+                Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+              val a_externalRessourcesRequired :
+                bool wrap -> [> `ExternalRessourcesRequired ] attrib
+              val a_id : string wrap -> [> `Id ] attrib
+              val a_user_data :
+                string -> string wrap -> [> `User_data ] attrib
+              val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+              val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
               val a_xml_space :
-                [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
-              val a_accesskey :
-                Html_types.character wrap -> [> `Accesskey ] attrib
-              val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
-              val a_accept_charset :
-                Html_types.charsets wrap -> [> `Accept_charset ] attrib
-              val a_accept :
-                Html_types.contenttypes wrap -> [> `Accept ] attrib
-              val a_href : Xml.uri wrap -> [> `Href ] attrib
-              val a_hreflang :
-                Html_types.languagecode wrap -> [> `Hreflang ] attrib
-              val a_download : string option wrap -> [> `Download ] attrib
-              val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
-              val a_tabindex :
-                Html_types.number wrap -> [> `Tabindex ] attrib
-              val a_mime_type :
-                Html_types.contenttype wrap -> [> `Mime_type ] attrib
-              val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
-              val a_action : Xml.uri wrap -> [> `Action ] attrib
-              val a_checked : unit -> [> `Checked ] attrib
-              val a_cols : Html_types.number wrap -> [> `Cols ] attrib
-              val a_enctype :
-                Html_types.contenttype wrap -> [> `Enctype ] attrib
-              val a_label_for :
-                Html_types.idref wrap -> [> `Label_for ] attrib
-              val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
-              val a_output_for :
-                Html_types.idrefs wrap -> [> `Output_for ] attrib
-              val a_for_list :
-                Html_types.idrefs wrap -> [> `Output_for ] attrib
-              val a_maxlength :
-                Html_types.number wrap -> [> `Maxlength ] attrib
-              val a_minlength :
-                Html_types.number wrap -> [> `Minlength ] attrib
-              val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-              val a_formmethod :
-                [< `Get | `Post ] wrap -> [> `Method ] attrib
-              val a_multiple : unit -> [> `Multiple ] attrib
-              val a_name : Html_types.text wrap -> [> `Name ] attrib
-              val a_rows : Html_types.number wrap -> [> `Rows ] attrib
-              val a_selected : unit -> [> `Selected ] attrib
-              val a_size : Html_types.number wrap -> [> `Size ] attrib
-              val a_src : Xml.uri wrap -> [> `Src ] attrib
-              val a_input_type :
-                [< `Button
-                 | `Checkbox
-                 | `Color
-                 | `Date
-                 | `Datetime
-                 | `Datetime_local
-                 | `Email
-                 | `File
-                 | `Hidden
-                 | `Image
-                 | `Month
-                 | `Number
-                 | `Password
-                 | `Radio
-                 | `Range
-                 | `Reset
-                 | `Search
-                 | `Submit
-                 | `Tel
-                 | `Text
-                 | `Time
-                 | `Url
-                 | `Week ]
-                wrap -> [> `Input_Type ] attrib
-              val a_text_value :
-                Html_types.text wrap -> [> `Text_Value ] attrib
-              val a_int_value :
-                Html_types.number wrap -> [> `Int_Value ] attrib
-              val a_value : Html_types.cdata wrap -> [> `Value ] attrib
-              val a_float_value :
-                Html_types.float_number wrap -> [> `Float_Value ] attrib
-              val a_disabled : unit -> [> `Disabled ] attrib
-              val a_readonly : unit -> [> `ReadOnly ] attrib
-              val a_button_type :
-                [< `Button | `Reset | `Submit ] wrap ->
-                [> `Button_Type ] attrib
-              val a_command_type :
-                [< `Checkbox | `Command | `Radio ] wrap ->
-                [> `Command_Type ] attrib
-              val a_menu_type :
-                [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
-              val a_label : Html_types.text wrap -> [> `Label ] attrib
-              val a_align :
-                [< `Char | `Justify | `Left | `Right ] wrap ->
-                [> `Align ] attrib
-              val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
-              val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
-              val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
-              val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
-              val a_scope :
-                [< `Col | `Colgroup | `Row | `Rowgroup ] wrap ->
-                [> `Scope ] attrib
-              val a_summary : Html_types.text wrap -> [> `Summary ] attrib
-              val a_border : Html_types.pixels wrap -> [> `Border ] attrib
-              val a_rules :
-                [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
-                [> `Rules ] attrib
-              val a_char : Html_types.character wrap -> [> `Char ] attrib
-              val a_alt : Html_types.text wrap -> [> `Alt ] attrib
-              val a_height : Html_types.number wrap -> [> `Height ] attrib
-              val a_width : Html_types.number wrap -> [> `Width ] attrib
-              type shape = [ `Circle | `Default | `Poly | `Rect ]
-              val a_shape : shape wrap -> [> `Shape ] attrib
-              val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
-              val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
-              val a_data : Xml.uri wrap -> [> `Data ] attrib
-              val a_codetype :
-                Html_types.contenttype wrap -> [> `Codetype ] attrib
-              val a_frameborder :
-                [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
-              val a_marginheight :
-                Html_types.pixels wrap -> [> `Marginheight ] attrib
-              val a_marginwidth :
-                Html_types.pixels wrap -> [> `Marginwidth ] attrib
-              val a_scrolling :
-                [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
-              val a_target :
-                Html_types.frametarget wrap -> [> `Target ] attrib
-              val a_content : Html_types.text wrap -> [> `Content ] attrib
-              val a_http_equiv :
-                Html_types.text wrap -> [> `Http_equiv ] attrib
-              val a_defer : unit -> [> `Defer ] attrib
-              val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
-              val a_style : string wrap -> [> `Style_Attr ] attrib
-              val a_property : string wrap -> [> `Property ] attrib
-              val a_role : string list wrap -> [> `Role ] attrib
-              val a_aria : string -> string list wrap -> [> `Aria ] attrib
-              val txt : string wrap -> [> Html_types.txt ] elt
-              val html :
-                ?a:Html_types.html_attrib attrib list ->
-                [< Html_types.head ] elt wrap ->
-                [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
-              val head :
-                ?a:Html_types.head_attrib attrib list ->
-                [< Html_types.title ] elt wrap ->
-                Html_types.head_content_fun elt list_wrap ->
-                [> Html_types.head ] elt
-              val base :
-                ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
+                [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+              val a_type : string wrap -> [> `Type ] attrib
+              val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+              val a_xlink_title : string wrap -> [> `Title ] attrib
+              val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+              val a_style : string wrap -> [> `Style ] attrib
+              val a_transform :
+                Svg_types.transforms wrap -> [> `Transform ] attrib
+              val a_viewBox :
+                Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+              val a_d : string wrap -> [> `D ] attrib
+              val a_pathLength : float wrap -> [> `PathLength ] attrib
+              val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+              val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+              val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+              val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+              val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+              val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+              val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+              val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+              val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+              val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+              val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+              val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+              val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+              val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+              val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+              val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+              val a_lengthAdjust :
+                [< `Spacing | `SpacingAndGlyphs ] wrap ->
+                [> `LengthAdjust ] attrib
+              val a_textLength :
+                Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+              val a_text_anchor :
+                [< `End | `Inherit | `Middle | `Start ] wrap ->
+                [> `Text_Anchor ] attrib
+              val a_text_decoration :
+                [< `Blink
+                 | `Inherit
+                 | `Line_through
+                 | `None
+                 | `Overline
+                 | `Underline ]
+                wrap -> [> `Text_Decoration ] attrib
+              val a_text_rendering :
+                [< `Auto
+                 | `GeometricPrecision
+                 | `Inherit
+                 | `OptimizeLegibility
+                 | `OptimizeSpeed ]
+                wrap -> [> `Text_Rendering ] attrib
+              val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+              val a_startOffset :
+                Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+              val a_method :
+                [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+              val a_spacing :
+                [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+              val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+              val a_format : string wrap -> [> `Format ] attrib
+              val a_markerUnits :
+                [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
+                [> `MarkerUnits ] attrib
+              val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+              val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+              val a_markerWidth :
+                Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+              val a_markerHeight :
+                Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+              val a_orient :
+                Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+              val a_local : string wrap -> [> `Local ] attrib
+              val a_rendering_intent :
+                [< `Absolute_colorimetric
+                 | `Auto
+                 | `Perceptual
+                 | `Relative_colorimetric
+                 | `Saturation ]
+                wrap -> [> `Rendering_Indent ] attrib
+              val a_gradientUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [ `GradientUnits ] attrib
+              val a_gradientTransform :
+                Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+              val a_spreadMethod :
+                [< `Pad | `Reflect | `Repeat ] wrap ->
+                [> `SpreadMethod ] attrib
+              val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+              val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+              val a_offset :
+                [< `Number of Svg_types.number
+                 | `Percentage of Svg_types.percentage ]
+                wrap -> [> `Offset ] attrib
+              val a_patternUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PatternUnits ] attrib
+              val a_patternContentUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PatternContentUnits ] attrib
+              val a_patternTransform :
+                Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+              val a_clipPathUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `ClipPathUnits ] attrib
+              val a_maskUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `MaskUnits ] attrib
+              val a_maskContentUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `MaskContentUnits ] attrib
+              val a_primitiveUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PrimitiveUnits ] attrib
+              val a_filterRes :
+                Svg_types.number_optional_number wrap ->
+                [> `FilterResUnits ] attrib
+              val a_result : string wrap -> [> `Result ] attrib
+              val a_in :
+                [< `BackgroundAlpha
+                 | `BackgroundImage
+                 | `FillPaint
+                 | `Ref of string
+                 | `SourceAlpha
+                 | `SourceGraphic
+                 | `StrokePaint ]
+                wrap -> [> `In ] attrib
+              val a_in2 :
+                [< `BackgroundAlpha
+                 | `BackgroundImage
+                 | `FillPaint
+                 | `Ref of string
+                 | `SourceAlpha
+                 | `SourceGraphic
+                 | `StrokePaint ]
+                wrap -> [> `In2 ] attrib
+              val a_azimuth : float wrap -> [> `Azimuth ] attrib
+              val a_elevation : float wrap -> [> `Elevation ] attrib
+              val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
+              val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
+              val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
+              val a_specularExponent :
+                float wrap -> [> `SpecularExponent ] attrib
+              val a_specularConstant :
+                float wrap -> [> `SpecularConstant ] attrib
+              val a_limitingConeAngle :
+                float wrap -> [> `LimitingConeAngle ] attrib
+              val a_mode :
+                [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
+                [> `Mode ] attrib
+              val a_feColorMatrix_type :
+                [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ]
+                wrap -> [> `Typefecolor ] attrib
+              val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
+              val a_transfer_type :
+                [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
+                [> `Type_transfert ] attrib
+              val a_tableValues :
+                Svg_types.numbers wrap -> [> `TableValues ] attrib
+              val a_intercept :
+                Svg_types.number wrap -> [> `Intercept ] attrib
+              val a_amplitude :
+                Svg_types.number wrap -> [> `Amplitude ] attrib
+              val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
+              val a_transfer_offset :
+                Svg_types.number wrap -> [> `Offset_transfer ] attrib
+              val a_feComposite_operator :
+                [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
+                [> `OperatorComposite ] attrib
+              val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
+              val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
+              val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
+              val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
+              val a_order :
+                Svg_types.number_optional_number wrap -> [> `Order ] attrib
+              val a_kernelMatrix :
+                Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
+              val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
+              val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
+              val a_kernelUnitLength :
+                Svg_types.number_optional_number wrap ->
+                [> `KernelUnitLength ] attrib
+              val a_targetX : int wrap -> [> `TargetX ] attrib
+              val a_targetY : int wrap -> [> `TargetY ] attrib
+              val a_edgeMode :
+                [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
+              val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
+              val a_surfaceScale :
+                Svg_types.number wrap -> [> `SurfaceScale ] attrib
+              val a_diffuseConstant :
+                Svg_types.number wrap -> [> `DiffuseConstant ] attrib
+              val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
+              val a_xChannelSelector :
+                [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
+              val a_yChannelSelector :
+                [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
+              val a_stdDeviation :
+                Svg_types.number_optional_number wrap ->
+                [> `StdDeviation ] attrib
+              val a_feMorphology_operator :
+                [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
+              val a_radius :
+                Svg_types.number_optional_number wrap -> [> `Radius ] attrib
+              val a_baseFrenquency :
+                Svg_types.number_optional_number wrap ->
+                [> `BaseFrequency ] attrib
+              val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
+              val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
+              val a_stitchTiles :
+                [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
+              val a_feTurbulence_type :
+                [< `FractalNoise | `Turbulence ] wrap ->
+                [> `TypeStitch ] attrib
+              val a_xlink_show :
+                [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
+              val a_xlink_actuate :
+                [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
+                [> `Xlink_actuate ] attrib
+              val a_target : string wrap -> [> `Xlink_target ] attrib
+              val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
+              val a_attributeName : string wrap -> [> `AttributeName ] attrib
+              val a_attributeType :
+                [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
+              val a_begin : string wrap -> [> `Begin ] attrib
+              val a_dur : string wrap -> [> `Dur ] attrib
+              val a_min : string wrap -> [> `Min ] attrib
+              val a_max : string wrap -> [> `Max ] attrib
+              val a_restart :
+                [< `Always | `Never | `WhenNotActive ] wrap ->
+                [> `Restart ] attrib
+              val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
+              val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
+              val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
+              val a_animation_fill :
+                [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+              val a_fill_rule :
+                Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
+              val a_calcMode :
+                [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
+                [> `CalcMode ] attrib
+              val a_animation_values :
+                Svg_types.strings wrap -> [> `Valuesanim ] attrib
+              val a_keyTimes :
+                Svg_types.strings wrap -> [> `KeyTimes ] attrib
+              val a_keySplines :
+                Svg_types.strings wrap -> [> `KeySplines ] attrib
+              val a_from : string wrap -> [> `From ] attrib
+              val a_to : string wrap -> [> `To ] attrib
+              val a_by : string wrap -> [> `By ] attrib
+              val a_additive :
+                [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
+              val a_accumulate :
+                [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
+              val a_keyPoints :
+                Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
+              val a_path : string wrap -> [> `Path ] attrib
+              val a_animateTransform_type :
+                [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
+                [ `Typeanimatetransform ] attrib
+              val a_horiz_origin_x :
+                Svg_types.number wrap -> [> `HorizOriginX ] attrib
+              val a_horiz_origin_y :
+                Svg_types.number wrap -> [> `HorizOriginY ] attrib
+              val a_horiz_adv_x :
+                Svg_types.number wrap -> [> `HorizAdvX ] attrib
+              val a_vert_origin_x :
+                Svg_types.number wrap -> [> `VertOriginX ] attrib
+              val a_vert_origin_y :
+                Svg_types.number wrap -> [> `VertOriginY ] attrib
+              val a_vert_adv_y :
+                Svg_types.number wrap -> [> `VertAdvY ] attrib
+              val a_unicode : string wrap -> [> `Unicode ] attrib
+              val a_glyph_name : string wrap -> [> `glyphname ] attrib
+              val a_orientation :
+                [< `H | `V ] wrap -> [> `Orientation ] attrib
+              val a_arabic_form :
+                [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
+                [> `Arabicform ] attrib
+              val a_lang : string wrap -> [> `Lang ] attrib
+              val a_u1 : string wrap -> [> `U1 ] attrib
+              val a_u2 : string wrap -> [> `U2 ] attrib
+              val a_g1 : string wrap -> [> `G1 ] attrib
+              val a_g2 : string wrap -> [> `G2 ] attrib
+              val a_k : string wrap -> [> `K ] attrib
+              val a_font_family : string wrap -> [> `Font_Family ] attrib
+              val a_font_style : string wrap -> [> `Font_Style ] attrib
+              val a_font_variant : string wrap -> [> `Font_Variant ] attrib
+              val a_font_weight : string wrap -> [> `Font_Weight ] attrib
+              val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
+              val a_font_size : string wrap -> [> `Font_Size ] attrib
+              val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
+              val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
+              val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
+              val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
+              val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
+              val a_cap_height :
+                Svg_types.number wrap -> [> `CapHeight ] attrib
+              val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
+              val a_accent_height :
+                Svg_types.number wrap -> [> `AccentHeight ] attrib
+              val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
+              val a_widths : string wrap -> [> `Widths ] attrib
+              val a_bbox : string wrap -> [> `Bbox ] attrib
+              val a_ideographic :
+                Svg_types.number wrap -> [> `Ideographic ] attrib
+              val a_alphabetic :
+                Svg_types.number wrap -> [> `Alphabetic ] attrib
+              val a_mathematical :
+                Svg_types.number wrap -> [> `Mathematical ] attrib
+              val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
+              val a_videographic :
+                Svg_types.number wrap -> [> `VIdeographic ] attrib
+              val a_v_alphabetic :
+                Svg_types.number wrap -> [> `VAlphabetic ] attrib
+              val a_v_mathematical :
+                Svg_types.number wrap -> [> `VMathematical ] attrib
+              val a_v_hanging :
+                Svg_types.number wrap -> [> `VHanging ] attrib
+              val a_underline_position :
+                Svg_types.number wrap -> [> `UnderlinePosition ] attrib
+              val a_underline_thickness :
+                Svg_types.number wrap -> [> `UnderlineThickness ] attrib
+              val a_strikethrough_position :
+                Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
+              val a_strikethrough_thickness :
+                Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
+              val a_overline_position :
+                Svg_types.number wrap -> [> `OverlinePosition ] attrib
+              val a_overline_thickness :
+                Svg_types.number wrap -> [> `OverlineThickness ] attrib
+              val a_string : string wrap -> [> `String ] attrib
+              val a_name : string wrap -> [> `Name ] attrib
+              val a_alignment_baseline :
+                [< `After_edge
+                 | `Alphabetic
+                 | `Auto
+                 | `Baseline
+                 | `Before_edge
+                 | `Central
+                 | `Hanging
+                 | `Ideographic
+                 | `Inherit
+                 | `Mathematical
+                 | `Middle
+                 | `Text_after_edge
+                 | `Text_before_edge ]
+                wrap -> [> `Alignment_Baseline ] attrib
+              val a_dominant_baseline :
+                [< `Alphabetic
+                 | `Auto
+                 | `Central
+                 | `Hanging
+                 | `Ideographic
+                 | `Inherit
+                 | `Mathematical
+                 | `Middle
+                 | `No_change
+                 | `Reset_size
+                 | `Text_after_edge
+                 | `Text_before_edge
+                 | `Use_script ]
+                wrap -> [> `Dominant_Baseline ] attrib
+              val a_stop_color :
+                Svg_types.color wrap -> [> `Stop_Color ] attrib
+              val a_stop_opacity :
+                Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+              val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+              val a_stroke_width :
+                Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+              val a_stroke_linecap :
+                [< `Butt | `Round | `Square ] wrap ->
+                [> `Stroke_Linecap ] attrib
+              val a_stroke_linejoin :
+                [< `Bever | `Miter | `Round ] wrap ->
+                [> `Stroke_Linejoin ] attrib
+              val a_stroke_miterlimit :
+                float wrap -> [> `Stroke_Miterlimit ] attrib
+              val a_stroke_dasharray :
+                Svg_types.Unit.length list wrap ->
+                [> `Stroke_Dasharray ] attrib
+              val a_stroke_dashoffset :
+                Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+              val a_stroke_opacity :
+                float wrap -> [> `Stroke_Opacity ] attrib
+              val txt : string wrap -> [> Svg_types.txt ] elt
+              val svg :
+                ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
+                 [> Svg_types.svg ])
+                star
+              val g :
+                ([< Svg_types.g_attr ], [< Svg_types.g_content ],
+                 [> Svg_types.g ])
+                star
+              val defs :
+                ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
+                 [> Svg_types.defs ])
+                star
+              val desc :
+                ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
+                 [> Svg_types.desc ])
+                unary
+              val title :
+                ([< Svg_types.title_attr ], [< Svg_types.title_content ],
+                 [> Svg_types.title ])
+                unary
+              val symbol :
+                ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
+                 [> Svg_types.symbol ])
+                star
+              val use :
+                ([< Svg_types.use_attr ], [< Svg_types.use_content ],
+                 [> Svg_types.use ])
+                star
+              val image :
+                ([< Svg_types.image_attr ], [< Svg_types.image_content ],
+                 [> Svg_types.image ])
+                star
+              val switch :
+                ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
+                 [> Svg_types.switch ])
+                star
+              val style :
+                ([< Svg_types.style_attr ], [< Svg_types.style_content ],
+                 [> Svg_types.style ])
+                unary
+              val path :
+                ([< Svg_types.path_attr ], [< Svg_types.path_content ],
+                 [> Svg_types.path ])
+                star
+              val rect :
+                ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
+                 [> Svg_types.rect ])
+                star
+              val circle :
+                ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
+                 [> Svg_types.circle ])
+                star
+              val ellipse :
+                ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
+                 [> Svg_types.ellipse ])
+                star
+              val line :
+                ([< Svg_types.line_attr ], [< Svg_types.line_content ],
+                 [> Svg_types.line ])
+                star
+              val polyline :
+                ([< Svg_types.polyline_attr ],
+                 [< Svg_types.polyline_content ], [> Svg_types.polyline ])
+                star
+              val polygon :
+                ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
+                 [> Svg_types.polygon ])
+                star
+              val text :
+                ([< Svg_types.text_attr ], [< Svg_types.text_content ],
+                 [> Svg_types.text ])
+                star
+              val tspan :
+                ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
+                 [> Svg_types.tspan ])
+                star
+              val tref :
+                ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
+                 [> Svg_types.tref ])
+                star
+              val textPath :
+                ([< Svg_types.textpath_attr ],
+                 [< Svg_types.textpath_content ], [> Svg_types.textpath ])
+                star
+              val altGlyph :
+                ([< Svg_types.altglyph_attr ],
+                 [< Svg_types.altglyph_content ], [> Svg_types.altglyph ])
+                unary
+              type altglyphdef_content =
+                  [ `Item of Svg_types.altglyphitem elt list
+                  | `Ref of Svg_types.glyphref elt list ]
+              val altGlyphDef :
+                ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
+                 [> Svg_types.altglyphdef ])
+                unary
+              val altGlyphItem :
+                ([< Svg_types.altglyphitem_attr ],
+                 [< Svg_types.altglyphitem_content ],
+                 [> Svg_types.altglyphitem ])
+                star
+              val glyphRef :
+                ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ])
+                nullary
+              val marker :
+                ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
+                 [> Svg_types.marker ])
+                star
+              val color_profile :
+                ([< Svg_types.colorprofile_attr ],
+                 [< Svg_types.colorprofile_content ],
+                 [> Svg_types.colorprofile ])
+                star
+              val linearGradient :
+                ([< Svg_types.lineargradient_attr ],
+                 [< Svg_types.lineargradient_content ],
+                 [> Svg_types.lineargradient ])
+                star
+              val radialGradient :
+                ([< Svg_types.radialgradient_attr ],
+                 [< Svg_types.radialgradient_content ],
+                 [> Svg_types.radialgradient ])
+                star
+              val stop :
+                ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
+                 [> Svg_types.stop ])
+                star
+              val pattern :
+                ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
+                 [> Svg_types.pattern ])
+                star
+              val clipPath :
+                ([< Svg_types.clippath_attr ],
+                 [< Svg_types.clippath_content ], [> Svg_types.clippath ])
+                star
+              val filter :
+                ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
+                 [> Svg_types.filter ])
+                star
+              val feDistantLight :
+                ([< Svg_types.fedistantlight_attr ],
+                 [< Svg_types.fedistantlight_content ],
+                 [> Svg_types.fedistantlight ])
+                star
+              val fePointLight :
+                ([< Svg_types.fepointlight_attr ],
+                 [< Svg_types.fepointlight_content ],
+                 [> Svg_types.fepointlight ])
+                star
+              val feSpotLight :
+                ([< Svg_types.fespotlight_attr ],
+                 [< Svg_types.fespotlight_content ],
+                 [> Svg_types.fespotlight ])
+                star
+              val feBlend :
+                ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
+                 [> Svg_types.feblend ])
+                star
+              val feColorMatrix :
+                ([< Svg_types.fecolormatrix_attr ],
+                 [< Svg_types.fecolormatrix_content ],
+                 [> Svg_types.fecolormatrix ])
+                star
+              val feComponentTransfer :
+                ([< Svg_types.fecomponenttransfer_attr ],
+                 [< Svg_types.fecomponenttransfer_content ],
+                 [> Svg_types.fecomponenttransfer ])
+                star
+              val feFuncA :
+                ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
+                 [> Svg_types.fefunca ])
+                star
+              val feFuncG :
+                ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
+                 [> Svg_types.fefuncg ])
+                star
+              val feFuncB :
+                ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
+                 [> Svg_types.fefuncb ])
+                star
+              val feFuncR :
+                ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
+                 [> Svg_types.fefuncr ])
+                star
+              val feComposite :
+                ([< Svg_types.fecomposite_attr ],
+                 [< Svg_types.fecomposite_content ],
+                 [> Svg_types.fecomposite ])
+                star
+              val feConvolveMatrix :
+                ([< Svg_types.feconvolvematrix_attr ],
+                 [< Svg_types.feconvolvematrix_content ],
+                 [> Svg_types.feconvolvematrix ])
+                star
+              val feDiffuseLighting :
+                ([< Svg_types.fediffuselighting_attr ],
+                 [< Svg_types.fediffuselighting_content ],
+                 [> Svg_types.fediffuselighting ])
+                star
+              val feDisplacementMap :
+                ([< Svg_types.fedisplacementmap_attr ],
+                 [< Svg_types.fedisplacementmap_content ],
+                 [> Svg_types.fedisplacementmap ])
+                star
+              val feFlood :
+                ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
+                 [> Svg_types.feflood ])
+                star
+              val feGaussianBlur :
+                ([< Svg_types.fegaussianblur_attr ],
+                 [< Svg_types.fegaussianblur_content ],
+                 [> Svg_types.fegaussianblur ])
+                star
+              val feImage :
+                ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
+                 [> Svg_types.feimage ])
+                star
+              val feMerge :
+                ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
+                 [> Svg_types.femerge ])
+                star
+              val feMorphology :
+                ([< Svg_types.femorphology_attr ],
+                 [< Svg_types.femorphology_content ],
+                 [> Svg_types.femorphology ])
+                star
+              val feOffset :
+                ([< Svg_types.feoffset_attr ],
+                 [< Svg_types.feoffset_content ], [> Svg_types.feoffset ])
+                star
+              val feSpecularLighting :
+                ([< Svg_types.fespecularlighting_attr ],
+                 [< Svg_types.fespecularlighting_content ],
+                 [> Svg_types.fespecularlighting ])
+                star
+              val feTile :
+                ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
+                 [> Svg_types.fetile ])
+                star
+              val feTurbulence :
+                ([< Svg_types.feturbulence_attr ],
+                 [< Svg_types.feturbulence_content ],
+                 [> Svg_types.feturbulence ])
+                star
+              val cursor :
+                ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
+                 [> Svg_types.cursor ])
+                star
+              val a :
+                ([< Svg_types.a_attr ], [< Svg_types.a_content ],
+                 [> Svg_types.a ])
+                star
+              val view :
+                ([< Svg_types.view_attr ], [< Svg_types.view_content ],
+                 [> Svg_types.view ])
+                star
+              val script :
+                ([< Svg_types.script_attr ], [< Svg_types.script_content ],
+                 [> Svg_types.script ])
+                unary
+              val animate :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
+                star
+              val set :
+                ([< Svg_types.set_attr ], [< Svg_types.set_content ],
+                 [> Svg_types.set ])
+                star
+              val animateMotion :
+                ([< Svg_types.animatemotion_attr ],
+                 [< Svg_types.animatemotion_content ],
+                 [> Svg_types.animatemotion ])
+                star
+              val mpath :
+                ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
+                 [> Svg_types.mpath ])
+                star
+              val animateColor :
+                ([< Svg_types.animatecolor_attr ],
+                 [< Svg_types.animatecolor_content ],
+                 [> Svg_types.animatecolor ])
+                star
+              val animateTransform :
+                ([< Svg_types.animatetransform_attr ],
+                 [< Svg_types.animatetransform_content ],
+                 [> Svg_types.animatetransform ])
+                star
+              val font :
+                ([< Svg_types.font_attr ], [< Svg_types.font_content ],
+                 [> Svg_types.font ])
+                star
+              val glyph :
+                ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
+                 [> Svg_types.glyph ])
+                star
+              val missing_glyph :
+                ([< Svg_types.missingglyph_attr ],
+                 [< Svg_types.missingglyph_content ],
+                 [> Svg_types.missingglyph ])
+                star
+              val hkern :
+                ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
+              val vkern :
+                ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
+              val font_face :
+                ([< Svg_types.font_face_attr ], [> Svg_types.font_face ])
+                nullary
+              val font_face_src :
+                ([< Svg_types.font_face_src_attr ],
+                 [< Svg_types.font_face_src_content ],
+                 [> Svg_types.font_face_src ])
+                star
+              val font_face_uri :
+                ([< Svg_types.font_face_uri_attr ],
+                 [< Svg_types.font_face_uri_content ],
+                 [> Svg_types.font_face_uri ])
+                star
+              val font_face_format :
+                ([< Svg_types.font_face_format_attr ],
+                 [> Svg_types.font_face_format ])
+                nullary
+              val font_face_name :
+                ([< Svg_types.font_face_name_attr ],
+                 [> Svg_types.font_face_name ])
+                nullary
+              val metadata :
+                ?a:Svg_types.metadata_attr attrib list ->
+                Xml.elt list_wrap -> [> Svg_types.metadata ] elt
+              val foreignObject :
+                ?a:Svg_types.foreignobject_attr attrib list ->
+                Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+              val pcdata : string wrap -> [> Svg_types.txt ] elt
+              val animation :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
+                star
+              val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+              val tot : Xml.elt -> 'a elt
+              val totl : Xml.elt list_wrap -> 'a elt list_wrap
+              val toelt : 'a elt -> Xml.elt
+              val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+              val doc_toelt : doc -> Xml.elt
+              val to_xmlattribs : 'a attrib list -> Xml.attrib list
+              val to_attrib : Xml.attrib -> 'a attrib
+              module Unsafe :
+                sig
+                  val data : string wrap -> 'a elt
+                  val node :
+                    string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+                  val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+                  val coerce_elt : 'a elt -> 'b elt
+                  val string_attrib : string -> string wrap -> 'a attrib
+                  val float_attrib : string -> float wrap -> 'a attrib
+                  val int_attrib : string -> int wrap -> 'a attrib
+                  val uri_attrib : string -> uri wrap -> 'a attrib
+                  val space_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                  val comma_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                end
+              val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+              val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+              val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+              val a_onend : string -> [> `OnEnd ] Raw'.attrib
+              val a_onerror : string -> [> `OnError ] Raw'.attrib
+              val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+              val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+              val a_onload : string -> [> `OnLoad ] Raw'.attrib
+              val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+              val a_onresize : string -> [> `OnResize ] Raw'.attrib
+              val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+              val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+              val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+              val a_onclick : string -> [> `OnClick ] Raw'.attrib
+              val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+              val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+              val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+              val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+              val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+              val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+              val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+              val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+              val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+            end
+          type 'a elt = 'a elt
+          type doc = [ `Svg ] elt
+          type 'a attrib = 'a attrib
+          module Xml :
+            sig
+              module W :
+                sig
+                  type 'a t = 'a Xml.W.t
+                  val return : 'a -> 'a t
+                  type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                  type 'a tlist = 'a Xml.W.tlist
+                  val nil : unit -> 'a tlist
+                  val singleton : 'a t -> 'a tlist
+                  val cons : 'a t -> 'a tlist -> 'a tlist
+                  val append : 'a tlist -> 'a tlist -> 'a tlist
+                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                end
+              type 'a wrap = 'a W.t
+              type 'a list_wrap = 'a W.tlist
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) W.ft
+              val uri_of_string : (string, uri) W.ft
+              type aname = string
+              type event_handler = Xml.event_handler
+              type mouse_event_handler = Xml.mouse_event_handler
+              type keyboard_event_handler = Xml.keyboard_event_handler
+              type touch_event_handler = Xml.touch_event_handler
+              type attrib = Xml.attrib
+              val float_attrib : aname -> float wrap -> attrib
+              val int_attrib : aname -> int wrap -> attrib
+              val string_attrib : aname -> string wrap -> attrib
+              val space_sep_attrib : aname -> string list wrap -> attrib
+              val comma_sep_attrib : aname -> string list wrap -> attrib
+              val event_handler_attrib : aname -> event_handler -> attrib
+              val mouse_event_handler_attrib :
+                aname -> mouse_event_handler -> attrib
+              val keyboard_event_handler_attrib :
+                aname -> keyboard_event_handler -> attrib
+              val touch_event_handler_attrib :
+                aname -> touch_event_handler -> attrib
+              val uri_attrib : aname -> uri wrap -> attrib
+              val uris_attrib : aname -> uri list wrap -> attrib
+              type elt = Xml.elt
+              type ename = string
+              val empty : unit -> elt
+              val comment : string -> elt
+              val pcdata : string wrap -> elt
+              val encodedpcdata : string wrap -> elt
+              val entity : string -> elt
+              val leaf : ?a:attrib list -> ename -> elt
+              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+              val cdata : string -> elt
+              val cdata_script : string -> elt
+              val cdata_style : string -> elt
+            end
+          type 'a wrap = 'a Xml.W.t
+          type 'a list_wrap = 'a Xml.W.tlist
+          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+          type ('a, 'b, 'c) unary =
+              ?a:'a attrib list -> 'b elt wrap -> 'c elt
+          type ('a, 'b, 'c) star =
+              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          module Info : Xml_sigs.Info
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) Xml.W.ft
+          val uri_of_string : (string, uri) Xml.W.ft
+          val a_version : string wrap -> [> `Version ] attrib
+          val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+          val a_x : Svg_types.coord wrap -> [> `X ] attrib
+          val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+          val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+          val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
+          val a_preserveAspectRatio :
+            string wrap -> [> `PreserveAspectRatio ] attrib
+          val a_contentScriptType :
+            string wrap -> [> `ContentScriptType ] attrib
+          val a_contentStyleType :
+            string wrap -> [> `ContentStyleType ] attrib
+          val a_zoomAndPan :
+            [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+          val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+          val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+          val a_requiredFeatures :
+            Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+          val a_requiredExtensions :
+            Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+          val a_systemLanguage :
+            Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+          val a_externalRessourcesRequired :
+            bool wrap -> [> `ExternalRessourcesRequired ] attrib
+          val a_id : string wrap -> [> `Id ] attrib
+          val a_user_data : string -> string wrap -> [> `User_data ] attrib
+          val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+          val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+          val a_xml_space :
+            [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+          val a_type : string wrap -> [> `Type ] attrib
+          val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+          val a_xlink_title : string wrap -> [> `Title ] attrib
+          val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+          val a_style : string wrap -> [> `Style ] attrib
+          val a_transform :
+            Svg_types.transforms wrap -> [> `Transform ] attrib
+          val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+          val a_d : string wrap -> [> `D ] attrib
+          val a_pathLength : float wrap -> [> `PathLength ] attrib
+          val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+          val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+          val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+          val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+          val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+          val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+          val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+          val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+          val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+          val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+          val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+          val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+          val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+          val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+          val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+          val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+          val a_lengthAdjust :
+            [< `Spacing | `SpacingAndGlyphs ] wrap ->
+            [> `LengthAdjust ] attrib
+          val a_textLength :
+            Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+          val a_text_anchor :
+            [< `End | `Inherit | `Middle | `Start ] wrap ->
+            [> `Text_Anchor ] attrib
+          val a_text_decoration :
+            [< `Blink
+             | `Inherit
+             | `Line_through
+             | `None
+             | `Overline
+             | `Underline ]
+            wrap -> [> `Text_Decoration ] attrib
+          val a_text_rendering :
+            [< `Auto
+             | `GeometricPrecision
+             | `Inherit
+             | `OptimizeLegibility
+             | `OptimizeSpeed ]
+            wrap -> [> `Text_Rendering ] attrib
+          val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+          val a_startOffset :
+            Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+          val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+          val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+          val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+          val a_format : string wrap -> [> `Format ] attrib
+          val a_markerUnits :
+            [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
+            [> `MarkerUnits ] attrib
+          val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+          val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+          val a_markerWidth :
+            Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+          val a_markerHeight :
+            Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+          val a_orient :
+            Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+          val a_local : string wrap -> [> `Local ] attrib
+          val a_rendering_intent :
+            [< `Absolute_colorimetric
+             | `Auto
+             | `Perceptual
+             | `Relative_colorimetric
+             | `Saturation ]
+            wrap -> [> `Rendering_Indent ] attrib
+          val a_gradientUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [ `GradientUnits ] attrib
+          val a_gradientTransform :
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+          val a_spreadMethod :
+            [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
+          val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+          val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+          val a_offset :
+            [< `Number of Svg_types.number
+             | `Percentage of Svg_types.percentage ]
+            wrap -> [> `Offset ] attrib
+          val a_patternUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PatternUnits ] attrib
+          val a_patternContentUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PatternContentUnits ] attrib
+          val a_patternTransform :
+            Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+          val a_clipPathUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `ClipPathUnits ] attrib
+          val a_maskUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `MaskUnits ] attrib
+          val a_maskContentUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `MaskContentUnits ] attrib
+          val a_primitiveUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PrimitiveUnits ] attrib
+          val a_filterRes :
+            Svg_types.number_optional_number wrap ->
+            [> `FilterResUnits ] attrib
+          val a_result : string wrap -> [> `Result ] attrib
+          val a_in :
+            [< `BackgroundAlpha
+             | `BackgroundImage
+             | `FillPaint
+             | `Ref of string
+             | `SourceAlpha
+             | `SourceGraphic
+             | `StrokePaint ]
+            wrap -> [> `In ] attrib
+          val a_in2 :
+            [< `BackgroundAlpha
+             | `BackgroundImage
+             | `FillPaint
+             | `Ref of string
+             | `SourceAlpha
+             | `SourceGraphic
+             | `StrokePaint ]
+            wrap -> [> `In2 ] attrib
+          val a_azimuth : float wrap -> [> `Azimuth ] attrib
+          val a_elevation : float wrap -> [> `Elevation ] attrib
+          val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
+          val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
+          val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
+          val a_specularExponent :
+            float wrap -> [> `SpecularExponent ] attrib
+          val a_specularConstant :
+            float wrap -> [> `SpecularConstant ] attrib
+          val a_limitingConeAngle :
+            float wrap -> [> `LimitingConeAngle ] attrib
+          val a_mode :
+            [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
+            [> `Mode ] attrib
+          val a_feColorMatrix_type :
+            [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ] wrap ->
+            [> `Typefecolor ] attrib
+          val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
+          val a_transfer_type :
+            [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
+            [> `Type_transfert ] attrib
+          val a_tableValues :
+            Svg_types.numbers wrap -> [> `TableValues ] attrib
+          val a_intercept : Svg_types.number wrap -> [> `Intercept ] attrib
+          val a_amplitude : Svg_types.number wrap -> [> `Amplitude ] attrib
+          val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
+          val a_transfer_offset :
+            Svg_types.number wrap -> [> `Offset_transfer ] attrib
+          val a_feComposite_operator :
+            [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
+            [> `OperatorComposite ] attrib
+          val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
+          val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
+          val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
+          val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
+          val a_order :
+            Svg_types.number_optional_number wrap -> [> `Order ] attrib
+          val a_kernelMatrix :
+            Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
+          val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
+          val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
+          val a_kernelUnitLength :
+            Svg_types.number_optional_number wrap ->
+            [> `KernelUnitLength ] attrib
+          val a_targetX : int wrap -> [> `TargetX ] attrib
+          val a_targetY : int wrap -> [> `TargetY ] attrib
+          val a_edgeMode :
+            [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
+          val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
+          val a_surfaceScale :
+            Svg_types.number wrap -> [> `SurfaceScale ] attrib
+          val a_diffuseConstant :
+            Svg_types.number wrap -> [> `DiffuseConstant ] attrib
+          val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
+          val a_xChannelSelector :
+            [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
+          val a_yChannelSelector :
+            [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
+          val a_stdDeviation :
+            Svg_types.number_optional_number wrap ->
+            [> `StdDeviation ] attrib
+          val a_feMorphology_operator :
+            [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
+          val a_radius :
+            Svg_types.number_optional_number wrap -> [> `Radius ] attrib
+          val a_baseFrenquency :
+            Svg_types.number_optional_number wrap ->
+            [> `BaseFrequency ] attrib
+          val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
+          val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
+          val a_stitchTiles :
+            [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
+          val a_feTurbulence_type :
+            [< `FractalNoise | `Turbulence ] wrap -> [> `TypeStitch ] attrib
+          val a_xlink_show :
+            [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
+          val a_xlink_actuate :
+            [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
+            [> `Xlink_actuate ] attrib
+          val a_target : string wrap -> [> `Xlink_target ] attrib
+          val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
+          val a_attributeName : string wrap -> [> `AttributeName ] attrib
+          val a_attributeType :
+            [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
+          val a_begin : string wrap -> [> `Begin ] attrib
+          val a_dur : string wrap -> [> `Dur ] attrib
+          val a_min : string wrap -> [> `Min ] attrib
+          val a_max : string wrap -> [> `Max ] attrib
+          val a_restart :
+            [< `Always | `Never | `WhenNotActive ] wrap ->
+            [> `Restart ] attrib
+          val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
+          val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
+          val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
+          val a_animation_fill :
+            [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
+          val a_calcMode :
+            [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
+            [> `CalcMode ] attrib
+          val a_animation_values :
+            Svg_types.strings wrap -> [> `Valuesanim ] attrib
+          val a_keyTimes : Svg_types.strings wrap -> [> `KeyTimes ] attrib
+          val a_keySplines :
+            Svg_types.strings wrap -> [> `KeySplines ] attrib
+          val a_from : string wrap -> [> `From ] attrib
+          val a_to : string wrap -> [> `To ] attrib
+          val a_by : string wrap -> [> `By ] attrib
+          val a_additive : [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
+          val a_accumulate :
+            [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
+          val a_keyPoints :
+            Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
+          val a_path : string wrap -> [> `Path ] attrib
+          val a_animateTransform_type :
+            [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
+            [ `Typeanimatetransform ] attrib
+          val a_horiz_origin_x :
+            Svg_types.number wrap -> [> `HorizOriginX ] attrib
+          val a_horiz_origin_y :
+            Svg_types.number wrap -> [> `HorizOriginY ] attrib
+          val a_horiz_adv_x : Svg_types.number wrap -> [> `HorizAdvX ] attrib
+          val a_vert_origin_x :
+            Svg_types.number wrap -> [> `VertOriginX ] attrib
+          val a_vert_origin_y :
+            Svg_types.number wrap -> [> `VertOriginY ] attrib
+          val a_vert_adv_y : Svg_types.number wrap -> [> `VertAdvY ] attrib
+          val a_unicode : string wrap -> [> `Unicode ] attrib
+          val a_glyph_name : string wrap -> [> `glyphname ] attrib
+          val a_orientation : [< `H | `V ] wrap -> [> `Orientation ] attrib
+          val a_arabic_form :
+            [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
+            [> `Arabicform ] attrib
+          val a_lang : string wrap -> [> `Lang ] attrib
+          val a_u1 : string wrap -> [> `U1 ] attrib
+          val a_u2 : string wrap -> [> `U2 ] attrib
+          val a_g1 : string wrap -> [> `G1 ] attrib
+          val a_g2 : string wrap -> [> `G2 ] attrib
+          val a_k : string wrap -> [> `K ] attrib
+          val a_font_family : string wrap -> [> `Font_Family ] attrib
+          val a_font_style : string wrap -> [> `Font_Style ] attrib
+          val a_font_variant : string wrap -> [> `Font_Variant ] attrib
+          val a_font_weight : string wrap -> [> `Font_Weight ] attrib
+          val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
+          val a_font_size : string wrap -> [> `Font_Size ] attrib
+          val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
+          val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
+          val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
+          val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
+          val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
+          val a_cap_height : Svg_types.number wrap -> [> `CapHeight ] attrib
+          val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
+          val a_accent_height :
+            Svg_types.number wrap -> [> `AccentHeight ] attrib
+          val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
+          val a_widths : string wrap -> [> `Widths ] attrib
+          val a_bbox : string wrap -> [> `Bbox ] attrib
+          val a_ideographic :
+            Svg_types.number wrap -> [> `Ideographic ] attrib
+          val a_alphabetic : Svg_types.number wrap -> [> `Alphabetic ] attrib
+          val a_mathematical :
+            Svg_types.number wrap -> [> `Mathematical ] attrib
+          val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
+          val a_videographic :
+            Svg_types.number wrap -> [> `VIdeographic ] attrib
+          val a_v_alphabetic :
+            Svg_types.number wrap -> [> `VAlphabetic ] attrib
+          val a_v_mathematical :
+            Svg_types.number wrap -> [> `VMathematical ] attrib
+          val a_v_hanging : Svg_types.number wrap -> [> `VHanging ] attrib
+          val a_underline_position :
+            Svg_types.number wrap -> [> `UnderlinePosition ] attrib
+          val a_underline_thickness :
+            Svg_types.number wrap -> [> `UnderlineThickness ] attrib
+          val a_strikethrough_position :
+            Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
+          val a_strikethrough_thickness :
+            Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
+          val a_overline_position :
+            Svg_types.number wrap -> [> `OverlinePosition ] attrib
+          val a_overline_thickness :
+            Svg_types.number wrap -> [> `OverlineThickness ] attrib
+          val a_string : string wrap -> [> `String ] attrib
+          val a_name : string wrap -> [> `Name ] attrib
+          val a_alignment_baseline :
+            [< `After_edge
+             | `Alphabetic
+             | `Auto
+             | `Baseline
+             | `Before_edge
+             | `Central
+             | `Hanging
+             | `Ideographic
+             | `Inherit
+             | `Mathematical
+             | `Middle
+             | `Text_after_edge
+             | `Text_before_edge ]
+            wrap -> [> `Alignment_Baseline ] attrib
+          val a_dominant_baseline :
+            [< `Alphabetic
+             | `Auto
+             | `Central
+             | `Hanging
+             | `Ideographic
+             | `Inherit
+             | `Mathematical
+             | `Middle
+             | `No_change
+             | `Reset_size
+             | `Text_after_edge
+             | `Text_before_edge
+             | `Use_script ]
+            wrap -> [> `Dominant_Baseline ] attrib
+          val a_stop_color : Svg_types.color wrap -> [> `Stop_Color ] attrib
+          val a_stop_opacity :
+            Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+          val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+          val a_stroke_width :
+            Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+          val a_stroke_linecap :
+            [< `Butt | `Round | `Square ] wrap -> [> `Stroke_Linecap ] attrib
+          val a_stroke_linejoin :
+            [< `Bever | `Miter | `Round ] wrap ->
+            [> `Stroke_Linejoin ] attrib
+          val a_stroke_miterlimit :
+            float wrap -> [> `Stroke_Miterlimit ] attrib
+          val a_stroke_dasharray :
+            Svg_types.Unit.length list wrap -> [> `Stroke_Dasharray ] attrib
+          val a_stroke_dashoffset :
+            Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+          val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
+          val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+          val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
+          val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
+          val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
+          val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+          val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
+          val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
+          val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+          val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
+          val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+          val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+          val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+          val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
+          val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+          val a_onmousedown :
+            Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+          val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+          val a_onmouseover :
+            Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+          val a_onmouseout :
+            Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+          val a_onmousemove :
+            Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+          val a_ontouchstart :
+            Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+          val a_ontouchend :
+            Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+          val a_ontouchmove :
+            Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+          val a_ontouchcancel :
+            Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+          val txt : string wrap -> [> Svg_types.txt ] elt
+          val svg :
+            ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
+             [> Svg_types.svg ])
+            star
+          val g :
+            ([< Svg_types.g_attr ], [< Svg_types.g_content ],
+             [> Svg_types.g ])
+            star
+          val defs :
+            ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
+             [> Svg_types.defs ])
+            star
+          val desc :
+            ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
+             [> Svg_types.desc ])
+            unary
+          val title :
+            ([< Svg_types.title_attr ], [< Svg_types.title_content ],
+             [> Svg_types.title ])
+            unary
+          val symbol :
+            ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
+             [> Svg_types.symbol ])
+            star
+          val use :
+            ([< Svg_types.use_attr ], [< Svg_types.use_content ],
+             [> Svg_types.use ])
+            star
+          val image :
+            ([< Svg_types.image_attr ], [< Svg_types.image_content ],
+             [> Svg_types.image ])
+            star
+          val switch :
+            ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
+             [> Svg_types.switch ])
+            star
+          val style :
+            ([< Svg_types.style_attr ], [< Svg_types.style_content ],
+             [> Svg_types.style ])
+            unary
+          val path :
+            ([< Svg_types.path_attr ], [< Svg_types.path_content ],
+             [> Svg_types.path ])
+            star
+          val rect :
+            ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
+             [> Svg_types.rect ])
+            star
+          val circle :
+            ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
+             [> Svg_types.circle ])
+            star
+          val ellipse :
+            ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
+             [> Svg_types.ellipse ])
+            star
+          val line :
+            ([< Svg_types.line_attr ], [< Svg_types.line_content ],
+             [> Svg_types.line ])
+            star
+          val polyline :
+            ([< Svg_types.polyline_attr ], [< Svg_types.polyline_content ],
+             [> Svg_types.polyline ])
+            star
+          val polygon :
+            ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
+             [> Svg_types.polygon ])
+            star
+          val text :
+            ([< Svg_types.text_attr ], [< Svg_types.text_content ],
+             [> Svg_types.text ])
+            star
+          val tspan :
+            ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
+             [> Svg_types.tspan ])
+            star
+          val tref :
+            ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
+             [> Svg_types.tref ])
+            star
+          val textPath :
+            ([< Svg_types.textpath_attr ], [< Svg_types.textpath_content ],
+             [> Svg_types.textpath ])
+            star
+          val altGlyph :
+            ([< Svg_types.altglyph_attr ], [< Svg_types.altglyph_content ],
+             [> Svg_types.altglyph ])
+            unary
+          type altglyphdef_content =
+              [ `Item of Svg_types.altglyphitem elt list
+              | `Ref of Svg_types.glyphref elt list ]
+          val altGlyphDef :
+            ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
+             [> Svg_types.altglyphdef ])
+            unary
+          val altGlyphItem :
+            ([< Svg_types.altglyphitem_attr ],
+             [< Svg_types.altglyphitem_content ],
+             [> Svg_types.altglyphitem ])
+            star
+          val glyphRef :
+            ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ]) nullary
+          val marker :
+            ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
+             [> Svg_types.marker ])
+            star
+          val color_profile :
+            ([< Svg_types.colorprofile_attr ],
+             [< Svg_types.colorprofile_content ],
+             [> Svg_types.colorprofile ])
+            star
+          val linearGradient :
+            ([< Svg_types.lineargradient_attr ],
+             [< Svg_types.lineargradient_content ],
+             [> Svg_types.lineargradient ])
+            star
+          val radialGradient :
+            ([< Svg_types.radialgradient_attr ],
+             [< Svg_types.radialgradient_content ],
+             [> Svg_types.radialgradient ])
+            star
+          val stop :
+            ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
+             [> Svg_types.stop ])
+            star
+          val pattern :
+            ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
+             [> Svg_types.pattern ])
+            star
+          val clipPath :
+            ([< Svg_types.clippath_attr ], [< Svg_types.clippath_content ],
+             [> Svg_types.clippath ])
+            star
+          val filter :
+            ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
+             [> Svg_types.filter ])
+            star
+          val feDistantLight :
+            ([< Svg_types.fedistantlight_attr ],
+             [< Svg_types.fedistantlight_content ],
+             [> Svg_types.fedistantlight ])
+            star
+          val fePointLight :
+            ([< Svg_types.fepointlight_attr ],
+             [< Svg_types.fepointlight_content ],
+             [> Svg_types.fepointlight ])
+            star
+          val feSpotLight :
+            ([< Svg_types.fespotlight_attr ],
+             [< Svg_types.fespotlight_content ], [> Svg_types.fespotlight ])
+            star
+          val feBlend :
+            ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
+             [> Svg_types.feblend ])
+            star
+          val feColorMatrix :
+            ([< Svg_types.fecolormatrix_attr ],
+             [< Svg_types.fecolormatrix_content ],
+             [> Svg_types.fecolormatrix ])
+            star
+          val feComponentTransfer :
+            ([< Svg_types.fecomponenttransfer_attr ],
+             [< Svg_types.fecomponenttransfer_content ],
+             [> Svg_types.fecomponenttransfer ])
+            star
+          val feFuncA :
+            ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
+             [> Svg_types.fefunca ])
+            star
+          val feFuncG :
+            ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
+             [> Svg_types.fefuncg ])
+            star
+          val feFuncB :
+            ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
+             [> Svg_types.fefuncb ])
+            star
+          val feFuncR :
+            ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
+             [> Svg_types.fefuncr ])
+            star
+          val feComposite :
+            ([< Svg_types.fecomposite_attr ],
+             [< Svg_types.fecomposite_content ], [> Svg_types.fecomposite ])
+            star
+          val feConvolveMatrix :
+            ([< Svg_types.feconvolvematrix_attr ],
+             [< Svg_types.feconvolvematrix_content ],
+             [> Svg_types.feconvolvematrix ])
+            star
+          val feDiffuseLighting :
+            ([< Svg_types.fediffuselighting_attr ],
+             [< Svg_types.fediffuselighting_content ],
+             [> Svg_types.fediffuselighting ])
+            star
+          val feDisplacementMap :
+            ([< Svg_types.fedisplacementmap_attr ],
+             [< Svg_types.fedisplacementmap_content ],
+             [> Svg_types.fedisplacementmap ])
+            star
+          val feFlood :
+            ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
+             [> Svg_types.feflood ])
+            star
+          val feGaussianBlur :
+            ([< Svg_types.fegaussianblur_attr ],
+             [< Svg_types.fegaussianblur_content ],
+             [> Svg_types.fegaussianblur ])
+            star
+          val feImage :
+            ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
+             [> Svg_types.feimage ])
+            star
+          val feMerge :
+            ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
+             [> Svg_types.femerge ])
+            star
+          val feMorphology :
+            ([< Svg_types.femorphology_attr ],
+             [< Svg_types.femorphology_content ],
+             [> Svg_types.femorphology ])
+            star
+          val feOffset :
+            ([< Svg_types.feoffset_attr ], [< Svg_types.feoffset_content ],
+             [> Svg_types.feoffset ])
+            star
+          val feSpecularLighting :
+            ([< Svg_types.fespecularlighting_attr ],
+             [< Svg_types.fespecularlighting_content ],
+             [> Svg_types.fespecularlighting ])
+            star
+          val feTile :
+            ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
+             [> Svg_types.fetile ])
+            star
+          val feTurbulence :
+            ([< Svg_types.feturbulence_attr ],
+             [< Svg_types.feturbulence_content ],
+             [> Svg_types.feturbulence ])
+            star
+          val cursor :
+            ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
+             [> Svg_types.cursor ])
+            star
+          val a :
+            ([< Svg_types.a_attr ], [< Svg_types.a_content ],
+             [> Svg_types.a ])
+            star
+          val view :
+            ([< Svg_types.view_attr ], [< Svg_types.view_content ],
+             [> Svg_types.view ])
+            star
+          val script :
+            ([< Svg_types.script_attr ], [< Svg_types.script_content ],
+             [> Svg_types.script ])
+            unary
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
+          val set :
+            ([< Svg_types.set_attr ], [< Svg_types.set_content ],
+             [> Svg_types.set ])
+            star
+          val animateMotion :
+            ([< Svg_types.animatemotion_attr ],
+             [< Svg_types.animatemotion_content ],
+             [> Svg_types.animatemotion ])
+            star
+          val mpath :
+            ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
+             [> Svg_types.mpath ])
+            star
+          val animateColor :
+            ([< Svg_types.animatecolor_attr ],
+             [< Svg_types.animatecolor_content ],
+             [> Svg_types.animatecolor ])
+            star
+          val animateTransform :
+            ([< Svg_types.animatetransform_attr ],
+             [< Svg_types.animatetransform_content ],
+             [> Svg_types.animatetransform ])
+            star
+          val font :
+            ([< Svg_types.font_attr ], [< Svg_types.font_content ],
+             [> Svg_types.font ])
+            star
+          val glyph :
+            ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
+             [> Svg_types.glyph ])
+            star
+          val missing_glyph :
+            ([< Svg_types.missingglyph_attr ],
+             [< Svg_types.missingglyph_content ],
+             [> Svg_types.missingglyph ])
+            star
+          val hkern :
+            ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
+          val vkern :
+            ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
+          val font_face :
+            ([< Svg_types.font_face_attr ], [> Svg_types.font_face ]) nullary
+          val font_face_src :
+            ([< Svg_types.font_face_src_attr ],
+             [< Svg_types.font_face_src_content ],
+             [> Svg_types.font_face_src ])
+            star
+          val font_face_uri :
+            ([< Svg_types.font_face_uri_attr ],
+             [< Svg_types.font_face_uri_content ],
+             [> Svg_types.font_face_uri ])
+            star
+          val font_face_format :
+            ([< Svg_types.font_face_format_attr ],
+             [> Svg_types.font_face_format ])
+            nullary
+          val font_face_name :
+            ([< Svg_types.font_face_name_attr ],
+             [> Svg_types.font_face_name ])
+            nullary
+          val metadata :
+            ?a:Svg_types.metadata_attr attrib list ->
+            Xml.elt list_wrap -> [> Svg_types.metadata ] elt
+          val foreignObject :
+            ?a:Svg_types.foreignobject_attr attrib list ->
+            Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+          val pcdata : string wrap -> [> Svg_types.txt ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
+            star
+          val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+          val tot : Xml.elt -> 'a elt
+          val totl : Xml.elt list_wrap -> 'a elt list_wrap
+          val toelt : 'a elt -> Xml.elt
+          val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+          val doc_toelt : doc -> Xml.elt
+          val to_xmlattribs : 'a attrib list -> Xml.attrib list
+          val to_attrib : Xml.attrib -> 'a attrib
+          module Unsafe :
+            sig
+              val data : string wrap -> 'a elt
+              val node :
+                string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+              val coerce_elt : 'a elt -> 'b elt
+              val string_attrib : string -> string wrap -> 'a attrib
+              val float_attrib : string -> float wrap -> 'a attrib
+              val int_attrib : string -> int wrap -> 'a attrib
+              val uri_attrib : string -> uri wrap -> 'a attrib
+              val space_sep_attrib : string -> string list wrap -> 'a attrib
+              val comma_sep_attrib : string -> string list wrap -> 'a attrib
+            end
+        end
+      module D :
+        sig
+          module Raw' :
+            sig
+              type 'a elt = 'a elt
+              type doc = [ `Svg ] elt
+              type 'a attrib = 'a attrib
+              module Xml :
+                sig
+                  module W :
+                    sig
+                      type 'a t = 'a Xml.W.t
+                      val return : 'a -> 'a t
+                      type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                      val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                      type 'a tlist = 'a Xml.W.tlist
+                      val nil : unit -> 'a tlist
+                      val singleton : 'a t -> 'a tlist
+                      val cons : 'a t -> 'a tlist -> 'a tlist
+                      val append : 'a tlist -> 'a tlist -> 'a tlist
+                      val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                    end
+                  type 'a wrap = 'a W.t
+                  type 'a list_wrap = 'a W.tlist
+                  type uri = Xml.uri
+                  val string_of_uri : (uri, string) W.ft
+                  val uri_of_string : (string, uri) W.ft
+                  type aname = string
+                  type event_handler = Xml.event_handler
+                  type mouse_event_handler = Xml.mouse_event_handler
+                  type keyboard_event_handler = Xml.keyboard_event_handler
+                  type touch_event_handler = Xml.touch_event_handler
+                  type attrib = Xml.attrib
+                  val float_attrib : aname -> float wrap -> attrib
+                  val int_attrib : aname -> int wrap -> attrib
+                  val string_attrib : aname -> string wrap -> attrib
+                  val space_sep_attrib : aname -> string list wrap -> attrib
+                  val comma_sep_attrib : aname -> string list wrap -> attrib
+                  val event_handler_attrib : aname -> event_handler -> attrib
+                  val mouse_event_handler_attrib :
+                    aname -> mouse_event_handler -> attrib
+                  val keyboard_event_handler_attrib :
+                    aname -> keyboard_event_handler -> attrib
+                  val touch_event_handler_attrib :
+                    aname -> touch_event_handler -> attrib
+                  val uri_attrib : aname -> uri wrap -> attrib
+                  val uris_attrib : aname -> uri list wrap -> attrib
+                  type elt = Xml.elt
+                  type ename = string
+                  val empty : unit -> elt
+                  val comment : string -> elt
+                  val pcdata : string wrap -> elt
+                  val encodedpcdata : string wrap -> elt
+                  val entity : string -> elt
+                  val leaf : ?a:attrib list -> ename -> elt
+                  val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+                  val cdata : string -> elt
+                  val cdata_script : string -> elt
+                  val cdata_style : string -> elt
+                end
+              type 'a wrap = 'a Xml.W.t
+              type 'a list_wrap = 'a Xml.W.tlist
+              type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+              type ('a, 'b, 'c) unary =
+                  ?a:'a attrib list -> 'b elt wrap -> 'c elt
+              type ('a, 'b, 'c) star =
+                  ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              module Info : Xml_sigs.Info
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) Xml.W.ft
+              val uri_of_string : (string, uri) Xml.W.ft
+              val a_version : string wrap -> [> `Version ] attrib
+              val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+              val a_x : Svg_types.coord wrap -> [> `X ] attrib
+              val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+              val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+              val a_height :
+                Svg_types.Unit.length wrap -> [> `Height ] attrib
+              val a_preserveAspectRatio :
+                string wrap -> [> `PreserveAspectRatio ] attrib
+              val a_contentScriptType :
+                string wrap -> [> `ContentScriptType ] attrib
+              val a_contentStyleType :
+                string wrap -> [> `ContentStyleType ] attrib
+              val a_zoomAndPan :
+                [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+              val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+              val a_xlink_href :
+                Svg_types.iri wrap -> [> `Xlink_href ] attrib
+              val a_requiredFeatures :
+                Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+              val a_requiredExtensions :
+                Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+              val a_systemLanguage :
+                Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+              val a_externalRessourcesRequired :
+                bool wrap -> [> `ExternalRessourcesRequired ] attrib
+              val a_id : string wrap -> [> `Id ] attrib
+              val a_user_data :
+                string -> string wrap -> [> `User_data ] attrib
+              val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+              val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+              val a_xml_space :
+                [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+              val a_type : string wrap -> [> `Type ] attrib
+              val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+              val a_xlink_title : string wrap -> [> `Title ] attrib
+              val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+              val a_style : string wrap -> [> `Style ] attrib
+              val a_transform :
+                Svg_types.transforms wrap -> [> `Transform ] attrib
+              val a_viewBox :
+                Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+              val a_d : string wrap -> [> `D ] attrib
+              val a_pathLength : float wrap -> [> `PathLength ] attrib
+              val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+              val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+              val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+              val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+              val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+              val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+              val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+              val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+              val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+              val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+              val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+              val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+              val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+              val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+              val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+              val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+              val a_lengthAdjust :
+                [< `Spacing | `SpacingAndGlyphs ] wrap ->
+                [> `LengthAdjust ] attrib
+              val a_textLength :
+                Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+              val a_text_anchor :
+                [< `End | `Inherit | `Middle | `Start ] wrap ->
+                [> `Text_Anchor ] attrib
+              val a_text_decoration :
+                [< `Blink
+                 | `Inherit
+                 | `Line_through
+                 | `None
+                 | `Overline
+                 | `Underline ]
+                wrap -> [> `Text_Decoration ] attrib
+              val a_text_rendering :
+                [< `Auto
+                 | `GeometricPrecision
+                 | `Inherit
+                 | `OptimizeLegibility
+                 | `OptimizeSpeed ]
+                wrap -> [> `Text_Rendering ] attrib
+              val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+              val a_startOffset :
+                Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+              val a_method :
+                [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+              val a_spacing :
+                [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+              val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+              val a_format : string wrap -> [> `Format ] attrib
+              val a_markerUnits :
+                [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
+                [> `MarkerUnits ] attrib
+              val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+              val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+              val a_markerWidth :
+                Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+              val a_markerHeight :
+                Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+              val a_orient :
+                Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+              val a_local : string wrap -> [> `Local ] attrib
+              val a_rendering_intent :
+                [< `Absolute_colorimetric
+                 | `Auto
+                 | `Perceptual
+                 | `Relative_colorimetric
+                 | `Saturation ]
+                wrap -> [> `Rendering_Indent ] attrib
+              val a_gradientUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [ `GradientUnits ] attrib
+              val a_gradientTransform :
+                Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+              val a_spreadMethod :
+                [< `Pad | `Reflect | `Repeat ] wrap ->
+                [> `SpreadMethod ] attrib
+              val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+              val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+              val a_offset :
+                [< `Number of Svg_types.number
+                 | `Percentage of Svg_types.percentage ]
+                wrap -> [> `Offset ] attrib
+              val a_patternUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PatternUnits ] attrib
+              val a_patternContentUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PatternContentUnits ] attrib
+              val a_patternTransform :
+                Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+              val a_clipPathUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `ClipPathUnits ] attrib
+              val a_maskUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `MaskUnits ] attrib
+              val a_maskContentUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `MaskContentUnits ] attrib
+              val a_primitiveUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PrimitiveUnits ] attrib
+              val a_filterRes :
+                Svg_types.number_optional_number wrap ->
+                [> `FilterResUnits ] attrib
+              val a_result : string wrap -> [> `Result ] attrib
+              val a_in :
+                [< `BackgroundAlpha
+                 | `BackgroundImage
+                 | `FillPaint
+                 | `Ref of string
+                 | `SourceAlpha
+                 | `SourceGraphic
+                 | `StrokePaint ]
+                wrap -> [> `In ] attrib
+              val a_in2 :
+                [< `BackgroundAlpha
+                 | `BackgroundImage
+                 | `FillPaint
+                 | `Ref of string
+                 | `SourceAlpha
+                 | `SourceGraphic
+                 | `StrokePaint ]
+                wrap -> [> `In2 ] attrib
+              val a_azimuth : float wrap -> [> `Azimuth ] attrib
+              val a_elevation : float wrap -> [> `Elevation ] attrib
+              val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
+              val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
+              val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
+              val a_specularExponent :
+                float wrap -> [> `SpecularExponent ] attrib
+              val a_specularConstant :
+                float wrap -> [> `SpecularConstant ] attrib
+              val a_limitingConeAngle :
+                float wrap -> [> `LimitingConeAngle ] attrib
+              val a_mode :
+                [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
+                [> `Mode ] attrib
+              val a_feColorMatrix_type :
+                [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ]
+                wrap -> [> `Typefecolor ] attrib
+              val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
+              val a_transfer_type :
+                [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
+                [> `Type_transfert ] attrib
+              val a_tableValues :
+                Svg_types.numbers wrap -> [> `TableValues ] attrib
+              val a_intercept :
+                Svg_types.number wrap -> [> `Intercept ] attrib
+              val a_amplitude :
+                Svg_types.number wrap -> [> `Amplitude ] attrib
+              val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
+              val a_transfer_offset :
+                Svg_types.number wrap -> [> `Offset_transfer ] attrib
+              val a_feComposite_operator :
+                [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
+                [> `OperatorComposite ] attrib
+              val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
+              val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
+              val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
+              val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
+              val a_order :
+                Svg_types.number_optional_number wrap -> [> `Order ] attrib
+              val a_kernelMatrix :
+                Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
+              val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
+              val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
+              val a_kernelUnitLength :
+                Svg_types.number_optional_number wrap ->
+                [> `KernelUnitLength ] attrib
+              val a_targetX : int wrap -> [> `TargetX ] attrib
+              val a_targetY : int wrap -> [> `TargetY ] attrib
+              val a_edgeMode :
+                [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
+              val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
+              val a_surfaceScale :
+                Svg_types.number wrap -> [> `SurfaceScale ] attrib
+              val a_diffuseConstant :
+                Svg_types.number wrap -> [> `DiffuseConstant ] attrib
+              val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
+              val a_xChannelSelector :
+                [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
+              val a_yChannelSelector :
+                [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
+              val a_stdDeviation :
+                Svg_types.number_optional_number wrap ->
+                [> `StdDeviation ] attrib
+              val a_feMorphology_operator :
+                [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
+              val a_radius :
+                Svg_types.number_optional_number wrap -> [> `Radius ] attrib
+              val a_baseFrenquency :
+                Svg_types.number_optional_number wrap ->
+                [> `BaseFrequency ] attrib
+              val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
+              val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
+              val a_stitchTiles :
+                [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
+              val a_feTurbulence_type :
+                [< `FractalNoise | `Turbulence ] wrap ->
+                [> `TypeStitch ] attrib
+              val a_xlink_show :
+                [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
+              val a_xlink_actuate :
+                [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
+                [> `Xlink_actuate ] attrib
+              val a_target : string wrap -> [> `Xlink_target ] attrib
+              val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
+              val a_attributeName : string wrap -> [> `AttributeName ] attrib
+              val a_attributeType :
+                [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
+              val a_begin : string wrap -> [> `Begin ] attrib
+              val a_dur : string wrap -> [> `Dur ] attrib
+              val a_min : string wrap -> [> `Min ] attrib
+              val a_max : string wrap -> [> `Max ] attrib
+              val a_restart :
+                [< `Always | `Never | `WhenNotActive ] wrap ->
+                [> `Restart ] attrib
+              val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
+              val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
+              val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
+              val a_animation_fill :
+                [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+              val a_fill_rule :
+                Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
+              val a_calcMode :
+                [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
+                [> `CalcMode ] attrib
+              val a_animation_values :
+                Svg_types.strings wrap -> [> `Valuesanim ] attrib
+              val a_keyTimes :
+                Svg_types.strings wrap -> [> `KeyTimes ] attrib
+              val a_keySplines :
+                Svg_types.strings wrap -> [> `KeySplines ] attrib
+              val a_from : string wrap -> [> `From ] attrib
+              val a_to : string wrap -> [> `To ] attrib
+              val a_by : string wrap -> [> `By ] attrib
+              val a_additive :
+                [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
+              val a_accumulate :
+                [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
+              val a_keyPoints :
+                Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
+              val a_path : string wrap -> [> `Path ] attrib
+              val a_animateTransform_type :
+                [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
+                [ `Typeanimatetransform ] attrib
+              val a_horiz_origin_x :
+                Svg_types.number wrap -> [> `HorizOriginX ] attrib
+              val a_horiz_origin_y :
+                Svg_types.number wrap -> [> `HorizOriginY ] attrib
+              val a_horiz_adv_x :
+                Svg_types.number wrap -> [> `HorizAdvX ] attrib
+              val a_vert_origin_x :
+                Svg_types.number wrap -> [> `VertOriginX ] attrib
+              val a_vert_origin_y :
+                Svg_types.number wrap -> [> `VertOriginY ] attrib
+              val a_vert_adv_y :
+                Svg_types.number wrap -> [> `VertAdvY ] attrib
+              val a_unicode : string wrap -> [> `Unicode ] attrib
+              val a_glyph_name : string wrap -> [> `glyphname ] attrib
+              val a_orientation :
+                [< `H | `V ] wrap -> [> `Orientation ] attrib
+              val a_arabic_form :
+                [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
+                [> `Arabicform ] attrib
+              val a_lang : string wrap -> [> `Lang ] attrib
+              val a_u1 : string wrap -> [> `U1 ] attrib
+              val a_u2 : string wrap -> [> `U2 ] attrib
+              val a_g1 : string wrap -> [> `G1 ] attrib
+              val a_g2 : string wrap -> [> `G2 ] attrib
+              val a_k : string wrap -> [> `K ] attrib
+              val a_font_family : string wrap -> [> `Font_Family ] attrib
+              val a_font_style : string wrap -> [> `Font_Style ] attrib
+              val a_font_variant : string wrap -> [> `Font_Variant ] attrib
+              val a_font_weight : string wrap -> [> `Font_Weight ] attrib
+              val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
+              val a_font_size : string wrap -> [> `Font_Size ] attrib
+              val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
+              val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
+              val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
+              val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
+              val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
+              val a_cap_height :
+                Svg_types.number wrap -> [> `CapHeight ] attrib
+              val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
+              val a_accent_height :
+                Svg_types.number wrap -> [> `AccentHeight ] attrib
+              val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
+              val a_widths : string wrap -> [> `Widths ] attrib
+              val a_bbox : string wrap -> [> `Bbox ] attrib
+              val a_ideographic :
+                Svg_types.number wrap -> [> `Ideographic ] attrib
+              val a_alphabetic :
+                Svg_types.number wrap -> [> `Alphabetic ] attrib
+              val a_mathematical :
+                Svg_types.number wrap -> [> `Mathematical ] attrib
+              val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
+              val a_videographic :
+                Svg_types.number wrap -> [> `VIdeographic ] attrib
+              val a_v_alphabetic :
+                Svg_types.number wrap -> [> `VAlphabetic ] attrib
+              val a_v_mathematical :
+                Svg_types.number wrap -> [> `VMathematical ] attrib
+              val a_v_hanging :
+                Svg_types.number wrap -> [> `VHanging ] attrib
+              val a_underline_position :
+                Svg_types.number wrap -> [> `UnderlinePosition ] attrib
+              val a_underline_thickness :
+                Svg_types.number wrap -> [> `UnderlineThickness ] attrib
+              val a_strikethrough_position :
+                Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
+              val a_strikethrough_thickness :
+                Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
+              val a_overline_position :
+                Svg_types.number wrap -> [> `OverlinePosition ] attrib
+              val a_overline_thickness :
+                Svg_types.number wrap -> [> `OverlineThickness ] attrib
+              val a_string : string wrap -> [> `String ] attrib
+              val a_name : string wrap -> [> `Name ] attrib
+              val a_alignment_baseline :
+                [< `After_edge
+                 | `Alphabetic
+                 | `Auto
+                 | `Baseline
+                 | `Before_edge
+                 | `Central
+                 | `Hanging
+                 | `Ideographic
+                 | `Inherit
+                 | `Mathematical
+                 | `Middle
+                 | `Text_after_edge
+                 | `Text_before_edge ]
+                wrap -> [> `Alignment_Baseline ] attrib
+              val a_dominant_baseline :
+                [< `Alphabetic
+                 | `Auto
+                 | `Central
+                 | `Hanging
+                 | `Ideographic
+                 | `Inherit
+                 | `Mathematical
+                 | `Middle
+                 | `No_change
+                 | `Reset_size
+                 | `Text_after_edge
+                 | `Text_before_edge
+                 | `Use_script ]
+                wrap -> [> `Dominant_Baseline ] attrib
+              val a_stop_color :
+                Svg_types.color wrap -> [> `Stop_Color ] attrib
+              val a_stop_opacity :
+                Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+              val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+              val a_stroke_width :
+                Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+              val a_stroke_linecap :
+                [< `Butt | `Round | `Square ] wrap ->
+                [> `Stroke_Linecap ] attrib
+              val a_stroke_linejoin :
+                [< `Bever | `Miter | `Round ] wrap ->
+                [> `Stroke_Linejoin ] attrib
+              val a_stroke_miterlimit :
+                float wrap -> [> `Stroke_Miterlimit ] attrib
+              val a_stroke_dasharray :
+                Svg_types.Unit.length list wrap ->
+                [> `Stroke_Dasharray ] attrib
+              val a_stroke_dashoffset :
+                Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+              val a_stroke_opacity :
+                float wrap -> [> `Stroke_Opacity ] attrib
+              val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+              val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
+              val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
+              val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
+              val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+              val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
+              val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
+              val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+              val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
+              val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+              val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+              val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+              val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
+              val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+              val a_onmousedown :
+                Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+              val a_onmouseup :
+                Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+              val a_onmouseover :
+                Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+              val a_onmouseout :
+                Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+              val a_onmousemove :
+                Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+              val a_ontouchstart :
+                Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+              val a_ontouchend :
+                Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+              val a_ontouchmove :
+                Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+              val a_ontouchcancel :
+                Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+              val txt : string wrap -> [> Svg_types.txt ] elt
+              val svg :
+                ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
+                 [> Svg_types.svg ])
+                star
+              val g :
+                ([< Svg_types.g_attr ], [< Svg_types.g_content ],
+                 [> Svg_types.g ])
+                star
+              val defs :
+                ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
+                 [> Svg_types.defs ])
+                star
+              val desc :
+                ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
+                 [> Svg_types.desc ])
+                unary
               val title :
-                (Html_types.title_attrib, [< Html_types.title_content_fun ],
-                 [> Html_types.title ])
+                ([< Svg_types.title_attr ], [< Svg_types.title_content ],
+                 [> Svg_types.title ])
+                unary
+              val symbol :
+                ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
+                 [> Svg_types.symbol ])
+                star
+              val use :
+                ([< Svg_types.use_attr ], [< Svg_types.use_content ],
+                 [> Svg_types.use ])
+                star
+              val image :
+                ([< Svg_types.image_attr ], [< Svg_types.image_content ],
+                 [> Svg_types.image ])
+                star
+              val switch :
+                ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
+                 [> Svg_types.switch ])
+                star
+              val style :
+                ([< Svg_types.style_attr ], [< Svg_types.style_content ],
+                 [> Svg_types.style ])
+                unary
+              val path :
+                ([< Svg_types.path_attr ], [< Svg_types.path_content ],
+                 [> Svg_types.path ])
+                star
+              val rect :
+                ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
+                 [> Svg_types.rect ])
+                star
+              val circle :
+                ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
+                 [> Svg_types.circle ])
+                star
+              val ellipse :
+                ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
+                 [> Svg_types.ellipse ])
+                star
+              val line :
+                ([< Svg_types.line_attr ], [< Svg_types.line_content ],
+                 [> Svg_types.line ])
+                star
+              val polyline :
+                ([< Svg_types.polyline_attr ],
+                 [< Svg_types.polyline_content ], [> Svg_types.polyline ])
+                star
+              val polygon :
+                ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
+                 [> Svg_types.polygon ])
+                star
+              val text :
+                ([< Svg_types.text_attr ], [< Svg_types.text_content ],
+                 [> Svg_types.text ])
+                star
+              val tspan :
+                ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
+                 [> Svg_types.tspan ])
+                star
+              val tref :
+                ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
+                 [> Svg_types.tref ])
+                star
+              val textPath :
+                ([< Svg_types.textpath_attr ],
+                 [< Svg_types.textpath_content ], [> Svg_types.textpath ])
+                star
+              val altGlyph :
+                ([< Svg_types.altglyph_attr ],
+                 [< Svg_types.altglyph_content ], [> Svg_types.altglyph ])
+                unary
+              type altglyphdef_content =
+                  [ `Item of Svg_types.altglyphitem elt list
+                  | `Ref of Svg_types.glyphref elt list ]
+              val altGlyphDef :
+                ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
+                 [> Svg_types.altglyphdef ])
+                unary
+              val altGlyphItem :
+                ([< Svg_types.altglyphitem_attr ],
+                 [< Svg_types.altglyphitem_content ],
+                 [> Svg_types.altglyphitem ])
+                star
+              val glyphRef :
+                ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ])
+                nullary
+              val marker :
+                ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
+                 [> Svg_types.marker ])
+                star
+              val color_profile :
+                ([< Svg_types.colorprofile_attr ],
+                 [< Svg_types.colorprofile_content ],
+                 [> Svg_types.colorprofile ])
+                star
+              val linearGradient :
+                ([< Svg_types.lineargradient_attr ],
+                 [< Svg_types.lineargradient_content ],
+                 [> Svg_types.lineargradient ])
+                star
+              val radialGradient :
+                ([< Svg_types.radialgradient_attr ],
+                 [< Svg_types.radialgradient_content ],
+                 [> Svg_types.radialgradient ])
+                star
+              val stop :
+                ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
+                 [> Svg_types.stop ])
+                star
+              val pattern :
+                ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
+                 [> Svg_types.pattern ])
+                star
+              val clipPath :
+                ([< Svg_types.clippath_attr ],
+                 [< Svg_types.clippath_content ], [> Svg_types.clippath ])
+                star
+              val filter :
+                ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
+                 [> Svg_types.filter ])
+                star
+              val feDistantLight :
+                ([< Svg_types.fedistantlight_attr ],
+                 [< Svg_types.fedistantlight_content ],
+                 [> Svg_types.fedistantlight ])
+                star
+              val fePointLight :
+                ([< Svg_types.fepointlight_attr ],
+                 [< Svg_types.fepointlight_content ],
+                 [> Svg_types.fepointlight ])
+                star
+              val feSpotLight :
+                ([< Svg_types.fespotlight_attr ],
+                 [< Svg_types.fespotlight_content ],
+                 [> Svg_types.fespotlight ])
+                star
+              val feBlend :
+                ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
+                 [> Svg_types.feblend ])
+                star
+              val feColorMatrix :
+                ([< Svg_types.fecolormatrix_attr ],
+                 [< Svg_types.fecolormatrix_content ],
+                 [> Svg_types.fecolormatrix ])
+                star
+              val feComponentTransfer :
+                ([< Svg_types.fecomponenttransfer_attr ],
+                 [< Svg_types.fecomponenttransfer_content ],
+                 [> Svg_types.fecomponenttransfer ])
+                star
+              val feFuncA :
+                ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
+                 [> Svg_types.fefunca ])
+                star
+              val feFuncG :
+                ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
+                 [> Svg_types.fefuncg ])
+                star
+              val feFuncB :
+                ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
+                 [> Svg_types.fefuncb ])
+                star
+              val feFuncR :
+                ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
+                 [> Svg_types.fefuncr ])
+                star
+              val feComposite :
+                ([< Svg_types.fecomposite_attr ],
+                 [< Svg_types.fecomposite_content ],
+                 [> Svg_types.fecomposite ])
+                star
+              val feConvolveMatrix :
+                ([< Svg_types.feconvolvematrix_attr ],
+                 [< Svg_types.feconvolvematrix_content ],
+                 [> Svg_types.feconvolvematrix ])
+                star
+              val feDiffuseLighting :
+                ([< Svg_types.fediffuselighting_attr ],
+                 [< Svg_types.fediffuselighting_content ],
+                 [> Svg_types.fediffuselighting ])
+                star
+              val feDisplacementMap :
+                ([< Svg_types.fedisplacementmap_attr ],
+                 [< Svg_types.fedisplacementmap_content ],
+                 [> Svg_types.fedisplacementmap ])
+                star
+              val feFlood :
+                ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
+                 [> Svg_types.feflood ])
+                star
+              val feGaussianBlur :
+                ([< Svg_types.fegaussianblur_attr ],
+                 [< Svg_types.fegaussianblur_content ],
+                 [> Svg_types.fegaussianblur ])
+                star
+              val feImage :
+                ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
+                 [> Svg_types.feimage ])
+                star
+              val feMerge :
+                ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
+                 [> Svg_types.femerge ])
+                star
+              val feMorphology :
+                ([< Svg_types.femorphology_attr ],
+                 [< Svg_types.femorphology_content ],
+                 [> Svg_types.femorphology ])
+                star
+              val feOffset :
+                ([< Svg_types.feoffset_attr ],
+                 [< Svg_types.feoffset_content ], [> Svg_types.feoffset ])
+                star
+              val feSpecularLighting :
+                ([< Svg_types.fespecularlighting_attr ],
+                 [< Svg_types.fespecularlighting_content ],
+                 [> Svg_types.fespecularlighting ])
+                star
+              val feTile :
+                ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
+                 [> Svg_types.fetile ])
+                star
+              val feTurbulence :
+                ([< Svg_types.feturbulence_attr ],
+                 [< Svg_types.feturbulence_content ],
+                 [> Svg_types.feturbulence ])
+                star
+              val cursor :
+                ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
+                 [> Svg_types.cursor ])
+                star
+              val a :
+                ([< Svg_types.a_attr ], [< Svg_types.a_content ],
+                 [> Svg_types.a ])
+                star
+              val view :
+                ([< Svg_types.view_attr ], [< Svg_types.view_content ],
+                 [> Svg_types.view ])
+                star
+              val script :
+                ([< Svg_types.script_attr ], [< Svg_types.script_content ],
+                 [> Svg_types.script ])
                 unary
-              val body :
-                ([< Html_types.body_attrib ],
-                 [< Html_types.body_content_fun ], [> Html_types.body ])
+              val animate :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
+                star
+              val set :
+                ([< Svg_types.set_attr ], [< Svg_types.set_content ],
+                 [> Svg_types.set ])
+                star
+              val animateMotion :
+                ([< Svg_types.animatemotion_attr ],
+                 [< Svg_types.animatemotion_content ],
+                 [> Svg_types.animatemotion ])
+                star
+              val mpath :
+                ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
+                 [> Svg_types.mpath ])
+                star
+              val animateColor :
+                ([< Svg_types.animatecolor_attr ],
+                 [< Svg_types.animatecolor_content ],
+                 [> Svg_types.animatecolor ])
+                star
+              val animateTransform :
+                ([< Svg_types.animatetransform_attr ],
+                 [< Svg_types.animatetransform_content ],
+                 [> Svg_types.animatetransform ])
+                star
+              val font :
+                ([< Svg_types.font_attr ], [< Svg_types.font_content ],
+                 [> Svg_types.font ])
+                star
+              val glyph :
+                ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
+                 [> Svg_types.glyph ])
+                star
+              val missing_glyph :
+                ([< Svg_types.missingglyph_attr ],
+                 [< Svg_types.missingglyph_content ],
+                 [> Svg_types.missingglyph ])
+                star
+              val hkern :
+                ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
+              val vkern :
+                ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
+              val font_face :
+                ([< Svg_types.font_face_attr ], [> Svg_types.font_face ])
+                nullary
+              val font_face_src :
+                ([< Svg_types.font_face_src_attr ],
+                 [< Svg_types.font_face_src_content ],
+                 [> Svg_types.font_face_src ])
+                star
+              val font_face_uri :
+                ([< Svg_types.font_face_uri_attr ],
+                 [< Svg_types.font_face_uri_content ],
+                 [> Svg_types.font_face_uri ])
+                star
+              val font_face_format :
+                ([< Svg_types.font_face_format_attr ],
+                 [> Svg_types.font_face_format ])
+                nullary
+              val font_face_name :
+                ([< Svg_types.font_face_name_attr ],
+                 [> Svg_types.font_face_name ])
+                nullary
+              val metadata :
+                ?a:Svg_types.metadata_attr attrib list ->
+                Xml.elt list_wrap -> [> Svg_types.metadata ] elt
+              val foreignObject :
+                ?a:Svg_types.foreignobject_attr attrib list ->
+                Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+              val pcdata : string wrap -> [> Svg_types.txt ] elt
+              val animation :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
                 star
+              val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+              val tot : Xml.elt -> 'a elt
+              val totl : Xml.elt list_wrap -> 'a elt list_wrap
+              val toelt : 'a elt -> Xml.elt
+              val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+              val doc_toelt : doc -> Xml.elt
+              val to_xmlattribs : 'a attrib list -> Xml.attrib list
+              val to_attrib : Xml.attrib -> 'a attrib
+              module Unsafe :
+                sig
+                  val data : string wrap -> 'a elt
+                  val node :
+                    string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+                  val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+                  val coerce_elt : 'a elt -> 'b elt
+                  val string_attrib : string -> string wrap -> 'a attrib
+                  val float_attrib : string -> float wrap -> 'a attrib
+                  val int_attrib : string -> int wrap -> 'a attrib
+                  val uri_attrib : string -> uri wrap -> 'a attrib
+                  val space_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                  val comma_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                end
+            end
+          module Raw :
+            sig
+              type 'a elt = 'a elt
+              type doc = [ `Svg ] elt
+              type 'a attrib = 'a attrib
+              module Xml :
+                sig
+                  module W :
+                    sig
+                      type 'a t = 'a Xml.W.t
+                      val return : 'a -> 'a t
+                      type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                      val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                      type 'a tlist = 'a Xml.W.tlist
+                      val nil : unit -> 'a tlist
+                      val singleton : 'a t -> 'a tlist
+                      val cons : 'a t -> 'a tlist -> 'a tlist
+                      val append : 'a tlist -> 'a tlist -> 'a tlist
+                      val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                    end
+                  type 'a wrap = 'a W.t
+                  type 'a list_wrap = 'a W.tlist
+                  type uri = Xml.uri
+                  val string_of_uri : (uri, string) W.ft
+                  val uri_of_string : (string, uri) W.ft
+                  type aname = string
+                  type event_handler = Xml.event_handler
+                  type mouse_event_handler = Xml.mouse_event_handler
+                  type keyboard_event_handler = Xml.keyboard_event_handler
+                  type touch_event_handler = Xml.touch_event_handler
+                  type attrib = Xml.attrib
+                  val float_attrib : aname -> float wrap -> attrib
+                  val int_attrib : aname -> int wrap -> attrib
+                  val string_attrib : aname -> string wrap -> attrib
+                  val space_sep_attrib : aname -> string list wrap -> attrib
+                  val comma_sep_attrib : aname -> string list wrap -> attrib
+                  val event_handler_attrib : aname -> event_handler -> attrib
+                  val mouse_event_handler_attrib :
+                    aname -> mouse_event_handler -> attrib
+                  val keyboard_event_handler_attrib :
+                    aname -> keyboard_event_handler -> attrib
+                  val touch_event_handler_attrib :
+                    aname -> touch_event_handler -> attrib
+                  val uri_attrib : aname -> uri wrap -> attrib
+                  val uris_attrib : aname -> uri list wrap -> attrib
+                  type elt = Xml.elt
+                  type ename = string
+                  val empty : unit -> elt
+                  val comment : string -> elt
+                  val pcdata : string wrap -> elt
+                  val encodedpcdata : string wrap -> elt
+                  val entity : string -> elt
+                  val leaf : ?a:attrib list -> ename -> elt
+                  val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+                  val cdata : string -> elt
+                  val cdata_script : string -> elt
+                  val cdata_style : string -> elt
+                end
+              type 'a wrap = 'a Xml.W.t
+              type 'a list_wrap = 'a Xml.W.tlist
+              type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+              type ('a, 'b, 'c) unary =
+                  ?a:'a attrib list -> 'b elt wrap -> 'c elt
+              type ('a, 'b, 'c) star =
+                  ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              module Info : Xml_sigs.Info
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) Xml.W.ft
+              val uri_of_string : (string, uri) Xml.W.ft
+              val a_version : string wrap -> [> `Version ] attrib
+              val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+              val a_x : Svg_types.coord wrap -> [> `X ] attrib
+              val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+              val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+              val a_height :
+                Svg_types.Unit.length wrap -> [> `Height ] attrib
+              val a_preserveAspectRatio :
+                string wrap -> [> `PreserveAspectRatio ] attrib
+              val a_contentScriptType :
+                string wrap -> [> `ContentScriptType ] attrib
+              val a_contentStyleType :
+                string wrap -> [> `ContentStyleType ] attrib
+              val a_zoomAndPan :
+                [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+              val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+              val a_xlink_href :
+                Svg_types.iri wrap -> [> `Xlink_href ] attrib
+              val a_requiredFeatures :
+                Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+              val a_requiredExtensions :
+                Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+              val a_systemLanguage :
+                Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+              val a_externalRessourcesRequired :
+                bool wrap -> [> `ExternalRessourcesRequired ] attrib
+              val a_id : string wrap -> [> `Id ] attrib
+              val a_user_data :
+                string -> string wrap -> [> `User_data ] attrib
+              val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+              val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+              val a_xml_space :
+                [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+              val a_type : string wrap -> [> `Type ] attrib
+              val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+              val a_xlink_title : string wrap -> [> `Title ] attrib
+              val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+              val a_style : string wrap -> [> `Style ] attrib
+              val a_transform :
+                Svg_types.transforms wrap -> [> `Transform ] attrib
+              val a_viewBox :
+                Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+              val a_d : string wrap -> [> `D ] attrib
+              val a_pathLength : float wrap -> [> `PathLength ] attrib
+              val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+              val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+              val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+              val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+              val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+              val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+              val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+              val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+              val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+              val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+              val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+              val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+              val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+              val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+              val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+              val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+              val a_lengthAdjust :
+                [< `Spacing | `SpacingAndGlyphs ] wrap ->
+                [> `LengthAdjust ] attrib
+              val a_textLength :
+                Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+              val a_text_anchor :
+                [< `End | `Inherit | `Middle | `Start ] wrap ->
+                [> `Text_Anchor ] attrib
+              val a_text_decoration :
+                [< `Blink
+                 | `Inherit
+                 | `Line_through
+                 | `None
+                 | `Overline
+                 | `Underline ]
+                wrap -> [> `Text_Decoration ] attrib
+              val a_text_rendering :
+                [< `Auto
+                 | `GeometricPrecision
+                 | `Inherit
+                 | `OptimizeLegibility
+                 | `OptimizeSpeed ]
+                wrap -> [> `Text_Rendering ] attrib
+              val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+              val a_startOffset :
+                Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+              val a_method :
+                [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+              val a_spacing :
+                [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+              val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+              val a_format : string wrap -> [> `Format ] attrib
+              val a_markerUnits :
+                [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
+                [> `MarkerUnits ] attrib
+              val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+              val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+              val a_markerWidth :
+                Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+              val a_markerHeight :
+                Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+              val a_orient :
+                Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+              val a_local : string wrap -> [> `Local ] attrib
+              val a_rendering_intent :
+                [< `Absolute_colorimetric
+                 | `Auto
+                 | `Perceptual
+                 | `Relative_colorimetric
+                 | `Saturation ]
+                wrap -> [> `Rendering_Indent ] attrib
+              val a_gradientUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [ `GradientUnits ] attrib
+              val a_gradientTransform :
+                Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+              val a_spreadMethod :
+                [< `Pad | `Reflect | `Repeat ] wrap ->
+                [> `SpreadMethod ] attrib
+              val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+              val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+              val a_offset :
+                [< `Number of Svg_types.number
+                 | `Percentage of Svg_types.percentage ]
+                wrap -> [> `Offset ] attrib
+              val a_patternUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PatternUnits ] attrib
+              val a_patternContentUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PatternContentUnits ] attrib
+              val a_patternTransform :
+                Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+              val a_clipPathUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `ClipPathUnits ] attrib
+              val a_maskUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `MaskUnits ] attrib
+              val a_maskContentUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `MaskContentUnits ] attrib
+              val a_primitiveUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PrimitiveUnits ] attrib
+              val a_filterRes :
+                Svg_types.number_optional_number wrap ->
+                [> `FilterResUnits ] attrib
+              val a_result : string wrap -> [> `Result ] attrib
+              val a_in :
+                [< `BackgroundAlpha
+                 | `BackgroundImage
+                 | `FillPaint
+                 | `Ref of string
+                 | `SourceAlpha
+                 | `SourceGraphic
+                 | `StrokePaint ]
+                wrap -> [> `In ] attrib
+              val a_in2 :
+                [< `BackgroundAlpha
+                 | `BackgroundImage
+                 | `FillPaint
+                 | `Ref of string
+                 | `SourceAlpha
+                 | `SourceGraphic
+                 | `StrokePaint ]
+                wrap -> [> `In2 ] attrib
+              val a_azimuth : float wrap -> [> `Azimuth ] attrib
+              val a_elevation : float wrap -> [> `Elevation ] attrib
+              val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
+              val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
+              val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
+              val a_specularExponent :
+                float wrap -> [> `SpecularExponent ] attrib
+              val a_specularConstant :
+                float wrap -> [> `SpecularConstant ] attrib
+              val a_limitingConeAngle :
+                float wrap -> [> `LimitingConeAngle ] attrib
+              val a_mode :
+                [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
+                [> `Mode ] attrib
+              val a_feColorMatrix_type :
+                [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ]
+                wrap -> [> `Typefecolor ] attrib
+              val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
+              val a_transfer_type :
+                [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
+                [> `Type_transfert ] attrib
+              val a_tableValues :
+                Svg_types.numbers wrap -> [> `TableValues ] attrib
+              val a_intercept :
+                Svg_types.number wrap -> [> `Intercept ] attrib
+              val a_amplitude :
+                Svg_types.number wrap -> [> `Amplitude ] attrib
+              val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
+              val a_transfer_offset :
+                Svg_types.number wrap -> [> `Offset_transfer ] attrib
+              val a_feComposite_operator :
+                [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
+                [> `OperatorComposite ] attrib
+              val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
+              val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
+              val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
+              val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
+              val a_order :
+                Svg_types.number_optional_number wrap -> [> `Order ] attrib
+              val a_kernelMatrix :
+                Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
+              val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
+              val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
+              val a_kernelUnitLength :
+                Svg_types.number_optional_number wrap ->
+                [> `KernelUnitLength ] attrib
+              val a_targetX : int wrap -> [> `TargetX ] attrib
+              val a_targetY : int wrap -> [> `TargetY ] attrib
+              val a_edgeMode :
+                [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
+              val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
+              val a_surfaceScale :
+                Svg_types.number wrap -> [> `SurfaceScale ] attrib
+              val a_diffuseConstant :
+                Svg_types.number wrap -> [> `DiffuseConstant ] attrib
+              val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
+              val a_xChannelSelector :
+                [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
+              val a_yChannelSelector :
+                [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
+              val a_stdDeviation :
+                Svg_types.number_optional_number wrap ->
+                [> `StdDeviation ] attrib
+              val a_feMorphology_operator :
+                [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
+              val a_radius :
+                Svg_types.number_optional_number wrap -> [> `Radius ] attrib
+              val a_baseFrenquency :
+                Svg_types.number_optional_number wrap ->
+                [> `BaseFrequency ] attrib
+              val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
+              val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
+              val a_stitchTiles :
+                [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
+              val a_feTurbulence_type :
+                [< `FractalNoise | `Turbulence ] wrap ->
+                [> `TypeStitch ] attrib
+              val a_xlink_show :
+                [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
+              val a_xlink_actuate :
+                [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
+                [> `Xlink_actuate ] attrib
+              val a_target : string wrap -> [> `Xlink_target ] attrib
+              val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
+              val a_attributeName : string wrap -> [> `AttributeName ] attrib
+              val a_attributeType :
+                [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
+              val a_begin : string wrap -> [> `Begin ] attrib
+              val a_dur : string wrap -> [> `Dur ] attrib
+              val a_min : string wrap -> [> `Min ] attrib
+              val a_max : string wrap -> [> `Max ] attrib
+              val a_restart :
+                [< `Always | `Never | `WhenNotActive ] wrap ->
+                [> `Restart ] attrib
+              val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
+              val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
+              val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
+              val a_animation_fill :
+                [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+              val a_fill_rule :
+                Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
+              val a_calcMode :
+                [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
+                [> `CalcMode ] attrib
+              val a_animation_values :
+                Svg_types.strings wrap -> [> `Valuesanim ] attrib
+              val a_keyTimes :
+                Svg_types.strings wrap -> [> `KeyTimes ] attrib
+              val a_keySplines :
+                Svg_types.strings wrap -> [> `KeySplines ] attrib
+              val a_from : string wrap -> [> `From ] attrib
+              val a_to : string wrap -> [> `To ] attrib
+              val a_by : string wrap -> [> `By ] attrib
+              val a_additive :
+                [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
+              val a_accumulate :
+                [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
+              val a_keyPoints :
+                Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
+              val a_path : string wrap -> [> `Path ] attrib
+              val a_animateTransform_type :
+                [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
+                [ `Typeanimatetransform ] attrib
+              val a_horiz_origin_x :
+                Svg_types.number wrap -> [> `HorizOriginX ] attrib
+              val a_horiz_origin_y :
+                Svg_types.number wrap -> [> `HorizOriginY ] attrib
+              val a_horiz_adv_x :
+                Svg_types.number wrap -> [> `HorizAdvX ] attrib
+              val a_vert_origin_x :
+                Svg_types.number wrap -> [> `VertOriginX ] attrib
+              val a_vert_origin_y :
+                Svg_types.number wrap -> [> `VertOriginY ] attrib
+              val a_vert_adv_y :
+                Svg_types.number wrap -> [> `VertAdvY ] attrib
+              val a_unicode : string wrap -> [> `Unicode ] attrib
+              val a_glyph_name : string wrap -> [> `glyphname ] attrib
+              val a_orientation :
+                [< `H | `V ] wrap -> [> `Orientation ] attrib
+              val a_arabic_form :
+                [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
+                [> `Arabicform ] attrib
+              val a_lang : string wrap -> [> `Lang ] attrib
+              val a_u1 : string wrap -> [> `U1 ] attrib
+              val a_u2 : string wrap -> [> `U2 ] attrib
+              val a_g1 : string wrap -> [> `G1 ] attrib
+              val a_g2 : string wrap -> [> `G2 ] attrib
+              val a_k : string wrap -> [> `K ] attrib
+              val a_font_family : string wrap -> [> `Font_Family ] attrib
+              val a_font_style : string wrap -> [> `Font_Style ] attrib
+              val a_font_variant : string wrap -> [> `Font_Variant ] attrib
+              val a_font_weight : string wrap -> [> `Font_Weight ] attrib
+              val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
+              val a_font_size : string wrap -> [> `Font_Size ] attrib
+              val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
+              val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
+              val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
+              val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
+              val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
+              val a_cap_height :
+                Svg_types.number wrap -> [> `CapHeight ] attrib
+              val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
+              val a_accent_height :
+                Svg_types.number wrap -> [> `AccentHeight ] attrib
+              val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
+              val a_widths : string wrap -> [> `Widths ] attrib
+              val a_bbox : string wrap -> [> `Bbox ] attrib
+              val a_ideographic :
+                Svg_types.number wrap -> [> `Ideographic ] attrib
+              val a_alphabetic :
+                Svg_types.number wrap -> [> `Alphabetic ] attrib
+              val a_mathematical :
+                Svg_types.number wrap -> [> `Mathematical ] attrib
+              val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
+              val a_videographic :
+                Svg_types.number wrap -> [> `VIdeographic ] attrib
+              val a_v_alphabetic :
+                Svg_types.number wrap -> [> `VAlphabetic ] attrib
+              val a_v_mathematical :
+                Svg_types.number wrap -> [> `VMathematical ] attrib
+              val a_v_hanging :
+                Svg_types.number wrap -> [> `VHanging ] attrib
+              val a_underline_position :
+                Svg_types.number wrap -> [> `UnderlinePosition ] attrib
+              val a_underline_thickness :
+                Svg_types.number wrap -> [> `UnderlineThickness ] attrib
+              val a_strikethrough_position :
+                Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
+              val a_strikethrough_thickness :
+                Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
+              val a_overline_position :
+                Svg_types.number wrap -> [> `OverlinePosition ] attrib
+              val a_overline_thickness :
+                Svg_types.number wrap -> [> `OverlineThickness ] attrib
+              val a_string : string wrap -> [> `String ] attrib
+              val a_name : string wrap -> [> `Name ] attrib
+              val a_alignment_baseline :
+                [< `After_edge
+                 | `Alphabetic
+                 | `Auto
+                 | `Baseline
+                 | `Before_edge
+                 | `Central
+                 | `Hanging
+                 | `Ideographic
+                 | `Inherit
+                 | `Mathematical
+                 | `Middle
+                 | `Text_after_edge
+                 | `Text_before_edge ]
+                wrap -> [> `Alignment_Baseline ] attrib
+              val a_dominant_baseline :
+                [< `Alphabetic
+                 | `Auto
+                 | `Central
+                 | `Hanging
+                 | `Ideographic
+                 | `Inherit
+                 | `Mathematical
+                 | `Middle
+                 | `No_change
+                 | `Reset_size
+                 | `Text_after_edge
+                 | `Text_before_edge
+                 | `Use_script ]
+                wrap -> [> `Dominant_Baseline ] attrib
+              val a_stop_color :
+                Svg_types.color wrap -> [> `Stop_Color ] attrib
+              val a_stop_opacity :
+                Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+              val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+              val a_stroke_width :
+                Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+              val a_stroke_linecap :
+                [< `Butt | `Round | `Square ] wrap ->
+                [> `Stroke_Linecap ] attrib
+              val a_stroke_linejoin :
+                [< `Bever | `Miter | `Round ] wrap ->
+                [> `Stroke_Linejoin ] attrib
+              val a_stroke_miterlimit :
+                float wrap -> [> `Stroke_Miterlimit ] attrib
+              val a_stroke_dasharray :
+                Svg_types.Unit.length list wrap ->
+                [> `Stroke_Dasharray ] attrib
+              val a_stroke_dashoffset :
+                Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+              val a_stroke_opacity :
+                float wrap -> [> `Stroke_Opacity ] attrib
+              val txt : string wrap -> [> Svg_types.txt ] elt
               val svg :
-                ?a:[< Html_types.svg_attrib ] Svg.F.Raw.attrib list ->
-                [< Html_types.svg_content ] Svg.F.Raw.elt list_wrap ->
-                [> Html_types.svg ] elt
-              val footer :
-                ([< Html_types.footer_attrib ],
-                 [< Html_types.footer_content_fun ], [> Html_types.footer ])
-                star
-              val header :
-                ([< Html_types.header_attrib ],
-                 [< Html_types.header_content_fun ], [> Html_types.header ])
-                star
-              val section :
-                ([< Html_types.section_attrib ],
-                 [< Html_types.section_content_fun ],
-                 [> Html_types.section ])
-                star
-              val nav :
-                ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
-                 [> Html_types.nav ])
-                star
-              val h1 :
-                ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
-                 [> Html_types.h1 ])
-                star
-              val h2 :
-                ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
-                 [> Html_types.h2 ])
-                star
-              val h3 :
-                ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
-                 [> Html_types.h3 ])
-                star
-              val h4 :
-                ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
-                 [> Html_types.h4 ])
-                star
-              val h5 :
-                ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
-                 [> Html_types.h5 ])
-                star
-              val h6 :
-                ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
-                 [> Html_types.h6 ])
-                star
-              val hgroup :
-                ([< Html_types.hgroup_attrib ],
-                 [< Html_types.hgroup_content_fun ], [> Html_types.hgroup ])
-                star
-              val address :
-                ([< Html_types.address_attrib ],
-                 [< Html_types.address_content_fun ],
-                 [> Html_types.address ])
-                star
-              val article :
-                ([< Html_types.article_attrib ],
-                 [< Html_types.article_content_fun ],
-                 [> Html_types.article ])
-                star
-              val aside :
-                ([< Html_types.aside_attrib ],
-                 [< Html_types.aside_content_fun ], [> Html_types.aside ])
-                star
-              val main :
-                ([< Html_types.main_attrib ],
-                 [< Html_types.main_content_fun ], [> Html_types.main ])
-                star
-              val p :
-                ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
-                 [> Html_types.p ])
-                star
-              val pre :
-                ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
-                 [> Html_types.pre ])
-                star
-              val blockquote :
-                ([< Html_types.blockquote_attrib ],
-                 [< Html_types.blockquote_content_fun ],
-                 [> Html_types.blockquote ])
-                star
-              val div :
-                ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
-                 [> Html_types.div ])
-                star
-              val dl :
-                ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
-                 [> Html_types.dl ])
-                star
-              val ol :
-                ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
-                 [> Html_types.ol ])
-                star
-              val ul :
-                ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
-                 [> Html_types.ul ])
-                star
-              val dd :
-                ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
-                 [> Html_types.dd ])
-                star
-              val dt :
-                ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
-                 [> Html_types.dt ])
-                star
-              val li :
-                ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
-                 [> Html_types.li ])
-                star
-              val figcaption :
-                ([< Html_types.figcaption_attrib ],
-                 [< Html_types.figcaption_content_fun ],
-                 [> Html_types.figcaption ])
-                star
-              val figure :
-                ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
-                            | `Top of [< Html_types.figcaption ] elt wrap ] ->
-                ([< Html_types.figure_attrib ],
-                 [< Html_types.figure_content_fun ], [> Html_types.figure ])
+                ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
+                 [> Svg_types.svg ])
                 star
-              val hr :
-                ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
-              val b :
-                ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
-                 [> Html_types.b ])
+              val g :
+                ([< Svg_types.g_attr ], [< Svg_types.g_content ],
+                 [> Svg_types.g ])
                 star
-              val i :
-                ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
-                 [> Html_types.i ])
+              val defs :
+                ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
+                 [> Svg_types.defs ])
                 star
-              val u :
-                ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
-                 [> Html_types.u ])
+              val desc :
+                ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
+                 [> Svg_types.desc ])
+                unary
+              val title :
+                ([< Svg_types.title_attr ], [< Svg_types.title_content ],
+                 [> Svg_types.title ])
+                unary
+              val symbol :
+                ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
+                 [> Svg_types.symbol ])
                 star
-              val small :
-                ([< Html_types.small_attrib ],
-                 [< Html_types.small_content_fun ], [> Html_types.small ])
+              val use :
+                ([< Svg_types.use_attr ], [< Svg_types.use_content ],
+                 [> Svg_types.use ])
                 star
-              val sub :
-                ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
-                 [> Html_types.sub ])
+              val image :
+                ([< Svg_types.image_attr ], [< Svg_types.image_content ],
+                 [> Svg_types.image ])
                 star
-              val sup :
-                ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
-                 [> Html_types.sup ])
+              val switch :
+                ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
+                 [> Svg_types.switch ])
                 star
-              val mark :
-                ([< Html_types.mark_attrib ],
-                 [< Html_types.mark_content_fun ], [> Html_types.mark ])
+              val style :
+                ([< Svg_types.style_attr ], [< Svg_types.style_content ],
+                 [> Svg_types.style ])
+                unary
+              val path :
+                ([< Svg_types.path_attr ], [< Svg_types.path_content ],
+                 [> Svg_types.path ])
                 star
-              val wbr :
-                ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
-              val bdo :
-                dir:[< `Ltr | `Rtl ] wrap ->
-                ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
-                 [> Html_types.bdo ])
+              val rect :
+                ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
+                 [> Svg_types.rect ])
                 star
-              val abbr :
-                ([< Html_types.abbr_attrib ],
-                 [< Html_types.abbr_content_fun ], [> Html_types.abbr ])
+              val circle :
+                ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
+                 [> Svg_types.circle ])
                 star
-              val br :
-                ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
-              val cite :
-                ([< Html_types.cite_attrib ],
-                 [< Html_types.cite_content_fun ], [> Html_types.cite ])
+              val ellipse :
+                ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
+                 [> Svg_types.ellipse ])
                 star
-              val code :
-                ([< Html_types.code_attrib ],
-                 [< Html_types.code_content_fun ], [> Html_types.code ])
+              val line :
+                ([< Svg_types.line_attr ], [< Svg_types.line_content ],
+                 [> Svg_types.line ])
                 star
-              val dfn :
-                ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
-                 [> Html_types.dfn ])
+              val polyline :
+                ([< Svg_types.polyline_attr ],
+                 [< Svg_types.polyline_content ], [> Svg_types.polyline ])
                 star
-              val em :
-                ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
-                 [> Html_types.em ])
+              val polygon :
+                ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
+                 [> Svg_types.polygon ])
                 star
-              val kbd :
-                ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
-                 [> Html_types.kbd ])
+              val text :
+                ([< Svg_types.text_attr ], [< Svg_types.text_content ],
+                 [> Svg_types.text ])
                 star
-              val q :
-                ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
-                 [> Html_types.q ])
+              val tspan :
+                ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
+                 [> Svg_types.tspan ])
                 star
-              val samp :
-                ([< Html_types.samp_attrib ],
-                 [< Html_types.samp_content_fun ], [> Html_types.samp ])
+              val tref :
+                ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
+                 [> Svg_types.tref ])
                 star
-              val span :
-                ([< Html_types.span_attrib ],
-                 [< Html_types.span_content_fun ], [> Html_types.span ])
+              val textPath :
+                ([< Svg_types.textpath_attr ],
+                 [< Svg_types.textpath_content ], [> Svg_types.textpath ])
                 star
-              val strong :
-                ([< Html_types.strong_attrib ],
-                 [< Html_types.strong_content_fun ], [> Html_types.strong ])
+              val altGlyph :
+                ([< Svg_types.altglyph_attr ],
+                 [< Svg_types.altglyph_content ], [> Svg_types.altglyph ])
+                unary
+              type altglyphdef_content =
+                  [ `Item of Svg_types.altglyphitem elt list
+                  | `Ref of Svg_types.glyphref elt list ]
+              val altGlyphDef :
+                ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
+                 [> Svg_types.altglyphdef ])
+                unary
+              val altGlyphItem :
+                ([< Svg_types.altglyphitem_attr ],
+                 [< Svg_types.altglyphitem_content ],
+                 [> Svg_types.altglyphitem ])
                 star
-              val time :
-                ([< Html_types.time_attrib ],
-                 [< Html_types.time_content_fun ], [> Html_types.time ])
+              val glyphRef :
+                ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ])
+                nullary
+              val marker :
+                ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
+                 [> Svg_types.marker ])
                 star
-              val var :
-                ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
-                 [> Html_types.var ])
+              val color_profile :
+                ([< Svg_types.colorprofile_attr ],
+                 [< Svg_types.colorprofile_content ],
+                 [> Svg_types.colorprofile ])
                 star
-              val a :
-                ([< Html_types.a_attrib ], 'a, [> 'a Html_types.a ]) star
-              val del :
-                ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
-              val ins :
-                ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
-              val img :
-                src:Xml.uri wrap ->
-                alt:Html_types.text wrap ->
-                ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
-              val picture :
-                img:[< Html_types.img ] elt wrap ->
-                ([< Html_types.picture_attrib ],
-                 [< Html_types.picture_content_fun ],
-                 [> Html_types.picture ])
+              val linearGradient :
+                ([< Svg_types.lineargradient_attr ],
+                 [< Svg_types.lineargradient_content ],
+                 [> Svg_types.lineargradient ])
                 star
-              val iframe :
-                ([< Html_types.iframe_attrib ],
-                 [< Html_types.iframe_content_fun ], [> Html_types.iframe ])
+              val radialGradient :
+                ([< Svg_types.radialgradient_attr ],
+                 [< Svg_types.radialgradient_content ],
+                 [> Svg_types.radialgradient ])
                 star
-              val object_ :
-                ?params:[< Html_types.param ] elt list_wrap ->
-                ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
-              val param :
-                ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
-              val embed :
-                ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
-              val audio :
-                ?src:Xml.uri wrap ->
-                ?srcs:[< Html_types.source ] elt list_wrap ->
-                ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ])
+              val stop :
+                ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
+                 [> Svg_types.stop ])
                 star
-              val video :
-                ?src:Xml.uri wrap ->
-                ?srcs:[< Html_types.source ] elt list_wrap ->
-                ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ])
+              val pattern :
+                ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
+                 [> Svg_types.pattern ])
                 star
-              val canvas :
-                ([< Html_types.canvas_attrib ], 'a,
-                 [> 'a Html_types.canvas ])
+              val clipPath :
+                ([< Svg_types.clippath_attr ],
+                 [< Svg_types.clippath_content ], [> Svg_types.clippath ])
                 star
-              val source :
-                ([< Html_types.source_attrib ], [> Html_types.source ])
-                nullary
-              val area :
-                alt:Html_types.text wrap ->
-                ([< `Accesskey
-                  | `Alt
-                  | `Aria
-                  | `Class
-                  | `Contenteditable
-                  | `Contextmenu
-                  | `Coords
-                  | `Dir
-                  | `Draggable
-                  | `Hidden
-                  | `Hreflang
-                  | `Id
-                  | `Lang
-                  | `Media
-                  | `Mime_type
-                  | `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
-                  | `Rel
-                  | `Role
-                  | `Shape
-                  | `Spellcheck
-                  | `Style_Attr
-                  | `Tabindex
-                  | `Target
-                  | `Title
-                  | `Translate
-                  | `User_data
-                  | `XML_lang
-                  | `XMLns ],
-                 [> Html_types.area ])
-                nullary
-              val map :
-                ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
-              val caption :
-                ([< Html_types.caption_attrib ],
-                 [< Html_types.caption_content_fun ],
-                 [> Html_types.caption ])
+              val filter :
+                ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
+                 [> Svg_types.filter ])
                 star
-              val table :
-                ?caption:[< Html_types.caption ] elt wrap ->
-                ?columns:[< Html_types.colgroup ] elt list_wrap ->
-                ?thead:[< Html_types.thead ] elt wrap ->
-                ?tfoot:[< Html_types.tfoot ] elt wrap ->
-                ([< Html_types.table_attrib ],
-                 [< Html_types.table_content_fun ], [> Html_types.table ])
+              val feDistantLight :
+                ([< Svg_types.fedistantlight_attr ],
+                 [< Svg_types.fedistantlight_content ],
+                 [> Svg_types.fedistantlight ])
                 star
-              val tablex :
-                ?caption:[< Html_types.caption ] elt wrap ->
-                ?columns:[< Html_types.colgroup ] elt list_wrap ->
-                ?thead:[< Html_types.thead ] elt wrap ->
-                ?tfoot:[< Html_types.tfoot ] elt wrap ->
-                ([< Html_types.tablex_attrib ],
-                 [< Html_types.tablex_content_fun ], [> Html_types.tablex ])
+              val fePointLight :
+                ([< Svg_types.fepointlight_attr ],
+                 [< Svg_types.fepointlight_content ],
+                 [> Svg_types.fepointlight ])
                 star
-              val colgroup :
-                ([< Html_types.colgroup_attrib ],
-                 [< Html_types.colgroup_content_fun ],
-                 [> Html_types.colgroup ])
+              val feSpotLight :
+                ([< Svg_types.fespotlight_attr ],
+                 [< Svg_types.fespotlight_content ],
+                 [> Svg_types.fespotlight ])
                 star
-              val col :
-                ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
-              val thead :
-                ([< Html_types.thead_attrib ],
-                 [< Html_types.thead_content_fun ], [> Html_types.thead ])
+              val feBlend :
+                ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
+                 [> Svg_types.feblend ])
                 star
-              val tbody :
-                ([< Html_types.tbody_attrib ],
-                 [< Html_types.tbody_content_fun ], [> Html_types.tbody ])
+              val feColorMatrix :
+                ([< Svg_types.fecolormatrix_attr ],
+                 [< Svg_types.fecolormatrix_content ],
+                 [> Svg_types.fecolormatrix ])
                 star
-              val tfoot :
-                ([< Html_types.tfoot_attrib ],
-                 [< Html_types.tfoot_content_fun ], [> Html_types.tfoot ])
+              val feComponentTransfer :
+                ([< Svg_types.fecomponenttransfer_attr ],
+                 [< Svg_types.fecomponenttransfer_content ],
+                 [> Svg_types.fecomponenttransfer ])
                 star
-              val td :
-                ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
-                 [> Html_types.td ])
+              val feFuncA :
+                ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
+                 [> Svg_types.fefunca ])
                 star
-              val th :
-                ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
-                 [> Html_types.th ])
+              val feFuncG :
+                ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
+                 [> Svg_types.fefuncg ])
                 star
-              val tr :
-                ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
-                 [> Html_types.tr ])
+              val feFuncB :
+                ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
+                 [> Svg_types.fefuncb ])
                 star
-              val form :
-                ([< Html_types.form_attrib ],
-                 [< Html_types.form_content_fun ], [> Html_types.form ])
+              val feFuncR :
+                ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
+                 [> Svg_types.fefuncr ])
                 star
-              val fieldset :
-                ?legend:[< Html_types.legend ] elt wrap ->
-                ([< Html_types.fieldset_attrib ],
-                 [< Html_types.fieldset_content_fun ],
-                 [> Html_types.fieldset ])
+              val feComposite :
+                ([< Svg_types.fecomposite_attr ],
+                 [< Svg_types.fecomposite_content ],
+                 [> Svg_types.fecomposite ])
                 star
-              val legend :
-                ([< Html_types.legend_attrib ],
-                 [< Html_types.legend_content_fun ], [> Html_types.legend ])
+              val feConvolveMatrix :
+                ([< Svg_types.feconvolvematrix_attr ],
+                 [< Svg_types.feconvolvematrix_content ],
+                 [> Svg_types.feconvolvematrix ])
                 star
-              val label :
-                ([< Html_types.label_attrib ],
-                 [< Html_types.label_content_fun ], [> Html_types.label ])
+              val feDiffuseLighting :
+                ([< Svg_types.fediffuselighting_attr ],
+                 [< Svg_types.fediffuselighting_content ],
+                 [> Svg_types.fediffuselighting ])
                 star
-              val input :
-                ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
-              val button :
-                ([< Html_types.button_attrib ],
-                 [< Html_types.button_content_fun ], [> Html_types.button ])
+              val feDisplacementMap :
+                ([< Svg_types.fedisplacementmap_attr ],
+                 [< Svg_types.fedisplacementmap_content ],
+                 [> Svg_types.fedisplacementmap ])
                 star
-              val select :
-                ([< Html_types.select_attrib ],
-                 [< Html_types.select_content_fun ], [> Html_types.select ])
+              val feFlood :
+                ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
+                 [> Svg_types.feflood ])
                 star
-              val datalist :
-                ?children:[< `Options of
-                               [< Html_types.selectoption ] elt list_wrap
-                           | `Phras of [< Html_types.phrasing ] elt list_wrap
-                          ] ->
-                ([< Html_types.datalist_attrib ], [> Html_types.datalist ])
-                nullary
-              val optgroup :
-                label:Html_types.text wrap ->
-                ([< Html_types.optgroup_attrib ],
-                 [< Html_types.optgroup_content_fun ],
-                 [> Html_types.optgroup ])
+              val feGaussianBlur :
+                ([< Svg_types.fegaussianblur_attr ],
+                 [< Svg_types.fegaussianblur_content ],
+                 [> Svg_types.fegaussianblur ])
                 star
-              val option :
-                ([< Html_types.option_attrib ],
-                 [< Html_types.option_content_fun ],
-                 [> Html_types.selectoption ])
-                unary
-              val textarea :
-                ([< Html_types.textarea_attrib ],
-                 [< Html_types.textarea_content_fun ],
-                 [> Html_types.textarea ])
-                unary
-              val keygen :
-                ([< Html_types.keygen_attrib ], [> Html_types.keygen ])
-                nullary
-              val progress :
-                ([< Html_types.progress_attrib ],
-                 [< Html_types.progress_content_fun ],
-                 [> Html_types.progress ])
+              val feImage :
+                ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
+                 [> Svg_types.feimage ])
                 star
-              val meter :
-                ([< Html_types.meter_attrib ],
-                 [< Html_types.meter_content_fun ], [> Html_types.meter ])
+              val feMerge :
+                ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
+                 [> Svg_types.femerge ])
                 star
-              val output_elt :
-                ([< Html_types.output_elt_attrib ],
-                 [< Html_types.output_elt_content_fun ],
-                 [> Html_types.output_elt ])
+              val feMorphology :
+                ([< Svg_types.femorphology_attr ],
+                 [< Svg_types.femorphology_content ],
+                 [> Svg_types.femorphology ])
                 star
-              val entity : string -> [> Html_types.txt ] elt
-              val space : unit -> [> Html_types.txt ] elt
-              val cdata : string -> [> Html_types.txt ] elt
-              val cdata_script : string -> [> Html_types.txt ] elt
-              val cdata_style : string -> [> Html_types.txt ] elt
-              val details :
-                [< Html_types.summary ] elt wrap ->
-                ([< Html_types.details_attrib ],
-                 [< Html_types.details_content_fun ],
-                 [> Html_types.details ])
+              val feOffset :
+                ([< Svg_types.feoffset_attr ],
+                 [< Svg_types.feoffset_content ], [> Svg_types.feoffset ])
                 star
-              val summary :
-                ([< Html_types.summary_attrib ],
-                 [< Html_types.summary_content_fun ],
-                 [> Html_types.summary ])
+              val feSpecularLighting :
+                ([< Svg_types.fespecularlighting_attr ],
+                 [< Svg_types.fespecularlighting_content ],
+                 [> Svg_types.fespecularlighting ])
+                star
+              val feTile :
+                ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
+                 [> Svg_types.fetile ])
+                star
+              val feTurbulence :
+                ([< Svg_types.feturbulence_attr ],
+                 [< Svg_types.feturbulence_content ],
+                 [> Svg_types.feturbulence ])
+                star
+              val cursor :
+                ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
+                 [> Svg_types.cursor ])
+                star
+              val a :
+                ([< Svg_types.a_attr ], [< Svg_types.a_content ],
+                 [> Svg_types.a ])
+                star
+              val view :
+                ([< Svg_types.view_attr ], [< Svg_types.view_content ],
+                 [> Svg_types.view ])
                 star
-              val command :
-                label:Html_types.text wrap ->
-                ([< Html_types.command_attrib ], [> Html_types.command ])
-                nullary
-              val menu :
-                ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
-                           | `Lis of
-                               [< `Li of [< Html_types.common ] ] elt
-                               list_wrap ] ->
-                ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
               val script :
-                ([< Html_types.script_attrib ],
-                 [< Html_types.script_content_fun ], [> Html_types.script ])
+                ([< Svg_types.script_attr ], [< Svg_types.script_content ],
+                 [> Svg_types.script ])
                 unary
-              val noscript :
-                ([< Html_types.noscript_attrib ],
-                 [< Html_types.noscript_content_fun ],
-                 [> Html_types.noscript ])
+              val animate :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
                 star
-              val template :
-                ([< Html_types.template_attrib ],
-                 [< Html_types.template_content_fun ],
-                 [> Html_types.template ])
+              val set :
+                ([< Svg_types.set_attr ], [< Svg_types.set_content ],
+                 [> Svg_types.set ])
+                star
+              val animateMotion :
+                ([< Svg_types.animatemotion_attr ],
+                 [< Svg_types.animatemotion_content ],
+                 [> Svg_types.animatemotion ])
+                star
+              val mpath :
+                ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
+                 [> Svg_types.mpath ])
+                star
+              val animateColor :
+                ([< Svg_types.animatecolor_attr ],
+                 [< Svg_types.animatecolor_content ],
+                 [> Svg_types.animatecolor ])
+                star
+              val animateTransform :
+                ([< Svg_types.animatetransform_attr ],
+                 [< Svg_types.animatetransform_content ],
+                 [> Svg_types.animatetransform ])
+                star
+              val font :
+                ([< Svg_types.font_attr ], [< Svg_types.font_content ],
+                 [> Svg_types.font ])
+                star
+              val glyph :
+                ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
+                 [> Svg_types.glyph ])
                 star
-              val meta :
-                ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
-              val style :
-                ([< Html_types.style_attrib ],
-                 [< Html_types.style_content_fun ], [> Html_types.style ])
+              val missing_glyph :
+                ([< Svg_types.missingglyph_attr ],
+                 [< Svg_types.missingglyph_content ],
+                 [> Svg_types.missingglyph ])
                 star
-              val link :
-                rel:Html_types.linktypes wrap ->
-                href:Xml.uri wrap ->
-                ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
-              val rt :
-                ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
-                 [> Html_types.rt ])
+              val hkern :
+                ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
+              val vkern :
+                ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
+              val font_face :
+                ([< Svg_types.font_face_attr ], [> Svg_types.font_face ])
+                nullary
+              val font_face_src :
+                ([< Svg_types.font_face_src_attr ],
+                 [< Svg_types.font_face_src_content ],
+                 [> Svg_types.font_face_src ])
                 star
-              val rp :
-                ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
-                 [> Html_types.rp ])
+              val font_face_uri :
+                ([< Svg_types.font_face_uri_attr ],
+                 [< Svg_types.font_face_uri_content ],
+                 [> Svg_types.font_face_uri ])
                 star
-              val ruby :
-                ([< Html_types.ruby_attrib ],
-                 [< Html_types.ruby_content_fun ], [> Html_types.ruby ])
+              val font_face_format :
+                ([< Svg_types.font_face_format_attr ],
+                 [> Svg_types.font_face_format ])
+                nullary
+              val font_face_name :
+                ([< Svg_types.font_face_name_attr ],
+                 [> Svg_types.font_face_name ])
+                nullary
+              val metadata :
+                ?a:Svg_types.metadata_attr attrib list ->
+                Xml.elt list_wrap -> [> Svg_types.metadata ] elt
+              val foreignObject :
+                ?a:Svg_types.foreignobject_attr attrib list ->
+                Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+              val pcdata : string wrap -> [> Svg_types.txt ] elt
+              val animation :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
                 star
-              val pcdata : string wrap -> [> Html_types.pcdata ] elt
               val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
               val tot : Xml.elt -> 'a elt
               val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -6395,9 +4482,32 @@
                   val comma_sep_attrib :
                     string -> string list wrap -> 'a attrib
                 end
+              val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+              val a_onactivate : string -> [> `OnActivate ] Raw'.attrib
+              val a_onbegin : string -> [> `OnBegin ] Raw'.attrib
+              val a_onend : string -> [> `OnEnd ] Raw'.attrib
+              val a_onerror : string -> [> `OnError ] Raw'.attrib
+              val a_onfocusin : string -> [> `OnFocusIn ] Raw'.attrib
+              val a_onfocusout : string -> [> `OnFocusOut ] Raw'.attrib
+              val a_onload : string -> [> `OnLoad ] Raw'.attrib
+              val a_onrepeat : string -> [> `OnRepeat ] Raw'.attrib
+              val a_onresize : string -> [> `OnResize ] Raw'.attrib
+              val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+              val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+              val a_onzoom : string -> [> `OnZoom ] Raw'.attrib
+              val a_onclick : string -> [> `OnClick ] Raw'.attrib
+              val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+              val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+              val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+              val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+              val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+              val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+              val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+              val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+              val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
             end
           type 'a elt = 'a elt
-          type doc = Html_types.html elt
+          type doc = [ `Svg ] elt
           type 'a attrib = 'a attrib
           module Xml :
             sig
@@ -6462,837 +4572,2488 @@
           module Info : Xml_sigs.Info
           type uri = Xml.uri
           val string_of_uri : (uri, string) Xml.W.ft
-          val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
-          val a_user_data :
-            Html_types.nmtoken ->
-            Html_types.text wrap -> [> `User_data ] attrib
-          val a_id : Html_types.text wrap -> [> `Id ] attrib
-          val a_title : Html_types.text wrap -> [> `Title ] attrib
-          val a_xml_lang :
-            Html_types.languagecode wrap -> [> `XML_lang ] attrib
-          val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-          val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-          val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
-          val a_onbeforeprint :
-            Xml.event_handler -> [> `OnBeforePrint ] attrib
-          val a_onbeforeunload :
-            Xml.event_handler -> [> `OnBeforeUnload ] attrib
-          val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-          val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-          val a_oncanplaythrough :
-            Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-          val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-          val a_ondurationchange :
-            Xml.event_handler -> [> `OnDurationChange ] attrib
-          val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-          val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-          val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-          val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-          val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
-          val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
-          val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
-          val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-          val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-          val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
-          val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-          val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-          val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-          val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-          val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-          val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-          val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-          val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-          val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-          val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
-          val a_onreadystatechange :
-            Xml.event_handler -> [> `OnReadyStateChange ] attrib
-          val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-          val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-          val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-          val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-          val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-          val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-          val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-          val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-          val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-          val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-          val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-          val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
-          val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-          val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-          val a_onvolumechange :
-            Xml.event_handler -> [> `OnVolumeChange ] attrib
-          val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-          val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-          val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
-          val a_onloadedmetadata :
-            Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-          val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
-          val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-          val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-          val a_oncontextmenu :
-            Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-          val a_ondblclick :
-            Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-          val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-          val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-          val a_ondragenter :
-            Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-          val a_ondragleave :
-            Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-          val a_ondragover :
-            Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-          val a_ondragstart :
-            Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-          val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-          val a_onmousedown :
-            Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-          val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-          val a_onmouseover :
-            Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-          val a_onmousemove :
-            Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-          val a_onmouseout :
-            Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-          val a_ontouchstart :
-            Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-          val a_ontouchend :
-            Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-          val a_ontouchmove :
-            Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-          val a_ontouchcancel :
-            Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-          val a_onkeypress :
-            Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-          val a_onkeydown :
-            Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-          val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
-          val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
-          val a_allowpaymentrequest :
-            unit -> [> `Allowpaymentrequest ] attrib
-          val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
-          val a_async : unit -> [> `Async ] attrib
-          val a_autofocus : unit -> [> `Autofocus ] attrib
-          val a_autoplay : unit -> [> `Autoplay ] attrib
-          val a_muted : unit -> [> `Muted ] attrib
-          val a_crossorigin :
-            [< `Anonymous | `Use_credentials ] wrap ->
-            [> `Crossorigin ] attrib
-          val a_integrity : string wrap -> [> `Integrity ] attrib
-          val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
-          val a_challenge : Html_types.text wrap -> [> `Challenge ] attrib
-          val a_contenteditable : bool wrap -> [> `Contenteditable ] attrib
-          val a_contextmenu :
-            Html_types.idref wrap -> [> `Contextmenu ] attrib
-          val a_controls : unit -> [> `Controls ] attrib
-          val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
-          val a_draggable : bool wrap -> [> `Draggable ] attrib
-          val a_form : Html_types.idref wrap -> [> `Form ] attrib
-          val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
-          val a_formenctype :
-            Html_types.contenttype wrap -> [> `Formenctype ] attrib
-          val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
-          val a_formtarget : Html_types.text wrap -> [> `Formtarget ] attrib
-          val a_hidden : unit -> [> `Hidden ] attrib
-          val a_high : Html_types.float_number wrap -> [> `High ] attrib
-          val a_icon : Xml.uri wrap -> [> `Icon ] attrib
-          val a_ismap : unit -> [> `Ismap ] attrib
-          val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
-          val a_list : Html_types.idref wrap -> [> `List ] attrib
-          val a_loop : unit -> [> `Loop ] attrib
-          val a_low : Html_types.float_number wrap -> [> `High ] attrib
-          val a_max : Html_types.float_number wrap -> [> `Max ] attrib
-          val a_input_max :
-            Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
-          val a_min : Html_types.float_number wrap -> [> `Min ] attrib
-          val a_input_min :
-            Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
-          val a_inputmode :
-            [< `Decimal
-             | `Email
-             | `None
-             | `Numeric
-             | `Search
-             | `Tel
-             | `Text
-             | `Url ]
-            wrap -> [> `Inputmode ] attrib
-          val a_novalidate : unit -> [> `Novalidate ] attrib
-          val a_open : unit -> [> `Open ] attrib
-          val a_optimum :
-            Html_types.float_number wrap -> [> `Optimum ] attrib
-          val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
-          val a_placeholder :
-            Html_types.text wrap -> [> `Placeholder ] attrib
-          val a_poster : Xml.uri wrap -> [> `Poster ] attrib
-          val a_preload :
-            [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
-          val a_pubdate : unit -> [> `Pubdate ] attrib
-          val a_radiogroup : Html_types.text wrap -> [> `Radiogroup ] attrib
-          val a_referrerpolicy :
-            Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
-          val a_required : unit -> [> `Required ] attrib
-          val a_reversed : unit -> [> `Reversed ] attrib
-          val a_sandbox :
-            [< Html_types.sandbox_token ] list wrap -> [> `Sandbox ] attrib
-          val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
-          val a_scoped : unit -> [> `Scoped ] attrib
-          val a_seamless : unit -> [> `Seamless ] attrib
-          val a_sizes :
-            (Html_types.number * Html_types.number) list option wrap ->
-            [> `Sizes ] attrib
-          val a_span : Html_types.number wrap -> [> `Span ] attrib
-          val a_srclang : Html_types.nmtoken wrap -> [> `XML_lang ] attrib
-          type image_candidate =
-              [ `Url of uri
-              | `Url_pixel of uri * Html_types.float_number
-              | `Url_width of uri * Html_types.number ]
-          val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
-          val a_img_sizes :
-            Html_types.text list wrap -> [> `Img_sizes ] attrib
-          val a_start : Html_types.number wrap -> [> `Start ] attrib
-          val a_step :
-            Html_types.float_number option wrap -> [> `Step ] attrib
-          val a_translate : [< `No | `Yes ] wrap -> [> `Translate ] attrib
-          val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
-          val a_version : Html_types.cdata wrap -> [> `Version ] attrib
-          val a_xmlns : [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
-          val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
-          val a_cite : Xml.uri wrap -> [> `Cite ] attrib
+          val uri_of_string : (string, uri) Xml.W.ft
+          val a_version : string wrap -> [> `Version ] attrib
+          val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+          val a_x : Svg_types.coord wrap -> [> `X ] attrib
+          val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+          val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+          val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
+          val a_preserveAspectRatio :
+            string wrap -> [> `PreserveAspectRatio ] attrib
+          val a_contentScriptType :
+            string wrap -> [> `ContentScriptType ] attrib
+          val a_contentStyleType :
+            string wrap -> [> `ContentStyleType ] attrib
+          val a_zoomAndPan :
+            [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+          val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+          val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+          val a_requiredFeatures :
+            Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+          val a_requiredExtensions :
+            Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+          val a_systemLanguage :
+            Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+          val a_externalRessourcesRequired :
+            bool wrap -> [> `ExternalRessourcesRequired ] attrib
+          val a_id : string wrap -> [> `Id ] attrib
+          val a_user_data : string -> string wrap -> [> `User_data ] attrib
+          val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+          val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
           val a_xml_space :
-            [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
-          val a_accesskey :
-            Html_types.character wrap -> [> `Accesskey ] attrib
-          val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
-          val a_accept_charset :
-            Html_types.charsets wrap -> [> `Accept_charset ] attrib
-          val a_accept : Html_types.contenttypes wrap -> [> `Accept ] attrib
-          val a_href : Xml.uri wrap -> [> `Href ] attrib
-          val a_hreflang :
-            Html_types.languagecode wrap -> [> `Hreflang ] attrib
-          val a_download : string option wrap -> [> `Download ] attrib
-          val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
-          val a_tabindex : Html_types.number wrap -> [> `Tabindex ] attrib
-          val a_mime_type :
-            Html_types.contenttype wrap -> [> `Mime_type ] attrib
-          val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
-          val a_action : Xml.uri wrap -> [> `Action ] attrib
-          val a_checked : unit -> [> `Checked ] attrib
-          val a_cols : Html_types.number wrap -> [> `Cols ] attrib
-          val a_enctype : Html_types.contenttype wrap -> [> `Enctype ] attrib
-          val a_label_for : Html_types.idref wrap -> [> `Label_for ] attrib
-          val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
-          val a_output_for :
-            Html_types.idrefs wrap -> [> `Output_for ] attrib
-          val a_for_list : Html_types.idrefs wrap -> [> `Output_for ] attrib
-          val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
-          val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
-          val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-          val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
-          val a_multiple : unit -> [> `Multiple ] attrib
-          val a_name : Html_types.text wrap -> [> `Name ] attrib
-          val a_rows : Html_types.number wrap -> [> `Rows ] attrib
-          val a_selected : unit -> [> `Selected ] attrib
-          val a_size : Html_types.number wrap -> [> `Size ] attrib
-          val a_src : Xml.uri wrap -> [> `Src ] attrib
-          val a_input_type :
-            [< `Button
-             | `Checkbox
-             | `Color
-             | `Date
-             | `Datetime
-             | `Datetime_local
-             | `Email
-             | `File
-             | `Hidden
-             | `Image
-             | `Month
-             | `Number
-             | `Password
-             | `Radio
-             | `Range
-             | `Reset
-             | `Search
-             | `Submit
-             | `Tel
-             | `Text
-             | `Time
-             | `Url
-             | `Week ]
-            wrap -> [> `Input_Type ] attrib
-          val a_text_value : Html_types.text wrap -> [> `Text_Value ] attrib
-          val a_int_value : Html_types.number wrap -> [> `Int_Value ] attrib
-          val a_value : Html_types.cdata wrap -> [> `Value ] attrib
-          val a_float_value :
-            Html_types.float_number wrap -> [> `Float_Value ] attrib
-          val a_disabled : unit -> [> `Disabled ] attrib
-          val a_readonly : unit -> [> `ReadOnly ] attrib
-          val a_button_type :
-            [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
-          val a_command_type :
-            [< `Checkbox | `Command | `Radio ] wrap ->
-            [> `Command_Type ] attrib
-          val a_menu_type :
-            [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
-          val a_label : Html_types.text wrap -> [> `Label ] attrib
-          val a_align :
-            [< `Char | `Justify | `Left | `Right ] wrap -> [> `Align ] attrib
-          val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
-          val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
-          val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
-          val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
-          val a_scope :
-            [< `Col | `Colgroup | `Row | `Rowgroup ] wrap ->
-            [> `Scope ] attrib
-          val a_summary : Html_types.text wrap -> [> `Summary ] attrib
-          val a_border : Html_types.pixels wrap -> [> `Border ] attrib
-          val a_rules :
-            [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
-            [> `Rules ] attrib
-          val a_char : Html_types.character wrap -> [> `Char ] attrib
-          val a_alt : Html_types.text wrap -> [> `Alt ] attrib
-          val a_height : Html_types.number wrap -> [> `Height ] attrib
-          val a_width : Html_types.number wrap -> [> `Width ] attrib
-          type shape = [ `Circle | `Default | `Poly | `Rect ]
-          val a_shape : shape wrap -> [> `Shape ] attrib
-          val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
-          val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
-          val a_data : Xml.uri wrap -> [> `Data ] attrib
-          val a_codetype :
-            Html_types.contenttype wrap -> [> `Codetype ] attrib
-          val a_frameborder :
-            [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
-          val a_marginheight :
-            Html_types.pixels wrap -> [> `Marginheight ] attrib
-          val a_marginwidth :
-            Html_types.pixels wrap -> [> `Marginwidth ] attrib
-          val a_scrolling :
-            [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
-          val a_target : Html_types.frametarget wrap -> [> `Target ] attrib
-          val a_content : Html_types.text wrap -> [> `Content ] attrib
-          val a_http_equiv : Html_types.text wrap -> [> `Http_equiv ] attrib
-          val a_defer : unit -> [> `Defer ] attrib
-          val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
-          val a_style : string wrap -> [> `Style_Attr ] attrib
-          val a_property : string wrap -> [> `Property ] attrib
-          val a_role : string list wrap -> [> `Role ] attrib
-          val a_aria : string -> string list wrap -> [> `Aria ] attrib
-          val txt : string wrap -> [> Html_types.txt ] elt
-          val html :
-            ?a:Html_types.html_attrib attrib list ->
-            [< Html_types.head ] elt wrap ->
-            [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
-          val head :
-            ?a:Html_types.head_attrib attrib list ->
-            [< Html_types.title ] elt wrap ->
-            Html_types.head_content_fun elt list_wrap ->
-            [> Html_types.head ] elt
-          val base :
-            ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
+            [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+          val a_type : string wrap -> [> `Type ] attrib
+          val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+          val a_xlink_title : string wrap -> [> `Title ] attrib
+          val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+          val a_style : string wrap -> [> `Style ] attrib
+          val a_transform :
+            Svg_types.transforms wrap -> [> `Transform ] attrib
+          val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+          val a_d : string wrap -> [> `D ] attrib
+          val a_pathLength : float wrap -> [> `PathLength ] attrib
+          val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+          val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+          val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+          val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+          val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+          val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+          val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+          val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+          val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+          val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+          val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+          val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+          val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+          val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+          val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+          val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+          val a_lengthAdjust :
+            [< `Spacing | `SpacingAndGlyphs ] wrap ->
+            [> `LengthAdjust ] attrib
+          val a_textLength :
+            Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+          val a_text_anchor :
+            [< `End | `Inherit | `Middle | `Start ] wrap ->
+            [> `Text_Anchor ] attrib
+          val a_text_decoration :
+            [< `Blink
+             | `Inherit
+             | `Line_through
+             | `None
+             | `Overline
+             | `Underline ]
+            wrap -> [> `Text_Decoration ] attrib
+          val a_text_rendering :
+            [< `Auto
+             | `GeometricPrecision
+             | `Inherit
+             | `OptimizeLegibility
+             | `OptimizeSpeed ]
+            wrap -> [> `Text_Rendering ] attrib
+          val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+          val a_startOffset :
+            Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+          val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+          val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+          val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+          val a_format : string wrap -> [> `Format ] attrib
+          val a_markerUnits :
+            [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
+            [> `MarkerUnits ] attrib
+          val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+          val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+          val a_markerWidth :
+            Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+          val a_markerHeight :
+            Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+          val a_orient :
+            Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+          val a_local : string wrap -> [> `Local ] attrib
+          val a_rendering_intent :
+            [< `Absolute_colorimetric
+             | `Auto
+             | `Perceptual
+             | `Relative_colorimetric
+             | `Saturation ]
+            wrap -> [> `Rendering_Indent ] attrib
+          val a_gradientUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [ `GradientUnits ] attrib
+          val a_gradientTransform :
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+          val a_spreadMethod :
+            [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
+          val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+          val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+          val a_offset :
+            [< `Number of Svg_types.number
+             | `Percentage of Svg_types.percentage ]
+            wrap -> [> `Offset ] attrib
+          val a_patternUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PatternUnits ] attrib
+          val a_patternContentUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PatternContentUnits ] attrib
+          val a_patternTransform :
+            Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+          val a_clipPathUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `ClipPathUnits ] attrib
+          val a_maskUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `MaskUnits ] attrib
+          val a_maskContentUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `MaskContentUnits ] attrib
+          val a_primitiveUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PrimitiveUnits ] attrib
+          val a_filterRes :
+            Svg_types.number_optional_number wrap ->
+            [> `FilterResUnits ] attrib
+          val a_result : string wrap -> [> `Result ] attrib
+          val a_in :
+            [< `BackgroundAlpha
+             | `BackgroundImage
+             | `FillPaint
+             | `Ref of string
+             | `SourceAlpha
+             | `SourceGraphic
+             | `StrokePaint ]
+            wrap -> [> `In ] attrib
+          val a_in2 :
+            [< `BackgroundAlpha
+             | `BackgroundImage
+             | `FillPaint
+             | `Ref of string
+             | `SourceAlpha
+             | `SourceGraphic
+             | `StrokePaint ]
+            wrap -> [> `In2 ] attrib
+          val a_azimuth : float wrap -> [> `Azimuth ] attrib
+          val a_elevation : float wrap -> [> `Elevation ] attrib
+          val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
+          val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
+          val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
+          val a_specularExponent :
+            float wrap -> [> `SpecularExponent ] attrib
+          val a_specularConstant :
+            float wrap -> [> `SpecularConstant ] attrib
+          val a_limitingConeAngle :
+            float wrap -> [> `LimitingConeAngle ] attrib
+          val a_mode :
+            [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
+            [> `Mode ] attrib
+          val a_feColorMatrix_type :
+            [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ] wrap ->
+            [> `Typefecolor ] attrib
+          val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
+          val a_transfer_type :
+            [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
+            [> `Type_transfert ] attrib
+          val a_tableValues :
+            Svg_types.numbers wrap -> [> `TableValues ] attrib
+          val a_intercept : Svg_types.number wrap -> [> `Intercept ] attrib
+          val a_amplitude : Svg_types.number wrap -> [> `Amplitude ] attrib
+          val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
+          val a_transfer_offset :
+            Svg_types.number wrap -> [> `Offset_transfer ] attrib
+          val a_feComposite_operator :
+            [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
+            [> `OperatorComposite ] attrib
+          val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
+          val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
+          val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
+          val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
+          val a_order :
+            Svg_types.number_optional_number wrap -> [> `Order ] attrib
+          val a_kernelMatrix :
+            Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
+          val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
+          val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
+          val a_kernelUnitLength :
+            Svg_types.number_optional_number wrap ->
+            [> `KernelUnitLength ] attrib
+          val a_targetX : int wrap -> [> `TargetX ] attrib
+          val a_targetY : int wrap -> [> `TargetY ] attrib
+          val a_edgeMode :
+            [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
+          val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
+          val a_surfaceScale :
+            Svg_types.number wrap -> [> `SurfaceScale ] attrib
+          val a_diffuseConstant :
+            Svg_types.number wrap -> [> `DiffuseConstant ] attrib
+          val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
+          val a_xChannelSelector :
+            [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
+          val a_yChannelSelector :
+            [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
+          val a_stdDeviation :
+            Svg_types.number_optional_number wrap ->
+            [> `StdDeviation ] attrib
+          val a_feMorphology_operator :
+            [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
+          val a_radius :
+            Svg_types.number_optional_number wrap -> [> `Radius ] attrib
+          val a_baseFrenquency :
+            Svg_types.number_optional_number wrap ->
+            [> `BaseFrequency ] attrib
+          val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
+          val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
+          val a_stitchTiles :
+            [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
+          val a_feTurbulence_type :
+            [< `FractalNoise | `Turbulence ] wrap -> [> `TypeStitch ] attrib
+          val a_xlink_show :
+            [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
+          val a_xlink_actuate :
+            [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
+            [> `Xlink_actuate ] attrib
+          val a_target : string wrap -> [> `Xlink_target ] attrib
+          val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
+          val a_attributeName : string wrap -> [> `AttributeName ] attrib
+          val a_attributeType :
+            [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
+          val a_begin : string wrap -> [> `Begin ] attrib
+          val a_dur : string wrap -> [> `Dur ] attrib
+          val a_min : string wrap -> [> `Min ] attrib
+          val a_max : string wrap -> [> `Max ] attrib
+          val a_restart :
+            [< `Always | `Never | `WhenNotActive ] wrap ->
+            [> `Restart ] attrib
+          val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
+          val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
+          val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
+          val a_animation_fill :
+            [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
+          val a_calcMode :
+            [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
+            [> `CalcMode ] attrib
+          val a_animation_values :
+            Svg_types.strings wrap -> [> `Valuesanim ] attrib
+          val a_keyTimes : Svg_types.strings wrap -> [> `KeyTimes ] attrib
+          val a_keySplines :
+            Svg_types.strings wrap -> [> `KeySplines ] attrib
+          val a_from : string wrap -> [> `From ] attrib
+          val a_to : string wrap -> [> `To ] attrib
+          val a_by : string wrap -> [> `By ] attrib
+          val a_additive : [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
+          val a_accumulate :
+            [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
+          val a_keyPoints :
+            Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
+          val a_path : string wrap -> [> `Path ] attrib
+          val a_animateTransform_type :
+            [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
+            [ `Typeanimatetransform ] attrib
+          val a_horiz_origin_x :
+            Svg_types.number wrap -> [> `HorizOriginX ] attrib
+          val a_horiz_origin_y :
+            Svg_types.number wrap -> [> `HorizOriginY ] attrib
+          val a_horiz_adv_x : Svg_types.number wrap -> [> `HorizAdvX ] attrib
+          val a_vert_origin_x :
+            Svg_types.number wrap -> [> `VertOriginX ] attrib
+          val a_vert_origin_y :
+            Svg_types.number wrap -> [> `VertOriginY ] attrib
+          val a_vert_adv_y : Svg_types.number wrap -> [> `VertAdvY ] attrib
+          val a_unicode : string wrap -> [> `Unicode ] attrib
+          val a_glyph_name : string wrap -> [> `glyphname ] attrib
+          val a_orientation : [< `H | `V ] wrap -> [> `Orientation ] attrib
+          val a_arabic_form :
+            [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
+            [> `Arabicform ] attrib
+          val a_lang : string wrap -> [> `Lang ] attrib
+          val a_u1 : string wrap -> [> `U1 ] attrib
+          val a_u2 : string wrap -> [> `U2 ] attrib
+          val a_g1 : string wrap -> [> `G1 ] attrib
+          val a_g2 : string wrap -> [> `G2 ] attrib
+          val a_k : string wrap -> [> `K ] attrib
+          val a_font_family : string wrap -> [> `Font_Family ] attrib
+          val a_font_style : string wrap -> [> `Font_Style ] attrib
+          val a_font_variant : string wrap -> [> `Font_Variant ] attrib
+          val a_font_weight : string wrap -> [> `Font_Weight ] attrib
+          val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
+          val a_font_size : string wrap -> [> `Font_Size ] attrib
+          val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
+          val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
+          val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
+          val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
+          val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
+          val a_cap_height : Svg_types.number wrap -> [> `CapHeight ] attrib
+          val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
+          val a_accent_height :
+            Svg_types.number wrap -> [> `AccentHeight ] attrib
+          val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
+          val a_widths : string wrap -> [> `Widths ] attrib
+          val a_bbox : string wrap -> [> `Bbox ] attrib
+          val a_ideographic :
+            Svg_types.number wrap -> [> `Ideographic ] attrib
+          val a_alphabetic : Svg_types.number wrap -> [> `Alphabetic ] attrib
+          val a_mathematical :
+            Svg_types.number wrap -> [> `Mathematical ] attrib
+          val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
+          val a_videographic :
+            Svg_types.number wrap -> [> `VIdeographic ] attrib
+          val a_v_alphabetic :
+            Svg_types.number wrap -> [> `VAlphabetic ] attrib
+          val a_v_mathematical :
+            Svg_types.number wrap -> [> `VMathematical ] attrib
+          val a_v_hanging : Svg_types.number wrap -> [> `VHanging ] attrib
+          val a_underline_position :
+            Svg_types.number wrap -> [> `UnderlinePosition ] attrib
+          val a_underline_thickness :
+            Svg_types.number wrap -> [> `UnderlineThickness ] attrib
+          val a_strikethrough_position :
+            Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
+          val a_strikethrough_thickness :
+            Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
+          val a_overline_position :
+            Svg_types.number wrap -> [> `OverlinePosition ] attrib
+          val a_overline_thickness :
+            Svg_types.number wrap -> [> `OverlineThickness ] attrib
+          val a_string : string wrap -> [> `String ] attrib
+          val a_name : string wrap -> [> `Name ] attrib
+          val a_alignment_baseline :
+            [< `After_edge
+             | `Alphabetic
+             | `Auto
+             | `Baseline
+             | `Before_edge
+             | `Central
+             | `Hanging
+             | `Ideographic
+             | `Inherit
+             | `Mathematical
+             | `Middle
+             | `Text_after_edge
+             | `Text_before_edge ]
+            wrap -> [> `Alignment_Baseline ] attrib
+          val a_dominant_baseline :
+            [< `Alphabetic
+             | `Auto
+             | `Central
+             | `Hanging
+             | `Ideographic
+             | `Inherit
+             | `Mathematical
+             | `Middle
+             | `No_change
+             | `Reset_size
+             | `Text_after_edge
+             | `Text_before_edge
+             | `Use_script ]
+            wrap -> [> `Dominant_Baseline ] attrib
+          val a_stop_color : Svg_types.color wrap -> [> `Stop_Color ] attrib
+          val a_stop_opacity :
+            Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+          val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+          val a_stroke_width :
+            Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+          val a_stroke_linecap :
+            [< `Butt | `Round | `Square ] wrap -> [> `Stroke_Linecap ] attrib
+          val a_stroke_linejoin :
+            [< `Bever | `Miter | `Round ] wrap ->
+            [> `Stroke_Linejoin ] attrib
+          val a_stroke_miterlimit :
+            float wrap -> [> `Stroke_Miterlimit ] attrib
+          val a_stroke_dasharray :
+            Svg_types.Unit.length list wrap -> [> `Stroke_Dasharray ] attrib
+          val a_stroke_dashoffset :
+            Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+          val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
+          val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+          val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
+          val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
+          val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
+          val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+          val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
+          val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
+          val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+          val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
+          val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+          val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+          val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+          val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
+          val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+          val a_onmousedown :
+            Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+          val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+          val a_onmouseover :
+            Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+          val a_onmouseout :
+            Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+          val a_onmousemove :
+            Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+          val a_ontouchstart :
+            Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+          val a_ontouchend :
+            Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+          val a_ontouchmove :
+            Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+          val a_ontouchcancel :
+            Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+          val txt : string wrap -> [> Svg_types.txt ] elt
+          val svg :
+            ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
+             [> Svg_types.svg ])
+            star
+          val g :
+            ([< Svg_types.g_attr ], [< Svg_types.g_content ],
+             [> Svg_types.g ])
+            star
+          val defs :
+            ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
+             [> Svg_types.defs ])
+            star
+          val desc :
+            ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
+             [> Svg_types.desc ])
+            unary
           val title :
-            (Html_types.title_attrib, [< Html_types.title_content_fun ],
-             [> Html_types.title ])
+            ([< Svg_types.title_attr ], [< Svg_types.title_content ],
+             [> Svg_types.title ])
             unary
-          val body :
-            ([< Html_types.body_attrib ], [< Html_types.body_content_fun ],
-             [> Html_types.body ])
+          val symbol :
+            ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
+             [> Svg_types.symbol ])
             star
-          val svg :
-            ?a:[< Html_types.svg_attrib ] Svg.F.Raw.attrib list ->
-            [< Html_types.svg_content ] Svg.F.Raw.elt list_wrap ->
-            [> Html_types.svg ] elt
-          val footer :
-            ([< Html_types.footer_attrib ],
-             [< Html_types.footer_content_fun ], [> Html_types.footer ])
+          val use :
+            ([< Svg_types.use_attr ], [< Svg_types.use_content ],
+             [> Svg_types.use ])
             star
-          val header :
-            ([< Html_types.header_attrib ],
-             [< Html_types.header_content_fun ], [> Html_types.header ])
+          val image :
+            ([< Svg_types.image_attr ], [< Svg_types.image_content ],
+             [> Svg_types.image ])
             star
-          val section :
-            ([< Html_types.section_attrib ],
-             [< Html_types.section_content_fun ], [> Html_types.section ])
+          val switch :
+            ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
+             [> Svg_types.switch ])
             star
-          val nav :
-            ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
-             [> Html_types.nav ])
+          val style :
+            ([< Svg_types.style_attr ], [< Svg_types.style_content ],
+             [> Svg_types.style ])
+            unary
+          val path :
+            ([< Svg_types.path_attr ], [< Svg_types.path_content ],
+             [> Svg_types.path ])
             star
-          val h1 :
-            ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
-             [> Html_types.h1 ])
+          val rect :
+            ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
+             [> Svg_types.rect ])
             star
-          val h2 :
-            ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
-             [> Html_types.h2 ])
+          val circle :
+            ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
+             [> Svg_types.circle ])
             star
-          val h3 :
-            ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
-             [> Html_types.h3 ])
+          val ellipse :
+            ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
+             [> Svg_types.ellipse ])
             star
-          val h4 :
-            ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
-             [> Html_types.h4 ])
+          val line :
+            ([< Svg_types.line_attr ], [< Svg_types.line_content ],
+             [> Svg_types.line ])
+            star
+          val polyline :
+            ([< Svg_types.polyline_attr ], [< Svg_types.polyline_content ],
+             [> Svg_types.polyline ])
+            star
+          val polygon :
+            ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
+             [> Svg_types.polygon ])
+            star
+          val text :
+            ([< Svg_types.text_attr ], [< Svg_types.text_content ],
+             [> Svg_types.text ])
+            star
+          val tspan :
+            ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
+             [> Svg_types.tspan ])
+            star
+          val tref :
+            ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
+             [> Svg_types.tref ])
+            star
+          val textPath :
+            ([< Svg_types.textpath_attr ], [< Svg_types.textpath_content ],
+             [> Svg_types.textpath ])
+            star
+          val altGlyph :
+            ([< Svg_types.altglyph_attr ], [< Svg_types.altglyph_content ],
+             [> Svg_types.altglyph ])
+            unary
+          type altglyphdef_content =
+              [ `Item of Svg_types.altglyphitem elt list
+              | `Ref of Svg_types.glyphref elt list ]
+          val altGlyphDef :
+            ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
+             [> Svg_types.altglyphdef ])
+            unary
+          val altGlyphItem :
+            ([< Svg_types.altglyphitem_attr ],
+             [< Svg_types.altglyphitem_content ],
+             [> Svg_types.altglyphitem ])
+            star
+          val glyphRef :
+            ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ]) nullary
+          val marker :
+            ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
+             [> Svg_types.marker ])
+            star
+          val color_profile :
+            ([< Svg_types.colorprofile_attr ],
+             [< Svg_types.colorprofile_content ],
+             [> Svg_types.colorprofile ])
+            star
+          val linearGradient :
+            ([< Svg_types.lineargradient_attr ],
+             [< Svg_types.lineargradient_content ],
+             [> Svg_types.lineargradient ])
+            star
+          val radialGradient :
+            ([< Svg_types.radialgradient_attr ],
+             [< Svg_types.radialgradient_content ],
+             [> Svg_types.radialgradient ])
+            star
+          val stop :
+            ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
+             [> Svg_types.stop ])
+            star
+          val pattern :
+            ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
+             [> Svg_types.pattern ])
+            star
+          val clipPath :
+            ([< Svg_types.clippath_attr ], [< Svg_types.clippath_content ],
+             [> Svg_types.clippath ])
+            star
+          val filter :
+            ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
+             [> Svg_types.filter ])
+            star
+          val feDistantLight :
+            ([< Svg_types.fedistantlight_attr ],
+             [< Svg_types.fedistantlight_content ],
+             [> Svg_types.fedistantlight ])
+            star
+          val fePointLight :
+            ([< Svg_types.fepointlight_attr ],
+             [< Svg_types.fepointlight_content ],
+             [> Svg_types.fepointlight ])
+            star
+          val feSpotLight :
+            ([< Svg_types.fespotlight_attr ],
+             [< Svg_types.fespotlight_content ], [> Svg_types.fespotlight ])
+            star
+          val feBlend :
+            ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
+             [> Svg_types.feblend ])
+            star
+          val feColorMatrix :
+            ([< Svg_types.fecolormatrix_attr ],
+             [< Svg_types.fecolormatrix_content ],
+             [> Svg_types.fecolormatrix ])
+            star
+          val feComponentTransfer :
+            ([< Svg_types.fecomponenttransfer_attr ],
+             [< Svg_types.fecomponenttransfer_content ],
+             [> Svg_types.fecomponenttransfer ])
+            star
+          val feFuncA :
+            ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
+             [> Svg_types.fefunca ])
+            star
+          val feFuncG :
+            ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
+             [> Svg_types.fefuncg ])
+            star
+          val feFuncB :
+            ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
+             [> Svg_types.fefuncb ])
+            star
+          val feFuncR :
+            ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
+             [> Svg_types.fefuncr ])
+            star
+          val feComposite :
+            ([< Svg_types.fecomposite_attr ],
+             [< Svg_types.fecomposite_content ], [> Svg_types.fecomposite ])
+            star
+          val feConvolveMatrix :
+            ([< Svg_types.feconvolvematrix_attr ],
+             [< Svg_types.feconvolvematrix_content ],
+             [> Svg_types.feconvolvematrix ])
+            star
+          val feDiffuseLighting :
+            ([< Svg_types.fediffuselighting_attr ],
+             [< Svg_types.fediffuselighting_content ],
+             [> Svg_types.fediffuselighting ])
+            star
+          val feDisplacementMap :
+            ([< Svg_types.fedisplacementmap_attr ],
+             [< Svg_types.fedisplacementmap_content ],
+             [> Svg_types.fedisplacementmap ])
             star
-          val h5 :
-            ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
-             [> Html_types.h5 ])
+          val feFlood :
+            ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
+             [> Svg_types.feflood ])
             star
-          val h6 :
-            ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
-             [> Html_types.h6 ])
+          val feGaussianBlur :
+            ([< Svg_types.fegaussianblur_attr ],
+             [< Svg_types.fegaussianblur_content ],
+             [> Svg_types.fegaussianblur ])
             star
-          val hgroup :
-            ([< Html_types.hgroup_attrib ],
-             [< Html_types.hgroup_content_fun ], [> Html_types.hgroup ])
+          val feImage :
+            ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
+             [> Svg_types.feimage ])
             star
-          val address :
-            ([< Html_types.address_attrib ],
-             [< Html_types.address_content_fun ], [> Html_types.address ])
+          val feMerge :
+            ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
+             [> Svg_types.femerge ])
             star
-          val article :
-            ([< Html_types.article_attrib ],
-             [< Html_types.article_content_fun ], [> Html_types.article ])
+          val feMorphology :
+            ([< Svg_types.femorphology_attr ],
+             [< Svg_types.femorphology_content ],
+             [> Svg_types.femorphology ])
             star
-          val aside :
-            ([< Html_types.aside_attrib ], [< Html_types.aside_content_fun ],
-             [> Html_types.aside ])
+          val feOffset :
+            ([< Svg_types.feoffset_attr ], [< Svg_types.feoffset_content ],
+             [> Svg_types.feoffset ])
             star
-          val main :
-            ([< Html_types.main_attrib ], [< Html_types.main_content_fun ],
-             [> Html_types.main ])
+          val feSpecularLighting :
+            ([< Svg_types.fespecularlighting_attr ],
+             [< Svg_types.fespecularlighting_content ],
+             [> Svg_types.fespecularlighting ])
             star
-          val p :
-            ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
-             [> Html_types.p ])
+          val feTile :
+            ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
+             [> Svg_types.fetile ])
             star
-          val pre :
-            ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
-             [> Html_types.pre ])
+          val feTurbulence :
+            ([< Svg_types.feturbulence_attr ],
+             [< Svg_types.feturbulence_content ],
+             [> Svg_types.feturbulence ])
             star
-          val blockquote :
-            ([< Html_types.blockquote_attrib ],
-             [< Html_types.blockquote_content_fun ],
-             [> Html_types.blockquote ])
+          val cursor :
+            ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
+             [> Svg_types.cursor ])
             star
-          val div :
-            ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
-             [> Html_types.div ])
+          val a :
+            ([< Svg_types.a_attr ], [< Svg_types.a_content ],
+             [> Svg_types.a ])
             star
-          val dl :
-            ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
-             [> Html_types.dl ])
+          val view :
+            ([< Svg_types.view_attr ], [< Svg_types.view_content ],
+             [> Svg_types.view ])
             star
-          val ol :
-            ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
-             [> Html_types.ol ])
+          val script :
+            ([< Svg_types.script_attr ], [< Svg_types.script_content ],
+             [> Svg_types.script ])
+            unary
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
             star
-          val ul :
-            ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
-             [> Html_types.ul ])
+          val set :
+            ([< Svg_types.set_attr ], [< Svg_types.set_content ],
+             [> Svg_types.set ])
             star
-          val dd :
-            ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
-             [> Html_types.dd ])
+          val animateMotion :
+            ([< Svg_types.animatemotion_attr ],
+             [< Svg_types.animatemotion_content ],
+             [> Svg_types.animatemotion ])
             star
-          val dt :
-            ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
-             [> Html_types.dt ])
+          val mpath :
+            ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
+             [> Svg_types.mpath ])
             star
-          val li :
-            ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
-             [> Html_types.li ])
+          val animateColor :
+            ([< Svg_types.animatecolor_attr ],
+             [< Svg_types.animatecolor_content ],
+             [> Svg_types.animatecolor ])
             star
-          val figcaption :
-            ([< Html_types.figcaption_attrib ],
-             [< Html_types.figcaption_content_fun ],
-             [> Html_types.figcaption ])
+          val animateTransform :
+            ([< Svg_types.animatetransform_attr ],
+             [< Svg_types.animatetransform_content ],
+             [> Svg_types.animatetransform ])
             star
-          val figure :
-            ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
-                        | `Top of [< Html_types.figcaption ] elt wrap ] ->
-            ([< Html_types.figure_attrib ],
-             [< Html_types.figure_content_fun ], [> Html_types.figure ])
+          val font :
+            ([< Svg_types.font_attr ], [< Svg_types.font_content ],
+             [> Svg_types.font ])
             star
-          val hr : ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
-          val b :
-            ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
-             [> Html_types.b ])
+          val glyph :
+            ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
+             [> Svg_types.glyph ])
             star
-          val i :
-            ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
-             [> Html_types.i ])
+          val missing_glyph :
+            ([< Svg_types.missingglyph_attr ],
+             [< Svg_types.missingglyph_content ],
+             [> Svg_types.missingglyph ])
             star
-          val u :
-            ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
-             [> Html_types.u ])
+          val hkern :
+            ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
+          val vkern :
+            ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
+          val font_face :
+            ([< Svg_types.font_face_attr ], [> Svg_types.font_face ]) nullary
+          val font_face_src :
+            ([< Svg_types.font_face_src_attr ],
+             [< Svg_types.font_face_src_content ],
+             [> Svg_types.font_face_src ])
             star
-          val small :
-            ([< Html_types.small_attrib ], [< Html_types.small_content_fun ],
-             [> Html_types.small ])
+          val font_face_uri :
+            ([< Svg_types.font_face_uri_attr ],
+             [< Svg_types.font_face_uri_content ],
+             [> Svg_types.font_face_uri ])
             star
-          val sub :
-            ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
-             [> Html_types.sub ])
+          val font_face_format :
+            ([< Svg_types.font_face_format_attr ],
+             [> Svg_types.font_face_format ])
+            nullary
+          val font_face_name :
+            ([< Svg_types.font_face_name_attr ],
+             [> Svg_types.font_face_name ])
+            nullary
+          val metadata :
+            ?a:Svg_types.metadata_attr attrib list ->
+            Xml.elt list_wrap -> [> Svg_types.metadata ] elt
+          val foreignObject :
+            ?a:Svg_types.foreignobject_attr attrib list ->
+            Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+          val pcdata : string wrap -> [> Svg_types.txt ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
             star
-          val sup :
-            ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
-             [> Html_types.sup ])
+          val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+          val tot : Xml.elt -> 'a elt
+          val totl : Xml.elt list_wrap -> 'a elt list_wrap
+          val toelt : 'a elt -> Xml.elt
+          val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+          val doc_toelt : doc -> Xml.elt
+          val to_xmlattribs : 'a attrib list -> Xml.attrib list
+          val to_attrib : Xml.attrib -> 'a attrib
+          module Unsafe :
+            sig
+              val data : string wrap -> 'a elt
+              val node :
+                string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+              val coerce_elt : 'a elt -> 'b elt
+              val string_attrib : string -> string wrap -> 'a attrib
+              val float_attrib : string -> float wrap -> 'a attrib
+              val int_attrib : string -> int wrap -> 'a attrib
+              val uri_attrib : string -> uri wrap -> 'a attrib
+              val space_sep_attrib : string -> string list wrap -> 'a attrib
+              val comma_sep_attrib : string -> string list wrap -> 'a attrib
+            end
+        end
+      module R :
+        sig
+          module Raw :
+            sig
+              type 'a elt = 'a elt
+              type doc = [ `Svg ] elt
+              type 'a attrib = 'a attrib
+              module Xml :
+                sig
+                  module W :
+                    sig
+                      type 'a t = 'a Xml_shared.W.t
+                      val return : 'a -> 'a t
+                      type ('a, 'b) ft = ('a, 'b) Xml_shared.W.ft
+                      val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                      type 'a tlist = 'a Xml_shared.W.tlist
+                      val nil : unit -> 'a tlist
+                      val singleton : 'a t -> 'a tlist
+                      val cons : 'a t -> 'a tlist -> 'a tlist
+                      val append : 'a tlist -> 'a tlist -> 'a tlist
+                      val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                    end
+                  type 'a wrap = 'a W.t
+                  type 'a list_wrap = 'a W.tlist
+                  type uri = Xml_shared.uri
+                  val string_of_uri : (uri, string) W.ft
+                  val uri_of_string : (string, uri) W.ft
+                  type aname = string
+                  type event_handler = Xml_shared.event_handler
+                  type mouse_event_handler = Xml_shared.mouse_event_handler
+                  type keyboard_event_handler =
+                      Xml_shared.keyboard_event_handler
+                  type touch_event_handler = Xml_shared.touch_event_handler
+                  type attrib = Xml_shared.attrib
+                  val float_attrib : aname -> float wrap -> attrib
+                  val int_attrib : aname -> int wrap -> attrib
+                  val string_attrib : aname -> string wrap -> attrib
+                  val space_sep_attrib : aname -> string list wrap -> attrib
+                  val comma_sep_attrib : aname -> string list wrap -> attrib
+                  val event_handler_attrib : aname -> event_handler -> attrib
+                  val mouse_event_handler_attrib :
+                    aname -> mouse_event_handler -> attrib
+                  val keyboard_event_handler_attrib :
+                    aname -> keyboard_event_handler -> attrib
+                  val touch_event_handler_attrib :
+                    aname -> touch_event_handler -> attrib
+                  val uri_attrib : aname -> uri wrap -> attrib
+                  val uris_attrib : aname -> uri list wrap -> attrib
+                  type elt = Xml_shared.elt
+                  type ename = string
+                  val empty : unit -> elt
+                  val comment : string -> elt
+                  val pcdata : string wrap -> elt
+                  val encodedpcdata : string wrap -> elt
+                  val entity : string -> elt
+                  val leaf : ?a:attrib list -> ename -> elt
+                  val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+                  val cdata : string -> elt
+                  val cdata_script : string -> elt
+                  val cdata_style : string -> elt
+                end
+              type 'a wrap = 'a Xml.W.t
+              type 'a list_wrap = 'a Xml.W.tlist
+              type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+              type ('a, 'b, 'c) unary =
+                  ?a:'a attrib list -> 'b elt wrap -> 'c elt
+              type ('a, 'b, 'c) star =
+                  ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              module Info : Xml_sigs.Info
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) Xml.W.ft
+              val uri_of_string : (string, uri) Xml.W.ft
+              val a_version : string wrap -> [> `Version ] attrib
+              val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+              val a_x : Svg_types.coord wrap -> [> `X ] attrib
+              val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+              val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+              val a_height :
+                Svg_types.Unit.length wrap -> [> `Height ] attrib
+              val a_preserveAspectRatio :
+                string wrap -> [> `PreserveAspectRatio ] attrib
+              val a_contentScriptType :
+                string wrap -> [> `ContentScriptType ] attrib
+              val a_contentStyleType :
+                string wrap -> [> `ContentStyleType ] attrib
+              val a_zoomAndPan :
+                [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+              val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+              val a_xlink_href :
+                Svg_types.iri wrap -> [> `Xlink_href ] attrib
+              val a_requiredFeatures :
+                Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+              val a_requiredExtensions :
+                Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+              val a_systemLanguage :
+                Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+              val a_externalRessourcesRequired :
+                bool wrap -> [> `ExternalRessourcesRequired ] attrib
+              val a_id : string wrap -> [> `Id ] attrib
+              val a_user_data :
+                string -> string wrap -> [> `User_data ] attrib
+              val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+              val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+              val a_xml_space :
+                [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+              val a_type : string wrap -> [> `Type ] attrib
+              val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+              val a_xlink_title : string wrap -> [> `Title ] attrib
+              val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+              val a_style : string wrap -> [> `Style ] attrib
+              val a_transform :
+                Svg_types.transforms wrap -> [> `Transform ] attrib
+              val a_viewBox :
+                Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+              val a_d : string wrap -> [> `D ] attrib
+              val a_pathLength : float wrap -> [> `PathLength ] attrib
+              val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+              val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+              val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+              val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+              val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+              val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+              val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+              val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+              val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+              val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+              val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+              val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+              val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+              val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+              val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+              val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+              val a_lengthAdjust :
+                [< `Spacing | `SpacingAndGlyphs ] wrap ->
+                [> `LengthAdjust ] attrib
+              val a_textLength :
+                Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+              val a_text_anchor :
+                [< `End | `Inherit | `Middle | `Start ] wrap ->
+                [> `Text_Anchor ] attrib
+              val a_text_decoration :
+                [< `Blink
+                 | `Inherit
+                 | `Line_through
+                 | `None
+                 | `Overline
+                 | `Underline ]
+                wrap -> [> `Text_Decoration ] attrib
+              val a_text_rendering :
+                [< `Auto
+                 | `GeometricPrecision
+                 | `Inherit
+                 | `OptimizeLegibility
+                 | `OptimizeSpeed ]
+                wrap -> [> `Text_Rendering ] attrib
+              val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+              val a_startOffset :
+                Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+              val a_method :
+                [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+              val a_spacing :
+                [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+              val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+              val a_format : string wrap -> [> `Format ] attrib
+              val a_markerUnits :
+                [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
+                [> `MarkerUnits ] attrib
+              val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+              val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+              val a_markerWidth :
+                Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+              val a_markerHeight :
+                Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+              val a_orient :
+                Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+              val a_local : string wrap -> [> `Local ] attrib
+              val a_rendering_intent :
+                [< `Absolute_colorimetric
+                 | `Auto
+                 | `Perceptual
+                 | `Relative_colorimetric
+                 | `Saturation ]
+                wrap -> [> `Rendering_Indent ] attrib
+              val a_gradientUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [ `GradientUnits ] attrib
+              val a_gradientTransform :
+                Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+              val a_spreadMethod :
+                [< `Pad | `Reflect | `Repeat ] wrap ->
+                [> `SpreadMethod ] attrib
+              val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+              val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+              val a_offset :
+                [< `Number of Svg_types.number
+                 | `Percentage of Svg_types.percentage ]
+                wrap -> [> `Offset ] attrib
+              val a_patternUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PatternUnits ] attrib
+              val a_patternContentUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PatternContentUnits ] attrib
+              val a_patternTransform :
+                Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+              val a_clipPathUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `ClipPathUnits ] attrib
+              val a_maskUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `MaskUnits ] attrib
+              val a_maskContentUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `MaskContentUnits ] attrib
+              val a_primitiveUnits :
+                [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+                [> `PrimitiveUnits ] attrib
+              val a_filterRes :
+                Svg_types.number_optional_number wrap ->
+                [> `FilterResUnits ] attrib
+              val a_result : string wrap -> [> `Result ] attrib
+              val a_in :
+                [< `BackgroundAlpha
+                 | `BackgroundImage
+                 | `FillPaint
+                 | `Ref of string
+                 | `SourceAlpha
+                 | `SourceGraphic
+                 | `StrokePaint ]
+                wrap -> [> `In ] attrib
+              val a_in2 :
+                [< `BackgroundAlpha
+                 | `BackgroundImage
+                 | `FillPaint
+                 | `Ref of string
+                 | `SourceAlpha
+                 | `SourceGraphic
+                 | `StrokePaint ]
+                wrap -> [> `In2 ] attrib
+              val a_azimuth : float wrap -> [> `Azimuth ] attrib
+              val a_elevation : float wrap -> [> `Elevation ] attrib
+              val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
+              val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
+              val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
+              val a_specularExponent :
+                float wrap -> [> `SpecularExponent ] attrib
+              val a_specularConstant :
+                float wrap -> [> `SpecularConstant ] attrib
+              val a_limitingConeAngle :
+                float wrap -> [> `LimitingConeAngle ] attrib
+              val a_mode :
+                [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
+                [> `Mode ] attrib
+              val a_feColorMatrix_type :
+                [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ]
+                wrap -> [> `Typefecolor ] attrib
+              val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
+              val a_transfer_type :
+                [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
+                [> `Type_transfert ] attrib
+              val a_tableValues :
+                Svg_types.numbers wrap -> [> `TableValues ] attrib
+              val a_intercept :
+                Svg_types.number wrap -> [> `Intercept ] attrib
+              val a_amplitude :
+                Svg_types.number wrap -> [> `Amplitude ] attrib
+              val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
+              val a_transfer_offset :
+                Svg_types.number wrap -> [> `Offset_transfer ] attrib
+              val a_feComposite_operator :
+                [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
+                [> `OperatorComposite ] attrib
+              val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
+              val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
+              val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
+              val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
+              val a_order :
+                Svg_types.number_optional_number wrap -> [> `Order ] attrib
+              val a_kernelMatrix :
+                Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
+              val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
+              val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
+              val a_kernelUnitLength :
+                Svg_types.number_optional_number wrap ->
+                [> `KernelUnitLength ] attrib
+              val a_targetX : int wrap -> [> `TargetX ] attrib
+              val a_targetY : int wrap -> [> `TargetY ] attrib
+              val a_edgeMode :
+                [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
+              val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
+              val a_surfaceScale :
+                Svg_types.number wrap -> [> `SurfaceScale ] attrib
+              val a_diffuseConstant :
+                Svg_types.number wrap -> [> `DiffuseConstant ] attrib
+              val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
+              val a_xChannelSelector :
+                [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
+              val a_yChannelSelector :
+                [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
+              val a_stdDeviation :
+                Svg_types.number_optional_number wrap ->
+                [> `StdDeviation ] attrib
+              val a_feMorphology_operator :
+                [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
+              val a_radius :
+                Svg_types.number_optional_number wrap -> [> `Radius ] attrib
+              val a_baseFrenquency :
+                Svg_types.number_optional_number wrap ->
+                [> `BaseFrequency ] attrib
+              val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
+              val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
+              val a_stitchTiles :
+                [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
+              val a_feTurbulence_type :
+                [< `FractalNoise | `Turbulence ] wrap ->
+                [> `TypeStitch ] attrib
+              val a_xlink_show :
+                [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
+              val a_xlink_actuate :
+                [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
+                [> `Xlink_actuate ] attrib
+              val a_target : string wrap -> [> `Xlink_target ] attrib
+              val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
+              val a_attributeName : string wrap -> [> `AttributeName ] attrib
+              val a_attributeType :
+                [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
+              val a_begin : string wrap -> [> `Begin ] attrib
+              val a_dur : string wrap -> [> `Dur ] attrib
+              val a_min : string wrap -> [> `Min ] attrib
+              val a_max : string wrap -> [> `Max ] attrib
+              val a_restart :
+                [< `Always | `Never | `WhenNotActive ] wrap ->
+                [> `Restart ] attrib
+              val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
+              val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
+              val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
+              val a_animation_fill :
+                [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+              val a_fill_rule :
+                Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
+              val a_calcMode :
+                [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
+                [> `CalcMode ] attrib
+              val a_animation_values :
+                Svg_types.strings wrap -> [> `Valuesanim ] attrib
+              val a_keyTimes :
+                Svg_types.strings wrap -> [> `KeyTimes ] attrib
+              val a_keySplines :
+                Svg_types.strings wrap -> [> `KeySplines ] attrib
+              val a_from : string wrap -> [> `From ] attrib
+              val a_to : string wrap -> [> `To ] attrib
+              val a_by : string wrap -> [> `By ] attrib
+              val a_additive :
+                [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
+              val a_accumulate :
+                [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
+              val a_keyPoints :
+                Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
+              val a_path : string wrap -> [> `Path ] attrib
+              val a_animateTransform_type :
+                [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
+                [ `Typeanimatetransform ] attrib
+              val a_horiz_origin_x :
+                Svg_types.number wrap -> [> `HorizOriginX ] attrib
+              val a_horiz_origin_y :
+                Svg_types.number wrap -> [> `HorizOriginY ] attrib
+              val a_horiz_adv_x :
+                Svg_types.number wrap -> [> `HorizAdvX ] attrib
+              val a_vert_origin_x :
+                Svg_types.number wrap -> [> `VertOriginX ] attrib
+              val a_vert_origin_y :
+                Svg_types.number wrap -> [> `VertOriginY ] attrib
+              val a_vert_adv_y :
+                Svg_types.number wrap -> [> `VertAdvY ] attrib
+              val a_unicode : string wrap -> [> `Unicode ] attrib
+              val a_glyph_name : string wrap -> [> `glyphname ] attrib
+              val a_orientation :
+                [< `H | `V ] wrap -> [> `Orientation ] attrib
+              val a_arabic_form :
+                [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
+                [> `Arabicform ] attrib
+              val a_lang : string wrap -> [> `Lang ] attrib
+              val a_u1 : string wrap -> [> `U1 ] attrib
+              val a_u2 : string wrap -> [> `U2 ] attrib
+              val a_g1 : string wrap -> [> `G1 ] attrib
+              val a_g2 : string wrap -> [> `G2 ] attrib
+              val a_k : string wrap -> [> `K ] attrib
+              val a_font_family : string wrap -> [> `Font_Family ] attrib
+              val a_font_style : string wrap -> [> `Font_Style ] attrib
+              val a_font_variant : string wrap -> [> `Font_Variant ] attrib
+              val a_font_weight : string wrap -> [> `Font_Weight ] attrib
+              val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
+              val a_font_size : string wrap -> [> `Font_Size ] attrib
+              val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
+              val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
+              val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
+              val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
+              val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
+              val a_cap_height :
+                Svg_types.number wrap -> [> `CapHeight ] attrib
+              val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
+              val a_accent_height :
+                Svg_types.number wrap -> [> `AccentHeight ] attrib
+              val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
+              val a_widths : string wrap -> [> `Widths ] attrib
+              val a_bbox : string wrap -> [> `Bbox ] attrib
+              val a_ideographic :
+                Svg_types.number wrap -> [> `Ideographic ] attrib
+              val a_alphabetic :
+                Svg_types.number wrap -> [> `Alphabetic ] attrib
+              val a_mathematical :
+                Svg_types.number wrap -> [> `Mathematical ] attrib
+              val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
+              val a_videographic :
+                Svg_types.number wrap -> [> `VIdeographic ] attrib
+              val a_v_alphabetic :
+                Svg_types.number wrap -> [> `VAlphabetic ] attrib
+              val a_v_mathematical :
+                Svg_types.number wrap -> [> `VMathematical ] attrib
+              val a_v_hanging :
+                Svg_types.number wrap -> [> `VHanging ] attrib
+              val a_underline_position :
+                Svg_types.number wrap -> [> `UnderlinePosition ] attrib
+              val a_underline_thickness :
+                Svg_types.number wrap -> [> `UnderlineThickness ] attrib
+              val a_strikethrough_position :
+                Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
+              val a_strikethrough_thickness :
+                Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
+              val a_overline_position :
+                Svg_types.number wrap -> [> `OverlinePosition ] attrib
+              val a_overline_thickness :
+                Svg_types.number wrap -> [> `OverlineThickness ] attrib
+              val a_string : string wrap -> [> `String ] attrib
+              val a_name : string wrap -> [> `Name ] attrib
+              val a_alignment_baseline :
+                [< `After_edge
+                 | `Alphabetic
+                 | `Auto
+                 | `Baseline
+                 | `Before_edge
+                 | `Central
+                 | `Hanging
+                 | `Ideographic
+                 | `Inherit
+                 | `Mathematical
+                 | `Middle
+                 | `Text_after_edge
+                 | `Text_before_edge ]
+                wrap -> [> `Alignment_Baseline ] attrib
+              val a_dominant_baseline :
+                [< `Alphabetic
+                 | `Auto
+                 | `Central
+                 | `Hanging
+                 | `Ideographic
+                 | `Inherit
+                 | `Mathematical
+                 | `Middle
+                 | `No_change
+                 | `Reset_size
+                 | `Text_after_edge
+                 | `Text_before_edge
+                 | `Use_script ]
+                wrap -> [> `Dominant_Baseline ] attrib
+              val a_stop_color :
+                Svg_types.color wrap -> [> `Stop_Color ] attrib
+              val a_stop_opacity :
+                Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+              val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+              val a_stroke_width :
+                Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+              val a_stroke_linecap :
+                [< `Butt | `Round | `Square ] wrap ->
+                [> `Stroke_Linecap ] attrib
+              val a_stroke_linejoin :
+                [< `Bever | `Miter | `Round ] wrap ->
+                [> `Stroke_Linejoin ] attrib
+              val a_stroke_miterlimit :
+                float wrap -> [> `Stroke_Miterlimit ] attrib
+              val a_stroke_dasharray :
+                Svg_types.Unit.length list wrap ->
+                [> `Stroke_Dasharray ] attrib
+              val a_stroke_dashoffset :
+                Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+              val a_stroke_opacity :
+                float wrap -> [> `Stroke_Opacity ] attrib
+              val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+              val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
+              val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
+              val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
+              val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+              val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
+              val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
+              val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+              val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
+              val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+              val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+              val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+              val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
+              val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+              val a_onmousedown :
+                Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+              val a_onmouseup :
+                Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+              val a_onmouseover :
+                Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+              val a_onmouseout :
+                Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+              val a_onmousemove :
+                Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+              val a_ontouchstart :
+                Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+              val a_ontouchend :
+                Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+              val a_ontouchmove :
+                Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+              val a_ontouchcancel :
+                Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+              val txt : string wrap -> [> Svg_types.txt ] elt
+              val svg :
+                ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
+                 [> Svg_types.svg ])
+                star
+              val g :
+                ([< Svg_types.g_attr ], [< Svg_types.g_content ],
+                 [> Svg_types.g ])
+                star
+              val defs :
+                ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
+                 [> Svg_types.defs ])
+                star
+              val desc :
+                ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
+                 [> Svg_types.desc ])
+                unary
+              val title :
+                ([< Svg_types.title_attr ], [< Svg_types.title_content ],
+                 [> Svg_types.title ])
+                unary
+              val symbol :
+                ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
+                 [> Svg_types.symbol ])
+                star
+              val use :
+                ([< Svg_types.use_attr ], [< Svg_types.use_content ],
+                 [> Svg_types.use ])
+                star
+              val image :
+                ([< Svg_types.image_attr ], [< Svg_types.image_content ],
+                 [> Svg_types.image ])
+                star
+              val switch :
+                ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
+                 [> Svg_types.switch ])
+                star
+              val style :
+                ([< Svg_types.style_attr ], [< Svg_types.style_content ],
+                 [> Svg_types.style ])
+                unary
+              val path :
+                ([< Svg_types.path_attr ], [< Svg_types.path_content ],
+                 [> Svg_types.path ])
+                star
+              val rect :
+                ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
+                 [> Svg_types.rect ])
+                star
+              val circle :
+                ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
+                 [> Svg_types.circle ])
+                star
+              val ellipse :
+                ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
+                 [> Svg_types.ellipse ])
+                star
+              val line :
+                ([< Svg_types.line_attr ], [< Svg_types.line_content ],
+                 [> Svg_types.line ])
+                star
+              val polyline :
+                ([< Svg_types.polyline_attr ],
+                 [< Svg_types.polyline_content ], [> Svg_types.polyline ])
+                star
+              val polygon :
+                ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
+                 [> Svg_types.polygon ])
+                star
+              val text :
+                ([< Svg_types.text_attr ], [< Svg_types.text_content ],
+                 [> Svg_types.text ])
+                star
+              val tspan :
+                ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
+                 [> Svg_types.tspan ])
+                star
+              val tref :
+                ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
+                 [> Svg_types.tref ])
+                star
+              val textPath :
+                ([< Svg_types.textpath_attr ],
+                 [< Svg_types.textpath_content ], [> Svg_types.textpath ])
+                star
+              val altGlyph :
+                ([< Svg_types.altglyph_attr ],
+                 [< Svg_types.altglyph_content ], [> Svg_types.altglyph ])
+                unary
+              type altglyphdef_content =
+                  [ `Item of Svg_types.altglyphitem elt list
+                  | `Ref of Svg_types.glyphref elt list ]
+              val altGlyphDef :
+                ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
+                 [> Svg_types.altglyphdef ])
+                unary
+              val altGlyphItem :
+                ([< Svg_types.altglyphitem_attr ],
+                 [< Svg_types.altglyphitem_content ],
+                 [> Svg_types.altglyphitem ])
+                star
+              val glyphRef :
+                ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ])
+                nullary
+              val marker :
+                ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
+                 [> Svg_types.marker ])
+                star
+              val color_profile :
+                ([< Svg_types.colorprofile_attr ],
+                 [< Svg_types.colorprofile_content ],
+                 [> Svg_types.colorprofile ])
+                star
+              val linearGradient :
+                ([< Svg_types.lineargradient_attr ],
+                 [< Svg_types.lineargradient_content ],
+                 [> Svg_types.lineargradient ])
+                star
+              val radialGradient :
+                ([< Svg_types.radialgradient_attr ],
+                 [< Svg_types.radialgradient_content ],
+                 [> Svg_types.radialgradient ])
+                star
+              val stop :
+                ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
+                 [> Svg_types.stop ])
+                star
+              val pattern :
+                ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
+                 [> Svg_types.pattern ])
+                star
+              val clipPath :
+                ([< Svg_types.clippath_attr ],
+                 [< Svg_types.clippath_content ], [> Svg_types.clippath ])
+                star
+              val filter :
+                ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
+                 [> Svg_types.filter ])
+                star
+              val feDistantLight :
+                ([< Svg_types.fedistantlight_attr ],
+                 [< Svg_types.fedistantlight_content ],
+                 [> Svg_types.fedistantlight ])
+                star
+              val fePointLight :
+                ([< Svg_types.fepointlight_attr ],
+                 [< Svg_types.fepointlight_content ],
+                 [> Svg_types.fepointlight ])
+                star
+              val feSpotLight :
+                ([< Svg_types.fespotlight_attr ],
+                 [< Svg_types.fespotlight_content ],
+                 [> Svg_types.fespotlight ])
+                star
+              val feBlend :
+                ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
+                 [> Svg_types.feblend ])
+                star
+              val feColorMatrix :
+                ([< Svg_types.fecolormatrix_attr ],
+                 [< Svg_types.fecolormatrix_content ],
+                 [> Svg_types.fecolormatrix ])
+                star
+              val feComponentTransfer :
+                ([< Svg_types.fecomponenttransfer_attr ],
+                 [< Svg_types.fecomponenttransfer_content ],
+                 [> Svg_types.fecomponenttransfer ])
+                star
+              val feFuncA :
+                ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
+                 [> Svg_types.fefunca ])
+                star
+              val feFuncG :
+                ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
+                 [> Svg_types.fefuncg ])
+                star
+              val feFuncB :
+                ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
+                 [> Svg_types.fefuncb ])
+                star
+              val feFuncR :
+                ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
+                 [> Svg_types.fefuncr ])
+                star
+              val feComposite :
+                ([< Svg_types.fecomposite_attr ],
+                 [< Svg_types.fecomposite_content ],
+                 [> Svg_types.fecomposite ])
+                star
+              val feConvolveMatrix :
+                ([< Svg_types.feconvolvematrix_attr ],
+                 [< Svg_types.feconvolvematrix_content ],
+                 [> Svg_types.feconvolvematrix ])
+                star
+              val feDiffuseLighting :
+                ([< Svg_types.fediffuselighting_attr ],
+                 [< Svg_types.fediffuselighting_content ],
+                 [> Svg_types.fediffuselighting ])
+                star
+              val feDisplacementMap :
+                ([< Svg_types.fedisplacementmap_attr ],
+                 [< Svg_types.fedisplacementmap_content ],
+                 [> Svg_types.fedisplacementmap ])
+                star
+              val feFlood :
+                ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
+                 [> Svg_types.feflood ])
+                star
+              val feGaussianBlur :
+                ([< Svg_types.fegaussianblur_attr ],
+                 [< Svg_types.fegaussianblur_content ],
+                 [> Svg_types.fegaussianblur ])
+                star
+              val feImage :
+                ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
+                 [> Svg_types.feimage ])
+                star
+              val feMerge :
+                ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
+                 [> Svg_types.femerge ])
+                star
+              val feMorphology :
+                ([< Svg_types.femorphology_attr ],
+                 [< Svg_types.femorphology_content ],
+                 [> Svg_types.femorphology ])
+                star
+              val feOffset :
+                ([< Svg_types.feoffset_attr ],
+                 [< Svg_types.feoffset_content ], [> Svg_types.feoffset ])
+                star
+              val feSpecularLighting :
+                ([< Svg_types.fespecularlighting_attr ],
+                 [< Svg_types.fespecularlighting_content ],
+                 [> Svg_types.fespecularlighting ])
+                star
+              val feTile :
+                ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
+                 [> Svg_types.fetile ])
+                star
+              val feTurbulence :
+                ([< Svg_types.feturbulence_attr ],
+                 [< Svg_types.feturbulence_content ],
+                 [> Svg_types.feturbulence ])
+                star
+              val cursor :
+                ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
+                 [> Svg_types.cursor ])
+                star
+              val a :
+                ([< Svg_types.a_attr ], [< Svg_types.a_content ],
+                 [> Svg_types.a ])
+                star
+              val view :
+                ([< Svg_types.view_attr ], [< Svg_types.view_content ],
+                 [> Svg_types.view ])
+                star
+              val script :
+                ([< Svg_types.script_attr ], [< Svg_types.script_content ],
+                 [> Svg_types.script ])
+                unary
+              val animate :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
+                star
+              val set :
+                ([< Svg_types.set_attr ], [< Svg_types.set_content ],
+                 [> Svg_types.set ])
+                star
+              val animateMotion :
+                ([< Svg_types.animatemotion_attr ],
+                 [< Svg_types.animatemotion_content ],
+                 [> Svg_types.animatemotion ])
+                star
+              val mpath :
+                ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
+                 [> Svg_types.mpath ])
+                star
+              val animateColor :
+                ([< Svg_types.animatecolor_attr ],
+                 [< Svg_types.animatecolor_content ],
+                 [> Svg_types.animatecolor ])
+                star
+              val animateTransform :
+                ([< Svg_types.animatetransform_attr ],
+                 [< Svg_types.animatetransform_content ],
+                 [> Svg_types.animatetransform ])
+                star
+              val font :
+                ([< Svg_types.font_attr ], [< Svg_types.font_content ],
+                 [> Svg_types.font ])
+                star
+              val glyph :
+                ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
+                 [> Svg_types.glyph ])
+                star
+              val missing_glyph :
+                ([< Svg_types.missingglyph_attr ],
+                 [< Svg_types.missingglyph_content ],
+                 [> Svg_types.missingglyph ])
+                star
+              val hkern :
+                ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
+              val vkern :
+                ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
+              val font_face :
+                ([< Svg_types.font_face_attr ], [> Svg_types.font_face ])
+                nullary
+              val font_face_src :
+                ([< Svg_types.font_face_src_attr ],
+                 [< Svg_types.font_face_src_content ],
+                 [> Svg_types.font_face_src ])
+                star
+              val font_face_uri :
+                ([< Svg_types.font_face_uri_attr ],
+                 [< Svg_types.font_face_uri_content ],
+                 [> Svg_types.font_face_uri ])
+                star
+              val font_face_format :
+                ([< Svg_types.font_face_format_attr ],
+                 [> Svg_types.font_face_format ])
+                nullary
+              val font_face_name :
+                ([< Svg_types.font_face_name_attr ],
+                 [> Svg_types.font_face_name ])
+                nullary
+              val metadata :
+                ?a:Svg_types.metadata_attr attrib list ->
+                Xml.elt list_wrap -> [> Svg_types.metadata ] elt
+              val foreignObject :
+                ?a:Svg_types.foreignobject_attr attrib list ->
+                Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+              val pcdata : string wrap -> [> Svg_types.txt ] elt
+              val animation :
+                ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+                 [> Svg_types.animate ])
+                star
+              val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+              val tot : Xml.elt -> 'a elt
+              val totl : Xml.elt list_wrap -> 'a elt list_wrap
+              val toelt : 'a elt -> Xml.elt
+              val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+              val doc_toelt : doc -> Xml.elt
+              val to_xmlattribs : 'a attrib list -> Xml.attrib list
+              val to_attrib : Xml.attrib -> 'a attrib
+              module Unsafe :
+                sig
+                  val data : string wrap -> 'a elt
+                  val node :
+                    string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+                  val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+                  val coerce_elt : 'a elt -> 'b elt
+                  val string_attrib : string -> string wrap -> 'a attrib
+                  val float_attrib : string -> float wrap -> 'a attrib
+                  val int_attrib : string -> int wrap -> 'a attrib
+                  val uri_attrib : string -> uri wrap -> 'a attrib
+                  val space_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                  val comma_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                end
+            end
+          type 'a elt = 'a elt
+          type doc = [ `Svg ] elt
+          type 'a attrib = 'a attrib
+          module Xml :
+            sig
+              module W :
+                sig
+                  type 'a t = 'a Xml_shared.W.t
+                  val return : 'a -> 'a t
+                  type ('a, 'b) ft = ('a, 'b) Xml_shared.W.ft
+                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                  type 'a tlist = 'a Xml_shared.W.tlist
+                  val nil : unit -> 'a tlist
+                  val singleton : 'a t -> 'a tlist
+                  val cons : 'a t -> 'a tlist -> 'a tlist
+                  val append : 'a tlist -> 'a tlist -> 'a tlist
+                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                end
+              type 'a wrap = 'a W.t
+              type 'a list_wrap = 'a W.tlist
+              type uri = Xml_shared.uri
+              val string_of_uri : (uri, string) W.ft
+              val uri_of_string : (string, uri) W.ft
+              type aname = string
+              type event_handler = Xml_shared.event_handler
+              type mouse_event_handler = Xml_shared.mouse_event_handler
+              type keyboard_event_handler = Xml_shared.keyboard_event_handler
+              type touch_event_handler = Xml_shared.touch_event_handler
+              type attrib = Xml_shared.attrib
+              val float_attrib : aname -> float wrap -> attrib
+              val int_attrib : aname -> int wrap -> attrib
+              val string_attrib : aname -> string wrap -> attrib
+              val space_sep_attrib : aname -> string list wrap -> attrib
+              val comma_sep_attrib : aname -> string list wrap -> attrib
+              val event_handler_attrib : aname -> event_handler -> attrib
+              val mouse_event_handler_attrib :
+                aname -> mouse_event_handler -> attrib
+              val keyboard_event_handler_attrib :
+                aname -> keyboard_event_handler -> attrib
+              val touch_event_handler_attrib :
+                aname -> touch_event_handler -> attrib
+              val uri_attrib : aname -> uri wrap -> attrib
+              val uris_attrib : aname -> uri list wrap -> attrib
+              type elt = Xml_shared.elt
+              type ename = string
+              val empty : unit -> elt
+              val comment : string -> elt
+              val pcdata : string wrap -> elt
+              val encodedpcdata : string wrap -> elt
+              val entity : string -> elt
+              val leaf : ?a:attrib list -> ename -> elt
+              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+              val cdata : string -> elt
+              val cdata_script : string -> elt
+              val cdata_style : string -> elt
+            end
+          type 'a wrap = 'a Xml.W.t
+          type 'a list_wrap = 'a Xml.W.tlist
+          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+          type ('a, 'b, 'c) unary =
+              ?a:'a attrib list -> 'b elt wrap -> 'c elt
+          type ('a, 'b, 'c) star =
+              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          module Info : Xml_sigs.Info
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) Xml.W.ft
+          val uri_of_string : (string, uri) Xml.W.ft
+          val a_version : string wrap -> [> `Version ] attrib
+          val a_baseProfile : string wrap -> [> `BaseProfile ] attrib
+          val a_x : Svg_types.coord wrap -> [> `X ] attrib
+          val a_y : Svg_types.coord wrap -> [> `Y ] attrib
+          val a_width : Svg_types.Unit.length wrap -> [> `Width ] attrib
+          val a_height : Svg_types.Unit.length wrap -> [> `Height ] attrib
+          val a_preserveAspectRatio :
+            string wrap -> [> `PreserveAspectRatio ] attrib
+          val a_contentScriptType :
+            string wrap -> [> `ContentScriptType ] attrib
+          val a_contentStyleType :
+            string wrap -> [> `ContentStyleType ] attrib
+          val a_zoomAndPan :
+            [< `Disable | `Magnify ] wrap -> [> `ZoomAndSpan ] attrib
+          val a_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+          val a_xlink_href : Svg_types.iri wrap -> [> `Xlink_href ] attrib
+          val a_requiredFeatures :
+            Svg_types.spacestrings wrap -> [> `RequiredFeatures ] attrib
+          val a_requiredExtensions :
+            Svg_types.spacestrings wrap -> [> `RequiredExtension ] attrib
+          val a_systemLanguage :
+            Svg_types.commastrings wrap -> [> `SystemLanguage ] attrib
+          val a_externalRessourcesRequired :
+            bool wrap -> [> `ExternalRessourcesRequired ] attrib
+          val a_id : string wrap -> [> `Id ] attrib
+          val a_user_data : string -> string wrap -> [> `User_data ] attrib
+          val a_xml_base : Svg_types.iri wrap -> [> `Xml_Base ] attrib
+          val a_xml_lang : Svg_types.iri wrap -> [> `Xml_Lang ] attrib
+          val a_xml_space :
+            [< `Default | `Preserve ] wrap -> [> `Xml_Space ] attrib
+          val a_type : string wrap -> [> `Type ] attrib
+          val a_media : Svg_types.commastrings wrap -> [> `Media ] attrib
+          val a_xlink_title : string wrap -> [> `Title ] attrib
+          val a_class : Svg_types.spacestrings wrap -> [> `Class ] attrib
+          val a_style : string wrap -> [> `Style ] attrib
+          val a_transform :
+            Svg_types.transforms wrap -> [> `Transform ] attrib
+          val a_viewBox : Svg_types.fourfloats wrap -> [> `ViewBox ] attrib
+          val a_d : string wrap -> [> `D ] attrib
+          val a_pathLength : float wrap -> [> `PathLength ] attrib
+          val a_rx : Svg_types.Unit.length wrap -> [> `Rx ] attrib
+          val a_ry : Svg_types.Unit.length wrap -> [> `Ry ] attrib
+          val a_cx : Svg_types.Unit.length wrap -> [> `Cx ] attrib
+          val a_cy : Svg_types.Unit.length wrap -> [> `Cy ] attrib
+          val a_r : Svg_types.Unit.length wrap -> [> `R ] attrib
+          val a_x1 : Svg_types.coord wrap -> [> `X1 ] attrib
+          val a_y1 : Svg_types.coord wrap -> [> `Y1 ] attrib
+          val a_x2 : Svg_types.coord wrap -> [> `X2 ] attrib
+          val a_y2 : Svg_types.coord wrap -> [> `Y2 ] attrib
+          val a_points : Svg_types.coords wrap -> [> `Points ] attrib
+          val a_x_list : Svg_types.lengths wrap -> [> `X_list ] attrib
+          val a_y_list : Svg_types.lengths wrap -> [> `Y_list ] attrib
+          val a_dx : Svg_types.number wrap -> [> `Dx ] attrib
+          val a_dy : Svg_types.number wrap -> [> `Dy ] attrib
+          val a_dx_list : Svg_types.lengths wrap -> [> `Dx_list ] attrib
+          val a_dy_list : Svg_types.lengths wrap -> [> `Dy_list ] attrib
+          val a_lengthAdjust :
+            [< `Spacing | `SpacingAndGlyphs ] wrap ->
+            [> `LengthAdjust ] attrib
+          val a_textLength :
+            Svg_types.Unit.length wrap -> [> `TextLength ] attrib
+          val a_text_anchor :
+            [< `End | `Inherit | `Middle | `Start ] wrap ->
+            [> `Text_Anchor ] attrib
+          val a_text_decoration :
+            [< `Blink
+             | `Inherit
+             | `Line_through
+             | `None
+             | `Overline
+             | `Underline ]
+            wrap -> [> `Text_Decoration ] attrib
+          val a_text_rendering :
+            [< `Auto
+             | `GeometricPrecision
+             | `Inherit
+             | `OptimizeLegibility
+             | `OptimizeSpeed ]
+            wrap -> [> `Text_Rendering ] attrib
+          val a_rotate : Svg_types.numbers wrap -> [> `Rotate ] attrib
+          val a_startOffset :
+            Svg_types.Unit.length wrap -> [> `StartOffset ] attrib
+          val a_method : [< `Align | `Stretch ] wrap -> [> `Method ] attrib
+          val a_spacing : [< `Auto | `Exact ] wrap -> [> `Spacing ] attrib
+          val a_glyphRef : string wrap -> [> `GlyphRef ] attrib
+          val a_format : string wrap -> [> `Format ] attrib
+          val a_markerUnits :
+            [< `StrokeWidth | `UserSpaceOnUse ] wrap ->
+            [> `MarkerUnits ] attrib
+          val a_refX : Svg_types.coord wrap -> [> `RefX ] attrib
+          val a_refY : Svg_types.coord wrap -> [> `RefY ] attrib
+          val a_markerWidth :
+            Svg_types.Unit.length wrap -> [> `MarkerWidth ] attrib
+          val a_markerHeight :
+            Svg_types.Unit.length wrap -> [> `MarkerHeight ] attrib
+          val a_orient :
+            Svg_types.Unit.angle option wrap -> [> `Orient ] attrib
+          val a_local : string wrap -> [> `Local ] attrib
+          val a_rendering_intent :
+            [< `Absolute_colorimetric
+             | `Auto
+             | `Perceptual
+             | `Relative_colorimetric
+             | `Saturation ]
+            wrap -> [> `Rendering_Indent ] attrib
+          val a_gradientUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [ `GradientUnits ] attrib
+          val a_gradientTransform :
+            Svg_types.transforms wrap -> [> `GradientTransform ] attrib
+          val a_spreadMethod :
+            [< `Pad | `Reflect | `Repeat ] wrap -> [> `SpreadMethod ] attrib
+          val a_fx : Svg_types.coord wrap -> [> `Fx ] attrib
+          val a_fy : Svg_types.coord wrap -> [> `Fy ] attrib
+          val a_offset :
+            [< `Number of Svg_types.number
+             | `Percentage of Svg_types.percentage ]
+            wrap -> [> `Offset ] attrib
+          val a_patternUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PatternUnits ] attrib
+          val a_patternContentUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PatternContentUnits ] attrib
+          val a_patternTransform :
+            Svg_types.transforms wrap -> [> `PatternTransform ] attrib
+          val a_clipPathUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `ClipPathUnits ] attrib
+          val a_maskUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `MaskUnits ] attrib
+          val a_maskContentUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `MaskContentUnits ] attrib
+          val a_primitiveUnits :
+            [< `ObjectBoundingBox | `UserSpaceOnUse ] wrap ->
+            [> `PrimitiveUnits ] attrib
+          val a_filterRes :
+            Svg_types.number_optional_number wrap ->
+            [> `FilterResUnits ] attrib
+          val a_result : string wrap -> [> `Result ] attrib
+          val a_in :
+            [< `BackgroundAlpha
+             | `BackgroundImage
+             | `FillPaint
+             | `Ref of string
+             | `SourceAlpha
+             | `SourceGraphic
+             | `StrokePaint ]
+            wrap -> [> `In ] attrib
+          val a_in2 :
+            [< `BackgroundAlpha
+             | `BackgroundImage
+             | `FillPaint
+             | `Ref of string
+             | `SourceAlpha
+             | `SourceGraphic
+             | `StrokePaint ]
+            wrap -> [> `In2 ] attrib
+          val a_azimuth : float wrap -> [> `Azimuth ] attrib
+          val a_elevation : float wrap -> [> `Elevation ] attrib
+          val a_pointsAtX : float wrap -> [> `PointsAtX ] attrib
+          val a_pointsAtY : float wrap -> [> `PointsAtY ] attrib
+          val a_pointsAtZ : float wrap -> [> `PointsAtZ ] attrib
+          val a_specularExponent :
+            float wrap -> [> `SpecularExponent ] attrib
+          val a_specularConstant :
+            float wrap -> [> `SpecularConstant ] attrib
+          val a_limitingConeAngle :
+            float wrap -> [> `LimitingConeAngle ] attrib
+          val a_mode :
+            [< `Darken | `Lighten | `Multiply | `Normal | `Screen ] wrap ->
+            [> `Mode ] attrib
+          val a_feColorMatrix_type :
+            [< `HueRotate | `LuminanceToAlpha | `Matrix | `Saturate ] wrap ->
+            [> `Typefecolor ] attrib
+          val a_values : Svg_types.numbers wrap -> [> `Values ] attrib
+          val a_transfer_type :
+            [< `Discrete | `Gamma | `Identity | `Linear | `Table ] wrap ->
+            [> `Type_transfert ] attrib
+          val a_tableValues :
+            Svg_types.numbers wrap -> [> `TableValues ] attrib
+          val a_intercept : Svg_types.number wrap -> [> `Intercept ] attrib
+          val a_amplitude : Svg_types.number wrap -> [> `Amplitude ] attrib
+          val a_exponent : Svg_types.number wrap -> [> `Exponent ] attrib
+          val a_transfer_offset :
+            Svg_types.number wrap -> [> `Offset_transfer ] attrib
+          val a_feComposite_operator :
+            [< `Arithmetic | `Atop | `In | `Out | `Over | `Xor ] wrap ->
+            [> `OperatorComposite ] attrib
+          val a_k1 : Svg_types.number wrap -> [> `K1 ] attrib
+          val a_k2 : Svg_types.number wrap -> [> `K2 ] attrib
+          val a_k3 : Svg_types.number wrap -> [> `K3 ] attrib
+          val a_k4 : Svg_types.number wrap -> [> `K4 ] attrib
+          val a_order :
+            Svg_types.number_optional_number wrap -> [> `Order ] attrib
+          val a_kernelMatrix :
+            Svg_types.numbers wrap -> [> `KernelMatrix ] attrib
+          val a_divisor : Svg_types.number wrap -> [> `Divisor ] attrib
+          val a_bias : Svg_types.number wrap -> [> `Bias ] attrib
+          val a_kernelUnitLength :
+            Svg_types.number_optional_number wrap ->
+            [> `KernelUnitLength ] attrib
+          val a_targetX : int wrap -> [> `TargetX ] attrib
+          val a_targetY : int wrap -> [> `TargetY ] attrib
+          val a_edgeMode :
+            [< `Duplicate | `None | `Wrap ] wrap -> [> `TargetY ] attrib
+          val a_preserveAlpha : bool wrap -> [> `TargetY ] attrib
+          val a_surfaceScale :
+            Svg_types.number wrap -> [> `SurfaceScale ] attrib
+          val a_diffuseConstant :
+            Svg_types.number wrap -> [> `DiffuseConstant ] attrib
+          val a_scale : Svg_types.number wrap -> [> `Scale ] attrib
+          val a_xChannelSelector :
+            [< `A | `B | `G | `R ] wrap -> [> `XChannelSelector ] attrib
+          val a_yChannelSelector :
+            [< `A | `B | `G | `R ] wrap -> [> `YChannelSelector ] attrib
+          val a_stdDeviation :
+            Svg_types.number_optional_number wrap ->
+            [> `StdDeviation ] attrib
+          val a_feMorphology_operator :
+            [< `Dilate | `Erode ] wrap -> [> `OperatorMorphology ] attrib
+          val a_radius :
+            Svg_types.number_optional_number wrap -> [> `Radius ] attrib
+          val a_baseFrenquency :
+            Svg_types.number_optional_number wrap ->
+            [> `BaseFrequency ] attrib
+          val a_numOctaves : int wrap -> [> `NumOctaves ] attrib
+          val a_seed : Svg_types.number wrap -> [> `Seed ] attrib
+          val a_stitchTiles :
+            [< `NoStitch | `Stitch ] wrap -> [> `StitchTiles ] attrib
+          val a_feTurbulence_type :
+            [< `FractalNoise | `Turbulence ] wrap -> [> `TypeStitch ] attrib
+          val a_xlink_show :
+            [< `New | `Replace ] wrap -> [> `Xlink_show ] attrib
+          val a_xlink_actuate :
+            [< `None | `OnLoad | `OnRequest | `Other ] wrap ->
+            [> `Xlink_actuate ] attrib
+          val a_target : string wrap -> [> `Xlink_target ] attrib
+          val a_viewTarget : string wrap -> [> `ViewTarget ] attrib
+          val a_attributeName : string wrap -> [> `AttributeName ] attrib
+          val a_attributeType :
+            [< `Auto | `CSS | `XML ] wrap -> [> `AttributeType ] attrib
+          val a_begin : string wrap -> [> `Begin ] attrib
+          val a_dur : string wrap -> [> `Dur ] attrib
+          val a_min : string wrap -> [> `Min ] attrib
+          val a_max : string wrap -> [> `Max ] attrib
+          val a_restart :
+            [< `Always | `Never | `WhenNotActive ] wrap ->
+            [> `Restart ] attrib
+          val a_repeatCount : string wrap -> [> `RepeatCount ] attrib
+          val a_repeatDur : string wrap -> [> `RepeatDur ] attrib
+          val a_fill : Svg_types.paint wrap -> [> `Fill ] attrib
+          val a_animation_fill :
+            [< `Freeze | `Remove ] wrap -> [> `Fill_Animation ] attrib
+          val a_fill_rule :
+            Svg_types.fill_rule wrap -> [> `Fill_rule ] attrib
+          val a_calcMode :
+            [< `Discrete | `Linear | `Paced | `Spline ] wrap ->
+            [> `CalcMode ] attrib
+          val a_animation_values :
+            Svg_types.strings wrap -> [> `Valuesanim ] attrib
+          val a_keyTimes : Svg_types.strings wrap -> [> `KeyTimes ] attrib
+          val a_keySplines :
+            Svg_types.strings wrap -> [> `KeySplines ] attrib
+          val a_from : string wrap -> [> `From ] attrib
+          val a_to : string wrap -> [> `To ] attrib
+          val a_by : string wrap -> [> `By ] attrib
+          val a_additive : [< `Replace | `Sum ] wrap -> [> `Additive ] attrib
+          val a_accumulate :
+            [< `None | `Sum ] wrap -> [> `Accumulate ] attrib
+          val a_keyPoints :
+            Svg_types.numbers_semicolon wrap -> [> `KeyPoints ] attrib
+          val a_path : string wrap -> [> `Path ] attrib
+          val a_animateTransform_type :
+            [ `Rotate | `Scale | `SkewX | `SkewY | `Translate ] wrap ->
+            [ `Typeanimatetransform ] attrib
+          val a_horiz_origin_x :
+            Svg_types.number wrap -> [> `HorizOriginX ] attrib
+          val a_horiz_origin_y :
+            Svg_types.number wrap -> [> `HorizOriginY ] attrib
+          val a_horiz_adv_x : Svg_types.number wrap -> [> `HorizAdvX ] attrib
+          val a_vert_origin_x :
+            Svg_types.number wrap -> [> `VertOriginX ] attrib
+          val a_vert_origin_y :
+            Svg_types.number wrap -> [> `VertOriginY ] attrib
+          val a_vert_adv_y : Svg_types.number wrap -> [> `VertAdvY ] attrib
+          val a_unicode : string wrap -> [> `Unicode ] attrib
+          val a_glyph_name : string wrap -> [> `glyphname ] attrib
+          val a_orientation : [< `H | `V ] wrap -> [> `Orientation ] attrib
+          val a_arabic_form :
+            [< `Initial | `Isolated | `Medial | `Terminal ] wrap ->
+            [> `Arabicform ] attrib
+          val a_lang : string wrap -> [> `Lang ] attrib
+          val a_u1 : string wrap -> [> `U1 ] attrib
+          val a_u2 : string wrap -> [> `U2 ] attrib
+          val a_g1 : string wrap -> [> `G1 ] attrib
+          val a_g2 : string wrap -> [> `G2 ] attrib
+          val a_k : string wrap -> [> `K ] attrib
+          val a_font_family : string wrap -> [> `Font_Family ] attrib
+          val a_font_style : string wrap -> [> `Font_Style ] attrib
+          val a_font_variant : string wrap -> [> `Font_Variant ] attrib
+          val a_font_weight : string wrap -> [> `Font_Weight ] attrib
+          val a_font_stretch : string wrap -> [> `Font_Stretch ] attrib
+          val a_font_size : string wrap -> [> `Font_Size ] attrib
+          val a_unicode_range : string wrap -> [> `UnicodeRange ] attrib
+          val a_units_per_em : string wrap -> [> `UnitsPerEm ] attrib
+          val a_stemv : Svg_types.number wrap -> [> `Stemv ] attrib
+          val a_stemh : Svg_types.number wrap -> [> `Stemh ] attrib
+          val a_slope : Svg_types.number wrap -> [> `Slope ] attrib
+          val a_cap_height : Svg_types.number wrap -> [> `CapHeight ] attrib
+          val a_x_height : Svg_types.number wrap -> [> `XHeight ] attrib
+          val a_accent_height :
+            Svg_types.number wrap -> [> `AccentHeight ] attrib
+          val a_ascent : Svg_types.number wrap -> [> `Ascent ] attrib
+          val a_widths : string wrap -> [> `Widths ] attrib
+          val a_bbox : string wrap -> [> `Bbox ] attrib
+          val a_ideographic :
+            Svg_types.number wrap -> [> `Ideographic ] attrib
+          val a_alphabetic : Svg_types.number wrap -> [> `Alphabetic ] attrib
+          val a_mathematical :
+            Svg_types.number wrap -> [> `Mathematical ] attrib
+          val a_hanging : Svg_types.number wrap -> [> `Hanging ] attrib
+          val a_videographic :
+            Svg_types.number wrap -> [> `VIdeographic ] attrib
+          val a_v_alphabetic :
+            Svg_types.number wrap -> [> `VAlphabetic ] attrib
+          val a_v_mathematical :
+            Svg_types.number wrap -> [> `VMathematical ] attrib
+          val a_v_hanging : Svg_types.number wrap -> [> `VHanging ] attrib
+          val a_underline_position :
+            Svg_types.number wrap -> [> `UnderlinePosition ] attrib
+          val a_underline_thickness :
+            Svg_types.number wrap -> [> `UnderlineThickness ] attrib
+          val a_strikethrough_position :
+            Svg_types.number wrap -> [> `StrikethroughPosition ] attrib
+          val a_strikethrough_thickness :
+            Svg_types.number wrap -> [> `StrikethroughThickness ] attrib
+          val a_overline_position :
+            Svg_types.number wrap -> [> `OverlinePosition ] attrib
+          val a_overline_thickness :
+            Svg_types.number wrap -> [> `OverlineThickness ] attrib
+          val a_string : string wrap -> [> `String ] attrib
+          val a_name : string wrap -> [> `Name ] attrib
+          val a_alignment_baseline :
+            [< `After_edge
+             | `Alphabetic
+             | `Auto
+             | `Baseline
+             | `Before_edge
+             | `Central
+             | `Hanging
+             | `Ideographic
+             | `Inherit
+             | `Mathematical
+             | `Middle
+             | `Text_after_edge
+             | `Text_before_edge ]
+            wrap -> [> `Alignment_Baseline ] attrib
+          val a_dominant_baseline :
+            [< `Alphabetic
+             | `Auto
+             | `Central
+             | `Hanging
+             | `Ideographic
+             | `Inherit
+             | `Mathematical
+             | `Middle
+             | `No_change
+             | `Reset_size
+             | `Text_after_edge
+             | `Text_before_edge
+             | `Use_script ]
+            wrap -> [> `Dominant_Baseline ] attrib
+          val a_stop_color : Svg_types.color wrap -> [> `Stop_Color ] attrib
+          val a_stop_opacity :
+            Svg_types.number wrap -> [> `Stop_Opacity ] attrib
+          val a_stroke : Svg_types.paint wrap -> [> `Stroke ] attrib
+          val a_stroke_width :
+            Svg_types.Unit.length wrap -> [> `Stroke_Width ] attrib
+          val a_stroke_linecap :
+            [< `Butt | `Round | `Square ] wrap -> [> `Stroke_Linecap ] attrib
+          val a_stroke_linejoin :
+            [< `Bever | `Miter | `Round ] wrap ->
+            [> `Stroke_Linejoin ] attrib
+          val a_stroke_miterlimit :
+            float wrap -> [> `Stroke_Miterlimit ] attrib
+          val a_stroke_dasharray :
+            Svg_types.Unit.length list wrap -> [> `Stroke_Dasharray ] attrib
+          val a_stroke_dashoffset :
+            Svg_types.Unit.length wrap -> [> `Stroke_Dashoffset ] attrib
+          val a_stroke_opacity : float wrap -> [> `Stroke_Opacity ] attrib
+          val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+          val a_onactivate : Xml.event_handler -> [> `OnActivate ] attrib
+          val a_onbegin : Xml.event_handler -> [> `OnBegin ] attrib
+          val a_onend : Xml.event_handler -> [> `OnEnd ] attrib
+          val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+          val a_onfocusin : Xml.event_handler -> [> `OnFocusIn ] attrib
+          val a_onfocusout : Xml.event_handler -> [> `OnFocusOut ] attrib
+          val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+          val a_onrepeat : Xml.event_handler -> [> `OnRepeat ] attrib
+          val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+          val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+          val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+          val a_onzoom : Xml.event_handler -> [> `OnZoom ] attrib
+          val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+          val a_onmousedown :
+            Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+          val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+          val a_onmouseover :
+            Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+          val a_onmouseout :
+            Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+          val a_onmousemove :
+            Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+          val a_ontouchstart :
+            Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+          val a_ontouchend :
+            Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+          val a_ontouchmove :
+            Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+          val a_ontouchcancel :
+            Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+          val txt : string wrap -> [> Svg_types.txt ] elt
+          val svg :
+            ([< Svg_types.svg_attr ], [< Svg_types.svg_content ],
+             [> Svg_types.svg ])
             star
-          val mark :
-            ([< Html_types.mark_attrib ], [< Html_types.mark_content_fun ],
-             [> Html_types.mark ])
+          val g :
+            ([< Svg_types.g_attr ], [< Svg_types.g_content ],
+             [> Svg_types.g ])
             star
-          val wbr : ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
-          val bdo :
-            dir:[< `Ltr | `Rtl ] wrap ->
-            ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
-             [> Html_types.bdo ])
+          val defs :
+            ([< Svg_types.defs_attr ], [< Svg_types.defs_content ],
+             [> Svg_types.defs ])
             star
-          val abbr :
-            ([< Html_types.abbr_attrib ], [< Html_types.abbr_content_fun ],
-             [> Html_types.abbr ])
+          val desc :
+            ([< Svg_types.desc_attr ], [< Svg_types.desc_content ],
+             [> Svg_types.desc ])
+            unary
+          val title :
+            ([< Svg_types.title_attr ], [< Svg_types.title_content ],
+             [> Svg_types.title ])
+            unary
+          val symbol :
+            ([< Svg_types.symbol_attr ], [< Svg_types.symbol_content ],
+             [> Svg_types.symbol ])
             star
-          val br : ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
-          val cite :
-            ([< Html_types.cite_attrib ], [< Html_types.cite_content_fun ],
-             [> Html_types.cite ])
+          val use :
+            ([< Svg_types.use_attr ], [< Svg_types.use_content ],
+             [> Svg_types.use ])
             star
-          val code :
-            ([< Html_types.code_attrib ], [< Html_types.code_content_fun ],
-             [> Html_types.code ])
+          val image :
+            ([< Svg_types.image_attr ], [< Svg_types.image_content ],
+             [> Svg_types.image ])
             star
-          val dfn :
-            ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
-             [> Html_types.dfn ])
+          val switch :
+            ([< Svg_types.switch_attr ], [< Svg_types.switch_content ],
+             [> Svg_types.switch ])
             star
-          val em :
-            ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
-             [> Html_types.em ])
+          val style :
+            ([< Svg_types.style_attr ], [< Svg_types.style_content ],
+             [> Svg_types.style ])
+            unary
+          val path :
+            ([< Svg_types.path_attr ], [< Svg_types.path_content ],
+             [> Svg_types.path ])
             star
-          val kbd :
-            ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
-             [> Html_types.kbd ])
+          val rect :
+            ([< Svg_types.rect_attr ], [< Svg_types.rect_content ],
+             [> Svg_types.rect ])
             star
-          val q :
-            ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
-             [> Html_types.q ])
+          val circle :
+            ([< Svg_types.circle_attr ], [< Svg_types.circle_content ],
+             [> Svg_types.circle ])
             star
-          val samp :
-            ([< Html_types.samp_attrib ], [< Html_types.samp_content_fun ],
-             [> Html_types.samp ])
+          val ellipse :
+            ([< Svg_types.ellipse_attr ], [< Svg_types.ellipse_content ],
+             [> Svg_types.ellipse ])
             star
-          val span :
-            ([< Html_types.span_attrib ], [< Html_types.span_content_fun ],
-             [> Html_types.span ])
+          val line :
+            ([< Svg_types.line_attr ], [< Svg_types.line_content ],
+             [> Svg_types.line ])
             star
-          val strong :
-            ([< Html_types.strong_attrib ],
-             [< Html_types.strong_content_fun ], [> Html_types.strong ])
+          val polyline :
+            ([< Svg_types.polyline_attr ], [< Svg_types.polyline_content ],
+             [> Svg_types.polyline ])
             star
-          val time :
-            ([< Html_types.time_attrib ], [< Html_types.time_content_fun ],
-             [> Html_types.time ])
+          val polygon :
+            ([< Svg_types.polygon_attr ], [< Svg_types.polygon_content ],
+             [> Svg_types.polygon ])
             star
-          val var :
-            ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
-             [> Html_types.var ])
+          val text :
+            ([< Svg_types.text_attr ], [< Svg_types.text_content ],
+             [> Svg_types.text ])
             star
-          val del :
-            ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
-          val ins :
-            ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
-          val img :
-            src:Xml.uri wrap ->
-            alt:Html_types.text wrap ->
-            ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
-          val picture :
-            img:[< Html_types.img ] elt wrap ->
-            ([< Html_types.picture_attrib ],
-             [< Html_types.picture_content_fun ], [> Html_types.picture ])
+          val tspan :
+            ([< Svg_types.tspan_attr ], [< Svg_types.tspan_content ],
+             [> Svg_types.tspan ])
             star
-          val iframe :
-            ([< Html_types.iframe_attrib ],
-             [< Html_types.iframe_content_fun ], [> Html_types.iframe ])
+          val tref :
+            ([< Svg_types.tref_attr ], [< Svg_types.tref_content ],
+             [> Svg_types.tref ])
             star
-          val object_ :
-            ?params:[< Html_types.param ] elt list_wrap ->
-            ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
-          val param :
-            ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
-          val embed :
-            ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
-          val audio :
-            ?src:Xml.uri wrap ->
-            ?srcs:[< Html_types.source ] elt list_wrap ->
-            ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ]) star
-          val video :
-            ?src:Xml.uri wrap ->
-            ?srcs:[< Html_types.source ] elt list_wrap ->
-            ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ]) star
-          val canvas :
-            ([< Html_types.canvas_attrib ], 'a, [> 'a Html_types.canvas ])
+          val textPath :
+            ([< Svg_types.textpath_attr ], [< Svg_types.textpath_content ],
+             [> Svg_types.textpath ])
             star
-          val source :
-            ([< Html_types.source_attrib ], [> Html_types.source ]) nullary
-          val area :
-            alt:Html_types.text wrap ->
-            ([< `Accesskey
-              | `Alt
-              | `Aria
-              | `Class
-              | `Contenteditable
-              | `Contextmenu
-              | `Coords
-              | `Dir
-              | `Draggable
-              | `Hidden
-              | `Hreflang
-              | `Id
-              | `Lang
-              | `Media
-              | `Mime_type
-              | `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
-              | `Rel
-              | `Role
-              | `Shape
-              | `Spellcheck
-              | `Style_Attr
-              | `Tabindex
-              | `Target
-              | `Title
-              | `Translate
-              | `User_data
-              | `XML_lang
-              | `XMLns ],
-             [> Html_types.area ])
-            nullary
-          val map :
-            ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
-          val caption :
-            ([< Html_types.caption_attrib ],
-             [< Html_types.caption_content_fun ], [> Html_types.caption ])
+          val altGlyph :
+            ([< Svg_types.altglyph_attr ], [< Svg_types.altglyph_content ],
+             [> Svg_types.altglyph ])
+            unary
+          type altglyphdef_content =
+              [ `Item of Svg_types.altglyphitem elt list
+              | `Ref of Svg_types.glyphref elt list ]
+          val altGlyphDef :
+            ([< Svg_types.altglyphdef_attr ], [< altglyphdef_content ],
+             [> Svg_types.altglyphdef ])
+            unary
+          val altGlyphItem :
+            ([< Svg_types.altglyphitem_attr ],
+             [< Svg_types.altglyphitem_content ],
+             [> Svg_types.altglyphitem ])
             star
-          val table :
-            ?caption:[< Html_types.caption ] elt wrap ->
-            ?columns:[< Html_types.colgroup ] elt list_wrap ->
-            ?thead:[< Html_types.thead ] elt wrap ->
-            ?tfoot:[< Html_types.tfoot ] elt wrap ->
-            ([< Html_types.table_attrib ], [< Html_types.table_content_fun ],
-             [> Html_types.table ])
+          val glyphRef :
+            ([< Svg_types.glyphref_attr ], [> Svg_types.glyphref ]) nullary
+          val marker :
+            ([< Svg_types.marker_attr ], [< Svg_types.marker_content ],
+             [> Svg_types.marker ])
             star
-          val tablex :
-            ?caption:[< Html_types.caption ] elt wrap ->
-            ?columns:[< Html_types.colgroup ] elt list_wrap ->
-            ?thead:[< Html_types.thead ] elt wrap ->
-            ?tfoot:[< Html_types.tfoot ] elt wrap ->
-            ([< Html_types.tablex_attrib ],
-             [< Html_types.tablex_content_fun ], [> Html_types.tablex ])
+          val color_profile :
+            ([< Svg_types.colorprofile_attr ],
+             [< Svg_types.colorprofile_content ],
+             [> Svg_types.colorprofile ])
             star
-          val colgroup :
-            ([< Html_types.colgroup_attrib ],
-             [< Html_types.colgroup_content_fun ], [> Html_types.colgroup ])
+          val linearGradient :
+            ([< Svg_types.lineargradient_attr ],
+             [< Svg_types.lineargradient_content ],
+             [> Svg_types.lineargradient ])
             star
-          val col : ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
-          val thead :
-            ([< Html_types.thead_attrib ], [< Html_types.thead_content_fun ],
-             [> Html_types.thead ])
+          val radialGradient :
+            ([< Svg_types.radialgradient_attr ],
+             [< Svg_types.radialgradient_content ],
+             [> Svg_types.radialgradient ])
             star
-          val tbody :
-            ([< Html_types.tbody_attrib ], [< Html_types.tbody_content_fun ],
-             [> Html_types.tbody ])
+          val stop :
+            ([< Svg_types.stop_attr ], [< Svg_types.stop_content ],
+             [> Svg_types.stop ])
             star
-          val tfoot :
-            ([< Html_types.tfoot_attrib ], [< Html_types.tfoot_content_fun ],
-             [> Html_types.tfoot ])
+          val pattern :
+            ([< Svg_types.pattern_attr ], [< Svg_types.pattern_content ],
+             [> Svg_types.pattern ])
             star
-          val td :
-            ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
-             [> Html_types.td ])
+          val clipPath :
+            ([< Svg_types.clippath_attr ], [< Svg_types.clippath_content ],
+             [> Svg_types.clippath ])
             star
-          val th :
-            ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
-             [> Html_types.th ])
+          val filter :
+            ([< Svg_types.filter_attr ], [< Svg_types.filter_content ],
+             [> Svg_types.filter ])
             star
-          val tr :
-            ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
-             [> Html_types.tr ])
+          val feDistantLight :
+            ([< Svg_types.fedistantlight_attr ],
+             [< Svg_types.fedistantlight_content ],
+             [> Svg_types.fedistantlight ])
             star
-          val form :
-            ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
-             [> Html_types.form ])
+          val fePointLight :
+            ([< Svg_types.fepointlight_attr ],
+             [< Svg_types.fepointlight_content ],
+             [> Svg_types.fepointlight ])
             star
-          val fieldset :
-            ?legend:[< Html_types.legend ] elt wrap ->
-            ([< Html_types.fieldset_attrib ],
-             [< Html_types.fieldset_content_fun ], [> Html_types.fieldset ])
+          val feSpotLight :
+            ([< Svg_types.fespotlight_attr ],
+             [< Svg_types.fespotlight_content ], [> Svg_types.fespotlight ])
             star
-          val legend :
-            ([< Html_types.legend_attrib ],
-             [< Html_types.legend_content_fun ], [> Html_types.legend ])
+          val feBlend :
+            ([< Svg_types.feblend_attr ], [< Svg_types.feblend_content ],
+             [> Svg_types.feblend ])
             star
-          val label :
-            ([< Html_types.label_attrib ], [< Html_types.label_content_fun ],
-             [> Html_types.label ])
+          val feColorMatrix :
+            ([< Svg_types.fecolormatrix_attr ],
+             [< Svg_types.fecolormatrix_content ],
+             [> Svg_types.fecolormatrix ])
             star
-          val input :
-            ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
-          val button :
-            ([< Html_types.button_attrib ],
-             [< Html_types.button_content_fun ], [> Html_types.button ])
+          val feComponentTransfer :
+            ([< Svg_types.fecomponenttransfer_attr ],
+             [< Svg_types.fecomponenttransfer_content ],
+             [> Svg_types.fecomponenttransfer ])
             star
-          val select :
-            ([< Html_types.select_attrib ],
-             [< Html_types.select_content_fun ], [> Html_types.select ])
+          val feFuncA :
+            ([< Svg_types.fefunca_attr ], [< Svg_types.fefunca_content ],
+             [> Svg_types.fefunca ])
             star
-          val datalist :
-            ?children:[< `Options of
-                           [< Html_types.selectoption ] elt list_wrap
-                       | `Phras of [< Html_types.phrasing ] elt list_wrap ] ->
-            ([< Html_types.datalist_attrib ], [> Html_types.datalist ])
-            nullary
-          val optgroup :
-            label:Html_types.text wrap ->
-            ([< Html_types.optgroup_attrib ],
-             [< Html_types.optgroup_content_fun ], [> Html_types.optgroup ])
+          val feFuncG :
+            ([< Svg_types.fefuncg_attr ], [< Svg_types.fefuncg_content ],
+             [> Svg_types.fefuncg ])
             star
-          val option :
-            ([< Html_types.option_attrib ],
-             [< Html_types.option_content_fun ],
-             [> Html_types.selectoption ])
-            unary
-          val textarea :
-            ([< Html_types.textarea_attrib ],
-             [< Html_types.textarea_content_fun ], [> Html_types.textarea ])
+          val feFuncB :
+            ([< Svg_types.fefuncb_attr ], [< Svg_types.fefuncb_content ],
+             [> Svg_types.fefuncb ])
+            star
+          val feFuncR :
+            ([< Svg_types.fefuncr_attr ], [< Svg_types.fefuncr_content ],
+             [> Svg_types.fefuncr ])
+            star
+          val feComposite :
+            ([< Svg_types.fecomposite_attr ],
+             [< Svg_types.fecomposite_content ], [> Svg_types.fecomposite ])
+            star
+          val feConvolveMatrix :
+            ([< Svg_types.feconvolvematrix_attr ],
+             [< Svg_types.feconvolvematrix_content ],
+             [> Svg_types.feconvolvematrix ])
+            star
+          val feDiffuseLighting :
+            ([< Svg_types.fediffuselighting_attr ],
+             [< Svg_types.fediffuselighting_content ],
+             [> Svg_types.fediffuselighting ])
+            star
+          val feDisplacementMap :
+            ([< Svg_types.fedisplacementmap_attr ],
+             [< Svg_types.fedisplacementmap_content ],
+             [> Svg_types.fedisplacementmap ])
+            star
+          val feFlood :
+            ([< Svg_types.feflood_attr ], [< Svg_types.feflood_content ],
+             [> Svg_types.feflood ])
+            star
+          val feGaussianBlur :
+            ([< Svg_types.fegaussianblur_attr ],
+             [< Svg_types.fegaussianblur_content ],
+             [> Svg_types.fegaussianblur ])
+            star
+          val feImage :
+            ([< Svg_types.feimage_attr ], [< Svg_types.feimage_content ],
+             [> Svg_types.feimage ])
+            star
+          val feMerge :
+            ([< Svg_types.femerge_attr ], [< Svg_types.femerge_content ],
+             [> Svg_types.femerge ])
+            star
+          val feMorphology :
+            ([< Svg_types.femorphology_attr ],
+             [< Svg_types.femorphology_content ],
+             [> Svg_types.femorphology ])
+            star
+          val feOffset :
+            ([< Svg_types.feoffset_attr ], [< Svg_types.feoffset_content ],
+             [> Svg_types.feoffset ])
+            star
+          val feSpecularLighting :
+            ([< Svg_types.fespecularlighting_attr ],
+             [< Svg_types.fespecularlighting_content ],
+             [> Svg_types.fespecularlighting ])
+            star
+          val feTile :
+            ([< Svg_types.fetile_attr ], [< Svg_types.fetile_content ],
+             [> Svg_types.fetile ])
+            star
+          val feTurbulence :
+            ([< Svg_types.feturbulence_attr ],
+             [< Svg_types.feturbulence_content ],
+             [> Svg_types.feturbulence ])
+            star
+          val cursor :
+            ([< Svg_types.cursor_attr ], [< Svg_types.cursor_content ],
+             [> Svg_types.cursor ])
+            star
+          val a :
+            ([< Svg_types.a_attr ], [< Svg_types.a_content ],
+             [> Svg_types.a ])
+            star
+          val view :
+            ([< Svg_types.view_attr ], [< Svg_types.view_content ],
+             [> Svg_types.view ])
+            star
+          val script :
+            ([< Svg_types.script_attr ], [< Svg_types.script_content ],
+             [> Svg_types.script ])
             unary
-          val keygen :
-            ([< Html_types.keygen_attrib ], [> Html_types.keygen ]) nullary
-          val progress :
-            ([< Html_types.progress_attrib ],
-             [< Html_types.progress_content_fun ], [> Html_types.progress ])
+          val animate :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
             star
-          val meter :
-            ([< Html_types.meter_attrib ], [< Html_types.meter_content_fun ],
-             [> Html_types.meter ])
+          val set :
+            ([< Svg_types.set_attr ], [< Svg_types.set_content ],
+             [> Svg_types.set ])
             star
-          val output_elt :
-            ([< Html_types.output_elt_attrib ],
-             [< Html_types.output_elt_content_fun ],
-             [> Html_types.output_elt ])
+          val animateMotion :
+            ([< Svg_types.animatemotion_attr ],
+             [< Svg_types.animatemotion_content ],
+             [> Svg_types.animatemotion ])
             star
-          val entity : string -> [> Html_types.txt ] elt
-          val space : unit -> [> Html_types.txt ] elt
-          val cdata : string -> [> Html_types.txt ] elt
-          val cdata_script : string -> [> Html_types.txt ] elt
-          val cdata_style : string -> [> Html_types.txt ] elt
-          val details :
-            [< Html_types.summary ] elt wrap ->
-            ([< Html_types.details_attrib ],
-             [< Html_types.details_content_fun ], [> Html_types.details ])
+          val mpath :
+            ([< Svg_types.mpath_attr ], [< Svg_types.mpath_content ],
+             [> Svg_types.mpath ])
+            star
+          val animateColor :
+            ([< Svg_types.animatecolor_attr ],
+             [< Svg_types.animatecolor_content ],
+             [> Svg_types.animatecolor ])
             star
-          val summary :
-            ([< Html_types.summary_attrib ],
-             [< Html_types.summary_content_fun ], [> Html_types.summary ])
+          val animateTransform :
+            ([< Svg_types.animatetransform_attr ],
+             [< Svg_types.animatetransform_content ],
+             [> Svg_types.animatetransform ])
             star
-          val command :
-            label:Html_types.text wrap ->
-            ([< Html_types.command_attrib ], [> Html_types.command ]) nullary
-          val menu :
-            ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
-                       | `Lis of
-                           [< `Li of [< Html_types.common ] ] elt list_wrap ] ->
-            ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
-          val script :
-            ([< Html_types.script_attrib ],
-             [< Html_types.script_content_fun ], [> Html_types.script ])
-            unary
-          val noscript :
-            ([< Html_types.noscript_attrib ],
-             [< Html_types.noscript_content_fun ], [> Html_types.noscript ])
+          val font :
+            ([< Svg_types.font_attr ], [< Svg_types.font_content ],
+             [> Svg_types.font ])
             star
-          val template :
-            ([< Html_types.template_attrib ],
-             [< Html_types.template_content_fun ], [> Html_types.template ])
+          val glyph :
+            ([< Svg_types.glyph_attr ], [< Svg_types.glyph_content ],
+             [> Svg_types.glyph ])
             star
-          val meta :
-            ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
-          val style :
-            ([< Html_types.style_attrib ], [< Html_types.style_content_fun ],
-             [> Html_types.style ])
+          val missing_glyph :
+            ([< Svg_types.missingglyph_attr ],
+             [< Svg_types.missingglyph_content ],
+             [> Svg_types.missingglyph ])
             star
-          val link :
-            rel:Html_types.linktypes wrap ->
-            href:Xml.uri wrap ->
-            ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
-          val rt :
-            ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
-             [> Html_types.rt ])
+          val hkern :
+            ([< Svg_types.hkern_attr ], [> Svg_types.hkern ]) nullary
+          val vkern :
+            ([< Svg_types.vkern_attr ], [> Svg_types.vkern ]) nullary
+          val font_face :
+            ([< Svg_types.font_face_attr ], [> Svg_types.font_face ]) nullary
+          val font_face_src :
+            ([< Svg_types.font_face_src_attr ],
+             [< Svg_types.font_face_src_content ],
+             [> Svg_types.font_face_src ])
             star
-          val rp :
-            ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
-             [> Html_types.rp ])
+          val font_face_uri :
+            ([< Svg_types.font_face_uri_attr ],
+             [< Svg_types.font_face_uri_content ],
+             [> Svg_types.font_face_uri ])
             star
-          val ruby :
-            ([< Html_types.ruby_attrib ], [< Html_types.ruby_content_fun ],
-             [> Html_types.ruby ])
+          val font_face_format :
+            ([< Svg_types.font_face_format_attr ],
+             [> Svg_types.font_face_format ])
+            nullary
+          val font_face_name :
+            ([< Svg_types.font_face_name_attr ],
+             [> Svg_types.font_face_name ])
+            nullary
+          val metadata :
+            ?a:Svg_types.metadata_attr attrib list ->
+            Xml.elt list_wrap -> [> Svg_types.metadata ] elt
+          val foreignObject :
+            ?a:Svg_types.foreignobject_attr attrib list ->
+            Xml.elt list_wrap -> [> Svg_types.foreignobject ] elt
+          val animation :
+            ([< Svg_types.animate_attr ], [< Svg_types.animate_content ],
+             [> Svg_types.animate ])
             star
-          val pcdata : string wrap -> [> Html_types.pcdata ] elt
           val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
           val tot : Xml.elt -> 'a elt
           val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -7315,302 +7076,1052 @@
               val space_sep_attrib : string -> string list wrap -> 'a attrib
               val comma_sep_attrib : string -> string list wrap -> 'a attrib
             end
-          type ('a, 'b, 'c) lazy_star =
-              ?a:'a attrib list -> 'b elt list Eliom_lazy.request -> 'c elt
-          val lazy_form :
-            ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
-             [> Html_types.form ])
-            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 pcdata : string Eliom_content.Xml.W.t -> [> `Unimplemented ]
+          val node :
+            'a Eliom_content.Svg.elt Eliom_shared.React.S.t ->
+            'a Eliom_content.Svg.elt
+        end
+      module C :
+        sig
+          val node :
+            ?init:'a Eliom_content.Svg.elt ->
+            'a Eliom_content.Svg.elt Eliom_client_value.t ->
+            'a Eliom_content.Svg.elt
+          val attr :
+            ?init:'a Eliom_content.Svg.attrib ->
+            'a Eliom_content.Svg.attrib Eliom_client_value.t ->
+            'a Eliom_content.Svg.attrib
+        end
+      module Id :
+        sig
+          type +'a id
+          val new_elt_id : ?global:bool -> unit -> 'a Eliom_content.Svg.Id.id
+          val create_named_elt :
+            id:'a Eliom_content.Svg.Id.id ->
+            'a Eliom_content.Svg.elt -> 'a Eliom_content.Svg.elt
+          val create_global_elt :
+            'a Eliom_content.Svg.elt -> 'a Eliom_content.Svg.elt
+          val create_request_elt :
+            ?reset:bool ->
+            'a Eliom_content.Svg.elt -> 'a Eliom_content.Svg.elt
+        end
+      module Printer :
+        sig
+          val pp_elt :
+            ?encode:(string -> string) ->
+            ?indent:bool -> unit -> Format.formatter -> 'a elt -> unit
+          val pp :
+            ?encode:(string -> string) ->
+            ?indent:bool ->
+            ?advert:string -> unit -> Format.formatter -> F.doc -> unit
+        end
+    end
+  module Html :
+    sig
+      type +'a elt
+      type +'a attrib
+      type uri = Eliom_content.Xml.uri
+      type 'a form_param
+      module Ev' = Eliom_content_core.Html.Ev'
+      module F :
+        sig
+          module Raw' :
+            sig
+              type 'a elt = 'a elt
+              type doc = Html_types.html elt
+              type 'a attrib = 'a attrib
+              module Xml :
+                sig
+                  module W :
+                    sig
+                      type 'a t = 'a Xml.W.t
+                      val return : 'a -> 'a t
+                      type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                      val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                      type 'a tlist = 'a Xml.W.tlist
+                      val nil : unit -> 'a tlist
+                      val singleton : 'a t -> 'a tlist
+                      val cons : 'a t -> 'a tlist -> 'a tlist
+                      val append : 'a tlist -> 'a tlist -> 'a tlist
+                      val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                    end
+                  type 'a wrap = 'a W.t
+                  type 'a list_wrap = 'a W.tlist
+                  type uri = Xml.uri
+                  val string_of_uri : (uri, string) W.ft
+                  val uri_of_string : (string, uri) W.ft
+                  type aname = string
+                  type event_handler = Xml.event_handler
+                  type mouse_event_handler = Xml.mouse_event_handler
+                  type keyboard_event_handler = Xml.keyboard_event_handler
+                  type touch_event_handler = Xml.touch_event_handler
+                  type attrib = Xml.attrib
+                  val float_attrib : aname -> float wrap -> attrib
+                  val int_attrib : aname -> int wrap -> attrib
+                  val string_attrib : aname -> string wrap -> attrib
+                  val space_sep_attrib : aname -> string list wrap -> attrib
+                  val comma_sep_attrib : aname -> string list wrap -> attrib
+                  val event_handler_attrib : aname -> event_handler -> attrib
+                  val mouse_event_handler_attrib :
+                    aname -> mouse_event_handler -> attrib
+                  val keyboard_event_handler_attrib :
+                    aname -> keyboard_event_handler -> attrib
+                  val touch_event_handler_attrib :
+                    aname -> touch_event_handler -> attrib
+                  val uri_attrib : aname -> uri wrap -> attrib
+                  val uris_attrib : aname -> uri list wrap -> attrib
+                  type elt = Xml.elt
+                  type ename = string
+                  val empty : unit -> elt
+                  val comment : string -> elt
+                  val pcdata : string wrap -> elt
+                  val encodedpcdata : string wrap -> elt
+                  val entity : string -> elt
+                  val leaf : ?a:attrib list -> ename -> elt
+                  val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+                  val cdata : string -> elt
+                  val cdata_script : string -> elt
+                  val cdata_style : string -> elt
+                end
+              type 'a wrap = 'a Xml.W.t
+              type 'a list_wrap = 'a Xml.W.tlist
+              type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+              type ('a, 'b, 'c) unary =
+                  ?a:'a attrib list -> 'b elt wrap -> 'c elt
+              type ('a, 'b, 'c) star =
+                  ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              module Info : Xml_sigs.Info
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) Xml.W.ft
+              val uri_of_string : (string, uri) Xml.W.ft
+              val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+              val a_user_data :
+                Html_types.nmtoken ->
+                Html_types.text wrap -> [> `User_data ] attrib
+              val a_id : Html_types.text wrap -> [> `Id ] attrib
+              val a_title : Html_types.text wrap -> [> `Title ] attrib
+              val a_xml_lang :
+                Html_types.languagecode wrap -> [> `XML_lang ] attrib
+              val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
+              val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+              val a_onafterprint :
+                Xml.event_handler -> [> `OnAfterPrint ] attrib
+              val a_onbeforeprint :
+                Xml.event_handler -> [> `OnBeforePrint ] attrib
+              val a_onbeforeunload :
+                Xml.event_handler -> [> `OnBeforeUnload ] attrib
+              val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
+              val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
+              val a_oncanplaythrough :
+                Xml.event_handler -> [> `OnCanPlayThrough ] attrib
+              val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+              val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
+              val a_ondurationchange :
+                Xml.event_handler -> [> `OnDurationChange ] attrib
+              val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
+              val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
+              val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+              val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
+              val a_onformchange :
+                Xml.event_handler -> [> `OnFormChange ] attrib
+              val a_onforminput :
+                Xml.event_handler -> [> `OnFormInput ] attrib
+              val a_onhashchange :
+                Xml.event_handler -> [> `OnHashChange ] attrib
+              val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
+              val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
+              val a_onmousewheel :
+                Xml.event_handler -> [> `OnMouseWheel ] attrib
+              val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
+              val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
+              val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
+              val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
+              val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
+              val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
+              val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
+              val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
+              val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
+              val a_onratechange :
+                Xml.event_handler -> [> `OnRateChange ] attrib
+              val a_onreadystatechange :
+                Xml.event_handler -> [> `OnReadyStateChange ] attrib
+              val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
+              val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+              val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+              val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
+              val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
+              val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
+              val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
+              val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
+              val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
+              val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
+              val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
+              val a_ontimeupdate :
+                Xml.event_handler -> [> `OnTimeUpdate ] attrib
+              val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
+              val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+              val a_onvolumechange :
+                Xml.event_handler -> [> `OnVolumeChange ] attrib
+              val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
+              val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+              val a_onloadeddata :
+                Xml.event_handler -> [> `OnLoadedData ] attrib
+              val a_onloadedmetadata :
+                Xml.event_handler -> [> `OnLoadedMetaData ] attrib
+              val a_onloadstart :
+                Xml.event_handler -> [> `OnLoadStart ] attrib
+              val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
+              val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+              val a_oncontextmenu :
+                Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
+              val a_ondblclick :
+                Xml.mouse_event_handler -> [> `OnDblClick ] attrib
+              val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
+              val a_ondragend :
+                Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
+              val a_ondragenter :
+                Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
+              val a_ondragleave :
+                Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
+              val a_ondragover :
+                Xml.mouse_event_handler -> [> `OnDragOver ] attrib
+              val a_ondragstart :
+                Xml.mouse_event_handler -> [> `OnDragStart ] attrib
+              val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
+              val a_onmousedown :
+                Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+              val a_onmouseup :
+                Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+              val a_onmouseover :
+                Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+              val a_onmousemove :
+                Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+              val a_onmouseout :
+                Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+              val a_ontouchstart :
+                Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+              val a_ontouchend :
+                Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+              val a_ontouchmove :
+                Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+              val a_ontouchcancel :
+                Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+              val a_onkeypress :
+                Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
+              val a_onkeydown :
+                Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
+              val a_onkeyup :
+                Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+              val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
+              val a_allowpaymentrequest :
+                unit -> [> `Allowpaymentrequest ] attrib
+              val a_autocomplete :
+                Html_types.autocomplete_option wrap ->
+                [> `Autocomplete ] attrib
+              val a_async : unit -> [> `Async ] attrib
+              val a_autofocus : unit -> [> `Autofocus ] attrib
+              val a_autoplay : unit -> [> `Autoplay ] attrib
+              val a_muted : unit -> [> `Muted ] attrib
+              val a_crossorigin :
+                [< `Anonymous | `Use_credentials ] wrap ->
+                [> `Crossorigin ] attrib
+              val a_integrity : string wrap -> [> `Integrity ] attrib
+              val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
+              val a_challenge :
+                Html_types.text wrap -> [> `Challenge ] attrib
+              val a_contenteditable :
+                bool wrap -> [> `Contenteditable ] attrib
+              val a_contextmenu :
+                Html_types.idref wrap -> [> `Contextmenu ] attrib
+              val a_controls : unit -> [> `Controls ] attrib
+              val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
+              val a_draggable : bool wrap -> [> `Draggable ] attrib
+              val a_form : Html_types.idref wrap -> [> `Form ] attrib
+              val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
+              val a_formenctype :
+                Html_types.contenttype wrap -> [> `Formenctype ] attrib
+              val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
+              val a_formtarget :
+                Html_types.text wrap -> [> `Formtarget ] attrib
+              val a_hidden : unit -> [> `Hidden ] attrib
+              val a_high : Html_types.float_number wrap -> [> `High ] attrib
+              val a_icon : Xml.uri wrap -> [> `Icon ] attrib
+              val a_ismap : unit -> [> `Ismap ] attrib
+              val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
+              val a_list : Html_types.idref wrap -> [> `List ] attrib
+              val a_loop : unit -> [> `Loop ] attrib
+              val a_low : Html_types.float_number wrap -> [> `High ] attrib
+              val a_max : Html_types.float_number wrap -> [> `Max ] attrib
+              val a_input_max :
+                Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
+              val a_min : Html_types.float_number wrap -> [> `Min ] attrib
+              val a_input_min :
+                Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
+              val a_inputmode :
+                [< `Decimal
+                 | `Email
+                 | `None
+                 | `Numeric
+                 | `Search
+                 | `Tel
+                 | `Text
+                 | `Url ]
+                wrap -> [> `Inputmode ] attrib
+              val a_novalidate : unit -> [> `Novalidate ] attrib
+              val a_open : unit -> [> `Open ] attrib
+              val a_optimum :
+                Html_types.float_number wrap -> [> `Optimum ] attrib
+              val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
+              val a_placeholder :
+                Html_types.text wrap -> [> `Placeholder ] attrib
+              val a_poster : Xml.uri wrap -> [> `Poster ] attrib
+              val a_preload :
+                [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
+              val a_pubdate : unit -> [> `Pubdate ] attrib
+              val a_radiogroup :
+                Html_types.text wrap -> [> `Radiogroup ] attrib
+              val a_referrerpolicy :
+                Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
+              val a_required : unit -> [> `Required ] attrib
+              val a_reversed : unit -> [> `Reversed ] attrib
+              val a_sandbox :
+                [< Html_types.sandbox_token ] list wrap ->
+                [> `Sandbox ] attrib
+              val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
+              val a_scoped : unit -> [> `Scoped ] attrib
+              val a_seamless : unit -> [> `Seamless ] attrib
+              val a_sizes :
+                (Html_types.number * Html_types.number) list option wrap ->
+                [> `Sizes ] attrib
+              val a_span : Html_types.number wrap -> [> `Span ] attrib
+              val a_srclang :
+                Html_types.nmtoken wrap -> [> `XML_lang ] attrib
+              type image_candidate =
+                  [ `Url of uri
+                  | `Url_pixel of uri * Html_types.float_number
+                  | `Url_width of uri * Html_types.number ]
+              val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
+              val a_img_sizes :
+                Html_types.text list wrap -> [> `Img_sizes ] attrib
+              val a_start : Html_types.number wrap -> [> `Start ] attrib
+              val a_step :
+                Html_types.float_number option wrap -> [> `Step ] attrib
+              val a_translate :
+                [< `No | `Yes ] wrap -> [> `Translate ] attrib
+              val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
+              val a_version : Html_types.cdata wrap -> [> `Version ] attrib
+              val a_xmlns :
+                [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
+              val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
+              val a_cite : Xml.uri wrap -> [> `Cite ] attrib
+              val a_xml_space :
+                [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
+              val a_accesskey :
+                Html_types.character wrap -> [> `Accesskey ] attrib
+              val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
+              val a_accept_charset :
+                Html_types.charsets wrap -> [> `Accept_charset ] attrib
+              val a_accept :
+                Html_types.contenttypes wrap -> [> `Accept ] attrib
+              val a_href : Xml.uri wrap -> [> `Href ] attrib
+              val a_hreflang :
+                Html_types.languagecode wrap -> [> `Hreflang ] attrib
+              val a_download : string option wrap -> [> `Download ] attrib
+              val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
+              val a_tabindex :
+                Html_types.number wrap -> [> `Tabindex ] attrib
+              val a_mime_type :
+                Html_types.contenttype wrap -> [> `Mime_type ] attrib
+              val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
+              val a_action : Xml.uri wrap -> [> `Action ] attrib
+              val a_checked : unit -> [> `Checked ] attrib
+              val a_cols : Html_types.number wrap -> [> `Cols ] attrib
+              val a_enctype :
+                Html_types.contenttype wrap -> [> `Enctype ] attrib
+              val a_label_for :
+                Html_types.idref wrap -> [> `Label_for ] attrib
+              val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
+              val a_output_for :
+                Html_types.idrefs wrap -> [> `Output_for ] attrib
+              val a_for_list :
+                Html_types.idrefs wrap -> [> `Output_for ] attrib
+              val a_maxlength :
+                Html_types.number wrap -> [> `Maxlength ] attrib
+              val a_minlength :
+                Html_types.number wrap -> [> `Minlength ] attrib
+              val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
+              val a_formmethod :
+                [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
+              val a_multiple : unit -> [> `Multiple ] attrib
+              val a_name : Html_types.text wrap -> [> `Name ] attrib
+              val a_rows : Html_types.number wrap -> [> `Rows ] attrib
+              val a_selected : unit -> [> `Selected ] attrib
+              val a_size : Html_types.number wrap -> [> `Size ] attrib
+              val a_src : Xml.uri wrap -> [> `Src ] attrib
+              val a_input_type :
+                [< `Button
+                 | `Checkbox
+                 | `Color
+                 | `Date
+                 | `Datetime
+                 | `Datetime_local
+                 | `Email
+                 | `File
+                 | `Hidden
+                 | `Image
+                 | `Month
+                 | `Number
+                 | `Password
+                 | `Radio
+                 | `Range
+                 | `Reset
+                 | `Search
+                 | `Submit
+                 | `Tel
+                 | `Text
+                 | `Time
+                 | `Url
+                 | `Week ]
+                wrap -> [> `Input_Type ] attrib
+              val a_text_value :
+                Html_types.text wrap -> [> `Text_Value ] attrib
+              val a_int_value :
+                Html_types.number wrap -> [> `Int_Value ] attrib
+              val a_value : Html_types.cdata wrap -> [> `Value ] attrib
+              val a_float_value :
+                Html_types.float_number wrap -> [> `Float_Value ] attrib
+              val a_disabled : unit -> [> `Disabled ] attrib
+              val a_readonly : unit -> [> `ReadOnly ] attrib
+              val a_button_type :
+                [< `Button | `Reset | `Submit ] wrap ->
+                [> `Button_Type ] attrib
+              val a_script_type :
+                Html_types.script_type wrap -> [> `Script_type ] attrib
+              val a_command_type :
+                [< `Checkbox | `Command | `Radio ] wrap ->
+                [> `Command_Type ] attrib
+              val a_menu_type :
+                [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
+              val a_label : Html_types.text wrap -> [> `Label ] attrib
+              val a_align :
+                [< `Char | `Justify | `Left | `Right ] wrap ->
+                [> `Align ] attrib
+              val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
+              val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
+              val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
+              val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
+              val a_scope :
+                [< `Col | `Colgroup | `Row | `Rowgroup ] wrap ->
+                [> `Scope ] attrib
+              val a_summary : Html_types.text wrap -> [> `Summary ] attrib
+              val a_border : Html_types.pixels wrap -> [> `Border ] attrib
+              val a_rules :
+                [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
+                [> `Rules ] attrib
+              val a_char : Html_types.character wrap -> [> `Char ] attrib
+              val a_alt : Html_types.text wrap -> [> `Alt ] attrib
+              val a_height : Html_types.number wrap -> [> `Height ] attrib
+              val a_width : Html_types.number wrap -> [> `Width ] attrib
+              type shape = [ `Circle | `Default | `Poly | `Rect ]
+              val a_shape : shape wrap -> [> `Shape ] attrib
+              val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
+              val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
+              val a_data : Xml.uri wrap -> [> `Data ] attrib
+              val a_codetype :
+                Html_types.contenttype wrap -> [> `Codetype ] attrib
+              val a_frameborder :
+                [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
+              val a_marginheight :
+                Html_types.pixels wrap -> [> `Marginheight ] attrib
+              val a_marginwidth :
+                Html_types.pixels wrap -> [> `Marginwidth ] attrib
+              val a_scrolling :
+                [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
+              val a_target :
+                Html_types.frametarget wrap -> [> `Target ] attrib
+              val a_content : Html_types.text wrap -> [> `Content ] attrib
+              val a_http_equiv :
+                Html_types.text wrap -> [> `Http_equiv ] attrib
+              val a_defer : unit -> [> `Defer ] attrib
+              val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
+              val a_style : string wrap -> [> `Style_Attr ] attrib
+              val a_property : string wrap -> [> `Property ] attrib
+              val a_role : string list wrap -> [> `Role ] attrib
+              val a_aria : string -> string list wrap -> [> `Aria ] attrib
+              val txt : string wrap -> [> Html_types.txt ] elt
+              val html :
+                ?a:Html_types.html_attrib attrib list ->
+                [< Html_types.head ] elt wrap ->
+                [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
+              val head :
+                ?a:Html_types.head_attrib attrib list ->
+                [< Html_types.title ] elt wrap ->
+                Html_types.head_content_fun elt list_wrap ->
+                [> Html_types.head ] elt
+              val base :
+                ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
+              val title :
+                (Html_types.title_attrib, [< Html_types.title_content_fun ],
+                 [> Html_types.title ])
+                unary
+              val body :
+                ([< Html_types.body_attrib ],
+                 [< Html_types.body_content_fun ], [> Html_types.body ])
+                star
+              val svg :
+                ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+                [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
+                [> Html_types.svg ] elt
+              val footer :
+                ([< Html_types.footer_attrib ],
+                 [< Html_types.footer_content_fun ], [> Html_types.footer ])
+                star
+              val header :
+                ([< Html_types.header_attrib ],
+                 [< Html_types.header_content_fun ], [> Html_types.header ])
+                star
+              val section :
+                ([< Html_types.section_attrib ],
+                 [< Html_types.section_content_fun ],
+                 [> Html_types.section ])
+                star
+              val nav :
+                ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
+                 [> Html_types.nav ])
+                star
+              val h1 :
+                ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
+                 [> Html_types.h1 ])
+                star
+              val h2 :
+                ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
+                 [> Html_types.h2 ])
+                star
+              val h3 :
+                ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
+                 [> Html_types.h3 ])
+                star
+              val h4 :
+                ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
+                 [> Html_types.h4 ])
+                star
+              val h5 :
+                ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
+                 [> Html_types.h5 ])
+                star
+              val h6 :
+                ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
+                 [> Html_types.h6 ])
+                star
+              val hgroup :
+                ([< Html_types.hgroup_attrib ],
+                 [< Html_types.hgroup_content_fun ], [> Html_types.hgroup ])
+                star
+              val address :
+                ([< Html_types.address_attrib ],
+                 [< Html_types.address_content_fun ],
+                 [> Html_types.address ])
+                star
+              val article :
+                ([< Html_types.article_attrib ],
+                 [< Html_types.article_content_fun ],
+                 [> Html_types.article ])
+                star
+              val aside :
+                ([< Html_types.aside_attrib ],
+                 [< Html_types.aside_content_fun ], [> Html_types.aside ])
+                star
+              val main :
+                ([< Html_types.main_attrib ],
+                 [< Html_types.main_content_fun ], [> Html_types.main ])
+                star
+              val p :
+                ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
+                 [> Html_types.p ])
+                star
+              val pre :
+                ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
+                 [> Html_types.pre ])
+                star
+              val blockquote :
+                ([< Html_types.blockquote_attrib ],
+                 [< Html_types.blockquote_content_fun ],
+                 [> Html_types.blockquote ])
+                star
+              val dialog :
+                ([< Html_types.dialog_attrib ],
+                 [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+                star
+              val div :
+                ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
+                 [> Html_types.div ])
+                star
+              val dl :
+                ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
+                 [> Html_types.dl ])
+                star
+              val ol :
+                ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
+                 [> Html_types.ol ])
+                star
+              val ul :
+                ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
+                 [> Html_types.ul ])
+                star
+              val dd :
+                ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
+                 [> Html_types.dd ])
+                star
+              val dt :
+                ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
+                 [> Html_types.dt ])
+                star
+              val li :
+                ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
+                 [> Html_types.li ])
+                star
+              val figcaption :
+                ([< Html_types.figcaption_attrib ],
+                 [< Html_types.figcaption_content_fun ],
+                 [> Html_types.figcaption ])
+                star
+              val figure :
+                ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
+                            | `Top of [< Html_types.figcaption ] elt wrap ] ->
+                ([< Html_types.figure_attrib ],
+                 [< Html_types.figure_content_fun ], [> Html_types.figure ])
+                star
+              val hr :
+                ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
+              val b :
+                ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
+                 [> Html_types.b ])
+                star
+              val i :
+                ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
+                 [> Html_types.i ])
+                star
+              val u :
+                ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
+                 [> Html_types.u ])
+                star
+              val small :
+                ([< Html_types.small_attrib ],
+                 [< Html_types.small_content_fun ], [> Html_types.small ])
+                star
+              val sub :
+                ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
+                 [> Html_types.sub ])
+                star
+              val sup :
+                ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
+                 [> Html_types.sup ])
+                star
+              val mark :
+                ([< Html_types.mark_attrib ],
+                 [< Html_types.mark_content_fun ], [> Html_types.mark ])
+                star
+              val wbr :
+                ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
+              val bdo :
+                dir:[< `Ltr | `Rtl ] wrap ->
+                ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
+                 [> Html_types.bdo ])
+                star
+              val abbr :
+                ([< Html_types.abbr_attrib ],
+                 [< Html_types.abbr_content_fun ], [> Html_types.abbr ])
+                star
+              val br :
+                ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
+              val cite :
+                ([< Html_types.cite_attrib ],
+                 [< Html_types.cite_content_fun ], [> Html_types.cite ])
+                star
+              val code :
+                ([< Html_types.code_attrib ],
+                 [< Html_types.code_content_fun ], [> Html_types.code ])
+                star
+              val dfn :
+                ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
+                 [> Html_types.dfn ])
+                star
+              val em :
+                ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
+                 [> Html_types.em ])
+                star
+              val kbd :
+                ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
+                 [> Html_types.kbd ])
+                star
+              val q :
+                ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
+                 [> Html_types.q ])
+                star
+              val samp :
+                ([< Html_types.samp_attrib ],
+                 [< Html_types.samp_content_fun ], [> Html_types.samp ])
+                star
+              val span :
+                ([< Html_types.span_attrib ],
+                 [< Html_types.span_content_fun ], [> Html_types.span ])
+                star
+              val strong :
+                ([< Html_types.strong_attrib ],
+                 [< Html_types.strong_content_fun ], [> Html_types.strong ])
+                star
+              val time :
+                ([< Html_types.time_attrib ],
+                 [< Html_types.time_content_fun ], [> Html_types.time ])
+                star
+              val var :
+                ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
+                 [> Html_types.var ])
+                star
+              val a :
+                ([< Html_types.a_attrib ], 'a, [> 'a Html_types.a ]) star
+              val del :
+                ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
+              val ins :
+                ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
+              val img :
+                src:Xml.uri wrap ->
+                alt:Html_types.text wrap ->
+                ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
+              val picture :
+                img:[< Html_types.img ] elt wrap ->
+                ([< Html_types.picture_attrib ],
+                 [< Html_types.picture_content_fun ],
+                 [> Html_types.picture ])
+                star
+              val iframe :
+                ([< Html_types.iframe_attrib ],
+                 [< Html_types.iframe_content_fun ], [> Html_types.iframe ])
+                star
+              val object_ :
+                ?params:[< Html_types.param ] elt list_wrap ->
+                ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
+              val param :
+                ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
+              val embed :
+                ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
+              val audio :
+                ?src:Xml.uri wrap ->
+                ?srcs:[< Html_types.source ] elt list_wrap ->
+                ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ])
+                star
+              val video :
+                ?src:Xml.uri wrap ->
+                ?srcs:[< Html_types.source ] elt list_wrap ->
+                ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ])
+                star
+              val canvas :
+                ([< Html_types.canvas_attrib ], 'a,
+                 [> 'a Html_types.canvas ])
+                star
+              val source :
+                ([< Html_types.source_attrib ], [> Html_types.source ])
+                nullary
+              val area :
+                alt:Html_types.text wrap ->
+                ([< `Accesskey
+                  | `Alt
+                  | `Aria
+                  | `Class
+                  | `Contenteditable
+                  | `Contextmenu
+                  | `Coords
+                  | `Dir
+                  | `Draggable
+                  | `Hidden
+                  | `Hreflang
+                  | `Id
+                  | `Lang
+                  | `Media
+                  | `Mime_type
+                  | `OnAbort
+                  | `OnBlur
+                  | `OnCanPlay
+                  | `OnCanPlayThrough
+                  | `OnChange
+                  | `OnClick
+                  | `OnClose
+                  | `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
+                  | `Rel
+                  | `Role
+                  | `Shape
+                  | `Spellcheck
+                  | `Style_Attr
+                  | `Tabindex
+                  | `Target
+                  | `Title
+                  | `Translate
+                  | `User_data
+                  | `XML_lang
+                  | `XMLns ],
+                 [> Html_types.area ])
+                nullary
+              val map :
+                ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
+              val caption :
+                ([< Html_types.caption_attrib ],
+                 [< Html_types.caption_content_fun ],
+                 [> Html_types.caption ])
+                star
+              val table :
+                ?caption:[< Html_types.caption ] elt wrap ->
+                ?columns:[< Html_types.colgroup ] elt list_wrap ->
+                ?thead:[< Html_types.thead ] elt wrap ->
+                ?tfoot:[< Html_types.tfoot ] elt wrap ->
+                ([< Html_types.table_attrib ],
+                 [< Html_types.table_content_fun ], [> Html_types.table ])
+                star
+              val tablex :
+                ?caption:[< Html_types.caption ] elt wrap ->
+                ?columns:[< Html_types.colgroup ] elt list_wrap ->
+                ?thead:[< Html_types.thead ] elt wrap ->
+                ?tfoot:[< Html_types.tfoot ] elt wrap ->
+                ([< Html_types.tablex_attrib ],
+                 [< Html_types.tablex_content_fun ], [> Html_types.tablex ])
+                star
+              val colgroup :
+                ([< Html_types.colgroup_attrib ],
+                 [< Html_types.colgroup_content_fun ],
+                 [> Html_types.colgroup ])
+                star
+              val col :
+                ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
+              val thead :
+                ([< Html_types.thead_attrib ],
+                 [< Html_types.thead_content_fun ], [> Html_types.thead ])
+                star
+              val tbody :
+                ([< Html_types.tbody_attrib ],
+                 [< Html_types.tbody_content_fun ], [> Html_types.tbody ])
+                star
+              val tfoot :
+                ([< Html_types.tfoot_attrib ],
+                 [< Html_types.tfoot_content_fun ], [> Html_types.tfoot ])
+                star
+              val td :
+                ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
+                 [> Html_types.td ])
+                star
+              val th :
+                ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
+                 [> Html_types.th ])
+                star
+              val tr :
+                ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
+                 [> Html_types.tr ])
+                star
+              val form :
+                ([< Html_types.form_attrib ],
+                 [< Html_types.form_content_fun ], [> Html_types.form ])
+                star
+              val fieldset :
+                ?legend:[< Html_types.legend ] elt wrap ->
+                ([< Html_types.fieldset_attrib ],
+                 [< Html_types.fieldset_content_fun ],
+                 [> Html_types.fieldset ])
+                star
+              val legend :
+                ([< Html_types.legend_attrib ],
+                 [< Html_types.legend_content_fun ], [> Html_types.legend ])
+                star
+              val label :
+                ([< Html_types.label_attrib ],
+                 [< Html_types.label_content_fun ], [> Html_types.label ])
+                star
               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
+                ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
               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
+                ([< Html_types.button_attrib ],
+                 [< Html_types.button_content_fun ], [> Html_types.button ])
+                star
               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
+                ([< Html_types.select_attrib ],
+                 [< Html_types.select_content_fun ], [> Html_types.select ])
+                star
+              val datalist :
+                ?children:[< `Options of
+                               [< Html_types.selectoption ] elt list_wrap
+                           | `Phras of [< Html_types.phrasing ] elt list_wrap
+                          ] ->
+                ([< Html_types.datalist_attrib ], [> Html_types.datalist ])
+                nullary
+              val optgroup :
+                label:Html_types.text wrap ->
+                ([< Html_types.optgroup_attrib ],
+                 [< Html_types.optgroup_content_fun ],
+                 [> Html_types.optgroup ])
+                star
+              val option :
+                ([< Html_types.option_attrib ],
+                 [< Html_types.option_content_fun ],
+                 [> Html_types.selectoption ])
+                unary
+              val textarea :
+                ([< Html_types.textarea_attrib ],
+                 [< Html_types.textarea_content_fun ],
+                 [> Html_types.textarea ])
+                unary
+              val keygen :
+                ([< Html_types.keygen_attrib ], [> Html_types.keygen ])
+                nullary
+              val progress :
+                ([< Html_types.progress_attrib ],
+                 [< Html_types.progress_content_fun ],
+                 [> Html_types.progress ])
+                star
+              val meter :
+                ([< Html_types.meter_attrib ],
+                 [< Html_types.meter_content_fun ], [> Html_types.meter ])
+                star
+              val output_elt :
+                ([< Html_types.output_elt_attrib ],
+                 [< Html_types.output_elt_content_fun ],
+                 [> Html_types.output_elt ])
+                star
+              val entity : string -> [> Html_types.txt ] elt
+              val space : unit -> [> Html_types.txt ] elt
+              val cdata : string -> [> Html_types.txt ] elt
+              val cdata_script : string -> [> Html_types.txt ] elt
+              val cdata_style : string -> [> Html_types.txt ] elt
+              val details :
+                [< Html_types.summary ] elt wrap ->
+                ([< Html_types.details_attrib ],
+                 [< Html_types.details_content_fun ],
+                 [> Html_types.details ])
+                star
+              val summary :
+                ([< Html_types.summary_attrib ],
+                 [< Html_types.summary_content_fun ],
+                 [> Html_types.summary ])
+                star
+              val command :
+                label:Html_types.text wrap ->
+                ([< Html_types.command_attrib ], [> Html_types.command ])
+                nullary
+              val menu :
+                ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
+                           | `Lis of
+                               [< `Li of [< Html_types.common ] ] elt
+                               list_wrap ] ->
+                ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
+              val script :
+                ([< Html_types.script_attrib ],
+                 [< Html_types.script_content_fun ], [> Html_types.script ])
+                unary
+              val noscript :
+                ([< Html_types.noscript_attrib ],
+                 [< Html_types.noscript_content_fun ],
+                 [> Html_types.noscript ])
+                star
+              val template :
+                ([< Html_types.template_attrib ],
+                 [< Html_types.template_content_fun ],
+                 [> Html_types.template ])
+                star
+              val meta :
+                ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
+              val style :
+                ([< Html_types.style_attrib ],
+                 [< Html_types.style_content_fun ], [> Html_types.style ])
+                star
+              val link :
+                rel:Html_types.linktypes wrap ->
+                href:Xml.uri wrap ->
+                ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
+              val rt :
+                ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
+                 [> Html_types.rt ])
+                star
+              val rp :
+                ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
+                 [> Html_types.rp ])
+                star
+              val ruby :
+                ([< Html_types.ruby_attrib ],
+                 [< Html_types.ruby_content_fun ], [> Html_types.ruby ])
+                star
+              val pcdata : string wrap -> [> Html_types.pcdata ] elt
+              val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+              val tot : Xml.elt -> 'a elt
+              val totl : Xml.elt list_wrap -> 'a elt list_wrap
+              val toelt : 'a elt -> Xml.elt
+              val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+              val doc_toelt : doc -> Xml.elt
+              val to_xmlattribs : 'a attrib list -> Xml.attrib list
+              val to_attrib : Xml.attrib -> 'a attrib
+              module Unsafe :
+                sig
+                  val data : string wrap -> 'a elt
+                  val node :
+                    string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+                  val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+                  val coerce_elt : 'a elt -> 'b elt
+                  val string_attrib : string -> string wrap -> 'a attrib
+                  val float_attrib : string -> float wrap -> 'a attrib
+                  val int_attrib : string -> int wrap -> 'a attrib
+                  val uri_attrib : string -> uri wrap -> 'a attrib
+                  val space_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                  val comma_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                end
             end
-        end
-      module D :
-        sig
           module Raw :
             sig
               type 'a elt = 'a elt
@@ -7654,153 +8165,47 @@
                     aname -> keyboard_event_handler -> attrib
                   val touch_event_handler_attrib :
                     aname -> touch_event_handler -> attrib
-                  val uri_attrib : aname -> uri wrap -> attrib
-                  val uris_attrib : aname -> uri list wrap -> attrib
-                  type elt = Xml.elt
-                  type ename = string
-                  val empty : unit -> elt
-                  val comment : string -> elt
-                  val pcdata : string wrap -> elt
-                  val encodedpcdata : string wrap -> elt
-                  val entity : string -> elt
-                  val leaf : ?a:attrib list -> ename -> elt
-                  val node : ?a:attrib list -> ename -> elt list_wrap -> elt
-                  val cdata : string -> elt
-                  val cdata_script : string -> elt
-                  val cdata_style : string -> elt
-                end
-              type 'a wrap = 'a Xml.W.t
-              type 'a list_wrap = 'a Xml.W.tlist
-              type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
-              type ('a, 'b, 'c) unary =
-                  ?a:'a attrib list -> 'b elt wrap -> 'c elt
-              type ('a, 'b, 'c) star =
-                  ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-              module Info : Xml_sigs.Info
-              type uri = Xml.uri
-              val string_of_uri : (uri, string) Xml.W.ft
-              val uri_of_string : (string, uri) Xml.W.ft
-              val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
-              val a_user_data :
-                Html_types.nmtoken ->
-                Html_types.text wrap -> [> `User_data ] attrib
-              val a_id : Html_types.text wrap -> [> `Id ] attrib
-              val a_title : Html_types.text wrap -> [> `Title ] attrib
-              val a_xml_lang :
-                Html_types.languagecode wrap -> [> `XML_lang ] attrib
-              val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-              val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-              val a_onafterprint :
-                Xml.event_handler -> [> `OnAfterPrint ] attrib
-              val a_onbeforeprint :
-                Xml.event_handler -> [> `OnBeforePrint ] attrib
-              val a_onbeforeunload :
-                Xml.event_handler -> [> `OnBeforeUnload ] attrib
-              val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-              val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-              val a_oncanplaythrough :
-                Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-              val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-              val a_ondurationchange :
-                Xml.event_handler -> [> `OnDurationChange ] attrib
-              val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-              val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-              val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-              val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-              val a_onformchange :
-                Xml.event_handler -> [> `OnFormChange ] attrib
-              val a_onforminput :
-                Xml.event_handler -> [> `OnFormInput ] attrib
-              val a_onhashchange :
-                Xml.event_handler -> [> `OnHashChange ] attrib
-              val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-              val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-              val a_onmousewheel :
-                Xml.event_handler -> [> `OnMouseWheel ] attrib
-              val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-              val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-              val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-              val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-              val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-              val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-              val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-              val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-              val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-              val a_onratechange :
-                Xml.event_handler -> [> `OnRateChange ] attrib
-              val a_onreadystatechange :
-                Xml.event_handler -> [> `OnReadyStateChange ] attrib
-              val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-              val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-              val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-              val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-              val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-              val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-              val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-              val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-              val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-              val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-              val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-              val a_ontimeupdate :
-                Xml.event_handler -> [> `OnTimeUpdate ] attrib
-              val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-              val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-              val a_onvolumechange :
-                Xml.event_handler -> [> `OnVolumeChange ] attrib
-              val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-              val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-              val a_onloadeddata :
-                Xml.event_handler -> [> `OnLoadedData ] attrib
-              val a_onloadedmetadata :
-                Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-              val a_onloadstart :
-                Xml.event_handler -> [> `OnLoadStart ] attrib
-              val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-              val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-              val a_oncontextmenu :
-                Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-              val a_ondblclick :
-                Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-              val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-              val a_ondragend :
-                Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-              val a_ondragenter :
-                Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-              val a_ondragleave :
-                Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-              val a_ondragover :
-                Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-              val a_ondragstart :
-                Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-              val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-              val a_onmousedown :
-                Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-              val a_onmouseup :
-                Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-              val a_onmouseover :
-                Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-              val a_onmousemove :
-                Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-              val a_onmouseout :
-                Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-              val a_ontouchstart :
-                Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-              val a_ontouchend :
-                Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-              val a_ontouchmove :
-                Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-              val a_ontouchcancel :
-                Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-              val a_onkeypress :
-                Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-              val a_onkeydown :
-                Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-              val a_onkeyup :
-                Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+                  val uri_attrib : aname -> uri wrap -> attrib
+                  val uris_attrib : aname -> uri list wrap -> attrib
+                  type elt = Xml.elt
+                  type ename = string
+                  val empty : unit -> elt
+                  val comment : string -> elt
+                  val pcdata : string wrap -> elt
+                  val encodedpcdata : string wrap -> elt
+                  val entity : string -> elt
+                  val leaf : ?a:attrib list -> ename -> elt
+                  val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+                  val cdata : string -> elt
+                  val cdata_script : string -> elt
+                  val cdata_style : string -> elt
+                end
+              type 'a wrap = 'a Xml.W.t
+              type 'a list_wrap = 'a Xml.W.tlist
+              type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+              type ('a, 'b, 'c) unary =
+                  ?a:'a attrib list -> 'b elt wrap -> 'c elt
+              type ('a, 'b, 'c) star =
+                  ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              module Info : Xml_sigs.Info
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) Xml.W.ft
+              val uri_of_string : (string, uri) Xml.W.ft
+              val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+              val a_user_data :
+                Html_types.nmtoken ->
+                Html_types.text wrap -> [> `User_data ] attrib
+              val a_id : Html_types.text wrap -> [> `Id ] attrib
+              val a_title : Html_types.text wrap -> [> `Title ] attrib
+              val a_xml_lang :
+                Html_types.languagecode wrap -> [> `XML_lang ] attrib
+              val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
               val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
               val a_allowpaymentrequest :
                 unit -> [> `Allowpaymentrequest ] attrib
-              val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+              val a_autocomplete :
+                Html_types.autocomplete_option wrap ->
+                [> `Autocomplete ] attrib
               val a_async : unit -> [> `Async ] attrib
               val a_autofocus : unit -> [> `Autofocus ] attrib
               val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -7934,7 +8339,7 @@
                 Html_types.number wrap -> [> `Minlength ] attrib
               val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
               val a_formmethod :
-                [< `Get | `Post ] wrap -> [> `Method ] attrib
+                [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
               val a_multiple : unit -> [> `Multiple ] attrib
               val a_name : Html_types.text wrap -> [> `Name ] attrib
               val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -7978,6 +8383,8 @@
               val a_button_type :
                 [< `Button | `Reset | `Submit ] wrap ->
                 [> `Button_Type ] attrib
+              val a_script_type :
+                Html_types.script_type wrap -> [> `Script_type ] attrib
               val a_command_type :
                 [< `Checkbox | `Command | `Radio ] wrap ->
                 [> `Command_Type ] attrib
@@ -8050,8 +8457,8 @@
                  [< Html_types.body_content_fun ], [> Html_types.body ])
                 star
               val svg :
-                ?a:[< Html_types.svg_attrib ] Svg.D.Raw.attrib list ->
-                [< Html_types.svg_content ] Svg.D.Raw.elt list_wrap ->
+                ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+                [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
                 [> Html_types.svg ] elt
               val footer :
                 ([< Html_types.footer_attrib ],
@@ -8129,6 +8536,10 @@
                  [< Html_types.blockquote_content_fun ],
                  [> Html_types.blockquote ])
                 star
+              val dialog :
+                ([< Html_types.dialog_attrib ],
+                 [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+                star
               val div :
                 ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
                  [> Html_types.div ])
@@ -8322,6 +8733,7 @@
                   | `OnCanPlayThrough
                   | `OnChange
                   | `OnClick
+                  | `OnClose
                   | `OnContextMenu
                   | `OnDblClick
                   | `OnDrag
@@ -8597,6 +9009,86 @@
                   val comma_sep_attrib :
                     string -> string list wrap -> 'a attrib
                 end
+              val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+              val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+              val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+              val a_onbeforeunload :
+                string -> [> `OnBeforeUnload ] Raw'.attrib
+              val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+              val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+              val a_oncanplaythrough :
+                string -> [> `OnCanPlayThrough ] Raw'.attrib
+              val a_onchange : string -> [> `OnChange ] Raw'.attrib
+              val a_onclose : string -> [> `OnClose ] Raw'.attrib
+              val a_ondurationchange :
+                string -> [> `OnDurationChange ] Raw'.attrib
+              val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+              val a_onended : string -> [> `OnEnded ] Raw'.attrib
+              val a_onerror : string -> [> `OnError ] Raw'.attrib
+              val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+              val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+              val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+              val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+              val a_oninput : string -> [> `OnInput ] Raw'.attrib
+              val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+              val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+              val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+              val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+              val a_onpause : string -> [> `OnPause ] Raw'.attrib
+              val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+              val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+              val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+              val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+              val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+              val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+              val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+              val a_onreadystatechange :
+                string -> [> `OnReadyStateChange ] Raw'.attrib
+              val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+              val a_onresize : string -> [> `OnResize ] Raw'.attrib
+              val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+              val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+              val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+              val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+              val a_onshow : string -> [> `OnShow ] Raw'.attrib
+              val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+              val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+              val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+              val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+              val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+              val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+              val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+              val a_onvolumechange :
+                string -> [> `OnVolumeChange ] Raw'.attrib
+              val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+              val a_onload : string -> [> `OnLoad ] Raw'.attrib
+              val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+              val a_onloadedmetadata :
+                string -> [> `OnLoadedMetaData ] Raw'.attrib
+              val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+              val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+              val a_onclick : string -> [> `OnClick ] Raw'.attrib
+              val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+              val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+              val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+              val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+              val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+              val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+              val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+              val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+              val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+              val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+              val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+              val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+              val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+              val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+              val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+              val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+              val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+              val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+              val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+              val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+              val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
             end
           type 'a elt = 'a elt
           type doc = Html_types.html elt
@@ -8684,6 +9176,7 @@
           val a_oncanplaythrough :
             Xml.event_handler -> [> `OnCanPlayThrough ] attrib
           val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+          val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
           val a_ondurationchange :
             Xml.event_handler -> [> `OnDurationChange ] attrib
           val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
@@ -8772,7 +9265,8 @@
           val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
           val a_allowpaymentrequest :
             unit -> [> `Allowpaymentrequest ] attrib
-          val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+          val a_autocomplete :
+            Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
           val a_async : unit -> [> `Async ] attrib
           val a_autofocus : unit -> [> `Autofocus ] attrib
           val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -8890,7 +9384,8 @@
           val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
           val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
           val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-          val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+          val a_formmethod :
+            [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
           val a_multiple : unit -> [> `Multiple ] attrib
           val a_name : Html_types.text wrap -> [> `Name ] attrib
           val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -8931,6 +9426,8 @@
           val a_readonly : unit -> [> `ReadOnly ] attrib
           val a_button_type :
             [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+          val a_script_type :
+            Html_types.script_type wrap -> [> `Script_type ] attrib
           val a_command_type :
             [< `Checkbox | `Command | `Radio ] wrap ->
             [> `Command_Type ] attrib
@@ -9000,8 +9497,8 @@
              [> Html_types.body ])
             star
           val svg :
-            ?a:[< Html_types.svg_attrib ] Svg.D.Raw.attrib list ->
-            [< Html_types.svg_content ] Svg.D.Raw.elt list_wrap ->
+            ?a:[< Html_types.svg_attrib ] Svg.F.Raw'.attrib list ->
+            [< Html_types.svg_content ] Svg.F.Raw'.elt list_wrap ->
             [> Html_types.svg ] elt
           val footer :
             ([< Html_types.footer_attrib ],
@@ -9076,6 +9573,10 @@
              [< Html_types.blockquote_content_fun ],
              [> Html_types.blockquote ])
             star
+          val dialog :
+            ([< Html_types.dialog_attrib ],
+             [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+            star
           val div :
             ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
              [> Html_types.div ])
@@ -9259,6 +9760,7 @@
               | `OnCanPlayThrough
               | `OnChange
               | `OnClick
+              | `OnClose
               | `OnContextMenu
               | `OnDblClick
               | `OnDrag
@@ -9656,169 +10158,1161 @@
                 ('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
+                ?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
+                    | `OnClose
+                    | `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
+      module D :
+        sig
+          module Raw' :
+            sig
+              type 'a elt = 'a elt
+              type doc = Html_types.html elt
+              type 'a attrib = 'a attrib
+              module Xml :
+                sig
+                  module W :
+                    sig
+                      type 'a t = 'a Xml.W.t
+                      val return : 'a -> 'a t
+                      type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                      val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                      type 'a tlist = 'a Xml.W.tlist
+                      val nil : unit -> 'a tlist
+                      val singleton : 'a t -> 'a tlist
+                      val cons : 'a t -> 'a tlist -> 'a tlist
+                      val append : 'a tlist -> 'a tlist -> 'a tlist
+                      val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                    end
+                  type 'a wrap = 'a W.t
+                  type 'a list_wrap = 'a W.tlist
+                  type uri = Xml.uri
+                  val string_of_uri : (uri, string) W.ft
+                  val uri_of_string : (string, uri) W.ft
+                  type aname = string
+                  type event_handler = Xml.event_handler
+                  type mouse_event_handler = Xml.mouse_event_handler
+                  type keyboard_event_handler = Xml.keyboard_event_handler
+                  type touch_event_handler = Xml.touch_event_handler
+                  type attrib = Xml.attrib
+                  val float_attrib : aname -> float wrap -> attrib
+                  val int_attrib : aname -> int wrap -> attrib
+                  val string_attrib : aname -> string wrap -> attrib
+                  val space_sep_attrib : aname -> string list wrap -> attrib
+                  val comma_sep_attrib : aname -> string list wrap -> attrib
+                  val event_handler_attrib : aname -> event_handler -> attrib
+                  val mouse_event_handler_attrib :
+                    aname -> mouse_event_handler -> attrib
+                  val keyboard_event_handler_attrib :
+                    aname -> keyboard_event_handler -> attrib
+                  val touch_event_handler_attrib :
+                    aname -> touch_event_handler -> attrib
+                  val uri_attrib : aname -> uri wrap -> attrib
+                  val uris_attrib : aname -> uri list wrap -> attrib
+                  type elt = Xml.elt
+                  type ename = string
+                  val empty : unit -> elt
+                  val comment : string -> elt
+                  val pcdata : string wrap -> elt
+                  val encodedpcdata : string wrap -> elt
+                  val entity : string -> elt
+                  val leaf : ?a:attrib list -> ename -> elt
+                  val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+                  val cdata : string -> elt
+                  val cdata_script : string -> elt
+                  val cdata_style : string -> elt
+                end
+              type 'a wrap = 'a Xml.W.t
+              type 'a list_wrap = 'a Xml.W.tlist
+              type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+              type ('a, 'b, 'c) unary =
+                  ?a:'a attrib list -> 'b elt wrap -> 'c elt
+              type ('a, 'b, 'c) star =
+                  ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              module Info : Xml_sigs.Info
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) Xml.W.ft
+              val uri_of_string : (string, uri) Xml.W.ft
+              val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+              val a_user_data :
+                Html_types.nmtoken ->
+                Html_types.text wrap -> [> `User_data ] attrib
+              val a_id : Html_types.text wrap -> [> `Id ] attrib
+              val a_title : Html_types.text wrap -> [> `Title ] attrib
+              val a_xml_lang :
+                Html_types.languagecode wrap -> [> `XML_lang ] attrib
+              val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
+              val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+              val a_onafterprint :
+                Xml.event_handler -> [> `OnAfterPrint ] attrib
+              val a_onbeforeprint :
+                Xml.event_handler -> [> `OnBeforePrint ] attrib
+              val a_onbeforeunload :
+                Xml.event_handler -> [> `OnBeforeUnload ] attrib
+              val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
+              val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
+              val a_oncanplaythrough :
+                Xml.event_handler -> [> `OnCanPlayThrough ] attrib
+              val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+              val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
+              val a_ondurationchange :
+                Xml.event_handler -> [> `OnDurationChange ] attrib
+              val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
+              val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
+              val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+              val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
+              val a_onformchange :
+                Xml.event_handler -> [> `OnFormChange ] attrib
+              val a_onforminput :
+                Xml.event_handler -> [> `OnFormInput ] attrib
+              val a_onhashchange :
+                Xml.event_handler -> [> `OnHashChange ] attrib
+              val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
+              val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
+              val a_onmousewheel :
+                Xml.event_handler -> [> `OnMouseWheel ] attrib
+              val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
+              val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
+              val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
+              val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
+              val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
+              val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
+              val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
+              val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
+              val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
+              val a_onratechange :
+                Xml.event_handler -> [> `OnRateChange ] attrib
+              val a_onreadystatechange :
+                Xml.event_handler -> [> `OnReadyStateChange ] attrib
+              val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
+              val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+              val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+              val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
+              val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
+              val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
+              val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
+              val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
+              val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
+              val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
+              val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
+              val a_ontimeupdate :
+                Xml.event_handler -> [> `OnTimeUpdate ] attrib
+              val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
+              val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+              val a_onvolumechange :
+                Xml.event_handler -> [> `OnVolumeChange ] attrib
+              val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
+              val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+              val a_onloadeddata :
+                Xml.event_handler -> [> `OnLoadedData ] attrib
+              val a_onloadedmetadata :
+                Xml.event_handler -> [> `OnLoadedMetaData ] attrib
+              val a_onloadstart :
+                Xml.event_handler -> [> `OnLoadStart ] attrib
+              val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
+              val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+              val a_oncontextmenu :
+                Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
+              val a_ondblclick :
+                Xml.mouse_event_handler -> [> `OnDblClick ] attrib
+              val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
+              val a_ondragend :
+                Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
+              val a_ondragenter :
+                Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
+              val a_ondragleave :
+                Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
+              val a_ondragover :
+                Xml.mouse_event_handler -> [> `OnDragOver ] attrib
+              val a_ondragstart :
+                Xml.mouse_event_handler -> [> `OnDragStart ] attrib
+              val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
+              val a_onmousedown :
+                Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+              val a_onmouseup :
+                Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+              val a_onmouseover :
+                Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+              val a_onmousemove :
+                Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+              val a_onmouseout :
+                Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+              val a_ontouchstart :
+                Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+              val a_ontouchend :
+                Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+              val a_ontouchmove :
+                Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+              val a_ontouchcancel :
+                Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+              val a_onkeypress :
+                Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
+              val a_onkeydown :
+                Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
+              val a_onkeyup :
+                Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+              val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
+              val a_allowpaymentrequest :
+                unit -> [> `Allowpaymentrequest ] attrib
+              val a_autocomplete :
+                Html_types.autocomplete_option wrap ->
+                [> `Autocomplete ] attrib
+              val a_async : unit -> [> `Async ] attrib
+              val a_autofocus : unit -> [> `Autofocus ] attrib
+              val a_autoplay : unit -> [> `Autoplay ] attrib
+              val a_muted : unit -> [> `Muted ] attrib
+              val a_crossorigin :
+                [< `Anonymous | `Use_credentials ] wrap ->
+                [> `Crossorigin ] attrib
+              val a_integrity : string wrap -> [> `Integrity ] attrib
+              val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
+              val a_challenge :
+                Html_types.text wrap -> [> `Challenge ] attrib
+              val a_contenteditable :
+                bool wrap -> [> `Contenteditable ] attrib
+              val a_contextmenu :
+                Html_types.idref wrap -> [> `Contextmenu ] attrib
+              val a_controls : unit -> [> `Controls ] attrib
+              val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
+              val a_draggable : bool wrap -> [> `Draggable ] attrib
+              val a_form : Html_types.idref wrap -> [> `Form ] attrib
+              val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
+              val a_formenctype :
+                Html_types.contenttype wrap -> [> `Formenctype ] attrib
+              val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
+              val a_formtarget :
+                Html_types.text wrap -> [> `Formtarget ] attrib
+              val a_hidden : unit -> [> `Hidden ] attrib
+              val a_high : Html_types.float_number wrap -> [> `High ] attrib
+              val a_icon : Xml.uri wrap -> [> `Icon ] attrib
+              val a_ismap : unit -> [> `Ismap ] attrib
+              val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
+              val a_list : Html_types.idref wrap -> [> `List ] attrib
+              val a_loop : unit -> [> `Loop ] attrib
+              val a_low : Html_types.float_number wrap -> [> `High ] attrib
+              val a_max : Html_types.float_number wrap -> [> `Max ] attrib
+              val a_input_max :
+                Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
+              val a_min : Html_types.float_number wrap -> [> `Min ] attrib
+              val a_input_min :
+                Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
+              val a_inputmode :
+                [< `Decimal
+                 | `Email
+                 | `None
+                 | `Numeric
+                 | `Search
+                 | `Tel
+                 | `Text
+                 | `Url ]
+                wrap -> [> `Inputmode ] attrib
+              val a_novalidate : unit -> [> `Novalidate ] attrib
+              val a_open : unit -> [> `Open ] attrib
+              val a_optimum :
+                Html_types.float_number wrap -> [> `Optimum ] attrib
+              val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
+              val a_placeholder :
+                Html_types.text wrap -> [> `Placeholder ] attrib
+              val a_poster : Xml.uri wrap -> [> `Poster ] attrib
+              val a_preload :
+                [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
+              val a_pubdate : unit -> [> `Pubdate ] attrib
+              val a_radiogroup :
+                Html_types.text wrap -> [> `Radiogroup ] attrib
+              val a_referrerpolicy :
+                Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
+              val a_required : unit -> [> `Required ] attrib
+              val a_reversed : unit -> [> `Reversed ] attrib
+              val a_sandbox :
+                [< Html_types.sandbox_token ] list wrap ->
+                [> `Sandbox ] attrib
+              val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
+              val a_scoped : unit -> [> `Scoped ] attrib
+              val a_seamless : unit -> [> `Seamless ] attrib
+              val a_sizes :
+                (Html_types.number * Html_types.number) list option wrap ->
+                [> `Sizes ] attrib
+              val a_span : Html_types.number wrap -> [> `Span ] attrib
+              val a_srclang :
+                Html_types.nmtoken wrap -> [> `XML_lang ] attrib
+              type image_candidate =
+                  [ `Url of uri
+                  | `Url_pixel of uri * Html_types.float_number
+                  | `Url_width of uri * Html_types.number ]
+              val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
+              val a_img_sizes :
+                Html_types.text list wrap -> [> `Img_sizes ] attrib
+              val a_start : Html_types.number wrap -> [> `Start ] attrib
+              val a_step :
+                Html_types.float_number option wrap -> [> `Step ] attrib
+              val a_translate :
+                [< `No | `Yes ] wrap -> [> `Translate ] attrib
+              val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
+              val a_version : Html_types.cdata wrap -> [> `Version ] attrib
+              val a_xmlns :
+                [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
+              val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
+              val a_cite : Xml.uri wrap -> [> `Cite ] attrib
+              val a_xml_space :
+                [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
+              val a_accesskey :
+                Html_types.character wrap -> [> `Accesskey ] attrib
+              val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
+              val a_accept_charset :
+                Html_types.charsets wrap -> [> `Accept_charset ] attrib
+              val a_accept :
+                Html_types.contenttypes wrap -> [> `Accept ] attrib
+              val a_href : Xml.uri wrap -> [> `Href ] attrib
+              val a_hreflang :
+                Html_types.languagecode wrap -> [> `Hreflang ] attrib
+              val a_download : string option wrap -> [> `Download ] attrib
+              val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
+              val a_tabindex :
+                Html_types.number wrap -> [> `Tabindex ] attrib
+              val a_mime_type :
+                Html_types.contenttype wrap -> [> `Mime_type ] attrib
+              val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
+              val a_action : Xml.uri wrap -> [> `Action ] attrib
+              val a_checked : unit -> [> `Checked ] attrib
+              val a_cols : Html_types.number wrap -> [> `Cols ] attrib
+              val a_enctype :
+                Html_types.contenttype wrap -> [> `Enctype ] attrib
+              val a_label_for :
+                Html_types.idref wrap -> [> `Label_for ] attrib
+              val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
+              val a_output_for :
+                Html_types.idrefs wrap -> [> `Output_for ] attrib
+              val a_for_list :
+                Html_types.idrefs wrap -> [> `Output_for ] attrib
+              val a_maxlength :
+                Html_types.number wrap -> [> `Maxlength ] attrib
+              val a_minlength :
+                Html_types.number wrap -> [> `Minlength ] attrib
+              val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
+              val a_formmethod :
+                [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
+              val a_multiple : unit -> [> `Multiple ] attrib
+              val a_name : Html_types.text wrap -> [> `Name ] attrib
+              val a_rows : Html_types.number wrap -> [> `Rows ] attrib
+              val a_selected : unit -> [> `Selected ] attrib
+              val a_size : Html_types.number wrap -> [> `Size ] attrib
+              val a_src : Xml.uri wrap -> [> `Src ] attrib
+              val a_input_type :
+                [< `Button
+                 | `Checkbox
+                 | `Color
+                 | `Date
+                 | `Datetime
+                 | `Datetime_local
+                 | `Email
+                 | `File
+                 | `Hidden
+                 | `Image
+                 | `Month
+                 | `Number
+                 | `Password
+                 | `Radio
+                 | `Range
+                 | `Reset
+                 | `Search
+                 | `Submit
+                 | `Tel
+                 | `Text
+                 | `Time
+                 | `Url
+                 | `Week ]
+                wrap -> [> `Input_Type ] attrib
+              val a_text_value :
+                Html_types.text wrap -> [> `Text_Value ] attrib
+              val a_int_value :
+                Html_types.number wrap -> [> `Int_Value ] attrib
+              val a_value : Html_types.cdata wrap -> [> `Value ] attrib
+              val a_float_value :
+                Html_types.float_number wrap -> [> `Float_Value ] attrib
+              val a_disabled : unit -> [> `Disabled ] attrib
+              val a_readonly : unit -> [> `ReadOnly ] attrib
+              val a_button_type :
+                [< `Button | `Reset | `Submit ] wrap ->
+                [> `Button_Type ] attrib
+              val a_script_type :
+                Html_types.script_type wrap -> [> `Script_type ] attrib
+              val a_command_type :
+                [< `Checkbox | `Command | `Radio ] wrap ->
+                [> `Command_Type ] attrib
+              val a_menu_type :
+                [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
+              val a_label : Html_types.text wrap -> [> `Label ] attrib
+              val a_align :
+                [< `Char | `Justify | `Left | `Right ] wrap ->
+                [> `Align ] attrib
+              val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
+              val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
+              val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
+              val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
+              val a_scope :
+                [< `Col | `Colgroup | `Row | `Rowgroup ] wrap ->
+                [> `Scope ] attrib
+              val a_summary : Html_types.text wrap -> [> `Summary ] attrib
+              val a_border : Html_types.pixels wrap -> [> `Border ] attrib
+              val a_rules :
+                [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
+                [> `Rules ] attrib
+              val a_char : Html_types.character wrap -> [> `Char ] attrib
+              val a_alt : Html_types.text wrap -> [> `Alt ] attrib
+              val a_height : Html_types.number wrap -> [> `Height ] attrib
+              val a_width : Html_types.number wrap -> [> `Width ] attrib
+              type shape = [ `Circle | `Default | `Poly | `Rect ]
+              val a_shape : shape wrap -> [> `Shape ] attrib
+              val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
+              val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
+              val a_data : Xml.uri wrap -> [> `Data ] attrib
+              val a_codetype :
+                Html_types.contenttype wrap -> [> `Codetype ] attrib
+              val a_frameborder :
+                [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
+              val a_marginheight :
+                Html_types.pixels wrap -> [> `Marginheight ] attrib
+              val a_marginwidth :
+                Html_types.pixels wrap -> [> `Marginwidth ] attrib
+              val a_scrolling :
+                [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
+              val a_target :
+                Html_types.frametarget wrap -> [> `Target ] attrib
+              val a_content : Html_types.text wrap -> [> `Content ] attrib
+              val a_http_equiv :
+                Html_types.text wrap -> [> `Http_equiv ] attrib
+              val a_defer : unit -> [> `Defer ] attrib
+              val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
+              val a_style : string wrap -> [> `Style_Attr ] attrib
+              val a_property : string wrap -> [> `Property ] attrib
+              val a_role : string list wrap -> [> `Role ] attrib
+              val a_aria : string -> string list wrap -> [> `Aria ] attrib
+              val txt : string wrap -> [> Html_types.txt ] elt
+              val html :
+                ?a:Html_types.html_attrib attrib list ->
+                [< Html_types.head ] elt wrap ->
+                [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
+              val head :
+                ?a:Html_types.head_attrib attrib list ->
+                [< Html_types.title ] elt wrap ->
+                Html_types.head_content_fun elt list_wrap ->
+                [> Html_types.head ] elt
+              val base :
+                ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
+              val title :
+                (Html_types.title_attrib, [< Html_types.title_content_fun ],
+                 [> Html_types.title ])
+                unary
+              val body :
+                ([< Html_types.body_attrib ],
+                 [< Html_types.body_content_fun ], [> Html_types.body ])
+                star
+              val svg :
+                ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+                [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
+                [> Html_types.svg ] elt
+              val footer :
+                ([< Html_types.footer_attrib ],
+                 [< Html_types.footer_content_fun ], [> Html_types.footer ])
+                star
+              val header :
+                ([< Html_types.header_attrib ],
+                 [< Html_types.header_content_fun ], [> Html_types.header ])
+                star
+              val section :
+                ([< Html_types.section_attrib ],
+                 [< Html_types.section_content_fun ],
+                 [> Html_types.section ])
+                star
+              val nav :
+                ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
+                 [> Html_types.nav ])
+                star
+              val h1 :
+                ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
+                 [> Html_types.h1 ])
+                star
+              val h2 :
+                ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
+                 [> Html_types.h2 ])
+                star
+              val h3 :
+                ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
+                 [> Html_types.h3 ])
+                star
+              val h4 :
+                ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
+                 [> Html_types.h4 ])
+                star
+              val h5 :
+                ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
+                 [> Html_types.h5 ])
+                star
+              val h6 :
+                ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
+                 [> Html_types.h6 ])
+                star
+              val hgroup :
+                ([< Html_types.hgroup_attrib ],
+                 [< Html_types.hgroup_content_fun ], [> Html_types.hgroup ])
+                star
+              val address :
+                ([< Html_types.address_attrib ],
+                 [< Html_types.address_content_fun ],
+                 [> Html_types.address ])
+                star
+              val article :
+                ([< Html_types.article_attrib ],
+                 [< Html_types.article_content_fun ],
+                 [> Html_types.article ])
+                star
+              val aside :
+                ([< Html_types.aside_attrib ],
+                 [< Html_types.aside_content_fun ], [> Html_types.aside ])
+                star
+              val main :
+                ([< Html_types.main_attrib ],
+                 [< Html_types.main_content_fun ], [> Html_types.main ])
+                star
+              val p :
+                ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
+                 [> Html_types.p ])
+                star
+              val pre :
+                ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
+                 [> Html_types.pre ])
+                star
+              val blockquote :
+                ([< Html_types.blockquote_attrib ],
+                 [< Html_types.blockquote_content_fun ],
+                 [> Html_types.blockquote ])
+                star
+              val dialog :
+                ([< Html_types.dialog_attrib ],
+                 [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+                star
+              val div :
+                ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
+                 [> Html_types.div ])
+                star
+              val dl :
+                ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
+                 [> Html_types.dl ])
+                star
+              val ol :
+                ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
+                 [> Html_types.ol ])
+                star
+              val ul :
+                ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
+                 [> Html_types.ul ])
+                star
+              val dd :
+                ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
+                 [> Html_types.dd ])
+                star
+              val dt :
+                ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
+                 [> Html_types.dt ])
+                star
+              val li :
+                ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
+                 [> Html_types.li ])
+                star
+              val figcaption :
+                ([< Html_types.figcaption_attrib ],
+                 [< Html_types.figcaption_content_fun ],
+                 [> Html_types.figcaption ])
+                star
+              val figure :
+                ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
+                            | `Top of [< Html_types.figcaption ] elt wrap ] ->
+                ([< Html_types.figure_attrib ],
+                 [< Html_types.figure_content_fun ], [> Html_types.figure ])
+                star
+              val hr :
+                ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
+              val b :
+                ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
+                 [> Html_types.b ])
+                star
+              val i :
+                ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
+                 [> Html_types.i ])
+                star
+              val u :
+                ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
+                 [> Html_types.u ])
+                star
+              val small :
+                ([< Html_types.small_attrib ],
+                 [< Html_types.small_content_fun ], [> Html_types.small ])
+                star
+              val sub :
+                ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
+                 [> Html_types.sub ])
+                star
+              val sup :
+                ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
+                 [> Html_types.sup ])
+                star
+              val mark :
+                ([< Html_types.mark_attrib ],
+                 [< Html_types.mark_content_fun ], [> Html_types.mark ])
+                star
+              val wbr :
+                ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
+              val bdo :
+                dir:[< `Ltr | `Rtl ] wrap ->
+                ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
+                 [> Html_types.bdo ])
+                star
+              val abbr :
+                ([< Html_types.abbr_attrib ],
+                 [< Html_types.abbr_content_fun ], [> Html_types.abbr ])
+                star
+              val br :
+                ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
+              val cite :
+                ([< Html_types.cite_attrib ],
+                 [< Html_types.cite_content_fun ], [> Html_types.cite ])
+                star
+              val code :
+                ([< Html_types.code_attrib ],
+                 [< Html_types.code_content_fun ], [> Html_types.code ])
+                star
+              val dfn :
+                ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
+                 [> Html_types.dfn ])
+                star
+              val em :
+                ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
+                 [> Html_types.em ])
+                star
+              val kbd :
+                ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
+                 [> Html_types.kbd ])
+                star
+              val q :
+                ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
+                 [> Html_types.q ])
+                star
+              val samp :
+                ([< Html_types.samp_attrib ],
+                 [< Html_types.samp_content_fun ], [> Html_types.samp ])
+                star
+              val span :
+                ([< Html_types.span_attrib ],
+                 [< Html_types.span_content_fun ], [> Html_types.span ])
+                star
+              val strong :
+                ([< Html_types.strong_attrib ],
+                 [< Html_types.strong_content_fun ], [> Html_types.strong ])
+                star
+              val time :
+                ([< Html_types.time_attrib ],
+                 [< Html_types.time_content_fun ], [> Html_types.time ])
+                star
+              val var :
+                ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
+                 [> Html_types.var ])
+                star
+              val a :
+                ([< Html_types.a_attrib ], 'a, [> 'a Html_types.a ]) star
+              val del :
+                ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
+              val ins :
+                ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
+              val img :
+                src:Xml.uri wrap ->
+                alt:Html_types.text wrap ->
+                ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
+              val picture :
+                img:[< Html_types.img ] elt wrap ->
+                ([< Html_types.picture_attrib ],
+                 [< Html_types.picture_content_fun ],
+                 [> Html_types.picture ])
+                star
+              val iframe :
+                ([< Html_types.iframe_attrib ],
+                 [< Html_types.iframe_content_fun ], [> Html_types.iframe ])
+                star
+              val object_ :
+                ?params:[< Html_types.param ] elt list_wrap ->
+                ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
+              val param :
+                ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
+              val embed :
+                ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
+              val audio :
+                ?src:Xml.uri wrap ->
+                ?srcs:[< Html_types.source ] elt list_wrap ->
+                ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ])
+                star
+              val video :
+                ?src:Xml.uri wrap ->
+                ?srcs:[< Html_types.source ] elt list_wrap ->
+                ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ])
+                star
+              val canvas :
+                ([< Html_types.canvas_attrib ], 'a,
+                 [> 'a Html_types.canvas ])
+                star
+              val source :
+                ([< Html_types.source_attrib ], [> Html_types.source ])
+                nullary
+              val area :
+                alt:Html_types.text wrap ->
+                ([< `Accesskey
+                  | `Alt
+                  | `Aria
+                  | `Class
+                  | `Contenteditable
+                  | `Contextmenu
+                  | `Coords
+                  | `Dir
+                  | `Draggable
+                  | `Hidden
+                  | `Hreflang
+                  | `Id
+                  | `Lang
+                  | `Media
+                  | `Mime_type
+                  | `OnAbort
+                  | `OnBlur
+                  | `OnCanPlay
+                  | `OnCanPlayThrough
+                  | `OnChange
+                  | `OnClick
+                  | `OnClose
+                  | `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
+                  | `Rel
+                  | `Role
+                  | `Shape
+                  | `Spellcheck
+                  | `Style_Attr
+                  | `Tabindex
+                  | `Target
+                  | `Title
+                  | `Translate
+                  | `User_data
+                  | `XML_lang
+                  | `XMLns ],
+                 [> Html_types.area ])
+                nullary
+              val map :
+                ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
+              val caption :
+                ([< Html_types.caption_attrib ],
+                 [< Html_types.caption_content_fun ],
+                 [> Html_types.caption ])
+                star
+              val table :
+                ?caption:[< Html_types.caption ] elt wrap ->
+                ?columns:[< Html_types.colgroup ] elt list_wrap ->
+                ?thead:[< Html_types.thead ] elt wrap ->
+                ?tfoot:[< Html_types.tfoot ] elt wrap ->
+                ([< Html_types.table_attrib ],
+                 [< Html_types.table_content_fun ], [> Html_types.table ])
+                star
+              val tablex :
+                ?caption:[< Html_types.caption ] elt wrap ->
+                ?columns:[< Html_types.colgroup ] elt list_wrap ->
+                ?thead:[< Html_types.thead ] elt wrap ->
+                ?tfoot:[< Html_types.tfoot ] elt wrap ->
+                ([< Html_types.tablex_attrib ],
+                 [< Html_types.tablex_content_fun ], [> Html_types.tablex ])
+                star
+              val colgroup :
+                ([< Html_types.colgroup_attrib ],
+                 [< Html_types.colgroup_content_fun ],
+                 [> Html_types.colgroup ])
+                star
+              val col :
+                ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
+              val thead :
+                ([< Html_types.thead_attrib ],
+                 [< Html_types.thead_content_fun ], [> Html_types.thead ])
+                star
+              val tbody :
+                ([< Html_types.tbody_attrib ],
+                 [< Html_types.tbody_content_fun ], [> Html_types.tbody ])
+                star
+              val tfoot :
+                ([< Html_types.tfoot_attrib ],
+                 [< Html_types.tfoot_content_fun ], [> Html_types.tfoot ])
+                star
+              val td :
+                ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
+                 [> Html_types.td ])
+                star
+              val th :
+                ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
+                 [> Html_types.th ])
+                star
+              val tr :
+                ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
+                 [> Html_types.tr ])
+                star
+              val form :
+                ([< Html_types.form_attrib ],
+                 [< Html_types.form_content_fun ], [> Html_types.form ])
+                star
+              val fieldset :
+                ?legend:[< Html_types.legend ] elt wrap ->
+                ([< Html_types.fieldset_attrib ],
+                 [< Html_types.fieldset_content_fun ],
+                 [> Html_types.fieldset ])
+                star
+              val legend :
+                ([< Html_types.legend_attrib ],
+                 [< Html_types.legend_content_fun ], [> Html_types.legend ])
+                star
+              val label :
+                ([< Html_types.label_attrib ],
+                 [< Html_types.label_content_fun ], [> Html_types.label ])
+                star
+              val input :
+                ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
               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
+                ([< Html_types.button_attrib ],
+                 [< Html_types.button_content_fun ], [> Html_types.button ])
+                star
               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
+                ([< Html_types.select_attrib ],
+                 [< Html_types.select_content_fun ], [> Html_types.select ])
+                star
+              val datalist :
+                ?children:[< `Options of
+                               [< Html_types.selectoption ] elt list_wrap
+                           | `Phras of [< Html_types.phrasing ] elt list_wrap
+                          ] ->
+                ([< Html_types.datalist_attrib ], [> Html_types.datalist ])
+                nullary
+              val optgroup :
+                label:Html_types.text wrap ->
+                ([< Html_types.optgroup_attrib ],
+                 [< Html_types.optgroup_content_fun ],
+                 [> Html_types.optgroup ])
+                star
+              val option :
+                ([< Html_types.option_attrib ],
+                 [< Html_types.option_content_fun ],
+                 [> Html_types.selectoption ])
+                unary
+              val textarea :
+                ([< Html_types.textarea_attrib ],
+                 [< Html_types.textarea_content_fun ],
+                 [> Html_types.textarea ])
+                unary
+              val keygen :
+                ([< Html_types.keygen_attrib ], [> Html_types.keygen ])
+                nullary
+              val progress :
+                ([< Html_types.progress_attrib ],
+                 [< Html_types.progress_content_fun ],
+                 [> Html_types.progress ])
+                star
+              val meter :
+                ([< Html_types.meter_attrib ],
+                 [< Html_types.meter_content_fun ], [> Html_types.meter ])
+                star
+              val output_elt :
+                ([< Html_types.output_elt_attrib ],
+                 [< Html_types.output_elt_content_fun ],
+                 [> Html_types.output_elt ])
+                star
+              val entity : string -> [> Html_types.txt ] elt
+              val space : unit -> [> Html_types.txt ] elt
+              val cdata : string -> [> Html_types.txt ] elt
+              val cdata_script : string -> [> Html_types.txt ] elt
+              val cdata_style : string -> [> Html_types.txt ] elt
+              val details :
+                [< Html_types.summary ] elt wrap ->
+                ([< Html_types.details_attrib ],
+                 [< Html_types.details_content_fun ],
+                 [> Html_types.details ])
+                star
+              val summary :
+                ([< Html_types.summary_attrib ],
+                 [< Html_types.summary_content_fun ],
+                 [> Html_types.summary ])
+                star
+              val command :
+                label:Html_types.text wrap ->
+                ([< Html_types.command_attrib ], [> Html_types.command ])
+                nullary
+              val menu :
+                ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
+                           | `Lis of
+                               [< `Li of [< Html_types.common ] ] elt
+                               list_wrap ] ->
+                ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
+              val script :
+                ([< Html_types.script_attrib ],
+                 [< Html_types.script_content_fun ], [> Html_types.script ])
+                unary
+              val noscript :
+                ([< Html_types.noscript_attrib ],
+                 [< Html_types.noscript_content_fun ],
+                 [> Html_types.noscript ])
+                star
+              val template :
+                ([< Html_types.template_attrib ],
+                 [< Html_types.template_content_fun ],
+                 [> Html_types.template ])
+                star
+              val meta :
+                ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
+              val style :
+                ([< Html_types.style_attrib ],
+                 [< Html_types.style_content_fun ], [> Html_types.style ])
+                star
+              val link :
+                rel:Html_types.linktypes wrap ->
+                href:Xml.uri wrap ->
+                ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
+              val rt :
+                ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
+                 [> Html_types.rt ])
+                star
+              val rp :
+                ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
+                 [> Html_types.rp ])
+                star
+              val ruby :
+                ([< Html_types.ruby_attrib ],
+                 [< Html_types.ruby_content_fun ], [> Html_types.ruby ])
+                star
+              val pcdata : string wrap -> [> Html_types.pcdata ] elt
+              val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+              val tot : Xml.elt -> 'a elt
+              val totl : Xml.elt list_wrap -> 'a elt list_wrap
+              val toelt : 'a elt -> Xml.elt
+              val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+              val doc_toelt : doc -> Xml.elt
+              val to_xmlattribs : 'a attrib list -> Xml.attrib list
+              val to_attrib : Xml.attrib -> 'a attrib
+              module Unsafe :
+                sig
+                  val data : string wrap -> 'a elt
+                  val node :
+                    string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+                  val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+                  val coerce_elt : 'a elt -> 'b elt
+                  val string_attrib : string -> string wrap -> 'a attrib
+                  val float_attrib : string -> float wrap -> 'a attrib
+                  val int_attrib : string -> int wrap -> 'a attrib
+                  val uri_attrib : string -> uri wrap -> 'a attrib
+                  val space_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                  val comma_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                end
             end
-        end
-      module R :
-        sig
-          val node :
-            'a Eliom_content.Html.elt React.signal Eliom_client_value.t ->
-            'a Eliom_content.Html.elt
-          val filter_attrib :
-            'a Eliom_content.Html.attrib ->
-            bool React.signal -> 'a Eliom_content.Html.attrib
           module Raw :
             sig
               type 'a elt = 'a elt
@@ -9828,12 +11322,11 @@
                 sig
                   module W :
                     sig
-                      type 'a t = 'a Eliom_content_core.Xml_wed.W.t
+                      type 'a t = 'a Xml.W.t
                       val return : 'a -> 'a t
-                      type ('a, 'b) ft =
-                          ('a, 'b) Eliom_content_core.Xml_wed.W.ft
+                      type ('a, 'b) ft = ('a, 'b) Xml.W.ft
                       val fmap : ('a, 'b) ft -> 'a t -> 'b t
-                      type 'a tlist = 'a Eliom_content_core.Xml_wed.W.tlist
+                      type 'a tlist = 'a Xml.W.tlist
                       val nil : unit -> 'a tlist
                       val singleton : 'a t -> 'a tlist
                       val cons : 'a t -> 'a tlist -> 'a tlist
@@ -9842,19 +11335,15 @@
                     end
                   type 'a wrap = 'a W.t
                   type 'a list_wrap = 'a W.tlist
-                  type uri = Eliom_content_core.Xml_wed.uri
+                  type uri = Xml.uri
                   val string_of_uri : (uri, string) W.ft
                   val uri_of_string : (string, uri) W.ft
                   type aname = string
-                  type event_handler =
-                      Eliom_content_core.Xml_wed.event_handler
-                  type mouse_event_handler =
-                      Eliom_content_core.Xml_wed.mouse_event_handler
-                  type keyboard_event_handler =
-                      Eliom_content_core.Xml_wed.keyboard_event_handler
-                  type touch_event_handler =
-                      Eliom_content_core.Xml_wed.touch_event_handler
-                  type attrib = Eliom_content_core.Xml_wed.attrib
+                  type event_handler = Xml.event_handler
+                  type mouse_event_handler = Xml.mouse_event_handler
+                  type keyboard_event_handler = Xml.keyboard_event_handler
+                  type touch_event_handler = Xml.touch_event_handler
+                  type attrib = Xml.attrib
                   val float_attrib : aname -> float wrap -> attrib
                   val int_attrib : aname -> int wrap -> attrib
                   val string_attrib : aname -> string wrap -> attrib
@@ -9869,7 +11358,7 @@
                     aname -> touch_event_handler -> attrib
                   val uri_attrib : aname -> uri wrap -> attrib
                   val uris_attrib : aname -> uri list wrap -> attrib
-                  type elt = Eliom_content_core.Xml_wed.elt
+                  type elt = Xml.elt
                   type ename = string
                   val empty : unit -> elt
                   val comment : string -> elt
@@ -9902,118 +11391,12 @@
               val a_xml_lang :
                 Html_types.languagecode wrap -> [> `XML_lang ] attrib
               val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
-              val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
-              val a_onafterprint :
-                Xml.event_handler -> [> `OnAfterPrint ] attrib
-              val a_onbeforeprint :
-                Xml.event_handler -> [> `OnBeforePrint ] attrib
-              val a_onbeforeunload :
-                Xml.event_handler -> [> `OnBeforeUnload ] attrib
-              val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
-              val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
-              val a_oncanplaythrough :
-                Xml.event_handler -> [> `OnCanPlayThrough ] attrib
-              val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
-              val a_ondurationchange :
-                Xml.event_handler -> [> `OnDurationChange ] attrib
-              val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
-              val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
-              val a_onerror : Xml.event_handler -> [> `OnError ] attrib
-              val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
-              val a_onformchange :
-                Xml.event_handler -> [> `OnFormChange ] attrib
-              val a_onforminput :
-                Xml.event_handler -> [> `OnFormInput ] attrib
-              val a_onhashchange :
-                Xml.event_handler -> [> `OnHashChange ] attrib
-              val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
-              val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
-              val a_onmousewheel :
-                Xml.event_handler -> [> `OnMouseWheel ] attrib
-              val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
-              val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
-              val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
-              val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
-              val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
-              val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
-              val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
-              val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
-              val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
-              val a_onratechange :
-                Xml.event_handler -> [> `OnRateChange ] attrib
-              val a_onreadystatechange :
-                Xml.event_handler -> [> `OnReadyStateChange ] attrib
-              val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
-              val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
-              val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
-              val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
-              val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
-              val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
-              val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
-              val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
-              val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
-              val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
-              val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
-              val a_ontimeupdate :
-                Xml.event_handler -> [> `OnTimeUpdate ] attrib
-              val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
-              val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
-              val a_onvolumechange :
-                Xml.event_handler -> [> `OnVolumeChange ] attrib
-              val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
-              val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
-              val a_onloadeddata :
-                Xml.event_handler -> [> `OnLoadedData ] attrib
-              val a_onloadedmetadata :
-                Xml.event_handler -> [> `OnLoadedMetaData ] attrib
-              val a_onloadstart :
-                Xml.event_handler -> [> `OnLoadStart ] attrib
-              val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
-              val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
-              val a_oncontextmenu :
-                Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
-              val a_ondblclick :
-                Xml.mouse_event_handler -> [> `OnDblClick ] attrib
-              val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
-              val a_ondragend :
-                Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
-              val a_ondragenter :
-                Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
-              val a_ondragleave :
-                Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
-              val a_ondragover :
-                Xml.mouse_event_handler -> [> `OnDragOver ] attrib
-              val a_ondragstart :
-                Xml.mouse_event_handler -> [> `OnDragStart ] attrib
-              val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
-              val a_onmousedown :
-                Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
-              val a_onmouseup :
-                Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
-              val a_onmouseover :
-                Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
-              val a_onmousemove :
-                Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
-              val a_onmouseout :
-                Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
-              val a_ontouchstart :
-                Xml.touch_event_handler -> [> `OnTouchStart ] attrib
-              val a_ontouchend :
-                Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
-              val a_ontouchmove :
-                Xml.touch_event_handler -> [> `OnTouchMove ] attrib
-              val a_ontouchcancel :
-                Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
-              val a_onkeypress :
-                Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
-              val a_onkeydown :
-                Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
-              val a_onkeyup :
-                Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
               val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
               val a_allowpaymentrequest :
                 unit -> [> `Allowpaymentrequest ] attrib
-              val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+              val a_autocomplete :
+                Html_types.autocomplete_option wrap ->
+                [> `Autocomplete ] attrib
               val a_async : unit -> [> `Async ] attrib
               val a_autofocus : unit -> [> `Autofocus ] attrib
               val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -10147,7 +11530,7 @@
                 Html_types.number wrap -> [> `Minlength ] attrib
               val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
               val a_formmethod :
-                [< `Get | `Post ] wrap -> [> `Method ] attrib
+                [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
               val a_multiple : unit -> [> `Multiple ] attrib
               val a_name : Html_types.text wrap -> [> `Name ] attrib
               val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -10191,6 +11574,8 @@
               val a_button_type :
                 [< `Button | `Reset | `Submit ] wrap ->
                 [> `Button_Type ] attrib
+              val a_script_type :
+                Html_types.script_type wrap -> [> `Script_type ] attrib
               val a_command_type :
                 [< `Checkbox | `Command | `Radio ] wrap ->
                 [> `Command_Type ] attrib
@@ -10263,8 +11648,8 @@
                  [< Html_types.body_content_fun ], [> Html_types.body ])
                 star
               val svg :
-                ?a:[< Html_types.svg_attrib ] Svg.R.Raw.attrib list ->
-                [< Html_types.svg_content ] Svg.R.Raw.elt list_wrap ->
+                ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+                [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
                 [> Html_types.svg ] elt
               val footer :
                 ([< Html_types.footer_attrib ],
@@ -10342,6 +11727,10 @@
                  [< Html_types.blockquote_content_fun ],
                  [> Html_types.blockquote ])
                 star
+              val dialog :
+                ([< Html_types.dialog_attrib ],
+                 [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+                star
               val div :
                 ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
                  [> Html_types.div ])
@@ -10535,6 +11924,7 @@
                   | `OnCanPlayThrough
                   | `OnChange
                   | `OnClick
+                  | `OnClose
                   | `OnContextMenu
                   | `OnDblClick
                   | `OnDrag
@@ -10635,182 +12025,1515 @@
                 ([< Html_types.thead_attrib ],
                  [< Html_types.thead_content_fun ], [> Html_types.thead ])
                 star
-              val tbody :
-                ([< Html_types.tbody_attrib ],
-                 [< Html_types.tbody_content_fun ], [> Html_types.tbody ])
+              val tbody :
+                ([< Html_types.tbody_attrib ],
+                 [< Html_types.tbody_content_fun ], [> Html_types.tbody ])
+                star
+              val tfoot :
+                ([< Html_types.tfoot_attrib ],
+                 [< Html_types.tfoot_content_fun ], [> Html_types.tfoot ])
+                star
+              val td :
+                ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
+                 [> Html_types.td ])
+                star
+              val th :
+                ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
+                 [> Html_types.th ])
+                star
+              val tr :
+                ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
+                 [> Html_types.tr ])
+                star
+              val form :
+                ([< Html_types.form_attrib ],
+                 [< Html_types.form_content_fun ], [> Html_types.form ])
+                star
+              val fieldset :
+                ?legend:[< Html_types.legend ] elt wrap ->
+                ([< Html_types.fieldset_attrib ],
+                 [< Html_types.fieldset_content_fun ],
+                 [> Html_types.fieldset ])
+                star
+              val legend :
+                ([< Html_types.legend_attrib ],
+                 [< Html_types.legend_content_fun ], [> Html_types.legend ])
+                star
+              val label :
+                ([< Html_types.label_attrib ],
+                 [< Html_types.label_content_fun ], [> Html_types.label ])
+                star
+              val input :
+                ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
+              val button :
+                ([< Html_types.button_attrib ],
+                 [< Html_types.button_content_fun ], [> Html_types.button ])
+                star
+              val select :
+                ([< Html_types.select_attrib ],
+                 [< Html_types.select_content_fun ], [> Html_types.select ])
+                star
+              val datalist :
+                ?children:[< `Options of
+                               [< Html_types.selectoption ] elt list_wrap
+                           | `Phras of [< Html_types.phrasing ] elt list_wrap
+                          ] ->
+                ([< Html_types.datalist_attrib ], [> Html_types.datalist ])
+                nullary
+              val optgroup :
+                label:Html_types.text wrap ->
+                ([< Html_types.optgroup_attrib ],
+                 [< Html_types.optgroup_content_fun ],
+                 [> Html_types.optgroup ])
+                star
+              val option :
+                ([< Html_types.option_attrib ],
+                 [< Html_types.option_content_fun ],
+                 [> Html_types.selectoption ])
+                unary
+              val textarea :
+                ([< Html_types.textarea_attrib ],
+                 [< Html_types.textarea_content_fun ],
+                 [> Html_types.textarea ])
+                unary
+              val keygen :
+                ([< Html_types.keygen_attrib ], [> Html_types.keygen ])
+                nullary
+              val progress :
+                ([< Html_types.progress_attrib ],
+                 [< Html_types.progress_content_fun ],
+                 [> Html_types.progress ])
+                star
+              val meter :
+                ([< Html_types.meter_attrib ],
+                 [< Html_types.meter_content_fun ], [> Html_types.meter ])
                 star
-              val tfoot :
-                ([< Html_types.tfoot_attrib ],
-                 [< Html_types.tfoot_content_fun ], [> Html_types.tfoot ])
+              val output_elt :
+                ([< Html_types.output_elt_attrib ],
+                 [< Html_types.output_elt_content_fun ],
+                 [> Html_types.output_elt ])
                 star
-              val td :
-                ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
-                 [> Html_types.td ])
+              val entity : string -> [> Html_types.txt ] elt
+              val space : unit -> [> Html_types.txt ] elt
+              val cdata : string -> [> Html_types.txt ] elt
+              val cdata_script : string -> [> Html_types.txt ] elt
+              val cdata_style : string -> [> Html_types.txt ] elt
+              val details :
+                [< Html_types.summary ] elt wrap ->
+                ([< Html_types.details_attrib ],
+                 [< Html_types.details_content_fun ],
+                 [> Html_types.details ])
                 star
-              val th :
-                ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
-                 [> Html_types.th ])
+              val summary :
+                ([< Html_types.summary_attrib ],
+                 [< Html_types.summary_content_fun ],
+                 [> Html_types.summary ])
                 star
-              val tr :
-                ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
-                 [> Html_types.tr ])
+              val command :
+                label:Html_types.text wrap ->
+                ([< Html_types.command_attrib ], [> Html_types.command ])
+                nullary
+              val menu :
+                ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
+                           | `Lis of
+                               [< `Li of [< Html_types.common ] ] elt
+                               list_wrap ] ->
+                ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
+              val script :
+                ([< Html_types.script_attrib ],
+                 [< Html_types.script_content_fun ], [> Html_types.script ])
+                unary
+              val noscript :
+                ([< Html_types.noscript_attrib ],
+                 [< Html_types.noscript_content_fun ],
+                 [> Html_types.noscript ])
                 star
-              val form :
-                ([< Html_types.form_attrib ],
-                 [< Html_types.form_content_fun ], [> Html_types.form ])
+              val template :
+                ([< Html_types.template_attrib ],
+                 [< Html_types.template_content_fun ],
+                 [> Html_types.template ])
                 star
-              val fieldset :
-                ?legend:[< Html_types.legend ] elt wrap ->
-                ([< Html_types.fieldset_attrib ],
-                 [< Html_types.fieldset_content_fun ],
-                 [> Html_types.fieldset ])
+              val meta :
+                ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
+              val style :
+                ([< Html_types.style_attrib ],
+                 [< Html_types.style_content_fun ], [> Html_types.style ])
                 star
-              val legend :
-                ([< Html_types.legend_attrib ],
-                 [< Html_types.legend_content_fun ], [> Html_types.legend ])
+              val link :
+                rel:Html_types.linktypes wrap ->
+                href:Xml.uri wrap ->
+                ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
+              val rt :
+                ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
+                 [> Html_types.rt ])
                 star
-              val label :
-                ([< Html_types.label_attrib ],
-                 [< Html_types.label_content_fun ], [> Html_types.label ])
+              val rp :
+                ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
+                 [> Html_types.rp ])
                 star
+              val ruby :
+                ([< Html_types.ruby_attrib ],
+                 [< Html_types.ruby_content_fun ], [> Html_types.ruby ])
+                star
+              val pcdata : string wrap -> [> Html_types.pcdata ] elt
+              val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+              val tot : Xml.elt -> 'a elt
+              val totl : Xml.elt list_wrap -> 'a elt list_wrap
+              val toelt : 'a elt -> Xml.elt
+              val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+              val doc_toelt : doc -> Xml.elt
+              val to_xmlattribs : 'a attrib list -> Xml.attrib list
+              val to_attrib : Xml.attrib -> 'a attrib
+              module Unsafe :
+                sig
+                  val data : string wrap -> 'a elt
+                  val node :
+                    string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+                  val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+                  val coerce_elt : 'a elt -> 'b elt
+                  val string_attrib : string -> string wrap -> 'a attrib
+                  val float_attrib : string -> float wrap -> 'a attrib
+                  val int_attrib : string -> int wrap -> 'a attrib
+                  val uri_attrib : string -> uri wrap -> 'a attrib
+                  val space_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                  val comma_sep_attrib :
+                    string -> string list wrap -> 'a attrib
+                end
+              val a_onabort : string -> [> `OnAbort ] Raw'.attrib
+              val a_onafterprint : string -> [> `OnAfterPrint ] Raw'.attrib
+              val a_onbeforeprint : string -> [> `OnBeforePrint ] Raw'.attrib
+              val a_onbeforeunload :
+                string -> [> `OnBeforeUnload ] Raw'.attrib
+              val a_onblur : string -> [> `OnBlur ] Raw'.attrib
+              val a_oncanplay : string -> [> `OnCanPlay ] Raw'.attrib
+              val a_oncanplaythrough :
+                string -> [> `OnCanPlayThrough ] Raw'.attrib
+              val a_onchange : string -> [> `OnChange ] Raw'.attrib
+              val a_onclose : string -> [> `OnClose ] Raw'.attrib
+              val a_ondurationchange :
+                string -> [> `OnDurationChange ] Raw'.attrib
+              val a_onemptied : string -> [> `OnEmptied ] Raw'.attrib
+              val a_onended : string -> [> `OnEnded ] Raw'.attrib
+              val a_onerror : string -> [> `OnError ] Raw'.attrib
+              val a_onfocus : string -> [> `OnFocus ] Raw'.attrib
+              val a_onformchange : string -> [> `OnFormChange ] Raw'.attrib
+              val a_onforminput : string -> [> `OnFormInput ] Raw'.attrib
+              val a_onhashchange : string -> [> `OnHashChange ] Raw'.attrib
+              val a_oninput : string -> [> `OnInput ] Raw'.attrib
+              val a_oninvalid : string -> [> `OnInvalid ] Raw'.attrib
+              val a_onmousewheel : string -> [> `OnMouseWheel ] Raw'.attrib
+              val a_onoffline : string -> [> `OnOffLine ] Raw'.attrib
+              val a_ononline : string -> [> `OnOnLine ] Raw'.attrib
+              val a_onpause : string -> [> `OnPause ] Raw'.attrib
+              val a_onplay : string -> [> `OnPlay ] Raw'.attrib
+              val a_onplaying : string -> [> `OnPlaying ] Raw'.attrib
+              val a_onpagehide : string -> [> `OnPageHide ] Raw'.attrib
+              val a_onpageshow : string -> [> `OnPageShow ] Raw'.attrib
+              val a_onpopstate : string -> [> `OnPopState ] Raw'.attrib
+              val a_onprogress : string -> [> `OnProgress ] Raw'.attrib
+              val a_onratechange : string -> [> `OnRateChange ] Raw'.attrib
+              val a_onreadystatechange :
+                string -> [> `OnReadyStateChange ] Raw'.attrib
+              val a_onredo : string -> [> `OnRedo ] Raw'.attrib
+              val a_onresize : string -> [> `OnResize ] Raw'.attrib
+              val a_onscroll : string -> [> `OnScroll ] Raw'.attrib
+              val a_onseeked : string -> [> `OnSeeked ] Raw'.attrib
+              val a_onseeking : string -> [> `OnSeeking ] Raw'.attrib
+              val a_onselect : string -> [> `OnSelect ] Raw'.attrib
+              val a_onshow : string -> [> `OnShow ] Raw'.attrib
+              val a_onstalled : string -> [> `OnStalled ] Raw'.attrib
+              val a_onstorage : string -> [> `OnStorage ] Raw'.attrib
+              val a_onsubmit : string -> [> `OnSubmit ] Raw'.attrib
+              val a_onsuspend : string -> [> `OnSuspend ] Raw'.attrib
+              val a_ontimeupdate : string -> [> `OnTimeUpdate ] Raw'.attrib
+              val a_onundo : string -> [> `OnUndo ] Raw'.attrib
+              val a_onunload : string -> [> `OnUnload ] Raw'.attrib
+              val a_onvolumechange :
+                string -> [> `OnVolumeChange ] Raw'.attrib
+              val a_onwaiting : string -> [> `OnWaiting ] Raw'.attrib
+              val a_onload : string -> [> `OnLoad ] Raw'.attrib
+              val a_onloadeddata : string -> [> `OnLoadedData ] Raw'.attrib
+              val a_onloadedmetadata :
+                string -> [> `OnLoadedMetaData ] Raw'.attrib
+              val a_onloadstart : string -> [> `OnLoadStart ] Raw'.attrib
+              val a_onmessage : string -> [> `OnMessage ] Raw'.attrib
+              val a_onclick : string -> [> `OnClick ] Raw'.attrib
+              val a_oncontextmenu : string -> [> `OnContextMenu ] Raw'.attrib
+              val a_ondblclick : string -> [> `OnDblClick ] Raw'.attrib
+              val a_ondrag : string -> [> `OnDrag ] Raw'.attrib
+              val a_ondragend : string -> [> `OnDragEnd ] Raw'.attrib
+              val a_ondragenter : string -> [> `OnDragEnter ] Raw'.attrib
+              val a_ondragleave : string -> [> `OnDragLeave ] Raw'.attrib
+              val a_ondragover : string -> [> `OnDragOver ] Raw'.attrib
+              val a_ondragstart : string -> [> `OnDragStart ] Raw'.attrib
+              val a_ondrop : string -> [> `OnDrop ] Raw'.attrib
+              val a_onmousedown : string -> [> `OnMouseDown ] Raw'.attrib
+              val a_onmouseup : string -> [> `OnMouseUp ] Raw'.attrib
+              val a_onmouseover : string -> [> `OnMouseOver ] Raw'.attrib
+              val a_onmousemove : string -> [> `OnMouseMove ] Raw'.attrib
+              val a_onmouseout : string -> [> `OnMouseOut ] Raw'.attrib
+              val a_ontouchstart : string -> [> `OnTouchStart ] Raw'.attrib
+              val a_ontouchend : string -> [> `OnTouchEnd ] Raw'.attrib
+              val a_ontouchmove : string -> [> `OnTouchMove ] Raw'.attrib
+              val a_ontouchcancel : string -> [> `OnTouchCancel ] Raw'.attrib
+              val a_onkeypress : string -> [> `OnKeyPress ] Raw'.attrib
+              val a_onkeydown : string -> [> `OnKeyDown ] Raw'.attrib
+              val a_onkeyup : string -> [> `OnKeyUp ] Raw'.attrib
+            end
+          type 'a elt = 'a elt
+          type doc = Html_types.html elt
+          type 'a attrib = 'a attrib
+          module Xml :
+            sig
+              module W :
+                sig
+                  type 'a t = 'a Xml.W.t
+                  val return : 'a -> 'a t
+                  type ('a, 'b) ft = ('a, 'b) Xml.W.ft
+                  val fmap : ('a, 'b) ft -> 'a t -> 'b t
+                  type 'a tlist = 'a Xml.W.tlist
+                  val nil : unit -> 'a tlist
+                  val singleton : 'a t -> 'a tlist
+                  val cons : 'a t -> 'a tlist -> 'a tlist
+                  val append : 'a tlist -> 'a tlist -> 'a tlist
+                  val map : ('a, 'b) ft -> 'a tlist -> 'b tlist
+                end
+              type 'a wrap = 'a W.t
+              type 'a list_wrap = 'a W.tlist
+              type uri = Xml.uri
+              val string_of_uri : (uri, string) W.ft
+              val uri_of_string : (string, uri) W.ft
+              type aname = string
+              type event_handler = Xml.event_handler
+              type mouse_event_handler = Xml.mouse_event_handler
+              type keyboard_event_handler = Xml.keyboard_event_handler
+              type touch_event_handler = Xml.touch_event_handler
+              type attrib = Xml.attrib
+              val float_attrib : aname -> float wrap -> attrib
+              val int_attrib : aname -> int wrap -> attrib
+              val string_attrib : aname -> string wrap -> attrib
+              val space_sep_attrib : aname -> string list wrap -> attrib
+              val comma_sep_attrib : aname -> string list wrap -> attrib
+              val event_handler_attrib : aname -> event_handler -> attrib
+              val mouse_event_handler_attrib :
+                aname -> mouse_event_handler -> attrib
+              val keyboard_event_handler_attrib :
+                aname -> keyboard_event_handler -> attrib
+              val touch_event_handler_attrib :
+                aname -> touch_event_handler -> attrib
+              val uri_attrib : aname -> uri wrap -> attrib
+              val uris_attrib : aname -> uri list wrap -> attrib
+              type elt = Xml.elt
+              type ename = string
+              val empty : unit -> elt
+              val comment : string -> elt
+              val pcdata : string wrap -> elt
+              val encodedpcdata : string wrap -> elt
+              val entity : string -> elt
+              val leaf : ?a:attrib list -> ename -> elt
+              val node : ?a:attrib list -> ename -> elt list_wrap -> elt
+              val cdata : string -> elt
+              val cdata_script : string -> elt
+              val cdata_style : string -> elt
+            end
+          type 'a wrap = 'a Xml.W.t
+          type 'a list_wrap = 'a Xml.W.tlist
+          type ('a, 'b) nullary = ?a:'a attrib list -> unit -> 'b elt
+          type ('a, 'b, 'c) unary =
+              ?a:'a attrib list -> 'b elt wrap -> 'c elt
+          type ('a, 'b, 'c) star =
+              ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+          module Info : Xml_sigs.Info
+          type uri = Xml.uri
+          val string_of_uri : (uri, string) Xml.W.ft
+          val a_class : Html_types.nmtokens wrap -> [> `Class ] attrib
+          val a_user_data :
+            Html_types.nmtoken ->
+            Html_types.text wrap -> [> `User_data ] attrib
+          val a_id : Html_types.text wrap -> [> `Id ] attrib
+          val a_title : Html_types.text wrap -> [> `Title ] attrib
+          val a_xml_lang :
+            Html_types.languagecode wrap -> [> `XML_lang ] attrib
+          val a_lang : Html_types.languagecode wrap -> [> `Lang ] attrib
+          val a_onabort : Xml.event_handler -> [> `OnAbort ] attrib
+          val a_onafterprint : Xml.event_handler -> [> `OnAfterPrint ] attrib
+          val a_onbeforeprint :
+            Xml.event_handler -> [> `OnBeforePrint ] attrib
+          val a_onbeforeunload :
+            Xml.event_handler -> [> `OnBeforeUnload ] attrib
+          val a_onblur : Xml.event_handler -> [> `OnBlur ] attrib
+          val a_oncanplay : Xml.event_handler -> [> `OnCanPlay ] attrib
+          val a_oncanplaythrough :
+            Xml.event_handler -> [> `OnCanPlayThrough ] attrib
+          val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+          val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
+          val a_ondurationchange :
+            Xml.event_handler -> [> `OnDurationChange ] attrib
+          val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
+          val a_onended : Xml.event_handler -> [> `OnEnded ] attrib
+          val a_onerror : Xml.event_handler -> [> `OnError ] attrib
+          val a_onfocus : Xml.event_handler -> [> `OnFocus ] attrib
+          val a_onformchange : Xml.event_handler -> [> `OnFormChange ] attrib
+          val a_onforminput : Xml.event_handler -> [> `OnFormInput ] attrib
+          val a_onhashchange : Xml.event_handler -> [> `OnHashChange ] attrib
+          val a_oninput : Xml.event_handler -> [> `OnInput ] attrib
+          val a_oninvalid : Xml.event_handler -> [> `OnInvalid ] attrib
+          val a_onmousewheel : Xml.event_handler -> [> `OnMouseWheel ] attrib
+          val a_onoffline : Xml.event_handler -> [> `OnOffLine ] attrib
+          val a_ononline : Xml.event_handler -> [> `OnOnLine ] attrib
+          val a_onpause : Xml.event_handler -> [> `OnPause ] attrib
+          val a_onplay : Xml.event_handler -> [> `OnPlay ] attrib
+          val a_onplaying : Xml.event_handler -> [> `OnPlaying ] attrib
+          val a_onpagehide : Xml.event_handler -> [> `OnPageHide ] attrib
+          val a_onpageshow : Xml.event_handler -> [> `OnPageShow ] attrib
+          val a_onpopstate : Xml.event_handler -> [> `OnPopState ] attrib
+          val a_onprogress : Xml.event_handler -> [> `OnProgress ] attrib
+          val a_onratechange : Xml.event_handler -> [> `OnRateChange ] attrib
+          val a_onreadystatechange :
+            Xml.event_handler -> [> `OnReadyStateChange ] attrib
+          val a_onredo : Xml.event_handler -> [> `OnRedo ] attrib
+          val a_onresize : Xml.event_handler -> [> `OnResize ] attrib
+          val a_onscroll : Xml.event_handler -> [> `OnScroll ] attrib
+          val a_onseeked : Xml.event_handler -> [> `OnSeeked ] attrib
+          val a_onseeking : Xml.event_handler -> [> `OnSeeking ] attrib
+          val a_onselect : Xml.event_handler -> [> `OnSelect ] attrib
+          val a_onshow : Xml.event_handler -> [> `OnShow ] attrib
+          val a_onstalled : Xml.event_handler -> [> `OnStalled ] attrib
+          val a_onstorage : Xml.event_handler -> [> `OnStorage ] attrib
+          val a_onsubmit : Xml.event_handler -> [> `OnSubmit ] attrib
+          val a_onsuspend : Xml.event_handler -> [> `OnSuspend ] attrib
+          val a_ontimeupdate : Xml.event_handler -> [> `OnTimeUpdate ] attrib
+          val a_onundo : Xml.event_handler -> [> `OnUndo ] attrib
+          val a_onunload : Xml.event_handler -> [> `OnUnload ] attrib
+          val a_onvolumechange :
+            Xml.event_handler -> [> `OnVolumeChange ] attrib
+          val a_onwaiting : Xml.event_handler -> [> `OnWaiting ] attrib
+          val a_onload : Xml.event_handler -> [> `OnLoad ] attrib
+          val a_onloadeddata : Xml.event_handler -> [> `OnLoadedData ] attrib
+          val a_onloadedmetadata :
+            Xml.event_handler -> [> `OnLoadedMetaData ] attrib
+          val a_onloadstart : Xml.event_handler -> [> `OnLoadStart ] attrib
+          val a_onmessage : Xml.event_handler -> [> `OnMessage ] attrib
+          val a_onclick : Xml.mouse_event_handler -> [> `OnClick ] attrib
+          val a_oncontextmenu :
+            Xml.mouse_event_handler -> [> `OnContextMenu ] attrib
+          val a_ondblclick :
+            Xml.mouse_event_handler -> [> `OnDblClick ] attrib
+          val a_ondrag : Xml.mouse_event_handler -> [> `OnDrag ] attrib
+          val a_ondragend : Xml.mouse_event_handler -> [> `OnDragEnd ] attrib
+          val a_ondragenter :
+            Xml.mouse_event_handler -> [> `OnDragEnter ] attrib
+          val a_ondragleave :
+            Xml.mouse_event_handler -> [> `OnDragLeave ] attrib
+          val a_ondragover :
+            Xml.mouse_event_handler -> [> `OnDragOver ] attrib
+          val a_ondragstart :
+            Xml.mouse_event_handler -> [> `OnDragStart ] attrib
+          val a_ondrop : Xml.mouse_event_handler -> [> `OnDrop ] attrib
+          val a_onmousedown :
+            Xml.mouse_event_handler -> [> `OnMouseDown ] attrib
+          val a_onmouseup : Xml.mouse_event_handler -> [> `OnMouseUp ] attrib
+          val a_onmouseover :
+            Xml.mouse_event_handler -> [> `OnMouseOver ] attrib
+          val a_onmousemove :
+            Xml.mouse_event_handler -> [> `OnMouseMove ] attrib
+          val a_onmouseout :
+            Xml.mouse_event_handler -> [> `OnMouseOut ] attrib
+          val a_ontouchstart :
+            Xml.touch_event_handler -> [> `OnTouchStart ] attrib
+          val a_ontouchend :
+            Xml.touch_event_handler -> [> `OnTouchEnd ] attrib
+          val a_ontouchmove :
+            Xml.touch_event_handler -> [> `OnTouchMove ] attrib
+          val a_ontouchcancel :
+            Xml.touch_event_handler -> [> `OnTouchCancel ] attrib
+          val a_onkeypress :
+            Xml.keyboard_event_handler -> [> `OnKeyPress ] attrib
+          val a_onkeydown :
+            Xml.keyboard_event_handler -> [> `OnKeyDown ] attrib
+          val a_onkeyup : Xml.keyboard_event_handler -> [> `OnKeyUp ] attrib
+          val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
+          val a_allowpaymentrequest :
+            unit -> [> `Allowpaymentrequest ] attrib
+          val a_autocomplete :
+            Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
+          val a_async : unit -> [> `Async ] attrib
+          val a_autofocus : unit -> [> `Autofocus ] attrib
+          val a_autoplay : unit -> [> `Autoplay ] attrib
+          val a_muted : unit -> [> `Muted ] attrib
+          val a_crossorigin :
+            [< `Anonymous | `Use_credentials ] wrap ->
+            [> `Crossorigin ] attrib
+          val a_integrity : string wrap -> [> `Integrity ] attrib
+          val a_mediagroup : string wrap -> [> `Mediagroup ] attrib
+          val a_challenge : Html_types.text wrap -> [> `Challenge ] attrib
+          val a_contenteditable : bool wrap -> [> `Contenteditable ] attrib
+          val a_contextmenu :
+            Html_types.idref wrap -> [> `Contextmenu ] attrib
+          val a_controls : unit -> [> `Controls ] attrib
+          val a_dir : [< `Ltr | `Rtl ] wrap -> [> `Dir ] attrib
+          val a_draggable : bool wrap -> [> `Draggable ] attrib
+          val a_form : Html_types.idref wrap -> [> `Form ] attrib
+          val a_formaction : Xml.uri wrap -> [> `Formaction ] attrib
+          val a_formenctype :
+            Html_types.contenttype wrap -> [> `Formenctype ] attrib
+          val a_formnovalidate : unit -> [> `Formnovalidate ] attrib
+          val a_formtarget : Html_types.text wrap -> [> `Formtarget ] attrib
+          val a_hidden : unit -> [> `Hidden ] attrib
+          val a_high : Html_types.float_number wrap -> [> `High ] attrib
+          val a_icon : Xml.uri wrap -> [> `Icon ] attrib
+          val a_ismap : unit -> [> `Ismap ] attrib
+          val a_keytype : Html_types.text wrap -> [> `Keytype ] attrib
+          val a_list : Html_types.idref wrap -> [> `List ] attrib
+          val a_loop : unit -> [> `Loop ] attrib
+          val a_low : Html_types.float_number wrap -> [> `High ] attrib
+          val a_max : Html_types.float_number wrap -> [> `Max ] attrib
+          val a_input_max :
+            Html_types.number_or_datetime wrap -> [> `Input_Max ] attrib
+          val a_min : Html_types.float_number wrap -> [> `Min ] attrib
+          val a_input_min :
+            Html_types.number_or_datetime wrap -> [> `Input_Min ] attrib
+          val a_inputmode :
+            [< `Decimal
+             | `Email
+             | `None
+             | `Numeric
+             | `Search
+             | `Tel
+             | `Text
+             | `Url ]
+            wrap -> [> `Inputmode ] attrib
+          val a_novalidate : unit -> [> `Novalidate ] attrib
+          val a_open : unit -> [> `Open ] attrib
+          val a_optimum :
+            Html_types.float_number wrap -> [> `Optimum ] attrib
+          val a_pattern : Html_types.text wrap -> [> `Pattern ] attrib
+          val a_placeholder :
+            Html_types.text wrap -> [> `Placeholder ] attrib
+          val a_poster : Xml.uri wrap -> [> `Poster ] attrib
+          val a_preload :
+            [< `Audio | `Metadata | `None ] wrap -> [> `Preload ] attrib
+          val a_pubdate : unit -> [> `Pubdate ] attrib
+          val a_radiogroup : Html_types.text wrap -> [> `Radiogroup ] attrib
+          val a_referrerpolicy :
+            Html_types.referrerpolicy wrap -> [> `Referrerpolicy ] attrib
+          val a_required : unit -> [> `Required ] attrib
+          val a_reversed : unit -> [> `Reversed ] attrib
+          val a_sandbox :
+            [< Html_types.sandbox_token ] list wrap -> [> `Sandbox ] attrib
+          val a_spellcheck : bool wrap -> [> `Spellcheck ] attrib
+          val a_scoped : unit -> [> `Scoped ] attrib
+          val a_seamless : unit -> [> `Seamless ] attrib
+          val a_sizes :
+            (Html_types.number * Html_types.number) list option wrap ->
+            [> `Sizes ] attrib
+          val a_span : Html_types.number wrap -> [> `Span ] attrib
+          val a_srclang : Html_types.nmtoken wrap -> [> `XML_lang ] attrib
+          type image_candidate =
+              [ `Url of uri
+              | `Url_pixel of uri * Html_types.float_number
+              | `Url_width of uri * Html_types.number ]
+          val a_srcset : image_candidate list wrap -> [> `Srcset ] attrib
+          val a_img_sizes :
+            Html_types.text list wrap -> [> `Img_sizes ] attrib
+          val a_start : Html_types.number wrap -> [> `Start ] attrib
+          val a_step :
+            Html_types.float_number option wrap -> [> `Step ] attrib
+          val a_translate : [< `No | `Yes ] wrap -> [> `Translate ] attrib
+          val a_wrap : [< `Hard | `Soft ] wrap -> [> `Wrap ] attrib
+          val a_version : Html_types.cdata wrap -> [> `Version ] attrib
+          val a_xmlns : [< `W3_org_1999_xhtml ] wrap -> [> `XMLns ] attrib
+          val a_manifest : Xml.uri wrap -> [> `Manifest ] attrib
+          val a_cite : Xml.uri wrap -> [> `Cite ] attrib
+          val a_xml_space :
+            [< `Default | `Preserve ] wrap -> [> `XML_space ] attrib
+          val a_accesskey :
+            Html_types.character wrap -> [> `Accesskey ] attrib
+          val a_charset : Html_types.charset wrap -> [> `Charset ] attrib
+          val a_accept_charset :
+            Html_types.charsets wrap -> [> `Accept_charset ] attrib
+          val a_accept : Html_types.contenttypes wrap -> [> `Accept ] attrib
+          val a_href : Xml.uri wrap -> [> `Href ] attrib
+          val a_hreflang :
+            Html_types.languagecode wrap -> [> `Hreflang ] attrib
+          val a_download : string option wrap -> [> `Download ] attrib
+          val a_rel : Html_types.linktypes wrap -> [> `Rel ] attrib
+          val a_tabindex : Html_types.number wrap -> [> `Tabindex ] attrib
+          val a_mime_type :
+            Html_types.contenttype wrap -> [> `Mime_type ] attrib
+          val a_datetime : Html_types.cdata wrap -> [> `Datetime ] attrib
+          val a_action : Xml.uri wrap -> [> `Action ] attrib
+          val a_checked : unit -> [> `Checked ] attrib
+          val a_cols : Html_types.number wrap -> [> `Cols ] attrib
+          val a_enctype : Html_types.contenttype wrap -> [> `Enctype ] attrib
+          val a_label_for : Html_types.idref wrap -> [> `Label_for ] attrib
+          val a_for : Html_types.idref wrap -> [> `Label_for ] attrib
+          val a_output_for :
+            Html_types.idrefs wrap -> [> `Output_for ] attrib
+          val a_for_list : Html_types.idrefs wrap -> [> `Output_for ] attrib
+          val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
+          val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
+          val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
+          val a_formmethod :
+            [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
+          val a_multiple : unit -> [> `Multiple ] attrib
+          val a_name : Html_types.text wrap -> [> `Name ] attrib
+          val a_rows : Html_types.number wrap -> [> `Rows ] attrib
+          val a_selected : unit -> [> `Selected ] attrib
+          val a_size : Html_types.number wrap -> [> `Size ] attrib
+          val a_src : Xml.uri wrap -> [> `Src ] attrib
+          val a_input_type :
+            [< `Button
+             | `Checkbox
+             | `Color
+             | `Date
+             | `Datetime
+             | `Datetime_local
+             | `Email
+             | `File
+             | `Hidden
+             | `Image
+             | `Month
+             | `Number
+             | `Password
+             | `Radio
+             | `Range
+             | `Reset
+             | `Search
+             | `Submit
+             | `Tel
+             | `Text
+             | `Time
+             | `Url
+             | `Week ]
+            wrap -> [> `Input_Type ] attrib
+          val a_text_value : Html_types.text wrap -> [> `Text_Value ] attrib
+          val a_int_value : Html_types.number wrap -> [> `Int_Value ] attrib
+          val a_value : Html_types.cdata wrap -> [> `Value ] attrib
+          val a_float_value :
+            Html_types.float_number wrap -> [> `Float_Value ] attrib
+          val a_disabled : unit -> [> `Disabled ] attrib
+          val a_readonly : unit -> [> `ReadOnly ] attrib
+          val a_button_type :
+            [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+          val a_script_type :
+            Html_types.script_type wrap -> [> `Script_type ] attrib
+          val a_command_type :
+            [< `Checkbox | `Command | `Radio ] wrap ->
+            [> `Command_Type ] attrib
+          val a_menu_type :
+            [< `Context | `Toolbar ] wrap -> [> `Menu_Type ] attrib
+          val a_label : Html_types.text wrap -> [> `Label ] attrib
+          val a_align :
+            [< `Char | `Justify | `Left | `Right ] wrap -> [> `Align ] attrib
+          val a_axis : Html_types.cdata wrap -> [> `Axis ] attrib
+          val a_colspan : Html_types.number wrap -> [> `Colspan ] attrib
+          val a_headers : Html_types.idrefs wrap -> [> `Headers ] attrib
+          val a_rowspan : Html_types.number wrap -> [> `Rowspan ] attrib
+          val a_scope :
+            [< `Col | `Colgroup | `Row | `Rowgroup ] wrap ->
+            [> `Scope ] attrib
+          val a_summary : Html_types.text wrap -> [> `Summary ] attrib
+          val a_border : Html_types.pixels wrap -> [> `Border ] attrib
+          val a_rules :
+            [< `All | `Cols | `Groups | `None | `Rows ] wrap ->
+            [> `Rules ] attrib
+          val a_char : Html_types.character wrap -> [> `Char ] attrib
+          val a_alt : Html_types.text wrap -> [> `Alt ] attrib
+          val a_height : Html_types.number wrap -> [> `Height ] attrib
+          val a_width : Html_types.number wrap -> [> `Width ] attrib
+          type shape = [ `Circle | `Default | `Poly | `Rect ]
+          val a_shape : shape wrap -> [> `Shape ] attrib
+          val a_coords : Html_types.numbers wrap -> [> `Coords ] attrib
+          val a_usemap : Html_types.idref wrap -> [> `Usemap ] attrib
+          val a_data : Xml.uri wrap -> [> `Data ] attrib
+          val a_codetype :
+            Html_types.contenttype wrap -> [> `Codetype ] attrib
+          val a_frameborder :
+            [< `One | `Zero ] wrap -> [> `Frameborder ] attrib
+          val a_marginheight :
+            Html_types.pixels wrap -> [> `Marginheight ] attrib
+          val a_marginwidth :
+            Html_types.pixels wrap -> [> `Marginwidth ] attrib
+          val a_scrolling :
+            [< `Auto | `No | `Yes ] wrap -> [> `Scrolling ] attrib
+          val a_target : Html_types.frametarget wrap -> [> `Target ] attrib
+          val a_content : Html_types.text wrap -> [> `Content ] attrib
+          val a_http_equiv : Html_types.text wrap -> [> `Http_equiv ] attrib
+          val a_defer : unit -> [> `Defer ] attrib
+          val a_media : Html_types.mediadesc wrap -> [> `Media ] attrib
+          val a_style : string wrap -> [> `Style_Attr ] attrib
+          val a_property : string wrap -> [> `Property ] attrib
+          val a_role : string list wrap -> [> `Role ] attrib
+          val a_aria : string -> string list wrap -> [> `Aria ] attrib
+          val txt : string wrap -> [> Html_types.txt ] elt
+          val html :
+            ?a:Html_types.html_attrib attrib list ->
+            [< Html_types.head ] elt wrap ->
+            [< Html_types.body ] elt wrap -> [> Html_types.html ] elt
+          val head :
+            ?a:Html_types.head_attrib attrib list ->
+            [< Html_types.title ] elt wrap ->
+            Html_types.head_content_fun elt list_wrap ->
+            [> Html_types.head ] elt
+          val base :
+            ([< Html_types.base_attrib ], [> Html_types.base ]) nullary
+          val title :
+            (Html_types.title_attrib, [< Html_types.title_content_fun ],
+             [> Html_types.title ])
+            unary
+          val body :
+            ([< Html_types.body_attrib ], [< Html_types.body_content_fun ],
+             [> Html_types.body ])
+            star
+          val svg :
+            ?a:[< Html_types.svg_attrib ] Svg.D.Raw'.attrib list ->
+            [< Html_types.svg_content ] Svg.D.Raw'.elt list_wrap ->
+            [> Html_types.svg ] elt
+          val footer :
+            ([< Html_types.footer_attrib ],
+             [< Html_types.footer_content_fun ], [> Html_types.footer ])
+            star
+          val header :
+            ([< Html_types.header_attrib ],
+             [< Html_types.header_content_fun ], [> Html_types.header ])
+            star
+          val section :
+            ([< Html_types.section_attrib ],
+             [< Html_types.section_content_fun ], [> Html_types.section ])
+            star
+          val nav :
+            ([< Html_types.nav_attrib ], [< Html_types.nav_content_fun ],
+             [> Html_types.nav ])
+            star
+          val h1 :
+            ([< Html_types.h1_attrib ], [< Html_types.h1_content_fun ],
+             [> Html_types.h1 ])
+            star
+          val h2 :
+            ([< Html_types.h2_attrib ], [< Html_types.h2_content_fun ],
+             [> Html_types.h2 ])
+            star
+          val h3 :
+            ([< Html_types.h3_attrib ], [< Html_types.h3_content_fun ],
+             [> Html_types.h3 ])
+            star
+          val h4 :
+            ([< Html_types.h4_attrib ], [< Html_types.h4_content_fun ],
+             [> Html_types.h4 ])
+            star
+          val h5 :
+            ([< Html_types.h5_attrib ], [< Html_types.h5_content_fun ],
+             [> Html_types.h5 ])
+            star
+          val h6 :
+            ([< Html_types.h6_attrib ], [< Html_types.h6_content_fun ],
+             [> Html_types.h6 ])
+            star
+          val hgroup :
+            ([< Html_types.hgroup_attrib ],
+             [< Html_types.hgroup_content_fun ], [> Html_types.hgroup ])
+            star
+          val address :
+            ([< Html_types.address_attrib ],
+             [< Html_types.address_content_fun ], [> Html_types.address ])
+            star
+          val article :
+            ([< Html_types.article_attrib ],
+             [< Html_types.article_content_fun ], [> Html_types.article ])
+            star
+          val aside :
+            ([< Html_types.aside_attrib ], [< Html_types.aside_content_fun ],
+             [> Html_types.aside ])
+            star
+          val main :
+            ([< Html_types.main_attrib ], [< Html_types.main_content_fun ],
+             [> Html_types.main ])
+            star
+          val p :
+            ([< Html_types.p_attrib ], [< Html_types.p_content_fun ],
+             [> Html_types.p ])
+            star
+          val pre :
+            ([< Html_types.pre_attrib ], [< Html_types.pre_content_fun ],
+             [> Html_types.pre ])
+            star
+          val blockquote :
+            ([< Html_types.blockquote_attrib ],
+             [< Html_types.blockquote_content_fun ],
+             [> Html_types.blockquote ])
+            star
+          val dialog :
+            ([< Html_types.dialog_attrib ],
+             [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+            star
+          val div :
+            ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
+             [> Html_types.div ])
+            star
+          val dl :
+            ([< Html_types.dl_attrib ], [< Html_types.dl_content_fun ],
+             [> Html_types.dl ])
+            star
+          val ol :
+            ([< Html_types.ol_attrib ], [< Html_types.ol_content_fun ],
+             [> Html_types.ol ])
+            star
+          val ul :
+            ([< Html_types.ul_attrib ], [< Html_types.ul_content_fun ],
+             [> Html_types.ul ])
+            star
+          val dd :
+            ([< Html_types.dd_attrib ], [< Html_types.dd_content_fun ],
+             [> Html_types.dd ])
+            star
+          val dt :
+            ([< Html_types.dt_attrib ], [< Html_types.dt_content_fun ],
+             [> Html_types.dt ])
+            star
+          val li :
+            ([< Html_types.li_attrib ], [< Html_types.li_content_fun ],
+             [> Html_types.li ])
+            star
+          val figcaption :
+            ([< Html_types.figcaption_attrib ],
+             [< Html_types.figcaption_content_fun ],
+             [> Html_types.figcaption ])
+            star
+          val figure :
+            ?figcaption:[ `Bottom of [< Html_types.figcaption ] elt wrap
+                        | `Top of [< Html_types.figcaption ] elt wrap ] ->
+            ([< Html_types.figure_attrib ],
+             [< Html_types.figure_content_fun ], [> Html_types.figure ])
+            star
+          val hr : ([< Html_types.hr_attrib ], [> Html_types.hr ]) nullary
+          val b :
+            ([< Html_types.b_attrib ], [< Html_types.b_content_fun ],
+             [> Html_types.b ])
+            star
+          val i :
+            ([< Html_types.i_attrib ], [< Html_types.i_content_fun ],
+             [> Html_types.i ])
+            star
+          val u :
+            ([< Html_types.u_attrib ], [< Html_types.u_content_fun ],
+             [> Html_types.u ])
+            star
+          val small :
+            ([< Html_types.small_attrib ], [< Html_types.small_content_fun ],
+             [> Html_types.small ])
+            star
+          val sub :
+            ([< Html_types.sub_attrib ], [< Html_types.sub_content_fun ],
+             [> Html_types.sub ])
+            star
+          val sup :
+            ([< Html_types.sup_attrib ], [< Html_types.sup_content_fun ],
+             [> Html_types.sup ])
+            star
+          val mark :
+            ([< Html_types.mark_attrib ], [< Html_types.mark_content_fun ],
+             [> Html_types.mark ])
+            star
+          val wbr : ([< Html_types.wbr_attrib ], [> Html_types.wbr ]) nullary
+          val bdo :
+            dir:[< `Ltr | `Rtl ] wrap ->
+            ([< Html_types.bdo_attrib ], [< Html_types.bdo_content_fun ],
+             [> Html_types.bdo ])
+            star
+          val abbr :
+            ([< Html_types.abbr_attrib ], [< Html_types.abbr_content_fun ],
+             [> Html_types.abbr ])
+            star
+          val br : ([< Html_types.br_attrib ], [> Html_types.br ]) nullary
+          val cite :
+            ([< Html_types.cite_attrib ], [< Html_types.cite_content_fun ],
+             [> Html_types.cite ])
+            star
+          val code :
+            ([< Html_types.code_attrib ], [< Html_types.code_content_fun ],
+             [> Html_types.code ])
+            star
+          val dfn :
+            ([< Html_types.dfn_attrib ], [< Html_types.dfn_content_fun ],
+             [> Html_types.dfn ])
+            star
+          val em :
+            ([< Html_types.em_attrib ], [< Html_types.em_content_fun ],
+             [> Html_types.em ])
+            star
+          val kbd :
+            ([< Html_types.kbd_attrib ], [< Html_types.kbd_content_fun ],
+             [> Html_types.kbd ])
+            star
+          val q :
+            ([< Html_types.q_attrib ], [< Html_types.q_content_fun ],
+             [> Html_types.q ])
+            star
+          val samp :
+            ([< Html_types.samp_attrib ], [< Html_types.samp_content_fun ],
+             [> Html_types.samp ])
+            star
+          val span :
+            ([< Html_types.span_attrib ], [< Html_types.span_content_fun ],
+             [> Html_types.span ])
+            star
+          val strong :
+            ([< Html_types.strong_attrib ],
+             [< Html_types.strong_content_fun ], [> Html_types.strong ])
+            star
+          val time :
+            ([< Html_types.time_attrib ], [< Html_types.time_content_fun ],
+             [> Html_types.time ])
+            star
+          val var :
+            ([< Html_types.var_attrib ], [< Html_types.var_content_fun ],
+             [> Html_types.var ])
+            star
+          val del :
+            ([< Html_types.del_attrib ], 'a, [> 'a Html_types.del ]) star
+          val ins :
+            ([< Html_types.ins_attrib ], 'a, [> 'a Html_types.ins ]) star
+          val img :
+            src:Xml.uri wrap ->
+            alt:Html_types.text wrap ->
+            ([< Html_types.img_attrib ], [> Html_types.img ]) nullary
+          val picture :
+            img:[< Html_types.img ] elt wrap ->
+            ([< Html_types.picture_attrib ],
+             [< Html_types.picture_content_fun ], [> Html_types.picture ])
+            star
+          val iframe :
+            ([< Html_types.iframe_attrib ],
+             [< Html_types.iframe_content_fun ], [> Html_types.iframe ])
+            star
+          val object_ :
+            ?params:[< Html_types.param ] elt list_wrap ->
+            ([< Html_types.object__attrib ], 'a, [> `Object of 'a ]) star
+          val param :
+            ([< Html_types.param_attrib ], [> Html_types.param ]) nullary
+          val embed :
+            ([< Html_types.embed_attrib ], [> Html_types.embed ]) nullary
+          val audio :
+            ?src:Xml.uri wrap ->
+            ?srcs:[< Html_types.source ] elt list_wrap ->
+            ([< Html_types.audio_attrib ], 'a, [> 'a Html_types.audio ]) star
+          val video :
+            ?src:Xml.uri wrap ->
+            ?srcs:[< Html_types.source ] elt list_wrap ->
+            ([< Html_types.video_attrib ], 'a, [> 'a Html_types.video ]) star
+          val canvas :
+            ([< Html_types.canvas_attrib ], 'a, [> 'a Html_types.canvas ])
+            star
+          val source :
+            ([< Html_types.source_attrib ], [> Html_types.source ]) nullary
+          val area :
+            alt:Html_types.text wrap ->
+            ([< `Accesskey
+              | `Alt
+              | `Aria
+              | `Class
+              | `Contenteditable
+              | `Contextmenu
+              | `Coords
+              | `Dir
+              | `Draggable
+              | `Hidden
+              | `Hreflang
+              | `Id
+              | `Lang
+              | `Media
+              | `Mime_type
+              | `OnAbort
+              | `OnBlur
+              | `OnCanPlay
+              | `OnCanPlayThrough
+              | `OnChange
+              | `OnClick
+              | `OnClose
+              | `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
+              | `Rel
+              | `Role
+              | `Shape
+              | `Spellcheck
+              | `Style_Attr
+              | `Tabindex
+              | `Target
+              | `Title
+              | `Translate
+              | `User_data
+              | `XML_lang
+              | `XMLns ],
+             [> Html_types.area ])
+            nullary
+          val map :
+            ([< Html_types.map_attrib ], 'a, [> 'a Html_types.map ]) star
+          val caption :
+            ([< Html_types.caption_attrib ],
+             [< Html_types.caption_content_fun ], [> Html_types.caption ])
+            star
+          val table :
+            ?caption:[< Html_types.caption ] elt wrap ->
+            ?columns:[< Html_types.colgroup ] elt list_wrap ->
+            ?thead:[< Html_types.thead ] elt wrap ->
+            ?tfoot:[< Html_types.tfoot ] elt wrap ->
+            ([< Html_types.table_attrib ], [< Html_types.table_content_fun ],
+             [> Html_types.table ])
+            star
+          val tablex :
+            ?caption:[< Html_types.caption ] elt wrap ->
+            ?columns:[< Html_types.colgroup ] elt list_wrap ->
+            ?thead:[< Html_types.thead ] elt wrap ->
+            ?tfoot:[< Html_types.tfoot ] elt wrap ->
+            ([< Html_types.tablex_attrib ],
+             [< Html_types.tablex_content_fun ], [> Html_types.tablex ])
+            star
+          val colgroup :
+            ([< Html_types.colgroup_attrib ],
+             [< Html_types.colgroup_content_fun ], [> Html_types.colgroup ])
+            star
+          val col : ([< Html_types.col_attrib ], [> Html_types.col ]) nullary
+          val thead :
+            ([< Html_types.thead_attrib ], [< Html_types.thead_content_fun ],
+             [> Html_types.thead ])
+            star
+          val tbody :
+            ([< Html_types.tbody_attrib ], [< Html_types.tbody_content_fun ],
+             [> Html_types.tbody ])
+            star
+          val tfoot :
+            ([< Html_types.tfoot_attrib ], [< Html_types.tfoot_content_fun ],
+             [> Html_types.tfoot ])
+            star
+          val td :
+            ([< Html_types.td_attrib ], [< Html_types.td_content_fun ],
+             [> Html_types.td ])
+            star
+          val th :
+            ([< Html_types.th_attrib ], [< Html_types.th_content_fun ],
+             [> Html_types.th ])
+            star
+          val tr :
+            ([< Html_types.tr_attrib ], [< Html_types.tr_content_fun ],
+             [> Html_types.tr ])
+            star
+          val form :
+            ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
+             [> Html_types.form ])
+            star
+          val fieldset :
+            ?legend:[< Html_types.legend ] elt wrap ->
+            ([< Html_types.fieldset_attrib ],
+             [< Html_types.fieldset_content_fun ], [> Html_types.fieldset ])
+            star
+          val legend :
+            ([< Html_types.legend_attrib ],
+             [< Html_types.legend_content_fun ], [> Html_types.legend ])
+            star
+          val label :
+            ([< Html_types.label_attrib ], [< Html_types.label_content_fun ],
+             [> Html_types.label ])
+            star
+          val input :
+            ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
+          val button :
+            ([< Html_types.button_attrib ],
+             [< Html_types.button_content_fun ], [> Html_types.button ])
+            star
+          val select :
+            ([< Html_types.select_attrib ],
+             [< Html_types.select_content_fun ], [> Html_types.select ])
+            star
+          val datalist :
+            ?children:[< `Options of
+                           [< Html_types.selectoption ] elt list_wrap
+                       | `Phras of [< Html_types.phrasing ] elt list_wrap ] ->
+            ([< Html_types.datalist_attrib ], [> Html_types.datalist ])
+            nullary
+          val optgroup :
+            label:Html_types.text wrap ->
+            ([< Html_types.optgroup_attrib ],
+             [< Html_types.optgroup_content_fun ], [> Html_types.optgroup ])
+            star
+          val option :
+            ([< Html_types.option_attrib ],
+             [< Html_types.option_content_fun ],
+             [> Html_types.selectoption ])
+            unary
+          val textarea :
+            ([< Html_types.textarea_attrib ],
+             [< Html_types.textarea_content_fun ], [> Html_types.textarea ])
+            unary
+          val keygen :
+            ([< Html_types.keygen_attrib ], [> Html_types.keygen ]) nullary
+          val progress :
+            ([< Html_types.progress_attrib ],
+             [< Html_types.progress_content_fun ], [> Html_types.progress ])
+            star
+          val meter :
+            ([< Html_types.meter_attrib ], [< Html_types.meter_content_fun ],
+             [> Html_types.meter ])
+            star
+          val output_elt :
+            ([< Html_types.output_elt_attrib ],
+             [< Html_types.output_elt_content_fun ],
+             [> Html_types.output_elt ])
+            star
+          val entity : string -> [> Html_types.txt ] elt
+          val space : unit -> [> Html_types.txt ] elt
+          val cdata : string -> [> Html_types.txt ] elt
+          val cdata_script : string -> [> Html_types.txt ] elt
+          val cdata_style : string -> [> Html_types.txt ] elt
+          val details :
+            [< Html_types.summary ] elt wrap ->
+            ([< Html_types.details_attrib ],
+             [< Html_types.details_content_fun ], [> Html_types.details ])
+            star
+          val summary :
+            ([< Html_types.summary_attrib ],
+             [< Html_types.summary_content_fun ], [> Html_types.summary ])
+            star
+          val command :
+            label:Html_types.text wrap ->
+            ([< Html_types.command_attrib ], [> Html_types.command ]) nullary
+          val menu :
+            ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
+                       | `Lis of
+                           [< `Li of [< Html_types.common ] ] elt list_wrap ] ->
+            ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
+          val script :
+            ([< Html_types.script_attrib ],
+             [< Html_types.script_content_fun ], [> Html_types.script ])
+            unary
+          val noscript :
+            ([< Html_types.noscript_attrib ],
+             [< Html_types.noscript_content_fun ], [> Html_types.noscript ])
+            star
+          val template :
+            ([< Html_types.template_attrib ],
+             [< Html_types.template_content_fun ], [> Html_types.template ])
+            star
+          val meta :
+            ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
+          val style :
+            ([< Html_types.style_attrib ], [< Html_types.style_content_fun ],
+             [> Html_types.style ])
+            star
+          val link :
+            rel:Html_types.linktypes wrap ->
+            href:Xml.uri wrap ->
+            ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
+          val rt :
+            ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
+             [> Html_types.rt ])
+            star
+          val rp :
+            ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
+             [> Html_types.rp ])
+            star
+          val ruby :
+            ([< Html_types.ruby_attrib ], [< Html_types.ruby_content_fun ],
+             [> Html_types.ruby ])
+            star
+          val pcdata : string wrap -> [> Html_types.pcdata ] elt
+          val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
+          val tot : Xml.elt -> 'a elt
+          val totl : Xml.elt list_wrap -> 'a elt list_wrap
+          val toelt : 'a elt -> Xml.elt
+          val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
+          val doc_toelt : doc -> Xml.elt
+          val to_xmlattribs : 'a attrib list -> Xml.attrib list
+          val to_attrib : Xml.attrib -> 'a attrib
+          module Unsafe :
+            sig
+              val data : string wrap -> 'a elt
+              val node :
+                string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
+              val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
+              val coerce_elt : 'a elt -> 'b elt
+              val string_attrib : string -> string wrap -> 'a attrib
+              val float_attrib : string -> float wrap -> 'a attrib
+              val int_attrib : string -> int wrap -> 'a attrib
+              val uri_attrib : string -> uri wrap -> 'a attrib
+              val space_sep_attrib : string -> string list wrap -> 'a attrib
+              val comma_sep_attrib : string -> string list wrap -> 'a attrib
+            end
+          type ('a, 'b, 'c) lazy_star =
+              ?a:'a attrib list -> 'b elt list Eliom_lazy.request -> 'c elt
+          val lazy_form :
+            ([< Html_types.form_attrib ], [< Html_types.form_content_fun ],
+             [> Html_types.form ])
+            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 :
-                ([< Html_types.input_attrib ], [> Html_types.input ]) nullary
+                ?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 :
-                ([< Html_types.button_attrib ],
-                 [< Html_types.button_content_fun ], [> Html_types.button ])
-                star
+                ?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
+                    | `OnClose
+                    | `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 :
-                ([< Html_types.select_attrib ],
-                 [< Html_types.select_content_fun ], [> Html_types.select ])
-                star
-              val datalist :
-                ?children:[< `Options of
-                               [< Html_types.selectoption ] elt list_wrap
-                           | `Phras of [< Html_types.phrasing ] elt list_wrap
-                          ] ->
-                ([< Html_types.datalist_attrib ], [> Html_types.datalist ])
-                nullary
-              val optgroup :
-                label:Html_types.text wrap ->
-                ([< Html_types.optgroup_attrib ],
-                 [< Html_types.optgroup_content_fun ],
-                 [> Html_types.optgroup ])
-                star
-              val option :
-                ([< Html_types.option_attrib ],
-                 [< Html_types.option_content_fun ],
-                 [> Html_types.selectoption ])
-                unary
-              val textarea :
-                ([< Html_types.textarea_attrib ],
-                 [< Html_types.textarea_content_fun ],
-                 [> Html_types.textarea ])
-                unary
-              val keygen :
-                ([< Html_types.keygen_attrib ], [> Html_types.keygen ])
-                nullary
-              val progress :
-                ([< Html_types.progress_attrib ],
-                 [< Html_types.progress_content_fun ],
-                 [> Html_types.progress ])
-                star
-              val meter :
-                ([< Html_types.meter_attrib ],
-                 [< Html_types.meter_content_fun ], [> Html_types.meter ])
-                star
-              val output_elt :
-                ([< Html_types.output_elt_attrib ],
-                 [< Html_types.output_elt_content_fun ],
-                 [> Html_types.output_elt ])
-                star
-              val entity : string -> [> Html_types.txt ] elt
-              val space : unit -> [> Html_types.txt ] elt
-              val cdata : string -> [> Html_types.txt ] elt
-              val cdata_script : string -> [> Html_types.txt ] elt
-              val cdata_style : string -> [> Html_types.txt ] elt
-              val details :
-                [< Html_types.summary ] elt wrap ->
-                ([< Html_types.details_attrib ],
-                 [< Html_types.details_content_fun ],
-                 [> Html_types.details ])
-                star
-              val summary :
-                ([< Html_types.summary_attrib ],
-                 [< Html_types.summary_content_fun ],
-                 [> Html_types.summary ])
-                star
-              val command :
-                label:Html_types.text wrap ->
-                ([< Html_types.command_attrib ], [> Html_types.command ])
-                nullary
-              val menu :
-                ?children:[< `Flows of [< Html_types.flow5 ] elt list_wrap
-                           | `Lis of
-                               [< `Li of [< Html_types.common ] ] elt
-                               list_wrap ] ->
-                ([< Html_types.menu_attrib ], [> Html_types.menu ]) nullary
-              val script :
-                ([< Html_types.script_attrib ],
-                 [< Html_types.script_content_fun ], [> Html_types.script ])
-                unary
-              val noscript :
-                ([< Html_types.noscript_attrib ],
-                 [< Html_types.noscript_content_fun ],
-                 [> Html_types.noscript ])
-                star
-              val template :
-                ([< Html_types.template_attrib ],
-                 [< Html_types.template_content_fun ],
-                 [> Html_types.template ])
-                star
-              val meta :
-                ([< Html_types.meta_attrib ], [> Html_types.meta ]) nullary
-              val style :
-                ([< Html_types.style_attrib ],
-                 [< Html_types.style_content_fun ], [> Html_types.style ])
-                star
-              val link :
-                rel:Html_types.linktypes wrap ->
-                href:Xml.uri wrap ->
-                ([< Html_types.link_attrib ], [> Html_types.link ]) nullary
-              val rt :
-                ([< Html_types.rt_attrib ], [< Html_types.rt_content_fun ],
-                 [> Html_types.rt ])
-                star
-              val rp :
-                ([< Html_types.rp_attrib ], [< Html_types.rp_content_fun ],
-                 [> Html_types.rp ])
-                star
-              val ruby :
-                ([< Html_types.ruby_attrib ],
-                 [< Html_types.ruby_content_fun ], [> Html_types.ruby ])
-                star
-              val pcdata : string wrap -> [> Html_types.pcdata ] elt
-              val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
-              val tot : Xml.elt -> 'a elt
-              val totl : Xml.elt list_wrap -> 'a elt list_wrap
-              val toelt : 'a elt -> Xml.elt
-              val toeltl : 'a elt list_wrap -> Xml.elt list_wrap
-              val doc_toelt : doc -> Xml.elt
-              val to_xmlattribs : 'a attrib list -> Xml.attrib list
-              val to_attrib : Xml.attrib -> 'a attrib
-              module Unsafe :
-                sig
-                  val data : string wrap -> 'a elt
-                  val node :
-                    string -> ?a:'a attrib list -> 'b elt list_wrap -> 'c elt
-                  val leaf : string -> ?a:'a attrib list -> unit -> 'b elt
-                  val coerce_elt : 'a elt -> 'b elt
-                  val string_attrib : string -> string wrap -> 'a attrib
-                  val float_attrib : string -> float wrap -> 'a attrib
-                  val int_attrib : string -> int wrap -> 'a attrib
-                  val uri_attrib : string -> uri wrap -> 'a attrib
-                  val space_sep_attrib :
-                    string -> string list wrap -> 'a attrib
-                  val comma_sep_attrib :
-                    string -> string list wrap -> 'a attrib
-                end
+                ?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
+      module C :
+        sig
+          val node :
+            ?init:'a Eliom_content.Html.elt ->
+            'a Eliom_content.Html.elt Eliom_client_value.t ->
+            'a Eliom_content.Html.elt
+          val attr :
+            ?init:'a Eliom_content.Html.attrib ->
+            'a Eliom_content.Html.attrib Eliom_client_value.t ->
+            'a Eliom_content.Html.attrib
+        end
+      module Id :
+        sig
+          type +'a id
+          val new_elt_id :
+            ?global:bool -> unit -> 'a Eliom_content.Html.Id.id
+          val create_named_elt :
+            id:'a Eliom_content.Html.Id.id ->
+            'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
+          val create_global_elt :
+            'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
+          val create_request_elt :
+            ?reset:bool ->
+            'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
+          val have_id :
+            'a Eliom_content.Html.Id.id -> 'b Eliom_content.Html.elt -> bool
+        end
+      module R :
+        sig
           type 'a elt = 'a elt
           type doc = Html_types.html elt
           type 'a attrib = 'a attrib
@@ -10818,11 +13541,11 @@
             sig
               module W :
                 sig
-                  type 'a t = 'a Eliom_content_core.Xml_wed.W.t
+                  type 'a t = 'a Xml_shared.W.t
                   val return : 'a -> 'a t
-                  type ('a, 'b) ft = ('a, 'b) Eliom_content_core.Xml_wed.W.ft
+                  type ('a, 'b) ft = ('a, 'b) Xml_shared.W.ft
                   val fmap : ('a, 'b) ft -> 'a t -> 'b t
-                  type 'a tlist = 'a Eliom_content_core.Xml_wed.W.tlist
+                  type 'a tlist = 'a Xml_shared.W.tlist
                   val nil : unit -> 'a tlist
                   val singleton : 'a t -> 'a tlist
                   val cons : 'a t -> 'a tlist -> 'a tlist
@@ -10831,18 +13554,15 @@
                 end
               type 'a wrap = 'a W.t
               type 'a list_wrap = 'a W.tlist
-              type uri = Eliom_content_core.Xml_wed.uri
+              type uri = Xml_shared.uri
               val string_of_uri : (uri, string) W.ft
               val uri_of_string : (string, uri) W.ft
               type aname = string
-              type event_handler = Eliom_content_core.Xml_wed.event_handler
-              type mouse_event_handler =
-                  Eliom_content_core.Xml_wed.mouse_event_handler
-              type keyboard_event_handler =
-                  Eliom_content_core.Xml_wed.keyboard_event_handler
-              type touch_event_handler =
-                  Eliom_content_core.Xml_wed.touch_event_handler
-              type attrib = Eliom_content_core.Xml_wed.attrib
+              type event_handler = Xml_shared.event_handler
+              type mouse_event_handler = Xml_shared.mouse_event_handler
+              type keyboard_event_handler = Xml_shared.keyboard_event_handler
+              type touch_event_handler = Xml_shared.touch_event_handler
+              type attrib = Xml_shared.attrib
               val float_attrib : aname -> float wrap -> attrib
               val int_attrib : aname -> int wrap -> attrib
               val string_attrib : aname -> string wrap -> attrib
@@ -10857,7 +13577,7 @@
                 aname -> touch_event_handler -> attrib
               val uri_attrib : aname -> uri wrap -> attrib
               val uris_attrib : aname -> uri list wrap -> attrib
-              type elt = Eliom_content_core.Xml_wed.elt
+              type elt = Xml_shared.elt
               type ename = string
               val empty : unit -> elt
               val comment : string -> elt
@@ -10901,6 +13621,7 @@
           val a_oncanplaythrough :
             Xml.event_handler -> [> `OnCanPlayThrough ] attrib
           val a_onchange : Xml.event_handler -> [> `OnChange ] attrib
+          val a_onclose : Xml.event_handler -> [> `OnClose ] attrib
           val a_ondurationchange :
             Xml.event_handler -> [> `OnDurationChange ] attrib
           val a_onemptied : Xml.event_handler -> [> `OnEmptied ] attrib
@@ -10989,7 +13710,8 @@
           val a_allowfullscreen : unit -> [> `Allowfullscreen ] attrib
           val a_allowpaymentrequest :
             unit -> [> `Allowpaymentrequest ] attrib
-          val a_autocomplete : bool wrap -> [> `Autocomplete ] attrib
+          val a_autocomplete :
+            Html_types.autocomplete_option wrap -> [> `Autocomplete ] attrib
           val a_async : unit -> [> `Async ] attrib
           val a_autofocus : unit -> [> `Autofocus ] attrib
           val a_autoplay : unit -> [> `Autoplay ] attrib
@@ -11107,7 +13829,8 @@
           val a_maxlength : Html_types.number wrap -> [> `Maxlength ] attrib
           val a_minlength : Html_types.number wrap -> [> `Minlength ] attrib
           val a_method : [< `Get | `Post ] wrap -> [> `Method ] attrib
-          val a_formmethod : [< `Get | `Post ] wrap -> [> `Method ] attrib
+          val a_formmethod :
+            [< `Get | `Post ] wrap -> [> `Formmethod ] attrib
           val a_multiple : unit -> [> `Multiple ] attrib
           val a_name : Html_types.text wrap -> [> `Name ] attrib
           val a_rows : Html_types.number wrap -> [> `Rows ] attrib
@@ -11148,6 +13871,8 @@
           val a_readonly : unit -> [> `ReadOnly ] attrib
           val a_button_type :
             [< `Button | `Reset | `Submit ] wrap -> [> `Button_Type ] attrib
+          val a_script_type :
+            Html_types.script_type wrap -> [> `Script_type ] attrib
           val a_command_type :
             [< `Checkbox | `Command | `Radio ] wrap ->
             [> `Command_Type ] attrib
@@ -11293,6 +14018,10 @@
              [< Html_types.blockquote_content_fun ],
              [> Html_types.blockquote ])
             star
+          val dialog :
+            ([< Html_types.dialog_attrib ],
+             [< Html_types.dialog_content_fun ], [> Html_types.dialog ])
+            star
           val div :
             ([< Html_types.div_attrib ], [< Html_types.div_content_fun ],
              [> Html_types.div ])
@@ -11477,6 +14206,7 @@
               | `OnCanPlayThrough
               | `OnChange
               | `OnClick
+              | `OnClose
               | `OnContextMenu
               | `OnDblClick
               | `OnDrag
@@ -11712,7 +14442,6 @@
             ([< Html_types.ruby_attrib ], [< Html_types.ruby_content_fun ],
              [> Html_types.ruby ])
             star
-          val pcdata : string wrap -> [> Html_types.pcdata ] elt
           val of_seq : Xml_stream.signal Seq.t -> 'a elt list_wrap
           val tot : Xml.elt -> 'a elt
           val totl : Xml.elt list_wrap -> 'a elt list_wrap
@@ -11735,33 +14464,15 @@
               val space_sep_attrib : string -> string list wrap -> 'a attrib
               val comma_sep_attrib : string -> string list wrap -> 'a attrib
             end
-        end
-      module C :
-        sig
+          val pcdata :
+            string Eliom_shared.React.S.t ->
+            [> Html_types.span ] Eliom_content.Html.elt
           val node :
-            ?init:'a Eliom_content.Html.D.elt ->
-            'a Eliom_content.Html.elt Eliom_client_value.t ->
-            'a Eliom_content.Html.D.elt
-          val attr :
-            ?init:'a Eliom_content.Html.attrib ->
-            'a Eliom_content.Html.attrib Eliom_client_value.t ->
-            'a Eliom_content.Html.attrib
-        end
-      module Id :
-        sig
-          type +'a id
-          val new_elt_id :
-            ?global:bool -> unit -> 'a Eliom_content.Html.Id.id
-          val create_named_elt :
-            id:'a Eliom_content.Html.Id.id ->
-            'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
-          val create_global_elt :
-            'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
-          val create_request_elt :
-            ?reset:bool ->
-            'a Eliom_content.Html.elt -> 'a Eliom_content.Html.elt
-          val get_element :
-            'a Eliom_content.Html.Id.id -> 'a Eliom_content.Html.elt option
+            'a Eliom_content.Html.elt Eliom_shared.React.S.t ->
+            'a Eliom_content.Html.elt
+          val filter_attrib :
+            'a Eliom_content.Html.attrib ->
+            bool Eliom_shared.React.S.t -> 'a Eliom_content.Html.attrib
         end
       module Custom_data :
         sig
@@ -11779,947 +14490,16 @@
           val attrib :
             'a Eliom_content.Html.Custom_data.t ->
             'a -> [> `User_data ] Eliom_content.Html.attrib
-          val get_dom :
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t ->
-            'a Eliom_content.Html.Custom_data.t -> 'a
-          val set_dom :
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t ->
-            'a Eliom_content.Html.Custom_data.t -> 'a -> unit
-        end
-      module To_dom :
-        sig
-          type 'a elt = 'a elt
-          val of_element :
-            'a elt -> Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_node : 'a elt -> Js_of_ocaml.Dom.node Js_of_ocaml.Js.t
-          val of_pcdata :
-            [< Html_types.pcdata ] elt ->
-            Js_of_ocaml.Dom.text Js_of_ocaml.Js.t
-          val of_html :
-            [< Html_types.html ] elt ->
-            Js_of_ocaml.Dom_html.htmlElement Js_of_ocaml.Js.t
-          val of_head :
-            [< Html_types.head ] elt ->
-            Js_of_ocaml.Dom_html.headElement Js_of_ocaml.Js.t
-          val of_link :
-            [< Html_types.link ] elt ->
-            Js_of_ocaml.Dom_html.linkElement Js_of_ocaml.Js.t
-          val of_title :
-            [< Html_types.title ] elt ->
-            Js_of_ocaml.Dom_html.titleElement Js_of_ocaml.Js.t
-          val of_meta :
-            [< Html_types.meta ] elt ->
-            Js_of_ocaml.Dom_html.metaElement Js_of_ocaml.Js.t
-          val of_base :
-            [< Html_types.base ] elt ->
-            Js_of_ocaml.Dom_html.baseElement Js_of_ocaml.Js.t
-          val of_style :
-            [< Html_types.style ] elt ->
-            Js_of_ocaml.Dom_html.styleElement Js_of_ocaml.Js.t
-          val of_body :
-            [< Html_types.body ] elt ->
-            Js_of_ocaml.Dom_html.bodyElement Js_of_ocaml.Js.t
-          val of_form :
-            [< Html_types.form ] elt ->
-            Js_of_ocaml.Dom_html.formElement Js_of_ocaml.Js.t
-          val of_optgroup :
-            [< Html_types.optgroup ] elt ->
-            Js_of_ocaml.Dom_html.optGroupElement Js_of_ocaml.Js.t
-          val of_option :
-            [< Html_types.selectoption ] elt ->
-            Js_of_ocaml.Dom_html.optionElement Js_of_ocaml.Js.t
-          val of_select :
-            [< Html_types.select ] elt ->
-            Js_of_ocaml.Dom_html.selectElement Js_of_ocaml.Js.t
-          val of_input :
-            [< Html_types.input ] elt ->
-            Js_of_ocaml.Dom_html.inputElement Js_of_ocaml.Js.t
-          val of_textarea :
-            [< Html_types.textarea ] elt ->
-            Js_of_ocaml.Dom_html.textAreaElement Js_of_ocaml.Js.t
-          val of_button :
-            [< Html_types.button ] elt ->
-            Js_of_ocaml.Dom_html.buttonElement Js_of_ocaml.Js.t
-          val of_label :
-            [< Html_types.label ] elt ->
-            Js_of_ocaml.Dom_html.labelElement Js_of_ocaml.Js.t
-          val of_fieldset :
-            [< Html_types.fieldset ] elt ->
-            Js_of_ocaml.Dom_html.fieldSetElement Js_of_ocaml.Js.t
-          val of_legend :
-            [< Html_types.legend ] elt ->
-            Js_of_ocaml.Dom_html.legendElement Js_of_ocaml.Js.t
-          val of_ul :
-            [< Html_types.ul ] elt ->
-            Js_of_ocaml.Dom_html.uListElement Js_of_ocaml.Js.t
-          val of_ol :
-            [< Html_types.ol ] elt ->
-            Js_of_ocaml.Dom_html.oListElement Js_of_ocaml.Js.t
-          val of_dl :
-            [< Html_types.dl ] elt ->
-            Js_of_ocaml.Dom_html.dListElement Js_of_ocaml.Js.t
-          val of_li :
-            [< Html_types.li ] elt ->
-            Js_of_ocaml.Dom_html.liElement Js_of_ocaml.Js.t
-          val of_div :
-            [< Html_types.div ] elt ->
-            Js_of_ocaml.Dom_html.divElement Js_of_ocaml.Js.t
-          val of_p :
-            [< Html_types.p ] elt ->
-            Js_of_ocaml.Dom_html.paragraphElement Js_of_ocaml.Js.t
-          val of_heading :
-            [< Html_types.heading ] elt ->
-            Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
-          val of_blockquote :
-            [< Html_types.blockquote ] elt ->
-            Js_of_ocaml.Dom_html.quoteElement Js_of_ocaml.Js.t
-          val of_pre :
-            [< Html_types.pre ] elt ->
-            Js_of_ocaml.Dom_html.preElement Js_of_ocaml.Js.t
-          val of_br :
-            [< Html_types.br ] elt ->
-            Js_of_ocaml.Dom_html.brElement Js_of_ocaml.Js.t
-          val of_hr :
-            [< Html_types.hr ] elt ->
-            Js_of_ocaml.Dom_html.hrElement Js_of_ocaml.Js.t
-          val of_del :
-            [< 'a Html_types.del ] elt ->
-            Js_of_ocaml.Dom_html.modElement Js_of_ocaml.Js.t
-          val of_ins :
-            [< 'a Html_types.ins ] elt ->
-            Js_of_ocaml.Dom_html.modElement Js_of_ocaml.Js.t
-          val of_a :
-            [< 'a Html_types.a ] elt ->
-            Js_of_ocaml.Dom_html.anchorElement Js_of_ocaml.Js.t
-          val of_img :
-            [< Html_types.img_interactive ] elt ->
-            Js_of_ocaml.Dom_html.imageElement Js_of_ocaml.Js.t
-          val of_object :
-            [< 'a Html_types.object_ ] elt ->
-            Js_of_ocaml.Dom_html.objectElement Js_of_ocaml.Js.t
-          val of_param :
-            [< Html_types.param ] elt ->
-            Js_of_ocaml.Dom_html.paramElement Js_of_ocaml.Js.t
-          val of_area :
-            [< Html_types.area ] elt ->
-            Js_of_ocaml.Dom_html.areaElement Js_of_ocaml.Js.t
-          val of_map :
-            [< 'a Html_types.map ] elt ->
-            Js_of_ocaml.Dom_html.mapElement Js_of_ocaml.Js.t
-          val of_script :
-            [< Html_types.script ] elt ->
-            Js_of_ocaml.Dom_html.scriptElement Js_of_ocaml.Js.t
-          val of_td :
-            [< `Td ] elt ->
-            Js_of_ocaml.Dom_html.tableCellElement Js_of_ocaml.Js.t
-          val of_tr :
-            [< Html_types.tr ] elt ->
-            Js_of_ocaml.Dom_html.tableRowElement Js_of_ocaml.Js.t
-          val of_col :
-            [< Html_types.col ] elt ->
-            Js_of_ocaml.Dom_html.tableColElement Js_of_ocaml.Js.t
-          val of_tfoot :
-            [< Html_types.tfoot ] elt ->
-            Js_of_ocaml.Dom_html.tableSectionElement Js_of_ocaml.Js.t
-          val of_thead :
-            [< Html_types.thead ] elt ->
-            Js_of_ocaml.Dom_html.tableSectionElement Js_of_ocaml.Js.t
-          val of_tbody :
-            [< Html_types.tbody ] elt ->
-            Js_of_ocaml.Dom_html.tableSectionElement Js_of_ocaml.Js.t
-          val of_caption :
-            [< Html_types.caption ] elt ->
-            Js_of_ocaml.Dom_html.tableCaptionElement Js_of_ocaml.Js.t
-          val of_table :
-            [< Html_types.table ] elt ->
-            Js_of_ocaml.Dom_html.tableElement Js_of_ocaml.Js.t
-          val of_canvas :
-            [< 'a Html_types.canvas ] elt ->
-            Js_of_ocaml.Dom_html.canvasElement Js_of_ocaml.Js.t
-          val of_iframe :
-            [< Html_types.iframe ] elt ->
-            Js_of_ocaml.Dom_html.iFrameElement Js_of_ocaml.Js.t
-          val of_audio :
-            [< 'a Html_types.audio_interactive ] elt ->
-            Js_of_ocaml.Dom_html.audioElement Js_of_ocaml.Js.t
-          val of_video :
-            [< 'a Html_types.video_interactive ] elt ->
-            Js_of_ocaml.Dom_html.videoElement Js_of_ocaml.Js.t
-          val of_h1 :
-            Html_types.heading elt ->
-            Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
-          val of_h2 :
-            Html_types.heading elt ->
-            Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
-          val of_h3 :
-            Html_types.heading elt ->
-            Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
-          val of_h4 :
-            Html_types.heading elt ->
-            Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
-          val of_h5 :
-            Html_types.heading elt ->
-            Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
-          val of_h6 :
-            Html_types.heading elt ->
-            Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t
-          val of_abbr :
-            [> Html_types.abbr ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_address :
-            [> Html_types.address ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_article :
-            [> Html_types.article ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_aside :
-            [> Html_types.aside ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_b :
-            [> Html_types.b ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_bdo :
-            [> Html_types.bdo ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_cite :
-            [> Html_types.cite ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_code :
-            [> Html_types.code ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_colgroup :
-            [> Html_types.colgroup ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_command :
-            [> Html_types.command ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_datalist :
-            [> Html_types.datalist ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_dd :
-            [> Html_types.dd ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_details :
-            [> Html_types.details ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_dfn :
-            [> Html_types.dfn ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_dt :
-            [> Html_types.dt ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_em :
-            [> Html_types.em ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_embed :
-            [> Html_types.embed ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_figcaption :
-            [> Html_types.figcaption ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_figure :
-            [> Html_types.figure ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_footer :
-            [> Html_types.footer ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_header :
-            [> Html_types.header ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_hgroup :
-            [> Html_types.hgroup ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_i :
-            [> Html_types.i ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_kbd :
-            [> Html_types.kbd ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_keygen :
-            [> Html_types.keygen ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_main :
-            [> Html_types.main ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_mark :
-            [> Html_types.mark ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_menu :
-            [> Html_types.menu ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_meter :
-            [> Html_types.meter ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_nav :
-            [> Html_types.nav ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_noscript :
-            [> Html_types.noscript ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_output :
-            [> Html_types.output_elt ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_progress :
-            [> Html_types.progress ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_q :
-            [> Html_types.q ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_rp :
-            [> Html_types.rp ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_rt :
-            [> Html_types.rt ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_ruby :
-            [> Html_types.ruby ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_samp :
-            [> Html_types.samp ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_section :
-            [> Html_types.section ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_small :
-            [> Html_types.small ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_source :
-            [> Html_types.source ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_span :
-            [> Html_types.span ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_strong :
-            [> Html_types.strong ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_sub :
-            [> Html_types.sub ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_summary :
-            [> Html_types.summary ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_sup :
-            [> Html_types.sup ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_th :
-            [> Html_types.th ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_time :
-            [> Html_types.time ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_u :
-            [> Html_types.u ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_var :
-            [> Html_types.var ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
-          val of_wbr :
-            [> Html_types.wbr ] elt ->
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t
         end
-      module Manip :
+      module Printer :
         sig
-          val appendChild :
-            ?before:'a Eliom_content.Html.elt ->
-            'b Eliom_content.Html.elt -> 'c Eliom_content.Html.elt -> unit
-          val appendToBody :
-            ?before:'a Eliom_content.Html.elt ->
-            'c Eliom_content.Html.elt -> unit
-          val appendChildren :
-            ?before:'a Eliom_content.Html.elt ->
-            'b Eliom_content.Html.elt ->
-            'c Eliom_content.Html.elt list -> unit
-          val insertFirstChild :
-            'b Eliom_content.Html.elt -> 'c Eliom_content.Html.elt -> unit
-          val nth :
-            'a Eliom_content.Html.elt ->
-            int -> 'b Eliom_content.Html.elt option
-          val childLength : 'a Eliom_content.Html.elt -> int
-          val removeChild :
-            'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt -> unit
-          val replaceChild :
-            'a Eliom_content.Html.elt ->
-            'b Eliom_content.Html.elt -> 'c Eliom_content.Html.elt -> unit
-          val removeChildren : 'a Eliom_content.Html.elt -> unit
-          val removeSelf : 'a Eliom_content.Html.elt -> unit
-          val replaceChildren :
-            'a Eliom_content.Html.elt ->
-            'b Eliom_content.Html.elt list -> unit
-          val parentNode :
-            'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt option
-          val nextSibling :
-            'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt option
-          val previousSibling :
-            'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt option
-          val insertBefore :
-            before:'a Eliom_content.Html.elt ->
-            'b Eliom_content.Html.elt -> unit
-          val insertAfter :
-            after:'a Eliom_content.Html.elt ->
-            'b Eliom_content.Html.elt -> unit
-          val replaceSelf :
-            'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt -> unit
-          val children :
-            'a Eliom_content.Html.elt -> 'b Eliom_content.Html.elt list
-          val addEventListener :
-            ?capture:bool ->
-            'a Eliom_content.Html.elt ->
-            (#Js_of_ocaml.Dom_html.event as 'b) Js_of_ocaml.Js.t
-            Js_of_ocaml.Dom_html.Event.typ ->
-            ('a Eliom_content.Html.elt -> 'b Js_of_ocaml.Js.t -> bool) ->
-            Js_of_ocaml.Dom_html.event_listener_id
-          module Named :
-            sig
-              val appendChild :
-                ?before:'a Eliom_content.Html.elt ->
-                'b Eliom_content.Html.Id.id ->
-                'c Eliom_content.Html.elt -> unit
-              val appendChildren :
-                ?before:'a Eliom_content.Html.elt ->
-                'b Eliom_content.Html.Id.id ->
-                'c Eliom_content.Html.elt list -> unit
-              val removeChild :
-                'a Eliom_content.Html.Id.id ->
-                'b Eliom_content.Html.elt -> unit
-              val replaceChild :
-                'a Eliom_content.Html.Id.id ->
-                'b Eliom_content.Html.elt ->
-                'c Eliom_content.Html.elt -> unit
-              val removeChildren : 'a Eliom_content.Html.Id.id -> unit
-              val replaceChildren :
-                'a Eliom_content.Html.Id.id ->
-                'b Eliom_content.Html.elt list -> unit
-              val addEventListener :
-                ?capture:bool ->
-                'a Eliom_content.Html.Id.id ->
-                (#Js_of_ocaml.Dom_html.event as 'b) Js_of_ocaml.Js.t
-                Js_of_ocaml.Dom_html.Event.typ ->
-                ('a Eliom_content.Html.elt -> 'b Js_of_ocaml.Js.t -> bool) ->
-                Js_of_ocaml.Dom_html.event_listener_id
-            end
-          val scrollIntoView :
-            ?bottom:bool -> 'a Eliom_content.Html.elt -> unit
-          val childNodes :
-            'a Eliom_content.Html.elt ->
-            Js_of_ocaml.Dom.node Js_of_ocaml.Js.t list
-          val childElements :
-            'a Eliom_content.Html.elt ->
-            Js_of_ocaml.Dom.element Js_of_ocaml.Js.t list
-          module Class :
-            sig
-              val contain : 'a Eliom_content.Html.elt -> string -> bool
-              val remove : 'a Eliom_content.Html.elt -> string -> unit
-              val removes : 'a Eliom_content.Html.elt -> string list -> unit
-              val add : 'a Eliom_content.Html.elt -> string -> unit
-              val adds : 'a Eliom_content.Html.elt -> string list -> unit
-              val replace :
-                'a Eliom_content.Html.elt -> string -> string -> unit
-              val clear : 'a Eliom_content.Html.elt -> unit
-              val toggle : 'a Eliom_content.Html.elt -> string -> unit
-              val toggle2 :
-                'a Eliom_content.Html.elt -> string -> string -> unit
-            end
-          module Elt :
-            sig val body : unit -> [ `Body ] Eliom_content.Html.elt end
-          module Ev :
-            sig
-              type ('a, 'b) ev =
-                  'a Eliom_content.Html.elt ->
-                  ('b Js_of_ocaml.Js.t -> bool) -> unit
-              type ('a, 'b) ev_unit =
-                  'a Eliom_content.Html.elt ->
-                  ('b Js_of_ocaml.Js.t -> unit) -> unit
-              val onkeyup :
-                ('a, Js_of_ocaml.Dom_html.keyboardEvent)
-                Eliom_content.Html.Manip.Ev.ev
-              val onkeydown :
-                ('a, Js_of_ocaml.Dom_html.keyboardEvent)
-                Eliom_content.Html.Manip.Ev.ev
-              val onmouseup :
-                ('a, Js_of_ocaml.Dom_html.mouseEvent)
-                Eliom_content.Html.Manip.Ev.ev
-              val onmousedown :
-                ('a, Js_of_ocaml.Dom_html.mouseEvent)
-                Eliom_content.Html.Manip.Ev.ev
-              val onmouseout :
-                ('a, Js_of_ocaml.Dom_html.mouseEvent)
-                Eliom_content.Html.Manip.Ev.ev
-              val onmouseover :
-                ('a, Js_of_ocaml.Dom_html.mouseEvent)
-                Eliom_content.Html.Manip.Ev.ev
-              val onclick :
-                ('a, Js_of_ocaml.Dom_html.mouseEvent)
-                Eliom_content.Html.Manip.Ev.ev
-              val ondblclick :
-                ('a, Js_of_ocaml.Dom_html.mouseEvent)
-                Eliom_content.Html.Manip.Ev.ev
-              val onload :
-                ('a, Js_of_ocaml.Dom_html.event)
-                Eliom_content.Html.Manip.Ev.ev
-              val onerror :
-                ('a, Js_of_ocaml.Dom_html.event)
-                Eliom_content.Html.Manip.Ev.ev
-              val onabort :
-                ('a, Js_of_ocaml.Dom_html.event)
-                Eliom_content.Html.Manip.Ev.ev
-              val onfocus :
-                ('a, Js_of_ocaml.Dom_html.event)
-                Eliom_content.Html.Manip.Ev.ev
-              val onblur :
-                ('a, Js_of_ocaml.Dom_html.event)
-                Eliom_content.Html.Manip.Ev.ev
-              val onfocus_textarea :
-                ('a, Js_of_ocaml.Dom_html.event)
-                Eliom_content.Html.Manip.Ev.ev
-              val onblur_textarea :
-                ('a, Js_of_ocaml.Dom_html.event)
-                Eliom_content.Html.Manip.Ev.ev
-              val onscroll :
-                ('a, Js_of_ocaml.Dom_html.event)
-                Eliom_content.Html.Manip.Ev.ev
-              val onreturn :
-                ('a, Js_of_ocaml.Dom_html.keyboardEvent)
-                Eliom_content.Html.Manip.Ev.ev_unit
-              val onchange :
-                ('a, Js_of_ocaml.Dom_html.event)
-                Eliom_content.Html.Manip.Ev.ev
-              val onchange_select :
-                ('a, Js_of_ocaml.Dom_html.event)
-                Eliom_content.Html.Manip.Ev.ev
-            end
-          module Attr :
-            sig
-              val clientWidth : 'a Eliom_content.Html.elt -> int
-              val clientHeight : 'a Eliom_content.Html.elt -> int
-              val offsetWidth : 'a Eliom_content.Html.elt -> int
-              val offsetHeight : 'a Eliom_content.Html.elt -> int
-              val clientLeft : 'a Eliom_content.Html.elt -> int
-              val clientTop : 'a Eliom_content.Html.elt -> int
-            end
-          module Css :
-            sig
-              val background : 'a Eliom_content.Html.elt -> string
-              val backgroundAttachment : 'a Eliom_content.Html.elt -> string
-              val backgroundColor : 'a Eliom_content.Html.elt -> string
-              val backgroundImage : 'a Eliom_content.Html.elt -> string
-              val backgroundPosition : 'a Eliom_content.Html.elt -> string
-              val backgroundRepeat : 'a Eliom_content.Html.elt -> string
-              val border : 'a Eliom_content.Html.elt -> string
-              val borderBottom : 'a Eliom_content.Html.elt -> string
-              val borderBottomColor : 'a Eliom_content.Html.elt -> string
-              val borderBottomStyle : 'a Eliom_content.Html.elt -> string
-              val borderBottomWidth : 'a Eliom_content.Html.elt -> string
-              val borderBottomWidthPx : 'a Eliom_content.Html.elt -> int
-              val borderCollapse : 'a Eliom_content.Html.elt -> string
-              val borderColor : 'a Eliom_content.Html.elt -> string
-              val borderLeft : 'a Eliom_content.Html.elt -> string
-              val borderLeftColor : 'a Eliom_content.Html.elt -> string
-              val borderLeftStyle : 'a Eliom_content.Html.elt -> string
-              val borderLeftWidth : 'a Eliom_content.Html.elt -> string
-              val borderLeftWidthPx : 'a Eliom_content.Html.elt -> int
-              val borderRight : 'a Eliom_content.Html.elt -> string
-              val borderRightColor : 'a Eliom_content.Html.elt -> string
-              val borderRightStyle : 'a Eliom_content.Html.elt -> string
-              val borderRightWidth : 'a Eliom_content.Html.elt -> string
-              val borderRightWidthPx : 'a Eliom_content.Html.elt -> int
-              val borderSpacing : 'a Eliom_content.Html.elt -> string
-              val borderStyle : 'a Eliom_content.Html.elt -> string
-              val borderTop : 'a Eliom_content.Html.elt -> string
-              val borderTopColor : 'a Eliom_content.Html.elt -> string
-              val borderTopStyle : 'a Eliom_content.Html.elt -> string
-              val borderTopWidth : 'a Eliom_content.Html.elt -> string
-              val borderTopWidthPx : 'a Eliom_content.Html.elt -> int
-              val borderWidth : 'a Eliom_content.Html.elt -> string
-              val bottom : 'a Eliom_content.Html.elt -> string
-              val captionSide : 'a Eliom_content.Html.elt -> string
-              val clear : 'a Eliom_content.Html.elt -> string
-              val clip : 'a Eliom_content.Html.elt -> string
-              val color : 'a Eliom_content.Html.elt -> string
-              val content : 'a Eliom_content.Html.elt -> string
-              val counterIncrement : 'a Eliom_content.Html.elt -> string
-              val counterReset : 'a Eliom_content.Html.elt -> string
-              val cssFloat : 'a Eliom_content.Html.elt -> string
-              val cssText : 'a Eliom_content.Html.elt -> string
-              val cursor : 'a Eliom_content.Html.elt -> string
-              val direction : 'a Eliom_content.Html.elt -> string
-              val display : 'a Eliom_content.Html.elt -> string
-              val emptyCells : 'a Eliom_content.Html.elt -> string
-              val font : 'a Eliom_content.Html.elt -> string
-              val fontFamily : 'a Eliom_content.Html.elt -> string
-              val fontSize : 'a Eliom_content.Html.elt -> string
-              val fontStyle : 'a Eliom_content.Html.elt -> string
-              val fontVariant : 'a Eliom_content.Html.elt -> string
-              val fontWeight : 'a Eliom_content.Html.elt -> string
-              val height : 'a Eliom_content.Html.elt -> string
-              val heightPx : 'a Eliom_content.Html.elt -> int
-              val left : 'a Eliom_content.Html.elt -> string
-              val leftPx : 'a Eliom_content.Html.elt -> int
-              val letterSpacing : 'a Eliom_content.Html.elt -> string
-              val lineHeight : 'a Eliom_content.Html.elt -> string
-              val listStyle : 'a Eliom_content.Html.elt -> string
-              val listStyleImage : 'a Eliom_content.Html.elt -> string
-              val listStylePosition : 'a Eliom_content.Html.elt -> string
-              val listStyleType : 'a Eliom_content.Html.elt -> string
-              val margin : 'a Eliom_content.Html.elt -> string
-              val marginBottom : 'a Eliom_content.Html.elt -> string
-              val marginBottomPx : 'a Eliom_content.Html.elt -> int
-              val marginLeft : 'a Eliom_content.Html.elt -> string
-              val marginLeftPx : 'a Eliom_content.Html.elt -> int
-              val marginRight : 'a Eliom_content.Html.elt -> string
-              val marginRightPx : 'a Eliom_content.Html.elt -> int
-              val marginTop : 'a Eliom_content.Html.elt -> string
-              val marginTopPx : 'a Eliom_content.Html.elt -> int
-              val maxHeight : 'a Eliom_content.Html.elt -> string
-              val maxHeightPx : 'a Eliom_content.Html.elt -> int
-              val maxWidth : 'a Eliom_content.Html.elt -> string
-              val maxWidthPx : 'a Eliom_content.Html.elt -> int
-              val minHeight : 'a Eliom_content.Html.elt -> string
-              val minHeightPx : 'a Eliom_content.Html.elt -> int
-              val minWidth : 'a Eliom_content.Html.elt -> string
-              val minWidthPx : 'a Eliom_content.Html.elt -> int
-              val opacity : 'a Eliom_content.Html.elt -> string option
-              val outline : 'a Eliom_content.Html.elt -> string
-              val outlineColor : 'a Eliom_content.Html.elt -> string
-              val outlineOffset : 'a Eliom_content.Html.elt -> string
-              val outlineStyle : 'a Eliom_content.Html.elt -> string
-              val outlineWidth : 'a Eliom_content.Html.elt -> string
-              val overflow : 'a Eliom_content.Html.elt -> string
-              val overflowX : 'a Eliom_content.Html.elt -> string
-              val overflowY : 'a Eliom_content.Html.elt -> string
-              val padding : 'a Eliom_content.Html.elt -> string
-              val paddingBottom : 'a Eliom_content.Html.elt -> string
-              val paddingBottomPx : 'a Eliom_content.Html.elt -> int
-              val paddingLeft : 'a Eliom_content.Html.elt -> string
-              val paddingLeftPx : 'a Eliom_content.Html.elt -> int
-              val paddingRight : 'a Eliom_content.Html.elt -> string
-              val paddingRightPx : 'a Eliom_content.Html.elt -> int
-              val paddingTop : 'a Eliom_content.Html.elt -> string
-              val paddingTopPx : 'a Eliom_content.Html.elt -> int
-              val pageBreakAfter : 'a Eliom_content.Html.elt -> string
-              val pageBreakBefore : 'a Eliom_content.Html.elt -> string
-              val position : 'a Eliom_content.Html.elt -> string
-              val right : 'a Eliom_content.Html.elt -> string
-              val rightPx : 'a Eliom_content.Html.elt -> int
-              val tableLayout : 'a Eliom_content.Html.elt -> string
-              val textAlign : 'a Eliom_content.Html.elt -> string
-              val textDecoration : 'a Eliom_content.Html.elt -> string
-              val textIndent : 'a Eliom_content.Html.elt -> string
-              val textTransform : 'a Eliom_content.Html.elt -> string
-              val top : 'a Eliom_content.Html.elt -> string
-              val topPx : 'a Eliom_content.Html.elt -> int
-              val verticalAlign : 'a Eliom_content.Html.elt -> string
-              val visibility : 'a Eliom_content.Html.elt -> string
-              val whiteSpace : 'a Eliom_content.Html.elt -> string
-              val width : 'a Eliom_content.Html.elt -> string
-              val widthPx : 'a Eliom_content.Html.elt -> int
-              val wordSpacing : 'a Eliom_content.Html.elt -> string
-              val zIndex : 'a Eliom_content.Html.elt -> string
-            end
-          module SetCss :
-            sig
-              val background : 'a Eliom_content.Html.elt -> string -> unit
-              val backgroundAttachment :
-                'a Eliom_content.Html.elt -> string -> unit
-              val backgroundColor :
-                'a Eliom_content.Html.elt -> string -> unit
-              val backgroundImage :
-                'a Eliom_content.Html.elt -> string -> unit
-              val backgroundPosition :
-                'a Eliom_content.Html.elt -> string -> unit
-              val backgroundRepeat :
-                'a Eliom_content.Html.elt -> string -> unit
-              val border : 'a Eliom_content.Html.elt -> string -> unit
-              val borderBottom : 'a Eliom_content.Html.elt -> string -> unit
-              val borderBottomColor :
-                'a Eliom_content.Html.elt -> string -> unit
-              val borderBottomStyle :
-                'a Eliom_content.Html.elt -> string -> unit
-              val borderBottomWidth :
-                'a Eliom_content.Html.elt -> string -> unit
-              val borderBottomWidthPx :
-                'a Eliom_content.Html.elt -> int -> unit
-              val borderCollapse :
-                'a Eliom_content.Html.elt -> string -> unit
-              val borderColor : 'a Eliom_content.Html.elt -> string -> unit
-              val borderLeft : 'a Eliom_content.Html.elt -> string -> unit
-              val borderLeftColor :
-                'a Eliom_content.Html.elt -> string -> unit
-              val borderLeftStyle :
-                'a Eliom_content.Html.elt -> string -> unit
-              val borderLeftWidth :
-                'a Eliom_content.Html.elt -> string -> unit
-              val borderLeftWidthPx :
-                'a Eliom_content.Html.elt -> int -> unit
-              val borderRight : 'a Eliom_content.Html.elt -> string -> unit
-              val borderRightColor :
-                'a Eliom_content.Html.elt -> string -> unit
-              val borderRightStyle :
-                'a Eliom_content.Html.elt -> string -> unit
-              val borderRightWidth :
-                'a Eliom_content.Html.elt -> string -> unit
-              val borderRightWidthPx :
-                'a Eliom_content.Html.elt -> int -> unit
-              val borderSpacing : 'a Eliom_content.Html.elt -> string -> unit
-              val borderStyle : 'a Eliom_content.Html.elt -> string -> unit
-              val borderTop : 'a Eliom_content.Html.elt -> string -> unit
-              val borderTopColor :
-                'a Eliom_content.Html.elt -> string -> unit
-              val borderTopStyle :
-                'a Eliom_content.Html.elt -> string -> unit
-              val borderTopWidth :
-                'a Eliom_content.Html.elt -> string -> unit
-              val borderTopWidthPx : 'a Eliom_content.Html.elt -> int -> unit
-              val borderWidth : 'a Eliom_content.Html.elt -> string -> unit
-              val bottom : 'a Eliom_content.Html.elt -> string -> unit
-              val bottomPx : 'a Eliom_content.Html.elt -> int -> unit
-              val captionSide : 'a Eliom_content.Html.elt -> string -> unit
-              val clear : 'a Eliom_content.Html.elt -> string -> unit
-              val clip : 'a Eliom_content.Html.elt -> string -> unit
-              val color : 'a Eliom_content.Html.elt -> string -> unit
-              val content : 'a Eliom_content.Html.elt -> string -> unit
-              val counterIncrement :
-                'a Eliom_content.Html.elt -> string -> unit
-              val counterReset : 'a Eliom_content.Html.elt -> string -> unit
-              val cssFloat : 'a Eliom_content.Html.elt -> string -> unit
-              val cssText : 'a Eliom_content.Html.elt -> string -> unit
-              val cursor : 'a Eliom_content.Html.elt -> string -> unit
-              val direction : 'a Eliom_content.Html.elt -> string -> unit
-              val display : 'a Eliom_content.Html.elt -> string -> unit
-              val emptyCells : 'a Eliom_content.Html.elt -> string -> unit
-              val font : 'a Eliom_content.Html.elt -> string -> unit
-              val fontFamily : 'a Eliom_content.Html.elt -> string -> unit
-              val fontSize : 'a Eliom_content.Html.elt -> string -> unit
-              val fontStyle : 'a Eliom_content.Html.elt -> string -> unit
-              val fontVariant : 'a Eliom_content.Html.elt -> string -> unit
-              val fontWeight : 'a Eliom_content.Html.elt -> string -> unit
-              val height : 'a Eliom_content.Html.elt -> string -> unit
-              val heightPx : 'a Eliom_content.Html.elt -> int -> unit
-              val left : 'a Eliom_content.Html.elt -> string -> unit
-              val leftPx : 'a Eliom_content.Html.elt -> int -> unit
-              val letterSpacing : 'a Eliom_content.Html.elt -> string -> unit
-              val lineHeight : 'a Eliom_content.Html.elt -> string -> unit
-              val listStyle : 'a Eliom_content.Html.elt -> string -> unit
-              val listStyleImage :
-                'a Eliom_content.Html.elt -> string -> unit
-              val listStylePosition :
-                'a Eliom_content.Html.elt -> string -> unit
-              val listStyleType : 'a Eliom_content.Html.elt -> string -> unit
-              val margin : 'a Eliom_content.Html.elt -> string -> unit
-              val marginBottom : 'a Eliom_content.Html.elt -> string -> unit
-              val marginBottomPx : 'a Eliom_content.Html.elt -> int -> unit
-              val marginLeft : 'a Eliom_content.Html.elt -> string -> unit
-              val marginLeftPx : 'a Eliom_content.Html.elt -> int -> unit
-              val marginRight : 'a Eliom_content.Html.elt -> string -> unit
-              val marginRightPx : 'a Eliom_content.Html.elt -> int -> unit
-              val marginTop : 'a Eliom_content.Html.elt -> string -> unit
-              val marginTopPx : 'a Eliom_content.Html.elt -> int -> unit
-              val maxHeight : 'a Eliom_content.Html.elt -> string -> unit
-              val maxHeightPx : 'a Eliom_content.Html.elt -> int -> unit
-              val maxWidth : 'a Eliom_content.Html.elt -> string -> unit
-              val maxWidthPx : 'a Eliom_content.Html.elt -> int -> unit
-              val minHeight : 'a Eliom_content.Html.elt -> string -> unit
-              val minHeightPx : 'a Eliom_content.Html.elt -> int -> unit
-              val minWidth : 'a Eliom_content.Html.elt -> string -> unit
-              val minWidthPx : 'a Eliom_content.Html.elt -> int -> unit
-              val opacity : 'a Eliom_content.Html.elt -> string -> unit
-              val outline : 'a Eliom_content.Html.elt -> string -> unit
-              val outlineColor : 'a Eliom_content.Html.elt -> string -> unit
-              val outlineOffset : 'a Eliom_content.Html.elt -> string -> unit
-              val outlineStyle : 'a Eliom_content.Html.elt -> string -> unit
-              val outlineWidth : 'a Eliom_content.Html.elt -> string -> unit
-              val overflow : 'a Eliom_content.Html.elt -> string -> unit
-              val overflowX : 'a Eliom_content.Html.elt -> string -> unit
-              val overflowY : 'a Eliom_content.Html.elt -> string -> unit
-              val padding : 'a Eliom_content.Html.elt -> string -> unit
-              val paddingBottom : 'a Eliom_content.Html.elt -> string -> unit
-              val paddingBottomPx : 'a Eliom_content.Html.elt -> int -> unit
-              val paddingLeft : 'a Eliom_content.Html.elt -> string -> unit
-              val paddingLeftPx : 'a Eliom_content.Html.elt -> int -> unit
-              val paddingRight : 'a Eliom_content.Html.elt -> string -> unit
-              val paddingRightPx : 'a Eliom_content.Html.elt -> int -> unit
-              val paddingTop : 'a Eliom_content.Html.elt -> string -> unit
-              val paddingTopPx : 'a Eliom_content.Html.elt -> int -> unit
-              val pageBreakAfter :
-                'a Eliom_content.Html.elt -> string -> unit
-              val pageBreakBefore :
-                'a Eliom_content.Html.elt -> string -> unit
-              val position : 'a Eliom_content.Html.elt -> string -> unit
-              val right : 'a Eliom_content.Html.elt -> string -> unit
-              val rightPx : 'a Eliom_content.Html.elt -> int -> unit
-              val tableLayout : 'a Eliom_content.Html.elt -> string -> unit
-              val textAlign : 'a Eliom_content.Html.elt -> string -> unit
-              val textDecoration :
-                'a Eliom_content.Html.elt -> string -> unit
-              val textIndent : 'a Eliom_content.Html.elt -> string -> unit
-              val textTransform : 'a Eliom_content.Html.elt -> string -> unit
-              val top : 'a Eliom_content.Html.elt -> string -> unit
-              val topPx : 'a Eliom_content.Html.elt -> int -> unit
-              val verticalAlign : 'a Eliom_content.Html.elt -> string -> unit
-              val visibility : 'a Eliom_content.Html.elt -> string -> unit
-              val whiteSpace : 'a Eliom_content.Html.elt -> string -> unit
-              val width : 'a Eliom_content.Html.elt -> string -> unit
-              val widthPx : 'a Eliom_content.Html.elt -> int -> unit
-              val wordSpacing : 'a Eliom_content.Html.elt -> string -> unit
-              val zIndex : 'a Eliom_content.Html.elt -> string -> unit
-            end
-        end
-      module Of_dom :
-        sig
-          type 'a elt = 'a elt
-          val of_element :
-            Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t -> 'a elt
-          val of_html :
-            Js_of_ocaml.Dom_html.htmlElement Js_of_ocaml.Js.t ->
-            [> Html_types.html ] elt
-          val of_head :
-            Js_of_ocaml.Dom_html.headElement Js_of_ocaml.Js.t ->
-            [> Html_types.head ] elt
-          val of_link :
-            Js_of_ocaml.Dom_html.linkElement Js_of_ocaml.Js.t ->
-            [> Html_types.link ] elt
-          val of_title :
-            Js_of_ocaml.Dom_html.titleElement Js_of_ocaml.Js.t ->
-            [> Html_types.title ] elt
-          val of_meta :
-            Js_of_ocaml.Dom_html.metaElement Js_of_ocaml.Js.t ->
-            [> Html_types.meta ] elt
-          val of_base :
-            Js_of_ocaml.Dom_html.baseElement Js_of_ocaml.Js.t ->
-            [> Html_types.base ] elt
-          val of_style :
-            Js_of_ocaml.Dom_html.styleElement Js_of_ocaml.Js.t ->
-            [> Html_types.style ] elt
-          val of_body :
-            Js_of_ocaml.Dom_html.bodyElement Js_of_ocaml.Js.t ->
-            [> Html_types.body ] elt
-          val of_form :
-            Js_of_ocaml.Dom_html.formElement Js_of_ocaml.Js.t ->
-            [> Html_types.form ] elt
-          val of_optGroup :
-            Js_of_ocaml.Dom_html.optGroupElement Js_of_ocaml.Js.t ->
-            [> Html_types.optgroup ] elt
-          val of_option :
-            Js_of_ocaml.Dom_html.optionElement Js_of_ocaml.Js.t ->
-            [> Html_types.selectoption ] elt
-          val of_select :
-            Js_of_ocaml.Dom_html.selectElement Js_of_ocaml.Js.t ->
-            [> Html_types.select ] elt
-          val of_input :
-            Js_of_ocaml.Dom_html.inputElement Js_of_ocaml.Js.t ->
-            [> Html_types.input ] elt
-          val of_textArea :
-            Js_of_ocaml.Dom_html.textAreaElement Js_of_ocaml.Js.t ->
-            [> Html_types.textarea ] elt
-          val of_button :
-            Js_of_ocaml.Dom_html.buttonElement Js_of_ocaml.Js.t ->
-            [> Html_types.button ] elt
-          val of_label :
-            Js_of_ocaml.Dom_html.labelElement Js_of_ocaml.Js.t ->
-            [> Html_types.label ] elt
-          val of_fieldSet :
-            Js_of_ocaml.Dom_html.fieldSetElement Js_of_ocaml.Js.t ->
-            [> Html_types.fieldset ] elt
-          val of_legend :
-            Js_of_ocaml.Dom_html.legendElement Js_of_ocaml.Js.t ->
-            [> Html_types.legend ] elt
-          val of_uList :
-            Js_of_ocaml.Dom_html.uListElement Js_of_ocaml.Js.t ->
-            [> Html_types.ul ] elt
-          val of_oList :
-            Js_of_ocaml.Dom_html.oListElement Js_of_ocaml.Js.t ->
-            [> Html_types.ol ] elt
-          val of_dList :
-            Js_of_ocaml.Dom_html.dListElement Js_of_ocaml.Js.t ->
-            [> Html_types.dl ] elt
-          val of_li :
-            Js_of_ocaml.Dom_html.liElement Js_of_ocaml.Js.t ->
-            [> Html_types.li ] elt
-          val of_div :
-            Js_of_ocaml.Dom_html.divElement Js_of_ocaml.Js.t ->
-            [> Html_types.div ] elt
-          val of_paragraph :
-            Js_of_ocaml.Dom_html.paragraphElement Js_of_ocaml.Js.t ->
-            [> Html_types.p ] elt
-          val of_heading :
-            Js_of_ocaml.Dom_html.headingElement Js_of_ocaml.Js.t ->
-            [> Html_types.heading ] elt
-          val of_quote :
-            Js_of_ocaml.Dom_html.quoteElement Js_of_ocaml.Js.t ->
-            [> Html_types.blockquote ] elt
-          val of_pre :
-            Js_of_ocaml.Dom_html.preElement Js_of_ocaml.Js.t ->
-            [> Html_types.pre ] elt
-          val of_br :
-            Js_of_ocaml.Dom_html.brElement Js_of_ocaml.Js.t ->
-            [> Html_types.br ] elt
-          val of_hr :
-            Js_of_ocaml.Dom_html.hrElement Js_of_ocaml.Js.t ->
-            [> Html_types.hr ] elt
-          val of_mod :
-            Js_of_ocaml.Dom_html.modElement Js_of_ocaml.Js.t ->
-            [> `Del of 'a | `Ins of 'a ] elt
-          val of_anchor :
-            Js_of_ocaml.Dom_html.anchorElement Js_of_ocaml.Js.t ->
-            [> 'a Html_types.a ] elt
-          val of_image :
-            Js_of_ocaml.Dom_html.imageElement Js_of_ocaml.Js.t ->
-            [> Html_types.img ] elt
-          val of_object :
-            Js_of_ocaml.Dom_html.objectElement Js_of_ocaml.Js.t ->
-            [> 'a Html_types.object_ ] elt
-          val of_param :
-            Js_of_ocaml.Dom_html.paramElement Js_of_ocaml.Js.t ->
-            [> Html_types.param ] elt
-          val of_area :
-            Js_of_ocaml.Dom_html.areaElement Js_of_ocaml.Js.t ->
-            [> Html_types.area ] elt
-          val of_map :
-            Js_of_ocaml.Dom_html.mapElement Js_of_ocaml.Js.t ->
-            [> 'a Html_types.map ] elt
-          val of_script :
-            Js_of_ocaml.Dom_html.scriptElement Js_of_ocaml.Js.t ->
-            [> Html_types.script ] elt
-          val of_embed :
-            Js_of_ocaml.Dom_html.embedElement Js_of_ocaml.Js.t ->
-            [> Html_types.embed ] elt
-          val of_tableCell :
-            Js_of_ocaml.Dom_html.tableCellElement Js_of_ocaml.Js.t ->
-            [> `Td | `Th ] elt
-          val of_tableRow :
-            Js_of_ocaml.Dom_html.tableRowElement Js_of_ocaml.Js.t ->
-            [> Html_types.tr ] elt
-          val of_tableCol :
-            Js_of_ocaml.Dom_html.tableColElement Js_of_ocaml.Js.t ->
-            [> Html_types.col ] elt
-          val of_tableSection :
-            Js_of_ocaml.Dom_html.tableSectionElement Js_of_ocaml.Js.t ->
-            [> `Tbody | `Tfoot | `Thead ] elt
-          val of_tableCaption :
-            Js_of_ocaml.Dom_html.tableCaptionElement Js_of_ocaml.Js.t ->
-            [> Html_types.caption ] elt
-          val of_table :
-            Js_of_ocaml.Dom_html.tableElement Js_of_ocaml.Js.t ->
-            [> Html_types.table ] elt
-          val of_canvas :
-            Js_of_ocaml.Dom_html.canvasElement Js_of_ocaml.Js.t ->
-            [> 'a Html_types.canvas ] elt
-          val of_iFrame :
-            Js_of_ocaml.Dom_html.iFrameElement Js_of_ocaml.Js.t ->
-            [> Html_types.iframe ] elt
-          val of_audio :
-            Js_of_ocaml.Dom_html.audioElement Js_of_ocaml.Js.t ->
-            [> 'a Html_types.audio ] elt
-          val of_video :
-            Js_of_ocaml.Dom_html.videoElement Js_of_ocaml.Js.t ->
-            [> 'a Html_types.video ] elt
+          val pp_elt :
+            ?encode:(string -> string) ->
+            ?indent:bool -> unit -> Format.formatter -> 'a elt -> unit
+          val pp :
+            ?encode:(string -> string) ->
+            ?indent:bool ->
+            ?advert:string -> unit -> Format.formatter -> F.doc -> unit
         end
     end
-  val force_link : unit
-  val set_client_fun :
-    ?app:string ->
-    service:('a, 'b, 'c, 'd, 'e, 'f, 'g, [< `WithSuffix | `WithoutSuffix ],
-             'h, 'i, 'j)
-            Eliom_service.t ->
-    ('a -> 'b -> Eliom_service.result Lwt.t) -> unit
-  val set_form_error_handler : (unit -> bool Lwt.t) -> unit
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/client/type_Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki b/doc/11.x/api/server/type_Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki
similarity index 99%
rename from doc/10.x/api/client/type_Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki
rename to doc/11.x/api/server/type_Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki
index 5bb39ca6e6..796ed8bc5d 100644
--- a/doc/10.x/api/client/type_Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki
+++ b/doc/11.x/api/server/type_Eliom_content_sigs.LINKS_AND_FORMS.Form.wiki
@@ -167,6 +167,7 @@
         | `OnCanPlayThrough
         | `OnChange
         | `OnClick
+        | `OnClose
         | `OnContextMenu
         | `OnDblClick
         | `OnDrag
diff --git a/doc/10.x/api/server/type_Eliom_content_sigs.LINKS_AND_FORMS.wiki b/doc/11.x/api/server/type_Eliom_content_sigs.LINKS_AND_FORMS.wiki
similarity index 99%
rename from doc/10.x/api/server/type_Eliom_content_sigs.LINKS_AND_FORMS.wiki
rename to doc/11.x/api/server/type_Eliom_content_sigs.LINKS_AND_FORMS.wiki
index ce0a53e7e1..21469c5108 100644
--- a/doc/10.x/api/server/type_Eliom_content_sigs.LINKS_AND_FORMS.wiki
+++ b/doc/11.x/api/server/type_Eliom_content_sigs.LINKS_AND_FORMS.wiki
@@ -217,6 +217,7 @@
             | `OnCanPlayThrough
             | `OnChange
             | `OnClick
+            | `OnClose
             | `OnContextMenu
             | `OnDblClick
             | `OnDrag
diff --git a/doc/10.x/api/server/type_Eliom_content_sigs.wiki b/doc/11.x/api/server/type_Eliom_content_sigs.wiki
similarity index 99%
rename from doc/10.x/api/server/type_Eliom_content_sigs.wiki
rename to doc/11.x/api/server/type_Eliom_content_sigs.wiki
index 1c0fccf6fd..7d03910cf1 100644
--- a/doc/10.x/api/server/type_Eliom_content_sigs.wiki
+++ b/doc/11.x/api/server/type_Eliom_content_sigs.wiki
@@ -220,6 +220,7 @@
                 | `OnCanPlayThrough
                 | `OnChange
                 | `OnClick
+                | `OnClose
                 | `OnContextMenu
                 | `OnDblClick
                 | `OnDrag
diff --git a/doc/10.x/api/server/type_Eliom_cscache.wiki b/doc/11.x/api/server/type_Eliom_cscache.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_cscache.wiki
rename to doc/11.x/api/server/type_Eliom_cscache.wiki
diff --git a/doc/10.x/api/server/type_Eliom_extension.wiki b/doc/11.x/api/server/type_Eliom_extension.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_extension.wiki
rename to doc/11.x/api/server/type_Eliom_extension.wiki
diff --git a/doc/10.x/api/server/type_Eliom_form_sigs.LINKS.wiki b/doc/11.x/api/server/type_Eliom_form_sigs.LINKS.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_form_sigs.LINKS.wiki
rename to doc/11.x/api/server/type_Eliom_form_sigs.LINKS.wiki
diff --git a/doc/10.x/api/client/type_Eliom_form_sigs.S.wiki b/doc/11.x/api/server/type_Eliom_form_sigs.S.wiki
similarity index 99%
rename from doc/10.x/api/client/type_Eliom_form_sigs.S.wiki
rename to doc/11.x/api/server/type_Eliom_form_sigs.S.wiki
index 500bccea89..5f4b350827 100644
--- a/doc/10.x/api/client/type_Eliom_form_sigs.S.wiki
+++ b/doc/11.x/api/server/type_Eliom_form_sigs.S.wiki
@@ -176,6 +176,7 @@
         | `OnCanPlayThrough
         | `OnChange
         | `OnClick
+        | `OnClose
         | `OnContextMenu
         | `OnDblClick
         | `OnDrag
diff --git a/doc/10.x/api/server/type_Eliom_form_sigs.wiki b/doc/11.x/api/server/type_Eliom_form_sigs.wiki
similarity index 99%
rename from doc/10.x/api/server/type_Eliom_form_sigs.wiki
rename to doc/11.x/api/server/type_Eliom_form_sigs.wiki
index f01bb4ab22..d7964e9a5b 100644
--- a/doc/10.x/api/server/type_Eliom_form_sigs.wiki
+++ b/doc/11.x/api/server/type_Eliom_form_sigs.wiki
@@ -229,6 +229,7 @@
             | `OnCanPlayThrough
             | `OnChange
             | `OnClick
+            | `OnClose
             | `OnContextMenu
             | `OnDblClick
             | `OnDrag
diff --git a/doc/10.x/api/server/type_Eliom_lib.Lwt_log.wiki b/doc/11.x/api/server/type_Eliom_lib.Lwt_log.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_lib.Lwt_log.wiki
rename to doc/11.x/api/server/type_Eliom_lib.Lwt_log.wiki
diff --git a/doc/10.x/api/server/type_Eliom_lib.wiki b/doc/11.x/api/server/type_Eliom_lib.wiki
similarity index 93%
rename from doc/10.x/api/server/type_Eliom_lib.wiki
rename to doc/11.x/api/server/type_Eliom_lib.wiki
index 226b8a755a..afd941ed8a 100644
--- a/doc/10.x/api/server/type_Eliom_lib.wiki
+++ b/doc/11.x/api/server/type_Eliom_lib.wiki
@@ -199,11 +199,17 @@
       type t = string
       val make : int -> char -> string
       val init : int -> (int -> char) -> string
+      val empty : string
+      val of_bytes : bytes -> string
+      val to_bytes : string -> bytes
       external length : string -> int = "%string_length"
       external get : string -> int -> char = "%string_safe_get"
       val concat : string -> string list -> string
+      val cat : string -> string -> string
       val equal : t -> t -> bool
       val compare : t -> t -> int
+      val starts_with : prefix:string -> string -> bool
+      val ends_with : suffix:string -> string -> bool
       val contains_from : string -> int -> char -> bool
       val rcontains_from : string -> int -> char -> bool
       val contains : string -> char -> bool
@@ -211,6 +217,10 @@
       val split_on_char : char -> string -> string list
       val map : (char -> char) -> string -> string
       val mapi : (int -> char -> char) -> string -> string
+      val fold_left : ('a -> char -> 'a) -> 'a -> string -> 'a
+      val fold_right : (char -> 'a -> 'a) -> string -> 'a -> 'a
+      val for_all : (char -> bool) -> string -> bool
+      val exists : (char -> bool) -> string -> bool
       val trim : string -> string
       val escaped : string -> string
       val uppercase_ascii : string -> string
@@ -230,6 +240,12 @@
       val to_seq : t -> char Seq.t
       val to_seqi : t -> (int * char) Seq.t
       val of_seq : char Seq.t -> t
+      val get_utf_8_uchar : t -> int -> Uchar.utf_decode
+      val is_valid_utf_8 : t -> bool
+      val get_utf_16be_uchar : t -> int -> Uchar.utf_decode
+      val is_valid_utf_16be : t -> bool
+      val get_utf_16le_uchar : t -> int -> Uchar.utf_decode
+      val is_valid_utf_16le : t -> bool
       external create : int -> bytes = "caml_create_string"
       external set : bytes -> int -> char -> unit = "%string_safe_set"
       val blit : string -> int -> bytes -> int -> int -> unit
@@ -239,6 +255,20 @@
       val lowercase : string -> string
       val capitalize : string -> string
       val uncapitalize : string -> string
+      val get_uint8 : string -> int -> int
+      val get_int8 : string -> int -> int
+      val get_uint16_ne : string -> int -> int
+      val get_uint16_be : string -> int -> int
+      val get_uint16_le : string -> int -> int
+      val get_int16_ne : string -> int -> int
+      val get_int16_be : string -> int -> int
+      val get_int16_le : string -> int -> int
+      val get_int32_ne : string -> int -> int32
+      val get_int32_be : string -> int -> int32
+      val get_int32_le : string -> int -> int32
+      val get_int64_ne : string -> int -> int64
+      val get_int64_be : string -> int -> int64
+      val get_int64_le : string -> int -> int64
       external unsafe_get : string -> int -> char = "%string_unsafe_get"
       external unsafe_set : bytes -> int -> char -> unit
         = "%string_unsafe_set"
@@ -420,11 +450,17 @@
       type t = string
       val make : int -> char -> string
       val init : int -> (int -> char) -> string
+      val empty : string
+      val of_bytes : bytes -> string
+      val to_bytes : string -> bytes
       external length : string -> int = "%string_length"
       external get : string -> int -> char = "%string_safe_get"
       val concat : string -> string list -> string
+      val cat : string -> string -> string
       val equal : t -> t -> bool
       val compare : t -> t -> int
+      val starts_with : prefix:string -> string -> bool
+      val ends_with : suffix:string -> string -> bool
       val contains_from : string -> int -> char -> bool
       val rcontains_from : string -> int -> char -> bool
       val contains : string -> char -> bool
@@ -432,6 +468,10 @@
       val split_on_char : char -> string -> string list
       val map : (char -> char) -> string -> string
       val mapi : (int -> char -> char) -> string -> string
+      val fold_left : ('a -> char -> 'a) -> 'a -> string -> 'a
+      val fold_right : (char -> 'a -> 'a) -> string -> 'a -> 'a
+      val for_all : (char -> bool) -> string -> bool
+      val exists : (char -> bool) -> string -> bool
       val trim : string -> string
       val escaped : string -> string
       val uppercase_ascii : string -> string
@@ -451,6 +491,12 @@
       val to_seq : t -> char Seq.t
       val to_seqi : t -> (int * char) Seq.t
       val of_seq : char Seq.t -> t
+      val get_utf_8_uchar : t -> int -> Uchar.utf_decode
+      val is_valid_utf_8 : t -> bool
+      val get_utf_16be_uchar : t -> int -> Uchar.utf_decode
+      val is_valid_utf_16be : t -> bool
+      val get_utf_16le_uchar : t -> int -> Uchar.utf_decode
+      val is_valid_utf_16le : t -> bool
       external create : int -> bytes = "caml_create_string"
       external set : bytes -> int -> char -> unit = "%string_safe_set"
       val blit : string -> int -> bytes -> int -> int -> unit
@@ -460,6 +506,20 @@
       val lowercase : string -> string
       val capitalize : string -> string
       val uncapitalize : string -> string
+      val get_uint8 : string -> int -> int
+      val get_int8 : string -> int -> int
+      val get_uint16_ne : string -> int -> int
+      val get_uint16_be : string -> int -> int
+      val get_uint16_le : string -> int -> int
+      val get_int16_ne : string -> int -> int
+      val get_int16_be : string -> int -> int
+      val get_int16_le : string -> int -> int
+      val get_int32_ne : string -> int -> int32
+      val get_int32_be : string -> int -> int32
+      val get_int32_le : string -> int -> int32
+      val get_int64_ne : string -> int -> int64
+      val get_int64_be : string -> int -> int64
+      val get_int64_le : string -> int -> int64
       external unsafe_get : string -> int -> char = "%string_unsafe_get"
       external unsafe_set : bytes -> int -> char -> unit
         = "%string_unsafe_set"
@@ -686,15 +746,15 @@
     end
   module Netstring_pcre :
     sig
-      val regexp : string -> Pcre.regexp
-      val matched_group : Pcre.substrings -> int -> string -> string
-      val matched_string : Pcre.substrings -> string -> string
-      val global_replace : Pcre.regexp -> string -> string -> string
+      val regexp : string -> Re.Pcre.regexp
+      val matched_group : Re.Pcre.groups -> int -> string -> string
+      val matched_string : Re.Pcre.groups -> string -> string
+      val global_replace : Re.Pcre.regexp -> string -> string -> string
       val search_forward :
-        Pcre.regexp -> string -> int -> int * Pcre.substrings
-      val split : Pcre.regexp -> string -> string list
+        Re.Pcre.regexp -> string -> int -> int * Re.Pcre.groups
+      val split : Re.Pcre.regexp -> string -> string list
       val string_match :
-        Pcre.regexp -> string -> int -> Pcre.substrings option
+        Re.Pcre.regexp -> string -> int -> Re.Pcre.groups option
     end
   module Date : sig val to_string : float -> string end
   exception Eliom_Internal_Error of string
diff --git a/doc/10.x/api/server/type_Eliom_mkreg.Make.wiki b/doc/11.x/api/server/type_Eliom_mkreg.Make.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_mkreg.Make.wiki
rename to doc/11.x/api/server/type_Eliom_mkreg.Make.wiki
diff --git a/doc/10.x/api/server/type_Eliom_mkreg.Make_poly.wiki b/doc/11.x/api/server/type_Eliom_mkreg.Make_poly.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_mkreg.Make_poly.wiki
rename to doc/11.x/api/server/type_Eliom_mkreg.Make_poly.wiki
diff --git a/doc/10.x/api/server/type_Eliom_mkreg.wiki b/doc/11.x/api/server/type_Eliom_mkreg.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_mkreg.wiki
rename to doc/11.x/api/server/type_Eliom_mkreg.wiki
diff --git a/doc/10.x/api/server/type_Eliom_notif.ARG.wiki b/doc/11.x/api/server/type_Eliom_notif.ARG.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_notif.ARG.wiki
rename to doc/11.x/api/server/type_Eliom_notif.ARG.wiki
diff --git a/doc/10.x/api/server/type_Eliom_notif.ARG_SIMPLE.wiki b/doc/11.x/api/server/type_Eliom_notif.ARG_SIMPLE.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_notif.ARG_SIMPLE.wiki
rename to doc/11.x/api/server/type_Eliom_notif.ARG_SIMPLE.wiki
diff --git a/doc/10.x/api/server/type_Eliom_notif.Make.wiki b/doc/11.x/api/server/type_Eliom_notif.Make.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_notif.Make.wiki
rename to doc/11.x/api/server/type_Eliom_notif.Make.wiki
diff --git a/doc/10.x/api/server/type_Eliom_notif.Make_Simple.wiki b/doc/11.x/api/server/type_Eliom_notif.Make_Simple.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_notif.Make_Simple.wiki
rename to doc/11.x/api/server/type_Eliom_notif.Make_Simple.wiki
diff --git a/doc/10.x/api/server/type_Eliom_notif.S.Ext.wiki b/doc/11.x/api/server/type_Eliom_notif.S.Ext.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_notif.S.Ext.wiki
rename to doc/11.x/api/server/type_Eliom_notif.S.Ext.wiki
diff --git a/doc/10.x/api/server/type_Eliom_notif.S.wiki b/doc/11.x/api/server/type_Eliom_notif.S.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_notif.S.wiki
rename to doc/11.x/api/server/type_Eliom_notif.S.wiki
diff --git a/doc/10.x/api/server/type_Eliom_notif.wiki b/doc/11.x/api/server/type_Eliom_notif.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_notif.wiki
rename to doc/11.x/api/server/type_Eliom_notif.wiki
diff --git a/doc/10.x/api/server/type_Eliom_parameter.wiki b/doc/11.x/api/server/type_Eliom_parameter.wiki
similarity index 99%
rename from doc/10.x/api/server/type_Eliom_parameter.wiki
rename to doc/11.x/api/server/type_Eliom_parameter.wiki
index f6a521104c..8e9747c83b 100644
--- a/doc/10.x/api/server/type_Eliom_parameter.wiki
+++ b/doc/11.x/api/server/type_Eliom_parameter.wiki
@@ -176,13 +176,13 @@
     ('a -> unit) ->
     ('a, [< suff ] as 'b, 'c) params_type -> ('a, 'b, 'c) params_type
   val regexp :
-    Pcre.regexp ->
+    Re.Pcre.regexp ->
     string ->
     to_string:(string -> string) ->
     string ->
     (string, [ `WithoutSuffix ], [ `One of string ] param_name) params_type
   val all_suffix_regexp :
-    Pcre.regexp ->
+    Re.Pcre.regexp ->
     string ->
     to_string:(string -> string) ->
     string ->
diff --git a/doc/10.x/api/server/type_Eliom_parameter_sigs.S.wiki b/doc/11.x/api/server/type_Eliom_parameter_sigs.S.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_parameter_sigs.S.wiki
rename to doc/11.x/api/server/type_Eliom_parameter_sigs.S.wiki
diff --git a/doc/10.x/api/server/type_Eliom_parameter_sigs.wiki b/doc/11.x/api/server/type_Eliom_parameter_sigs.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_parameter_sigs.wiki
rename to doc/11.x/api/server/type_Eliom_parameter_sigs.wiki
diff --git a/doc/10.x/api/server/type_Eliom_react.Down.wiki b/doc/11.x/api/server/type_Eliom_react.Down.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_react.Down.wiki
rename to doc/11.x/api/server/type_Eliom_react.Down.wiki
diff --git a/doc/10.x/api/server/type_Eliom_react.S.Down.wiki b/doc/11.x/api/server/type_Eliom_react.S.Down.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_react.S.Down.wiki
rename to doc/11.x/api/server/type_Eliom_react.S.Down.wiki
diff --git a/doc/10.x/api/server/type_Eliom_react.S.wiki b/doc/11.x/api/server/type_Eliom_react.S.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_react.S.wiki
rename to doc/11.x/api/server/type_Eliom_react.S.wiki
diff --git a/doc/10.x/api/server/type_Eliom_react.Up.wiki b/doc/11.x/api/server/type_Eliom_react.Up.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_react.Up.wiki
rename to doc/11.x/api/server/type_Eliom_react.Up.wiki
diff --git a/doc/10.x/api/server/type_Eliom_react.wiki b/doc/11.x/api/server/type_Eliom_react.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_react.wiki
rename to doc/11.x/api/server/type_Eliom_react.wiki
diff --git a/doc/10.x/api/server/type_Eliom_reference.Ext.wiki b/doc/11.x/api/server/type_Eliom_reference.Ext.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_reference.Ext.wiki
rename to doc/11.x/api/server/type_Eliom_reference.Ext.wiki
diff --git a/doc/10.x/api/server/type_Eliom_reference.Volatile.Ext.wiki b/doc/11.x/api/server/type_Eliom_reference.Volatile.Ext.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_reference.Volatile.Ext.wiki
rename to doc/11.x/api/server/type_Eliom_reference.Volatile.Ext.wiki
diff --git a/doc/10.x/api/server/type_Eliom_reference.Volatile.wiki b/doc/11.x/api/server/type_Eliom_reference.Volatile.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_reference.Volatile.wiki
rename to doc/11.x/api/server/type_Eliom_reference.Volatile.wiki
diff --git a/doc/10.x/api/server/type_Eliom_reference.wiki b/doc/11.x/api/server/type_Eliom_reference.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_reference.wiki
rename to doc/11.x/api/server/type_Eliom_reference.wiki
diff --git a/doc/10.x/api/server/type_Eliom_registration.APP.wiki b/doc/11.x/api/server/type_Eliom_registration.APP.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_registration.APP.wiki
rename to doc/11.x/api/server/type_Eliom_registration.APP.wiki
diff --git a/doc/10.x/api/server/type_Eliom_registration.Action.wiki b/doc/11.x/api/server/type_Eliom_registration.Action.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_registration.Action.wiki
rename to doc/11.x/api/server/type_Eliom_registration.Action.wiki
diff --git a/doc/10.x/api/server/type_Eliom_registration.Any.wiki b/doc/11.x/api/server/type_Eliom_registration.Any.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_registration.Any.wiki
rename to doc/11.x/api/server/type_Eliom_registration.Any.wiki
diff --git a/doc/11.x/api/server/type_Eliom_registration.App.wiki b/doc/11.x/api/server/type_Eliom_registration.App.wiki
new file mode 100644
index 0000000000..a7e2ebe32f
--- /dev/null
+++ b/doc/11.x/api/server/type_Eliom_registration.App.wiki
@@ -0,0 +1 @@
+<<code language="ocaml" | Eliom_registration_sigs.APP_PARAM -> APP >>
\ No newline at end of file
diff --git a/doc/10.x/api/server/type_Eliom_registration.CssText.wiki b/doc/11.x/api/server/type_Eliom_registration.CssText.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_registration.CssText.wiki
rename to doc/11.x/api/server/type_Eliom_registration.CssText.wiki
diff --git a/doc/10.x/api/server/type_Eliom_registration.Customize.wiki b/doc/11.x/api/server/type_Eliom_registration.Customize.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_registration.Customize.wiki
rename to doc/11.x/api/server/type_Eliom_registration.Customize.wiki
diff --git a/doc/10.x/api/server/type_Eliom_registration.Eliom_tmpl.wiki b/doc/11.x/api/server/type_Eliom_registration.Eliom_tmpl.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_registration.Eliom_tmpl.wiki
rename to doc/11.x/api/server/type_Eliom_registration.Eliom_tmpl.wiki
diff --git a/doc/10.x/api/server/type_Eliom_registration.File.wiki b/doc/11.x/api/server/type_Eliom_registration.File.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_registration.File.wiki
rename to doc/11.x/api/server/type_Eliom_registration.File.wiki
diff --git a/doc/10.x/api/server/type_Eliom_registration.File_ct.wiki b/doc/11.x/api/server/type_Eliom_registration.File_ct.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_registration.File_ct.wiki
rename to doc/11.x/api/server/type_Eliom_registration.File_ct.wiki
diff --git a/doc/10.x/api/server/type_Eliom_registration.Flow5.wiki b/doc/11.x/api/server/type_Eliom_registration.Flow5.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_registration.Flow5.wiki
rename to doc/11.x/api/server/type_Eliom_registration.Flow5.wiki
diff --git a/doc/10.x/api/server/type_Eliom_registration.Html.wiki b/doc/11.x/api/server/type_Eliom_registration.Html.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_registration.Html.wiki
rename to doc/11.x/api/server/type_Eliom_registration.Html.wiki
diff --git a/doc/10.x/api/server/type_Eliom_registration.Html_text.wiki b/doc/11.x/api/server/type_Eliom_registration.Html_text.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_registration.Html_text.wiki
rename to doc/11.x/api/server/type_Eliom_registration.Html_text.wiki
diff --git a/doc/10.x/api/server/type_Eliom_registration.Ocaml.wiki b/doc/11.x/api/server/type_Eliom_registration.Ocaml.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_registration.Ocaml.wiki
rename to doc/11.x/api/server/type_Eliom_registration.Ocaml.wiki
diff --git a/doc/10.x/api/server/type_Eliom_registration.Redirection.wiki b/doc/11.x/api/server/type_Eliom_registration.Redirection.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_registration.Redirection.wiki
rename to doc/11.x/api/server/type_Eliom_registration.Redirection.wiki
diff --git a/doc/10.x/api/server/type_Eliom_registration.String.wiki b/doc/11.x/api/server/type_Eliom_registration.String.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_registration.String.wiki
rename to doc/11.x/api/server/type_Eliom_registration.String.wiki
diff --git a/doc/10.x/api/server/type_Eliom_registration.String_redirection.wiki b/doc/11.x/api/server/type_Eliom_registration.String_redirection.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_registration.String_redirection.wiki
rename to doc/11.x/api/server/type_Eliom_registration.String_redirection.wiki
diff --git a/doc/10.x/api/server/type_Eliom_registration.TMPL_PARAMS.wiki b/doc/11.x/api/server/type_Eliom_registration.TMPL_PARAMS.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_registration.TMPL_PARAMS.wiki
rename to doc/11.x/api/server/type_Eliom_registration.TMPL_PARAMS.wiki
diff --git a/doc/10.x/api/server/type_Eliom_registration.Unit.wiki b/doc/11.x/api/server/type_Eliom_registration.Unit.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_registration.Unit.wiki
rename to doc/11.x/api/server/type_Eliom_registration.Unit.wiki
diff --git a/doc/10.x/api/server/type_Eliom_registration.wiki b/doc/11.x/api/server/type_Eliom_registration.wiki
similarity index 99%
rename from doc/10.x/api/server/type_Eliom_registration.wiki
rename to doc/11.x/api/server/type_Eliom_registration.wiki
index 2d8cd7c3aa..c5b14348a1 100644
--- a/doc/10.x/api/server/type_Eliom_registration.wiki
+++ b/doc/11.x/api/server/type_Eliom_registration.wiki
@@ -234,8 +234,7 @@
     end
   val transform_global_app_uri :
     (Eliom_content.Html.uri -> Eliom_content.Html.uri) Stdlib.ref
-  module App :
-    functor (App_params : Eliom_registration_sigs.APP_PARAM) -> APP
+  module App : Eliom_registration_sigs.APP_PARAM -> APP
   module type TMPL_PARAMS =
     sig
       type t
@@ -1799,6 +1798,4 @@
     Eliom_registration.unknown_content Eliom_registration.kind ->
     'a Eliom_registration.kind
   val cast_http_result : Ocsigen_response.t -> 'a Eliom_registration.kind
-  val extension : Ocsigen_server.Site.extension
-  val end_init : unit -> unit
 end >>
\ No newline at end of file
diff --git a/doc/10.x/api/server/type_Eliom_registration_sigs.APP_PARAM.wiki b/doc/11.x/api/server/type_Eliom_registration_sigs.APP_PARAM.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_registration_sigs.APP_PARAM.wiki
rename to doc/11.x/api/server/type_Eliom_registration_sigs.APP_PARAM.wiki
diff --git a/doc/10.x/api/client/type_Eliom_registration_sigs.PARAM.wiki b/doc/11.x/api/server/type_Eliom_registration_sigs.PARAM.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_registration_sigs.PARAM.wiki
rename to doc/11.x/api/server/type_Eliom_registration_sigs.PARAM.wiki
diff --git a/doc/10.x/api/client/type_Eliom_registration_sigs.PARAM_POLY.wiki b/doc/11.x/api/server/type_Eliom_registration_sigs.PARAM_POLY.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_registration_sigs.PARAM_POLY.wiki
rename to doc/11.x/api/server/type_Eliom_registration_sigs.PARAM_POLY.wiki
diff --git a/doc/10.x/api/client/type_Eliom_registration_sigs.S.wiki b/doc/11.x/api/server/type_Eliom_registration_sigs.S.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_registration_sigs.S.wiki
rename to doc/11.x/api/server/type_Eliom_registration_sigs.S.wiki
diff --git a/doc/10.x/api/client/type_Eliom_registration_sigs.S_poly.wiki b/doc/11.x/api/server/type_Eliom_registration_sigs.S_poly.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_registration_sigs.S_poly.wiki
rename to doc/11.x/api/server/type_Eliom_registration_sigs.S_poly.wiki
diff --git a/doc/10.x/api/client/type_Eliom_registration_sigs.S_poly_with_create.wiki b/doc/11.x/api/server/type_Eliom_registration_sigs.S_poly_with_create.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_registration_sigs.S_poly_with_create.wiki
rename to doc/11.x/api/server/type_Eliom_registration_sigs.S_poly_with_create.wiki
diff --git a/doc/10.x/api/client/type_Eliom_registration_sigs.S_poly_with_create_with_send.wiki b/doc/11.x/api/server/type_Eliom_registration_sigs.S_poly_with_create_with_send.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_registration_sigs.S_poly_with_create_with_send.wiki
rename to doc/11.x/api/server/type_Eliom_registration_sigs.S_poly_with_create_with_send.wiki
diff --git a/doc/10.x/api/client/type_Eliom_registration_sigs.S_poly_with_send.wiki b/doc/11.x/api/server/type_Eliom_registration_sigs.S_poly_with_send.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_registration_sigs.S_poly_with_send.wiki
rename to doc/11.x/api/server/type_Eliom_registration_sigs.S_poly_with_send.wiki
diff --git a/doc/10.x/api/client/type_Eliom_registration_sigs.S_with_create.wiki b/doc/11.x/api/server/type_Eliom_registration_sigs.S_with_create.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_registration_sigs.S_with_create.wiki
rename to doc/11.x/api/server/type_Eliom_registration_sigs.S_with_create.wiki
diff --git a/doc/10.x/api/client/type_Eliom_registration_sigs.wiki b/doc/11.x/api/server/type_Eliom_registration_sigs.wiki
similarity index 100%
rename from doc/10.x/api/client/type_Eliom_registration_sigs.wiki
rename to doc/11.x/api/server/type_Eliom_registration_sigs.wiki
diff --git a/doc/10.x/api/server/type_Eliom_request_info.wiki b/doc/11.x/api/server/type_Eliom_request_info.wiki
similarity index 98%
rename from doc/10.x/api/server/type_Eliom_request_info.wiki
rename to doc/11.x/api/server/type_Eliom_request_info.wiki
index 6583c23dea..3edf22734c 100644
--- a/doc/10.x/api/server/type_Eliom_request_info.wiki
+++ b/doc/11.x/api/server/type_Eliom_request_info.wiki
@@ -31,6 +31,7 @@
     Ocsigen_extensions.file_info ->
     ((string * string) * (string * string) list) option
   val get_site_dir : unit -> Eliom_lib.Url.path
+  val get_site_dir_option : unit -> Eliom_lib.Url.path option
   val get_get_params : unit -> (string * string list) list
   val get_all_current_get_params : unit -> (string * string) list
   val get_other_get_params : unit -> (string * string) list
diff --git a/doc/10.x/api/server/type_Eliom_service.wiki b/doc/11.x/api/server/type_Eliom_service.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_service.wiki
rename to doc/11.x/api/server/type_Eliom_service.wiki
diff --git a/doc/10.x/api/server/type_Eliom_service_sigs.S.wiki b/doc/11.x/api/server/type_Eliom_service_sigs.S.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_service_sigs.S.wiki
rename to doc/11.x/api/server/type_Eliom_service_sigs.S.wiki
diff --git a/doc/10.x/api/server/type_Eliom_service_sigs.TYPES.wiki b/doc/11.x/api/server/type_Eliom_service_sigs.TYPES.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_service_sigs.TYPES.wiki
rename to doc/11.x/api/server/type_Eliom_service_sigs.TYPES.wiki
diff --git a/doc/10.x/api/server/type_Eliom_service_sigs.wiki b/doc/11.x/api/server/type_Eliom_service_sigs.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_service_sigs.wiki
rename to doc/11.x/api/server/type_Eliom_service_sigs.wiki
diff --git a/doc/10.x/api/server/type_Eliom_shared.FakeReactiveData.RList.wiki b/doc/11.x/api/server/type_Eliom_shared.FakeReactiveData.RList.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_shared.FakeReactiveData.RList.wiki
rename to doc/11.x/api/server/type_Eliom_shared.FakeReactiveData.RList.wiki
diff --git a/doc/10.x/api/server/type_Eliom_shared.FakeReactiveData.wiki b/doc/11.x/api/server/type_Eliom_shared.FakeReactiveData.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_shared.FakeReactiveData.wiki
rename to doc/11.x/api/server/type_Eliom_shared.FakeReactiveData.wiki
diff --git a/doc/10.x/api/server/type_Eliom_shared.React.S.wiki b/doc/11.x/api/server/type_Eliom_shared.React.S.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_shared.React.S.wiki
rename to doc/11.x/api/server/type_Eliom_shared.React.S.wiki
diff --git a/doc/10.x/api/server/type_Eliom_shared.React.wiki b/doc/11.x/api/server/type_Eliom_shared.React.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_shared.React.wiki
rename to doc/11.x/api/server/type_Eliom_shared.React.wiki
diff --git a/doc/10.x/api/server/type_Eliom_shared.ReactiveData.RList.wiki b/doc/11.x/api/server/type_Eliom_shared.ReactiveData.RList.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_shared.ReactiveData.RList.wiki
rename to doc/11.x/api/server/type_Eliom_shared.ReactiveData.RList.wiki
diff --git a/doc/10.x/api/server/type_Eliom_shared.ReactiveData.wiki b/doc/11.x/api/server/type_Eliom_shared.ReactiveData.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_shared.ReactiveData.wiki
rename to doc/11.x/api/server/type_Eliom_shared.ReactiveData.wiki
diff --git a/doc/10.x/api/server/type_Eliom_shared.Value.wiki b/doc/11.x/api/server/type_Eliom_shared.Value.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_shared.Value.wiki
rename to doc/11.x/api/server/type_Eliom_shared.Value.wiki
diff --git a/doc/10.x/api/server/type_Eliom_shared.wiki b/doc/11.x/api/server/type_Eliom_shared.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_shared.wiki
rename to doc/11.x/api/server/type_Eliom_shared.wiki
diff --git a/doc/10.x/api/server/type_Eliom_shared_sigs.RLIST.Lwt.wiki b/doc/11.x/api/server/type_Eliom_shared_sigs.RLIST.Lwt.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_shared_sigs.RLIST.Lwt.wiki
rename to doc/11.x/api/server/type_Eliom_shared_sigs.RLIST.Lwt.wiki
diff --git a/doc/10.x/api/server/type_Eliom_shared_sigs.RLIST.wiki b/doc/11.x/api/server/type_Eliom_shared_sigs.RLIST.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_shared_sigs.RLIST.wiki
rename to doc/11.x/api/server/type_Eliom_shared_sigs.RLIST.wiki
diff --git a/doc/10.x/api/server/type_Eliom_shared_sigs.S.Infix.wiki b/doc/11.x/api/server/type_Eliom_shared_sigs.S.Infix.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_shared_sigs.S.Infix.wiki
rename to doc/11.x/api/server/type_Eliom_shared_sigs.S.Infix.wiki
diff --git a/doc/10.x/api/server/type_Eliom_shared_sigs.S.Lwt.wiki b/doc/11.x/api/server/type_Eliom_shared_sigs.S.Lwt.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_shared_sigs.S.Lwt.wiki
rename to doc/11.x/api/server/type_Eliom_shared_sigs.S.Lwt.wiki
diff --git a/doc/10.x/api/server/type_Eliom_shared_sigs.S.wiki b/doc/11.x/api/server/type_Eliom_shared_sigs.S.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_shared_sigs.S.wiki
rename to doc/11.x/api/server/type_Eliom_shared_sigs.S.wiki
diff --git a/doc/10.x/api/server/type_Eliom_shared_sigs.VALUE.wiki b/doc/11.x/api/server/type_Eliom_shared_sigs.VALUE.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_shared_sigs.VALUE.wiki
rename to doc/11.x/api/server/type_Eliom_shared_sigs.VALUE.wiki
diff --git a/doc/10.x/api/server/type_Eliom_shared_sigs.wiki b/doc/11.x/api/server/type_Eliom_shared_sigs.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_shared_sigs.wiki
rename to doc/11.x/api/server/type_Eliom_shared_sigs.wiki
diff --git a/doc/10.x/api/server/type_Eliom_state.Ext.Low_level.wiki b/doc/11.x/api/server/type_Eliom_state.Ext.Low_level.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_state.Ext.Low_level.wiki
rename to doc/11.x/api/server/type_Eliom_state.Ext.Low_level.wiki
diff --git a/doc/10.x/api/server/type_Eliom_state.Ext.wiki b/doc/11.x/api/server/type_Eliom_state.Ext.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_state.Ext.wiki
rename to doc/11.x/api/server/type_Eliom_state.Ext.wiki
diff --git a/doc/10.x/api/server/type_Eliom_state.wiki b/doc/11.x/api/server/type_Eliom_state.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_state.wiki
rename to doc/11.x/api/server/type_Eliom_state.wiki
diff --git a/doc/10.x/api/server/type_Eliom_syntax.wiki b/doc/11.x/api/server/type_Eliom_syntax.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_syntax.wiki
rename to doc/11.x/api/server/type_Eliom_syntax.wiki
diff --git a/doc/10.x/api/server/type_Eliom_tools.D.wiki b/doc/11.x/api/server/type_Eliom_tools.D.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_tools.D.wiki
rename to doc/11.x/api/server/type_Eliom_tools.D.wiki
diff --git a/doc/10.x/api/server/type_Eliom_tools.F.wiki b/doc/11.x/api/server/type_Eliom_tools.F.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_tools.F.wiki
rename to doc/11.x/api/server/type_Eliom_tools.F.wiki
diff --git a/doc/10.x/api/server/type_Eliom_tools.HTML5_TOOLS.wiki b/doc/11.x/api/server/type_Eliom_tools.HTML5_TOOLS.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_tools.HTML5_TOOLS.wiki
rename to doc/11.x/api/server/type_Eliom_tools.HTML5_TOOLS.wiki
diff --git a/doc/10.x/api/server/type_Eliom_tools.wiki b/doc/11.x/api/server/type_Eliom_tools.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_tools.wiki
rename to doc/11.x/api/server/type_Eliom_tools.wiki
diff --git a/doc/10.x/api/server/type_Eliom_types.wiki b/doc/11.x/api/server/type_Eliom_types.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_types.wiki
rename to doc/11.x/api/server/type_Eliom_types.wiki
diff --git a/doc/10.x/api/server/type_Eliom_uri.wiki b/doc/11.x/api/server/type_Eliom_uri.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_uri.wiki
rename to doc/11.x/api/server/type_Eliom_uri.wiki
diff --git a/doc/10.x/api/server/type_Eliom_wrap.wiki b/doc/11.x/api/server/type_Eliom_wrap.wiki
similarity index 100%
rename from doc/10.x/api/server/type_Eliom_wrap.wiki
rename to doc/11.x/api/server/type_Eliom_wrap.wiki
diff --git a/doc/10.x/manual/clientserver-applications.wiki b/doc/11.x/manual/clientserver-applications.wiki
similarity index 100%
rename from doc/10.x/manual/clientserver-applications.wiki
rename to doc/11.x/manual/clientserver-applications.wiki
diff --git a/doc/10.x/manual/clientserver-cache.wiki b/doc/11.x/manual/clientserver-cache.wiki
similarity index 100%
rename from doc/10.x/manual/clientserver-cache.wiki
rename to doc/11.x/manual/clientserver-cache.wiki
diff --git a/doc/10.x/manual/clientserver-communication.wiki b/doc/11.x/manual/clientserver-communication.wiki
similarity index 100%
rename from doc/10.x/manual/clientserver-communication.wiki
rename to doc/11.x/manual/clientserver-communication.wiki
diff --git a/doc/10.x/manual/clientserver-html.wiki b/doc/11.x/manual/clientserver-html.wiki
similarity index 100%
rename from doc/10.x/manual/clientserver-html.wiki
rename to doc/11.x/manual/clientserver-html.wiki
diff --git a/doc/10.x/manual/clientserver-react.wiki b/doc/11.x/manual/clientserver-react.wiki
similarity index 100%
rename from doc/10.x/manual/clientserver-react.wiki
rename to doc/11.x/manual/clientserver-react.wiki
diff --git a/doc/10.x/manual/clientserver-services.wiki b/doc/11.x/manual/clientserver-services.wiki
similarity index 100%
rename from doc/10.x/manual/clientserver-services.wiki
rename to doc/11.x/manual/clientserver-services.wiki
diff --git a/doc/10.x/manual/clientserver-wrapping.wiki b/doc/11.x/manual/clientserver-wrapping.wiki
similarity index 100%
rename from doc/10.x/manual/clientserver-wrapping.wiki
rename to doc/11.x/manual/clientserver-wrapping.wiki
diff --git a/doc/10.x/manual/config.wiki b/doc/11.x/manual/config.wiki
similarity index 100%
rename from doc/10.x/manual/config.wiki
rename to doc/11.x/manual/config.wiki
diff --git a/doc/10.x/manual/eliom-language.wiki b/doc/11.x/manual/eliom-language.wiki
similarity index 99%
rename from doc/10.x/manual/eliom-language.wiki
rename to doc/11.x/manual/eliom-language.wiki
index c3e7ac5ae9..f610f89fe6 100644
--- a/doc/10.x/manual/eliom-language.wiki
+++ b/doc/11.x/manual/eliom-language.wiki
@@ -267,7 +267,7 @@ content has changed//. That way they may refer to the new DOM.
 If a client value is created outside of the initialization of the
 server program and also outside of the processing of a request, the
 exception {% <<a_api subproject="server"|exception
-Eliom_client_value.t_creation_invalid_context>> %} is raised.
+Eliom_client_value.Client_value_creation_invalid_context>> %} is raised.
 
 ===@@id="sharedclientvalues"@@ In a shared section
 
diff --git a/doc/10.x/manual/illustrations/Makefile b/doc/11.x/manual/illustrations/Makefile
similarity index 100%
rename from doc/10.x/manual/illustrations/Makefile
rename to doc/11.x/manual/illustrations/Makefile
diff --git a/doc/10.x/manual/illustrations/compilation.pgf b/doc/11.x/manual/illustrations/compilation.pgf
similarity index 100%
rename from doc/10.x/manual/illustrations/compilation.pgf
rename to doc/11.x/manual/illustrations/compilation.pgf
diff --git a/doc/10.x/manual/illustrations/my-pgf.sty b/doc/11.x/manual/illustrations/my-pgf.sty
similarity index 100%
rename from doc/10.x/manual/illustrations/my-pgf.sty
rename to doc/11.x/manual/illustrations/my-pgf.sty
diff --git a/doc/10.x/manual/intro.wiki b/doc/11.x/manual/intro.wiki
similarity index 100%
rename from doc/10.x/manual/intro.wiki
rename to doc/11.x/manual/intro.wiki
diff --git a/doc/10.x/manual/menu.wiki b/doc/11.x/manual/menu.wiki
similarity index 100%
rename from doc/10.x/manual/menu.wiki
rename to doc/11.x/manual/menu.wiki
diff --git a/doc/10.x/manual/misc.wiki b/doc/11.x/manual/misc.wiki
similarity index 100%
rename from doc/10.x/manual/misc.wiki
rename to doc/11.x/manual/misc.wiki
diff --git a/doc/10.x/manual/mobile-apps.wiki b/doc/11.x/manual/mobile-apps.wiki
similarity index 100%
rename from doc/10.x/manual/mobile-apps.wiki
rename to doc/11.x/manual/mobile-apps.wiki
diff --git a/doc/10.x/manual/overview.wiki b/doc/11.x/manual/overview.wiki
similarity index 100%
rename from doc/10.x/manual/overview.wiki
rename to doc/11.x/manual/overview.wiki
diff --git a/doc/10.x/manual/ppx-migration.wiki b/doc/11.x/manual/ppx-migration.wiki
similarity index 100%
rename from doc/10.x/manual/ppx-migration.wiki
rename to doc/11.x/manual/ppx-migration.wiki
diff --git a/doc/10.x/manual/ppx-syntax.wiki b/doc/11.x/manual/ppx-syntax.wiki
similarity index 100%
rename from doc/10.x/manual/ppx-syntax.wiki
rename to doc/11.x/manual/ppx-syntax.wiki
diff --git a/doc/10.x/manual/scalability.wiki b/doc/11.x/manual/scalability.wiki
similarity index 100%
rename from doc/10.x/manual/scalability.wiki
rename to doc/11.x/manual/scalability.wiki
diff --git a/doc/10.x/manual/server-links.wiki b/doc/11.x/manual/server-links.wiki
similarity index 98%
rename from doc/10.x/manual/server-links.wiki
rename to doc/11.x/manual/server-links.wiki
index 806d863eb8..8123525a91 100644
--- a/doc/10.x/manual/server-links.wiki
+++ b/doc/11.x/manual/server-links.wiki
@@ -22,18 +22,18 @@ as in these examples:
        (head (title (txt "Links")) [])
        (body
          [p
-          [a theservice [txt "coucou"] (); br ();
-           a hello [txt "hello"] (); br ();
-           a default
+          [a ~service:theservice [txt "coucou"] (); br ();
+           a ~service:hello [txt "hello"] (); br ();
+           a ~service:default
              [txt "default page of the dir"] (); br ();
-           a uasuffix
+           a ~service:uasuffix
              [txt "uasuffix"] (2007,06); br ();
-           a service_with_params
+           a ~service:service_with_params
              [txt "Service with params"] (42,(22,"ciao")); br ();
-           a raw_serv
+           a ~service:raw_serv
              [txt "raw_serv"] [("sun","yellow");("sea","blue and pink")]; br ();
            a
-             (Eliom_service.extern
+             ~service:(Eliom_service.extern
                 ~prefix:"http://fr.wikipedia.org"
                 ~path:["wiki";""]
                 ~meth:(Eliom_service.Get
diff --git a/doc/10.x/manual/server-outputs.wiki b/doc/11.x/manual/server-outputs.wiki
similarity index 99%
rename from doc/10.x/manual/server-outputs.wiki
rename to doc/11.x/manual/server-outputs.wiki
index ae343d254c..b594add53d 100644
--- a/doc/10.x/manual/server-outputs.wiki
+++ b/doc/11.x/manual/server-outputs.wiki
@@ -38,7 +38,7 @@ using polymorphic variant types. You may use constructor functions from <<a_api
 | module Eliom_content.Html.D >> or a syntax extension close to the standard HTML syntax.
 ;<<a_api subproject="server"| module Eliom_registration.Flow5 >>
 : Registration of functions that generate a portion of page using <<a_api subproject="server" |
-module Eliom_content.Html.F >> or the syntax extension (useful for {{{XMLHttpRequest}}} requests for example). Do not use with Eliom applications: you can instead use <<a_api subproject="server" | Eliom_client.server_function>> (or the {{{let%rpc}}} syntax) to call server functions that produce HTML nodes.
+module Eliom_content.Html.F >> or the syntax extension (useful for {{{XMLHttpRequest}}} requests for example). Do not use with Eliom applications: you can instead use <<a_api subproject="server"| val Eliom_client.server_function >> (or the {{{let%rpc}}} syntax) to call server functions that produce HTML nodes.
 ;<<a_api subproject="server"| module Eliom_registration.Html_text >>
 : Registration of functions that generate text HTML pages, without any validation of the content. The content type sent by the server is "{{{text/html}}}".
 ;<<a_api subproject="server"| module Eliom_registration.CssText >>
diff --git a/doc/10.x/manual/server-params.wiki b/doc/11.x/manual/server-params.wiki
similarity index 100%
rename from doc/10.x/manual/server-params.wiki
rename to doc/11.x/manual/server-params.wiki
diff --git a/doc/10.x/manual/server-security.wiki b/doc/11.x/manual/server-security.wiki
similarity index 100%
rename from doc/10.x/manual/server-security.wiki
rename to doc/11.x/manual/server-security.wiki
diff --git a/doc/10.x/manual/server-services.wiki b/doc/11.x/manual/server-services.wiki
similarity index 100%
rename from doc/10.x/manual/server-services.wiki
rename to doc/11.x/manual/server-services.wiki
diff --git a/doc/10.x/manual/server-state.wiki b/doc/11.x/manual/server-state.wiki
similarity index 100%
rename from doc/10.x/manual/server-state.wiki
rename to doc/11.x/manual/server-state.wiki
diff --git a/doc/10.x/manual/workflow-configuration.wiki b/doc/11.x/manual/workflow-configuration.wiki
similarity index 100%
rename from doc/10.x/manual/workflow-configuration.wiki
rename to doc/11.x/manual/workflow-configuration.wiki
diff --git a/doc/10.x/manual/workflow-distillery.wiki b/doc/11.x/manual/workflow-distillery.wiki
similarity index 56%
rename from doc/10.x/manual/workflow-distillery.wiki
rename to doc/11.x/manual/workflow-distillery.wiki
index dbafe1ba66..3771377035 100644
--- a/doc/10.x/manual/workflow-distillery.wiki
+++ b/doc/11.x/manual/workflow-distillery.wiki
@@ -1,4 +1,3 @@
-
 = Eliom's Distillery==
 
 The easiest way to initialize, compile, and run an Ocsigen/Eliom
@@ -20,72 +19,35 @@ To see all available templates, you can use
 $ eliom-distillery -list-templates
 >>
 
-Template "client-server.basic" create a simple project (Dune-based build system,
+Templates "app.lib" and "app.exe" create a simple
+client-server app project (Dune-based build system,
 configuration file and main service).
+The first one builds a library that you can dynamically load in
+ocsigenserver using a configuration file. The second builds a static
+executable without configuration file.
+
 Alternatively, you might want to use the legacy "basic.ppx" template,
 with a Makefile-based build system.
 
 To create your project, do:
 
 <<code language="shell"|
-$ eliom-distillery -name <name> -template client-server.basic [-target-directory <dir>]
+$ eliom-distillery -name <name> -template app.exe [-target-directory <dir>]
 >>
 
-This creates a project named {{{<name>}}} from the {{{"client-server.basic"}}}
+This creates a project named {{{<name>}}} from the {{{"app.exe"}}}
 template in the directory {{{<dir>}}} or {{{<name>}}} by default.
 The project name should be a valid name for an OCaml compilation unit.
-The project directory contains the following files
-
- * {{{<name>.eliom}}} \\
-   This is your initial source file.
-   All Eliom files (*.eliom, *.eliomi) in this directory are
-   automatically considered.  To add a .ml/.mli file to your project,
-   add it to the variable SERVER_FILES or CLIENT_FILES in
-   {{{Makefile.options}}}.
-
- * {{{static/}}} \\
-   The content of this folder is statically served. It contains
-   initially a basic CSS file for your project.
-
- * {{{Makefile.options}}} \\
-   Configure your project here!
-
- * {{{name.conf.in}}} \\
-   This file is a template for the configuration file for
-   ocsigenserver. You will rarely need to edit it: it can be
-   personalized through variables in {{{Makefile.options}}}.
-   In particular, this way, the installation rules and the
-   configuration files remains coherent.
-
- * {{{Makefile}}} \\
-   This contains all rules necessary to build, test, and run your
-   Eliom application. You should avoid modifying it. See below for the
-   relevant targets.
 
- * {{{README}}} \\
-   An explanation of how to compile, test, install, and run your
-   application
-
-=== Compilation & Running: Read the README
-
-You can just run
-<<code language="shell"|
-$ make test.byte
->>
-or
-<<code language="shell"|
-$ make test.opt
->>
-to compile your project and run ocsigenserver with it.
+=== Compilation & Running: 
 
-Please refer to the generated README file for further hints
-on how to work with your project.
+Read the README file provided with the template.
 
 === Using other templates
 
 If you want to start from a more complete or more specific template,
 you can get other templates from the internet, such as
-"ocsigen-start". You can either install these templates into eliom's
+Ocsigen Start. You can either install these templates into eliom's
 own directory (this is what their installer generally does), or, if
 doing so is not practical, you can use the {{{ELIOM_DISTILLERY_PATH}}}
 environment variable to point to your templates. This environment
@@ -117,5 +79,5 @@ list all reserved project names in the special file
 {{{%%%MODULE_NAME%%%}}}) by the project name (resp. by the project
 name with the first letter capitalized).
 
-For examples, see pre-defined templates like {{{client-server.basic}}}, {{{basic.ppx}}} and
-{{{os.pgocaml}}}.
+For examples, see pre-defined templates like {{{app.exe}}}, {{{app.lib}}}, 
+{{{basic.ppx}}} and {{{os.pgocaml}}}.