Module `Polynomial_protocol.Make_impl`Source

Parameters

module Super_PC : Polynomial_commitment.S

module Answers_commitment : Plonk.Input_commitment.S

Signature

include sig ... end

Sourcetype prover_public_parameters = Super_PC.Commitment.prover_public_parameters

val prover_public_parameters_t : 
  Super_PC.Commitment.prover_public_parameters Repr.t

Sourcetype verifier_public_parameters = Super_PC.Public_parameters.verifier

Sourceval verifier_public_parameters_t : Super_PC.Public_parameters.verifier Repr.t

Sourcetype transcript = Bytes.t

Sourceval transcript_t : bytes Repr.t

Sourcetype proof = {

cm_t : Super_PC.Commitment.t;
pc_proof : Super_PC.proof;
pc_answers : Plonk.Bls.Scalar.t Plonk.SMap.t Plonk.SMap.t list;

}

Sourceval proof_t : proof Repr.t

Sourceval split_t : int -> Plonk.Bls.Poly.t -> int -> Plonk.Bls.Poly.t Plonk.SMap.t

Source

val compute_t : 
  n:int ->
  alpha:Plonk.Bls.Scalar.t ->
  nb_of_t_chunks:int ->
  Plonk.Bls.Evaluations.t Plonk.SMap.t ->
  Plonk.Bls.Poly.t Plonk.SMap.t

Source

val eval_and_batch_ids : 
  (Plonk.Bls.Scalar.t * 'a) ->
  'b Plonk.SMap.t Plonk.SMap.t list ->
  ('a -> 'b Plonk.SMap.t Plonk.SMap.t -> Plonk.Bls.Scalar.t Plonk.SMap.t) ->
  Plonk.Bls.Scalar.t

Source

val setup : 
  setup_params:int ->
  srs:
    (Octez_bls12_381_polynomial.Bls12_381_polynomial.Srs.t
     * Octez_bls12_381_polynomial.Bls12_381_polynomial.Srs.t) ->
  Super_PC.Commitment.prover_public_parameters
  * Super_PC.Public_parameters.verifier

Source

val prove_aux : 
  Super_PC.Commitment.prover_public_parameters ->
  Bytes.t ->
  int ->
  Plonk.Bls.Scalar.t ->
  (Plonk.Bls.Poly.t Plonk.SMap.t * Super_PC.Commitment.prover_aux) list ->
  Plonk.Identities.eval_point list list ->
  'a ->
  ('a -> Plonk.Bls.Evaluations.t Plonk.SMap.t) ->
  int ->
  (Plonk.Bls.Scalar.t
   * Plonk.Bls.Scalar.t
   * Plonk.Bls.Scalar.t Plonk.SMap.t Plonk.SMap.t list
   * Super_PC.Commitment.t)
  * Plonk.Bls.Poly.t Plonk.SMap.t list
  * Super_PC.Commitment.prover_aux list
  * Plonk.Bls.Scalar.t Plonk.SMap.t list
  * Bytes.t

Source

val prove : 
  Super_PC.Commitment.prover_public_parameters ->
  Bytes.t ->
  n:int ->
  generator:Plonk.Bls.Scalar.t ->
  secrets:(Plonk.Bls.Poly.t Plonk.SMap.t * Super_PC.Commitment.prover_aux) list ->
  eval_points:Plonk.Identities.eval_point list list ->
  evaluations:'a ->
  identities:('a -> Plonk.Bls.Evaluations.t Plonk.SMap.t) ->
  nb_of_t_chunks:int ->
  proof * Bytes.t

Sourcetype pp_commit_to_t_r = Plonk.Bls.Evaluations.t Plonk.SMap.t

Sourceval pp_commit_to_t_r_t : Plonk.Bls.Evaluations.t Plonk.SMap.t Repr.ty

Source

val verify_aux : 
  Bytes.t ->
  Plonk.Bls.Scalar.t ->
  Super_PC.Commitment.t list ->
  Plonk.Identities.eval_point list list ->
  proof ->
  Plonk.Bls.Scalar.t
  * Plonk.Bls.Scalar.t
  * Bytes.t
  * Super_PC.Commitment.t list
  * Plonk.Bls.Scalar.t Plonk.SMap.t list

Source

val verify : 
  Super_PC.Public_parameters.verifier ->
  Bytes.t ->
  n:int ->
  generator:Plonk.Bls.Scalar.t ->
  commitments:Super_PC.Commitment.t list ->
  eval_points:Plonk.Identities.eval_point list list ->
  identities:
    (Plonk.Bls.Scalar.t ->
      Plonk.Bls.Scalar.t Plonk.SMap.t Plonk.SMap.t ->
      Plonk.Bls.Scalar.t Plonk.SMap.t) ->
  proof ->
  bool * Bytes.t

module PC = Super_PC

module Answers_commitment = Answers_commitment

Sourcetype prover_aux = {

answers : Plonk.Bls.Scalar.t SMap.t SMap.t list;
batch : Plonk.Bls.Scalar.t SMap.t list;
alpha : Plonk.Bls.Scalar.t;
x : Plonk.Bls.Scalar.t;
r : Plonk.Bls.Scalar.t;
cms_answers : Answers_commitment.t SMap.t;
t_answers : Plonk.Bls.Scalar.t list;

}

Sourcetype verifier_aux = {

alpha : Plonk.Bls.Scalar.t;
x : Plonk.Bls.Scalar.t;
r : Plonk.Bls.Scalar.t;

}

Source

val update_transcript_with_answers : 
  bytes ->
  Answers_commitment.public SMap.t ->
  Plonk.Bls.Scalar.t list ->
  bytes

Source

val verify_t : 
  n:int ->
  x:Plonk.Bls.Scalar.t ->
  alpha:Plonk.Bls.Scalar.t ->
  t_answers:Plonk.Bls.Scalar.t list ->
  ids_batch:(Plonk.Bls.Scalar.t * int) SMap.t ->
  bool

Source

val update_transcript_with_formatted_answers : 
  bytes ->
  (Plonk.Bls.Scalar.t array -> Answers_commitment.t) SMap.t ->
  Plonk.Bls.Scalar.t SMap.t SMap.t list ->
  Plonk.Bls.Scalar.t list * Answers_commitment.t SMap.t * bytes

Source

val prove_super_aggregation : 
  Super_PC.Commitment.prover_public_parameters ->
  Bytes.t ->
  commit_to_answers_map:
    (Plonk.Bls.Scalar.t array -> Answers_commitment.t) SMap.t ->
  n:int ->
  generator:Plonk.Bls.Scalar.t ->
  secrets:(Plonk.Bls.Poly.t Plonk.SMap.t * Super_PC.Commitment.prover_aux) list ->
  eval_points:Plonk.Identities.eval_point list list ->
  evaluations:'a ->
  identities:('a -> Plonk.Bls.Evaluations.t Plonk.SMap.t) ->
  nb_of_t_chunks:int ->
  (proof * prover_aux) * Super_PC.transcript

Source

val verify_super_aggregation : 
  Super_PC.Public_parameters.verifier ->
  Bytes.t ->
  n:int ->
  generator:Plonk.Bls.Scalar.t ->
  commitments:Super_PC.Commitment.t list ->
  eval_points:Plonk.Identities.eval_point list list ->
  s_list:Plonk.Bls.Scalar.t Plonk.SMap.t list ->
  cms_answers:Answers_commitment.public SMap.t ->
  t_answers:Plonk.Bls.Scalar.t list ->
  ids_batch:(Plonk.Bls.Scalar.t * int) SMap.t ->
  proof ->
  (bool * verifier_aux) * Super_PC.transcript

package octez-plonk

Module Polynomial_protocol.Make_implSource

Parameters

Signature

Module `Polynomial_protocol.Make_impl`Source