fact: Definition makeGH_diagonalLoop_comp1 {Y} {y:Y} (l:y = y) {T:Torsor ℤ} (t:T) (q:T = T) (r:castTorsor q t = one + t) : maponpaths pr1_GH (makeGH_diagonalLoop l t q r) = !q.
imports: UniMath.Foundations.All UniMath.MoreFoundations.PartA UniMath.Algebra.Monoids UniMath.Algebra.Groups UniMath.NumberSystems.Integers UniMath.SyntheticHomotopyTheory.AffineLine UniMath.Algebra.GroupAction UniMath.MoreFoundations.MoreEquivalences