proposition: Lemma α'α_idFA : α' · α = identity (F A).
proof: Proof. rewrite <- functor_id. rewrite <- αα'_idA. rewrite functor_comp. unfold α'. apply pathsinv0. apply (coalgebra_homo_commutes F f). Defined.
imports: UniMath.Foundations.Propositions UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Limits.Terminal