Incr.Observertype 'a t = ('a, state_witness) Incremental.Observer.tval sexp_of_t : ('a -> Sexplib0.Sexp.t) -> 'a t -> Sexplib0.Sexp.tinclude Core.Invariant.S1 with type 'a t := 'a tval invariant : ('a -> unit) -> 'a t -> unitval use_is_allowed : _ t -> bool @@ portableval value : 'a t -> 'a Core.Or_error.t @@ portableval value_exn : 'a t -> 'a @@ portablemodule Update : sig ... endval disallow_future_use : _ t -> unit @@ portable