Definition hset_struct_smash_prod_rassociator_mor_alt (X Y Z : ∁) : pr11 (X ∧* (Y ∧* Z)) → pr11 ((X ∧* Y) ∧* Z). Proof. use map_from_smash'. - apply setproperty. - exact hset_struct_smash_prod_rassociator_mor_alt_fun. - exact hset_struct_smash_prod_rassociator_mor_alt_eq1. - exact hset_struct_smash_prod_rassociator_mor_alt_eq2. - exact hset_struct_smash_prod_rassociator_mor_alt_eq3. Defined.
Require Import UniMath.Foundations.All. Require Import UniMath.MoreFoundations.All. Require Import UniMath.CategoryTheory.Core.Categories. Require Import UniMath.CategoryTheory.Monoidal.WhiskeredBifunctors. Require Import UniMath.CategoryTheory.Monoidal.Categories. Require Import UniMath.CategoryTheory.Monoidal.Structure.Symmetric. Require Import UniMath.CategoryTheory.Monoidal.Structure.Closed. Require Import UniMath.CategoryTheory.DisplayedCats.Structures.CartesianStructure. Require Import UniMath.CategoryTheory.DisplayedCats.Structures.StructureLimitsAndColimits. Require Import UniMath.CategoryTheory.DisplayedCats.Structures.StructuresSmashProduct. Require Import UniMath.CategoryTheory.Limits.BinProducts. Require Import UniMath.CategoryTheory.Limits.Terminal.