Module Incremental__.Kind
include module type of sig ... end
type 'a t
= 'a Incremental__Types.Kind.t
=
include Core_kernel.Invariant.S1 with type 'a t := 'a t
val invariant : 'a Base__.Invariant_intf.inv -> 'a t Base__.Invariant_intf.inv
include Incremental__.Sexp_of.S1 with type 'a t := 'a t
val sexp_of_t : ('a -> Ppx_sexp_conv_lib.Sexp.t) -> 'a t -> Ppx_sexp_conv_lib.Sexp.t
val name : _ t -> string
val initial_num_children : _ t -> int
val slow_get_child : _ t -> index:int -> Incremental__.Types.Node.Packed.t
slow_get_child t ~index
raises unless0 <= index < max_num_children t
. It will also raise if theindex
'th child is currently undefined (e.g. a bind node with no current rhs).
val bind_rhs_child_index : int
val freeze_child_index : int
val if_branch_child_index : int
val join_rhs_child_index : int
val iteri_children : _ t -> f:(int -> Incremental__.Types.Node.Packed.t -> unit) -> unit