lemma 3.11.6

2024-07-11 00:31:26 -05:00 · 2024-07-11 00:31:26 -05:00 · 1e270130e0
commit 1e270130e0
parent 3807a5759a
1 changed files with 4 additions and 1 deletions
--- a/src/HottBook/Chapter3.lagda.md
+++ b/src/HottBook/Chapter3.lagda.md
@ -417,7 +417,10 @@ lemma3∙11∙6 {A} {P} allContr =
  let
    Pa-isProp : isProp ((x : A) → P x)
    Pa-isProp = example3∙6∙2 λ x → Σ.snd (lemma3∙11∙3.properties.ii (lemma3∙11∙3.i (allContr x)))
-  in {!   !} , {!   !}
+
+    center : (x : A) → P x
+    center x = Σ.fst (allContr x)
+  in center , λ x → Pa-isProp center x
 ```

 ### Lemma 3.11.8