fact: Definition trans_co_eq_inv_arrow_morphism@{i j k} : ∀ (A : Type@{i}) (R : crelation@{i j} A), Transitive R → Proper@{k j} (respectful@{i j k j k j} R (respectful@{i j k j k j} Id (@flip@{k k k} _ _ Type@{j} arrow))) R.
imports: Unicode.Utf8 Coq.Program.Tactics Setoid Relations Equations.Type.All CRelationClasses CMorphisms