octez-libs 19.1 · OCaml Package

module PP : sig ... end

module MP : sig ... end

module RangeCheck : sig ... end

module Perm : sig ... end

module Plook : sig ... end

module Gates = Plonk.Custom_gates

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 = (Plonk.Circuit.t * int) Plonk.Main_protocol_intf.SMap.t

type proof = {

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

}

val proof_t : proof Repr.t

type circuit_prover_input = {

witness : scalar array;
input_commitments : Plonk__Input_commitment.Make(PP.PC.Commitment).t list;

}

val circuit_prover_input_t : circuit_prover_input Repr.t

type prover_inputs = circuit_prover_input list Plonk.Main_protocol_intf.SMap.t

val prover_inputs_t : 
  circuit_prover_input list Plonk.Main_protocol_intf.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 : PP.PC.Commitment.t list list;

}

val circuit_verifier_input_t : circuit_verifier_input Repr.t

type verifier_inputs = circuit_verifier_input Plonk.Main_protocol_intf.SMap.t

val verifier_inputs_t : 
  circuit_verifier_input Plonk.Main_protocol_intf.SMap.t Repr.ty

val check_circuit_name : 'a Plonk.Main_protocol_intf.SMap.t -> unit

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

val wire_names : int -> string list

val name_wires : 
  'a array list Plonk.Main_protocol_intf.SMap.t ->
  'a Plonk.Main_protocol_intf.SMap.t list Plonk.Main_protocol_intf.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 Plonk.Main_protocol_intf.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 Plonk.Main_protocol_intf.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 Plonk.Main_protocol_intf.SMap.t ->
  circuit_verifier_input Plonk.Main_protocol_intf.SMap.t

val input_commit : 
  ?size:int ->
  ?shift:int ->
  prover_public_parameters ->
  Kzg.Bls.Scalar.t array ->
  Plonk__Input_commitment.Make(PP.PC.Commitment).t

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

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

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

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

val setup : 
  zero_knowledge:bool ->
  (Plonk.Circuit.t * int) Plonk.Main_protocol_intf.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 Plonk.List.t Plonk.Main_protocol_intf.SMap.t ->
  proof

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

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

val data_encoding_of_repr : 'a Repr.t -> 'a 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

module Input_commitment : sig ... end

type prover_aux = {

answers : scalar Kzg.SMap.t Kzg.SMap.t list;
batch : scalar Kzg.SMap.t list;
alpha : scalar;
beta : scalar;
gamma : scalar;
delta : scalar;
x : scalar;
r : scalar;
cms_answers : PP.Answers_commitment.t Kzg.SMap.t;
cms_pi : PP.Answers_commitment.t Kzg.SMap.t;
ids_batch : (scalar * int) Kzg.SMap.t;
t_answers : scalar list;

}

type verifier_aux = {

alpha : scalar;
beta : scalar;
gamma : scalar;
delta : scalar;
x : scalar;
r : scalar;

}

type input_commit_funcs = {

pi : scalar array -> PP.Answers_commitment.t;
answers : Kzg.Bls.Scalar.t Kzg.SMap.t Kzg.SMap.t list -> PP.Answers_commitment.t;

}

val commit_pi : 
  prover_public_parameters ->
  input_commit_funcs Kzg.SMap.t ->
  circuit_prover_input list Kzg.SMap.t ->
  circuit_verifier_input Kzg.SMap.t * PP.Answers_commitment.t Kzg.SMap.t

val compute_ids_batch : 
  prover_public_parameters ->
  gate_randomness ->
  Kzg.Bls.Scalar.t ->
  Kzg.Bls.Scalar.t ->
  circuit_verifier_input Plonk.Main_protocol_intf.SMap.t ->
  Kzg.Bls.Scalar.t Kzg.SMap.t Kzg.SMap.t list ->
  'a Kzg.SMap.t ->
  (Kzg.Bls.Scalar.t * int) Kzg.SMap.t

val update_transcript_with_pi : 
  Kzg.Utils.Transcript.t ->
  PP.Answers_commitment.public Kzg.SMap.t ->
  Kzg.Utils.Transcript.t

val update_prv_pp_transcript_with_pi : 
  prover_public_parameters ->
  PP.Answers_commitment.t Kzg.SMap.t ->
  prover_public_parameters

val prove_list : 
  prover_public_parameters ->
  input_commit_funcs:input_commit_funcs Kzg.SMap.t ->
  inputs:circuit_prover_input Plonk.List.t Kzg.SMap.t ->
  proof * prover_aux

val verify_list : 
  verifier_public_parameters ->
  (proof
   * Kzg.Bls.Scalar.t Kzg.SMap.t list
   * PP.Answers_commitment.public Kzg.SMap.t
   * PP.Answers_commitment.public Kzg.SMap.t
   * Kzg.Bls.Scalar.t list
   * (Kzg.Bls.Scalar.t * int) Kzg.SMap.t) ->
  bool * verifier_aux

val get_gen_n_prover : prover_public_parameters -> Kzg.Bls.Domain.scalar * int

val get_gen_n_verifier : verifier_public_parameters -> Kzg.Bls.Scalar.t * int

module Commitment : sig ... end

type commit_to_wires_reply = Commitment.t

val commit_to_wires_reply_t : Commitment.t Repr.t

type worker_inputs = {

inputs : Plonk__Main_protocol.Make_impl(PP).circuit_prover_input list;
shift : int * int;

}

val worker_inputs_t : worker_inputs Repr.t

val split_inputs_map : 
  nb_workers:int ->
  Plonk__Main_protocol.Make_impl(PP).circuit_prover_input list Kzg.SMap.t ->
  worker_inputs Kzg.SMap.t list

type commit_to_plook_rc_reply = {

batched_wires_map : Plonk.Identities.Evaluations.t Kzg.SMap.t Kzg.SMap.t;
cmt : Commitment.t;
f_map : Kzg.Bls.Poly.t Kzg.SMap.t;
prover_aux : Commitment.prover_aux;

}

val commit_to_plook_rc_reply_t : commit_to_plook_rc_reply Repr.t

type commit_to_plook_rc_remember = {

beta : Kzg.Bls.Scalar.t;
gamma : Kzg.Bls.Scalar.t;

}

type commit_to_wires_remember = {

all_f_wires : Kzg.Bls.Poly.t Kzg.SMap.t;
wires_list_map : Plonk.Identities.Evaluations.t Kzg.SMap.t list Kzg.SMap.t;
inputs_map : Plonk__Main_protocol.Make_impl(PP).circuit_prover_input list Kzg.SMap.t;
shifts_map : (int * int) Kzg.SMap.t;
f_wires : Kzg.Bls.Poly.t Kzg.SMap.t list Kzg.SMap.t;
cm_aux_wires : Commitment.prover_aux;

}

val worker_commit_to_wires : 
  Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
  worker_inputs Kzg.SMap.t ->
  PP.PC.Commitment.t * commit_to_wires_remember

val commit_to_plook_rc : 
  Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
  (int * int) Stdlib__Map.Make(String).t ->
  Kzg__Utils.Transcript.t ->
  Plonk.Identities.Evaluations.t Plonk.Identities.SMap.t list
    Plonk.Identities.SMap.t ->
  commit_to_plook_rc_reply * commit_to_plook_rc_remember

val batch_evaluated_ids : 
  alpha:Kzg.Bls.Scalar.t ->
  Plonk.Identities.Evaluations.t Kzg.SMap.t ->
  string list ->
  Plonk.Identities.Evaluations.t

val kzg_eval_at_x : 
  Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
  Kzg__Utils.Transcript.t ->
  (Kzg.Bls.Poly.t Kzg.SMap.t * 'a) list ->
  Kzg.Bls.Scalar.t ->
  Kzg.Bls.Scalar.t Kzg.SMap.t Kzg.SMap.t list

val build_batched_witness_polys_bis : 
  (bool * int * Kzg.Bls.Domain.t) ->
  Plonk.Identities.Evaluations.t Plonk.Identities.SMap.t Kzg.SMap.t ->
  Kzg.Bls.Poly.t Stdlib__Map.Make(String).t

val shared_perm_rc_argument : 
  Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
  int ->
  Plonk__Main_protocol.Make_impl(PP).gate_randomness ->
  'a list Kzg.SMap.t ->
  commit_to_plook_rc_reply list ->
  Kzg.Bls.Poly.t Kzg.SMap.t
  * Plonk.Identities.Evaluations.t Plonk.Identities.SMap.t
  * (PP.PC.Commitment.t * PP.PC.Commitment.prover_aux)

val build_f_map_rc_2 : 
  Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
  Plonk__Main_protocol.Make_impl(PP).gate_randomness ->
  Plonk.Identities.Evaluations.t Plonk.Identities.SMap.t
    Plonk.Main_protocol_intf.SMap.t ->
  Kzg.Bls.Poly.t Stdlib__Map.Make(String).t

val make_secret : 
  Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
  (Kzg.Bls.Poly.t Plonk.Main_protocol_intf.SMap.t * PP.PC.Commitment.prover_aux) ->
  (Kzg.Bls.Poly.t Plonk.Main_protocol_intf.SMap.t * PP.PC.Commitment.prover_aux)
    list

val 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.t

val get_generator : 
  Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
  Kzg.Bls.Domain.scalar

val get_srs : 
  Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
  PP.PC.Public_parameters.prover

val get_gen_n_nbt : 
  Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
  Kzg.Bls.Domain.scalar * int * int

val get_transcript : 
  Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
  Kzg.Utils.Transcript.t

val check_no_zk : 
  Plonk__Main_protocol.Make_impl(PP).Prover.public_parameters ->
  unit

package octez-libs