∀ {α : Type u} {β : α → Type v} {x : Ord α} [Std.TransOrd α] [inst : BEq α] [Std.LawfulBEqOrd α]
  (m₁ m₂ : Std.DTreeMap.Internal.Impl α β),
  m₁.WF →
    m₂.WF →
      (m₁.inter! m₂).toListModel.Perm
        (List.filter (fun p => Std.Internal.List.containsKey p.fst m₂.toListModel) m₁.toListModel)