Keypair.Fieldsval vk : ( t, Verification_key.t ) Fieldslib.Field.tval pk : ( t, Proving_key.t ) Fieldslib.Field.tval fold :
init:'acc__0 ->
pk:( 'acc__0 -> ( t, Proving_key.t ) Fieldslib.Field.t -> 'acc__1 ) ->
vk:( 'acc__1 -> ( t, Verification_key.t ) Fieldslib.Field.t -> 'acc__2 ) ->
'acc__2val make_creator :
pk:
( ( t, Proving_key.t ) Fieldslib.Field.t ->
'acc__0 ->
( 'input__ -> Proving_key.t ) * 'acc__1 ) ->
vk:
( ( t, Verification_key.t ) Fieldslib.Field.t ->
'acc__1 ->
( 'input__ -> Verification_key.t ) * 'acc__2 ) ->
'acc__0 ->
( 'input__ -> t ) * 'acc__2val create : pk:Proving_key.t -> vk:Verification_key.t -> tval map :
pk:( ( t, Proving_key.t ) Fieldslib.Field.t -> Proving_key.t ) ->
vk:( ( t, Verification_key.t ) Fieldslib.Field.t -> Verification_key.t ) ->
tval iter :
pk:( ( t, Proving_key.t ) Fieldslib.Field.t -> unit ) ->
vk:( ( t, Verification_key.t ) Fieldslib.Field.t -> unit ) ->
unitval for_all :
pk:( ( t, Proving_key.t ) Fieldslib.Field.t -> bool ) ->
vk:( ( t, Verification_key.t ) Fieldslib.Field.t -> bool ) ->
boolval exists :
pk:( ( t, Proving_key.t ) Fieldslib.Field.t -> bool ) ->
vk:( ( t, Verification_key.t ) Fieldslib.Field.t -> bool ) ->
boolval to_list :
pk:( ( t, Proving_key.t ) Fieldslib.Field.t -> 'elem__ ) ->
vk:( ( t, Verification_key.t ) Fieldslib.Field.t -> 'elem__ ) ->
'elem__ listval map_poly :
( [< `Read | `Set_and_create ], t, 'x0 ) Fieldslib.Field.user ->
'x0 listmodule Direct : sig ... end