# Module Core_gc.Stat.Fields

    module Fields: sig .. end

    val names : string list

    val stack_size : (Core_gc.Stat.t, int) Fieldslib.Field.t

    val top_heap_words : (Core_gc.Stat.t, int) Fieldslib.Field.t

    val compactions : (Core_gc.Stat.t, int) Fieldslib.Field.t

    val fragments : (Core_gc.Stat.t, int) Fieldslib.Field.t

    val largest_free : (Core_gc.Stat.t, int) Fieldslib.Field.t

    val free_blocks : (Core_gc.Stat.t, int) Fieldslib.Field.t

    val free_words : (Core_gc.Stat.t, int) Fieldslib.Field.t

    val live_blocks : (Core_gc.Stat.t, int) Fieldslib.Field.t

    val live_words : (Core_gc.Stat.t, int) Fieldslib.Field.t

    val heap_chunks : (Core_gc.Stat.t, int) Fieldslib.Field.t

    val heap_words : (Core_gc.Stat.t, int) Fieldslib.Field.t

    val major_collections : (Core_gc.Stat.t, int) Fieldslib.Field.t

    val minor_collections : (Core_gc.Stat.t, int) Fieldslib.Field.t

    val major_words : (Core_gc.Stat.t, float) Fieldslib.Field.t

    val promoted_words : (Core_gc.Stat.t, float) Fieldslib.Field.t

    val minor_words : (Core_gc.Stat.t, float) Fieldslib.Field.t

    val fold : init:'acc__ ->
           minor_words:('acc__ -> (Core_gc.Stat.t, float) Fieldslib.Field.t -> 'acc__) ->
           promoted_words:('acc__ -> (Core_gc.Stat.t, float) Fieldslib.Field.t -> 'acc__) ->
           major_words:('acc__ -> (Core_gc.Stat.t, float) Fieldslib.Field.t -> 'acc__) ->
           minor_collections:('acc__ ->
                              (Core_gc.Stat.t, int) Fieldslib.Field.t -> 'acc__) ->
           major_collections:('acc__ ->
                              (Core_gc.Stat.t, int) Fieldslib.Field.t -> 'acc__) ->
           heap_words:('acc__ -> (Core_gc.Stat.t, int) Fieldslib.Field.t -> 'acc__) ->
           heap_chunks:('acc__ -> (Core_gc.Stat.t, int) Fieldslib.Field.t -> 'acc__) ->
           live_words:('acc__ -> (Core_gc.Stat.t, int) Fieldslib.Field.t -> 'acc__) ->
           live_blocks:('acc__ -> (Core_gc.Stat.t, int) Fieldslib.Field.t -> 'acc__) ->
           free_words:('acc__ -> (Core_gc.Stat.t, int) Fieldslib.Field.t -> 'acc__) ->
           free_blocks:('acc__ -> (Core_gc.Stat.t, int) Fieldslib.Field.t -> 'acc__) ->
           largest_free:('acc__ -> (Core_gc.Stat.t, int) Fieldslib.Field.t -> 'acc__) ->
           fragments:('acc__ -> (Core_gc.Stat.t, int) Fieldslib.Field.t -> 'acc__) ->
           compactions:('acc__ -> (Core_gc.Stat.t, int) Fieldslib.Field.t -> 'acc__) ->
           top_heap_words:('acc__ -> (Core_gc.Stat.t, int) Fieldslib.Field.t -> 'acc__) ->
           stack_size:('acc__ -> (Core_gc.Stat.t, int) Fieldslib.Field.t -> 'acc__) ->
           'acc__

    val make_creator : minor_words:((Core_gc.Stat.t, float) Fieldslib.Field.t ->
                        'compile_acc__ -> ('input__ -> float) * 'compile_acc__) ->
           promoted_words:((Core_gc.Stat.t, float) Fieldslib.Field.t ->
                           'compile_acc__ -> ('input__ -> float) * 'compile_acc__) ->
           major_words:((Core_gc.Stat.t, float) Fieldslib.Field.t ->
                        'compile_acc__ -> ('input__ -> float) * 'compile_acc__) ->
           minor_collections:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                              'compile_acc__ -> ('input__ -> int) * 'compile_acc__) ->
           major_collections:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                              'compile_acc__ -> ('input__ -> int) * 'compile_acc__) ->
           heap_words:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                       'compile_acc__ -> ('input__ -> int) * 'compile_acc__) ->
           heap_chunks:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                        'compile_acc__ -> ('input__ -> int) * 'compile_acc__) ->
           live_words:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                       'compile_acc__ -> ('input__ -> int) * 'compile_acc__) ->
           live_blocks:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                        'compile_acc__ -> ('input__ -> int) * 'compile_acc__) ->
           free_words:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                       'compile_acc__ -> ('input__ -> int) * 'compile_acc__) ->
           free_blocks:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                        'compile_acc__ -> ('input__ -> int) * 'compile_acc__) ->
           largest_free:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                         'compile_acc__ -> ('input__ -> int) * 'compile_acc__) ->
           fragments:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                      'compile_acc__ -> ('input__ -> int) * 'compile_acc__) ->
           compactions:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                        'compile_acc__ -> ('input__ -> int) * 'compile_acc__) ->
           top_heap_words:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                           'compile_acc__ -> ('input__ -> int) * 'compile_acc__) ->
           stack_size:((Core_gc.Stat.t, int) Fieldslib.Field.t ->
                       'compile_acc__ -> ('input__ -> int) * 'compile_acc__) ->
           'compile_acc__ -> ('input__ -> Core_gc.Stat.t) * 'compile_acc__

    val create : minor_words:float ->
           promoted_words:float ->
           major_words:float ->
           minor_collections:int ->
           major_collections:int ->
           heap_words:int ->
           heap_chunks:int ->
           live_words:int ->
           live_blocks:int ->
           free_words:int ->
           free_blocks:int ->
           largest_free:int ->
           fragments:int ->
           compactions:int -> top_heap_words:int -> stack_size:int -> Core_gc.Stat.t

    val map : minor_words:((Core_gc.Stat.t, float) Fieldslib.Field.t -> float) ->
           promoted_words:((Core_gc.Stat.t, float) Fieldslib.Field.t -> float) ->
           major_words:((Core_gc.Stat.t, float) Fieldslib.Field.t -> float) ->
           minor_collections:((Core_gc.Stat.t, int) Fieldslib.Field.t -> int) ->
           major_collections:((Core_gc.Stat.t, int) Fieldslib.Field.t -> int) ->
           heap_words:((Core_gc.Stat.t, int) Fieldslib.Field.t -> int) ->
           heap_chunks:((Core_gc.Stat.t, int) Fieldslib.Field.t -> int) ->
           live_words:((Core_gc.Stat.t, int) Fieldslib.Field.t -> int) ->
           live_blocks:((Core_gc.Stat.t, int) Fieldslib.Field.t -> int) ->
           free_words:((Core_gc.Stat.t, int) Fieldslib.Field.t -> int) ->
           free_blocks:((Core_gc.Stat.t, int) Fieldslib.Field.t -> int) ->
           largest_free:((Core_gc.Stat.t, int) Fieldslib.Field.t -> int) ->
           fragments:((Core_gc.Stat.t, int) Fieldslib.Field.t -> int) ->
           compactions:((Core_gc.Stat.t, int) Fieldslib.Field.t -> int) ->
           top_heap_words:((Core_gc.Stat.t, int) Fieldslib.Field.t -> int) ->
           stack_size:((Core_gc.Stat.t, int) Fieldslib.Field.t -> int) -> Core_gc.Stat.t

    val iter : minor_words:((Core_gc.Stat.t, float) Fieldslib.Field.t -> unit) ->
           promoted_words:((Core_gc.Stat.t, float) Fieldslib.Field.t -> unit) ->
           major_words:((Core_gc.Stat.t, float) Fieldslib.Field.t -> unit) ->
           minor_collections:((Core_gc.Stat.t, int) Fieldslib.Field.t -> unit) ->
           major_collections:((Core_gc.Stat.t, int) Fieldslib.Field.t -> unit) ->
           heap_words:((Core_gc.Stat.t, int) Fieldslib.Field.t -> unit) ->
           heap_chunks:((Core_gc.Stat.t, int) Fieldslib.Field.t -> unit) ->
           live_words:((Core_gc.Stat.t, int) Fieldslib.Field.t -> unit) ->
           live_blocks:((Core_gc.Stat.t, int) Fieldslib.Field.t -> unit) ->
           free_words:((Core_gc.Stat.t, int) Fieldslib.Field.t -> unit) ->
           free_blocks:((Core_gc.Stat.t, int) Fieldslib.Field.t -> unit) ->
           largest_free:((Core_gc.Stat.t, int) Fieldslib.Field.t -> unit) ->
           fragments:((Core_gc.Stat.t, int) Fieldslib.Field.t -> unit) ->
           compactions:((Core_gc.Stat.t, int) Fieldslib.Field.t -> unit) ->
           top_heap_words:((Core_gc.Stat.t, int) Fieldslib.Field.t -> unit) ->
           stack_size:((Core_gc.Stat.t, int) Fieldslib.Field.t -> unit) -> unit

    val for_all : minor_words:((Core_gc.Stat.t, float) Fieldslib.Field.t -> bool) ->
           promoted_words:((Core_gc.Stat.t, float) Fieldslib.Field.t -> bool) ->
           major_words:((Core_gc.Stat.t, float) Fieldslib.Field.t -> bool) ->
           minor_collections:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           major_collections:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           heap_words:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           heap_chunks:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           live_words:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           live_blocks:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           free_words:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           free_blocks:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           largest_free:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           fragments:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           compactions:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           top_heap_words:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           stack_size:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) -> bool

    val exists : minor_words:((Core_gc.Stat.t, float) Fieldslib.Field.t -> bool) ->
           promoted_words:((Core_gc.Stat.t, float) Fieldslib.Field.t -> bool) ->
           major_words:((Core_gc.Stat.t, float) Fieldslib.Field.t -> bool) ->
           minor_collections:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           major_collections:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           heap_words:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           heap_chunks:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           live_words:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           live_blocks:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           free_words:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           free_blocks:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           largest_free:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           fragments:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           compactions:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           top_heap_words:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) ->
           stack_size:((Core_gc.Stat.t, int) Fieldslib.Field.t -> bool) -> bool

    val to_list : minor_words:((Core_gc.Stat.t, float) Fieldslib.Field.t -> 'elem__) ->
           promoted_words:((Core_gc.Stat.t, float) Fieldslib.Field.t -> 'elem__) ->
           major_words:((Core_gc.Stat.t, float) Fieldslib.Field.t -> 'elem__) ->
           minor_collections:((Core_gc.Stat.t, int) Fieldslib.Field.t -> 'elem__) ->
           major_collections:((Core_gc.Stat.t, int) Fieldslib.Field.t -> 'elem__) ->
           heap_words:((Core_gc.Stat.t, int) Fieldslib.Field.t -> 'elem__) ->
           heap_chunks:((Core_gc.Stat.t, int) Fieldslib.Field.t -> 'elem__) ->
           live_words:((Core_gc.Stat.t, int) Fieldslib.Field.t -> 'elem__) ->
           live_blocks:((Core_gc.Stat.t, int) Fieldslib.Field.t -> 'elem__) ->
           free_words:((Core_gc.Stat.t, int) Fieldslib.Field.t -> 'elem__) ->
           free_blocks:((Core_gc.Stat.t, int) Fieldslib.Field.t -> 'elem__) ->
           largest_free:((Core_gc.Stat.t, int) Fieldslib.Field.t -> 'elem__) ->
           fragments:((Core_gc.Stat.t, int) Fieldslib.Field.t -> 'elem__) ->
           compactions:((Core_gc.Stat.t, int) Fieldslib.Field.t -> 'elem__) ->
           top_heap_words:((Core_gc.Stat.t, int) Fieldslib.Field.t -> 'elem__) ->
           stack_size:((Core_gc.Stat.t, int) Fieldslib.Field.t -> 'elem__) ->
           'elem__ list

    val map_poly : ([< `Read | `Set_and_create ], Core_gc.Stat.t, 'x0) Fieldslib.Field.user ->
           'x0 list

    module Direct: sig .. end