proposition: Lemma make_disp_symm_braiding_nat_right {B : symmetric M} {c : disp_braiding_data DM B} (p_nat : disp_sym_moncat_laws_tensored_nat c) : disp_braiding_law_naturality_right DM c.
proof: Proof. intro ; intros. set (q := ! p_nat _ _ _ _ _ _ xx1 xx2 yy yy ff (id_disp yy)). use transportf_transpose_left. set (qq := specialized_transport_lemma (c x1 y xx1 yy) ff _ _ q). refine (qq @ _). clear qq. clear q. use transportf_transpose_left. unfold transportb. rewrite transport_f_f. rewrite path_comp_inv_inv. etrans. 2: { apply maponpaths_2. apply maponpaths. refine (idpath (maponpaths (λ i, i · pr1 B _ _) (when_bifunctor_becomes_rightwhiskering M y f)) @ _). apply homset_property. } etrans. 2: { apply maponpaths_2. apply (maponpathsinv0 (λ i : C ⟦ x1 ⊗_{ M} y, x2 ⊗_{ M} y ⟧, i · pr1 B x2 y)). } etrans. 2: { apply mor_disp_transportf_postwhisker. } apply maponpaths_2. apply disp_tensor_with_id_on_right. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Core.Functors UniMath.CategoryTheory.Core.Isos UniMath.CategoryTheory.Core.NaturalTransformations UniMath.CategoryTheory.DisplayedCats.Core UniMath.CategoryTheory.DisplayedCats.Functors UniMath.CategoryTheory.DisplayedCats.Isos UniMath.CategoryTheory.DisplayedCats.NaturalTransformations UniMath.CategoryTheory.DisplayedCats.Total UniMath.CategoryTheory.DisplayedCats.Projection UniMath.CategoryTheory.Monoidal.WhiskeredBifunctors UniMath.CategoryTheory.Monoidal.Categories UniMath.CategoryTheory.Monoidal.Functors UniMath.CategoryTheory.Monoidal.Displayed.WhiskeredDisplayedBifunctors UniMath.CategoryTheory.Monoidal.Displayed.Monoidal UniMath.CategoryTheory.Monoidal.Displayed.TotalMonoidal UniMath.CategoryTheory.Monoidal.Displayed.TransportLemmas UniMath.CategoryTheory.Monoidal.Structure.Symmetric