{α : Type u} →
  {β : α → Type v} →
    (k : α) →
      β k →
        (_x :
            (l : Std.DTreeMap.Internal.Impl α β) ×'
              (r : Std.DTreeMap.Internal.Impl α β) ×' (_ : l.Balanced) ×' r.Balanced) →
          Std.DTreeMap.Internal.Impl.Tree α β (_x.1.size + 1 + _x.2.1.size)