Lean4
/-- The canonical functor from `SimplexCategoryGenRel` to SimplexCategory, which exists as the
simplicial identities hold in `SimplexCategory`. -/
def toSimplexCategory : SimplexCategoryGenRel ⥤ SimplexCategory :=
CategoryTheory.Quotient.lift _
(Paths.lift
{ obj := .mk
map
f :=
match f with
| FreeSimplexQuiver.Hom.δ i => SimplexCategory.δ i
| FreeSimplexQuiver.Hom.σ i => SimplexCategory.σ i })
(fun _ _ _ _ h ↦
match h with
| .δ_comp_δ H => SimplexCategory.δ_comp_δ H
| .δ_comp_σ_of_le H => SimplexCategory.δ_comp_σ_of_le H
| .δ_comp_σ_self => SimplexCategory.δ_comp_σ_self
| .δ_comp_σ_succ => SimplexCategory.δ_comp_σ_succ
| .δ_comp_σ_of_gt H => SimplexCategory.δ_comp_σ_of_gt H
| .σ_comp_σ H => SimplexCategory.σ_comp_σ H)