sig
  type ('v, 'k) t = { name : string; item : 'v; kind : 'k; }
  val item : ('v, 'k) Stable_matching.Item.t -> 'v
end