Theorem: LambdaCalculi.freeVarRange_le_length
Proof state before:
case const
p : LambdaParams
U : Type ?u.27425
C : Type ?u.27428
C✝ : Type u_1
p✝ : LambdaParams
U✝ : Type u_2
T : C✝ → LambdaType p✝ U✝
a✝ : C✝
Γ : Context p✝ U✝
τ : LambdaType p✝ U✝
h : Γ ⊢[T] LambdaTerm.const a✝ ∶ τ
⊢ LambdaTerm.freeVarRange (LambdaTerm.const a✝) ≤ List.length Γ

case var
p : LambdaParams
U : Type ?u.27425
C : Type ?u.27428
C✝ : Type u_1
p✝ : LambdaParams
U✝ : Type u_2
T : C✝ → LambdaType p✝ U✝
a✝ : ℕ
Γ : Context p✝ U✝
τ : LambdaType p✝ U✝
h : Γ ⊢[T] LambdaTerm.var a✝ ∶ τ
⊢ LambdaTerm.freeVarRange (LambdaTerm.var a✝) ≤ List.length Γ

case app
p : LambdaParams
U : Type ?u.27425
C : Type ?u.27428
C✝ : Type u_1
p✝ : LambdaParams
U✝ : Type u_2
T : C✝ → LambdaType p✝ U✝
a✝² : p✝.lambda = true
a✝¹ a✝ : LambdaTerm p✝ U✝ C✝
a_ih✝¹ : ∀ {Γ : Context p✝ U✝} {τ : LambdaType p✝ U✝}, (Γ ⊢[T] a✝¹ ∶ τ) → LambdaTerm.freeVarRange a✝¹ ≤ List.length Γ
a_ih✝ : ∀ {Γ : Context p✝ U✝} {τ : LambdaType p✝ U✝}, (Γ ⊢[T] a✝ ∶ τ) → LambdaTerm.freeVarRange a✝ ≤ List.length Γ
Γ : Context p✝ U✝
τ : LambdaType p✝ U✝
h : Γ ⊢[T] LambdaTerm.app a✝² a✝¹ a✝ ∶ τ
⊢ LambdaTerm.freeVarRange (LambdaTerm.app a✝² a✝¹ a✝) ≤ List.length Γ

case pair
p : LambdaParams
U : Type ?u.27425
C : Type ?u.27428
C✝ : Type u_1
p✝ : LambdaParams
U✝ : Type u_2
T : C✝ → LambdaType p✝ U✝
a✝² : p✝.prod = true
a✝¹ a✝ : LambdaTerm p✝ U✝ C✝
a_ih✝¹ : ∀ {Γ : Context p✝ U✝} {τ : LambdaType p✝ U✝}, (Γ ⊢[T] a✝¹ ∶ τ) → LambdaTerm.freeVarRange a✝¹ ≤ List.length Γ
a_ih✝ : ∀ {Γ : Context p✝ U✝} {τ : LambdaType p✝ U✝}, (Γ ⊢[T] a✝ ∶ τ) → LambdaTerm.freeVarRange a✝ ≤ List.length Γ
Γ : Context p✝ U✝
τ : LambdaType p✝ U✝
h : Γ ⊢[T] LambdaTerm.pair a✝² a✝¹ a✝ ∶ τ
⊢ LambdaTerm.freeVarRange (LambdaTerm.pair a✝² a✝¹ a✝) ≤ List.length Γ

case fst
p : LambdaParams
U : Type ?u.27425
C : Type ?u.27428
C✝ : Type u_1
p✝ : LambdaParams
U✝ : Type u_2
T : C✝ → LambdaType p✝ U✝
a✝¹ : p✝.prod = true
a✝ : LambdaTerm p✝ U✝ C✝
a_ih✝ : ∀ {Γ : Context p✝ U✝} {τ : LambdaType p✝ U✝}, (Γ ⊢[T] a✝ ∶ τ) → LambdaTerm.freeVarRange a✝ ≤ List.length Γ
Γ : Context p✝ U✝
τ : LambdaType p✝ U✝
h : Γ ⊢[T] LambdaTerm.fst a✝¹ a✝ ∶ τ
⊢ LambdaTerm.freeVarRange (LambdaTerm.fst a✝¹ a✝) ≤ List.length Γ

case snd
p : LambdaParams
U : Type ?u.27425
C : Type ?u.27428
C✝ : Type u_1
p✝ : LambdaParams
U✝ : Type u_2
T : C✝ → LambdaType p✝ U✝
a✝¹ : p✝.prod = true
a✝ : LambdaTerm p✝ U✝ C✝
a_ih✝ : ∀ {Γ : Context p✝ U✝} {τ : LambdaType p✝ U✝}, (Γ ⊢[T] a✝ ∶ τ) → LambdaTerm.freeVarRange a✝ ≤ List.length Γ
Γ : Context p✝ U✝
τ : LambdaType p✝ U✝
h : Γ ⊢[T] LambdaTerm.snd a✝¹ a✝ ∶ τ
⊢ LambdaTerm.freeVarRange (LambdaTerm.snd a✝¹ a✝) ≤ List.length Γ

case inl
p : LambdaParams
U : Type ?u.27425
C : Type ?u.27428
C✝ : Type u_1
p✝ : LambdaParams
U✝ : Type u_2
T : C✝ → LambdaType p✝ U✝
a✝² : p✝.coprod = true
a✝¹ : LambdaType p✝ U✝
a✝ : LambdaTerm p✝ U✝ C✝
a_ih✝ : ∀ {Γ : Context p✝ U✝} {τ : LambdaType p✝ U✝}, (Γ ⊢[T] a✝ ∶ τ) → LambdaTerm.freeVarRange a✝ ≤ List.length Γ
Γ : Context p✝ U✝
τ : LambdaType p✝ U✝
h : Γ ⊢[T] LambdaTerm.inl a✝² a✝¹ a✝ ∶ τ
⊢ LambdaTerm.freeVarRange (LambdaTerm.inl a✝² a✝¹ a✝) ≤ List.length Γ

case inr
p : LambdaParams
U : Type ?u.27425
C : Type ?u.27428
C✝ : Type u_1
p✝ : LambdaParams
U✝ : Type u_2
T : C✝ → LambdaType p✝ U✝
a✝² : p✝.coprod = true
a✝¹ : LambdaType p✝ U✝
a✝ : LambdaTerm p✝ U✝ C✝
a_ih✝ : ∀ {Γ : Context p✝ U✝} {τ : LambdaType p✝ U✝}, (Γ ⊢[T] a✝ ∶ τ) → LambdaTerm.freeVarRange a✝ ≤ List.length Γ
Γ : Context p✝ U✝
τ : LambdaType p✝ U✝
h : Γ ⊢[T] LambdaTerm.inr a✝² a✝¹ a✝ ∶ τ
⊢ LambdaTerm.freeVarRange (LambdaTerm.inr a✝² a✝¹ a✝) ≤ List.length Γ

case star
p : LambdaParams
U : Type ?u.27425
C : Type ?u.27428
C✝ : Type u_1
p✝ : LambdaParams
U✝ : Type u_2
T : C✝ → LambdaType p✝ U✝
a✝ : p✝.unit = true
Γ : Context p✝ U✝
τ : LambdaType p✝ U✝
h : Γ ⊢[T] LambdaTerm.star a✝ ∶ τ
⊢ LambdaTerm.freeVarRange (LambdaTerm.star a✝) ≤ List.length Γ

case elim
p : LambdaParams
U : Type ?u.27425
C : Type ?u.27428
C✝ : Type u_1
p✝ : LambdaParams
U✝ : Type u_2
T : C✝ → LambdaType p✝ U✝
a✝² : p✝.empty = true
a✝¹ : LambdaType p✝ U✝
a✝ : LambdaTerm p✝ U✝ C✝
a_ih✝ : ∀ {Γ : Context p✝ U✝} {τ : LambdaType p✝ U✝}, (Γ ⊢[T] a✝ ∶ τ) → LambdaTerm.freeVarRange a✝ ≤ List.length Γ
Γ : Context p✝ U✝
τ : LambdaType p✝ U✝
h : Γ ⊢[T] LambdaTerm.elim a✝² a✝¹ a✝ ∶ τ
⊢ LambdaTerm.freeVarRange (LambdaTerm.elim a✝² a✝¹ a✝) ≤ List.length Γ
Tactic:
all_goals aesop
Proof state after:
no goals