refine ⟨⟨Nat.succ_pos n, hn1⟩, ?_⟩
case h
p : ℕ → Prop
n : ℕ
hn1 : p (n + 1)
hn2 : ∀ (y : ℕ), (fun n => p (n + 1)) y → y = n
⊢ (fun n => 0 < n ∧ p n) (n + 1) ∧ ∀ (y : ℕ), (fun n => 0 < n ∧ p n) y → y = n + 1
case h
p : ℕ → Prop
n : ℕ
hn1 : p (n + 1)
hn2 : ∀ (y : ℕ), (fun n => p (n + 1)) y → y = n
⊢ ∀ (y : ℕ), (fun n => 0 < n ∧ p n) y → y = n + 1