fact: Definition group_loops_functor {X Y : pType} (f : X ->* Y) : ooGroupHom (group_loops X) (group_loops Y).
imports: Basics Types Pointed Truncations.Core Truncations.Connectedness Homotopy.ClassifyingSpace Algebra.Groups WildCat