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