-- Module: Mathlib.CategoryTheory.Monoidal.Bimod
Goal:
C : Type u₁
inst : Category.{v₁, u₁} C
inst_1 : MonoidalCategory.{v₁, u₁} C
inst_2 : HasCoequalizers.{v₁, u₁} C
inst_3 : ∀ (X : C), PreservesColimitsOfSize.{0, 0, v₁, v₁, u₁, u₁} (tensorLeft X)
inst_4 : ∀ (X : C), PreservesColimitsOfSize.{0, 0, v₁, v₁, u₁, u₁} (tensorRight X)
V W X Y Z : Mon.{v₁, u₁} C
M : Bimod V W
N : Bimod W X
P : Bimod X Y
Q : Bimod Y Z
h :
  (whiskerRight
          (Iso.hom
            (isoOfIso
              { hom := AssociatorBimod.hom M N P, inv := AssociatorBimod.inv M N P, hom_inv_id := ⋯, inv_hom_id := ⋯ :
                TensorBimod.X (M.tensorBimod N) P ≅ TensorBimod.X M (N.tensorBimod P) }
              ⋯ ⋯))
          Q ≫
        Iso.hom
            (isoOfIso
              { hom := AssociatorBimod.hom M (N.tensorBimod P) Q, inv := AssociatorBimod.inv M (N.tensorBimod P) Q,
                hom_inv_id := ⋯, inv_hom_id := ⋯ :
                TensorBimod.X (M.tensorBimod (N.tensorBimod P)) Q ≅ TensorBimod.X M ((N.tensorBimod P).tensorBimod Q) }
              ⋯ ⋯) ≫
          M.whiskerLeft
            (Iso.hom
              (isoOfIso
                { hom := AssociatorBimod.hom N P Q, inv := AssociatorBimod.inv N P Q, hom_inv_id := ⋯, inv_hom_id := ⋯ :
                  TensorBimod.X (N.tensorBimod P) Q ≅ TensorBimod.X N (P.tensorBimod Q) }
                ⋯ ⋯))).hom =
    (Iso.hom
          (isoOfIso
            { hom := AssociatorBimod.hom (M.tensorBimod N) P Q, inv := AssociatorBimod.inv (M.tensorBimod N) P Q,
              hom_inv_id := ⋯, inv_hom_id := ⋯ :
              TensorBimod.X ((M.tensorBimod N).tensorBimod P) Q ≅ TensorBimod.X (M.tensorBimod N) (P.tensorBimod Q) }
            ⋯ ⋯) ≫
        Iso.hom
          (isoOfIso
            { hom := AssociatorBimod.hom M N (P.tensorBimod Q), inv := AssociatorBimod.inv M N (P.tensorBimod Q),
              hom_inv_id := ⋯, inv_hom_id := ⋯ }
            ⋯ ⋯)).hom
⊢ whiskerRight
        (Iso.hom
          (isoOfIso
            { hom := AssociatorBimod.hom M N P, inv := AssociatorBimod.inv M N P, hom_inv_id := ⋯, inv_hom_id := ⋯ :
              TensorBimod.X (M.tensorBimod N) P ≅ TensorBimod.X M (N.tensorBimod P) }
            ⋯ ⋯))
        Q ≫
      Iso.hom
          (isoOfIso
            { hom := AssociatorBimod.hom M (N.tensorBimod P) Q, inv := AssociatorBimod.inv M (N.tensorBimod P) Q,
              hom_inv_id := ⋯, inv_hom_id := ⋯ :
              TensorBimod.X (M.tensorBimod (N.tensorBimod P)) Q ≅ TensorBimod.X M ((N.tensorBimod P).tensorBimod Q) }
            ⋯ ⋯) ≫
        M.whiskerLeft
          (Iso.hom
            (isoOfIso
              { hom := AssociatorBimod.hom N P Q, inv := AssociatorBimod.inv N P Q, hom_inv_id := ⋯, inv_hom_id := ⋯ :
                TensorBimod.X (N.tensorBimod P) Q ≅ TensorBimod.X N (P.tensorBimod Q) }
              ⋯ ⋯)) =
    Iso.hom
        (isoOfIso
          { hom := AssociatorBimod.hom (M.tensorBimod N) P Q, inv := AssociatorBimod.inv (M.tensorBimod N) P Q,
            hom_inv_id := ⋯, inv_hom_id := ⋯ :
            TensorBimod.X ((M.tensorBimod N).tensorBimod P) Q ≅ TensorBimod.X (M.tensorBimod N) (P.tensorBimod Q) }
          ⋯ ⋯) ≫
      Iso.hom
        (isoOfIso
          { hom := AssociatorBimod.hom M N (P.tensorBimod Q), inv := AssociatorBimod.inv M N (P.tensorBimod Q),
            hom_inv_id := ⋯, inv_hom_id := ⋯ }
          ⋯ ⋯)

Tactic:
ext