From 062853d9f20ea17eee618cd252f64b647ef6f604 Mon Sep 17 00:00:00 2001
From: Jasper Hugunin
Date: Mon, 24 Aug 2020 13:37:22 -0700
Subject: Modify Classes/RelationClasses.v to compile with -mangle-names

The apply <- tactic was breaking, so we had to modify the definition
in Init/Tactics.v to use slightly fresher names.
---
 theories/Init/Tactics.v | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'theories/Init')

diff --git a/theories/Init/Tactics.v b/theories/Init/Tactics.v
index 6b4551318b..e1db68aea9 100644
--- a/theories/Init/Tactics.v
+++ b/theories/Init/Tactics.v
@@ -135,8 +135,8 @@ lazymatch T with
    rename H2 into H; find_equiv H |
    clear H]
 | forall x : ?t, _ =>
-  let a := fresh "a" with
-      H1 := fresh "H" in
+  let a := fresh "a" in
+  let H1 := fresh "H" in
     evar (a : t); pose proof (H a) as H1; unfold a in H1;
     clear a; clear H; rename H1 into H; find_equiv H
 | ?A <-> ?B => idtac
-- 
cgit v1.2.3