Fix setoid_subst.

2086b479 · Robbert Krebbers · 2ac324bd · 2086b479
Commit 2086b479 authored Jan 14, 2016 by Robbert Krebbers
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

prelude/tactics.v prelude/tactics.v +2 -2

No files found.
--- a/prelude/tactics.v
+++ b/prelude/tactics.v
@@ -223,8 +223,8 @@ Ltac setoid_subst_aux R x :=
 Ltac setoid_subst :=
  repeat match goal with
  | _ => progress simplify_equality'
-  | H : @equiv _ ?e ?x _ |- _ => setoid_subst_aux (@equiv _ e) x
-  | H : @equiv _ ?e _ ?x |- _ => symmetry in H; setoid_subst_aux (@equiv _ e) x
+  | H : @equiv ?A ?e ?x _ |- _ => setoid_subst_aux (@equiv A e) x
+  | H : @equiv ?A ?e _ ?x |- _ => symmetry in H; setoid_subst_aux (@equiv A e) x
  end.

 (** Given a tactic [tac2] generating a list of terms, [iter tac1 tac2]