Make.PCmodule BasePC : Plonk.Polynomial_commitment.Smodule Commitment :
Kzg.Commitment_sig
with type secret := BasePC.secret
and type prover_public_parameters := BasePC.Public_parameters.proverinclude module type of BasePC
with module Scalar = BasePC.Scalar
and module Public_parameters = BasePC.Public_parameters
and module Polynomial = BasePC.Polynomial
and module Commitment := Commitmentmodule Scalar = BasePC.Scalarmodule Polynomial = BasePC.Polynomialmodule Scalar_map : Map.S with type key = Scalar.tmodule Fr_generation : Plonk.Fr_generation.S with type scalar = Scalar.ttype secret = Polynomial.Polynomial.t Plonk.SMap.ttype query = Scalar.t Plonk.SMap.ttype answer = Scalar.t Plonk.SMap.t Plonk.SMap.ttype transcript = Bytes.tmodule Public_parameters = BasePC.Public_parametersval prove :
Public_parameters.prover ->
transcript ->
secret list ->
Commitment.prover_aux list ->
query list ->
answer list ->
proof * transcriptval verify :
Public_parameters.verifier ->
transcript ->
Commitment.t list ->
query list ->
answer list ->
proof ->
bool * transcriptval worker_msg_t : worker_msg Repr.tval main_prover_msg_t : main_prover_msg Repr.tval distributed_prove_main1 :
Public_parameters.prover ->
transcript ->
query list ->
answer list ->
secret list ->
Commitment.prover_aux list ->
worker_msg * main_prover_stateval distributed_prove_worker :
secret list ->
Commitment.prover_aux list ->
worker_msg ->
main_prover_msgval distributed_prove_main2 :
main_prover_state ->
main_prover_msg list ->
proof * transcript