Module Context.ProofSource

type merkle_leaf_kind = Tezos_context_sigs__Context.Proof_types.merkle_leaf_kind =
  1. | Hole
  2. | Raw_context
type raw_context = Tezos_context_sigs__Context.Proof_types.raw_context =
  1. | Key of Tezos_base.TzPervasives.Bytes.t
  2. | Dir of raw_context Tezos_base.TzPervasives.String.Map.t
  3. | Cut
type merkle_hash_kind = Tezos_context_sigs__Context.Proof_types.merkle_hash_kind =
  1. | Contents
  2. | Node
type merkle_node = Tezos_context_sigs__Context.Proof_types.merkle_node =
  1. | Hash of merkle_hash_kind * string
  2. | Data of raw_context
  3. | Continue of merkle_tree
val pp_raw_context : Format.formatter -> raw_context -> unit
type step = string
type value = bytes
type index = int
type hash = Tezos_base.TzPervasives.Context_hash.t
type !'a inode = 'a Tezos_context_sigs__Context.Proof_types.inode = {
  1. length : int;
  2. proofs : (index * 'a) list;
}
type !'a inode_extender = 'a Tezos_context_sigs__Context.Proof_types.inode_extender = {
  1. length : int;
  2. segment : index list;
  3. proof : 'a;
}
type tree = Tezos_context_sigs__Context.Proof_types.tree =
  1. | Value of value
  2. | Blinded_value of hash
  3. | Node of (step * tree) list
  4. | Blinded_node of hash
  5. | Inode of inode_tree inode
  6. | Extender of inode_tree inode_extender
and inode_tree = Tezos_context_sigs__Context.Proof_types.inode_tree =
  1. | Blinded_inode of hash
  2. | Inode_values of (step * tree) list
  3. | Inode_tree of inode_tree inode
  4. | Inode_extender of inode_tree inode_extender
type kinded_hash = [
  1. | `Node of hash
  2. | `Value of hash
]
module Stream : sig ... end
type stream = Stream.t
type !'a t = 'a Tezos_context_sigs__Context.Proof_types.t = {
  1. version : int;
  2. before : kinded_hash;
  3. after : kinded_hash;
  4. state : 'a;
}
module Internal_for_tests : sig ... end
val proof_hash_eq : 'a t -> 'b t -> bool