∀ {α : Type u} {β : α → Type v} [inst : BEq α] {l : List ((a : α) × β a)} {k : α},
  (Std.Internal.List.eraseKey k l).length = if Std.Internal.List.containsKey k l = true then l.length - 1 else l.length