diff --git a/src/Rewriter/Rewriter/ProofsCommon.v b/src/Rewriter/Rewriter/ProofsCommon.v
index d02a00991..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 (do 2 eexists; repeat apply conj; intros))
+                                     repeat (eexists; []; eexists; repeat apply conj; intros))
                          | solve
                              [ repeat
                                  first