fact: Definition pfiber_fmap_iterated_loops {A B : pType} (n : nat) (f : A ->* B) : pfiber (fmap (iterated_loops n) f) <~>* iterated_loops n (pfiber f).
imports: Basics Types WildCat HFiber Pointed.Core Pointed.pEquiv Pointed.Loops