∀ {α : Type u} {β : α → Type v} [inst : BEq α] {l : List ((a : α) × β a)} {k k' : α} {v : β k} {v' : β k'},
  Std.Internal.List.replaceEntry k v (⟨k', v'⟩ :: l) =
    bif k' == k then ⟨k, v⟩ :: l else ⟨k', v'⟩ :: Std.Internal.List.replaceEntry k v l