Main_protocol.Common
module PP : Polynomial_protocol.S
module Commitment : sig ... end
type commit_to_wires_reply = Commitment.t
val commit_to_wires_reply_t : Commitment.t Repr.t
val worker_inputs_t : worker_inputs Repr.t
val split_inputs_map :
nb_workers:int ->
Plonk__Main_protocol.Make_impl(PP).circuit_prover_input list SMap.t ->
worker_inputs SMap.t list
type commit_to_plook_rc_reply = {
batched_wires_map : Plonk.Identities.Evaluations.t SMap.t SMap.t;
cmt : Commitment.t;
f_map : Kzg.Bls.Poly.t SMap.t;
prover_aux : Commitment.prover_aux;
}
val commit_to_plook_rc_reply_t : commit_to_plook_rc_reply Repr.t
type commit_to_wires_remember = {
all_f_wires : Kzg.Bls.Poly.t SMap.t;
wires_list_map : Plonk.Identities.Evaluations.t SMap.t list SMap.t;
inputs_map : Plonk__Main_protocol.Make_impl(PP).circuit_prover_input list
SMap.t;
shifts_map : (int * int) SMap.t;
f_wires : Kzg.Bls.Poly.t SMap.t list SMap.t;
cm_aux_wires : Commitment.prover_aux;
}
val worker_commit_to_wires :
Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
worker_inputs SMap.t ->
PP.PC.Commitment.t * commit_to_wires_remember
val commit_to_plook_rc :
Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
(int * int) Kzg__SMap.t ->
Kzg__Utils.Transcript.t ->
Plonk.Identities.Evaluations.t Plonk.Identities.SMap.t list
Plonk.Identities.SMap.t ->
commit_to_plook_rc_reply * commit_to_plook_rc_remember
val batch_evaluated_ids :
alpha:Kzg.Bls.Scalar.t ->
Plonk.Identities.Evaluations.t SMap.t ->
string list ->
Plonk.Identities.Evaluations.t
val kzg_eval_at_x :
Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
Kzg__Utils.Transcript.t ->
(Kzg.Bls.Poly.t Kzg.SMap.t * 'a) list ->
Kzg.Bls.Scalar.t ->
Kzg.Bls.Scalar.t Kzg.SMap.t Kzg.SMap.t list
val build_batched_witness_polys_bis :
(bool * int * Kzg.Bls.Domain.t) ->
Plonk.Identities.Evaluations.t Plonk.Identities.SMap.t SMap.t ->
Kzg.Bls.Poly.t Kzg__SMap.t
val build_f_map_rc_2 :
Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
Plonk__Main_protocol.Make_impl(PP).gate_randomness ->
Plonk.Identities.Evaluations.t Plonk.Identities.SMap.t
Plonk.Main_protocol_intf.SMap.t ->
Kzg.Bls.Poly.t Kzg__SMap.t
val make_secret :
Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
(Kzg.Bls.Poly.t Plonk.Main_protocol_intf.SMap.t * PP.PC.Commitment.prover_aux) ->
(Kzg.Bls.Poly.t Plonk.Main_protocol_intf.SMap.t * PP.PC.Commitment.prover_aux)
list
val make_eval_points :
Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
Plonk.Identities.eval_point list list
* Plonk.Identities.eval_point list Plonk.List.t
val get_generator :
Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
Kzg.Bls.Domain.scalar
val get_srs :
Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
PP.PC.Public_parameters.prover
val get_gen_n_nbt :
Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
Kzg.Bls.Domain.scalar * int * int
val get_transcript :
Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
Kzg.Utils.Transcript.t