octez-libs 20.1 (latest) · OCaml Package

module BasePC : sig ... end

type secret = Kzg.Bls.Poly.t Kzg.SMap.t

type query = Kzg.Bls.Scalar.t Kzg.SMap.t

val query_t : query Repr.t

type answer = Kzg.Bls.Scalar.t Kzg.SMap.t Kzg.SMap.t

val answer_t : answer Repr.t

type proof = PC_Pack.proof

val proof_t : proof Repr.t

module Commitment : sig ... end

module Public_parameters : sig ... end

val commit : 
  ?all_keys:string list ->
  Public_parameters.prover ->
  secret ->
  Commitment.t * Commitment.prover_aux

val evaluate : secret -> query -> answer

val prove : 
  Public_parameters.prover ->
  Kzg.Utils.Transcript.t ->
  secret list ->
  Commitment.prover_aux list ->
  query list ->
  answer list ->
  proof * Kzg.Utils.Transcript.t

val verify : 
  Public_parameters.verifier ->
  Kzg.Utils.Transcript.t ->
  Commitment.t list ->
  query list ->
  answer list ->
  proof ->
  bool * Kzg.Utils.Transcript.t

val merge_answers : answer list -> answer

type worker_msg = PC_Pack.worker_msg

val worker_msg_t : worker_msg Repr.t

type main_prover_state = PC_Pack.main_prover_state

type main_prover_msg = PC_Pack.main_prover_msg

val main_prover_msg_t : main_prover_msg Repr.t

type partial_prover_aux = PC_Pack.partial_prover_aux

val distributed_expand_transcript : 
  Kzg.Utils.Transcript.t ->
  query list ->
  answer list ->
  Kzg.Utils.Transcript.t

val distributed_prove_main1 : 
  Public_parameters.prover ->
  Kzg.Utils.Transcript.t ->
  query list ->
  answer list ->
  secret list ->
  Commitment.prover_aux list ->
  worker_msg * main_prover_state

val distributed_prove_worker : 
  secret list ->
  Commitment.prover_aux list ->
  worker_msg ->
  main_prover_msg

val distributed_prove_main2 : 
  main_prover_state ->
  main_prover_msg list ->
  proof * Kzg.Utils.Transcript.t * partial_prover_aux

type prover_aux = PC_Pack.prover_aux = {

r : Kzg.Bls.Scalar.t;
s_list : Kzg.Bls.Scalar.t Kzg.SMap.t list;

}

val prove_super_aggregation : 
  Public_parameters.prover ->
  Kzg.Utils.Transcript.t ->
  Kzg.Bls.Poly.t Kzg.SMap.t list ->
  Commitment.prover_aux list ->
  query list ->
  Kzg.Bls.Scalar.t Kzg.SMap.t Kzg.SMap.t list ->
  (proof * prover_aux) * Kzg.Utils.Transcript.t

val verify_super_aggregation : 
  Public_parameters.verifier ->
  Kzg.Utils.Transcript.t ->
  Commitment.t list ->
  query list ->
  Kzg.Bls.Scalar.t Kzg.SMap.t list ->
  proof ->
  bool * Kzg.Bls.Scalar.t * Kzg.Utils.Transcript.t

package octez-libs