From 55e1cdec32c68b150934f5737821d8e3fea10ef2 Mon Sep 17 00:00:00 2001
From: Quentin Vermande <quentin.vermande@orange.fr>
Date: Mon, 18 Nov 2024 17:58:17 +0100
Subject: [PATCH 1/2] adapt to coq#19822

---
 src/Rewriter/Rewriter/ProofsCommon.v | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Rewriter/Rewriter/ProofsCommon.v b/src/Rewriter/Rewriter/ProofsCommon.v
index d02a00991..52112c011 100644
--- a/src/Rewriter/Rewriter/ProofsCommon.v
+++ b/src/Rewriter/Rewriter/ProofsCommon.v
@@ -3674,7 +3674,7 @@ Module Compilers.
                            [ now eauto | intros | reflexivity ];
                            try solve [ fin_t ]
                          | progress (cbn [UnderLets.interp_related UnderLets.interp_related_gen expr.interp_related expr.interp_related_gen];
-                                     repeat (do 2 eexists; repeat apply conj; intros))
+                                     repeat (eexists; [> idtac ]; eexists; repeat apply conj; intros))
                          | solve
                              [ repeat
                                  first

From 661140d61393a27dc7ad7a3f81bae85e2c1d4fee Mon Sep 17 00:00:00 2001
From: Jason Gross <jasongross9@gmail.com>
Date: Tue, 19 Nov 2024 22:35:58 -0800
Subject: [PATCH 2/2] Update src/Rewriter/Rewriter/ProofsCommon.v

---
 src/Rewriter/Rewriter/ProofsCommon.v | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Rewriter/Rewriter/ProofsCommon.v b/src/Rewriter/Rewriter/ProofsCommon.v
index 52112c011..7e93b687b 100644
--- a/src/Rewriter/Rewriter/ProofsCommon.v
+++ b/src/Rewriter/Rewriter/ProofsCommon.v
@@ -3674,7 +3674,7 @@ Module Compilers.
                            [ now eauto | intros | reflexivity ];
                            try solve [ fin_t ]
                          | progress (cbn [UnderLets.interp_related UnderLets.interp_related_gen expr.interp_related expr.interp_related_gen];
-                                     repeat (eexists; [> idtac ]; eexists; repeat apply conj; intros))
+                                     repeat (eexists; []; eexists; repeat apply conj; intros))
                          | solve
                              [ repeat
                                  first