fact: Definition is_retraction {A B : C} (s : A --> B) (r : B --> A) : UU := s · r = identity A.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors