Main_protocol.MakeSuperSourcemodule PP : Polynomial_protocol.Supermodule PP = PPinclude module type of MP with module PP := PPtype proof = {perm_and_plook : PP.PC.Commitment.t;wires_cm : PP.PC.Commitment.t;pp_proof : PP.proof;}val verifier_inputs_t :
(Plonk.Bls.Scalar.t array list * PP.PC.Commitment.t list list) Plonk.SMap.t
Repr.tyval hash_verifier_inputs :
(Plonk.Bls.Scalar.t array list * PP.PC.Commitment.t list list) Plonk.SMap.t ->
bytestype prover_public_parameters = Prover.public_parameters = {common_pp : Prover.common_prover_pp;circuits_map : Prover.circuit_prover_pp Plonk.SMap.t;transcript : Bytes.t;}type verifier_public_parameters = {common_pp : Verifier.common_verifier_pp;circuits_map : Verifier.circuit_verifier_pp Plonk.SMap.t;transcript : Bytes.t;}val to_verifier_inputs :
prover_public_parameters ->
circuit_prover_input list Plonk.SMap.t ->
(public_inputs * PP.PC.Commitment.t list list) Plonk.SMap.tval expand_transcript_with_verifier_inputs :
bytes ->
(Plonk.Bls.Scalar.t array list * PP.PC.Commitment.t list list) Plonk.SMap.t ->
bytesval input_commit :
?size:int ->
?shift:int ->
prover_public_parameters ->
Plonk.Bls.Scalar.t array ->
Plonk__Input_commitment.Make(PP.PC.Commitment).tval update_prover_public_parameters :
bytes ->
prover_public_parameters ->
prover_public_parametersval update_verifier_public_parameters :
bytes ->
verifier_public_parameters ->
verifier_public_parametersval filter_prv_pp_circuits :
prover_public_parameters ->
'a Plonk.SMap.t ->
prover_public_parametersval filter_vrf_pp_circuits :
verifier_public_parameters ->
'a Plonk.SMap.t ->
verifier_public_parametersval setup :
zero_knowledge:bool ->
(Plonk.Circuit.t * int) Plonk.SMap.t ->
srs:
(Octez_bls12_381_polynomial.Bls12_381_polynomial.Srs.t
* Octez_bls12_381_polynomial.Bls12_381_polynomial.Srs.t) ->
prover_public_parameters * verifier_public_parametersval prove :
prover_public_parameters ->
inputs:circuit_prover_input Plonk.List.t Plonk.SMap.t ->
proofval verify :
verifier_public_parameters ->
inputs:(public_inputs * PP.PC.Commitment.t list list) Plonk.SMap.t ->
proof ->
booltype prover_aux = {answers : scalar Plonk.SMap.t Plonk.SMap.t list;batch : scalar Plonk.SMap.t list;alpha : scalar;beta : scalar;gamma : scalar;delta : scalar;x : scalar;r : scalar;cms_answers : PP.Answers_commitment.t Plonk.SMap.t;cms_pi : PP.Answers_commitment.t Plonk.SMap.t;ids_batch : (scalar * int) Plonk.SMap.t;t_answers : scalar list;}type input_commit_info = {nb_max_answers : int;nb_max_pi : int;func : ?size:int -> ?shift:int -> scalar array -> PP.Answers_commitment.t;}val hash_pi :
prover_public_parameters ->
input_commit_info Plonk.SMap.t ->
circuit_prover_input list Plonk.SMap.t ->
scalar array list Plonk.SMap.t * PP.Answers_commitment.t Plonk.SMap.tval compute_ids_batch :
prover_public_parameters ->
gate_randomness ->
Plonk.Bls.Scalar.t ->
Plonk.Bls.Scalar.t ->
Plonk.Bls.Scalar.t array Plonk.List.t Plonk.SMap.t ->
Plonk.Bls.Scalar.t Plonk.SMap.t Plonk.SMap.t list ->
'a Plonk.SMap.t ->
(Plonk.Bls.Scalar.t * int) Plonk.SMap.tval update_prv_pp_transcript_with_pi :
prover_public_parameters ->
PP.Answers_commitment.t Plonk.SMap.t ->
prover_public_parametersval commit_to_answers_map :
input_commit_info Plonk.SMap.t ->
(scalar array -> PP.Answers_commitment.t) Plonk.SMap.tval prove_list :
prover_public_parameters ->
input_commit_infos:input_commit_info Plonk.SMap.t ->
inputs:circuit_prover_input Plonk.List.t Plonk.SMap.t ->
proof * prover_auxval verify_list :
verifier_public_parameters ->
(proof
* Plonk.Bls.Scalar.t Plonk.SMap.t list
* PP.Answers_commitment.public Plonk.SMap.t
* PP.Answers_commitment.public Plonk.SMap.t
* Plonk.Bls.Scalar.t list
* (Plonk.Bls.Scalar.t * int) Plonk.SMap.t) ->
bool * verifier_auxinclude sig ... endval split_inputs_map :
nb_workers:int ->
Plonk__Main_protocol.Make_impl(PP).circuit_prover_input list SMap.t ->
worker_inputs SMap.t listtype commit_to_plook_rc_reply = Common(PP).commit_to_plook_rc_reply = {batched_wires_map : Plonk.Bls.Evaluations.t SMap.t SMap.t;cmt : Commitment.t;f_map : Plonk.Bls.Poly.t SMap.t;prover_aux : Commitment.prover_aux;}type commit_to_plook_rc_remember = Common(PP).commit_to_plook_rc_remember = {beta_plook : Plonk.Bls.Scalar.t;gamma_plook : Plonk.Bls.Scalar.t;beta_rc : Plonk.Bls.Scalar.t;gamma_rc : Plonk.Bls.Scalar.t;}type commit_to_wires_remember = Common(PP).commit_to_wires_remember = {all_f_wires : Plonk.Bls.Poly.t SMap.t;wires_list_map : Plonk.Bls.Evaluations.t SMap.t list SMap.t;inputs_map : Plonk__Main_protocol.Make_impl(PP).circuit_prover_input list
SMap.t;shifts_map : (int * int) SMap.t;f_wires : Plonk.Bls.Poly.t SMap.t list SMap.t;cm_aux_wires : Commitment.prover_aux;}val worker_commit_to_wires :
Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
worker_inputs SMap.t ->
PP.PC.Commitment.t * commit_to_wires_rememberval commit_to_plook_rc :
Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
(int * int) Stdlib__Map.Make(String).t ->
Bytes.t ->
Plonk.Bls.Evaluations.t Plonk.SMap.t list Plonk.SMap.t ->
commit_to_plook_rc_reply * commit_to_plook_rc_rememberval batch_evaluated_ids :
alpha:Plonk.Bls.Scalar.t ->
Plonk.Bls.Evaluations.t SMap.t ->
string list ->
Plonk.Bls.Evaluations.tval kzg_eval_at_x :
Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
Bytes.t ->
(Plonk.Bls.Poly.t Plonk.SMap.t * 'a) list ->
Plonk.Bls.Scalar.t ->
Plonk.Bls.Scalar.t Plonk.SMap.t Plonk.SMap.t listval build_batched_witness_polys_bis :
(bool * int * Plonk.Bls.Domain.t) ->
Plonk.Bls.Evaluations.t Plonk.SMap.t SMap.t ->
Plonk.Bls.Poly.t Stdlib__Map.Make(String).tval make_secret :
Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
(Plonk.Bls.Poly.t Plonk.SMap.t * PP.PC.Commitment.prover_aux) ->
(Plonk.Bls.Poly.t Plonk.SMap.t * PP.PC.Commitment.prover_aux) listval make_eval_points :
Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
Plonk.Identities.eval_point list list
* Plonk.Identities.eval_point list Plonk.List.tval get_generator :
Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
Plonk.Bls.Domain.scalarval get_srs :
Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
PP.PC.Commitment.prover_public_parametersval get_gen_n_nbt :
Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
Plonk.Bls.Domain.scalar * int * int