Fields (zprize.Field_ops_lib.Adder_subtractor

val names : string list

val carry : ( 'a t, 'a ) Fieldslib.Field.t

val result : ( 'a t, 'a ) Fieldslib.Field.t

val fold : 
  init:'acc__0 ->
  result:( 'acc__0 -> ( 'a t, 'a ) Fieldslib.Field.t -> 'acc__1 ) ->
  carry:( 'acc__1 -> ( 'a t, 'a ) Fieldslib.Field.t -> 'acc__2 ) ->
  'acc__2

val make_creator : 
  result:
    ( ( 'a t, 'a ) Fieldslib.Field.t ->
      'acc__0 ->
      ( 'input__ -> 'a ) * 'acc__1 ) ->
  carry:
    ( ( 'a t, 'a ) Fieldslib.Field.t ->
      'acc__1 ->
      ( 'input__ -> 'a ) * 'acc__2 ) ->
  'acc__0 ->
  ( 'input__ -> 'a t ) * 'acc__2

val create : result:'a -> carry:'a -> 'a t

val map : 
  result:( ( 'a t, 'a ) Fieldslib.Field.t -> 'a ) ->
  carry:( ( 'a t, 'a ) Fieldslib.Field.t -> 'a ) ->
  'a t

val iter : 
  result:( ( 'a t, 'a ) Fieldslib.Field.t -> unit ) ->
  carry:( ( 'a t, 'a ) Fieldslib.Field.t -> unit ) ->
  unit

val for_all : 
  result:( ( 'a t, 'a ) Fieldslib.Field.t -> bool ) ->
  carry:( ( 'a t, 'a ) Fieldslib.Field.t -> bool ) ->
  bool

val exists : 
  result:( ( 'a t, 'a ) Fieldslib.Field.t -> bool ) ->
  carry:( ( 'a t, 'a ) Fieldslib.Field.t -> bool ) ->
  bool

val to_list : 
  result:( ( 'a t, 'a ) Fieldslib.Field.t -> 'elem__ ) ->
  carry:( ( 'a t, 'a ) Fieldslib.Field.t -> 'elem__ ) ->
  'elem__ list

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

module Direct : sig ... end