Aggregation.Polynomial_protocolSourceinclude sig ... endtype verifier_identities =
PC.Scalar.t ->
PC.Scalar.t Plonk.SMap.t Plonk.SMap.t ->
PC.Scalar.t Plonk.SMap.ttype non_committed =
PC.Scalar.t ->
PC.Scalar.t Plonk.SMap.t Plonk.SMap.t ->
PC.Scalar.t Plonk.SMap.ttype proof = Make_aggregation(Polynomial_commitment).proof = {cm_t : PC.Commitment.t;pc_proof : PC.proof;pc_answers : PC.answer list;}type eval_point = Make_aggregation(Polynomial_commitment).eval_point = | X| GX| Custom of string * PC.Scalar.t -> PC.Scalar.tval convert_eval_points :
generator:PC.Scalar.t ->
x:PC.Scalar.t ->
eval_point list ->
PC.Scalar.t Plonk.SMap.tval compute_t :
n:int ->
alpha:PC.Scalar.t ->
nb_of_t_chunks:int ->
Evaluations.t Plonk.SMap.t ->
Evaluations.polynomial Plonk.SMap.tval setup :
setup_params:PC.Public_parameters.setup_params ->
srs:(Bls12_381_polynomial.Srs.t * Bls12_381_polynomial.Srs.t) ->
prover_public_parameters * verifier_public_parametersval prove :
prover_public_parameters ->
transcript ->
n:int ->
generator:PC.Scalar.t ->
secrets:
(PC.Polynomial.Polynomial.t Plonk.SMap.t * PC.Commitment.prover_aux) list ->
eval_points:eval_point list list ->
evaluations:Evaluations.t Plonk.SMap.t ->
identities:prover_identities ->
nb_of_t_chunks:int ->
proof * transcriptval verify :
verifier_public_parameters ->
transcript ->
n:int ->
generator:PC.Scalar.t ->
commitments:PC.Commitment.t list ->
eval_points:eval_point list list ->
?non_committed:non_committed ->
identities:verifier_identities ->
proof ->
bool * transcripttype prover_aux = Make_aggregation(Polynomial_commitment).prover_aux = {answers : PC.Scalar.t SMap.t SMap.t list;batch : PC.Scalar.t SMap.t list;alpha : PC.Scalar.t;x : PC.Scalar.t;r : PC.Scalar.t;cm_answers : PC.Scalar.t;}type verifier_aux = Make_aggregation(Polynomial_commitment).verifier_aux = {alpha : PC.Scalar.t;x : PC.Scalar.t;r : PC.Scalar.t;}val prove_super_aggregation :
prover_public_parameters ->
transcript ->
n:int ->
generator:PC.Scalar.t ->
secrets:(PC.Polynomial.Polynomial.t SMap.t * PC.Commitment.prover_aux) list ->
eval_points:eval_point list list ->
evaluations:Evaluations.t SMap.t ->
identities:prover_identities ->
nb_of_t_chunks:int ->
(proof * prover_aux) * transcriptval verify_super_aggregation :
verifier_public_parameters ->
transcript ->
n:int ->
generator:PC.Scalar.t ->
commitments:PC.Commitment.t list ->
eval_points:eval_point list list ->
s_list:PC.Scalar.t SMap.t list ->
cm_answers:PC.Scalar.t ->
proof ->
(bool * verifier_aux) * PC.transcript