PC (mavkit-libs.Aggregation.Polynomial_commitment.Make

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

val proof_t : proof Repr.t

module Commitment : Kzg.Interfaces.Commitment with type t = Kzg.Bls.G1.t SMap.t

module Public_parameters : 
  Kzg.Interfaces.Public_parameters
    with type commitment = Commitment.public_parameters

val commit : 
  ?all_keys:string list ->
  Public_parameters.prover ->
  secret ->
  Commitment.t * Commitment.prover_aux

val evaluate : secret -> query -> answer

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