simp only [eval, compose, propagate_propagate]
case h
α β α' β' : Type
γ : β → Type
arity : Type
p : PropagateStruc arity
inst✝ : Fintype arity
new_arity : Type
q_arity : arity → Type
vars : (a : arity) → q_arity a → new_arity
q : (a : arity) → PropagateStruc (q_arity a)
x : new_arity → ℕ → Bool
n : ℕ
⊢ eval (compose p new_arity q_arity vars q) x n = eval p (fun a => eval (q a) fun i => x (vars a i)) n
no goals