diff options
| author | Jasper Hugunin | 2020-08-24 13:37:22 -0700 |
|---|---|---|
| committer | Jasper Hugunin | 2020-08-25 13:53:31 -0700 |
| commit | 062853d9f20ea17eee618cd252f64b647ef6f604 (patch) | |
| tree | 8fb36eadc808d6d9de582b369258522cd91e40c8 /theories/Init | |
| parent | afdfbcfcb2156b22527df1d8d019f6f667145689 (diff) | |
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.
Diffstat (limited to 'theories/Init')
| -rw-r--r-- | theories/Init/Tactics.v | 4 |
1 files changed, 2 insertions, 2 deletions
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 |