sig
  type 'a t
  val create :
    ?eq:('a -> 'a -> bool) -> 'a -> 'a Ketrew_pure.Reactive.Source.t
  val set : 'a Ketrew_pure.Reactive.Source.t -> 'a -> unit
  val signal :
    'a Ketrew_pure.Reactive.Source.t -> 'a Ketrew_pure.Reactive.signal
  val value : 'a Ketrew_pure.Reactive.Source.t -> 'a
  val modify : 'a Ketrew_pure.Reactive.Source.t -> f:('a -> 'a) -> unit
  val modify_opt :
    'a Ketrew_pure.Reactive.Source.t -> f:('a -> 'a option) -> unit
  val map_signal :
    'a Ketrew_pure.Reactive.Source.t ->
    f:('a -> 'b) -> 'b Ketrew_pure.Reactive.signal
end