Module Ag_ob_mapping

val mapping_of_expr : Atd_ast.type_expr -> ob_mapping
val defs_of_atd_module : [< `Type of Atd_ast.loc * (string * string list * Atd_annot.t) * Atd_ast.type_expr ] list -> (Ag_ocaml.atd_ocaml_repr, Ag_biniou.biniou_repr) Ag_mapping.def list
val defs_of_atd_modules : ('a * [< `Type of Atd_ast.loc * (string * string list * Atd_annot.t) * Atd_ast.type_expr ] list) list -> ('a * (Ag_ocaml.atd_ocaml_repr, Ag_biniou.biniou_repr) Ag_mapping.def list) list