extend solutions for fund / Q3 using trin / Q5

1FundamentalGroup/Quest3Solutions.agda

@@ -1,21 +1,15 @@
 module 1FundamentalGroup.Quest3Solutions where
 
-open import Cubical.Foundations.Prelude
 open import Cubical.HITs.S1 using ( S¹ ; base ; loop )
 open import 1FundamentalGroup.Quest1Solutions
+open import Cubical.Foundations.Prelude renaming (transport to pathToFun)
 open import Cubical.Foundations.Path
-
+open import 0Trinitarianism.Quest5Solutions
-outOfS¹ : (B : S¹ → Type) → (b : B base) → PathP (λ i → B (loop i)) b b → (x : S¹) → B x
-outOfS¹ B b p base = b
-outOfS¹ B b p (loop i) = p i
-
-
 
 rewind : (x : S¹) → helix x → base ≡ x
-rewind base = loop_times
+rewind = outOfS¹D (λ x → helix x → base ≡ x) loop_times
-rewind (loop i) = path i where
+  (
-
+    pathToFun (λ i → sucℤPath i → base ≡ loop i) loop_times
-   path : PathP (λ i → helix (loop i) → base ≡ loop i) loop_times loop_times
+  ≡⟨ {!!} ⟩
-   path  = {!!}
+    loop_times ∎
-
+  )
-thing = PathPIsoPath