Theorem: Lean4Lean.TrExpr.weakN_inv
Proof state before:
case app
env : VEnv
n : Nat
Δ₁ : VLCtx
Us : List Name
e : Expr
e' : VExpr
henv : Ordered env
f'✝ A✝ B✝ a'✝ : VExpr
Δ✝ : VLCtx
f✝ a✝ : Expr
h1✝ : HasType env (List.length Us) (VLCtx.toCtx Δ✝) f'✝ (VExpr.forallE A✝ B✝)
h2✝ : HasType env (List.length Us) (VLCtx.toCtx Δ✝) a'✝ A✝
hf : TrExpr env Us Δ✝ f✝ f'✝
ha : TrExpr env Us Δ✝ a✝ a'✝
ih1✝ :
  ∀ {Δ Δ₂ : VLCtx} {dk k : Nat},
    VLCtx.LiftN Δ Δ₂ dk n k →
      VLCtx.IsDefEq env (List.length Us) Δ✝ Δ₂ →
        InScope (fun x => x ∈ VLCtx.fvars Δ) f✝ dk → ∃ e', TrExpr env Us Δ f✝ e'
ih2✝ :
  ∀ {Δ Δ₂ : VLCtx} {dk k : Nat},
    VLCtx.LiftN Δ Δ₂ dk n k →
      VLCtx.IsDefEq env (List.length Us) Δ✝ Δ₂ →
        InScope (fun x => x ∈ VLCtx.fvars Δ) a✝ dk → ∃ e', TrExpr env Us Δ a✝ e'
Δ Δ₂ : VLCtx
dk k : Nat
W : VLCtx.LiftN Δ Δ₂ dk n k
hΔ : VLCtx.IsDefEq env (List.length Us) Δ✝ Δ₂
hs : InScope (fun x => x ∈ VLCtx.fvars Δ) (Expr.app f✝ a✝) dk
hΔ₁ : VLCtx.WF env (List.length Us) Δ✝
hΔ₂ : VLCtx.WF env (List.length Us) Δ₂
f₁ : VExpr
ih1 : TrExpr env Us Δ f✝ f₁
a₁ : VExpr
ih2 : TrExpr env Us Δ a✝ a₁
h1 : HasType env (List.length Us) (VLCtx.toCtx Δ✝) (VExpr.liftN n f₁ k) (VExpr.forallE A✝ B✝)
h2 : HasType env (List.length Us) (VLCtx.toCtx Δ✝) (VExpr.liftN n a₁ k) A✝
this✝ :
  VExpr.WF env (List.length Us) (VLCtx.toCtx Δ₂) (VExpr.liftN n (VExpr.app f₁ a₁) k) ↔
    VExpr.WF env (List.length Us) (VLCtx.toCtx Δ) (VExpr.app f₁ a₁)
this : VExpr.WF env (List.length Us) (VLCtx.toCtx Δ) (VExpr.app f₁ a₁)
⊢ ∃ e', TrExpr env Us Δ (Expr.app f✝ a✝) e'
Tactic:
have ⟨_, _, h1, h2⟩ := this.app_inv henv (W.wf henv hΔ₂).toCtx
Proof state after:
case app
env : VEnv
n : Nat
Δ₁ : VLCtx
Us : List Name
e : Expr
e' : VExpr
henv : Ordered env
f'✝ A✝ B✝ a'✝ : VExpr
Δ✝ : VLCtx
f✝ a✝ : Expr
h1✝¹ : HasType env (List.length Us) (VLCtx.toCtx Δ✝) f'✝ (VExpr.forallE A✝ B✝)
h2✝¹ : HasType env (List.length Us) (VLCtx.toCtx Δ✝) a'✝ A✝
hf : TrExpr env Us Δ✝ f✝ f'✝
ha : TrExpr env Us Δ✝ a✝ a'✝
ih1✝ :
  ∀ {Δ Δ₂ : VLCtx} {dk k : Nat},
    VLCtx.LiftN Δ Δ₂ dk n k →
      VLCtx.IsDefEq env (List.length Us) Δ✝ Δ₂ →
        InScope (fun x => x ∈ VLCtx.fvars Δ) f✝ dk → ∃ e', TrExpr env Us Δ f✝ e'
ih2✝ :
  ∀ {Δ Δ₂ : VLCtx} {dk k : Nat},
    VLCtx.LiftN Δ Δ₂ dk n k →
      VLCtx.IsDefEq env (List.length Us) Δ✝ Δ₂ →
        InScope (fun x => x ∈ VLCtx.fvars Δ) a✝ dk → ∃ e', TrExpr env Us Δ a✝ e'
Δ Δ₂ : VLCtx
dk k : Nat
W : VLCtx.LiftN Δ Δ₂ dk n k
hΔ : VLCtx.IsDefEq env (List.length Us) Δ✝ Δ₂
hs : InScope (fun x => x ∈ VLCtx.fvars Δ) (Expr.app f✝ a✝) dk
hΔ₁ : VLCtx.WF env (List.length Us) Δ✝
hΔ₂ : VLCtx.WF env (List.length Us) Δ₂
f₁ : VExpr
ih1 : TrExpr env Us Δ f✝ f₁
a₁ : VExpr
ih2 : TrExpr env Us Δ a✝ a₁
h1✝ : HasType env (List.length Us) (VLCtx.toCtx Δ✝) (VExpr.liftN n f₁ k) (VExpr.forallE A✝ B✝)
h2✝ : HasType env (List.length Us) (VLCtx.toCtx Δ✝) (VExpr.liftN n a₁ k) A✝
this✝ :
  VExpr.WF env (List.length Us) (VLCtx.toCtx Δ₂) (VExpr.liftN n (VExpr.app f₁ a₁) k) ↔
    VExpr.WF env (List.length Us) (VLCtx.toCtx Δ) (VExpr.app f₁ a₁)
this : VExpr.WF env (List.length Us) (VLCtx.toCtx Δ) (VExpr.app f₁ a₁)
w✝¹ w✝ : VExpr
h1 : HasType env (List.length Us) (VLCtx.toCtx Δ) f₁ (VExpr.forallE w✝¹ w✝)
h2 : HasType env (List.length Us) (VLCtx.toCtx Δ) a₁ w✝¹
⊢ ∃ e', TrExpr env Us Δ (Expr.app f✝ a✝) e'