proposition: Lemma fun01_profunctor {A B C D : Type} (F : A -> B) (G : C -> D) `{Is0Functor A B F, Is0Functor C D G} : Fun01 (A^op * C) (B^op * D).
proof: Proof. snrapply Build_Fun01. 1: exact (functor_prod F G). rapply is0functor_prod_functor. Defined.
imports: Basics.Utf8 Basics.Overture Basics.Tactics Basics.Equivalences WildCat.Core WildCat.NatTrans WildCat.Equiv WildCat.Prod WildCat.Opposite WildCat.Yoneda WildCat.FunctorCat WildCat.Universe Types.Prod