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