{α : Type u} →
  {β : α → Type v} →
    {inst : Ord α} →
      {P : Sort u_1} →
        {iter : Std.DTreeMap.Internal.Zipper α β} →
          {upper : α} →
            {iter' : Std.DTreeMap.Internal.Zipper α β} →
              {upper' : α} →
                { iter := iter, upper := upper } = { iter := iter', upper := upper' } →
                  (iter ≍ iter' → upper ≍ upper' → P) → P