intro ⟨v, hv⟩
Δ : RankedAlphabet
H : Type
target : Algebra Δ
f : { a // Vars Δ H a } → target.carrier
a✝ : target ∈ Set.univ
⊢ ∀ (c : { a // Vars Δ H a }), f c = Hom.hom (Term.algebraHom target f) c.val
Δ : RankedAlphabet
H : Type
target : Algebra Δ
f : { a // Vars Δ H a } → target.carrier
a✝ : target ∈ Set.univ
v : (Term.algebra Δ H).carrier
hv : Vars Δ H v
⊢ f { val := v, property := hv } = Hom.hom (Term.algebraHom target f) { val := v, property := hv }.val