From be7981b07a582ad8aed5693d9071797cc96e98fb Mon Sep 17 00:00:00 2001
From: Reynald Affeldt <reynald.affeldt@aist.go.jp>
Date: Sun, 10 Nov 2024 21:59:01 +0900
Subject: [PATCH] fix changelog

---
 CHANGELOG_UNRELEASED.md               |  3 ++-
 theories/homotopy_theory/wedge_sigT.v | 10 +++++-----
 2 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/CHANGELOG_UNRELEASED.md b/CHANGELOG_UNRELEASED.md
index 649aa56c1..4450c6f19 100644
--- a/CHANGELOG_UNRELEASED.md
+++ b/CHANGELOG_UNRELEASED.md
@@ -81,7 +81,8 @@
 - file `homotopy_theory/wedge_sigT.v`
 - in file `homotopy_theory/wedge_sigT.v`
   + new definitions `wedge_rel`, `wedge`, `wedge_lift`, `pwedge`.
-  + new lemmas `wedge_lift_continuous`, `wedge_lift_nbhs`, `wedge_openP`,
+  + new lemmas `wedge_lift_continuous`, `wedge_lift_nbhs`,
+    `wedge_liftE`, `wedge_openP`,
     `wedge_pointE`, `wedge_point_nbhs`, `wedge_nbhs_specP`, `wedgeTE`,
     `wedge_compact`, `wedge_connected`.
 
diff --git a/theories/homotopy_theory/wedge_sigT.v b/theories/homotopy_theory/wedge_sigT.v
index 99688dff8..08625921f 100644
--- a/theories/homotopy_theory/wedge_sigT.v
+++ b/theories/homotopy_theory/wedge_sigT.v
@@ -94,7 +94,7 @@ rewrite eqEsubset; split => t /= [l [Vl] lNx0]; last by move=> <-; exists l.
 by case/eqmodP/predU1P => [<-|/andP [/eqP]//]; exists l.
 Qed.
 
-Lemma wedge_lift_p0E i (x : X i) j (y : X j) : 
+Lemma wedge_liftE i (x : X i) j (y : X j) :
   wedge_lift (p0 j) = wedge_lift (p0 i).
 Proof. by apply/eqmodP/orP; right; rewrite !eqxx. Qed.
 
@@ -111,7 +111,7 @@ have : open (\bigcup_i (@wedge_lift i @` (@wedge_lift i @^-1` U))).
     have E : j = i by move: R; exact: eq_sigT_fst.
     by rewrite -E in x R *; rewrite -(existT_inj R).
   case/andP => /eqP/= + /eqP -> => yj.
-  by rewrite yj (wedge_lift_p0E x y) in Uy.
+  by rewrite yj (wedge_liftE x y) in Uy.
 congr open; rewrite eqEsubset; split => /= z.
   by case=> i _ /= [x] Ux <-.
 move=> Uz; exists (projT1 (repr z)) => //=.
@@ -125,7 +125,7 @@ rewrite eqEsubset; split => //= U /=; rewrite ?nbhs_simpl.
   case=> V [/= oV Vp] VU j _; apply: wedge_lift_continuous.
   apply: (filterS VU); first exact: (@nbhs_filter wedge).
   apply: open_nbhs_nbhs; split => //.
-  by rewrite (wedge_lift_p0E (p0 i0)).
+  by rewrite (wedge_liftE (p0 i0)).
 move=> Uj; have V_ : forall i, {V : set (X i) |
     [/\ open V, V (p0 i) & V `<=` @wedge_lift i @^-1` U]}.
   move=> j; apply: cid; have /Uj : [set: I] j by [].
@@ -180,8 +180,8 @@ have [I0|/set0P[i0 Ii0]] := eqVneq [set: I] set0.
   rewrite [X in connected X](_ : _ = set0); first exact: connected0.
   by rewrite I0 bigcup_set0.
 apply: bigcup_connected.
-  exists (@wedge_lift i0 (p0 _)) => i Ii; exists (p0 i) => //. 
-  exact: wedge_lift_p0E.
+  exists (@wedge_lift i0 (p0 _)) => i Ii; exists (p0 i) => //.
+  exact: wedge_liftE.
 move=> i ? /=; apply: connected_continuous_connected => //.
 exact/continuous_subspaceT/wedge_lift_continuous.
 Qed.