diff --git a/CAP/gap/DerivedMethods.gi b/CAP/gap/DerivedMethods.gi index 4cfed3824e..be7ec909fe 100644 --- a/CAP/gap/DerivedMethods.gi +++ b/CAP/gap/DerivedMethods.gi @@ -2907,6 +2907,21 @@ AddFinalDerivationBundle( "IsomorphismFromImageObjectToKernelOfCokernel as the i end, ] : CategoryFilter := IsAbelianCategory ); +## +AddDerivationToCAP( MorphismFromCoimageToImageWithGivenObjects, + "MorphismFromCoimageToImageWithGivenObjects using that the image embedding lifts the coimage astriction", + [ [ ImageEmbeddingWithGivenImageObject, 1 ], + [ AstrictionToCoimageWithGivenCoimageObject, 1 ], + [ LiftAlongMonomorphism, 1 ] ], + + function( cat, coimage, morphism, image ) + + return LiftAlongMonomorphism( cat, + ImageEmbeddingWithGivenImageObject( cat, morphism, image ), + AstrictionToCoimageWithGivenCoimageObject( cat, morphism, coimage ) ); + +end ); + ## AddDerivationToCAP( MorphismFromCoimageToImageWithGivenObjects, "MorphismFromCoimageToImageWithGivenObjects using that images are given by kernels of cokernels",