atdgen
Ag_ob_spe
val get_table_info : (Atd_ast.type_expr -> [> `Record of 'a ]) -> Atd_ast.type_expr -> 'a