∀ {α : Type u} {β : α → Type v} {instOrd : Ord α} {t : Std.DTreeMap.Internal.Impl α β} [inst : Std.TransOrd α]
  (h : t.WF) {k : α} {v : β k} {km kmi : α},
  t.minKey? = some km →
    (Std.DTreeMap.Internal.Impl.insert k v t ⋯).impl.minKey?.get ⋯ = kmi → (compare kmi km).isLE = true