exact .app ht (hi he)
ctx : Ctx
t : Term
ty : Ty
ctx✝ : Ctx
ty₁✝ ty₂✝ : Ty
t₂✝ : Term
a✝ : ctx✝ ⊢ t₂✝ ⋮ ty₁✝
hi : ∀ {t' : Term}, t₂✝ ⇒ t' → ctx✝ ⊢ t' ⋮ ty₁✝
t₂'✝ : Term
v₁✝ : Value
ht :
  ctx✝ ⊢
    match v₁✝ with
    | Value.abs ty body => Term.abs ty body ⋮
    Ty.arrow ty₁✝ ty₂✝
a_ih✝ :
  ∀ {t' : Term},
    (match v₁✝ with
        | Value.abs ty body => Term.abs ty body) ⇒
        t' →
      ctx✝ ⊢ t' ⋮ Ty.arrow ty₁✝ ty₂✝
he : t₂✝ ⇒ t₂'✝
⊢ ctx✝ ⊢
    Term.app
      (match v₁✝ with
      | Value.abs ty body => Term.abs ty body)
      t₂'✝ ⋮
    ty₂✝
no goals