Module Cobol_ptree.Visitor

include module type of struct include Terms_visitor end
class 'a {folder}1 : object ... end
val fold_name : 'a {folder}1 -> string -> 'a -> 'a
val fold_name_opt : 'a {folder}1 -> string option -> 'a -> 'a
val fold_name_list : 'a {folder}1 -> string list -> 'a -> 'a
val fold_name' : 'a {folder}1 -> string Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_name'_opt : 'a {folder}1 -> string Cobol_common.Srcloc.TYPES.with_loc option -> 'a -> 'a
val fold_name'_list : 'a {folder}1 -> string Cobol_common.Srcloc.TYPES.with_loc list -> 'a -> 'a
val fold_binop : 'a {folder}1 -> Cobol_ptree__.Terms.binop -> 'a -> 'a
val fold_unop : 'a {folder}1 -> Cobol_ptree__.Terms.unop -> 'a -> 'a
val fold_logop : 'a {folder}1 -> Cobol_ptree__.Terms.logop -> 'a -> 'a
val fold_relop : 'a {folder}1 -> Cobol_ptree__.Terms.relop -> 'a -> 'a
val fold_sign : 'a {folder}1 -> [ `Strict ] Cobol_ptree__.Terms.sign_cond -> 'a -> 'a
val fold_signz : 'a {folder}1 -> [ `Loose ] Cobol_ptree__.Terms.sign_cond -> 'a -> 'a
val fold_counter_kind : 'a {folder}1 -> Cobol_ptree__.Terms.counter_kind -> 'a -> 'a
val fold_fixed : 'a {folder}1 -> Cobol_ptree__.Numericals.fixed -> 'a -> 'a
val fold_floating : 'a {folder}1 -> Cobol_ptree__.Numericals.floating -> 'a -> 'a
val fold_integer : 'a {folder}1 -> string -> 'a -> 'a
val fold_integer_opt : 'a {folder}1 -> string option -> 'a -> 'a
val fold_integer' : 'a {folder}1 -> string Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_integer'_opt : 'a {folder}1 -> string Cobol_common.Srcloc.TYPES.with_loc option -> 'a -> 'a
val fold_boolean : 'a {folder}1 -> Cobol_ptree__.Numericals.boolean -> 'a -> 'a
val fold_alphanum : 'a {folder}1 -> Cobol_ptree__.Terms.alphanum -> 'a -> 'a
val fold_alphanum' : 'a {folder}1 -> Cobol_ptree__.Terms.alphanum Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_national : 'a {folder}1 -> string -> 'a -> 'a
val fold_counter : 'a {folder}1 -> Cobol_ptree__.Terms.counter -> 'a -> 'a
val fold_object_ref : 'a {folder}1 -> Cobol_ptree__.Terms.object_ref -> 'a -> 'a
val fold_intrinsic_name : 'a {folder}1 -> Cobol_ptree__.Terms.intrinsic_name -> 'a -> 'a
val fold_intrinsic_name' : 'a {folder}1 -> Cobol_ptree__.Terms.intrinsic_name Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_literal : 'a {folder}1 -> [ Cobol_ptree__.Terms.nonnum_ | Cobol_ptree__.Terms.bool_ | Cobol_ptree__.Terms.num_ ] Cobol_ptree__.Terms.term -> 'a -> 'a
val fold_intlit : 'a {folder}1 -> [ `Int ] Cobol_ptree__.Terms.term -> 'a -> 'a
val fold_numlit : 'a {folder}1 -> [ Cobol_ptree__.Terms.int_ | Cobol_ptree__.Terms.fixed_ | Cobol_ptree__.Terms.float_ ] Cobol_ptree__.Terms.term -> 'a -> 'a
val fold_nonnumlit : 'a {folder}1 -> [ Cobol_ptree__.Terms.alnum_ | Cobol_ptree__.Terms.national_ | Cobol_ptree__.Terms.bool_ ] Cobol_ptree__.Terms.term -> 'a -> 'a
val fold_int_figurative : 'a {folder}1 -> [ `Int ] Cobol_ptree__.Terms.figurative -> 'a -> 'a
val fold_any_figurative : 'a {folder}1 -> [ Cobol_ptree__.Terms.alnum_ | Cobol_ptree__.Terms.national_ | Cobol_ptree__.Terms.bool_ ] Cobol_ptree__.Terms.figurative -> 'a -> 'a
val fold_strlit : 'a {folder}1 -> [ Cobol_ptree__.Terms.alnum_ | Cobol_ptree__.Terms.national_ ] Cobol_ptree__.Terms.term -> 'a -> 'a
val fold_scalar_ident : 'a {folder}1 -> [ Cobol_ptree__.Terms.qualident_ | Cobol_ptree__.Terms.address_ | Cobol_ptree__.Terms.counter_ | Cobol_ptree__.Terms.inline_call_ | Cobol_ptree__.Terms.inline_invoke_ | Cobol_ptree__.Terms.object_ref_ | Cobol_ptree__.Terms.refmod_scalar_ident_ ] Cobol_ptree__.Terms.term -> 'a -> 'a
val fold_ident : 'a {folder}1 -> [ Cobol_ptree__Terms.base_ident_ | Cobol_ptree__Terms.refmod_ident_ ] Cobol_ptree__Terms.term -> 'a -> 'a
val fold_ident_or_nonnum : 'a {folder}1 -> [ Cobol_ptree__.Terms.ident_ | Cobol_ptree__.Terms.nonnum_ ] Cobol_ptree__.Terms.term -> 'a -> 'a
val fold_qualident : 'a {folder}1 -> Cobol_ptree__.Terms.qualident -> 'a -> 'a
val fold_qualname : 'a {folder}1 -> [ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term -> 'a -> 'a
val fold_qualname' : 'a {folder}1 -> [ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.with_loc -> 'a -> 'a
val fold_subscript : 'a {folder}1 -> Cobol_ptree__.Terms.subscript -> 'a -> 'a
val fold_refmod : 'a {folder}1 -> Cobol_ptree__.Terms.refmod -> 'a -> 'a
val fold_address : 'a {folder}1 -> Cobol_ptree__.Terms.address -> 'a -> 'a
val fold_inline_call : 'a {folder}1 -> Cobol_ptree__.Terms.inline_call -> 'a -> 'a
val fold_locale_func_args : 'a {folder}1 -> Cobol_ptree__.Terms.locale_func_args -> 'a -> 'a
val fold_formatted_func_args : 'a {folder}1 -> Cobol_ptree__.Terms.formatted_func_args -> 'a -> 'a
val fold_inline_invocation : 'a {folder}1 -> Cobol_ptree__.Terms.inline_invocation -> 'a -> 'a
val fold_effective_arg : 'a {folder}1 -> Cobol_ptree__.Terms.effective_arg -> 'a -> 'a
val fold_object_view : 'a {folder}1 -> Cobol_ptree__.Terms.object_view -> 'a -> 'a
val fold_object_view_spec : 'a {folder}1 -> Cobol_ptree__.Terms.object_view_spec -> 'a -> 'a
val fold_expr : 'a {folder}1 -> Cobol_ptree__.Terms.expression -> 'a -> 'a
val fold_expr' : 'a {folder}1 -> Cobol_ptree__.Terms.expression Cobol_common.Srcloc.with_loc -> 'a -> 'a
val fold_trimming_tip : 'a {folder}1 -> Cobol_ptree__.Terms.trimming_tip -> 'a -> 'a
val fold_ident_or_literal : 'a {folder}1 -> [ Cobol_ptree__.Terms.ident_ | Cobol_ptree__.Terms.lit_ ] Cobol_ptree__.Terms.term -> 'a -> 'a
val fold_scalar : 'a {folder}1 -> [ Cobol_ptree__.Terms.scalar_ident_ | Cobol_ptree__.Terms.refmod_ident_ | Cobol_ptree__.Terms.lit_ | Cobol_ptree__.Terms.arith_value_ ] Cobol_ptree__.Terms.term -> 'a -> 'a
val fold_length_of : 'a {folder}1 -> [ `LengthOf ] Cobol_ptree__.Terms.term -> 'a -> 'a
val fold_class : 'a {folder}1 -> Cobol_ptree__.Terms.class_ -> 'a -> 'a
val fold_cond : 'k. 'a {folder}1 -> 'k Cobol_ptree__.Terms.cond -> 'a -> 'a
val fold_simple_cond : 'a {folder}1 -> [ `Simple ] Cobol_ptree__.Terms.cond -> 'a -> 'a
val fold_binary_relation : 'a {folder}1 -> (Cobol_ptree__.Terms.expression * Cobol_ptree__.Terms.relop * Cobol_ptree__.Terms.expression) -> 'a -> 'a
val fold_flat_combined_relation : 'a {folder}1 -> Cobol_ptree__.Terms.flat_combined_relation -> 'a -> 'a
val fold_expression : 'a {folder}1 -> Cobol_ptree__.Terms.expression -> 'a -> 'a
val fold_condition : 'a {folder}1 -> 'b Cobol_ptree__.Terms.cond -> 'a -> 'a
val fold_ident_or_alphanum : 'a {folder}1 -> [ Cobol_ptree__.Terms.ident_ | Cobol_ptree__.Terms.alnum_ ] Cobol_ptree__.Terms.term -> 'a -> 'a
val fold_ident_or_intlit : 'a {folder}1 -> [ Cobol_ptree__.Terms.ident_ | Cobol_ptree__.Terms.int_ ] Cobol_ptree__.Terms.term -> 'a -> 'a
val fold_ident_or_numlit : 'a {folder}1 -> [ Cobol_ptree__.Terms.ident_ | Cobol_ptree__.Terms.num_ ] Cobol_ptree__.Terms.term -> 'a -> 'a
val fold_ident_or_strlit : 'a {folder}1 -> [ Cobol_ptree__.Terms.ident_ | Cobol_ptree__.Terms.strlit_ ] Cobol_ptree__.Terms.term -> 'a -> 'a
val fold_name_or_string : 'a {folder}1 -> [ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.strlit_ ] Cobol_ptree__.Terms.term -> 'a -> 'a
val fold_name_or_alphanum : 'a {folder}1 -> [ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.alnum_ ] Cobol_ptree__.Terms.term -> 'a -> 'a
val fold_qualname_or_alphanum : 'a {folder}1 -> [ Cobol_ptree__.Terms.qualname_ | Cobol_ptree__.Terms.alnum_ ] Cobol_ptree__.Terms.term -> 'a -> 'a
val fold_qualname_or_intlit : 'a {folder}1 -> [ Cobol_ptree__.Terms.qualname_ | Cobol_ptree__.Terms.int_ ] Cobol_ptree__.Terms.term -> 'a -> 'a
val fold_qualname_or_literal : 'a {folder}1 -> [ Cobol_ptree__.Terms.qualname_ | Cobol_ptree__.Terms.lit_ ] Cobol_ptree__.Terms.term -> 'a -> 'a
val fold_name_or_literal : 'a {folder}1 -> [ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.lit_ ] Cobol_ptree__.Terms.term -> 'a -> 'a
val fold_strlit_or_intlit : 'a {folder}1 -> [ Cobol_ptree__.Terms.strlit_ | Cobol_ptree__.Terms.int_ ] Cobol_ptree__.Terms.term -> 'a -> 'a
val fold_qualname_opt : 'a {folder}1 -> [ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term option -> 'a -> 'a
val fold_qualname'_opt : 'a {folder}1 -> [ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.with_loc option -> 'a -> 'a
val fold_strlit_opt : 'a {folder}1 -> [ Cobol_ptree__.Terms.alnum_ | Cobol_ptree__.Terms.national_ ] Cobol_ptree__.Terms.term option -> 'a -> 'a
val fold_literal' : 'a {folder}1 -> [ Cobol_ptree__.Terms.nonnum_ | Cobol_ptree__.Terms.bool_ | Cobol_ptree__.Terms.num_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_literal_opt : 'a {folder}1 -> [ Cobol_ptree__.Terms.nonnum_ | Cobol_ptree__.Terms.bool_ | Cobol_ptree__.Terms.num_ ] Cobol_ptree__.Terms.term option -> 'a -> 'a
val fold_literal'_opt : 'a {folder}1 -> [ Cobol_ptree__.Terms.nonnum_ | Cobol_ptree__.Terms.bool_ | Cobol_ptree__.Terms.num_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.TYPES.with_loc option -> 'a -> 'a
val fold_ident' : 'a {folder}1 -> [ Cobol_ptree__Terms.base_ident_ | Cobol_ptree__Terms.refmod_ident_ ] Cobol_ptree__Terms.term Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_ident'_opt : 'a {folder}1 -> [ Cobol_ptree__Terms.base_ident_ | Cobol_ptree__Terms.refmod_ident_ ] Cobol_ptree__Terms.term Cobol_common.Srcloc.TYPES.with_loc option -> 'a -> 'a
val fold_ident_or_nonnum' : 'a {folder}1 -> [ Cobol_ptree__.Terms.ident_ | Cobol_ptree__.Terms.nonnum_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_ident_or_nonnum'_opt : 'a {folder}1 -> [ Cobol_ptree__.Terms.ident_ | Cobol_ptree__.Terms.nonnum_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.TYPES.with_loc option -> 'a -> 'a
val fold_name_or_alphanum' : 'a {folder}1 -> [ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.alnum_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_name_or_alphanum'_opt : 'a {folder}1 -> [ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.alnum_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.TYPES.with_loc option -> 'a -> 'a
val fold_name_or_literal' : 'a {folder}1 -> [ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.lit_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_name_or_literal'_opt : 'a {folder}1 -> [ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.lit_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.TYPES.with_loc option -> 'a -> 'a
val fold_ident_or_intlit' : 'a {folder}1 -> [ Cobol_ptree__.Terms.ident_ | Cobol_ptree__.Terms.int_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_ident_or_intlit'_opt : 'a {folder}1 -> [ Cobol_ptree__.Terms.ident_ | Cobol_ptree__.Terms.int_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.TYPES.with_loc option -> 'a -> 'a
val fold_rounding_mode : 'a {folder}1 -> Cobol_ptree__.Terms.rounding_mode -> 'a -> 'a
val fold_rounding : 'a {folder}1 -> Cobol_ptree__.Terms.rounding -> 'a -> 'a
val fold_procedure_name : 'a {folder}1 -> [ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term -> 'a -> 'a
val fold_procedure_name' : 'a {folder}1 -> [ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_procedure_name'_opt : 'a {folder}1 -> [ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.TYPES.with_loc option -> 'a -> 'a
class 'a {folder}2 : object ... end
val fold_alphabet_specification : 'a {folder}2 -> Cobol_ptree__.Operands.alphabet_specification -> 'a -> 'a
val fold_rounded : fold:('b {folder}2 as 'a -> 'c -> 'd -> 'b) -> 'e -> 'c Cobol_ptree__.Operands.rounded -> 'd -> 'b
val fold_rounded_ident : 'a {folder}2 -> [ Cobol_ptree__.Terms.base_ident_ | Cobol_ptree__.Terms.refmod_ident_ ] Cobol_ptree__.Terms.term Cobol_ptree__.Operands.rounded -> 'a -> 'a
val fold_rounded_idents : 'a {folder}2 -> [ Cobol_ptree__.Terms.base_ident_ | Cobol_ptree__.Terms.refmod_ident_ ] Cobol_ptree__.Terms.term Cobol_ptree__.Operands.rounded list -> 'a -> 'a
val fold_basic_arithmetic_operands : 'a {folder}2 -> Cobol_ptree__.Operands.basic_arithmetic_operands -> 'a -> 'a
val fold_call_using_by : 'a {folder}2 -> Cobol_ptree__.Operands.call_using_by -> 'a -> 'a
val fold_call_using_clause : 'a {folder}2 -> Cobol_ptree__.Operands.call_using_clause -> 'a -> 'a
val fold_call_using_clause' : 'a {folder}2 -> Cobol_ptree__.Operands.call_using_clause Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_date_time : 'a {folder}2 -> Cobol_ptree__.Operands.date_time -> 'a -> 'a
val fold_divide_operands : 'a {folder}2 -> Cobol_ptree__.Operands.divide_operands -> 'a -> 'a
val fold_file_option : 'a {folder}2 -> Cobol_ptree__.Operands.file_option -> 'a -> 'a
val fold_multiply_operands : 'a {folder}2 -> Cobol_ptree__.Operands.multiply_operands -> 'a -> 'a
val fold_mcs_awaiting_item : 'a {folder}2 -> Cobol_ptree__.Operands.mcs_awaiting_item -> 'a -> 'a
val fold_mcs_kind : 'a {folder}2 -> Cobol_ptree__.Operands.mcs_kind -> 'a -> 'a
val fold_mcs_command_operands : 'a {folder}2 -> Cobol_ptree__.Operands.mcs_command_operands -> 'a -> 'a
val fold_open_mode : 'a {folder}2 -> Cobol_ptree__.Operands.open_mode -> 'a -> 'a
val fold_position : 'a {folder}2 -> Cobol_ptree__.Operands.position -> 'a -> 'a
val fold_raising : 'a {folder}2 -> Cobol_ptree__.Operands.raising -> 'a -> 'a
val fold_read_direction : 'a {folder}2 -> Cobol_ptree__.Operands.read_direction -> 'a -> 'a
val fold_retry_clause : 'a {folder}2 -> Cobol_ptree__.Operands.retry_clause -> 'a -> 'a
val fold_read_lock_behavior : 'a {folder}2 -> Cobol_ptree__.Operands.read_lock_behavior -> 'a -> 'a
val fold_search_condition : 'a {folder}2 -> Cobol_ptree__.Operands.search_condition -> 'a -> 'a
val fold_sharing_mode : 'a {folder}2 -> Cobol_ptree__.Operands.sharing_mode -> 'a -> 'a
val fold_stage : 'a {folder}2 -> Cobol_ptree__.Operands.stage -> 'a -> 'a
val fold_advancing_phrase : 'a {folder}2 -> Cobol_ptree__.Operands.advancing_phrase -> 'a -> 'a
val fold_start_position : 'a {folder}2 -> Cobol_ptree__.Operands.start_position -> 'a -> 'a
val fold_write_target : 'a {folder}2 -> Cobol_ptree__.Operands.write_target -> 'a -> 'a
val fold_procedure_range : 'b {folder}2 as 'a -> fold:('c -> 'd -> 'b -> 'b) -> 'd Cobol_ptree__.Operands.procedure_range -> 'b -> 'b
val fold_screen_attribute : 'a {folder}2 -> Cobol_ptree__.Operands.screen_attribute -> 'a -> 'a
val fold_set_ambiguous_method : 'a {folder}2 -> Cobol_ptree__.Operands.set_ambiguous_method -> 'a -> 'a
val fold_on_off : 'a {folder}2 -> Cobol_ptree__.Operands.on_off -> 'a -> 'a
val fold_locale_category : 'a {folder}2 -> Cobol_ptree__.Operands.locale_category -> 'a -> 'a
val fold_set_save_locale : 'a {folder}2 -> Cobol_ptree__.Operands.set_save_locale -> 'a -> 'a
val fold_set_attribute_switch : 'a {folder}2 -> Cobol_ptree__.Operands.set_attribute_switch -> 'a -> 'a
val fold_set_locale_target : 'a {folder}2 -> Cobol_ptree__.Operands.set_locale_target -> 'a -> 'a
val fold_set_locale_source : 'a {folder}2 -> Cobol_ptree__.Operands.set_locale_source -> 'a -> 'a
val fold_float_content : 'a {folder}2 -> Cobol_ptree__.Operands.float_content -> 'a -> 'a
class virtual 'a {folder}3 : object ... end
val fold_arithmetic_mode : 'a {folder}3 -> Cobol_ptree__.Misc_sections.arithmetic_mode -> 'a -> 'a
val fold_entry_convention : 'a {folder}3 -> Cobol_ptree__.Misc_sections.entry_convention -> 'a -> 'a
val fold_options_clause : < fold' : 'x. 'x Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_address : (Cobol_ptree__.Terms.address, 'a) Cobol_common.Visitor.fold ; fold_alignment : (Cobol_ptree__.Data_descr.alignment, 'a) Cobol_common.Visitor.fold ; fold_alphanum : (Cobol_ptree__.Terms.alphanum, 'a) Cobol_common.Visitor.fold ; fold_alphanum' : (Cobol_ptree__.Terms.alphanum Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_any_figurative : 'k. ('k Cobol_ptree__.Terms.figurative, 'a) Cobol_common.Visitor.fold ; fold_arithmetic_mode : (Cobol_ptree__.Misc_sections.arithmetic_mode, 'a) Cobol_common.Visitor.fold ; fold_binop : (Cobol_ptree__.Terms.binop, 'a) Cobol_common.Visitor.fold ; fold_blank_clause : (Cobol_ptree__.Data_descr.blank_clause, 'a) Cobol_common.Visitor.fold ; fold_bool : bool -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_boolean : (Cobol_ptree__.Numericals.boolean, 'a) Cobol_common.Visitor.fold ; fold_char : char -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_class : (Cobol_ptree__.Terms.class_, 'a) Cobol_common.Visitor.fold ; fold_class_clause : (Cobol_ptree__.Data_descr.class_clause, 'a) Cobol_common.Visitor.fold ; fold_column_position : (Cobol_ptree__.Data_descr.column_position, 'a) Cobol_common.Visitor.fold ; fold_comm_channel : (Cobol_ptree__.Data_descr.comm_channel, 'a) Cobol_common.Visitor.fold ; fold_comm_clause : (Cobol_ptree__.Data_descr.comm_clause, 'a) Cobol_common.Visitor.fold ; fold_comm_clause' : (Cobol_ptree__.Data_descr.comm_clause Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_comm_direction : (Cobol_ptree__.Data_descr.comm_direction, 'a) Cobol_common.Visitor.fold ; fold_cond : 'k. ('k Cobol_ptree__.Terms.cond, 'a) Cobol_common.Visitor.fold ; fold_condition_name_value : (Cobol_ptree__.Data_descr.condition_name_value, 'a) Cobol_common.Visitor.fold ; fold_constant_value : (Cobol_ptree__.Data_descr.constant_value, 'a) Cobol_common.Visitor.fold ; fold_constant_value' : (Cobol_ptree__.Data_descr.constant_value Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_counter : (Cobol_ptree__.Terms.counter, 'a) Cobol_common.Visitor.fold ; fold_counter_kind : (Cobol_ptree__.Terms.counter_kind, 'a) Cobol_common.Visitor.fold ; fold_data_level : (int, 'a) Cobol_common.Visitor.fold ; fold_data_level' : (int Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_data_name : (Cobol_ptree__.Data_descr.data_name, 'a) Cobol_common.Visitor.fold ; fold_data_name' : (Cobol_ptree__.Data_descr.data_name Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_data_occurs_clause : (Cobol_ptree__.Data_descr.data_occurs_clause, 'a) Cobol_common.Visitor.fold ; fold_data_value_clause : (Cobol_ptree__.Data_descr.data_value_clause, 'a) Cobol_common.Visitor.fold ; fold_data_varying : (Cobol_ptree__.Data_descr.data_varying, 'a) Cobol_common.Visitor.fold ; fold_effective_arg : (Cobol_ptree__.Terms.effective_arg, 'a) Cobol_common.Visitor.fold ; fold_encoding_endianness : (Cobol_ptree__.Data_descr.encoding_endianness, 'a) Cobol_common.Visitor.fold ; fold_encoding_mode : (Cobol_ptree__.Data_descr.encoding_mode, 'a) Cobol_common.Visitor.fold ; fold_endianness_mode : (Cobol_ptree__.Data_descr.endianness_mode, 'a) Cobol_common.Visitor.fold ; fold_entry_convention : (Cobol_ptree__.Misc_sections.entry_convention, 'a) Cobol_common.Visitor.fold ; fold_erase_clause : (Cobol_ptree__.Data_descr.erase_clause, 'a) Cobol_common.Visitor.fold ; fold_expr : (Cobol_ptree__.Terms.expression, 'a) Cobol_common.Visitor.fold ; fold_expr' : (Cobol_ptree__.Terms.expression Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_external_clause : ([ Cobol_ptree__.Terms.alnum_ | Cobol_ptree__.Terms.national_ ] Cobol_ptree__.Terms.term option, 'a) Cobol_common.Visitor.fold ; fold_file_block_contents : (Cobol_ptree__.Data_descr.file_block_contents, 'a) Cobol_common.Visitor.fold ; fold_file_linage_clause : (Cobol_ptree__.Data_descr.file_linage_clause, 'a) Cobol_common.Visitor.fold ; fold_fixed : (Cobol_ptree__.Numericals.fixed, 'a) Cobol_common.Visitor.fold ; fold_flat_combined_relation : (Cobol_ptree__.Terms.flat_combined_relation, 'a) Cobol_common.Visitor.fold ; fold_floating : (Cobol_ptree__.Numericals.floating, 'a) Cobol_common.Visitor.fold ; fold_format_clause : (Cobol_ptree__.Data_descr.format_clause, 'a) Cobol_common.Visitor.fold ; fold_group_usage_clause : (Cobol_ptree__.Data_descr.group_usage_clause, 'a) Cobol_common.Visitor.fold ; fold_ident : ([ Cobol_ptree__.Terms.base_ident_ | Cobol_ptree__.Terms.refmod_ident_ ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_informational_paragraph' : ((Cobol_ptree__.Misc_sections.informational_paragraph_header * string list Cobol_common.Srcloc.with_loc) Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_informational_paragraphs : ((Cobol_ptree__.Misc_sections.informational_paragraph_header * string list Cobol_common.Srcloc.with_loc) Cobol_common.Srcloc.with_loc list, 'a) Cobol_common.Visitor.fold ; fold_inline_call : (Cobol_ptree__.Terms.inline_call, 'a) Cobol_common.Visitor.fold ; fold_inline_invocation : (Cobol_ptree__.Terms.inline_invocation, 'a) Cobol_common.Visitor.fold ; fold_int : int -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_int_figurative : ([ `Int ] Cobol_ptree__.Terms.figurative, 'a) Cobol_common.Visitor.fold ; fold_integer : (string, 'a) Cobol_common.Visitor.fold ; fold_integer' : (string Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_intrinsic_name : (Cobol_ptree__.Terms.intrinsic_name, 'a) Cobol_common.Visitor.fold ; fold_intrinsic_name' : (Cobol_ptree__.Terms.intrinsic_name Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_label_clause : (Cobol_ptree__.Data_descr.label_clause, 'a) Cobol_common.Visitor.fold ; fold_length_of : ([ `LengthOf ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_line_position : (Cobol_ptree__.Data_descr.line_position, 'a) Cobol_common.Visitor.fold ; fold_list : 'x. 'x list -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_locale_phrase : (Cobol_ptree__.Data_descr.locale_phrase, 'a) Cobol_common.Visitor.fold ; fold_logop : (Cobol_ptree__.Terms.logop, 'a) Cobol_common.Visitor.fold ; fold_name : (string, 'a) Cobol_common.Visitor.fold ; fold_name' : (string Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_national : (string, 'a) Cobol_common.Visitor.fold ; fold_nel : 'x. 'x Cobol_common.Basics.NEL.t -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_next_group_clause : (Cobol_ptree__.Data_descr.next_group_clause, 'a) Cobol_common.Visitor.fold ; fold_object_ref : (Cobol_ptree__.Terms.object_ref, 'a) Cobol_common.Visitor.fold ; fold_object_reference_kind : (Cobol_ptree__.Data_descr.object_reference_kind, 'a) Cobol_common.Visitor.fold ; fold_object_view : (Cobol_ptree__.Terms.object_view, 'a) Cobol_common.Visitor.fold ; fold_object_view_spec : (Cobol_ptree__.Terms.object_view_spec, 'a) Cobol_common.Visitor.fold ; fold_option : 'x. 'x option -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_options_clause : (Cobol_ptree__.Misc_sections.options_clause, 'a) Cobol_common.Visitor.fold ; fold_options_paragraph : (Cobol_ptree__.Misc_sections.options_clause Cobol_common.Srcloc.with_loc list, 'a) Cobol_common.Visitor.fold ; fold_options_paragraph' : (Cobol_ptree__.Misc_sections.options_clause Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_polarity : (Cobol_ptree__.Data_descr.polarity, 'a) Cobol_common.Visitor.fold ; fold_procedure_name : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_procedure_name' : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_property_clause : (Cobol_ptree__.Data_descr.property_clause, 'a) Cobol_common.Visitor.fold ; fold_property_kind : (Cobol_ptree__.Data_descr.property_kind, 'a) Cobol_common.Visitor.fold ; fold_qualident : (Cobol_ptree__.Terms.qualident, 'a) Cobol_common.Visitor.fold ; fold_qualname : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_qualname' : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_record_clause : (Cobol_ptree__.Data_descr.record_clause, 'a) Cobol_common.Visitor.fold ; fold_recording_mode : (Cobol_ptree__.Data_descr.recording_mode, 'a) Cobol_common.Visitor.fold ; fold_refmod : (Cobol_ptree__.Terms.refmod, 'a) Cobol_common.Visitor.fold ; fold_relop : (Cobol_ptree__.Terms.relop, 'a) Cobol_common.Visitor.fold ; fold_report_clause : (Cobol_ptree__.Data_descr.report_clause, 'a) Cobol_common.Visitor.fold ; fold_report_clause' : (Cobol_ptree__.Data_descr.report_clause Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_report_data_name_or_final : (Cobol_ptree__.Data_descr.report_data_name_or_final, 'a) Cobol_common.Visitor.fold ; fold_report_screen_usage_clause : (Cobol_ptree__.Data_descr.report_screen_usage_clause, 'a) Cobol_common.Visitor.fold ; fold_report_type_clause : (Cobol_ptree__.Data_descr.report_type_clause, 'a) Cobol_common.Visitor.fold ; fold_rounding : (Cobol_ptree__.Terms.rounding, 'a) Cobol_common.Visitor.fold ; fold_rounding_mode : (Cobol_ptree__.Terms.rounding_mode, 'a) Cobol_common.Visitor.fold ; fold_screen_attribute_clause : (Cobol_ptree__.Data_descr.screen_attribute_clause, 'a) Cobol_common.Visitor.fold ; fold_screen_line_column_clause : (Cobol_ptree__.Data_descr.screen_line_column_clause, 'a) Cobol_common.Visitor.fold ; fold_select_when_clause : (Cobol_ptree__.Data_descr.select_when_clause, 'a) Cobol_common.Visitor.fold ; fold_sign : ([ `Strict ] Cobol_ptree__.Terms.sign_cond, 'a) Cobol_common.Visitor.fold ; fold_sign_clause : (Cobol_ptree__.Data_descr.sign_clause, 'a) Cobol_common.Visitor.fold ; fold_signz : ([ `Loose ] Cobol_ptree__.Terms.sign_cond, 'a) Cobol_common.Visitor.fold ; fold_simple_cond : ([ `Simple ] Cobol_ptree__.Terms.cond, 'a) Cobol_common.Visitor.fold ; fold_sort_direction : (Cobol_ptree__.Data_descr.sort_direction, 'a) Cobol_common.Visitor.fold ; fold_sort_spec : (Cobol_ptree__.Data_descr.sort_spec, 'a) Cobol_common.Visitor.fold ; fold_source_destination_clause : (Cobol_ptree__.Data_descr.source_destination_clause, 'a) Cobol_common.Visitor.fold ; fold_string : string -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_subscript : (Cobol_ptree__.Terms.subscript, 'a) Cobol_common.Visitor.fold ; fold_sum_phrase : (Cobol_ptree__.Data_descr.sum_phrase, 'a) Cobol_common.Visitor.fold ; fold_synchronized_clause : (Cobol_ptree__.Data_descr.synchronized_clause, 'a) Cobol_common.Visitor.fold ; fold_table_data_value : (Cobol_ptree__.Data_descr.table_data_value, 'a) Cobol_common.Visitor.fold ; fold_trimming_tip : (Cobol_ptree__.Terms.trimming_tip, 'a) Cobol_common.Visitor.fold ; fold_unop : (Cobol_ptree__.Terms.unop, 'a) Cobol_common.Visitor.fold ; fold_usage_clause : (Cobol_ptree__.Data_descr.usage_clause, 'a) Cobol_common.Visitor.fold ; fold_validation_clause : (Cobol_ptree__.Data_descr.validation_clause, 'a) Cobol_common.Visitor.fold ; fold_valueof_clause : (Cobol_ptree__.Data_descr.valueof_clause, 'a) Cobol_common.Visitor.fold.. > -> Cobol_ptree__.Misc_sections.options_clause -> 'a -> 'a
val fold_options_paragraph : < fold' : 'x. 'x Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_address : (Cobol_ptree__.Terms.address, 'a) Cobol_common.Visitor.fold ; fold_alignment : (Cobol_ptree__.Data_descr.alignment, 'a) Cobol_common.Visitor.fold ; fold_alphanum : (Cobol_ptree__.Terms.alphanum, 'a) Cobol_common.Visitor.fold ; fold_alphanum' : (Cobol_ptree__.Terms.alphanum Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_any_figurative : 'k. ('k Cobol_ptree__.Terms.figurative, 'a) Cobol_common.Visitor.fold ; fold_arithmetic_mode : (Cobol_ptree__.Misc_sections.arithmetic_mode, 'a) Cobol_common.Visitor.fold ; fold_binop : (Cobol_ptree__.Terms.binop, 'a) Cobol_common.Visitor.fold ; fold_blank_clause : (Cobol_ptree__.Data_descr.blank_clause, 'a) Cobol_common.Visitor.fold ; fold_bool : bool -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_boolean : (Cobol_ptree__.Numericals.boolean, 'a) Cobol_common.Visitor.fold ; fold_char : char -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_class : (Cobol_ptree__.Terms.class_, 'a) Cobol_common.Visitor.fold ; fold_class_clause : (Cobol_ptree__.Data_descr.class_clause, 'a) Cobol_common.Visitor.fold ; fold_column_position : (Cobol_ptree__.Data_descr.column_position, 'a) Cobol_common.Visitor.fold ; fold_comm_channel : (Cobol_ptree__.Data_descr.comm_channel, 'a) Cobol_common.Visitor.fold ; fold_comm_clause : (Cobol_ptree__.Data_descr.comm_clause, 'a) Cobol_common.Visitor.fold ; fold_comm_clause' : (Cobol_ptree__.Data_descr.comm_clause Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_comm_direction : (Cobol_ptree__.Data_descr.comm_direction, 'a) Cobol_common.Visitor.fold ; fold_cond : 'k. ('k Cobol_ptree__.Terms.cond, 'a) Cobol_common.Visitor.fold ; fold_condition_name_value : (Cobol_ptree__.Data_descr.condition_name_value, 'a) Cobol_common.Visitor.fold ; fold_constant_value : (Cobol_ptree__.Data_descr.constant_value, 'a) Cobol_common.Visitor.fold ; fold_constant_value' : (Cobol_ptree__.Data_descr.constant_value Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_counter : (Cobol_ptree__.Terms.counter, 'a) Cobol_common.Visitor.fold ; fold_counter_kind : (Cobol_ptree__.Terms.counter_kind, 'a) Cobol_common.Visitor.fold ; fold_data_level : (int, 'a) Cobol_common.Visitor.fold ; fold_data_level' : (int Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_data_name : (Cobol_ptree__.Data_descr.data_name, 'a) Cobol_common.Visitor.fold ; fold_data_name' : (Cobol_ptree__.Data_descr.data_name Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_data_occurs_clause : (Cobol_ptree__.Data_descr.data_occurs_clause, 'a) Cobol_common.Visitor.fold ; fold_data_value_clause : (Cobol_ptree__.Data_descr.data_value_clause, 'a) Cobol_common.Visitor.fold ; fold_data_varying : (Cobol_ptree__.Data_descr.data_varying, 'a) Cobol_common.Visitor.fold ; fold_effective_arg : (Cobol_ptree__.Terms.effective_arg, 'a) Cobol_common.Visitor.fold ; fold_encoding_endianness : (Cobol_ptree__.Data_descr.encoding_endianness, 'a) Cobol_common.Visitor.fold ; fold_encoding_mode : (Cobol_ptree__.Data_descr.encoding_mode, 'a) Cobol_common.Visitor.fold ; fold_endianness_mode : (Cobol_ptree__.Data_descr.endianness_mode, 'a) Cobol_common.Visitor.fold ; fold_entry_convention : (Cobol_ptree__.Misc_sections.entry_convention, 'a) Cobol_common.Visitor.fold ; fold_erase_clause : (Cobol_ptree__.Data_descr.erase_clause, 'a) Cobol_common.Visitor.fold ; fold_expr : (Cobol_ptree__.Terms.expression, 'a) Cobol_common.Visitor.fold ; fold_expr' : (Cobol_ptree__.Terms.expression Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_external_clause : ([ Cobol_ptree__.Terms.alnum_ | Cobol_ptree__.Terms.national_ ] Cobol_ptree__.Terms.term option, 'a) Cobol_common.Visitor.fold ; fold_file_block_contents : (Cobol_ptree__.Data_descr.file_block_contents, 'a) Cobol_common.Visitor.fold ; fold_file_linage_clause : (Cobol_ptree__.Data_descr.file_linage_clause, 'a) Cobol_common.Visitor.fold ; fold_fixed : (Cobol_ptree__.Numericals.fixed, 'a) Cobol_common.Visitor.fold ; fold_flat_combined_relation : (Cobol_ptree__.Terms.flat_combined_relation, 'a) Cobol_common.Visitor.fold ; fold_floating : (Cobol_ptree__.Numericals.floating, 'a) Cobol_common.Visitor.fold ; fold_format_clause : (Cobol_ptree__.Data_descr.format_clause, 'a) Cobol_common.Visitor.fold ; fold_group_usage_clause : (Cobol_ptree__.Data_descr.group_usage_clause, 'a) Cobol_common.Visitor.fold ; fold_ident : ([ Cobol_ptree__.Terms.base_ident_ | Cobol_ptree__.Terms.refmod_ident_ ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_informational_paragraph' : ((Cobol_ptree__.Misc_sections.informational_paragraph_header * string list Cobol_common.Srcloc.with_loc) Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_informational_paragraphs : ((Cobol_ptree__.Misc_sections.informational_paragraph_header * string list Cobol_common.Srcloc.with_loc) Cobol_common.Srcloc.with_loc list, 'a) Cobol_common.Visitor.fold ; fold_inline_call : (Cobol_ptree__.Terms.inline_call, 'a) Cobol_common.Visitor.fold ; fold_inline_invocation : (Cobol_ptree__.Terms.inline_invocation, 'a) Cobol_common.Visitor.fold ; fold_int : int -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_int_figurative : ([ `Int ] Cobol_ptree__.Terms.figurative, 'a) Cobol_common.Visitor.fold ; fold_integer : (string, 'a) Cobol_common.Visitor.fold ; fold_integer' : (string Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_intrinsic_name : (Cobol_ptree__.Terms.intrinsic_name, 'a) Cobol_common.Visitor.fold ; fold_intrinsic_name' : (Cobol_ptree__.Terms.intrinsic_name Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_label_clause : (Cobol_ptree__.Data_descr.label_clause, 'a) Cobol_common.Visitor.fold ; fold_length_of : ([ `LengthOf ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_line_position : (Cobol_ptree__.Data_descr.line_position, 'a) Cobol_common.Visitor.fold ; fold_list : 'x. 'x list -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_locale_phrase : (Cobol_ptree__.Data_descr.locale_phrase, 'a) Cobol_common.Visitor.fold ; fold_logop : (Cobol_ptree__.Terms.logop, 'a) Cobol_common.Visitor.fold ; fold_name : (string, 'a) Cobol_common.Visitor.fold ; fold_name' : (string Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_national : (string, 'a) Cobol_common.Visitor.fold ; fold_nel : 'x. 'x Cobol_common.Basics.NEL.t -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_next_group_clause : (Cobol_ptree__.Data_descr.next_group_clause, 'a) Cobol_common.Visitor.fold ; fold_object_ref : (Cobol_ptree__.Terms.object_ref, 'a) Cobol_common.Visitor.fold ; fold_object_reference_kind : (Cobol_ptree__.Data_descr.object_reference_kind, 'a) Cobol_common.Visitor.fold ; fold_object_view : (Cobol_ptree__.Terms.object_view, 'a) Cobol_common.Visitor.fold ; fold_object_view_spec : (Cobol_ptree__.Terms.object_view_spec, 'a) Cobol_common.Visitor.fold ; fold_option : 'x. 'x option -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_options_clause : (Cobol_ptree__.Misc_sections.options_clause, 'a) Cobol_common.Visitor.fold ; fold_options_paragraph : (Cobol_ptree__.Misc_sections.options_clause Cobol_common.Srcloc.with_loc list, 'a) Cobol_common.Visitor.fold ; fold_options_paragraph' : (Cobol_ptree__.Misc_sections.options_clause Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_polarity : (Cobol_ptree__.Data_descr.polarity, 'a) Cobol_common.Visitor.fold ; fold_procedure_name : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_procedure_name' : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_property_clause : (Cobol_ptree__.Data_descr.property_clause, 'a) Cobol_common.Visitor.fold ; fold_property_kind : (Cobol_ptree__.Data_descr.property_kind, 'a) Cobol_common.Visitor.fold ; fold_qualident : (Cobol_ptree__.Terms.qualident, 'a) Cobol_common.Visitor.fold ; fold_qualname : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_qualname' : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_record_clause : (Cobol_ptree__.Data_descr.record_clause, 'a) Cobol_common.Visitor.fold ; fold_recording_mode : (Cobol_ptree__.Data_descr.recording_mode, 'a) Cobol_common.Visitor.fold ; fold_refmod : (Cobol_ptree__.Terms.refmod, 'a) Cobol_common.Visitor.fold ; fold_relop : (Cobol_ptree__.Terms.relop, 'a) Cobol_common.Visitor.fold ; fold_report_clause : (Cobol_ptree__.Data_descr.report_clause, 'a) Cobol_common.Visitor.fold ; fold_report_clause' : (Cobol_ptree__.Data_descr.report_clause Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_report_data_name_or_final : (Cobol_ptree__.Data_descr.report_data_name_or_final, 'a) Cobol_common.Visitor.fold ; fold_report_screen_usage_clause : (Cobol_ptree__.Data_descr.report_screen_usage_clause, 'a) Cobol_common.Visitor.fold ; fold_report_type_clause : (Cobol_ptree__.Data_descr.report_type_clause, 'a) Cobol_common.Visitor.fold ; fold_rounding : (Cobol_ptree__.Terms.rounding, 'a) Cobol_common.Visitor.fold ; fold_rounding_mode : (Cobol_ptree__.Terms.rounding_mode, 'a) Cobol_common.Visitor.fold ; fold_screen_attribute_clause : (Cobol_ptree__.Data_descr.screen_attribute_clause, 'a) Cobol_common.Visitor.fold ; fold_screen_line_column_clause : (Cobol_ptree__.Data_descr.screen_line_column_clause, 'a) Cobol_common.Visitor.fold ; fold_select_when_clause : (Cobol_ptree__.Data_descr.select_when_clause, 'a) Cobol_common.Visitor.fold ; fold_sign : ([ `Strict ] Cobol_ptree__.Terms.sign_cond, 'a) Cobol_common.Visitor.fold ; fold_sign_clause : (Cobol_ptree__.Data_descr.sign_clause, 'a) Cobol_common.Visitor.fold ; fold_signz : ([ `Loose ] Cobol_ptree__.Terms.sign_cond, 'a) Cobol_common.Visitor.fold ; fold_simple_cond : ([ `Simple ] Cobol_ptree__.Terms.cond, 'a) Cobol_common.Visitor.fold ; fold_sort_direction : (Cobol_ptree__.Data_descr.sort_direction, 'a) Cobol_common.Visitor.fold ; fold_sort_spec : (Cobol_ptree__.Data_descr.sort_spec, 'a) Cobol_common.Visitor.fold ; fold_source_destination_clause : (Cobol_ptree__.Data_descr.source_destination_clause, 'a) Cobol_common.Visitor.fold ; fold_string : string -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_subscript : (Cobol_ptree__.Terms.subscript, 'a) Cobol_common.Visitor.fold ; fold_sum_phrase : (Cobol_ptree__.Data_descr.sum_phrase, 'a) Cobol_common.Visitor.fold ; fold_synchronized_clause : (Cobol_ptree__.Data_descr.synchronized_clause, 'a) Cobol_common.Visitor.fold ; fold_table_data_value : (Cobol_ptree__.Data_descr.table_data_value, 'a) Cobol_common.Visitor.fold ; fold_trimming_tip : (Cobol_ptree__.Terms.trimming_tip, 'a) Cobol_common.Visitor.fold ; fold_unop : (Cobol_ptree__.Terms.unop, 'a) Cobol_common.Visitor.fold ; fold_usage_clause : (Cobol_ptree__.Data_descr.usage_clause, 'a) Cobol_common.Visitor.fold ; fold_validation_clause : (Cobol_ptree__.Data_descr.validation_clause, 'a) Cobol_common.Visitor.fold ; fold_valueof_clause : (Cobol_ptree__.Data_descr.valueof_clause, 'a) Cobol_common.Visitor.fold.. > -> Cobol_ptree__.Misc_sections.options_clause Cobol_common.Srcloc.with_loc list -> 'a -> 'a
val fold_options_paragraph' : < fold' : 'x. 'x Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_address : (Cobol_ptree__.Terms.address, 'a) Cobol_common.Visitor.fold ; fold_alignment : (Cobol_ptree__.Data_descr.alignment, 'a) Cobol_common.Visitor.fold ; fold_alphanum : (Cobol_ptree__.Terms.alphanum, 'a) Cobol_common.Visitor.fold ; fold_alphanum' : (Cobol_ptree__.Terms.alphanum Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_any_figurative : 'k. ('k Cobol_ptree__.Terms.figurative, 'a) Cobol_common.Visitor.fold ; fold_arithmetic_mode : (Cobol_ptree__.Misc_sections.arithmetic_mode, 'a) Cobol_common.Visitor.fold ; fold_binop : (Cobol_ptree__.Terms.binop, 'a) Cobol_common.Visitor.fold ; fold_blank_clause : (Cobol_ptree__.Data_descr.blank_clause, 'a) Cobol_common.Visitor.fold ; fold_bool : bool -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_boolean : (Cobol_ptree__.Numericals.boolean, 'a) Cobol_common.Visitor.fold ; fold_char : char -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_class : (Cobol_ptree__.Terms.class_, 'a) Cobol_common.Visitor.fold ; fold_class_clause : (Cobol_ptree__.Data_descr.class_clause, 'a) Cobol_common.Visitor.fold ; fold_column_position : (Cobol_ptree__.Data_descr.column_position, 'a) Cobol_common.Visitor.fold ; fold_comm_channel : (Cobol_ptree__.Data_descr.comm_channel, 'a) Cobol_common.Visitor.fold ; fold_comm_clause : (Cobol_ptree__.Data_descr.comm_clause, 'a) Cobol_common.Visitor.fold ; fold_comm_clause' : (Cobol_ptree__.Data_descr.comm_clause Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_comm_direction : (Cobol_ptree__.Data_descr.comm_direction, 'a) Cobol_common.Visitor.fold ; fold_cond : 'k. ('k Cobol_ptree__.Terms.cond, 'a) Cobol_common.Visitor.fold ; fold_condition_name_value : (Cobol_ptree__.Data_descr.condition_name_value, 'a) Cobol_common.Visitor.fold ; fold_constant_value : (Cobol_ptree__.Data_descr.constant_value, 'a) Cobol_common.Visitor.fold ; fold_constant_value' : (Cobol_ptree__.Data_descr.constant_value Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_counter : (Cobol_ptree__.Terms.counter, 'a) Cobol_common.Visitor.fold ; fold_counter_kind : (Cobol_ptree__.Terms.counter_kind, 'a) Cobol_common.Visitor.fold ; fold_data_level : (int, 'a) Cobol_common.Visitor.fold ; fold_data_level' : (int Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_data_name : (Cobol_ptree__.Data_descr.data_name, 'a) Cobol_common.Visitor.fold ; fold_data_name' : (Cobol_ptree__.Data_descr.data_name Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_data_occurs_clause : (Cobol_ptree__.Data_descr.data_occurs_clause, 'a) Cobol_common.Visitor.fold ; fold_data_value_clause : (Cobol_ptree__.Data_descr.data_value_clause, 'a) Cobol_common.Visitor.fold ; fold_data_varying : (Cobol_ptree__.Data_descr.data_varying, 'a) Cobol_common.Visitor.fold ; fold_effective_arg : (Cobol_ptree__.Terms.effective_arg, 'a) Cobol_common.Visitor.fold ; fold_encoding_endianness : (Cobol_ptree__.Data_descr.encoding_endianness, 'a) Cobol_common.Visitor.fold ; fold_encoding_mode : (Cobol_ptree__.Data_descr.encoding_mode, 'a) Cobol_common.Visitor.fold ; fold_endianness_mode : (Cobol_ptree__.Data_descr.endianness_mode, 'a) Cobol_common.Visitor.fold ; fold_entry_convention : (Cobol_ptree__.Misc_sections.entry_convention, 'a) Cobol_common.Visitor.fold ; fold_erase_clause : (Cobol_ptree__.Data_descr.erase_clause, 'a) Cobol_common.Visitor.fold ; fold_expr : (Cobol_ptree__.Terms.expression, 'a) Cobol_common.Visitor.fold ; fold_expr' : (Cobol_ptree__.Terms.expression Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_external_clause : ([ Cobol_ptree__.Terms.alnum_ | Cobol_ptree__.Terms.national_ ] Cobol_ptree__.Terms.term option, 'a) Cobol_common.Visitor.fold ; fold_file_block_contents : (Cobol_ptree__.Data_descr.file_block_contents, 'a) Cobol_common.Visitor.fold ; fold_file_linage_clause : (Cobol_ptree__.Data_descr.file_linage_clause, 'a) Cobol_common.Visitor.fold ; fold_fixed : (Cobol_ptree__.Numericals.fixed, 'a) Cobol_common.Visitor.fold ; fold_flat_combined_relation : (Cobol_ptree__.Terms.flat_combined_relation, 'a) Cobol_common.Visitor.fold ; fold_floating : (Cobol_ptree__.Numericals.floating, 'a) Cobol_common.Visitor.fold ; fold_format_clause : (Cobol_ptree__.Data_descr.format_clause, 'a) Cobol_common.Visitor.fold ; fold_group_usage_clause : (Cobol_ptree__.Data_descr.group_usage_clause, 'a) Cobol_common.Visitor.fold ; fold_ident : ([ Cobol_ptree__.Terms.base_ident_ | Cobol_ptree__.Terms.refmod_ident_ ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_informational_paragraph' : ((Cobol_ptree__.Misc_sections.informational_paragraph_header * string list Cobol_common.Srcloc.with_loc) Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_informational_paragraphs : ((Cobol_ptree__.Misc_sections.informational_paragraph_header * string list Cobol_common.Srcloc.with_loc) Cobol_common.Srcloc.with_loc list, 'a) Cobol_common.Visitor.fold ; fold_inline_call : (Cobol_ptree__.Terms.inline_call, 'a) Cobol_common.Visitor.fold ; fold_inline_invocation : (Cobol_ptree__.Terms.inline_invocation, 'a) Cobol_common.Visitor.fold ; fold_int : int -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_int_figurative : ([ `Int ] Cobol_ptree__.Terms.figurative, 'a) Cobol_common.Visitor.fold ; fold_integer : (string, 'a) Cobol_common.Visitor.fold ; fold_integer' : (string Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_intrinsic_name : (Cobol_ptree__.Terms.intrinsic_name, 'a) Cobol_common.Visitor.fold ; fold_intrinsic_name' : (Cobol_ptree__.Terms.intrinsic_name Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_label_clause : (Cobol_ptree__.Data_descr.label_clause, 'a) Cobol_common.Visitor.fold ; fold_length_of : ([ `LengthOf ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_line_position : (Cobol_ptree__.Data_descr.line_position, 'a) Cobol_common.Visitor.fold ; fold_list : 'x. 'x list -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_locale_phrase : (Cobol_ptree__.Data_descr.locale_phrase, 'a) Cobol_common.Visitor.fold ; fold_logop : (Cobol_ptree__.Terms.logop, 'a) Cobol_common.Visitor.fold ; fold_name : (string, 'a) Cobol_common.Visitor.fold ; fold_name' : (string Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_national : (string, 'a) Cobol_common.Visitor.fold ; fold_nel : 'x. 'x Cobol_common.Basics.NEL.t -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_next_group_clause : (Cobol_ptree__.Data_descr.next_group_clause, 'a) Cobol_common.Visitor.fold ; fold_object_ref : (Cobol_ptree__.Terms.object_ref, 'a) Cobol_common.Visitor.fold ; fold_object_reference_kind : (Cobol_ptree__.Data_descr.object_reference_kind, 'a) Cobol_common.Visitor.fold ; fold_object_view : (Cobol_ptree__.Terms.object_view, 'a) Cobol_common.Visitor.fold ; fold_object_view_spec : (Cobol_ptree__.Terms.object_view_spec, 'a) Cobol_common.Visitor.fold ; fold_option : 'x. 'x option -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_options_clause : (Cobol_ptree__.Misc_sections.options_clause, 'a) Cobol_common.Visitor.fold ; fold_options_paragraph : (Cobol_ptree__.Misc_sections.options_clause Cobol_common.Srcloc.with_loc list, 'a) Cobol_common.Visitor.fold ; fold_options_paragraph' : (Cobol_ptree__.Misc_sections.options_clause Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_polarity : (Cobol_ptree__.Data_descr.polarity, 'a) Cobol_common.Visitor.fold ; fold_procedure_name : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_procedure_name' : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_property_clause : (Cobol_ptree__.Data_descr.property_clause, 'a) Cobol_common.Visitor.fold ; fold_property_kind : (Cobol_ptree__.Data_descr.property_kind, 'a) Cobol_common.Visitor.fold ; fold_qualident : (Cobol_ptree__.Terms.qualident, 'a) Cobol_common.Visitor.fold ; fold_qualname : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_qualname' : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_record_clause : (Cobol_ptree__.Data_descr.record_clause, 'a) Cobol_common.Visitor.fold ; fold_recording_mode : (Cobol_ptree__.Data_descr.recording_mode, 'a) Cobol_common.Visitor.fold ; fold_refmod : (Cobol_ptree__.Terms.refmod, 'a) Cobol_common.Visitor.fold ; fold_relop : (Cobol_ptree__.Terms.relop, 'a) Cobol_common.Visitor.fold ; fold_report_clause : (Cobol_ptree__.Data_descr.report_clause, 'a) Cobol_common.Visitor.fold ; fold_report_clause' : (Cobol_ptree__.Data_descr.report_clause Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_report_data_name_or_final : (Cobol_ptree__.Data_descr.report_data_name_or_final, 'a) Cobol_common.Visitor.fold ; fold_report_screen_usage_clause : (Cobol_ptree__.Data_descr.report_screen_usage_clause, 'a) Cobol_common.Visitor.fold ; fold_report_type_clause : (Cobol_ptree__.Data_descr.report_type_clause, 'a) Cobol_common.Visitor.fold ; fold_rounding : (Cobol_ptree__.Terms.rounding, 'a) Cobol_common.Visitor.fold ; fold_rounding_mode : (Cobol_ptree__.Terms.rounding_mode, 'a) Cobol_common.Visitor.fold ; fold_screen_attribute_clause : (Cobol_ptree__.Data_descr.screen_attribute_clause, 'a) Cobol_common.Visitor.fold ; fold_screen_line_column_clause : (Cobol_ptree__.Data_descr.screen_line_column_clause, 'a) Cobol_common.Visitor.fold ; fold_select_when_clause : (Cobol_ptree__.Data_descr.select_when_clause, 'a) Cobol_common.Visitor.fold ; fold_sign : ([ `Strict ] Cobol_ptree__.Terms.sign_cond, 'a) Cobol_common.Visitor.fold ; fold_sign_clause : (Cobol_ptree__.Data_descr.sign_clause, 'a) Cobol_common.Visitor.fold ; fold_signz : ([ `Loose ] Cobol_ptree__.Terms.sign_cond, 'a) Cobol_common.Visitor.fold ; fold_simple_cond : ([ `Simple ] Cobol_ptree__.Terms.cond, 'a) Cobol_common.Visitor.fold ; fold_sort_direction : (Cobol_ptree__.Data_descr.sort_direction, 'a) Cobol_common.Visitor.fold ; fold_sort_spec : (Cobol_ptree__.Data_descr.sort_spec, 'a) Cobol_common.Visitor.fold ; fold_source_destination_clause : (Cobol_ptree__.Data_descr.source_destination_clause, 'a) Cobol_common.Visitor.fold ; fold_string : string -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_subscript : (Cobol_ptree__.Terms.subscript, 'a) Cobol_common.Visitor.fold ; fold_sum_phrase : (Cobol_ptree__.Data_descr.sum_phrase, 'a) Cobol_common.Visitor.fold ; fold_synchronized_clause : (Cobol_ptree__.Data_descr.synchronized_clause, 'a) Cobol_common.Visitor.fold ; fold_table_data_value : (Cobol_ptree__.Data_descr.table_data_value, 'a) Cobol_common.Visitor.fold ; fold_trimming_tip : (Cobol_ptree__.Terms.trimming_tip, 'a) Cobol_common.Visitor.fold ; fold_unop : (Cobol_ptree__.Terms.unop, 'a) Cobol_common.Visitor.fold ; fold_usage_clause : (Cobol_ptree__.Data_descr.usage_clause, 'a) Cobol_common.Visitor.fold ; fold_validation_clause : (Cobol_ptree__.Data_descr.validation_clause, 'a) Cobol_common.Visitor.fold ; fold_valueof_clause : (Cobol_ptree__.Data_descr.valueof_clause, 'a) Cobol_common.Visitor.fold.. > -> Cobol_ptree__.Misc_sections.options_clause Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
class virtual 'a {folder}4 : object ... end
val fold_access_mode : 'a {folder}4 -> Cobol_ptree__.Env_division.access_mode -> 'a -> 'a
val fold_range_items : 'a {folder}4 -> Cobol_ptree__.Env_division.range_items -> 'a -> 'a
val fold_character_category : 'a {folder}4 -> Cobol_ptree__.Env_division.character_category -> 'a -> 'a
val fold_character_range : 'a {folder}4 -> Cobol_ptree__.Env_division.character_range -> 'a -> 'a
val fold_characters_range : 'a {folder}4 -> Cobol_ptree__.Env_division.characters_range -> 'a -> 'a
val fold_character_set : 'a {folder}4 -> Cobol_ptree__.Env_division.character_set -> 'a -> 'a
val fold_rerun_frequency : 'a {folder}4 -> Cobol_ptree__.Env_division.rerun_frequency -> 'a -> 'a
val fold_area_source : 'a {folder}4 -> Cobol_ptree__.Env_division.area_source -> 'a -> 'a
val fold_file_portion : 'a {folder}4 -> Cobol_ptree__.Env_division.file_portion -> 'a -> 'a
val fold_dyn_len_struct_kind : 'a {folder}4 -> Cobol_ptree__.Env_division.dyn_len_struct_kind -> 'a -> 'a
val fold_expands : 'a {folder}4 -> Cobol_ptree__.Env_division.expands -> 'a -> 'a
val fold_locale : 'a {folder}4 -> Cobol_ptree__.Env_division.locale -> 'a -> 'a
val fold_lock_mode : 'a {folder}4 -> Cobol_ptree__.Env_division.lock_mode -> 'a -> 'a
val fold_memory_size_unit : 'a {folder}4 -> Cobol_ptree__.Env_division.memory_size_unit -> 'a -> 'a
val fold_organization : 'a {folder}4 -> Cobol_ptree__.Env_division.organization -> 'a -> 'a
val fold_record_delimiter : 'a {folder}4 -> Cobol_ptree__.Env_division.record_delimiter -> 'a -> 'a
val fold_source_computer : 'a {folder}4 -> Cobol_ptree__.Env_division.source_computer -> 'a -> 'a
val fold_specifier : 'a {folder}4 -> Cobol_ptree__.Env_division.specifier -> 'a -> 'a
val fold_status_switch : 'a {folder}4 -> Cobol_ptree__.Env_division.status_switch -> 'a -> 'a
val fold_symbolic_characters_map : 'a {folder}4 -> (string Cobol_common.Srcloc.with_loc list * string list) -> 'a -> 'a
val fold_with_lock : 'a {folder}4 -> Cobol_ptree__.Env_division.with_lock -> 'a -> 'a
val fold_rerun_clause : 'a {folder}4 -> Cobol_ptree__.Env_division.rerun_clause -> 'a -> 'a
val fold_same_area_clause : 'a {folder}4 -> Cobol_ptree__.Env_division.same_area_clause -> 'a -> 'a
val fold_multiple_file_clause : 'a {folder}4 -> Cobol_ptree__.Env_division.file_portion list -> 'a -> 'a
val fold_io_control_entry : 'a {folder}4 -> Cobol_ptree__.Env_division.io_control_entry -> 'a -> 'a
val fold_object_computer_clause : 'a {folder}4 -> Cobol_ptree__.Env_division.object_computer_clause -> 'a -> 'a
val fold_object_computer : 'a {folder}4 -> Cobol_ptree__.Env_division.object_computer -> 'a -> 'a
val fold_special_names_clause : 'a {folder}4 -> Cobol_ptree__.Env_division.special_names_clause -> 'a -> 'a
val fold_special_names_clause' : 'a {folder}4 -> Cobol_ptree__.Env_division.special_names_clause Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_select_clause : 'a {folder}4 -> Cobol_ptree__.Env_division.select_clause -> 'a -> 'a
val fold_select : 'a {folder}4 -> Cobol_ptree__.Env_division.select -> 'a -> 'a
val fold_file_control_paragraph : 'a {folder}4 -> Cobol_ptree__.Env_division.select list -> 'a -> 'a
val fold_file_control_paragraph' : 'a {folder}4 -> Cobol_ptree__.Env_division.select list Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_io_control_paragraph : 'a {folder}4 -> Cobol_ptree__.Env_division.io_control_entry option -> 'a -> 'a
val fold_io_control_paragraph' : 'a {folder}4 -> Cobol_ptree__.Env_division.io_control_entry option Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_input_output_section : 'a {folder}4 -> Cobol_ptree__.Env_division.input_output_section -> 'a -> 'a
val fold_input_output_section' : 'a {folder}4 -> Cobol_ptree__.Env_division.input_output_section Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_informational_paragraph' : < fold' : 'x. 'x Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_access_mode : (Cobol_ptree__.Env_division.access_mode, 'a) Cobol_common.Visitor.fold ; fold_address : (Cobol_ptree__.Terms.address, 'a) Cobol_common.Visitor.fold ; fold_advancing_phrase : (Cobol_ptree__.Operands.advancing_phrase, 'a) Cobol_common.Visitor.fold ; fold_alphabet_specification : (Cobol_ptree__.Operands.alphabet_specification, 'a) Cobol_common.Visitor.fold ; fold_alphanum : (Cobol_ptree__.Terms.alphanum, 'a) Cobol_common.Visitor.fold ; fold_alphanum' : (Cobol_ptree__.Terms.alphanum Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_any_figurative : 'k. ('k Cobol_ptree__.Terms.figurative, 'a) Cobol_common.Visitor.fold ; fold_area_source : (Cobol_ptree__.Env_division.area_source, 'a) Cobol_common.Visitor.fold ; fold_basic_arithmetic_operands : (Cobol_ptree__.Operands.basic_arithmetic_operands, 'a) Cobol_common.Visitor.fold ; fold_binop : (Cobol_ptree__.Terms.binop, 'a) Cobol_common.Visitor.fold ; fold_bool : bool -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_boolean : (Cobol_ptree__.Numericals.boolean, 'a) Cobol_common.Visitor.fold ; fold_call_using_by : (Cobol_ptree__.Operands.call_using_by, 'a) Cobol_common.Visitor.fold ; fold_call_using_clause : (Cobol_ptree__.Operands.call_using_clause, 'a) Cobol_common.Visitor.fold ; fold_call_using_clause' : (Cobol_ptree__.Operands.call_using_clause Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_char : char -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_character_category : (Cobol_ptree__.Env_division.character_category, 'a) Cobol_common.Visitor.fold ; fold_character_range : (Cobol_ptree__.Env_division.character_range, 'a) Cobol_common.Visitor.fold ; fold_character_set : (Cobol_ptree__.Env_division.character_set, 'a) Cobol_common.Visitor.fold ; fold_characters_range : (Cobol_ptree__.Env_division.characters_range, 'a) Cobol_common.Visitor.fold ; fold_class : (Cobol_ptree__.Terms.class_, 'a) Cobol_common.Visitor.fold ; fold_cond : 'k. ('k Cobol_ptree__.Terms.cond, 'a) Cobol_common.Visitor.fold ; fold_configuration_section : (Cobol_ptree__.Env_division.configuration_section, 'a) Cobol_common.Visitor.fold ; fold_configuration_section' : (Cobol_ptree__.Env_division.configuration_section Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_counter : (Cobol_ptree__.Terms.counter, 'a) Cobol_common.Visitor.fold ; fold_counter_kind : (Cobol_ptree__.Terms.counter_kind, 'a) Cobol_common.Visitor.fold ; fold_date_time : (Cobol_ptree__.Operands.date_time, 'a) Cobol_common.Visitor.fold ; fold_divide_operands : (Cobol_ptree__.Operands.divide_operands, 'a) Cobol_common.Visitor.fold ; fold_dyn_len_struct_kind : (Cobol_ptree__.Env_division.dyn_len_struct_kind, 'a) Cobol_common.Visitor.fold ; fold_effective_arg : (Cobol_ptree__.Terms.effective_arg, 'a) Cobol_common.Visitor.fold ; fold_environment_division : (Cobol_ptree__.Env_division.environment_division, 'a) Cobol_common.Visitor.fold ; fold_environment_division' : (Cobol_ptree__.Env_division.environment_division Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_expands : (Cobol_ptree__.Env_division.expands, 'a) Cobol_common.Visitor.fold ; fold_expr : (Cobol_ptree__.Terms.expression, 'a) Cobol_common.Visitor.fold ; fold_expr' : (Cobol_ptree__.Terms.expression Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_file_control_paragraph : (Cobol_ptree__.Env_division.select list, 'a) Cobol_common.Visitor.fold ; fold_file_control_paragraph' : (Cobol_ptree__.Env_division.select list Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_file_option : (Cobol_ptree__.Operands.file_option, 'a) Cobol_common.Visitor.fold ; fold_file_portion : (Cobol_ptree__.Env_division.file_portion, 'a) Cobol_common.Visitor.fold ; fold_fixed : (Cobol_ptree__.Numericals.fixed, 'a) Cobol_common.Visitor.fold ; fold_flat_combined_relation : (Cobol_ptree__.Terms.flat_combined_relation, 'a) Cobol_common.Visitor.fold ; fold_float_content : (Cobol_ptree__.Operands.float_content, 'a) Cobol_common.Visitor.fold ; fold_floating : (Cobol_ptree__.Numericals.floating, 'a) Cobol_common.Visitor.fold ; fold_ident : ([ Cobol_ptree__.Terms.base_ident_ | Cobol_ptree__.Terms.refmod_ident_ ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_informational_paragraph' : 'b Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a Cobol_common.Visitor.action ; fold_inline_call : (Cobol_ptree__.Terms.inline_call, 'a) Cobol_common.Visitor.fold ; fold_inline_invocation : (Cobol_ptree__.Terms.inline_invocation, 'a) Cobol_common.Visitor.fold ; fold_input_output_section : (Cobol_ptree__.Env_division.input_output_section, 'a) Cobol_common.Visitor.fold ; fold_input_output_section' : (Cobol_ptree__.Env_division.input_output_section Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_int : int -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_int_figurative : ([ `Int ] Cobol_ptree__.Terms.figurative, 'a) Cobol_common.Visitor.fold ; fold_integer : (string, 'a) Cobol_common.Visitor.fold ; fold_integer' : (string Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_intrinsic_name : (Cobol_ptree__.Terms.intrinsic_name, 'a) Cobol_common.Visitor.fold ; fold_intrinsic_name' : (Cobol_ptree__.Terms.intrinsic_name Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_io_control_entry : (Cobol_ptree__.Env_division.io_control_entry, 'a) Cobol_common.Visitor.fold ; fold_io_control_paragraph : (Cobol_ptree__.Env_division.io_control_entry option, 'a) Cobol_common.Visitor.fold ; fold_io_control_paragraph' : (Cobol_ptree__.Env_division.io_control_entry option Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_length_of : ([ `LengthOf ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_list : 'x. 'x list -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_locale : (Cobol_ptree__.Env_division.locale, 'a) Cobol_common.Visitor.fold ; fold_locale_category : (Cobol_ptree__.Operands.locale_category, 'a) Cobol_common.Visitor.fold ; fold_lock_mode : (Cobol_ptree__.Env_division.lock_mode, 'a) Cobol_common.Visitor.fold ; fold_logop : (Cobol_ptree__.Terms.logop, 'a) Cobol_common.Visitor.fold ; fold_mcs_awaiting_item : (Cobol_ptree__.Operands.mcs_awaiting_item, 'a) Cobol_common.Visitor.fold ; fold_mcs_command_operands : (Cobol_ptree__.Operands.mcs_command_operands, 'a) Cobol_common.Visitor.fold ; fold_mcs_kind : (Cobol_ptree__.Operands.mcs_kind, 'a) Cobol_common.Visitor.fold ; fold_memory_size_unit : (Cobol_ptree__.Env_division.memory_size_unit, 'a) Cobol_common.Visitor.fold ; fold_multiple_file_clause : (Cobol_ptree__.Env_division.file_portion list, 'a) Cobol_common.Visitor.fold ; fold_multiply_operands : (Cobol_ptree__.Operands.multiply_operands, 'a) Cobol_common.Visitor.fold ; fold_name : (string, 'a) Cobol_common.Visitor.fold ; fold_name' : (string Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_national : (string, 'a) Cobol_common.Visitor.fold ; fold_nel : 'x. 'x Cobol_common.Basics.NEL.t -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_object_computer : (Cobol_ptree__.Env_division.object_computer, 'a) Cobol_common.Visitor.fold ; fold_object_computer_clause : (Cobol_ptree__.Env_division.object_computer_clause, 'a) Cobol_common.Visitor.fold ; fold_object_computer_paragraph : (Cobol_ptree__.Env_division.object_computer option, 'a) Cobol_common.Visitor.fold ; fold_object_computer_paragraph' : (Cobol_ptree__.Env_division.object_computer option Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_object_ref : (Cobol_ptree__.Terms.object_ref, 'a) Cobol_common.Visitor.fold ; fold_object_view : (Cobol_ptree__.Terms.object_view, 'a) Cobol_common.Visitor.fold ; fold_object_view_spec : (Cobol_ptree__.Terms.object_view_spec, 'a) Cobol_common.Visitor.fold ; fold_on_off : (Cobol_ptree__.Operands.on_off, 'a) Cobol_common.Visitor.fold ; fold_open_mode : (Cobol_ptree__.Operands.open_mode, 'a) Cobol_common.Visitor.fold ; fold_option : 'x. 'x option -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_organization : (Cobol_ptree__.Env_division.organization, 'a) Cobol_common.Visitor.fold ; fold_position : (Cobol_ptree__.Operands.position, 'a) Cobol_common.Visitor.fold ; fold_procedure_name : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_procedure_name' : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_procedure_range : 'x. ('x Cobol_ptree__.Operands.procedure_range, 'a) Cobol_common.Visitor.fold ; fold_qualident : (Cobol_ptree__.Terms.qualident, 'a) Cobol_common.Visitor.fold ; fold_qualname : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_qualname' : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_raising : (Cobol_ptree__.Operands.raising, 'a) Cobol_common.Visitor.fold ; fold_range_items : (Cobol_ptree__.Env_division.range_items, 'a) Cobol_common.Visitor.fold ; fold_read_direction : (Cobol_ptree__.Operands.read_direction, 'a) Cobol_common.Visitor.fold ; fold_read_lock_behavior : (Cobol_ptree__.Operands.read_lock_behavior, 'a) Cobol_common.Visitor.fold ; fold_record_delimiter : (Cobol_ptree__.Env_division.record_delimiter, 'a) Cobol_common.Visitor.fold ; fold_refmod : (Cobol_ptree__.Terms.refmod, 'a) Cobol_common.Visitor.fold ; fold_relop : (Cobol_ptree__.Terms.relop, 'a) Cobol_common.Visitor.fold ; fold_repository_paragraph : (Cobol_ptree__.Env_division.specifier list, 'a) Cobol_common.Visitor.fold ; fold_repository_paragraph' : (Cobol_ptree__.Env_division.specifier list Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_rerun_clause : (Cobol_ptree__.Env_division.rerun_clause, 'a) Cobol_common.Visitor.fold ; fold_rerun_frequency : (Cobol_ptree__.Env_division.rerun_frequency, 'a) Cobol_common.Visitor.fold ; fold_retry_clause : (Cobol_ptree__.Operands.retry_clause, 'a) Cobol_common.Visitor.fold ; fold_rounded_ident : ([ Cobol_ptree__.Terms.base_ident_ | Cobol_ptree__.Terms.refmod_ident_ ] Cobol_ptree__.Terms.term Cobol_ptree__.Operands.rounded, 'a) Cobol_common.Visitor.fold ; fold_rounding : (Cobol_ptree__.Terms.rounding, 'a) Cobol_common.Visitor.fold ; fold_rounding_mode : (Cobol_ptree__.Terms.rounding_mode, 'a) Cobol_common.Visitor.fold ; fold_same_area_clause : (Cobol_ptree__.Env_division.same_area_clause, 'a) Cobol_common.Visitor.fold ; fold_screen_attribute : (Cobol_ptree__.Operands.screen_attribute, 'a) Cobol_common.Visitor.fold ; fold_search_condition : (Cobol_ptree__.Operands.search_condition, 'a) Cobol_common.Visitor.fold ; fold_select : (Cobol_ptree__.Env_division.select, 'a) Cobol_common.Visitor.fold ; fold_select_clause : (Cobol_ptree__.Env_division.select_clause, 'a) Cobol_common.Visitor.fold ; fold_set_ambiguous_method : (Cobol_ptree__.Operands.set_ambiguous_method, 'a) Cobol_common.Visitor.fold ; fold_set_attribute_switch : (Cobol_ptree__.Operands.set_attribute_switch, 'a) Cobol_common.Visitor.fold ; fold_set_locale_source : (Cobol_ptree__.Operands.set_locale_source, 'a) Cobol_common.Visitor.fold ; fold_set_locale_target : (Cobol_ptree__.Operands.set_locale_target, 'a) Cobol_common.Visitor.fold ; fold_set_save_locale : (Cobol_ptree__.Operands.set_save_locale, 'a) Cobol_common.Visitor.fold ; fold_sharing_mode : (Cobol_ptree__.Operands.sharing_mode, 'a) Cobol_common.Visitor.fold ; fold_sign : ([ `Strict ] Cobol_ptree__.Terms.sign_cond, 'a) Cobol_common.Visitor.fold ; fold_signz : ([ `Loose ] Cobol_ptree__.Terms.sign_cond, 'a) Cobol_common.Visitor.fold ; fold_simple_cond : ([ `Simple ] Cobol_ptree__.Terms.cond, 'a) Cobol_common.Visitor.fold ; fold_source_computer : (Cobol_ptree__.Env_division.source_computer, 'a) Cobol_common.Visitor.fold ; fold_source_computer_paragraph : (Cobol_ptree__.Env_division.source_computer option, 'a) Cobol_common.Visitor.fold ; fold_source_computer_paragraph' : (Cobol_ptree__.Env_division.source_computer option Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_special_names_clause : (Cobol_ptree__.Env_division.special_names_clause, 'a) Cobol_common.Visitor.fold ; fold_special_names_clause' : (Cobol_ptree__.Env_division.special_names_clause Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_special_names_paragraph : (Cobol_ptree__.Env_division.special_names_clause Cobol_common.Srcloc.with_loc list, 'a) Cobol_common.Visitor.fold ; fold_special_names_paragraph' : (Cobol_ptree__.Env_division.special_names_clause Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_specifier : (Cobol_ptree__.Env_division.specifier, 'a) Cobol_common.Visitor.fold ; fold_stage : (Cobol_ptree__.Operands.stage, 'a) Cobol_common.Visitor.fold ; fold_start_position : (Cobol_ptree__.Operands.start_position, 'a) Cobol_common.Visitor.fold ; fold_status_switch : (Cobol_ptree__.Env_division.status_switch, 'a) Cobol_common.Visitor.fold ; fold_string : string -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_subscript : (Cobol_ptree__.Terms.subscript, 'a) Cobol_common.Visitor.fold ; fold_symbolic_characters_map : (string Cobol_common.Srcloc.with_loc list * string list, 'a) Cobol_common.Visitor.fold ; fold_trimming_tip : (Cobol_ptree__.Terms.trimming_tip, 'a) Cobol_common.Visitor.fold ; fold_unop : (Cobol_ptree__.Terms.unop, 'a) Cobol_common.Visitor.fold ; fold_with_lock : (Cobol_ptree__.Env_division.with_lock, 'a) Cobol_common.Visitor.fold ; fold_write_target : (Cobol_ptree__.Operands.write_target, 'a) Cobol_common.Visitor.fold.. > -> 'b Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_informational_paragraphs : < fold' : 'x. 'x Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_access_mode : (Cobol_ptree__.Env_division.access_mode, 'a) Cobol_common.Visitor.fold ; fold_address : (Cobol_ptree__.Terms.address, 'a) Cobol_common.Visitor.fold ; fold_advancing_phrase : (Cobol_ptree__.Operands.advancing_phrase, 'a) Cobol_common.Visitor.fold ; fold_alphabet_specification : (Cobol_ptree__.Operands.alphabet_specification, 'a) Cobol_common.Visitor.fold ; fold_alphanum : (Cobol_ptree__.Terms.alphanum, 'a) Cobol_common.Visitor.fold ; fold_alphanum' : (Cobol_ptree__.Terms.alphanum Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_any_figurative : 'k. ('k Cobol_ptree__.Terms.figurative, 'a) Cobol_common.Visitor.fold ; fold_area_source : (Cobol_ptree__.Env_division.area_source, 'a) Cobol_common.Visitor.fold ; fold_basic_arithmetic_operands : (Cobol_ptree__.Operands.basic_arithmetic_operands, 'a) Cobol_common.Visitor.fold ; fold_binop : (Cobol_ptree__.Terms.binop, 'a) Cobol_common.Visitor.fold ; fold_bool : bool -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_boolean : (Cobol_ptree__.Numericals.boolean, 'a) Cobol_common.Visitor.fold ; fold_call_using_by : (Cobol_ptree__.Operands.call_using_by, 'a) Cobol_common.Visitor.fold ; fold_call_using_clause : (Cobol_ptree__.Operands.call_using_clause, 'a) Cobol_common.Visitor.fold ; fold_call_using_clause' : (Cobol_ptree__.Operands.call_using_clause Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_char : char -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_character_category : (Cobol_ptree__.Env_division.character_category, 'a) Cobol_common.Visitor.fold ; fold_character_range : (Cobol_ptree__.Env_division.character_range, 'a) Cobol_common.Visitor.fold ; fold_character_set : (Cobol_ptree__.Env_division.character_set, 'a) Cobol_common.Visitor.fold ; fold_characters_range : (Cobol_ptree__.Env_division.characters_range, 'a) Cobol_common.Visitor.fold ; fold_class : (Cobol_ptree__.Terms.class_, 'a) Cobol_common.Visitor.fold ; fold_cond : 'k. ('k Cobol_ptree__.Terms.cond, 'a) Cobol_common.Visitor.fold ; fold_configuration_section : (Cobol_ptree__.Env_division.configuration_section, 'a) Cobol_common.Visitor.fold ; fold_configuration_section' : (Cobol_ptree__.Env_division.configuration_section Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_counter : (Cobol_ptree__.Terms.counter, 'a) Cobol_common.Visitor.fold ; fold_counter_kind : (Cobol_ptree__.Terms.counter_kind, 'a) Cobol_common.Visitor.fold ; fold_date_time : (Cobol_ptree__.Operands.date_time, 'a) Cobol_common.Visitor.fold ; fold_divide_operands : (Cobol_ptree__.Operands.divide_operands, 'a) Cobol_common.Visitor.fold ; fold_dyn_len_struct_kind : (Cobol_ptree__.Env_division.dyn_len_struct_kind, 'a) Cobol_common.Visitor.fold ; fold_effective_arg : (Cobol_ptree__.Terms.effective_arg, 'a) Cobol_common.Visitor.fold ; fold_environment_division : (Cobol_ptree__.Env_division.environment_division, 'a) Cobol_common.Visitor.fold ; fold_environment_division' : (Cobol_ptree__.Env_division.environment_division Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_expands : (Cobol_ptree__.Env_division.expands, 'a) Cobol_common.Visitor.fold ; fold_expr : (Cobol_ptree__.Terms.expression, 'a) Cobol_common.Visitor.fold ; fold_expr' : (Cobol_ptree__.Terms.expression Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_file_control_paragraph : (Cobol_ptree__.Env_division.select list, 'a) Cobol_common.Visitor.fold ; fold_file_control_paragraph' : (Cobol_ptree__.Env_division.select list Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_file_option : (Cobol_ptree__.Operands.file_option, 'a) Cobol_common.Visitor.fold ; fold_file_portion : (Cobol_ptree__.Env_division.file_portion, 'a) Cobol_common.Visitor.fold ; fold_fixed : (Cobol_ptree__.Numericals.fixed, 'a) Cobol_common.Visitor.fold ; fold_flat_combined_relation : (Cobol_ptree__.Terms.flat_combined_relation, 'a) Cobol_common.Visitor.fold ; fold_float_content : (Cobol_ptree__.Operands.float_content, 'a) Cobol_common.Visitor.fold ; fold_floating : (Cobol_ptree__.Numericals.floating, 'a) Cobol_common.Visitor.fold ; fold_ident : ([ Cobol_ptree__.Terms.base_ident_ | Cobol_ptree__.Terms.refmod_ident_ ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_informational_paragraph' : 'b Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a Cobol_common.Visitor.action ; fold_informational_paragraphs : 'b Cobol_common.Srcloc.TYPES.with_loc list -> 'a -> 'a Cobol_common.Visitor.action ; fold_inline_call : (Cobol_ptree__.Terms.inline_call, 'a) Cobol_common.Visitor.fold ; fold_inline_invocation : (Cobol_ptree__.Terms.inline_invocation, 'a) Cobol_common.Visitor.fold ; fold_input_output_section : (Cobol_ptree__.Env_division.input_output_section, 'a) Cobol_common.Visitor.fold ; fold_input_output_section' : (Cobol_ptree__.Env_division.input_output_section Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_int : int -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_int_figurative : ([ `Int ] Cobol_ptree__.Terms.figurative, 'a) Cobol_common.Visitor.fold ; fold_integer : (string, 'a) Cobol_common.Visitor.fold ; fold_integer' : (string Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_intrinsic_name : (Cobol_ptree__.Terms.intrinsic_name, 'a) Cobol_common.Visitor.fold ; fold_intrinsic_name' : (Cobol_ptree__.Terms.intrinsic_name Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_io_control_entry : (Cobol_ptree__.Env_division.io_control_entry, 'a) Cobol_common.Visitor.fold ; fold_io_control_paragraph : (Cobol_ptree__.Env_division.io_control_entry option, 'a) Cobol_common.Visitor.fold ; fold_io_control_paragraph' : (Cobol_ptree__.Env_division.io_control_entry option Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_length_of : ([ `LengthOf ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_list : 'x. 'x list -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_locale : (Cobol_ptree__.Env_division.locale, 'a) Cobol_common.Visitor.fold ; fold_locale_category : (Cobol_ptree__.Operands.locale_category, 'a) Cobol_common.Visitor.fold ; fold_lock_mode : (Cobol_ptree__.Env_division.lock_mode, 'a) Cobol_common.Visitor.fold ; fold_logop : (Cobol_ptree__.Terms.logop, 'a) Cobol_common.Visitor.fold ; fold_mcs_awaiting_item : (Cobol_ptree__.Operands.mcs_awaiting_item, 'a) Cobol_common.Visitor.fold ; fold_mcs_command_operands : (Cobol_ptree__.Operands.mcs_command_operands, 'a) Cobol_common.Visitor.fold ; fold_mcs_kind : (Cobol_ptree__.Operands.mcs_kind, 'a) Cobol_common.Visitor.fold ; fold_memory_size_unit : (Cobol_ptree__.Env_division.memory_size_unit, 'a) Cobol_common.Visitor.fold ; fold_multiple_file_clause : (Cobol_ptree__.Env_division.file_portion list, 'a) Cobol_common.Visitor.fold ; fold_multiply_operands : (Cobol_ptree__.Operands.multiply_operands, 'a) Cobol_common.Visitor.fold ; fold_name : (string, 'a) Cobol_common.Visitor.fold ; fold_name' : (string Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_national : (string, 'a) Cobol_common.Visitor.fold ; fold_nel : 'x. 'x Cobol_common.Basics.NEL.t -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_object_computer : (Cobol_ptree__.Env_division.object_computer, 'a) Cobol_common.Visitor.fold ; fold_object_computer_clause : (Cobol_ptree__.Env_division.object_computer_clause, 'a) Cobol_common.Visitor.fold ; fold_object_computer_paragraph : (Cobol_ptree__.Env_division.object_computer option, 'a) Cobol_common.Visitor.fold ; fold_object_computer_paragraph' : (Cobol_ptree__.Env_division.object_computer option Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_object_ref : (Cobol_ptree__.Terms.object_ref, 'a) Cobol_common.Visitor.fold ; fold_object_view : (Cobol_ptree__.Terms.object_view, 'a) Cobol_common.Visitor.fold ; fold_object_view_spec : (Cobol_ptree__.Terms.object_view_spec, 'a) Cobol_common.Visitor.fold ; fold_on_off : (Cobol_ptree__.Operands.on_off, 'a) Cobol_common.Visitor.fold ; fold_open_mode : (Cobol_ptree__.Operands.open_mode, 'a) Cobol_common.Visitor.fold ; fold_option : 'x. 'x option -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_organization : (Cobol_ptree__.Env_division.organization, 'a) Cobol_common.Visitor.fold ; fold_position : (Cobol_ptree__.Operands.position, 'a) Cobol_common.Visitor.fold ; fold_procedure_name : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_procedure_name' : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_procedure_range : 'x. ('x Cobol_ptree__.Operands.procedure_range, 'a) Cobol_common.Visitor.fold ; fold_qualident : (Cobol_ptree__.Terms.qualident, 'a) Cobol_common.Visitor.fold ; fold_qualname : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_qualname' : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_raising : (Cobol_ptree__.Operands.raising, 'a) Cobol_common.Visitor.fold ; fold_range_items : (Cobol_ptree__.Env_division.range_items, 'a) Cobol_common.Visitor.fold ; fold_read_direction : (Cobol_ptree__.Operands.read_direction, 'a) Cobol_common.Visitor.fold ; fold_read_lock_behavior : (Cobol_ptree__.Operands.read_lock_behavior, 'a) Cobol_common.Visitor.fold ; fold_record_delimiter : (Cobol_ptree__.Env_division.record_delimiter, 'a) Cobol_common.Visitor.fold ; fold_refmod : (Cobol_ptree__.Terms.refmod, 'a) Cobol_common.Visitor.fold ; fold_relop : (Cobol_ptree__.Terms.relop, 'a) Cobol_common.Visitor.fold ; fold_repository_paragraph : (Cobol_ptree__.Env_division.specifier list, 'a) Cobol_common.Visitor.fold ; fold_repository_paragraph' : (Cobol_ptree__.Env_division.specifier list Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_rerun_clause : (Cobol_ptree__.Env_division.rerun_clause, 'a) Cobol_common.Visitor.fold ; fold_rerun_frequency : (Cobol_ptree__.Env_division.rerun_frequency, 'a) Cobol_common.Visitor.fold ; fold_retry_clause : (Cobol_ptree__.Operands.retry_clause, 'a) Cobol_common.Visitor.fold ; fold_rounded_ident : ([ Cobol_ptree__.Terms.base_ident_ | Cobol_ptree__.Terms.refmod_ident_ ] Cobol_ptree__.Terms.term Cobol_ptree__.Operands.rounded, 'a) Cobol_common.Visitor.fold ; fold_rounding : (Cobol_ptree__.Terms.rounding, 'a) Cobol_common.Visitor.fold ; fold_rounding_mode : (Cobol_ptree__.Terms.rounding_mode, 'a) Cobol_common.Visitor.fold ; fold_same_area_clause : (Cobol_ptree__.Env_division.same_area_clause, 'a) Cobol_common.Visitor.fold ; fold_screen_attribute : (Cobol_ptree__.Operands.screen_attribute, 'a) Cobol_common.Visitor.fold ; fold_search_condition : (Cobol_ptree__.Operands.search_condition, 'a) Cobol_common.Visitor.fold ; fold_select : (Cobol_ptree__.Env_division.select, 'a) Cobol_common.Visitor.fold ; fold_select_clause : (Cobol_ptree__.Env_division.select_clause, 'a) Cobol_common.Visitor.fold ; fold_set_ambiguous_method : (Cobol_ptree__.Operands.set_ambiguous_method, 'a) Cobol_common.Visitor.fold ; fold_set_attribute_switch : (Cobol_ptree__.Operands.set_attribute_switch, 'a) Cobol_common.Visitor.fold ; fold_set_locale_source : (Cobol_ptree__.Operands.set_locale_source, 'a) Cobol_common.Visitor.fold ; fold_set_locale_target : (Cobol_ptree__.Operands.set_locale_target, 'a) Cobol_common.Visitor.fold ; fold_set_save_locale : (Cobol_ptree__.Operands.set_save_locale, 'a) Cobol_common.Visitor.fold ; fold_sharing_mode : (Cobol_ptree__.Operands.sharing_mode, 'a) Cobol_common.Visitor.fold ; fold_sign : ([ `Strict ] Cobol_ptree__.Terms.sign_cond, 'a) Cobol_common.Visitor.fold ; fold_signz : ([ `Loose ] Cobol_ptree__.Terms.sign_cond, 'a) Cobol_common.Visitor.fold ; fold_simple_cond : ([ `Simple ] Cobol_ptree__.Terms.cond, 'a) Cobol_common.Visitor.fold ; fold_source_computer : (Cobol_ptree__.Env_division.source_computer, 'a) Cobol_common.Visitor.fold ; fold_source_computer_paragraph : (Cobol_ptree__.Env_division.source_computer option, 'a) Cobol_common.Visitor.fold ; fold_source_computer_paragraph' : (Cobol_ptree__.Env_division.source_computer option Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_special_names_clause : (Cobol_ptree__.Env_division.special_names_clause, 'a) Cobol_common.Visitor.fold ; fold_special_names_clause' : (Cobol_ptree__.Env_division.special_names_clause Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_special_names_paragraph : (Cobol_ptree__.Env_division.special_names_clause Cobol_common.Srcloc.with_loc list, 'a) Cobol_common.Visitor.fold ; fold_special_names_paragraph' : (Cobol_ptree__.Env_division.special_names_clause Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_specifier : (Cobol_ptree__.Env_division.specifier, 'a) Cobol_common.Visitor.fold ; fold_stage : (Cobol_ptree__.Operands.stage, 'a) Cobol_common.Visitor.fold ; fold_start_position : (Cobol_ptree__.Operands.start_position, 'a) Cobol_common.Visitor.fold ; fold_status_switch : (Cobol_ptree__.Env_division.status_switch, 'a) Cobol_common.Visitor.fold ; fold_string : string -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_subscript : (Cobol_ptree__.Terms.subscript, 'a) Cobol_common.Visitor.fold ; fold_symbolic_characters_map : (string Cobol_common.Srcloc.with_loc list * string list, 'a) Cobol_common.Visitor.fold ; fold_trimming_tip : (Cobol_ptree__.Terms.trimming_tip, 'a) Cobol_common.Visitor.fold ; fold_unop : (Cobol_ptree__.Terms.unop, 'a) Cobol_common.Visitor.fold ; fold_with_lock : (Cobol_ptree__.Env_division.with_lock, 'a) Cobol_common.Visitor.fold ; fold_write_target : (Cobol_ptree__.Operands.write_target, 'a) Cobol_common.Visitor.fold.. > -> 'b Cobol_common.Srcloc.TYPES.with_loc list -> 'a -> 'a
val fold_source_computer_paragraph : 'a {folder}4 -> Cobol_ptree__.Env_division.source_computer option -> 'a -> 'a
val fold_source_computer_paragraph' : 'a {folder}4 -> Cobol_ptree__.Env_division.source_computer option Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_object_computer_paragraph : 'a {folder}4 -> Cobol_ptree__.Env_division.object_computer option -> 'a -> 'a
val fold_object_computer_paragraph' : 'a {folder}4 -> Cobol_ptree__.Env_division.object_computer option Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_repository_paragraph : 'a {folder}4 -> Cobol_ptree__.Env_division.specifier list -> 'a -> 'a
val fold_repository_paragraph' : 'a {folder}4 -> Cobol_ptree__.Env_division.specifier list Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_special_names_paragraph : 'a {folder}4 -> Cobol_ptree__.Env_division.special_names_clause Cobol_common.Srcloc.with_loc list -> 'a -> 'a
val fold_special_names_paragraph' : 'a {folder}4 -> Cobol_ptree__.Env_division.special_names_clause Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_configuration_section : 'a {folder}4 -> Cobol_ptree__.Env_division.configuration_section -> 'a -> 'a
val fold_configuration_section' : 'a {folder}4 -> Cobol_ptree__.Env_division.configuration_section Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_environment_division : 'a {folder}4 -> Cobol_ptree__.Env_division.environment_division -> 'a -> 'a
val fold_environment_division' : 'a {folder}4 -> Cobol_ptree__.Env_division.environment_division Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_file_data_clause : 'a Terms_visitor.folder -> string Cobol_common.Srcloc.with_loc list -> 'a -> 'a
class 'a {folder}5 : object ... end
val fold_data_level : 'a {folder}5 -> int -> 'a -> 'a
val fold_data_level' : 'a {folder}5 -> int Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_alignment : 'a {folder}5 -> Cobol_ptree__.Data_descr.alignment -> 'a -> 'a
val fold_blank_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.blank_clause -> 'a -> 'a
val fold_column_position : 'a {folder}5 -> Cobol_ptree__.Data_descr.column_position -> 'a -> 'a
val fold_comm_channel : 'a {folder}5 -> Cobol_ptree__.Data_descr.comm_channel -> 'a -> 'a
val fold_comm_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.comm_clause -> 'a -> 'a
val fold_comm_clause' : 'a {folder}5 -> Cobol_ptree__.Data_descr.comm_clause Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_condition_name_value : 'a {folder}5 -> Cobol_ptree__.Data_descr.condition_name_value -> 'a -> 'a
val fold_constant_value : 'a {folder}5 -> Cobol_ptree__.Data_descr.constant_value -> 'a -> 'a
val fold_constant_value' : 'a {folder}5 -> Cobol_ptree__.Data_descr.constant_value Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_data_name : 'a {folder}5 -> Cobol_ptree__.Data_descr.data_name -> 'a -> 'a
val fold_data_name' : 'a {folder}5 -> Cobol_ptree__.Data_descr.data_name Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_data_name'_opt : 'a {folder}5 -> Cobol_ptree__.Data_descr.data_name Cobol_common.Srcloc.TYPES.with_loc option -> 'a -> 'a
val fold_table_data_value : 'a {folder}5 -> Cobol_ptree__.Data_descr.table_data_value -> 'a -> 'a
val fold_data_value_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.data_value_clause -> 'a -> 'a
val fold_data_varying : 'a {folder}5 -> Cobol_ptree__.Data_descr.data_varying -> 'a -> 'a
val fold_endianness_mode : 'a {folder}5 -> Cobol_ptree__.Data_descr.endianness_mode -> 'a -> 'a
val fold_encoding_mode : 'a {folder}5 -> Cobol_ptree__.Data_descr.encoding_mode -> 'a -> 'a
val fold_encoding_endianness : 'a {folder}5 -> Cobol_ptree__.Data_descr.encoding_endianness -> 'a -> 'a
val fold_erase_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.erase_clause -> 'a -> 'a
val fold_external_clause : 'a {folder}5 -> [ Cobol_ptree__.Terms.alnum_ | Cobol_ptree__.Terms.national_ ] Cobol_ptree__.Terms.term option -> 'a -> 'a
val fold_file_block_contents : 'a {folder}5 -> Cobol_ptree__.Data_descr.file_block_contents -> 'a -> 'a
val fold_file_linage_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.file_linage_clause -> 'a -> 'a
val fold_format_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.format_clause -> 'a -> 'a
val fold_group_usage_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.group_usage_clause -> 'a -> 'a
val fold_label_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.label_clause -> 'a -> 'a
val fold_line_position : 'a {folder}5 -> Cobol_ptree__.Data_descr.line_position -> 'a -> 'a
val fold_locale_phrase : 'a {folder}5 -> Cobol_ptree__.Data_descr.locale_phrase -> 'a -> 'a
val fold_next_group_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.next_group_clause -> 'a -> 'a
val fold_object_reference_kind : 'a {folder}5 -> Cobol_ptree__.Data_descr.object_reference_kind -> 'a -> 'a
val fold_polarity : 'a {folder}5 -> Cobol_ptree__.Data_descr.polarity -> 'a -> 'a
val fold_property_kind : 'a {folder}5 -> Cobol_ptree__.Data_descr.property_kind -> 'a -> 'a
val fold_property_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.property_clause -> 'a -> 'a
val fold_record_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.record_clause -> 'a -> 'a
val fold_recording_mode : 'a {folder}5 -> Cobol_ptree__.Data_descr.recording_mode -> 'a -> 'a
val fold_report_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.report_clause -> 'a -> 'a
val fold_report_clause' : 'a {folder}5 -> Cobol_ptree__.Data_descr.report_clause Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_report_data_name_or_final : 'a {folder}5 -> Cobol_ptree__.Data_descr.report_data_name_or_final -> 'a -> 'a
val fold_report_screen_usage_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.report_screen_usage_clause -> 'a -> 'a
val fold_report_type_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.report_type_clause -> 'a -> 'a
val fold_screen_attribute_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.screen_attribute_clause -> 'a -> 'a
val fold_screen_line_column_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.screen_line_column_clause -> 'a -> 'a
val fold_select_when_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.select_when_clause -> 'a -> 'a
val fold_sign_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.sign_clause -> 'a -> 'a
val fold_sort_direction : 'a {folder}5 -> Cobol_ptree__.Data_descr.sort_direction -> 'a -> 'a
val fold_sort_spec : 'a {folder}5 -> Cobol_ptree__.Data_descr.sort_spec -> 'a -> 'a
val fold_source_destination_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.source_destination_clause -> 'a -> 'a
val fold_sum_phrase : 'a {folder}5 -> Cobol_ptree__.Data_descr.sum_phrase -> 'a -> 'a
val fold_synchronized_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.synchronized_clause -> 'a -> 'a
val fold_usage_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.usage_clause -> 'a -> 'a
val fold_class_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.class_clause -> 'a -> 'a
val fold_validation_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.validation_clause -> 'a -> 'a
val fold_valueof_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.valueof_clause -> 'a -> 'a
val fold_data_occurs_clause : 'a {folder}5 -> Cobol_ptree__.Data_descr.data_occurs_clause -> 'a -> 'a
val fold_comm_direction : 'a {folder}5 -> Cobol_ptree__.Data_descr.comm_direction -> 'a -> 'a
class virtual 'a {folder}6 : object ... end
val fold_picture_string : 'a {folder}6 -> string Cobol_common.Srcloc.with_loc -> 'a -> 'a
val fold_picture_string' : 'a {folder}6 -> string Cobol_common.Srcloc.with_loc Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_picture_clause : 'a {folder}6 -> Cobol_ptree__.Data_sections.picture_clause -> 'a -> 'a
val fold_picture_clause' : 'a {folder}6 -> Cobol_ptree__.Data_sections.picture_clause Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_data_clause : 'a {folder}6 -> Cobol_ptree__.Data_sections.data_clause -> 'a -> 'a
val fold_data_clause' : 'a {folder}6 -> Cobol_ptree__.Data_sections.data_clause Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_data_clauses : 'a {folder}6 -> Cobol_ptree__.Data_sections.data_clause Cobol_common.Srcloc.TYPES.with_loc list -> 'a -> 'a
val fold_data_item : 'a {folder}6 -> Cobol_ptree__.Data_sections.data_item -> 'a -> 'a
val fold_data_item' : 'a {folder}6 -> Cobol_ptree__.Data_sections.data_item Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_constant_item : 'a {folder}6 -> Cobol_ptree__.Data_sections.constant_item -> 'a -> 'a
val fold_constant_item' : 'a {folder}6 -> Cobol_ptree__.Data_sections.constant_item Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_rename_item : 'a {folder}6 -> Cobol_ptree__.Data_sections.rename_item -> 'a -> 'a
val fold_rename_item' : 'a {folder}6 -> Cobol_ptree__.Data_sections.rename_item Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_condition_name_item : 'a {folder}6 -> Cobol_ptree__.Data_sections.condition_name_item -> 'a -> 'a
val fold_condition_name_item' : 'a {folder}6 -> Cobol_ptree__.Data_sections.condition_name_item Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_exec_declarations : 'a {folder}6 -> Cobol_common.Exec_block.t -> 'a -> 'a
val fold_exec_declarations' : 'a {folder}6 -> Cobol_common.Exec_block.t Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_working_item_descr : 'a {folder}6 -> _ Cobol_ptree__.Data_sections.item_descr -> 'a -> 'a
val fold_working_item_descr' : 'a {folder}6 -> _ Cobol_ptree__.Data_sections.item_descr Cobol_common.Srcloc.with_loc -> 'a -> 'a
val fold_working_storage_item_descr : 'a {folder}6 -> _ Cobol_ptree__.Data_sections.item_descr -> 'a -> 'a
val fold_working_storage_item_descr' : 'a {folder}6 -> _ Cobol_ptree__.Data_sections.item_descr Cobol_common.Srcloc.with_loc -> 'a -> 'a
val fold_working_storage_section : 'a {folder}6 -> _ Cobol_ptree__.Data_sections.item_descr Cobol_common.Srcloc.with_loc list -> 'a -> 'a
val fold_linkage_item_descr : 'a {folder}6 -> _ Cobol_ptree__.Data_sections.item_descr -> 'a -> 'a
val fold_linkage_item_descr' : 'a {folder}6 -> _ Cobol_ptree__.Data_sections.item_descr Cobol_common.Srcloc.with_loc -> 'a -> 'a
val fold_linkage_section : 'a {folder}6 -> _ Cobol_ptree__.Data_sections.item_descr Cobol_common.Srcloc.with_loc list -> 'a -> 'a
val fold_file_item_descr : 'a {folder}6 -> _ Cobol_ptree__.Data_sections.item_descr -> 'a -> 'a
val fold_file_item_descr' : 'a {folder}6 -> _ Cobol_ptree__.Data_sections.item_descr Cobol_common.Srcloc.with_loc -> 'a -> 'a
val fold_file_fd_clause : 'a {folder}6 -> Cobol_ptree__.Data_sections.file_fd_clause -> 'a -> 'a
val fold_file_fd_clause' : 'a {folder}6 -> Cobol_ptree__.Data_sections.file_fd_clause Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_file_sd_clause : 'a {folder}6 -> Cobol_ptree__.Data_sections.file_sd_clause -> 'a -> 'a
val fold_file_sd_clause' : 'a {folder}6 -> Cobol_ptree__.Data_sections.file_sd_clause Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_file_clauses : 'a {folder}6 -> Cobol_ptree__.Data_sections.file_clauses -> 'a -> 'a
val fold_file_descr : 'a {folder}6 -> Cobol_ptree__.Data_sections.file_descr -> 'a -> 'a
val fold_file_descr' : 'a {folder}6 -> Cobol_ptree__.Data_sections.file_descr Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_file_section : 'a {folder}6 -> Cobol_ptree__.Data_sections.file_descr Cobol_common.Srcloc.with_loc list -> 'a -> 'a
val fold_communication_item_descr : 'a {folder}6 -> _ Cobol_ptree__.Data_sections.item_descr -> 'a -> 'a
val fold_communication_item_descr' : 'a {folder}6 -> _ Cobol_ptree__.Data_sections.item_descr Cobol_common.Srcloc.with_loc -> 'a -> 'a
val fold_communication_descr : 'a {folder}6 -> Cobol_ptree__.Data_sections.communication_descr -> 'a -> 'a
val fold_communication_descr' : 'a {folder}6 -> Cobol_ptree__.Data_sections.communication_descr Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_communication_section : 'a {folder}6 -> Cobol_ptree__.Data_sections.communication_descr Cobol_common.Srcloc.with_loc list -> 'a -> 'a
val fold_local_storage_item_descr : 'a {folder}6 -> _ Cobol_ptree__.Data_sections.item_descr -> 'a -> 'a
val fold_local_storage_item_descr' : 'a {folder}6 -> _ Cobol_ptree__.Data_sections.item_descr Cobol_common.Srcloc.with_loc -> 'a -> 'a
val fold_local_storage_section : 'a {folder}6 -> _ Cobol_ptree__.Data_sections.item_descr Cobol_common.Srcloc.with_loc list -> 'a -> 'a
val fold_report_group_clause : 'a {folder}6 -> Cobol_ptree__.Data_sections.report_group_clause -> 'a -> 'a
val fold_report_group_clause' : 'a {folder}6 -> Cobol_ptree__.Data_sections.report_group_clause Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_report_group_item : 'a {folder}6 -> Cobol_ptree__.Data_sections.report_group_item -> 'a -> 'a
val fold_report_group_item' : 'a {folder}6 -> Cobol_ptree__.Data_sections.report_group_item Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_report_item_descr : 'a {folder}6 -> _ Cobol_ptree__.Data_sections.item_descr -> 'a -> 'a
val fold_report_item_descr' : 'a {folder}6 -> _ Cobol_ptree__.Data_sections.item_descr Cobol_common.Srcloc.with_loc -> 'a -> 'a
val fold_report_descr : 'a {folder}6 -> Cobol_ptree__.Data_sections.report_descr -> 'a -> 'a
val fold_report_descr' : 'a {folder}6 -> Cobol_ptree__.Data_sections.report_descr Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_report_section : 'a {folder}6 -> Cobol_ptree__.Data_sections.report_descr Cobol_common.Srcloc.with_loc list -> 'a -> 'a
val fold_screen_clause : 'a {folder}6 -> Cobol_ptree__.Data_sections.screen_clause -> 'a -> 'a
val fold_screen_clause' : 'a {folder}6 -> Cobol_ptree__.Data_sections.screen_clause Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_screen_item : 'a {folder}6 -> Cobol_ptree__.Data_sections.screen_item -> 'a -> 'a
val fold_screen_item' : 'a {folder}6 -> Cobol_ptree__.Data_sections.screen_item Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_screen_item_descr : 'a {folder}6 -> _ Cobol_ptree__.Data_sections.item_descr -> 'a -> 'a
val fold_screen_item_descr' : 'a {folder}6 -> _ Cobol_ptree__.Data_sections.item_descr Cobol_common.Srcloc.with_loc -> 'a -> 'a
val fold_screen_section : 'a {folder}6 -> _ Cobol_ptree__.Data_sections.item_descr Cobol_common.Srcloc.with_loc list -> 'a -> 'a
class virtual 'a {folder}7 : object ... end
val fold_file_section' : 'a {folder}7 -> Cobol_ptree__.Data_sections.file_descr Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_working_storage_section' : 'a {folder}7 -> _ Cobol_ptree__.Data_sections.item_descr Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_linkage_section' : 'a {folder}7 -> _ Cobol_ptree__.Data_sections.item_descr Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_communication_section' : 'a {folder}7 -> Cobol_ptree__.Data_sections.communication_descr Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_local_storage_section' : 'a {folder}7 -> _ Cobol_ptree__.Data_sections.item_descr Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_report_section' : 'a {folder}7 -> Cobol_ptree__.Data_sections.report_descr Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_screen_section' : 'a {folder}7 -> _ Cobol_ptree__.Data_sections.item_descr Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_data_division : 'a {folder}7 -> Cobol_ptree__.Data_division.data_division -> 'a -> 'a
val fold_data_division' : 'a {folder}7 -> Cobol_ptree__.Data_division.data_division Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
class virtual 'a {folder}8 : object ... end
val fold_varying_phrase : 'a {folder}8 -> Cobol_ptree__.Branching_statements.varying_phrase -> 'a -> 'a
val fold_varying_phrase' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.varying_phrase Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_perform_mode : 'a {folder}8 -> Cobol_ptree__.Branching_statements.perform_mode -> 'a -> 'a
val fold_allocate_kind : 'a {folder}8 -> Cobol_ptree__.Simple_statements.allocate_kind -> 'a -> 'a
val fold_alter_operands' : 'a {folder}8 -> Cobol_ptree__.Simple_statements.alter_operands Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_call_proto : 'a {folder}8 -> Cobol_ptree__.Branching_statements.call_proto -> 'a -> 'a
val fold_call_prefix : 'a {folder}8 -> Cobol_ptree__.Branching_statements.call_prefix -> 'a -> 'a
val fold_close_format : 'a {folder}8 -> Cobol_ptree__.Simple_statements.close_format -> 'a -> 'a
val fold_close_phrase : 'a {folder}8 -> Cobol_ptree__.Simple_statements.close_phrase -> 'a -> 'a
val fold_init_data_category : 'a {folder}8 -> Cobol_ptree__.Simple_statements.init_data_category -> 'a -> 'a
val fold_init_category : 'a {folder}8 -> Cobol_ptree__.Simple_statements.init_category -> 'a -> 'a
val fold_init_replacing : 'a {folder}8 -> Cobol_ptree__.Simple_statements.init_replacing -> 'a -> 'a
val fold_inspect_where : 'a {folder}8 -> (Cobol_ptree__.Simple_statements.inspect_direction * [ Cobol_ptree__.Terms.ident_ | Cobol_ptree__.Terms.nonnum_ ] Cobol_ptree__.Terms.term) -> 'a -> 'a
val fold_tallying_spec : 'a {folder}8 -> Cobol_ptree__.Simple_statements.tallying_spec -> 'a -> 'a
val fold_tallying_clause' : 'a {folder}8 -> Cobol_ptree__.Simple_statements.tallying_clause Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_tallying : 'a {folder}8 -> Cobol_ptree__.Simple_statements.tallying -> 'a -> 'a
val fold_replacing_range_spec : 'a {folder}8 -> Cobol_ptree__.Simple_statements.replacing_range_spec -> 'a -> 'a
val fold_replacing_clause : 'a {folder}8 -> Cobol_ptree__.Simple_statements.replacing_clause -> 'a -> 'a
val fold_replacing : 'a {folder}8 -> Cobol_ptree__.Simple_statements.replacing_clause Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_converting : 'a {folder}8 -> Cobol_ptree__.Simple_statements.converting -> 'a -> 'a
val fold_inspect_spec : 'a {folder}8 -> Cobol_ptree__.Simple_statements.inspect_spec -> 'a -> 'a
val fold_merge_or_sort_target : 'a {folder}8 -> Cobol_ptree__.Simple_statements.merge_or_sort_target -> 'a -> 'a
val fold_named_file_option : 'a {folder}8 -> Cobol_ptree__.Simple_statements.named_file_option -> 'a -> 'a
val fold_open_phrase : 'a {folder}8 -> Cobol_ptree__.Simple_statements.open_phrase -> 'a -> 'a
val fold_read_error : 'a {folder}8 -> Cobol_ptree__.Branching_statements.read_error -> 'a -> 'a
val fold_set_switch_spec : 'a {folder}8 -> Cobol_ptree__.Simple_statements.set_switch_spec -> 'a -> 'a
val fold_set_condition_spec : 'a {folder}8 -> Cobol_ptree__.Simple_statements.set_condition_spec -> 'a -> 'a
val fold_status_kind : 'a {folder}8 -> Cobol_ptree__.Simple_statements.status_kind -> 'a -> 'a
val fold_stop_run : < fold' : 'x. 'x Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_accept' : (Cobol_ptree__.Branching_statements.accept_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_accept_clause' : (Cobol_ptree__.Branching_statements.accept_clause Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_accept_misc : (Cobol_ptree__.Branching_statements.accept_misc, 'a) Cobol_common.Visitor.fold ; fold_accept_with_clause' : (Cobol_ptree__.Branching_statements.accept_with_clause Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_add' : (Cobol_ptree__.Branching_statements.basic_arithmetic_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_address : (Cobol_ptree__.Terms.address, 'a) Cobol_common.Visitor.fold ; fold_advancing_phrase : (Cobol_ptree__.Operands.advancing_phrase, 'a) Cobol_common.Visitor.fold ; fold_alignment : (Cobol_ptree__.Data_descr.alignment, 'a) Cobol_common.Visitor.fold ; fold_allocate' : (Cobol_ptree__.Simple_statements.allocate_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_allocate_kind : (Cobol_ptree__.Simple_statements.allocate_kind, 'a) Cobol_common.Visitor.fold ; fold_alphabet_specification : (Cobol_ptree__.Operands.alphabet_specification, 'a) Cobol_common.Visitor.fold ; fold_alphanum : (Cobol_ptree__.Terms.alphanum, 'a) Cobol_common.Visitor.fold ; fold_alphanum' : (Cobol_ptree__.Terms.alphanum Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_alter' : (Cobol_ptree__.Simple_statements.alter_operands Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_alter_operands' : (Cobol_ptree__.Simple_statements.alter_operands Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_any_figurative : 'k. ('k Cobol_ptree__.Terms.figurative, 'a) Cobol_common.Visitor.fold ; fold_basic_arithmetic_operands : (Cobol_ptree__.Operands.basic_arithmetic_operands, 'a) Cobol_common.Visitor.fold ; fold_binop : (Cobol_ptree__.Terms.binop, 'a) Cobol_common.Visitor.fold ; fold_blank_clause : (Cobol_ptree__.Data_descr.blank_clause, 'a) Cobol_common.Visitor.fold ; fold_bool : bool -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_boolean : (Cobol_ptree__.Numericals.boolean, 'a) Cobol_common.Visitor.fold ; fold_call' : (Cobol_ptree__.Branching_statements.call_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_call_error_handler : (Cobol_ptree__.Branching_statements.call_error_handler, 'a) Cobol_common.Visitor.fold ; fold_call_prefix : (Cobol_ptree__.Branching_statements.call_prefix, 'a) Cobol_common.Visitor.fold ; fold_call_proto : (Cobol_ptree__.Branching_statements.call_proto, 'a) Cobol_common.Visitor.fold ; fold_call_using_by : (Cobol_ptree__.Operands.call_using_by, 'a) Cobol_common.Visitor.fold ; fold_call_using_clause : (Cobol_ptree__.Operands.call_using_clause, 'a) Cobol_common.Visitor.fold ; fold_call_using_clause' : (Cobol_ptree__.Operands.call_using_clause Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_cancel' : (_ Cobol_ptree__.Terms.term list Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_char : char -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_class : (Cobol_ptree__.Terms.class_, 'a) Cobol_common.Visitor.fold ; fold_class_clause : (Cobol_ptree__.Data_descr.class_clause, 'a) Cobol_common.Visitor.fold ; fold_close' : (Cobol_ptree__.Simple_statements.close_phrase list Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_close_format : (Cobol_ptree__.Simple_statements.close_format, 'a) Cobol_common.Visitor.fold ; fold_close_phrase : (Cobol_ptree__.Simple_statements.close_phrase, 'a) Cobol_common.Visitor.fold ; fold_column_position : (Cobol_ptree__.Data_descr.column_position, 'a) Cobol_common.Visitor.fold ; fold_comm_channel : (Cobol_ptree__.Data_descr.comm_channel, 'a) Cobol_common.Visitor.fold ; fold_comm_clause : (Cobol_ptree__.Data_descr.comm_clause, 'a) Cobol_common.Visitor.fold ; fold_comm_clause' : (Cobol_ptree__.Data_descr.comm_clause Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_comm_direction : (Cobol_ptree__.Data_descr.comm_direction, 'a) Cobol_common.Visitor.fold ; fold_communication_descr : (Cobol_ptree__.Data_sections.communication_descr, 'a) Cobol_common.Visitor.fold ; fold_communication_descr' : (Cobol_ptree__.Data_sections.communication_descr Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_communication_section : (Cobol_ptree__.Data_sections.communication_descr Cobol_common.Srcloc.with_loc list, 'a) Cobol_common.Visitor.fold ; fold_compute' : (Cobol_ptree__.Branching_statements.compute_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_cond : 'k. ('k Cobol_ptree__.Terms.cond, 'a) Cobol_common.Visitor.fold ; fold_condition_name_item : (Cobol_ptree__.Data_sections.condition_name_item, 'a) Cobol_common.Visitor.fold ; fold_condition_name_item' : (Cobol_ptree__.Data_sections.condition_name_item Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_condition_name_value : (Cobol_ptree__.Data_descr.condition_name_value, 'a) Cobol_common.Visitor.fold ; fold_constant_item : (Cobol_ptree__.Data_sections.constant_item, 'a) Cobol_common.Visitor.fold ; fold_constant_item' : (Cobol_ptree__.Data_sections.constant_item Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_constant_value : (Cobol_ptree__.Data_descr.constant_value, 'a) Cobol_common.Visitor.fold ; fold_constant_value' : (Cobol_ptree__.Data_descr.constant_value Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_converting : (Cobol_ptree__.Simple_statements.converting, 'a) Cobol_common.Visitor.fold ; fold_counter : (Cobol_ptree__.Terms.counter, 'a) Cobol_common.Visitor.fold ; fold_counter_kind : (Cobol_ptree__.Terms.counter_kind, 'a) Cobol_common.Visitor.fold ; fold_data_clause : (Cobol_ptree__.Data_sections.data_clause, 'a) Cobol_common.Visitor.fold ; fold_data_clause' : (Cobol_ptree__.Data_sections.data_clause Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_data_item : (Cobol_ptree__.Data_sections.data_item, 'a) Cobol_common.Visitor.fold ; fold_data_item' : (Cobol_ptree__.Data_sections.data_item Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_data_level : (int, 'a) Cobol_common.Visitor.fold ; fold_data_level' : (int Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_data_name : (Cobol_ptree__.Data_descr.data_name, 'a) Cobol_common.Visitor.fold ; fold_data_name' : (Cobol_ptree__.Data_descr.data_name Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_data_occurs_clause : (Cobol_ptree__.Data_descr.data_occurs_clause, 'a) Cobol_common.Visitor.fold ; fold_data_value_clause : (Cobol_ptree__.Data_descr.data_value_clause, 'a) Cobol_common.Visitor.fold ; fold_data_varying : (Cobol_ptree__.Data_descr.data_varying, 'a) Cobol_common.Visitor.fold ; fold_date_time : (Cobol_ptree__.Operands.date_time, 'a) Cobol_common.Visitor.fold ; fold_delete' : (Cobol_ptree__.Branching_statements.delete_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_disable' : (Cobol_ptree__.Operands.mcs_command_operands Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_display' : (Cobol_ptree__.Branching_statements.display_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_display_clause' : (Cobol_ptree__.Branching_statements.display_clause Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_display_items_clauses : (Cobol_ptree__.Branching_statements.display_items_clauses, 'a) Cobol_common.Visitor.fold ; fold_display_target' : (Cobol_ptree__.Branching_statements.display_target Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_display_with_clause' : (Cobol_ptree__.Branching_statements.display_with_clause Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_divide' : (Cobol_ptree__.Branching_statements.divide_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_divide_operands : (Cobol_ptree__.Operands.divide_operands, 'a) Cobol_common.Visitor.fold ; fold_dual_handler : (Cobol_ptree__.Branching_statements.dual_handler, 'a) Cobol_common.Visitor.fold ; fold_effective_arg : (Cobol_ptree__.Terms.effective_arg, 'a) Cobol_common.Visitor.fold ; fold_enable' : (Cobol_ptree__.Operands.mcs_command_operands Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_encoding_endianness : (Cobol_ptree__.Data_descr.encoding_endianness, 'a) Cobol_common.Visitor.fold ; fold_encoding_mode : (Cobol_ptree__.Data_descr.encoding_mode, 'a) Cobol_common.Visitor.fold ; fold_endianness_mode : (Cobol_ptree__.Data_descr.endianness_mode, 'a) Cobol_common.Visitor.fold ; fold_enter' : (Cobol_ptree__.Simple_statements.enter_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_entry' : (Cobol_ptree__.Simple_statements.entry_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_entry_by_clause : (Cobol_ptree__.Simple_statements.entry_by_clause, 'a) Cobol_common.Visitor.fold ; fold_erase_clause : (Cobol_ptree__.Data_descr.erase_clause, 'a) Cobol_common.Visitor.fold ; fold_evaluate' : (Cobol_ptree__.Branching_statements.evaluate_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_evaluate_branch : (Cobol_ptree__.Branching_statements.evaluate_branch, 'a) Cobol_common.Visitor.fold ; fold_exec_block' : (Cobol_common.Exec_block.TYPES.exec_block Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_exec_declarations : (Cobol_common.Exec_block.t, 'a) Cobol_common.Visitor.fold ; fold_exec_declarations' : (Cobol_common.Exec_block.t Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_exit' : (Cobol_ptree__.Simple_statements.exit_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_expr : (Cobol_ptree__.Terms.expression, 'a) Cobol_common.Visitor.fold ; fold_expr' : (Cobol_ptree__.Terms.expression Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_external_clause : ([ Cobol_ptree__.Terms.alnum_ | Cobol_ptree__.Terms.national_ ] Cobol_ptree__.Terms.term option, 'a) Cobol_common.Visitor.fold ; fold_file_block_contents : (Cobol_ptree__.Data_descr.file_block_contents, 'a) Cobol_common.Visitor.fold ; fold_file_clauses : (Cobol_ptree__.Data_sections.file_clauses, 'a) Cobol_common.Visitor.fold ; fold_file_descr : (Cobol_ptree__.Data_sections.file_descr, 'a) Cobol_common.Visitor.fold ; fold_file_descr' : (Cobol_ptree__.Data_sections.file_descr Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_file_fd_clause : (Cobol_ptree__.Data_sections.file_fd_clause, 'a) Cobol_common.Visitor.fold ; fold_file_fd_clause' : (Cobol_ptree__.Data_sections.file_fd_clause Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_file_linage_clause : (Cobol_ptree__.Data_descr.file_linage_clause, 'a) Cobol_common.Visitor.fold ; fold_file_option : (Cobol_ptree__.Operands.file_option, 'a) Cobol_common.Visitor.fold ; fold_file_sd_clause : (Cobol_ptree__.Data_sections.file_sd_clause, 'a) Cobol_common.Visitor.fold ; fold_file_sd_clause' : (Cobol_ptree__.Data_sections.file_sd_clause Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_file_section : (Cobol_ptree__.Data_sections.file_descr Cobol_common.Srcloc.with_loc list, 'a) Cobol_common.Visitor.fold ; fold_fixed : (Cobol_ptree__.Numericals.fixed, 'a) Cobol_common.Visitor.fold ; fold_flat_combined_relation : (Cobol_ptree__.Terms.flat_combined_relation, 'a) Cobol_common.Visitor.fold ; fold_float_content : (Cobol_ptree__.Operands.float_content, 'a) Cobol_common.Visitor.fold ; fold_floating : (Cobol_ptree__.Numericals.floating, 'a) Cobol_common.Visitor.fold ; fold_format_clause : (Cobol_ptree__.Data_descr.format_clause, 'a) Cobol_common.Visitor.fold ; fold_free' : (string Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_generate' : (string Cobol_common.Srcloc.with_loc Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_goback' : (Cobol_ptree__.Branching_statements.goback_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_goto' : (Cobol_ptree__.Branching_statements.goto_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_group_usage_clause : (Cobol_ptree__.Data_descr.group_usage_clause, 'a) Cobol_common.Visitor.fold ; fold_handler' : (Cobol_ptree__.Branching_statements.statement Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_ident : ([ Cobol_ptree__.Terms.base_ident_ | Cobol_ptree__.Terms.refmod_ident_ ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_if' : (Cobol_ptree__.Branching_statements.if_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_init_data_category : (Cobol_ptree__.Simple_statements.init_data_category, 'a) Cobol_common.Visitor.fold ; fold_init_replacing : (Cobol_ptree__.Simple_statements.init_replacing, 'a) Cobol_common.Visitor.fold ; fold_initialize' : (Cobol_ptree__.Simple_statements.initialize_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_initiate' : (string Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_inline_call : (Cobol_ptree__.Terms.inline_call, 'a) Cobol_common.Visitor.fold ; fold_inline_invocation : (Cobol_ptree__.Terms.inline_invocation, 'a) Cobol_common.Visitor.fold ; fold_inspect' : (Cobol_ptree__.Simple_statements.inspect_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_inspect_spec : (Cobol_ptree__.Simple_statements.inspect_spec, 'a) Cobol_common.Visitor.fold ; fold_inspect_where : (Cobol_ptree__.Simple_statements.inspect_direction * [ Cobol_ptree__.Terms.ident_ | Cobol_ptree__.Terms.nonnum_ ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_int : int -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_int_figurative : ([ `Int ] Cobol_ptree__.Terms.figurative, 'a) Cobol_common.Visitor.fold ; fold_integer : (string, 'a) Cobol_common.Visitor.fold ; fold_integer' : (string Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_intrinsic_name : (Cobol_ptree__.Terms.intrinsic_name, 'a) Cobol_common.Visitor.fold ; fold_intrinsic_name' : (Cobol_ptree__.Terms.intrinsic_name Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_invoke' : (Cobol_ptree__.Simple_statements.invoke_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_label_clause : (Cobol_ptree__.Data_descr.label_clause, 'a) Cobol_common.Visitor.fold ; fold_length_of : ([ `LengthOf ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_line_position : (Cobol_ptree__.Data_descr.line_position, 'a) Cobol_common.Visitor.fold ; fold_linkage_section : (_ Cobol_ptree__.Data_sections.item_descr Cobol_common.Srcloc.with_loc list, 'a) Cobol_common.Visitor.fold ; fold_list : 'x. 'x list -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_local_storage_section : (_ Cobol_ptree__.Data_sections.item_descr Cobol_common.Srcloc.with_loc list, 'a) Cobol_common.Visitor.fold ; fold_locale_category : (Cobol_ptree__.Operands.locale_category, 'a) Cobol_common.Visitor.fold ; fold_locale_phrase : (Cobol_ptree__.Data_descr.locale_phrase, 'a) Cobol_common.Visitor.fold ; fold_logop : (Cobol_ptree__.Terms.logop, 'a) Cobol_common.Visitor.fold ; fold_mcs_awaiting_item : (Cobol_ptree__.Operands.mcs_awaiting_item, 'a) Cobol_common.Visitor.fold ; fold_mcs_command_operands : (Cobol_ptree__.Operands.mcs_command_operands, 'a) Cobol_common.Visitor.fold ; fold_mcs_kind : (Cobol_ptree__.Operands.mcs_kind, 'a) Cobol_common.Visitor.fold ; fold_merge' : (Cobol_ptree__.Simple_statements.merge_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_merge_or_sort_target : (Cobol_ptree__.Simple_statements.merge_or_sort_target, 'a) Cobol_common.Visitor.fold ; fold_message_ending_indicator : (Cobol_ptree__.Simple_statements.message_ending_indicator, 'a) Cobol_common.Visitor.fold ; fold_move' : (Cobol_ptree__.Simple_statements.move_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_multiply' : (Cobol_ptree__.Branching_statements.multiply_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_multiply_operands : (Cobol_ptree__.Operands.multiply_operands, 'a) Cobol_common.Visitor.fold ; fold_name : (string, 'a) Cobol_common.Visitor.fold ; fold_name' : (string Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_named_file_option : (Cobol_ptree__.Simple_statements.named_file_option, 'a) Cobol_common.Visitor.fold ; fold_national : (string, 'a) Cobol_common.Visitor.fold ; fold_nel : 'x. 'x Cobol_common.Basics.NEL.t -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_next_group_clause : (Cobol_ptree__.Data_descr.next_group_clause, 'a) Cobol_common.Visitor.fold ; fold_object_ref : (Cobol_ptree__.Terms.object_ref, 'a) Cobol_common.Visitor.fold ; fold_object_reference_kind : (Cobol_ptree__.Data_descr.object_reference_kind, 'a) Cobol_common.Visitor.fold ; fold_object_view : (Cobol_ptree__.Terms.object_view, 'a) Cobol_common.Visitor.fold ; fold_object_view_spec : (Cobol_ptree__.Terms.object_view_spec, 'a) Cobol_common.Visitor.fold ; fold_on_off : (Cobol_ptree__.Operands.on_off, 'a) Cobol_common.Visitor.fold ; fold_open' : (Cobol_ptree__.Simple_statements.open_phrase list Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_open_mode : (Cobol_ptree__.Operands.open_mode, 'a) Cobol_common.Visitor.fold ; fold_open_phrase : (Cobol_ptree__.Simple_statements.open_phrase, 'a) Cobol_common.Visitor.fold ; fold_option : 'x. 'x option -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_perform_inline' : (Cobol_ptree__.Branching_statements.perform_inline_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_perform_mode : (Cobol_ptree__.Branching_statements.perform_mode, 'a) Cobol_common.Visitor.fold ; fold_perform_target' : (Cobol_ptree__.Branching_statements.perform_target_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_picture_clause : (Cobol_ptree__.Data_sections.picture_clause, 'a) Cobol_common.Visitor.fold ; fold_picture_clause' : (Cobol_ptree__.Data_sections.picture_clause Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_picture_string : (string Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_picture_string' : (string Cobol_common.Srcloc.with_loc Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_polarity : (Cobol_ptree__.Data_descr.polarity, 'a) Cobol_common.Visitor.fold ; fold_position : (Cobol_ptree__.Operands.position, 'a) Cobol_common.Visitor.fold ; fold_procedure_name : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_procedure_name' : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_procedure_range : 'x. ('x Cobol_ptree__.Operands.procedure_range, 'a) Cobol_common.Visitor.fold ; fold_property_clause : (Cobol_ptree__.Data_descr.property_clause, 'a) Cobol_common.Visitor.fold ; fold_property_kind : (Cobol_ptree__.Data_descr.property_kind, 'a) Cobol_common.Visitor.fold ; fold_purge' : (string Cobol_common.Srcloc.with_loc Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_qualident : (Cobol_ptree__.Terms.qualident, 'a) Cobol_common.Visitor.fold ; fold_qualname : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term, 'a) Cobol_common.Visitor.fold ; fold_qualname' : ([ Cobol_ptree__.Terms.name_ | Cobol_ptree__.Terms.name Cobol_ptree__.Terms.qual_ ] Cobol_ptree__.Terms.term Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_raise' : (Cobol_ptree__.Operands.raise_operand Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_raising : (Cobol_ptree__.Operands.raising, 'a) Cobol_common.Visitor.fold ; fold_read' : (Cobol_ptree__.Branching_statements.read_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_read_direction : (Cobol_ptree__.Operands.read_direction, 'a) Cobol_common.Visitor.fold ; fold_read_error : (Cobol_ptree__.Branching_statements.read_error, 'a) Cobol_common.Visitor.fold ; fold_read_error_handler : (Cobol_ptree__.Branching_statements.read_error * Cobol_ptree__.Branching_statements.dual_handler, 'a) Cobol_common.Visitor.fold ; fold_read_lock_behavior : (Cobol_ptree__.Operands.read_lock_behavior, 'a) Cobol_common.Visitor.fold ; fold_receive' : (Cobol_ptree__.Branching_statements.receive_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_record_clause : (Cobol_ptree__.Data_descr.record_clause, 'a) Cobol_common.Visitor.fold ; fold_recording_mode : (Cobol_ptree__.Data_descr.recording_mode, 'a) Cobol_common.Visitor.fold ; fold_refmod : (Cobol_ptree__.Terms.refmod, 'a) Cobol_common.Visitor.fold ; fold_release' : (Cobol_ptree__.Simple_statements.release_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_relop : (Cobol_ptree__.Terms.relop, 'a) Cobol_common.Visitor.fold ; fold_rename_item : (Cobol_ptree__.Data_sections.rename_item, 'a) Cobol_common.Visitor.fold ; fold_rename_item' : (Cobol_ptree__.Data_sections.rename_item Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_replacing : (Cobol_ptree__.Simple_statements.replacing_clause Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_replacing_clause : (Cobol_ptree__.Simple_statements.replacing_clause, 'a) Cobol_common.Visitor.fold ; fold_replacing_range_spec : (Cobol_ptree__.Simple_statements.replacing_range_spec, 'a) Cobol_common.Visitor.fold ; fold_report_clause : (Cobol_ptree__.Data_descr.report_clause, 'a) Cobol_common.Visitor.fold ; fold_report_clause' : (Cobol_ptree__.Data_descr.report_clause Cobol_common.Srcloc.TYPES.with_loc, 'a) Cobol_common.Visitor.fold ; fold_report_data_name_or_final : (Cobol_ptree__.Data_descr.report_data_name_or_final, 'a) Cobol_common.Visitor.fold ; fold_report_descr : (Cobol_ptree__.Data_sections.report_descr, 'a) Cobol_common.Visitor.fold ; fold_report_descr' : (Cobol_ptree__.Data_sections.report_descr Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_report_group_clause : (Cobol_ptree__.Data_sections.report_group_clause, 'a) Cobol_common.Visitor.fold ; fold_report_group_clause' : (Cobol_ptree__.Data_sections.report_group_clause Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_report_group_item : (Cobol_ptree__.Data_sections.report_group_item, 'a) Cobol_common.Visitor.fold ; fold_report_group_item' : (Cobol_ptree__.Data_sections.report_group_item Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_report_screen_usage_clause : (Cobol_ptree__.Data_descr.report_screen_usage_clause, 'a) Cobol_common.Visitor.fold ; fold_report_section : (Cobol_ptree__.Data_sections.report_descr Cobol_common.Srcloc.with_loc list, 'a) Cobol_common.Visitor.fold ; fold_report_type_clause : (Cobol_ptree__.Data_descr.report_type_clause, 'a) Cobol_common.Visitor.fold ; fold_resume' : (Cobol_ptree__.Branching_statements.resume_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_retry_clause : (Cobol_ptree__.Operands.retry_clause, 'a) Cobol_common.Visitor.fold ; fold_return' : (Cobol_ptree__.Branching_statements.return_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_rewrite' : (Cobol_ptree__.Branching_statements.rewrite_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_rounded_ident : ([ Cobol_ptree__.Terms.base_ident_ | Cobol_ptree__.Terms.refmod_ident_ ] Cobol_ptree__.Terms.term Cobol_ptree__.Operands.rounded, 'a) Cobol_common.Visitor.fold ; fold_rounding : (Cobol_ptree__.Terms.rounding, 'a) Cobol_common.Visitor.fold ; fold_rounding_mode : (Cobol_ptree__.Terms.rounding_mode, 'a) Cobol_common.Visitor.fold ; fold_screen_attribute : (Cobol_ptree__.Operands.screen_attribute, 'a) Cobol_common.Visitor.fold ; fold_screen_attribute_clause : (Cobol_ptree__.Data_descr.screen_attribute_clause, 'a) Cobol_common.Visitor.fold ; fold_screen_clause : (Cobol_ptree__.Data_sections.screen_clause, 'a) Cobol_common.Visitor.fold ; fold_screen_clause' : (Cobol_ptree__.Data_sections.screen_clause Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_screen_item : (Cobol_ptree__.Data_sections.screen_item, 'a) Cobol_common.Visitor.fold ; fold_screen_item' : (Cobol_ptree__.Data_sections.screen_item Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_screen_line_column_clause : (Cobol_ptree__.Data_descr.screen_line_column_clause, 'a) Cobol_common.Visitor.fold ; fold_screen_section : (_ Cobol_ptree__.Data_sections.item_descr Cobol_common.Srcloc.with_loc list, 'a) Cobol_common.Visitor.fold ; fold_search' : (Cobol_ptree__.Branching_statements.search_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_search_all' : (Cobol_ptree__.Branching_statements.search_all_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_search_condition : (Cobol_ptree__.Operands.search_condition, 'a) Cobol_common.Visitor.fold ; fold_search_when_clause' : (Cobol_ptree__.Branching_statements.search_when_clause Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_select_when_clause : (Cobol_ptree__.Data_descr.select_when_clause, 'a) Cobol_common.Visitor.fold ; fold_selection_object : (Cobol_ptree__.Operands.selection_object, 'a) Cobol_common.Visitor.fold ; fold_selection_subject : (Cobol_ptree__.Operands.selection_subject, 'a) Cobol_common.Visitor.fold ; fold_send' : (Cobol_ptree__.Simple_statements.send_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_send_operands : (Cobol_ptree__.Simple_statements.send_operands, 'a) Cobol_common.Visitor.fold ; fold_set' : (Cobol_ptree__.Simple_statements.set_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_set_ambiguous_method : (Cobol_ptree__.Operands.set_ambiguous_method, 'a) Cobol_common.Visitor.fold ; fold_set_attribute_switch : (Cobol_ptree__.Operands.set_attribute_switch, 'a) Cobol_common.Visitor.fold ; fold_set_condition_spec : (Cobol_ptree__.Simple_statements.set_condition_spec, 'a) Cobol_common.Visitor.fold ; fold_set_locale_source : (Cobol_ptree__.Operands.set_locale_source, 'a) Cobol_common.Visitor.fold ; fold_set_locale_target : (Cobol_ptree__.Operands.set_locale_target, 'a) Cobol_common.Visitor.fold ; fold_set_save_locale : (Cobol_ptree__.Operands.set_save_locale, 'a) Cobol_common.Visitor.fold ; fold_set_switch_spec : (Cobol_ptree__.Simple_statements.set_switch_spec, 'a) Cobol_common.Visitor.fold ; fold_sharing_mode : (Cobol_ptree__.Operands.sharing_mode, 'a) Cobol_common.Visitor.fold ; fold_sign : ([ `Strict ] Cobol_ptree__.Terms.sign_cond, 'a) Cobol_common.Visitor.fold ; fold_sign_clause : (Cobol_ptree__.Data_descr.sign_clause, 'a) Cobol_common.Visitor.fold ; fold_signz : ([ `Loose ] Cobol_ptree__.Terms.sign_cond, 'a) Cobol_common.Visitor.fold ; fold_simple_cond : ([ `Simple ] Cobol_ptree__.Terms.cond, 'a) Cobol_common.Visitor.fold ; fold_sort' : (Cobol_ptree__.Simple_statements.sort_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_sort_direction : (Cobol_ptree__.Data_descr.sort_direction, 'a) Cobol_common.Visitor.fold ; fold_sort_source : (Cobol_ptree__.Simple_statements.sort_source, 'a) Cobol_common.Visitor.fold ; fold_sort_spec : (Cobol_ptree__.Data_descr.sort_spec, 'a) Cobol_common.Visitor.fold ; fold_source_destination_clause : (Cobol_ptree__.Data_descr.source_destination_clause, 'a) Cobol_common.Visitor.fold ; fold_stage : (Cobol_ptree__.Operands.stage, 'a) Cobol_common.Visitor.fold ; fold_start' : (Cobol_ptree__.Branching_statements.start_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_start_position : (Cobol_ptree__.Operands.start_position, 'a) Cobol_common.Visitor.fold ; fold_statement' : (Cobol_ptree__.Branching_statements.statement Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_statements' : (Cobol_ptree__.Branching_statements.statement Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_status_kind : (Cobol_ptree__.Simple_statements.status_kind, 'a) Cobol_common.Visitor.fold ; fold_stop' : (Cobol_ptree__.Simple_statements.stop_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_stop_arg : (Cobol_ptree__.Simple_statements.stop_arg, 'a) Cobol_common.Visitor.fold ; fold_stop_run : Cobol_ptree__.Simple_statements.stop_run_status -> 'a -> 'a Cobol_common.Visitor.action ; fold_stop_run_return : (Cobol_ptree__.Simple_statements.stop_run_return, 'a) Cobol_common.Visitor.fold ; fold_string : string -> 'a -> 'a Cobol_common.Visitor.Fold.action ; fold_string_delimiter : (Cobol_ptree__.Operands.string_delimiter, 'a) Cobol_common.Visitor.fold ; fold_string_source : (Cobol_ptree__.Operands.string_source, 'a) Cobol_common.Visitor.fold ; fold_string_stmt' : (Cobol_ptree__.Branching_statements.string_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_subscript : (Cobol_ptree__.Terms.subscript, 'a) Cobol_common.Visitor.fold ; fold_subtract' : (Cobol_ptree__.Branching_statements.basic_arithmetic_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_sum_phrase : (Cobol_ptree__.Data_descr.sum_phrase, 'a) Cobol_common.Visitor.fold ; fold_synchronized_clause : (Cobol_ptree__.Data_descr.synchronized_clause, 'a) Cobol_common.Visitor.fold ; fold_table_data_value : (Cobol_ptree__.Data_descr.table_data_value, 'a) Cobol_common.Visitor.fold ; fold_tallying : (Cobol_ptree__.Simple_statements.tallying, 'a) Cobol_common.Visitor.fold ; fold_tallying_clause' : (Cobol_ptree__.Simple_statements.tallying_clause Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_tallying_spec : (Cobol_ptree__.Simple_statements.tallying_spec, 'a) Cobol_common.Visitor.fold ; fold_terminate' : (string Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_transform' : (Cobol_ptree__.Simple_statements.transform_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_trimming_tip : (Cobol_ptree__.Terms.trimming_tip, 'a) Cobol_common.Visitor.fold ; fold_unlock' : (Cobol_ptree__.Simple_statements.unlock_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_unop : (Cobol_ptree__.Terms.unop, 'a) Cobol_common.Visitor.fold ; fold_unstring' : (Cobol_ptree__.Branching_statements.unstring_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_unstring_delimiter : (Cobol_ptree__.Operands.unstring_delimiter, 'a) Cobol_common.Visitor.fold ; fold_unstring_target : (Cobol_ptree__.Operands.unstring_target, 'a) Cobol_common.Visitor.fold ; fold_usage_clause : (Cobol_ptree__.Data_descr.usage_clause, 'a) Cobol_common.Visitor.fold ; fold_validate' : (_ Cobol_ptree__.Terms.term list Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_validation_clause : (Cobol_ptree__.Data_descr.validation_clause, 'a) Cobol_common.Visitor.fold ; fold_valueof_clause : (Cobol_ptree__.Data_descr.valueof_clause, 'a) Cobol_common.Visitor.fold ; fold_varying_phrase : (Cobol_ptree__.Branching_statements.varying_phrase, 'a) Cobol_common.Visitor.fold ; fold_varying_phrase' : (Cobol_ptree__.Branching_statements.varying_phrase Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_working_storage_section : (_ Cobol_ptree__.Data_sections.item_descr Cobol_common.Srcloc.with_loc list, 'a) Cobol_common.Visitor.fold ; fold_write' : (Cobol_ptree__.Branching_statements.write_stmt Cobol_common.Srcloc.with_loc, 'a) Cobol_common.Visitor.fold ; fold_write_error : (Cobol_ptree__.Branching_statements.write_error, 'a) Cobol_common.Visitor.fold ; fold_write_error_handler : (Cobol_ptree__.Branching_statements.write_error * Cobol_ptree__.Branching_statements.dual_handler, 'a) Cobol_common.Visitor.fold ; fold_write_target : (Cobol_ptree__.Operands.write_target, 'a) Cobol_common.Visitor.fold.. > -> Cobol_ptree__.Simple_statements.stop_run_status -> 'a -> 'a
val fold_string_delimiter : 'a {folder}8 -> Cobol_ptree__.Operands.string_delimiter -> 'a -> 'a
val fold_string_source : 'a {folder}8 -> Cobol_ptree__.Operands.string_source -> 'a -> 'a
val fold_unstring_delimiter : 'a {folder}8 -> Cobol_ptree__.Operands.unstring_delimiter -> 'a -> 'a
val fold_unstring_target : 'a {folder}8 -> Cobol_ptree__.Operands.unstring_target -> 'a -> 'a
val fold_write_error : 'a {folder}8 -> Cobol_ptree__.Branching_statements.write_error -> 'a -> 'a
val fold_message_ending_indicator : 'a {folder}8 -> Cobol_ptree__.Simple_statements.message_ending_indicator -> 'a -> 'a
val fold_send_operands : 'a {folder}8 -> Cobol_ptree__.Simple_statements.send_operands -> 'a -> 'a
val fold_sort_source : 'a {folder}8 -> Cobol_ptree__.Simple_statements.sort_source -> 'a -> 'a
val fold_allocate' : 'a {folder}8 -> Cobol_ptree__.Simple_statements.allocate_stmt Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_alter' : 'a {folder}8 -> Cobol_ptree__.Simple_statements.alter_operands Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_cancel' : 'a {folder}8 -> _ Cobol_ptree__.Terms.term list Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_close' : 'a {folder}8 -> Cobol_ptree__.Simple_statements.close_phrase list Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_exit' : 'a {folder}8 -> Cobol_ptree__.Simple_statements.exit_stmt Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_free' : 'a {folder}8 -> string Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_generate' : 'a {folder}8 -> string Cobol_common.Srcloc.with_loc Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_goback' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.goback_stmt Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_goto' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.goto_stmt Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_initialize' : 'a {folder}8 -> Cobol_ptree__.Simple_statements.initialize_stmt Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_initiate' : 'a {folder}8 -> string Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_inspect' : 'a {folder}8 -> Cobol_ptree__.Simple_statements.inspect_stmt Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_invoke' : 'a {folder}8 -> Cobol_ptree__.Simple_statements.invoke_stmt Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_merge' : 'a {folder}8 -> Cobol_ptree__.Simple_statements.merge_stmt Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_move' : 'a {folder}8 -> Cobol_ptree__.Simple_statements.move_stmt Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_open' : 'a {folder}8 -> Cobol_ptree__.Simple_statements.open_phrase list Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_raise' : 'a {folder}8 -> Cobol_ptree__.Operands.raise_operand Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_release' : 'a {folder}8 -> Cobol_ptree__.Simple_statements.release_stmt Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_resume' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.resume_stmt Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_send' : 'a {folder}8 -> Cobol_ptree__.Simple_statements.send_stmt Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_set' : 'a {folder}8 -> Cobol_ptree__.Simple_statements.set_stmt Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_sort' : 'a {folder}8 -> Cobol_ptree__.Simple_statements.sort_stmt Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_stop_run_return : 'a {folder}8 -> Cobol_ptree__.Simple_statements.stop_run_return -> 'a -> 'a
val fold_stop_arg : 'a {folder}8 -> Cobol_ptree__.Simple_statements.stop_arg -> 'a -> 'a
val fold_stop' : 'a {folder}8 -> Cobol_ptree__.Simple_statements.stop_stmt Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_terminate' : 'a {folder}8 -> string Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_transform' : 'a {folder}8 -> Cobol_ptree__.Simple_statements.transform_stmt Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_unlock' : 'a {folder}8 -> Cobol_ptree__.Simple_statements.unlock_stmt Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_selection_subject : 'a {folder}8 -> Cobol_ptree__.Operands.selection_subject -> 'a -> 'a
val fold_selection_object : 'a {folder}8 -> Cobol_ptree__.Operands.selection_object -> 'a -> 'a
val fold_validate' : 'a {folder}8 -> _ Cobol_ptree__.Terms.term list Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_statement' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.statement Cobol_common.Srcloc.with_loc -> 'a -> 'a
val fold_statements : 'a {folder}8 -> Cobol_ptree__.Branching_statements.statement Cobol_common.Srcloc.with_loc list -> 'a -> 'a
val fold_statements' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.statement Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_handler : 'a {folder}8 -> Cobol_ptree__.Branching_statements.statement Cobol_common.Srcloc.with_loc list -> 'a -> 'a
val fold_dual_handler : 'a {folder}8 -> Cobol_ptree__.Branching_statements.dual_handler -> 'a -> 'a
val fold_basic_arith_stmt : 'a {folder}8 -> Cobol_ptree__.Branching_statements.basic_arithmetic_stmt -> 'a -> 'a
val fold_accept' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.accept_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_accept_misc : 'a {folder}8 -> Cobol_ptree__.Branching_statements.accept_misc -> 'a -> 'a
val fold_accept_clause' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.accept_clause Cobol_common.Srcloc.with_loc -> 'a -> 'a
val fold_accept_with_clause' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.accept_with_clause Cobol_common.Srcloc.with_loc -> 'a -> 'a
val fold_add' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.basic_arithmetic_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_call' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.call_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_call_error_handler : 'a {folder}8 -> Cobol_ptree__.Branching_statements.call_error_handler -> 'a -> 'a
val fold_compute' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.compute_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_delete' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.delete_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_disable' : 'a {folder}8 -> Cobol_ptree__.Operands.mcs_command_operands Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_display' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.display_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_display_items_clauses : 'a {folder}8 -> Cobol_ptree__.Branching_statements.display_items_clauses -> 'a -> 'a
val fold_display_clause' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.display_clause Cobol_common.Srcloc.with_loc -> 'a -> 'a
val fold_display_target' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.display_target Cobol_common.Srcloc.with_loc -> 'a -> 'a
val fold_display_with_clause' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.display_with_clause Cobol_common.Srcloc.with_loc -> 'a -> 'a
val fold_divide' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.divide_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_enable' : 'a {folder}8 -> Cobol_ptree__.Operands.mcs_command_operands Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_enter' : 'a {folder}8 -> Cobol_ptree__.Simple_statements.enter_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_entry_by_clause : 'a {folder}8 -> Cobol_ptree__.Simple_statements.entry_by_clause -> 'a -> 'a
val fold_entry' : 'a {folder}8 -> Cobol_ptree__.Simple_statements.entry_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_evaluate' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.evaluate_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_evaluate_branch : 'a {folder}8 -> Cobol_ptree__.Branching_statements.evaluate_branch -> 'a -> 'a
val fold_if' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.if_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_multiply' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.multiply_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_perform_inline' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.perform_inline_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_perform_target' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.perform_target_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_read_error_handler : 'a {folder}8 -> (Cobol_ptree__.Branching_statements.read_error * Cobol_ptree__.Branching_statements.dual_handler) -> 'a -> 'a
val fold_read' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.read_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_receive' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.receive_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_return' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.return_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_rewrite' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.rewrite_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_search_when_clause' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.search_when_clause Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_search' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.search_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_search_all' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.search_all_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_start' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.start_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_string_stmt' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.string_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_subtract' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.basic_arithmetic_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_unstring' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.unstring_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_write_error_handler : 'a {folder}8 -> (Cobol_ptree__.Branching_statements.write_error * Cobol_ptree__.Branching_statements.dual_handler) -> 'a -> 'a
val fold_write' : 'a {folder}8 -> Cobol_ptree__.Branching_statements.write_stmt Cobol_common__Srcloc.TYPES.with_loc -> 'a -> 'a
include module type of struct include Proc_division_visitor end
class virtual 'a {folder}9 : object ... end
val fold_use_exception_on : 'a {folder}9 -> Cobol_ptree__.Proc_division.use_file_exception_on -> 'a -> 'a
val fold_use_for_debugging_target : 'a {folder}9 -> Cobol_ptree__.Proc_division.use_for_debugging_target -> 'a -> 'a
val fold_use_after_exception : 'a {folder}9 -> Cobol_ptree__.Proc_division.use_after_exception -> 'a -> 'a
val fold_declarative_use : 'a {folder}9 -> Cobol_ptree__.Proc_division.declarative_use -> 'a -> 'a
val fold_declarative : 'a {folder}9 -> Cobol_ptree__.Proc_division.declarative -> 'a -> 'a
val fold_declarative' : 'a {folder}9 -> Cobol_ptree__.Proc_division.declarative Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_paragraph : 'a {folder}9 -> Cobol_ptree__.Proc_division.paragraph -> 'a -> 'a
val fold_paragraph' : 'a {folder}9 -> Cobol_ptree__.Proc_division.paragraph Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_by_reference : 'a {folder}9 -> Cobol_ptree__.Proc_division.by_reference -> 'a -> 'a
val fold_procedure_by_clause : 'a {folder}9 -> Cobol_ptree__.Proc_division.procedure_by_clause -> 'a -> 'a
val fold_procedure_by_clause' : 'a {folder}9 -> Cobol_ptree__.Proc_division.procedure_by_clause Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_raising_phrase : 'a {folder}9 -> Cobol_ptree__.Proc_division.raising_phrase -> 'a -> 'a
val fold_raising_phrase' : 'a {folder}9 -> Cobol_ptree__.Proc_division.raising_phrase Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_procedure_calling_style : 'a {folder}9 -> Cobol_ptree__.Proc_division.procedure_calling_style -> 'a -> 'a
val fold_procedure_args : 'a {folder}9 -> Cobol_ptree__.Proc_division.procedure_args -> 'a -> 'a
val fold_procedure_division : 'a {folder}9 -> Cobol_ptree__.Proc_division.procedure_division -> 'a -> 'a
val fold_procedure_division' : 'a {folder}9 -> Cobol_ptree__.Proc_division.procedure_division Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
class virtual 'a folder : object ... end
val fold_options_paragraph'_opt : 'a folder -> Cobol_ptree__.Misc_sections.options_clause Cobol_common.Srcloc.with_loc list Cobol_common.Srcloc.TYPES.with_loc option -> 'a -> 'a
val fold_environment_division'_opt : 'a folder -> Cobol_ptree__.Env_division.environment_division Cobol_common.Srcloc.TYPES.with_loc option -> 'a -> 'a
val fold_data_division'_opt : 'a folder -> Cobol_ptree__.Data_division.data_division Cobol_common.Srcloc.TYPES.with_loc option -> 'a -> 'a
val fold_procedure_division'_opt : 'a folder -> Cobol_ptree__.Proc_division.procedure_division Cobol_common.Srcloc.TYPES.with_loc option -> 'a -> 'a
val fold_program_unit : 'a folder -> Cobol_ptree__.Compilation_group.program_unit -> 'a -> 'a
val fold_nested_programs : 'a folder -> Cobol_ptree__.Compilation_group.program_unit Cobol_common.Srcloc.with_loc list -> 'a -> 'a
val fold_program_unit' : 'a folder -> Cobol_ptree__.Compilation_group.program_unit Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_function_unit : 'a folder -> Cobol_ptree__.Compilation_group.function_unit -> 'a -> 'a
val fold_function_unit' : 'a folder -> Cobol_ptree__.Compilation_group.function_unit Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_method_kind : 'a folder -> Cobol_ptree__.Compilation_group.method_kind -> 'a -> 'a
val fold_method_definition : 'a folder -> Cobol_ptree__.Compilation_group.method_definition -> 'a -> 'a
val fold_method_definition' : 'a folder -> Cobol_ptree__.Compilation_group.method_definition Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_method_definitions : 'a folder -> Cobol_ptree__.Compilation_group.method_definition Cobol_common.Srcloc.TYPES.with_loc list -> 'a -> 'a
val fold_method_definitions' : 'a folder -> Cobol_ptree__.Compilation_group.method_definition Cobol_common.Srcloc.TYPES.with_loc list Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_method_definitions'_opt : 'a folder -> Cobol_ptree__.Compilation_group.method_definition Cobol_common.Srcloc.TYPES.with_loc list Cobol_common.Srcloc.TYPES.with_loc option -> 'a -> 'a
val fold_factory_definition : 'a folder -> Cobol_ptree__.Compilation_group.factory_definition -> 'a -> 'a
val fold_factory_definition' : 'a folder -> Cobol_ptree__.Compilation_group.factory_definition Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_instance_definition : 'a folder -> Cobol_ptree__.Compilation_group.instance_definition -> 'a -> 'a
val fold_instance_definition' : 'a folder -> Cobol_ptree__.Compilation_group.instance_definition Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_class_definition' : 'a folder -> Cobol_ptree__.Compilation_group.class_definition Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_interface_definition' : 'a folder -> Cobol_ptree__.Compilation_group.interface_definition Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_compilation_unit' : 'a folder -> Cobol_ptree__.Compilation_group.compilation_unit Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_control_division' : 'a folder -> 'a Cobol_common.Visitor.folder -> unit Cobol_common.Srcloc.TYPES.with_loc -> 'a -> 'a
val fold_compilation_group : 'a folder -> Cobol_ptree__.Compilation_group.compilation_group -> 'a -> 'a