Polynomial_protocol.PC
type secret = Kzg.Bls.Poly.t Kzg.SMap.t
type query = Kzg.Bls.Scalar.t Kzg.SMap.t
val query_t : query Repr.t
type answer = Kzg.Bls.Scalar.t Kzg.SMap.t Kzg.SMap.t
val answer_t : answer Repr.t
type proof = Kzg.Polynomial_commitment.proof
val proof_t : proof Repr.t
module Commitment : sig ... end
module Public_parameters : sig ... end
val commit :
?all_keys:string list ->
Public_parameters.prover ->
secret ->
Commitment.t * Commitment.prover_aux
val prove :
Public_parameters.prover ->
Kzg.Utils.Transcript.t ->
secret list ->
Commitment.prover_aux list ->
query list ->
answer list ->
proof * Kzg.Utils.Transcript.t
val verify :
Public_parameters.verifier ->
Kzg.Utils.Transcript.t ->
Commitment.t list ->
query list ->
answer list ->
proof ->
bool * Kzg.Utils.Transcript.t