(f : PreIdempotent X) := { S : Splitting f & forall x, ap f (S.
Require Import HoTT.Basics HoTT.Types. Require Import HFiber Constant. Require Import Truncations.Core Modalities.Modality. Require Import Homotopy.IdentitySystems.