P (mavryk-protocol-demo-counter.Mavryk_protocol_environment_demo

val max_block_length : int

val max_operation_data_length : int

val validation_passes : Updater.quota list

type block_header_data

val block_header_data_encoding : block_header_data Data_encoding.t

type block_header = {

shell : Block_header.shell_header;
protocol_data : block_header_data;

}

type block_header_metadata

val block_header_metadata_encoding_with_legacy_attestation_name : 
  block_header_metadata Data_encoding.t

val block_header_metadata_encoding : block_header_metadata Data_encoding.t

type operation_data

type operation_receipt

type operation = {

shell : Operation.shell_header;
protocol_data : operation_data;

}

val operation_data_encoding : operation_data Data_encoding.t

val operation_data_encoding_with_legacy_attestation_name : 
  operation_data Data_encoding.t

val operation_receipt_encoding : operation_receipt Data_encoding.t

val operation_receipt_encoding_with_legacy_attestation_name : 
  operation_receipt Data_encoding.t

val operation_data_and_receipt_encoding : 
  (operation_data * operation_receipt) Data_encoding.t

val operation_data_and_receipt_encoding_with_legacy_attestation_name : 
  (operation_data * operation_receipt) Data_encoding.t

val acceptable_pass : operation -> int option

val compare_operations : 
  (Operation_hash.t * operation) ->
  (Operation_hash.t * operation) ->
  int

type mode =

| Application of block_header
| Partial_validation of block_header
| Construction of {
1. predecessor_hash : Block_hash.t;
2. timestamp : Time.t;
3. block_header_data : block_header_data;
}
| Partial_construction of {
1. predecessor_hash : Block_hash.t;
2. timestamp : Time.t;
}

type validation_state

type application_state

val begin_validation : 
  Context.t ->
  Chain_id.t ->
  mode ->
  predecessor:Block_header.shell_header ->
  validation_state Error_monad.tzresult Lwt.t

val validate_operation : 
  ?check_signature:bool ->
  validation_state ->
  Operation_hash.t ->
  operation ->
  validation_state Error_monad.tzresult Lwt.t

val finalize_validation : validation_state -> unit Error_monad.tzresult Lwt.t

val begin_application : 
  Context.t ->
  Chain_id.t ->
  mode ->
  predecessor:Block_header.shell_header ->
  application_state Error_monad.tzresult Lwt.t

val apply_operation : 
  application_state ->
  Operation_hash.t ->
  operation ->
  (application_state * operation_receipt) Error_monad.tzresult Lwt.t

val finalize_application : 
  application_state ->
  Block_header.shell_header option ->
  (Updater.validation_result * block_header_metadata) Error_monad.tzresult
    Lwt.t

val rpc_services : Updater.rpc_context RPC_directory.t

val init : 
  Chain_id.t ->
  Context.t ->
  Block_header.shell_header ->
  Updater.validation_result Error_monad.tzresult Lwt.t

val value_of_key : 
  chain_id:Chain_id.t ->
  predecessor_context:Context.t ->
  predecessor_timestamp:Time.t ->
  predecessor_level:Int32.t ->
  predecessor_fitness:Fitness.t ->
  predecessor:Block_hash.t ->
  timestamp:Time.t ->
  (Context.Cache.key ->
    Context.Cache.value Error_monad.tzresult Lwt.t)
    Error_monad.tzresult
    Lwt.t

module Mempool : sig ... end