Section BifunctorFacts.
Context {obj : Type} {C : Hom obj}.
Context {Eq2_C : Eq2 C}.
Context {E_Eq2_C : forall a b, @Equivalence (C a b) eq2}.
Context {Id_C : Id_ C} {Cat_C : Cat C}.
Context {Category_C : Category C}.
Context {bif : binop obj}.
Context {Bimap_bif : Bimap C bif}
{Bifunctor_bif : Bifunctor C bif}.

Lemma bimap_slide {a b c d} (ac: C a c) (bd: C b d) :
bimap ac bd ⩯ bimap ac (id_ _) >>> bimap (id_ _) bd.