∀ {α : Type u} {β : Type v} [inst : BEq α] [EquivBEq α] {l l' : List ((_ : α) × β)} {k : α} {f : β → β},
  Std.Internal.List.DistinctKeys l →
    l.Perm l' → (Std.Internal.List.Const.modifyKey k f l).Perm (Std.Internal.List.Const.modifyKey k f l')