Theorem: Lean4Lean.VEnv.IsDefEqStrong.forallE_inv'
Proof state before:
case beta.inr.forallE.refl
env : VEnv
henv : Ordered env
envIH : OnTypes env (EnvStrong env)
U : Nat
Γ : List VExpr
e1 e2 V : VExpr
Γ✝ : List VExpr
A✝ : VExpr
u✝ : VLevel
B✝ : VExpr
v✝ : VLevel
e'✝ : VExpr
hu : VLevel.WF U u✝
a✝² : VLevel.WF U v✝
h1 : IsDefEqStrong env U Γ✝ A✝ A✝ (sort u✝)
h2 : IsDefEqStrong env U (A✝ :: Γ✝) B✝ B✝ (sort v✝)
h4 : IsDefEqStrong env U Γ✝ e'✝ e'✝ A✝
a✝¹ : IsDefEqStrong env U Γ✝ (inst B✝ e'✝) (inst B✝ e'✝) (sort v✝)
a_ih✝³ :
  ∀ {A B : VExpr},
    CtxStrong env U Γ✝ →
      A✝ = forallE A B ∨ A✝ = forallE A B →
        (∃ u, IsDefEqStrong env U Γ✝ A A (sort u)) ∧ ∃ v, IsDefEqStrong env U (A :: Γ✝) B B (sort v)
a_ih✝² :
  ∀ {A B : VExpr},
    CtxStrong env U (A✝ :: Γ✝) →
      B✝ = forallE A B ∨ B✝ = forallE A B →
        (∃ u, IsDefEqStrong env U (A✝ :: Γ✝) A A (sort u)) ∧ ∃ v, IsDefEqStrong env U (A :: A✝ :: Γ✝) B B (sort v)
ih4 :
  ∀ {A B : VExpr},
    CtxStrong env U Γ✝ →
      e'✝ = forallE A B ∨ e'✝ = forallE A B →
        (∃ u, IsDefEqStrong env U Γ✝ A A (sort u)) ∧ ∃ v, IsDefEqStrong env U (A :: Γ✝) B B (sort v)
a_ih✝¹ :
  ∀ {A B : VExpr},
    CtxStrong env U Γ✝ →
      inst B✝ e'✝ = forallE A B ∨ inst B✝ e'✝ = forallE A B →
        (∃ u, IsDefEqStrong env U Γ✝ A A (sort u)) ∧ ∃ v, IsDefEqStrong env U (A :: Γ✝) B B (sort v)
hΓ : CtxStrong env U Γ✝
A B : VExpr
h3 : IsDefEqStrong env U (A✝ :: Γ✝) (forallE A B) (forallE A B) B✝
a✝ : IsDefEqStrong env U Γ✝ (inst (forallE A B) e'✝) (inst (forallE A B) e'✝) (inst B✝ e'✝)
ih3 :
  ∀ {A_1 B_1 : VExpr},
    CtxStrong env U (A✝ :: Γ✝) →
      forallE A B = forallE A_1 B_1 ∨ forallE A B = forallE A_1 B_1 →
        (∃ u, IsDefEqStrong env U (A✝ :: Γ✝) A_1 A_1 (sort u)) ∧
          ∃ v, IsDefEqStrong env U (A_1 :: A✝ :: Γ✝) B_1 B_1 (sort v)
a_ih✝ :
  ∀ {A_1 B_1 : VExpr},
    CtxStrong env U Γ✝ →
      inst (forallE A B) e'✝ = forallE A_1 B_1 ∨ inst (forallE A B) e'✝ = forallE A_1 B_1 →
        (∃ u, IsDefEqStrong env U Γ✝ A_1 A_1 (sort u)) ∧ ∃ v, IsDefEqStrong env U (A_1 :: Γ✝) B_1 B_1 (sort v)
⊢ (∃ u, IsDefEqStrong env U Γ✝ (inst A e'✝) (inst A e'✝) (sort u)) ∧
    ∃ v, IsDefEqStrong env U (inst A e'✝ :: Γ✝) (inst B e'✝ (0 + 1)) (inst B e'✝ (0 + 1)) (sort v)
Tactic:
let ⟨⟨_, A1⟩, _, A2⟩ := ih3 ⟨hΓ, _, h1⟩ (.inl rfl)
Proof state after:
case beta.inr.forallE.refl
env : VEnv
henv : Ordered env
envIH : OnTypes env (EnvStrong env)
U : Nat
Γ : List VExpr
e1 e2 V : VExpr
Γ✝ : List VExpr
A✝ : VExpr
u✝ : VLevel
B✝ : VExpr
v✝ : VLevel
e'✝ : VExpr
hu : VLevel.WF U u✝
a✝² : VLevel.WF U v✝
h1 : IsDefEqStrong env U Γ✝ A✝ A✝ (sort u✝)
h2 : IsDefEqStrong env U (A✝ :: Γ✝) B✝ B✝ (sort v✝)
h4 : IsDefEqStrong env U Γ✝ e'✝ e'✝ A✝
a✝¹ : IsDefEqStrong env U Γ✝ (inst B✝ e'✝) (inst B✝ e'✝) (sort v✝)
a_ih✝³ :
  ∀ {A B : VExpr},
    CtxStrong env U Γ✝ →
      A✝ = forallE A B ∨ A✝ = forallE A B →
        (∃ u, IsDefEqStrong env U Γ✝ A A (sort u)) ∧ ∃ v, IsDefEqStrong env U (A :: Γ✝) B B (sort v)
a_ih✝² :
  ∀ {A B : VExpr},
    CtxStrong env U (A✝ :: Γ✝) →
      B✝ = forallE A B ∨ B✝ = forallE A B →
        (∃ u, IsDefEqStrong env U (A✝ :: Γ✝) A A (sort u)) ∧ ∃ v, IsDefEqStrong env U (A :: A✝ :: Γ✝) B B (sort v)
ih4 :
  ∀ {A B : VExpr},
    CtxStrong env U Γ✝ →
      e'✝ = forallE A B ∨ e'✝ = forallE A B →
        (∃ u, IsDefEqStrong env U Γ✝ A A (sort u)) ∧ ∃ v, IsDefEqStrong env U (A :: Γ✝) B B (sort v)
a_ih✝¹ :
  ∀ {A B : VExpr},
    CtxStrong env U Γ✝ →
      inst B✝ e'✝ = forallE A B ∨ inst B✝ e'✝ = forallE A B →
        (∃ u, IsDefEqStrong env U Γ✝ A A (sort u)) ∧ ∃ v, IsDefEqStrong env U (A :: Γ✝) B B (sort v)
hΓ : CtxStrong env U Γ✝
A B : VExpr
h3 : IsDefEqStrong env U (A✝ :: Γ✝) (forallE A B) (forallE A B) B✝
a✝ : IsDefEqStrong env U Γ✝ (inst (forallE A B) e'✝) (inst (forallE A B) e'✝) (inst B✝ e'✝)
ih3 :
  ∀ {A_1 B_1 : VExpr},
    CtxStrong env U (A✝ :: Γ✝) →
      forallE A B = forallE A_1 B_1 ∨ forallE A B = forallE A_1 B_1 →
        (∃ u, IsDefEqStrong env U (A✝ :: Γ✝) A_1 A_1 (sort u)) ∧
          ∃ v, IsDefEqStrong env U (A_1 :: A✝ :: Γ✝) B_1 B_1 (sort v)
a_ih✝ :
  ∀ {A_1 B_1 : VExpr},
    CtxStrong env U Γ✝ →
      inst (forallE A B) e'✝ = forallE A_1 B_1 ∨ inst (forallE A B) e'✝ = forallE A_1 B_1 →
        (∃ u, IsDefEqStrong env U Γ✝ A_1 A_1 (sort u)) ∧ ∃ v, IsDefEqStrong env U (A_1 :: Γ✝) B_1 B_1 (sort v)
w✝¹ : VLevel
A1 : IsDefEqStrong env U (A✝ :: Γ✝) A A (sort w✝¹)
w✝ : VLevel
A2 : IsDefEqStrong env U (A :: A✝ :: Γ✝) B B (sort w✝)
⊢ (∃ u, IsDefEqStrong env U Γ✝ (inst A e'✝) (inst A e'✝) (sort u)) ∧
    ∃ v, IsDefEqStrong env U (inst A e'✝ :: Γ✝) (inst B e'✝ (0 + 1)) (inst B e'✝ (0 + 1)) (sort v)