rw [eval]
case var
α : Type
as bs cs : List α
a b✝ c : α
A B : PropForm
τ : String → Bool
v : String
b : Bool
s : String
h : ¬Occurs v (var s)
⊢ eval (fun w => if v = w then b else τ w) (var s) = eval τ (var s)
case var
α : Type
as bs cs : List α
a b✝ c : α
A B : PropForm
τ : String → Bool
v : String
b : Bool
s : String
h : ¬Occurs v (var s)
⊢ (if v = s then b else τ s) = eval τ (var s)