Storage.Make_Storage
module C : Core_sig.Validator
module Tree : sig ... end
module Roots : sig ... end
module Nullifiers : sig ... end
module Ciphertexts : sig ... end
type state = {
tree : Tree.t;
nullifiers : Nullifiers.t;
roots : Roots.t;
ciphertexts : Ciphertexts.t;
memo_size : int;
}
val create_empty_state : memo_size:int -> state
val state_encoding : state Data_encoding.encoding
val mem_nullifier : state -> Nullifiers.elt -> bool
val add_nullifier : state -> Nullifiers.elt -> state
val add : state -> (C.Commitment.t * C.Ciphertext.t) list -> state
val empty : memo_size:int -> state
val size : state -> int64 * int64
val get_memo_size : state -> int
val get_witness : state -> Mavryk_stdlib.Compare.Int64.t -> bytes
val get :
state ->
Mavryk_stdlib.Compare.Int64.t ->
C.Commitment.t * C.Ciphertext.t
val mem : state -> Ciphertexts.Map.key -> bool