From a2dbafb3240a538f7dd2b03ee9dc07cbf75752ff Mon Sep 17 00:00:00 2001
From: Michael Zhang <mail@mzhang.io>
Date: Wed, 24 Jul 2024 21:18:10 -0500
Subject: [PATCH] wip

---
 src/HottBook/Chapter8.lagda.md | 6 +++++-
 src/HottBook/CoreUtil.agda     | 2 +-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/HottBook/Chapter8.lagda.md b/src/HottBook/Chapter8.lagda.md
index 432b8be..4e11f07 100644
--- a/src/HottBook/Chapter8.lagda.md
+++ b/src/HottBook/Chapter8.lagda.md
@@ -86,10 +86,14 @@ module lemma8∙1∙2 where
   open definition8∙1∙1
   open axiom2∙10∙3
   open ≡-Reasoning
+  open S¹
+
+  lifted-loop : {l : Level} → lift base ≡ lift base
+  lifted-loop {l} = ap (lift {l = l}) loop
 
   i : {l : Level} → (x : Int {l}) → (transport code loop x) ≡ int-suc x
   i x = begin
-    (transport code loop x) ≡⟨ lemma2∙3∙10 {! id  !} code loop x ⟩
+    (transport code loop x) ≡⟨ lemma2∙3∙10 id code {! lifted-loop  !} x ⟩
     (transport id (ap code loop) x) ≡⟨ {!   !} ⟩
     -- (transport id (ua int-suc) x) ≡⟨ {!   !} ⟩
     int-suc x ∎
diff --git a/src/HottBook/CoreUtil.agda b/src/HottBook/CoreUtil.agda
index 8126373..ef9f7a4 100644
--- a/src/HottBook/CoreUtil.agda
+++ b/src/HottBook/CoreUtil.agda
@@ -4,6 +4,6 @@ module HottBook.CoreUtil where
 
 open import Agda.Primitive
 
-record Lift {a ℓ} (A : Set a) : Set (a ⊔ ℓ) where
+record Lift {a l} (A : Set a) : Set (a ⊔ l) where
   constructor lift
   field lower : A