functor (Base : NUMERIC_BASE->
  sig
    type bat__refops_t = Base.t
    val ( += ) : bat__refops_t ref -> bat__refops_t -> unit
    val ( -= ) : bat__refops_t ref -> bat__refops_t -> unit
    val ( *= ) : bat__refops_t ref -> bat__refops_t -> unit
    val ( /= ) : bat__refops_t ref -> bat__refops_t -> unit
  end