proposition: Proposition hset_struct_smash_prod_lassociator_mor_alt_eq1 {X Y Z : category_of_hset_struct P} (z₁ z₂ : pr11 Z) : hset_struct_smash_prod_lassociator_mor_alt_fun (hset_struct_point (pr12 P) (pr2 (X ∧* Y))) z₁ = hset_struct_smash_prod_lassociator_mor_alt_fun (hset_struct_point (pr12 P) (pr2 (X ∧* Y))) z₂.
proof: Proof. etrans. { apply maponpaths_2. apply hset_struct_with_smash_closed_point_smash. } refine (!_). etrans. { apply maponpaths_2. apply hset_struct_with_smash_closed_point_smash. } use iscompsetquotpr. apply hinhpr. use inr ; cbn. unfold product_point_coordinate ; cbn. split. - use inl. apply idpath. - use inl. apply idpath. Qed.
imports: UniMath.Foundations.All UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Monoidal.WhiskeredBifunctors UniMath.CategoryTheory.Monoidal.Categories UniMath.CategoryTheory.Monoidal.Structure.Symmetric UniMath.CategoryTheory.Monoidal.Structure.Closed UniMath.CategoryTheory.DisplayedCats.Structures.CartesianStructure UniMath.CategoryTheory.DisplayedCats.Structures.StructureLimitsAndColimits UniMath.CategoryTheory.DisplayedCats.Structures.StructuresSmashProduct UniMath.CategoryTheory.Limits.BinProducts UniMath.CategoryTheory.Limits.Terminal