{S : Type} {A : AbGroup} (f : S -> A) : FreeAbGroup S $-> A := grp_homo_abel_rec (FreeGroup_rec _ _ f).
Require Import Basics.Overture Basics.Tactics Basics.Equivalences. Require Import Types.Sigma Types.Forall Types.Paths. Require Import WildCat.Core WildCat.EquivGpd WildCat.Universe. Require Import Algebra.AbGroups.AbelianGroup Algebra.AbGroups.Abelianization. Require Import Algebra.Groups.FreeGroup. Require Import Spaces.List.Core.