Theorem: Arith.Model.DefinableFunction.term_retraction (Arithmetization/Definability/Hierarchy.lean)

State before:
L : Language
inst✝⁹ : L.ORing
ξ : Type v
n : ℕ
M : Type u_1
inst✝⁸ : Zero M
inst✝⁷ : One M
inst✝⁶ : Add M
inst✝⁵ : Mul M
inst✝⁴ : LT M
inst✝³ : M ⊧ₘ* 𝐏𝐀⁻
inst✝² : Structure L M
inst✝¹ : Structure.ORing L M
inst✝ : Structure.Monotone L M
Γ : HierarchySymbol
k : ℕ
P Q : (Fin k → M) → Prop
t : Semiterm L M n
e : Fin n → Fin k
⊢ Hierarchy 𝚺 0 (“#0 = !!((Rew.substs fun x => #(e x).succ) t)”)
Tactic:
simp
State after:
no goals

State before:
L : Language
inst✝⁹ : L.ORing
ξ : Type v
n : ℕ
M : Type u_1
inst✝⁸ : Zero M
inst✝⁷ : One M
inst✝⁶ : Add M
inst✝⁵ : Mul M
inst✝⁴ : LT M
inst✝³ : M ⊧ₘ* 𝐏𝐀⁻
inst✝² : Structure L M
inst✝¹ : Structure.ORing L M
inst✝ : Structure.Monotone L M
Γ : HierarchySymbol
k : ℕ
P Q : (Fin k → M) → Prop
t : Semiterm L M n
e : Fin n → Fin k
⊢ DefinedWithParam (fun v => v 0 = (fun v => Semiterm.valm M (fun x => v (e x)) id t) fun x => v x.succ)
    (HSemiformula.mkSigma (“#0 = !!((Rew.substs fun x => #(e x).succ) t)”) ⋯)
Tactic:
intro v
State after:
L : Language
inst✝⁹ : L.ORing
ξ : Type v
n : ℕ
M : Type u_1
inst✝⁸ : Zero M
inst✝⁷ : One M
inst✝⁶ : Add M
inst✝⁵ : Mul M
inst✝⁴ : LT M
inst✝³ : M ⊧ₘ* 𝐏𝐀⁻
inst✝² : Structure L M
inst✝¹ : Structure.ORing L M
inst✝ : Structure.Monotone L M
Γ : HierarchySymbol
k : ℕ
P Q : (Fin k → M) → Prop
t : Semiterm L M n
e : Fin n → Fin k
v : Fin k.succ → M
⊢ (fun v => v 0 = (fun v => Semiterm.valm M (fun x => v (e x)) id t) fun x => v x.succ) v ↔
    (Semiformula.Evalm M v id) (HSemiformula.mkSigma (“#0 = !!((Rew.substs fun x => #(e x).succ) t)”) ⋯).val

State before:
L : Language
inst✝⁹ : L.ORing
ξ : Type v
n : ℕ
M : Type u_1
inst✝⁸ : Zero M
inst✝⁷ : One M
inst✝⁶ : Add M
inst✝⁵ : Mul M
inst✝⁴ : LT M
inst✝³ : M ⊧ₘ* 𝐏𝐀⁻
inst✝² : Structure L M
inst✝¹ : Structure.ORing L M
inst✝ : Structure.Monotone L M
Γ : HierarchySymbol
k : ℕ
P Q : (Fin k → M) → Prop
t : Semiterm L M n
e : Fin n → Fin k
v : Fin k.succ → M
⊢ (fun v => v 0 = (fun v => Semiterm.valm M (fun x => v (e x)) id t) fun x => v x.succ) v ↔
    (Semiformula.Evalm M v id) (HSemiformula.mkSigma (“#0 = !!((Rew.substs fun x => #(e x).succ) t)”) ⋯).val
Tactic:
simp [Semiterm.val_substs]
State after:
no goals