Skip to content
Snippets Groups Projects
Commit 1b35575d authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Fix setoid_subst.

parent 1a943f38
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 2 deletions
theories/tactics.v
+ 2
− 2
View file @ 1b35575d
......@@ -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]
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment