sig
  val get :
    (Db_types.kernel_function -> Kernel_function.Hptset.t) Pervasives.ref
end