sig
  val fields : Camlp4.PreCast.Ast.ctyp -> Pa_typerep_conv.Field_case.t list
  val variants :
    Camlp4.PreCast.Ast.ctyp -> Pa_typerep_conv.Variant_case.t list
end