∀ {α : Type u} {β : α → Type v} {instOrd : Ord α} {t : Std.DTreeMap.Internal.Impl α β} [Std.TransOrd α]
  [inst : Std.LawfulEqOrd α] (h : t.WF) {a k : α} {v : β k},
  (Std.DTreeMap.Internal.Impl.insert k v t ⋯).impl.get? a =
    if h : compare k a = Ordering.eq then some (cast ⋯ v) else t.get? a