Make_impl (mavkit-libs.Plonk.Main_protocol.Make

Parameters

module PP : Polynomial_protocol.S

Signature

module RangeCheck : sig ... end

module Perm : sig ... end

module Plook : sig ... end

module Gates = Custom_gates

module Commitment = PP.PC.Commitment

module Input_commitment : sig ... end

module PP = PP

exception Entry_not_in_table of string

exception Rest_not_null of string

type scalar = Kzg.Bls.Scalar.t

val scalar_t : Kzg.Bls.Scalar.t Repr.t

type circuit_map = (Circuit.t * int) SMap.t

type proof = {

perm_and_plook : Commitment.t;
wires_cm : Commitment.t;
pp_proof : PP.proof;

}

val proof_t : proof Repr.t

type circuit_prover_input = {

witness : scalar array;
input_commitments : Input_commitment.t list;

}

val circuit_prover_input_t : circuit_prover_input Repr.t

type prover_inputs = circuit_prover_input list SMap.t

val prover_inputs_t : circuit_prover_input list SMap.t Repr.ty

type public_inputs = scalar array list

val public_inputs_t : Kzg.Bls.Scalar.t array list Repr.t

type circuit_verifier_input = {

nb_proofs : int;
public : public_inputs;
commitments : Input_commitment.public list list;

}

val circuit_verifier_input_t : circuit_verifier_input Repr.t

type verifier_inputs = circuit_verifier_input SMap.t

val verifier_inputs_t : circuit_verifier_input SMap.t Repr.ty

val check_circuit_name : 'a SMap.t -> unit

val check_circuits : 'a SMap.t -> 'b SMap.t -> unit

val wire_names : int -> string list

val name_wires : 'a array list SMap.t -> 'b SMap.t list SMap.t

type gate_randomness = {

beta : scalar;
gamma : scalar;
delta : scalar;

}

val build_gates_randomness : 
  Kzg__Utils.Transcript.t ->
  gate_randomness * Kzg__Utils.Transcript.t

module Prover : sig ... end

module Verifier : sig ... end

type prover_public_parameters = Prover.public_parameters = {

common_pp : Prover.common_prover_pp;
circuits_map : Prover.circuit_prover_pp SMap.t;
transcript : Kzg.Utils.Transcript.t;

}

val prover_public_parameters_t : prover_public_parameters Repr.t

type verifier_public_parameters = {

common_pp : Verifier.common_verifier_pp;
circuits_map : Verifier.circuit_verifier_pp SMap.t;
transcript : Kzg.Utils.Transcript.t;

}

val verifier_public_parameters_t : verifier_public_parameters Repr.t

module Preprocess : sig ... end

val to_verifier_inputs : 
  prover_public_parameters ->
  circuit_prover_input list SMap.t ->
  circuit_verifier_input SMap.t

val input_commit : 
  ?size:int ->
  ?shift:int ->
  prover_public_parameters ->
  Kzg.Bls.Scalar.t array ->
  Input_commitment.t

val update_prover_public_parameters : 
  'a Repr.ty ->
  'b ->
  prover_public_parameters ->
  prover_public_parameters

val update_verifier_public_parameters : 
  'a Repr.ty ->
  'b ->
  verifier_public_parameters ->
  verifier_public_parameters

val filter_prv_pp_circuits : 
  prover_public_parameters ->
  'a SMap.t ->
  prover_public_parameters

val filter_vrf_pp_circuits : 
  verifier_public_parameters ->
  'a SMap.t ->
  verifier_public_parameters

val setup : 
  zero_knowledge:bool ->
  (Circuit.t * int) SMap.t ->
  srs:(Kzg.Bls.Srs.t * Kzg.Bls.Srs.t) ->
  prover_public_parameters * verifier_public_parameters

val prove : 
  prover_public_parameters ->
  inputs:circuit_prover_input List.t SMap.t ->
  proof

val verify : 
  verifier_public_parameters ->
  inputs:circuit_verifier_input SMap.t ->
  proof ->
  bool

val scalar_encoding : Kzg.Bls.Scalar.t Data_encoding.encoding

val data_encoding_of_repr : 'a Repr.t -> 'b Data_encoding.encoding

val proof_encoding : proof Data_encoding.encoding

val verifier_public_parameters_encoding : 
  verifier_public_parameters Data_encoding.encoding

module Internal_for_tests : sig ... end