English
A full extensionality lemma for level-1 arrows: equality is determined by left and right data and a single internal relation.
Русский
Полная экстенциональная лемма для стрел уровня 1: равенство определяется левыми и правыми данными и одной внутренней связью.
LaTeX
$$$\forall {F G : ComposableArrows\ C\ 1} (left : F.left = G.left) (right : F.right = G.right) (w : F.hom = eqToHom left ≫ G.hom ≫ eqToHom right.symm), F = G$$$
Lean4
/-- The map `Fin (n + 1 + 1) → C` which "shifts" `F.obj'` to the right and inserts `X` in
the zeroth position. -/
def obj : Fin (n + 1 + 1) → C
| ⟨0, _⟩ => X
| ⟨i + 1, hi⟩ => F.obj' i