From 7bfd6cc42cb9ee67595adb0027cac5c2d8f70fcb Mon Sep 17 00:00:00 2001
From: Meven <meven.bertrand@univ-nantes.fr>
Date: Fri, 16 Apr 2021 13:47:54 +0200
Subject: [PATCH] universal property of the truncation

---
 .../solutionsMevenLennonBertrand.v            | 37 ++++++++++++++-----
 1 file changed, 27 insertions(+), 10 deletions(-)

diff --git a/01-introduction-to-hott/solutionsMevenLennonBertrand.v b/01-introduction-to-hott/solutionsMevenLennonBertrand.v
index e50644b..71d7a88 100644
--- a/01-introduction-to-hott/solutionsMevenLennonBertrand.v
+++ b/01-introduction-to-hott/solutionsMevenLennonBertrand.v
@@ -269,10 +269,25 @@ Section Part_4_Equivalences.
     Definition IsPropTrunc (A Q : Type) (q : A -> Q) :=
         forall  P : hProp, IsEquiv (fun f : Q -> P => f ∘ q).
 
-    Theorem univ_trunc (A : Type) : (IsPropTrunc A (Trunc (-1) A) tr).
+    Theorem univ_trunc `{Funext} (A : Type) : (IsPropTrunc A (Trunc (-1) A) tr).
     Proof.
-    Admitted.
-
+      intros Q.
+      srapply isequiv_adjointify.
+      - intros f a.
+        rapply Trunc_rec.
+        1: apply Q.
+        all: eassumption.
+      - intros f.
+        apply path_forall.
+        reflexivity.
+      - intros f.
+        apply path_forall.
+        intros a.
+        pattern a.
+        srapply Trunc_ind.
+        reflexivity. 
+    Qed.
+    
   End Exercise_4_2.
 
 End Part_4_Equivalences.
@@ -285,13 +300,13 @@ Section Part_5_Univalence.
 
     Theorem weasel : Univalence -> Contr { A : hProp & A }.
     Proof.
-        exists (Unit_hp ; tt).
-        intros [A a].
-        unshelve eapply path_sigma'.
-        -   apply path_iff_hprop.
-            + exact (fun _ => a).
-            + exact (fun _ => tt).
-        - apply A.
+    exists (Unit_hp ; tt).
+    intros [A a].
+    unshelve eapply path_sigma'.
+    -   apply path_iff_hprop.
+        + exact (fun _ => a).
+        + exact (fun _ => tt).
+    - apply A.
     Defined.
 
   End Exercise_5_1.
@@ -300,6 +315,8 @@ Section Part_5_Univalence.
 
     (* Show that Σ (A : U) . isSet A is not a set. Hint: (2 ≃ 2) ≃ 2. *)
 
+
+
     Lemma two_equiv_two `{Funext} : (Bool <~> Bool) <~> Bool.
     Proof.
     unshelve eapply equiv_adjointify.