α : Type u_1
β : Type ?u.89625
s✝ t : Finset α
f : α → β
n : ℕ
p : Finset α → Sort u_2
s : Finset α
H : (t₁ : Finset α) → ({t₂ : Finset α} → card t₂ ≤ n → t₁ ⊂ t₂ → p t₂) → card t₁ ≤ n → p t₁
⊢ (fun a => strongDownwardInduction H s a) = H s fun {t} ht x => strongDownwardInduction H t ht
α : Type u_1
β : Type ?u.89625
s✝ t : Finset α
f : α → β
n : ℕ
p : Finset α → Sort u_2
s : Finset α
H : (t₁ : Finset α) → ({t₂ : Finset α} → card t₂ ≤ n → t₁ ⊂ t₂ → p t₂) → card t₁ ≤ n → p t₁
⊢ (fun a => strongDownwardInductionOn s H a) = H s fun {t} ht x => strongDownwardInductionOn t H ht
dsimp only [strongDownwardInductionOn]
no goals
α : Type u_1
β : Type ?u.89625
s✝ t : Finset α
f : α → β
n : ℕ
p : Finset α → Sort u_2
s : Finset α
H : (t₁ : Finset α) → ({t₂ : Finset α} → card t₂ ≤ n → t₁ ⊂ t₂ → p t₂) → card t₁ ≤ n → p t₁
⊢ (fun a => strongDownwardInduction H s a) = H s fun {t} ht x => strongDownwardInduction H t ht
rw [strongDownwardInduction]