proposition: Lemma hinhuniv2' {P X Y : UU} : isaprop P → (X → Y → P) → (∥ X ∥ → ∥ Y ∥ → P).
proof: Proof. intros HP Hxy. apply (hinhuniv2 (P := make_hProp _ HP)). exact Hxy. Qed.
imports: UniMath.Foundations.Sets UniMath.MoreFoundations.Tactics UniMath.MoreFoundations.Subtypes UniMath.Combinatorics.FiniteSequences UniMath.Foundations.NaturalNumbers UniMath.Tactics.EnsureStructuredProofs