{G H : Group} (f : GroupHomomorphism G H) (n : Int) (g : G) : f (grp_pow g n) = grp_pow (f g) n. Proof. lhs snrapply (int_iter_commute_map _ ((f g) *.)). 1: nrapply grp_homo_op. apply (ap (int_iter _ n)), grp_homo_unit. Defined.
Require Import Basics Types HProp HFiber HSet. Require Import Homotopy.IdentitySystems. Require Import (notations) Classes.interfaces.canonical_names. Require Import Pointed.Core. Require Import WildCat. Require Import Spaces.Nat.Core Spaces.Int. Require Import Truncations.Core.