Remove an unnecessary argument in aurefl (#801)

agda · May 17, 2022 · c24289d · c24289d
1 parent b6fbca9
commit c24289d
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/Cubical/Foundations/Univalence.agda b/Cubical/Foundations/Univalence.agda
@@ -172,15 +172,15 @@ EquivJ P r e = subst (λ x → P (x .fst) (x .snd)) (contrSinglEquiv e) r
 
 -- Assuming that we have an inverse to ua we can easily prove univalence
 module Univalence (au : ∀ {ℓ} {A B : Type ℓ} → A ≡ B → A ≃ B)
-                  (aurefl : ∀ {ℓ} {A B : Type ℓ} → au refl ≡ idEquiv A) where
+                  (aurefl : ∀ {ℓ} {A : Type ℓ} → au refl ≡ idEquiv A) where
 
   ua-au : {A B : Type ℓ} (p : A ≡ B) → ua (au p) ≡ p
   ua-au {B = B} = J (λ _ p → ua (au p) ≡ p)
-                    (cong ua (aurefl {B = B}) ∙ uaIdEquiv)
+                    (cong ua aurefl ∙ uaIdEquiv)
 
   au-ua : {A B : Type ℓ} (e : A ≃ B) → au (ua e) ≡ e
   au-ua {B = B} = EquivJ (λ _ f → au (ua f) ≡ f)
-                         (subst (λ r → au r ≡ idEquiv _) (sym uaIdEquiv) (aurefl {B = B}))
+                         (subst (λ r → au r ≡ idEquiv _) (sym uaIdEquiv) aurefl)
 
   isoThm : ∀ {ℓ} {A B : Type ℓ} → Iso (A ≡ B) (A ≃ B)
   isoThm .Iso.fun = au