∀F,B,A:Top.  (cat-id(FUN(A;B)) F ~ identity-trans(A;B;F))
{ (UnivCD THENA Auto) }
1. F : Top
2. B : Top
3. A : Top
⊢ cat-id(FUN(A;B)) F ~ identity-trans(A;B;F)