Definition isfinitedirprod {X Y : UU} (sx : isfinite X) (sy : isfinite Y) : isfinite (X × Y) := hinhfun2 finstructondirprod sx sy.
Require Import UniMath.MoreFoundations.Tactics. Require Import UniMath.MoreFoundations.DecidablePropositions. Require Import UniMath.MoreFoundations.NegativePropositions. Require Import UniMath.MoreFoundations.Subtypes.