∀ {α : Type u} {β : α → Type v} [inst : BEq α] (l toInsert : List ((a : α) × β a)),
  Std.Internal.List.insertList l toInsert =
    match toInsert with
    | [] => l
    | ⟨k, v⟩ :: toInsert => Std.Internal.List.insertList (Std.Internal.List.insertEntry k v l) toInsert