aboutsummaryrefslogtreecommitdiffhomepage
path: root/theories/Classes/Init.v
diff options
context:
space:
mode:
authorGravatar msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7>2008-12-16 10:19:06 +0000
committerGravatar msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7>2008-12-16 10:19:06 +0000
commit6fabdb398ffedd3f3ffdef3cd02b8749be20445b (patch)
treefbf1765941a0f4f620b81c9ffc59006acd02e91a /theories/Classes/Init.v
parent302571c0740f4a93ef1350901e2ab1add792597b (diff)
Finish fix for the treatment of [inverse] in [setoid_rewrite], making a
variant of the [unify] tactic that takes a hint db as argument and does unification modulo its [transparent_state]. Add test-file for bug #1939 and another [AdvancedTypeClasses.v] that mimicks [AdvancedCanonicalStructure.v]. git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11685 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Classes/Init.v')
-rw-r--r--theories/Classes/Init.v2
1 files changed, 1 insertions, 1 deletions
diff --git a/theories/Classes/Init.v b/theories/Classes/Init.v
index 8b4cac5f4..7fb48aa43 100644
--- a/theories/Classes/Init.v
+++ b/theories/Classes/Init.v
@@ -33,7 +33,7 @@ Class Unconvertible (A : Type) (a b : A).
Ltac unconvertible :=
match goal with
- | |- @Unconvertible _ ?x ?y => conv x y ; fail 1 "Convertible"
+ | |- @Unconvertible _ ?x ?y => unify x y with typeclass_instances ; fail 1 "Convertible"
| |- _ => eapply Build_Unconvertible
end.