English
If ι is nonempty, a hom-ext lemma states that two maps that agree on all of_i and base φ are equal.
Русский
Если индексный тип ι не пуст, лемма hom_ext_nonempty утверждает равенство гомоморфизмov если они совпадают на всех of_i и base φ.
LaTeX
$$$\text{hom\_ext\_nonempty} : (\forall i, f \circ of_i = g \circ of_i) \to (f \circ base φ = g \circ base φ) \to f = g$$$
Lean4
@[ext]
theorem ext {w₁ w₂ : NormalWord d} (hhead : w₁.head = w₂.head) (hlist : w₁.toList = w₂.toList) : w₁ = w₂ :=
by
rcases w₁ with ⟨⟨_, _, _⟩, _, _⟩
rcases w₂ with ⟨⟨_, _, _⟩, _, _⟩
simp_all