Main_protocol.Make_implSourcemodule PP : Polynomial_protocol.Smodule PP = PPtype circuit_prover_input = {witness : scalar array;input_commitments : Input_commitment.t list;}val verifier_inputs_t :
(Plonk.Bls.Scalar.t array list * Input_commitment.public list list) SMap.t
Repr.tyval hash_verifier_inputs :
(Plonk.Bls.Scalar.t array list * Input_commitment.public list list) SMap.t ->
bytestype prover_public_parameters = Prover.public_parameters = {common_pp : Prover.common_prover_pp;circuits_map : Prover.circuit_prover_pp SMap.t;transcript : PP.transcript;}type verifier_public_parameters = {common_pp : Verifier.common_verifier_pp;circuits_map : Verifier.circuit_verifier_pp SMap.t;transcript : PP.transcript;}val to_verifier_inputs :
prover_public_parameters ->
circuit_prover_input list SMap.t ->
(public_inputs * Input_commitment.public list list) SMap.tval expand_transcript_with_verifier_inputs :
bytes ->
(Plonk.Bls.Scalar.t array list * Input_commitment.public list list) SMap.t ->
bytesval input_commit :
?size:int ->
?shift:int ->
prover_public_parameters ->
Plonk.Bls.Scalar.t array ->
Input_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 SMap.t ->
prover_public_parametersval filter_vrf_pp_circuits :
verifier_public_parameters ->
'a SMap.t ->
verifier_public_parametersval setup :
zero_knowledge:bool ->
(Circuit.t * int) 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 verify :
verifier_public_parameters ->
inputs:(public_inputs * Input_commitment.public list list) SMap.t ->
proof ->
bool