type t =
  | Metadata
  | Flow
  | Sectioning
  | Heading
  | Phrasing
  | Embedded
  | Interactive
  | Palpable
  | Script_supporting
  | Form_associated
  | Listed
  | Labelable
  | Submittable
  | Resettable
  | Autocapitalize_inheriting
  | Transparent

let to_string = function
  | Metadata -> "metadata"
  | Flow -> "flow"
  | Sectioning -> "sectioning"
  | Heading -> "heading"
  | Phrasing -> "phrasing"
  | Embedded -> "embedded"
  | Interactive -> "interactive"
  | Palpable -> "palpable"
  | Script_supporting -> "script-supporting"
  | Form_associated -> "form-associated"
  | Listed -> "listed"
  | Labelable -> "labelable"
  | Submittable -> "submittable"
  | Resettable -> "resettable"
  | Autocapitalize_inheriting -> "autocapitalize-inheriting"
  | Transparent -> "transparent"

let compare (a : t) (b : t) = Stdlib.compare a b

let equal (a : t) (b : t) = a = b