From 7be663149bb07feae2073e60f8aa8c40cb9b246a Mon Sep 17 00:00:00 2001
From: Robbert Krebbers <mail@robbertkrebbers.nl>
Date: Tue, 17 Nov 2015 13:40:29 +0100
Subject: [PATCH] Generalize setoid_subst.
---
theories/tactics.v | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/theories/tactics.v b/theories/tactics.v
index ece653ff..cc6b8686 100644
--- a/theories/tactics.v
+++ b/theories/tactics.v
@@ -207,9 +207,9 @@ Ltac f_lia :=
end.
Ltac f_lia' := csimpl in *; f_lia.
-Ltac setoid_subst_l x :=
+Ltac setoid_subst_aux R x :=
match goal with
- | H : x ≡ ?y |- _ =>
+ | H : R x ?y |- _ =>
is_var x;
try match y with x _ => fail 2 end;
repeat match goal with
@@ -223,8 +223,8 @@ Ltac setoid_subst_l x :=
Ltac setoid_subst :=
repeat match goal with
| _ => progress simplify_equality'
- | H : ?x ≡ _ |- _ => setoid_subst_l x
- | H : _ ≡ ?x |- _ => symmetry in H; setoid_subst_l x
+ | H : @equiv _ ?e ?x _ |- _ => setoid_subst_aux (@equiv _ e) x
+ | H : @equiv _ ?e _ ?x |- _ => symmetry in H; setoid_subst_aux (@equiv _ e) x
end.
(** Given a tactic [tac2] generating a list of terms, [iter tac1 tac2]
--
GitLab