PP (u.772ee68e13c874edff36810f86d11095.octez-plonk.17.3.doc.octez-plonk.aggregation.Aggregation.Main

Sourcemodule PC : sig ... end

Sourcemodule Answers_commitment : sig ... end

Sourcetype prover_public_parameters = PC.Public_parameters.prover

Sourceval prover_public_parameters_t : prover_public_parameters Repr.t

Sourcetype verifier_public_parameters = PC.Public_parameters.verifier

Sourceval verifier_public_parameters_t : verifier_public_parameters Repr.t

Sourcetype transcript = PC.transcript

Sourceval transcript_t : transcript Repr.t

Sourcetype proof = Polynomial_protocol.proof = {

cm_t : PC.Commitment.t;
pc_proof : PC.proof;
pc_answers : PC.answer list;

}

Sourceval proof_t : proof Repr.t

Source

val setup : 
  setup_params:PC.Public_parameters.setup_params ->
  srs:
    (Octez_bls12_381_polynomial.Bls12_381_polynomial.Srs.t
     * Octez_bls12_381_polynomial.Bls12_381_polynomial.Srs.t) ->
  prover_public_parameters * verifier_public_parameters

Source

val prove : 
  prover_public_parameters ->
  transcript ->
  n:int ->
  generator:Plonk.Bls.Scalar.t ->
  secrets:(Plonk.Bls.Poly.t Plonk.SMap.t * PC.Commitment.prover_aux) list ->
  eval_points:Plonk.Identities.eval_point list list ->
  evaluations:Plonk.Bls.Evaluations.t Plonk.SMap.t ->
  identities:Plonk.Identities.prover_identities ->
  nb_of_t_chunks:int ->
  proof * transcript

Source

val verify : 
  verifier_public_parameters ->
  transcript ->
  n:int ->
  generator:Plonk.Bls.Scalar.t ->
  commitments:PC.Commitment.t list ->
  eval_points:Plonk.Identities.eval_point list list ->
  identities:Plonk.Identities.verifier_identities ->
  proof ->
  bool * transcript

Sourcetype prover_aux = Polynomial_protocol.prover_aux = {

answers : Plonk.Bls.Scalar.t Plonk.SMap.t Plonk.SMap.t list;
batch : Plonk.Bls.Scalar.t Plonk.SMap.t list;
alpha : Plonk.Bls.Scalar.t;
x : Plonk.Bls.Scalar.t;
r : Plonk.Bls.Scalar.t;
cms_answers : Answers_commitment.t Plonk.SMap.t;
t_answers : Plonk.Bls.Scalar.t list;

}

Sourcetype verifier_aux = Polynomial_protocol.verifier_aux = {

alpha : Plonk.Bls.Scalar.t;
x : Plonk.Bls.Scalar.t;
r : Plonk.Bls.Scalar.t;

}

Source

val update_transcript_with_formatted_answers : 
  transcript ->
  (Plonk.Bls.Poly.scalar array -> Answers_commitment.t) Plonk.SMap.t ->
  Plonk.Bls.Poly.scalar Plonk.SMap.t Plonk.SMap.t list ->
  Plonk.Bls.Poly.scalar list * Answers_commitment.t Plonk.SMap.t * transcript

Source

val prove_super_aggregation : 
  prover_public_parameters ->
  transcript ->
  commit_to_answers_map:
    (Plonk.Bls.Scalar.t array -> Answers_commitment.t) Plonk.SMap.t ->
  n:int ->
  generator:Plonk.Bls.Scalar.t ->
  secrets:(Plonk.Bls.Poly.t Plonk.SMap.t * PC.Commitment.prover_aux) list ->
  eval_points:Plonk.Identities.eval_point list list ->
  evaluations:Plonk.Bls.Evaluations.t Plonk.SMap.t ->
  identities:Plonk.Identities.prover_identities ->
  nb_of_t_chunks:int ->
  (proof * prover_aux) * transcript

Source

val verify_super_aggregation : 
  verifier_public_parameters ->
  transcript ->
  n:int ->
  generator:Plonk.Bls.Scalar.t ->
  commitments:PC.Commitment.t list ->
  eval_points:Plonk.Identities.eval_point list list ->
  s_list:Plonk.Bls.Scalar.t Plonk.SMap.t list ->
  cms_answers:Answers_commitment.public Plonk.SMap.t ->
  t_answers:Plonk.Bls.Scalar.t list ->
  ids_batch:(Plonk.Bls.Scalar.t * int) Plonk.SMap.t ->
  proof ->
  (bool * verifier_aux) * PC.transcript