Theorem: FOL.NV.Sub.Var.One.Ind.isFreeSub_imp_fastAdmitsAux (FOL/NV/Sub/Var/One/Ind/Sub.lean)

State before:
F : Formula
v u : VarName
binders : Finset VarName
h1 : ∃ F', IsSub F v u F'
h2 : u ∉ binders
⊢ Rec.fastAdmitsAux v u binders F
Tactic:
apply Exists.elim h1
State after:
F : Formula
v u : VarName
binders : Finset VarName
h1 : ∃ F', IsSub F v u F'
h2 : u ∉ binders
⊢ ∀ (a : Formula), IsSub F v u a → Rec.fastAdmitsAux v u binders F

State before:
F : Formula
v u : VarName
binders : Finset VarName
h1 : ∃ F', IsSub F v u F'
h2 : u ∉ binders
⊢ ∀ (a : Formula), IsSub F v u a → Rec.fastAdmitsAux v u binders F
Tactic:
intro F' h1_1
State after:
F : Formula
v u : VarName
binders : Finset VarName
h1 : ∃ F', IsSub F v u F'
h2 : u ∉ binders
F' : Formula
h1_1 : IsSub F v u F'
⊢ Rec.fastAdmitsAux v u binders F

State before:
F : Formula
v u : VarName
binders : Finset VarName
h1 : ∃ F', IsSub F v u F'
h2 : u ∉ binders
F' : Formula
h1_1 : IsSub F v u F'
⊢ Rec.fastAdmitsAux v u binders F
Tactic:
clear h1
State after:
F : Formula
v u : VarName
binders : Finset VarName
h2 : u ∉ binders
F' : Formula
h1_1 : IsSub F v u F'
⊢ Rec.fastAdmitsAux v u binders F

State before:
F : Formula
v u : VarName
binders : Finset VarName
h2 : u ∉ binders
F' : Formula
h1_1 : IsSub F v u F'
⊢ Rec.fastAdmitsAux v u binders F
Tactic:
induction h1_1 generalizing binders
State after:
case pred_const_
F : Formula
v u : VarName
F' : Formula
X✝ : PredName
xs✝ : List VarName
v✝ t✝ : VarName
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (pred_const_ X✝ xs✝)

case pred_var_
F : Formula
v u : VarName
F' : Formula
X✝ : PredName
xs✝ : List VarName
v✝ t✝ : VarName
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (pred_var_ X✝ xs✝)

case eq_
F : Formula
v u : VarName
F' : Formula
x✝ y✝ v✝ t✝ : VarName
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (eq_ x✝ y✝)

case true_
F : Formula
v u : VarName
F' : Formula
v✝ t✝ : VarName
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders true_

case false_
F : Formula
v u : VarName
F' : Formula
v✝ t✝ : VarName
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders false_

case not_
F : Formula
v u : VarName
F' phi✝ : Formula
v✝ t✝ : VarName
phi'✝ : Formula
a✝ : IsSub phi✝ v✝ t✝ phi'✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders phi✝.not_

case imp_
F : Formula
v u : VarName
F' phi✝ psi✝ : Formula
v✝ t✝ : VarName
phi'✝ psi'✝ : Formula
a✝¹ : IsSub phi✝ v✝ t✝ phi'✝
a✝ : IsSub psi✝ v✝ t✝ psi'✝
a_ih✝¹ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders psi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (phi✝.imp_ psi✝)

case and_
F : Formula
v u : VarName
F' phi✝ psi✝ : Formula
v✝ t✝ : VarName
phi'✝ psi'✝ : Formula
a✝¹ : IsSub phi✝ v✝ t✝ phi'✝
a✝ : IsSub psi✝ v✝ t✝ psi'✝
a_ih✝¹ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders psi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (phi✝.and_ psi✝)

case or_
F : Formula
v u : VarName
F' phi✝ psi✝ : Formula
v✝ t✝ : VarName
phi'✝ psi'✝ : Formula
a✝¹ : IsSub phi✝ v✝ t✝ phi'✝
a✝ : IsSub psi✝ v✝ t✝ psi'✝
a_ih✝¹ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders psi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (phi✝.or_ psi✝)

case iff_
F : Formula
v u : VarName
F' phi✝ psi✝ : Formula
v✝ t✝ : VarName
phi'✝ psi'✝ : Formula
a✝¹ : IsSub phi✝ v✝ t✝ phi'✝
a✝ : IsSub psi✝ v✝ t✝ psi'✝
a_ih✝¹ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders psi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (phi✝.iff_ psi✝)

case forall_not_free_in
F : Formula
v u : VarName
F' : Formula
x✝ : VarName
phi✝ : Formula
v✝ t✝ : VarName
a✝ : ¬isFreeIn v✝ (forall_ x✝ phi✝)
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (forall_ x✝ phi✝)

case forall_free_in
F : Formula
v u : VarName
F' : Formula
x✝ : VarName
phi✝ : Formula
v✝ t✝ : VarName
phi'✝ : Formula
a✝² : isFreeIn v✝ (forall_ x✝ phi✝)
a✝¹ : ¬x✝ = t✝
a✝ : IsSub phi✝ v✝ t✝ phi'✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (forall_ x✝ phi✝)

case exists_not_free_in
F : Formula
v u : VarName
F' : Formula
x✝ : VarName
phi✝ : Formula
v✝ t✝ : VarName
a✝ : ¬isFreeIn v✝ (exists_ x✝ phi✝)
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (exists_ x✝ phi✝)

case exists_free_in
F : Formula
v u : VarName
F' : Formula
x✝ : VarName
phi✝ : Formula
v✝ t✝ : VarName
phi'✝ : Formula
a✝² : isFreeIn v✝ (exists_ x✝ phi✝)
a✝¹ : ¬x✝ = t✝
a✝ : IsSub phi✝ v✝ t✝ phi'✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (exists_ x✝ phi✝)

case def_
F : Formula
v u : VarName
F' : Formula
X✝ : DefName
xs✝ : List VarName
v✝ t✝ : VarName
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (def_ X✝ xs✝)

State before:
case pred_const_
F : Formula
v u : VarName
F' : Formula
X✝ : PredName
xs✝ : List VarName
v✝ t✝ : VarName
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (pred_const_ X✝ xs✝)

case pred_var_
F : Formula
v u : VarName
F' : Formula
X✝ : PredName
xs✝ : List VarName
v✝ t✝ : VarName
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (pred_var_ X✝ xs✝)

case eq_
F : Formula
v u : VarName
F' : Formula
x✝ y✝ v✝ t✝ : VarName
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (eq_ x✝ y✝)

case true_
F : Formula
v u : VarName
F' : Formula
v✝ t✝ : VarName
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders true_

case false_
F : Formula
v u : VarName
F' : Formula
v✝ t✝ : VarName
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders false_

case not_
F : Formula
v u : VarName
F' phi✝ : Formula
v✝ t✝ : VarName
phi'✝ : Formula
a✝ : IsSub phi✝ v✝ t✝ phi'✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders phi✝.not_

case imp_
F : Formula
v u : VarName
F' phi✝ psi✝ : Formula
v✝ t✝ : VarName
phi'✝ psi'✝ : Formula
a✝¹ : IsSub phi✝ v✝ t✝ phi'✝
a✝ : IsSub psi✝ v✝ t✝ psi'✝
a_ih✝¹ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders psi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (phi✝.imp_ psi✝)

case and_
F : Formula
v u : VarName
F' phi✝ psi✝ : Formula
v✝ t✝ : VarName
phi'✝ psi'✝ : Formula
a✝¹ : IsSub phi✝ v✝ t✝ phi'✝
a✝ : IsSub psi✝ v✝ t✝ psi'✝
a_ih✝¹ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders psi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (phi✝.and_ psi✝)

case or_
F : Formula
v u : VarName
F' phi✝ psi✝ : Formula
v✝ t✝ : VarName
phi'✝ psi'✝ : Formula
a✝¹ : IsSub phi✝ v✝ t✝ phi'✝
a✝ : IsSub psi✝ v✝ t✝ psi'✝
a_ih✝¹ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders psi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (phi✝.or_ psi✝)

case iff_
F : Formula
v u : VarName
F' phi✝ psi✝ : Formula
v✝ t✝ : VarName
phi'✝ psi'✝ : Formula
a✝¹ : IsSub phi✝ v✝ t✝ phi'✝
a✝ : IsSub psi✝ v✝ t✝ psi'✝
a_ih✝¹ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders psi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (phi✝.iff_ psi✝)

case forall_not_free_in
F : Formula
v u : VarName
F' : Formula
x✝ : VarName
phi✝ : Formula
v✝ t✝ : VarName
a✝ : ¬isFreeIn v✝ (forall_ x✝ phi✝)
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (forall_ x✝ phi✝)

case forall_free_in
F : Formula
v u : VarName
F' : Formula
x✝ : VarName
phi✝ : Formula
v✝ t✝ : VarName
phi'✝ : Formula
a✝² : isFreeIn v✝ (forall_ x✝ phi✝)
a✝¹ : ¬x✝ = t✝
a✝ : IsSub phi✝ v✝ t✝ phi'✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (forall_ x✝ phi✝)

case exists_not_free_in
F : Formula
v u : VarName
F' : Formula
x✝ : VarName
phi✝ : Formula
v✝ t✝ : VarName
a✝ : ¬isFreeIn v✝ (exists_ x✝ phi✝)
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (exists_ x✝ phi✝)

case exists_free_in
F : Formula
v u : VarName
F' : Formula
x✝ : VarName
phi✝ : Formula
v✝ t✝ : VarName
phi'✝ : Formula
a✝² : isFreeIn v✝ (exists_ x✝ phi✝)
a✝¹ : ¬x✝ = t✝
a✝ : IsSub phi✝ v✝ t✝ phi'✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (exists_ x✝ phi✝)

case def_
F : Formula
v u : VarName
F' : Formula
X✝ : DefName
xs✝ : List VarName
v✝ t✝ : VarName
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (def_ X✝ xs✝)
Tactic:
all_goals
  simp only [Rec.fastAdmitsAux]
State after:
case pred_const_
F : Formula
v u : VarName
F' : Formula
X✝ : PredName
xs✝ : List VarName
v✝ t✝ : VarName
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ v✝ ∈ xs✝ → t✝ ∉ binders

case pred_var_
F : Formula
v u : VarName
F' : Formula
X✝ : PredName
xs✝ : List VarName
v✝ t✝ : VarName
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ v✝ ∈ xs✝ → t✝ ∉ binders

case eq_
F : Formula
v u : VarName
F' : Formula
x✝ y✝ v✝ t✝ : VarName
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ v✝ = x✝ ∨ v✝ = y✝ → t✝ ∉ binders

case not_
F : Formula
v u : VarName
F' phi✝ : Formula
v✝ t✝ : VarName
phi'✝ : Formula
a✝ : IsSub phi✝ v✝ t✝ phi'✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders phi✝

case imp_
F : Formula
v u : VarName
F' phi✝ psi✝ : Formula
v✝ t✝ : VarName
phi'✝ psi'✝ : Formula
a✝¹ : IsSub phi✝ v✝ t✝ phi'✝
a✝ : IsSub psi✝ v✝ t✝ psi'✝
a_ih✝¹ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders psi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders phi✝ ∧ Rec.fastAdmitsAux v✝ t✝ binders psi✝

case and_
F : Formula
v u : VarName
F' phi✝ psi✝ : Formula
v✝ t✝ : VarName
phi'✝ psi'✝ : Formula
a✝¹ : IsSub phi✝ v✝ t✝ phi'✝
a✝ : IsSub psi✝ v✝ t✝ psi'✝
a_ih✝¹ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders psi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders phi✝ ∧ Rec.fastAdmitsAux v✝ t✝ binders psi✝

case or_
F : Formula
v u : VarName
F' phi✝ psi✝ : Formula
v✝ t✝ : VarName
phi'✝ psi'✝ : Formula
a✝¹ : IsSub phi✝ v✝ t✝ phi'✝
a✝ : IsSub psi✝ v✝ t✝ psi'✝
a_ih✝¹ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders psi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders phi✝ ∧ Rec.fastAdmitsAux v✝ t✝ binders psi✝

case iff_
F : Formula
v u : VarName
F' phi✝ psi✝ : Formula
v✝ t✝ : VarName
phi'✝ psi'✝ : Formula
a✝¹ : IsSub phi✝ v✝ t✝ phi'✝
a✝ : IsSub psi✝ v✝ t✝ psi'✝
a_ih✝¹ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders psi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders phi✝ ∧ Rec.fastAdmitsAux v✝ t✝ binders psi✝

case forall_not_free_in
F : Formula
v u : VarName
F' : Formula
x✝ : VarName
phi✝ : Formula
v✝ t✝ : VarName
a✝ : ¬isFreeIn v✝ (forall_ x✝ phi✝)
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ v✝ = x✝ ∨ Rec.fastAdmitsAux v✝ t✝ (binders ∪ {x✝}) phi✝

case forall_free_in
F : Formula
v u : VarName
F' : Formula
x✝ : VarName
phi✝ : Formula
v✝ t✝ : VarName
phi'✝ : Formula
a✝² : isFreeIn v✝ (forall_ x✝ phi✝)
a✝¹ : ¬x✝ = t✝
a✝ : IsSub phi✝ v✝ t✝ phi'✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ v✝ = x✝ ∨ Rec.fastAdmitsAux v✝ t✝ (binders ∪ {x✝}) phi✝

case exists_not_free_in
F : Formula
v u : VarName
F' : Formula
x✝ : VarName
phi✝ : Formula
v✝ t✝ : VarName
a✝ : ¬isFreeIn v✝ (exists_ x✝ phi✝)
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ v✝ = x✝ ∨ Rec.fastAdmitsAux v✝ t✝ (binders ∪ {x✝}) phi✝

case exists_free_in
F : Formula
v u : VarName
F' : Formula
x✝ : VarName
phi✝ : Formula
v✝ t✝ : VarName
phi'✝ : Formula
a✝² : isFreeIn v✝ (exists_ x✝ phi✝)
a✝¹ : ¬x✝ = t✝
a✝ : IsSub phi✝ v✝ t✝ phi'✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ v✝ = x✝ ∨ Rec.fastAdmitsAux v✝ t✝ (binders ∪ {x✝}) phi✝

case def_
F : Formula
v u : VarName
F' : Formula
X✝ : DefName
xs✝ : List VarName
v✝ t✝ : VarName
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ v✝ ∈ xs✝ → t✝ ∉ binders

State before:
F : Formula
v u : VarName
F' : Formula
h1_1_x : VarName
h1_1_phi : Formula
h1_1_v h1_1_t : VarName
phi'✝ : Formula
a✝¹ : isFreeIn h1_1_v (exists_ h1_1_x h1_1_phi)
h1_1_2 : ¬h1_1_x = h1_1_t
a✝ : IsSub h1_1_phi h1_1_v h1_1_t phi'✝
h1_1_ih : ∀ (binders : Finset VarName), h1_1_t ∉ binders → Rec.fastAdmitsAux h1_1_v h1_1_t binders h1_1_phi
binders : Finset VarName
h2 : h1_1_t ∉ binders
⊢ h1_1_v = h1_1_x ∨ Rec.fastAdmitsAux h1_1_v h1_1_t (binders ∪ {h1_1_x}) h1_1_phi
Tactic:
case
    forall_free_in h1_1_x h1_1_phi h1_1_v h1_1_t _ _ h1_1_2 _ h1_1_ih
  | exists_free_in h1_1_x h1_1_phi h1_1_v h1_1_t _ _ h1_1_2 _ h1_1_ih =>
  right
  apply h1_1_ih
  simp
  tauto
State after:
no goals

State before:
case pred_const_
F : Formula
v u : VarName
F' : Formula
X✝ : PredName
xs✝ : List VarName
v✝ t✝ : VarName
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ v✝ ∈ xs✝ → t✝ ∉ binders

case pred_var_
F : Formula
v u : VarName
F' : Formula
X✝ : PredName
xs✝ : List VarName
v✝ t✝ : VarName
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ v✝ ∈ xs✝ → t✝ ∉ binders

case eq_
F : Formula
v u : VarName
F' : Formula
x✝ y✝ v✝ t✝ : VarName
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ v✝ = x✝ ∨ v✝ = y✝ → t✝ ∉ binders

case not_
F : Formula
v u : VarName
F' phi✝ : Formula
v✝ t✝ : VarName
phi'✝ : Formula
a✝ : IsSub phi✝ v✝ t✝ phi'✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders phi✝

case imp_
F : Formula
v u : VarName
F' phi✝ psi✝ : Formula
v✝ t✝ : VarName
phi'✝ psi'✝ : Formula
a✝¹ : IsSub phi✝ v✝ t✝ phi'✝
a✝ : IsSub psi✝ v✝ t✝ psi'✝
a_ih✝¹ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders psi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders phi✝ ∧ Rec.fastAdmitsAux v✝ t✝ binders psi✝

case and_
F : Formula
v u : VarName
F' phi✝ psi✝ : Formula
v✝ t✝ : VarName
phi'✝ psi'✝ : Formula
a✝¹ : IsSub phi✝ v✝ t✝ phi'✝
a✝ : IsSub psi✝ v✝ t✝ psi'✝
a_ih✝¹ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders psi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders phi✝ ∧ Rec.fastAdmitsAux v✝ t✝ binders psi✝

case or_
F : Formula
v u : VarName
F' phi✝ psi✝ : Formula
v✝ t✝ : VarName
phi'✝ psi'✝ : Formula
a✝¹ : IsSub phi✝ v✝ t✝ phi'✝
a✝ : IsSub psi✝ v✝ t✝ psi'✝
a_ih✝¹ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders psi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders phi✝ ∧ Rec.fastAdmitsAux v✝ t✝ binders psi✝

case iff_
F : Formula
v u : VarName
F' phi✝ psi✝ : Formula
v✝ t✝ : VarName
phi'✝ psi'✝ : Formula
a✝¹ : IsSub phi✝ v✝ t✝ phi'✝
a✝ : IsSub psi✝ v✝ t✝ psi'✝
a_ih✝¹ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders phi✝
a_ih✝ : ∀ (binders : Finset VarName), t✝ ∉ binders → Rec.fastAdmitsAux v✝ t✝ binders psi✝
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders phi✝ ∧ Rec.fastAdmitsAux v✝ t✝ binders psi✝

case def_
F : Formula
v u : VarName
F' : Formula
X✝ : DefName
xs✝ : List VarName
v✝ t✝ : VarName
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ v✝ ∈ xs✝ → t✝ ∉ binders
Tactic:
all_goals
  tauto
State after:
no goals

State before:
case def_
F : Formula
v u : VarName
F' : Formula
X✝ : DefName
xs✝ : List VarName
v✝ t✝ : VarName
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ Rec.fastAdmitsAux v✝ t✝ binders (def_ X✝ xs✝)
Tactic:
simp only [Rec.fastAdmitsAux]
State after:
case def_
F : Formula
v u : VarName
F' : Formula
X✝ : DefName
xs✝ : List VarName
v✝ t✝ : VarName
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ v✝ ∈ xs✝ → t✝ ∉ binders

State before:
F : Formula
v u : VarName
F' : Formula
h1_1_x : VarName
h1_1_phi : Formula
h1_1_v h1_1_t : VarName
h1_1_1 : ¬isFreeIn h1_1_v (exists_ h1_1_x h1_1_phi)
binders : Finset VarName
h2 : h1_1_t ∉ binders
⊢ h1_1_v = h1_1_x ∨ Rec.fastAdmitsAux h1_1_v h1_1_t (binders ∪ {h1_1_x}) h1_1_phi
Tactic:
simp only [isFreeIn] at h1_1_1
State after:
F : Formula
v u : VarName
F' : Formula
h1_1_x : VarName
h1_1_phi : Formula
h1_1_v h1_1_t : VarName
h1_1_1 : ¬(¬h1_1_v = h1_1_x ∧ isFreeIn h1_1_v h1_1_phi)
binders : Finset VarName
h2 : h1_1_t ∉ binders
⊢ h1_1_v = h1_1_x ∨ Rec.fastAdmitsAux h1_1_v h1_1_t (binders ∪ {h1_1_x}) h1_1_phi

State before:
F : Formula
v u : VarName
F' : Formula
h1_1_x : VarName
h1_1_phi : Formula
h1_1_v h1_1_t : VarName
h1_1_1 : ¬(¬h1_1_v = h1_1_x ∧ isFreeIn h1_1_v h1_1_phi)
binders : Finset VarName
h2 : h1_1_t ∉ binders
⊢ h1_1_v = h1_1_x ∨ Rec.fastAdmitsAux h1_1_v h1_1_t (binders ∪ {h1_1_x}) h1_1_phi
Tactic:
simp at h1_1_1
State after:
F : Formula
v u : VarName
F' : Formula
h1_1_x : VarName
h1_1_phi : Formula
h1_1_v h1_1_t : VarName
binders : Finset VarName
h2 : h1_1_t ∉ binders
h1_1_1 : ¬h1_1_v = h1_1_x → ¬isFreeIn h1_1_v h1_1_phi
⊢ h1_1_v = h1_1_x ∨ Rec.fastAdmitsAux h1_1_v h1_1_t (binders ∪ {h1_1_x}) h1_1_phi

State before:
F : Formula
v u : VarName
F' : Formula
h1_1_x : VarName
h1_1_phi : Formula
h1_1_v h1_1_t : VarName
binders : Finset VarName
h2 : h1_1_t ∉ binders
h1_1_1 : ¬h1_1_v = h1_1_x → ¬isFreeIn h1_1_v h1_1_phi
⊢ h1_1_v = h1_1_x ∨ Rec.fastAdmitsAux h1_1_v h1_1_t (binders ∪ {h1_1_x}) h1_1_phi
Tactic:
by_cases c1 : h1_1_v = h1_1_x
State after:
case pos
F : Formula
v u : VarName
F' : Formula
h1_1_x : VarName
h1_1_phi : Formula
h1_1_v h1_1_t : VarName
binders : Finset VarName
h2 : h1_1_t ∉ binders
h1_1_1 : ¬h1_1_v = h1_1_x → ¬isFreeIn h1_1_v h1_1_phi
c1 : h1_1_v = h1_1_x
⊢ h1_1_v = h1_1_x ∨ Rec.fastAdmitsAux h1_1_v h1_1_t (binders ∪ {h1_1_x}) h1_1_phi

case neg
F : Formula
v u : VarName
F' : Formula
h1_1_x : VarName
h1_1_phi : Formula
h1_1_v h1_1_t : VarName
binders : Finset VarName
h2 : h1_1_t ∉ binders
h1_1_1 : ¬h1_1_v = h1_1_x → ¬isFreeIn h1_1_v h1_1_phi
c1 : ¬h1_1_v = h1_1_x
⊢ h1_1_v = h1_1_x ∨ Rec.fastAdmitsAux h1_1_v h1_1_t (binders ∪ {h1_1_x}) h1_1_phi

State before:
case pos
F : Formula
v u : VarName
F' : Formula
h1_1_x : VarName
h1_1_phi : Formula
h1_1_v h1_1_t : VarName
binders : Finset VarName
h2 : h1_1_t ∉ binders
h1_1_1 : ¬h1_1_v = h1_1_x → ¬isFreeIn h1_1_v h1_1_phi
c1 : h1_1_v = h1_1_x
⊢ h1_1_v = h1_1_x ∨ Rec.fastAdmitsAux h1_1_v h1_1_t (binders ∪ {h1_1_x}) h1_1_phi
Tactic:
left
State after:
case pos.h
F : Formula
v u : VarName
F' : Formula
h1_1_x : VarName
h1_1_phi : Formula
h1_1_v h1_1_t : VarName
binders : Finset VarName
h2 : h1_1_t ∉ binders
h1_1_1 : ¬h1_1_v = h1_1_x → ¬isFreeIn h1_1_v h1_1_phi
c1 : h1_1_v = h1_1_x
⊢ h1_1_v = h1_1_x

State before:
case pos.h
F : Formula
v u : VarName
F' : Formula
h1_1_x : VarName
h1_1_phi : Formula
h1_1_v h1_1_t : VarName
binders : Finset VarName
h2 : h1_1_t ∉ binders
h1_1_1 : ¬h1_1_v = h1_1_x → ¬isFreeIn h1_1_v h1_1_phi
c1 : h1_1_v = h1_1_x
⊢ h1_1_v = h1_1_x
Tactic:
exact c1
State after:
no goals

State before:
case neg
F : Formula
v u : VarName
F' : Formula
h1_1_x : VarName
h1_1_phi : Formula
h1_1_v h1_1_t : VarName
binders : Finset VarName
h2 : h1_1_t ∉ binders
h1_1_1 : ¬h1_1_v = h1_1_x → ¬isFreeIn h1_1_v h1_1_phi
c1 : ¬h1_1_v = h1_1_x
⊢ h1_1_v = h1_1_x ∨ Rec.fastAdmitsAux h1_1_v h1_1_t (binders ∪ {h1_1_x}) h1_1_phi
Tactic:
right
State after:
case neg.h
F : Formula
v u : VarName
F' : Formula
h1_1_x : VarName
h1_1_phi : Formula
h1_1_v h1_1_t : VarName
binders : Finset VarName
h2 : h1_1_t ∉ binders
h1_1_1 : ¬h1_1_v = h1_1_x → ¬isFreeIn h1_1_v h1_1_phi
c1 : ¬h1_1_v = h1_1_x
⊢ Rec.fastAdmitsAux h1_1_v h1_1_t (binders ∪ {h1_1_x}) h1_1_phi

State before:
case neg.h
F : Formula
v u : VarName
F' : Formula
h1_1_x : VarName
h1_1_phi : Formula
h1_1_v h1_1_t : VarName
binders : Finset VarName
h2 : h1_1_t ∉ binders
h1_1_1 : ¬h1_1_v = h1_1_x → ¬isFreeIn h1_1_v h1_1_phi
c1 : ¬h1_1_v = h1_1_x
⊢ Rec.fastAdmitsAux h1_1_v h1_1_t (binders ∪ {h1_1_x}) h1_1_phi
Tactic:
apply Rec.not_isFreeIn_imp_fastAdmitsAux
State after:
case neg.h.h1
F : Formula
v u : VarName
F' : Formula
h1_1_x : VarName
h1_1_phi : Formula
h1_1_v h1_1_t : VarName
binders : Finset VarName
h2 : h1_1_t ∉ binders
h1_1_1 : ¬h1_1_v = h1_1_x → ¬isFreeIn h1_1_v h1_1_phi
c1 : ¬h1_1_v = h1_1_x
⊢ ¬isFreeIn h1_1_v h1_1_phi

State before:
case neg.h.h1
F : Formula
v u : VarName
F' : Formula
h1_1_x : VarName
h1_1_phi : Formula
h1_1_v h1_1_t : VarName
binders : Finset VarName
h2 : h1_1_t ∉ binders
h1_1_1 : ¬h1_1_v = h1_1_x → ¬isFreeIn h1_1_v h1_1_phi
c1 : ¬h1_1_v = h1_1_x
⊢ ¬isFreeIn h1_1_v h1_1_phi
Tactic:
exact h1_1_1 c1
State after:
no goals

State before:
F : Formula
v u : VarName
F' : Formula
h1_1_x : VarName
h1_1_phi : Formula
h1_1_v h1_1_t : VarName
phi'✝ : Formula
a✝¹ : isFreeIn h1_1_v (exists_ h1_1_x h1_1_phi)
h1_1_2 : ¬h1_1_x = h1_1_t
a✝ : IsSub h1_1_phi h1_1_v h1_1_t phi'✝
h1_1_ih : ∀ (binders : Finset VarName), h1_1_t ∉ binders → Rec.fastAdmitsAux h1_1_v h1_1_t binders h1_1_phi
binders : Finset VarName
h2 : h1_1_t ∉ binders
⊢ h1_1_v = h1_1_x ∨ Rec.fastAdmitsAux h1_1_v h1_1_t (binders ∪ {h1_1_x}) h1_1_phi
Tactic:
right
State after:
case h
F : Formula
v u : VarName
F' : Formula
h1_1_x : VarName
h1_1_phi : Formula
h1_1_v h1_1_t : VarName
phi'✝ : Formula
a✝¹ : isFreeIn h1_1_v (exists_ h1_1_x h1_1_phi)
h1_1_2 : ¬h1_1_x = h1_1_t
a✝ : IsSub h1_1_phi h1_1_v h1_1_t phi'✝
h1_1_ih : ∀ (binders : Finset VarName), h1_1_t ∉ binders → Rec.fastAdmitsAux h1_1_v h1_1_t binders h1_1_phi
binders : Finset VarName
h2 : h1_1_t ∉ binders
⊢ Rec.fastAdmitsAux h1_1_v h1_1_t (binders ∪ {h1_1_x}) h1_1_phi

State before:
case h
F : Formula
v u : VarName
F' : Formula
h1_1_x : VarName
h1_1_phi : Formula
h1_1_v h1_1_t : VarName
phi'✝ : Formula
a✝¹ : isFreeIn h1_1_v (exists_ h1_1_x h1_1_phi)
h1_1_2 : ¬h1_1_x = h1_1_t
a✝ : IsSub h1_1_phi h1_1_v h1_1_t phi'✝
h1_1_ih : ∀ (binders : Finset VarName), h1_1_t ∉ binders → Rec.fastAdmitsAux h1_1_v h1_1_t binders h1_1_phi
binders : Finset VarName
h2 : h1_1_t ∉ binders
⊢ Rec.fastAdmitsAux h1_1_v h1_1_t (binders ∪ {h1_1_x}) h1_1_phi
Tactic:
apply h1_1_ih
State after:
case h.h2
F : Formula
v u : VarName
F' : Formula
h1_1_x : VarName
h1_1_phi : Formula
h1_1_v h1_1_t : VarName
phi'✝ : Formula
a✝¹ : isFreeIn h1_1_v (exists_ h1_1_x h1_1_phi)
h1_1_2 : ¬h1_1_x = h1_1_t
a✝ : IsSub h1_1_phi h1_1_v h1_1_t phi'✝
h1_1_ih : ∀ (binders : Finset VarName), h1_1_t ∉ binders → Rec.fastAdmitsAux h1_1_v h1_1_t binders h1_1_phi
binders : Finset VarName
h2 : h1_1_t ∉ binders
⊢ h1_1_t ∉ binders ∪ {h1_1_x}

State before:
case h.h2
F : Formula
v u : VarName
F' : Formula
h1_1_x : VarName
h1_1_phi : Formula
h1_1_v h1_1_t : VarName
phi'✝ : Formula
a✝¹ : isFreeIn h1_1_v (exists_ h1_1_x h1_1_phi)
h1_1_2 : ¬h1_1_x = h1_1_t
a✝ : IsSub h1_1_phi h1_1_v h1_1_t phi'✝
h1_1_ih : ∀ (binders : Finset VarName), h1_1_t ∉ binders → Rec.fastAdmitsAux h1_1_v h1_1_t binders h1_1_phi
binders : Finset VarName
h2 : h1_1_t ∉ binders
⊢ h1_1_t ∉ binders ∪ {h1_1_x}
Tactic:
simp
State after:
case h.h2
F : Formula
v u : VarName
F' : Formula
h1_1_x : VarName
h1_1_phi : Formula
h1_1_v h1_1_t : VarName
phi'✝ : Formula
a✝¹ : isFreeIn h1_1_v (exists_ h1_1_x h1_1_phi)
h1_1_2 : ¬h1_1_x = h1_1_t
a✝ : IsSub h1_1_phi h1_1_v h1_1_t phi'✝
h1_1_ih : ∀ (binders : Finset VarName), h1_1_t ∉ binders → Rec.fastAdmitsAux h1_1_v h1_1_t binders h1_1_phi
binders : Finset VarName
h2 : h1_1_t ∉ binders
⊢ h1_1_t ∉ binders ∧ ¬h1_1_t = h1_1_x

State before:
case h.h2
F : Formula
v u : VarName
F' : Formula
h1_1_x : VarName
h1_1_phi : Formula
h1_1_v h1_1_t : VarName
phi'✝ : Formula
a✝¹ : isFreeIn h1_1_v (exists_ h1_1_x h1_1_phi)
h1_1_2 : ¬h1_1_x = h1_1_t
a✝ : IsSub h1_1_phi h1_1_v h1_1_t phi'✝
h1_1_ih : ∀ (binders : Finset VarName), h1_1_t ∉ binders → Rec.fastAdmitsAux h1_1_v h1_1_t binders h1_1_phi
binders : Finset VarName
h2 : h1_1_t ∉ binders
⊢ h1_1_t ∉ binders ∧ ¬h1_1_t = h1_1_x
Tactic:
tauto
State after:
no goals

State before:
case def_
F : Formula
v u : VarName
F' : Formula
X✝ : DefName
xs✝ : List VarName
v✝ t✝ : VarName
binders : Finset VarName
h2 : t✝ ∉ binders
⊢ v✝ ∈ xs✝ → t✝ ∉ binders
Tactic:
tauto
State after:
no goals