Zk_rollup (mavryk-protocol-alpha.Mavryk_raw_protocol_alpha.Alpha_context.Zk

module Address : Mavryk_protocol_environment_alpha.S.HASH

type t = Address.t

type scalar := Mavryk_protocol_environment_alpha.Bls.Primitive.Fr.t

val to_scalar : t -> scalar

module State : sig ... end

This module re-exports definitions from Zk_rollup_state_repr.

module Account : sig ... end

This module re-exports definitions from Zk_rollup_account_repr.

module Operation : sig ... end

This module re-exports definitions from Zk_rollup_operation_repr.

module Ticket : sig ... end

module Circuit_public_inputs : sig ... end

module Update : sig ... end

type pending_list =

| Empty of {
1. next_index : int64;
}
| Pending of {
1. next_index : int64;
2. length : int;
}

val pending_list_encoding : 
  pending_list Mavryk_protocol_environment_alpha.Data_encoding.t

val in_memory_size : t -> Cache_memory_helpers.sint

val originate : 
  context ->
  Account.static ->
  init_state:State.t ->
  (context * Address.t * Mavryk_protocol_environment_alpha.Z.t)
    Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val add_to_pending : 
  context ->
  Address.t ->
  (Operation.t * Ticket_hash.t option) list ->
  (context * Mavryk_protocol_environment_alpha.Z.t)
    Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val get_pending_length : 
  context ->
  Address.t ->
  (context * int) Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val get_prefix : 
  context ->
  Address.t ->
  int ->
  (context * (Operation.t * Ticket_hash.t option) list)
    Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val update : 
  context ->
  Address.t ->
  pending_to_drop:int ->
  new_account:Account.t ->
  context Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val account : 
  context ->
  t ->
  (context * Account.t) Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val pending_list : 
  context ->
  t ->
  (context * pending_list)
    Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val pending_op : 
  context ->
  t ->
  Mavryk_protocol_environment_alpha.Int64.t ->
  (context * (Operation.t * Ticket_hash.t option))
    Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val assert_exist : 
  context ->
  t ->
  context Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

val exists : 
  context ->
  t ->
  (context * bool) Mavryk_protocol_environment_alpha.Error_monad.tzresult
    Mavryk_protocol_environment_alpha.Lwt.t

module Errors : sig ... end

module Internal_for_tests : sig ... end