refine forall_congr' (λ m ↦ ?_)
P : ℕ+ → ℕ+ → Prop
⊢ (∀ (n : ℕ) (n_1 : ℕ+), P n.succPNat n_1) ↔ ∀ (m n : ℕ), P m.succPNat n.succPNat
P : ℕ+ → ℕ+ → Prop
m : ℕ
⊢ (∀ (n : ℕ+), P m.succPNat n) ↔ ∀ (n : ℕ), P m.succPNat n.succPNat