∀ {α : Type u} {β : α → Type v} [inst : Ord α] [inst_1 : Std.TransOrd α] [inst_2 : BEq α] [inst_3 : Std.LawfulBEqOrd α]
  {k km kme : α} {l : List ((a : α) × β a)},
  Std.Internal.List.DistinctKeys l →
    ∀ (hkme : Std.Internal.List.minKey? (Std.Internal.List.eraseKey k l) = some kme),
      (Std.Internal.List.minKey? l).get ⋯ = km → (compare km kme).isLE = true