tezos-protocol-006-PsCARTHA 20.1

type location =
  Tezos_protocol_environment_006_PsCARTHA.Micheline.canonical_location

type annot = Tezos_protocol_environment_006_PsCARTHA.Micheline.annot

type expr =
  Michelson_v1_primitives.prim
    Tezos_protocol_environment_006_PsCARTHA.Micheline.canonical

type Tezos_protocol_environment_006_PsCARTHA.Error_monad.error +=

| Lazy_script_decode

type lazy_expr =
  expr Tezos_protocol_environment_006_PsCARTHA.Data_encoding.lazy_t

type node =
  (location, Michelson_v1_primitives.prim)
    Tezos_protocol_environment_006_PsCARTHA.Micheline.node

val location_encoding : 
  location Tezos_protocol_environment_006_PsCARTHA.Data_encoding.t

val expr_encoding : 
  expr Tezos_protocol_environment_006_PsCARTHA.Data_encoding.t

val lazy_expr_encoding : 
  lazy_expr Tezos_protocol_environment_006_PsCARTHA.Data_encoding.t

val lazy_expr : expr -> lazy_expr

type t = {

code : lazy_expr;
storage : lazy_expr;

}

val encoding : t Tezos_protocol_environment_006_PsCARTHA.Data_encoding.encoding

val deserialized_cost : expr -> Gas_limit_repr.cost

val serialized_cost : 
  Tezos_protocol_environment_006_PsCARTHA.MBytes.t ->
  Gas_limit_repr.cost

val traversal_cost : node -> Gas_limit_repr.cost

val node_cost : node -> Gas_limit_repr.cost

val int_node_cost : 
  Tezos_protocol_environment_006_PsCARTHA.Z.t ->
  Gas_limit_repr.cost

val int_node_cost_of_numbits : int -> Gas_limit_repr.cost

val string_node_cost : string -> Gas_limit_repr.cost

val string_node_cost_of_length : int -> Gas_limit_repr.cost

val bytes_node_cost : 
  Tezos_protocol_environment_006_PsCARTHA.MBytes.t ->
  Gas_limit_repr.cost

val bytes_node_cost_of_length : int -> Gas_limit_repr.cost

val prim_node_cost_nonrec : expr list -> annot -> Gas_limit_repr.cost

val prim_node_cost_nonrec_of_length : int -> annot -> Gas_limit_repr.cost

val seq_node_cost_nonrec : expr list -> Gas_limit_repr.cost

val seq_node_cost_nonrec_of_length : int -> Gas_limit_repr.cost

val force_decode : 
  lazy_expr ->
  (expr * Gas_limit_repr.cost)
    Tezos_protocol_environment_006_PsCARTHA.Error_monad.tzresult

val force_bytes : 
  lazy_expr ->
  (Tezos_protocol_environment_006_PsCARTHA.MBytes.t * Gas_limit_repr.cost)
    Tezos_protocol_environment_006_PsCARTHA.Error_monad.tzresult

val minimal_deserialize_cost : lazy_expr -> Gas_limit_repr.cost

val unit_parameter : lazy_expr

val is_unit_parameter : lazy_expr -> bool

val strip_annotations : node -> node

package tezos-protocol-006-PsCARTHA