proposition: Proposition pointed_struct_pointed_hset_with_smash_laws_enrich : hset_struct_with_smash_closed_laws_enrich pointed_struct_pointed_hset_with_smash_adj.
proof: Proof. split. - intros X Y Z. induction X as [ X x ]. induction Y as [ Y y ]. induction Z as [ Z z ]. use subtypePath. { intro ; apply setproperty. } use funextsec. use setquotunivprop'. { intro ; apply setproperty. } intro xz. cbn in *. apply idpath. - intros X Y Z. induction X as [ X x ]. induction Y as [ Y y ]. induction Z as [ Z z ]. use subtypePath. { intro ; apply setproperty. } use funextsec. intro a. use subtypePath. { intro ; apply setproperty. } use funextsec. intro b. cbn in *. 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