Floating.Contexttype 'a t = | Structure_item : Astlib.Ast_500.Parsetree.structure_item t| Signature_item : Astlib.Ast_500.Parsetree.signature_item t| Class_field : Astlib.Ast_500.Parsetree.class_field t| Class_type_field : Astlib.Ast_500.Parsetree.class_type_field tval structure_item : Astlib.Ast_500.Parsetree.structure_item tval signature_item : Astlib.Ast_500.Parsetree.signature_item tval class_field : Astlib.Ast_500.Parsetree.class_field tval class_type_field : Astlib.Ast_500.Parsetree.class_type_field t