Fields (mina_base.Mina_base.Epoch_ledger.Poly.Stable.V1.Fields)

val names : string list

val total_currency : 
  ( [< `Read | `Set_and_create ], ( 'a, 'amount ) t, 'amount0 )
    Fieldslib.Field.t_with_perm

val hash : 
  ( [< `Read | `Set_and_create ], ( 'ledger_hash, 'a ) t, 'ledger_hash0 )
    Fieldslib.Field.t_with_perm

val make_creator : 
  hash:
    ( ( [< `Read | `Set_and_create ], ( 'a, 'b ) t, 'a )
        Fieldslib.Field.t_with_perm ->
      'c ->
      ( 'd -> 'e ) * 'f ) ->
  total_currency:
    ( ( [< `Read | `Set_and_create ], ( 'g, 'h ) t, 'h )
        Fieldslib.Field.t_with_perm ->
      'i ->
      ( 'j -> 'k ) * 'l ) ->
  'm ->
  ( 'n -> ( 'o, 'p ) t ) * 'q

val create : hash:'a -> total_currency:'b -> ( 'c, 'd ) t

val map : 
  hash:
    ( ( [< `Read | `Set_and_create ], ( 'a, 'b ) t, 'a )
        Fieldslib.Field.t_with_perm ->
      'c ) ->
  total_currency:
    ( ( [< `Read | `Set_and_create ], ( 'd, 'e ) t, 'e )
        Fieldslib.Field.t_with_perm ->
      'f ) ->
  ( 'g, 'h ) t

val iter : 
  hash:
    ( ( [< `Read | `Set_and_create ], ( 'a, 'b ) t, 'a )
        Fieldslib.Field.t_with_perm ->
      unit ) ->
  total_currency:
    ( ( [< `Read | `Set_and_create ], ( 'c, 'd ) t, 'd )
        Fieldslib.Field.t_with_perm ->
      unit ) ->
  unit

val fold : 
  init:'a ->
  hash:
    ( 'b ->
      ( [< `Read | `Set_and_create ], ( 'c, 'd ) t, 'c )
        Fieldslib.Field.t_with_perm ->
      'e ) ->
  total_currency:
    ( 'f ->
      ( [< `Read | `Set_and_create ], ( 'g, 'h ) t, 'h )
        Fieldslib.Field.t_with_perm ->
      'i ) ->
  'j

val map_poly : 
  ( [< `Read | `Set_and_create ], ( 'a, 'b ) t, 'c ) Fieldslib.Field.user ->
  'd list

val for_all : 
  hash:
    ( ( [< `Read | `Set_and_create ], ( 'a, 'b ) t, 'a )
        Fieldslib.Field.t_with_perm ->
      bool ) ->
  total_currency:
    ( ( [< `Read | `Set_and_create ], ( 'c, 'd ) t, 'd )
        Fieldslib.Field.t_with_perm ->
      bool ) ->
  bool

val exists : 
  hash:
    ( ( [< `Read | `Set_and_create ], ( 'a, 'b ) t, 'a )
        Fieldslib.Field.t_with_perm ->
      bool ) ->
  total_currency:
    ( ( [< `Read | `Set_and_create ], ( 'c, 'd ) t, 'd )
        Fieldslib.Field.t_with_perm ->
      bool ) ->
  bool

val to_list : 
  hash:
    ( ( [< `Read | `Set_and_create ], ( 'a, 'b ) t, 'a )
        Fieldslib.Field.t_with_perm ->
      'c ) ->
  total_currency:
    ( ( [< `Read | `Set_and_create ], ( 'd, 'e ) t, 'e )
        Fieldslib.Field.t_with_perm ->
      'f ) ->
  'g list

module Direct : sig ... end