quest2 edits

1FundamentalGroup/Quest2.agda

@@ -21,8 +21,8 @@ The definition of sucℤPath goes here.
 helix : S¹ → Type
 helix = {!!}
 
-spinCountBase : base ≡ base → ℤ
+windingNumberBase : base ≡ base → ℤ
-spinCountBase = ?
+windingNumberBase = {!!}
 
-spinCount : (x : S¹) → base ≡ x → helix x
+windingNumber : (x : S¹) → base ≡ x → helix x
-spinCount = ?
+windingNumber = {!!}

1FundamentalGroup/Quest2Solutions.agda

@@ -34,8 +34,8 @@ helix : S¹ → Type
 helix base = ℤ
 helix (loop i) = sucℤPath i
 
-spinCountBase : base ≡ base → ℤ
+windingNumberBase : base ≡ base → ℤ
-spinCountBase p = endPt helix p (pos zero)
+windingNumberBase p = endPt helix p (pos zero)
 
-spinCount : (x : S¹) → base ≡ x → helix x
+windingNumber : (x : S¹) → base ≡ x → helix x
-spinCount x p = endPt helix p (pos zero)
+windingNumber x p = endPt helix p (pos zero)