Dal (tezos-protocol-023-PtSeouLo.Tezos_protocol_environment_023

type t

type parameters = Tezos_crypto_dal.Cryptobox.Verifier.parameters = {

redundancy_factor : int;
page_size : int;
slot_size : int;
number_of_shards : int;

}

val parameters_encoding : parameters Data_encoding.t

val make : parameters -> (t, [> `Fail of string ]) Pervasives.result

val parameters : t -> parameters

type commitment = Tezos_crypto_dal.Cryptobox.Verifier.commitment

module Commitment : sig ... end

type commitment_proof = Tezos_crypto_dal.Cryptobox.Verifier.commitment_proof

module Commitment_proof : sig ... end

val verify_commitment : t -> commitment -> commitment_proof -> bool

type page = bytes

type page_proof = Tezos_crypto_dal.Cryptobox.Verifier.page_proof

val page_proof_encoding : page_proof Data_encoding.t

val pages_per_slot : parameters -> int

val verify_page : 
  t ->
  commitment ->
  page_index:int ->
  page ->
  page_proof ->
  (bool, [> `Page_length_mismatch | `Segment_index_out_of_range ]) Result.t

type share = Tezos_crypto_dal.Cryptobox.Verifier.share

val share_encoding : share Data_encoding.t

type shard = Tezos_crypto_dal.Cryptobox.Verifier.shard = {

index : int;
share : share;

}

val shard_encoding : shard Data_encoding.t

type shard_proof = Tezos_crypto_dal.Cryptobox.Verifier.shard_proof

val shard_proof_encoding : shard_proof Data_encoding.t

type ('a, 'b) error_container

val verify_shard : 
  t ->
  commitment ->
  shard ->
  shard_proof ->
  (unit,
    [> `Invalid_degree_strictly_less_than_expected of
         (int, int) error_container
    | `Invalid_shard
    | `Shard_index_out_of_range of string
    | `Shard_length_mismatch ])
    Result.t

val share_is_trap : 
  Signature.Public_key_hash.t ->
  share ->
  traps_fraction:Q.t ->
  (bool, [> `Decoding_error ]) Result.t