Fields (snark_work_lib.Snark_work

val names : string list

val fee : 
  ( [< `Read | `Set_and_create ], 'a t, Currency.Fee.t )
    Fieldslib.Field.t_with_perm

val instances : 
  ( [< `Read | `Set_and_create ], 'single t, 'single0 One_or_two.t )
    Fieldslib.Field.t_with_perm

val make_creator : 
  instances:
    ( ( [< `Read | `Set_and_create ], 'a t, 'a One_or_two.t )
        Fieldslib.Field.t_with_perm ->
      'b ->
      ( 'c -> 'd One_or_two.t ) * 'e ) ->
  fee:
    ( ( [< `Read | `Set_and_create ], 'f t, Currency.Fee.t )
        Fieldslib.Field.t_with_perm ->
      'g ->
      ( 'h -> Currency.Fee.t ) * 'i ) ->
  'j ->
  ( 'k -> 'd t ) * 'l

val create : instances:'a One_or_two.t -> fee:Currency.Fee.t -> 'a t

val map : 
  instances:
    ( ( [< `Read | `Set_and_create ], 'a t, 'a One_or_two.t )
        Fieldslib.Field.t_with_perm ->
      'b One_or_two.t ) ->
  fee:
    ( ( [< `Read | `Set_and_create ], 'c t, Currency.Fee.t )
        Fieldslib.Field.t_with_perm ->
      Currency.Fee.t ) ->
  'b t

val iter : 
  instances:
    ( ( [< `Read | `Set_and_create ], 'a t, 'a One_or_two.t )
        Fieldslib.Field.t_with_perm ->
      unit ) ->
  fee:
    ( ( [< `Read | `Set_and_create ], 'b t, Currency.Fee.t )
        Fieldslib.Field.t_with_perm ->
      unit ) ->
  unit

val fold : 
  init:'a ->
  instances:
    ( 'b ->
      ( [< `Read | `Set_and_create ], 'c t, 'c One_or_two.t )
        Fieldslib.Field.t_with_perm ->
      'd ) ->
  fee:
    ( 'e ->
      ( [< `Read | `Set_and_create ], 'f t, Currency.Fee.t )
        Fieldslib.Field.t_with_perm ->
      'g ) ->
  'h

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

val for_all : 
  instances:
    ( ( [< `Read | `Set_and_create ], 'a t, 'a One_or_two.t )
        Fieldslib.Field.t_with_perm ->
      bool ) ->
  fee:
    ( ( [< `Read | `Set_and_create ], 'b t, Currency.Fee.t )
        Fieldslib.Field.t_with_perm ->
      bool ) ->
  bool

val exists : 
  instances:
    ( ( [< `Read | `Set_and_create ], 'a t, 'a One_or_two.t )
        Fieldslib.Field.t_with_perm ->
      bool ) ->
  fee:
    ( ( [< `Read | `Set_and_create ], 'b t, Currency.Fee.t )
        Fieldslib.Field.t_with_perm ->
      bool ) ->
  bool

val to_list : 
  instances:
    ( ( [< `Read | `Set_and_create ], 'a t, 'a One_or_two.t )
        Fieldslib.Field.t_with_perm ->
      'b ) ->
  fee:
    ( ( [< `Read | `Set_and_create ], 'c t, Currency.Fee.t )
        Fieldslib.Field.t_with_perm ->
      'd ) ->
  'e list

module Direct : sig ... end