intros α x Δ f
⊢ ∀ {α : Sinf} {x : String} {Δ : Ctx Sinf}, Δ ⋁ ∀ₛ x ; α → ∀ (n : ℕ), Δ ⋁ α [x ≔ Sinf_term.fromNat n]
α : Sinf
x : String
Δ : Ctx Sinf
f : Δ ⋁ ∀ₛ x ; α
⊢ ∀ (n : ℕ), Δ ⋁ α [x ≔ Sinf_term.fromNat n]