Allow prove_eq_by_Proper to prove Proper instances recursively and by…

… assumption For mit-plv/fiat-crypto#1778
JasonGross · Dec 23, 2023 · 83e5c7e · 83e5c7e
1 parent 604362b
commit 83e5c7e
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Rewriter/Rewriter/ProofsCommonTactics.v b/src/Rewriter/Rewriter/ProofsCommonTactics.v
@@ -490,8 +490,10 @@ Module Compilers.
              [ now
                  let H := fresh in
                  cbv [Proper respectful] in *;
-                 intro H; eapply H; intros; subst; eauto
+                 intro H; eapply H; intros; subst; eauto;
+                 prove_eq_by_Proper
              | first [ now typeclasses eauto
+                     | now cbv [Proper respectful] in *; typeclasses eauto with core
                      | idtac "WARNING: Could not find Proper instance";
                        clear;
                        print_context_and_goal ();