∀ {α : Type u} {instOrd : Ord α} {β : Type v} {t : Std.DTreeMap.Internal.Impl α fun x => β} [inst : Std.TransOrd α]
  (h : t.WF) {k : α} {f : β → β} {he : (Std.DTreeMap.Internal.Impl.Const.modify k f t).isEmpty = false},
  compare ((Std.DTreeMap.Internal.Impl.Const.modify k f t).maxKey he) (t.maxKey ⋯) = Ordering.eq