let pp_cell cell_type pp_fun fmt pp_arg =
  Format.fprintf fmt "@{<td %a>%a@}"
    pp_cell_type_html cell_type
    pp_fun pp_arg