Closed mohamed-barakat closed 7 months ago
gap> LoadPackage( "FiniteCocompletions", false );; gap> q := FinQuiver( "q(p)[]" );; gap> F := PathCategory( q );; gap> P := PosetOfCategory( F );; gap> PSh := FiniteStrictCoproductCompletion( P );; gap> p := PSh.p;; gap> IsSplitEpimorphism( UniqueMorphism( p, Coproduct( [ p, p ] ) ) ); false gap> IsSplitMonomorphism( UniqueMorphism( p, Coproduct( [ p, p ] ) ) ); true gap> IsIsomorphism( UniqueMorphism( p, Coproduct( [ p, p ] ) ) ); true gap> IsIsomorphicForObjects( p, Coproduct( [ p, p ] ) ); true