intro target f _
Δ : RankedAlphabet
H : Type
⊢ ∀ (alg' : Algebra Δ) (f : { a // Vars Δ H a } → alg'.carrier),
    alg' ∈ Set.univ → ExistsUnique fun hom => ∀ (c : { a // Vars Δ H a }), f c = Hom.hom hom c.val
Δ : RankedAlphabet
H : Type
target : Algebra Δ
f : { a // Vars Δ H a } → target.carrier
a✝ : target ∈ Set.univ
⊢ ExistsUnique fun hom => ∀ (c : { a // Vars Δ H a }), f c = Hom.hom hom c.val