{ simp at h; simpa[h] using r }
case redux
L : Language
inst✝³ : (k : ℕ) → DecidableEq (L.Func k)
inst✝² : (k : ℕ) → DecidableEq (L.Rel k)
inst✝¹ : (k : ℕ) → Encodable (L.Func k)
inst✝ : (k : ℕ) → Encodable (L.Rel k)
T : Theory L
Γ : Sequent L
c : Code L
i : ℕ
Δ₂ Δ₁ : Sequent L
c✝ : Code L
h : decode ((encode c).pair i).unpair.1 = some c✝
r : Δ₂ ≺[c✝] Δ₁
⊢ Δ₂ ≺[c] Δ₁

case refl
L : Language
inst✝³ : (k : ℕ) → DecidableEq (L.Func k)
inst✝² : (k : ℕ) → DecidableEq (L.Rel k)
inst✝¹ : (k : ℕ) → Encodable (L.Func k)
inst✝ : (k : ℕ) → Encodable (L.Rel k)
T : Theory L
Γ : Sequent L
c : Code L
i : ℕ
Δ₂ : Sequent L
h : decode ((encode c).pair i).unpair.1 = none
⊢ Δ₂ ≺[c] Δ₂
case refl
L : Language
inst✝³ : (k : ℕ) → DecidableEq (L.Func k)
inst✝² : (k : ℕ) → DecidableEq (L.Rel k)
inst✝¹ : (k : ℕ) → Encodable (L.Func k)
inst✝ : (k : ℕ) → Encodable (L.Rel k)
T : Theory L
Γ : Sequent L
c : Code L
i : ℕ
Δ₂ : Sequent L
h : decode ((encode c).pair i).unpair.1 = none
⊢ Δ₂ ≺[c] Δ₂