tezos-protocol-alpha 20.1 · OCaml Package

type reveal_proof =

| Raw_data_proof of string
| Metadata_proof
| Dal_page_proof of {
1. page_id : Dal.Page.t;
2. proof : Dal.Slots_history.proof;
}
| Dal_parameters_proof

type input_proof =

| Inbox_proof of {
1. level : Raw_level.t;
2. message_counter : Tezos_protocol_environment_alpha.Z.t;
3. proof : Inbox.serialized_proof;
}
| Reveal_proof of reveal_proof
| First_inbox_message

type 'proof t = {

pvm_step : 'proof;
input_proof : input_proof option;

}

type serialized = private string

val serialize_pvm_step : 
  pvm:('state, 'proof, 'output) PVM.implementation ->
  'proof ->
  serialized Tezos_protocol_environment_alpha.Error_monad.tzresult

val unserialize_pvm_step : 
  pvm:('state, 'proof, 'output) PVM.implementation ->
  serialized ->
  'proof Tezos_protocol_environment_alpha.Error_monad.tzresult

val serialized_encoding : 
  serialized Tezos_protocol_environment_alpha.Data_encoding.t

val encoding : serialized t Tezos_protocol_environment_alpha.Data_encoding.t

module type PVM_with_context_and_state = sig ... end

type Tezos_protocol_environment_alpha.Error_monad.error +=

| Sc_rollup_proof_check of string

val valid : 
  pvm:('state, 'proof, 'output) PVM.implementation ->
  metadata:Metadata.t ->
  Inbox.history_proof ->
  Raw_level.t ->
  Dal.Slots_history.t ->
  Dal.parameters ->
  dal_activation_level:Raw_level.t option ->
  dal_attestation_lag:int ->
  dal_number_of_slots:int ->
  is_reveal_enabled:is_reveal_enabled ->
  dal_attested_slots_validity_lag:int ->
  'proof t ->
  (input option * input_request)
    Tezos_protocol_environment_alpha.Error_monad.tzresult
    Tezos_protocol_environment_alpha.Lwt.t

val produce : 
  metadata:Metadata.t ->
  (module PVM_with_context_and_state) ->
  Raw_level.t ->
  is_reveal_enabled:is_reveal_enabled ->
  serialized t Tezos_protocol_environment_alpha.Error_monad.tzresult
    Tezos_protocol_environment_alpha.Lwt.t

module Dal_helpers : sig ... end

package tezos-protocol-alpha