proposition: Proposition pointed_struct_pointed_hset_with_smash_adj_laws : hset_struct_with_smash_closed_adj_laws pointed_struct_pointed_hset_with_smash_closed_pointed.
proof: Proof. split. - intros X Y Z f. induction X as [ X x ]. induction Y as [ Y y ]. induction Z as [ Z z ]. induction f as [ f p ]. cbn in *. exact (eqtohomot (maponpaths pr1 p) y). - intros X Y Z f. induction X as [ X x ]. induction Y as [ Y y ]. induction Z as [ Z z ]. induction f as [ f p ]. use subtypePath. { intro. apply setproperty. } use funextsec. intro a. refine (_ @ p). refine (maponpaths f _). use iscompsetquotpr. apply hinhpr ; cbn. use inr. unfold product_point_coordinate ; cbn. unfold pointed_struct_pointed_hset_data. split ; use inl ; apply idpath. Qed.
imports: UniMath.MoreFoundations.All UniMath.CategoryTheory.Core.Categories UniMath.CategoryTheory.Categories.HSET.All UniMath.CategoryTheory.Limits.BinProducts UniMath.CategoryTheory.Limits.Equalizers UniMath.CategoryTheory.Limits.Products UniMath.CategoryTheory.DisplayedCats.Core UniMath.CategoryTheory.DisplayedCats.Structures.CartesianStructure UniMath.CategoryTheory.DisplayedCats.Structures.StructureLimitsAndColimits UniMath.CategoryTheory.DisplayedCats.Structures.StructuresSmashProduct