proposition: Lemma path_infinite_unit (X : HSet) : infinite X -> Unit + X = X.
proof: Proof. intros [f Hf]. rewrite (@path_pred_sum X (ran f)). rewrite (path_ran _ Hf). rewrite path_sum_assoc. rewrite path_unit_nat. reflexivity. Qed.
imports: HoTT(TruncType ExcludedMiddle abstract_algebra) HoTT(PropResizing.PropResizing) HoTT(Spaces.Nat.Core Spaces.Card) HoTT(Equiv.BiInv) HoTT(HIT.unique_choice) HoTT.Sets(Ordinals Hartogs Powers GCH AC)