diff options
author | 2009-04-16 17:33:38 +0000 | |
---|---|---|
committer | 2009-04-16 17:33:38 +0000 | |
commit | 491eb32c55c9b57a5a49ebbdc46f41ca5cb359c7 (patch) | |
tree | 9a74d9ea6a65a10d9a80fde72027f0f809a9af18 /theories/Classes/Init.v | |
parent | 665761c4e82504a579d335b529b2e61f0414665c (diff) |
Better Requires in Classes. Fix bug #2093: the code does not require
Program.Tactics anymore.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12089 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Classes/Init.v')
-rw-r--r-- | theories/Classes/Init.v | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/theories/Classes/Init.v b/theories/Classes/Init.v index 7fb48aa43..a2a90978d 100644 --- a/theories/Classes/Init.v +++ b/theories/Classes/Init.v @@ -15,11 +15,6 @@ (* $Id$ *) -(* Ltac typeclass_instantiation := typeclasses eauto || eauto. *) - -Tactic Notation "clapply" ident(c) := - eapply @c ; typeclasses eauto. - (** Hints for the proof search: these combinators should be considered rigid. *) Require Import Coq.Program.Basics. @@ -29,12 +24,12 @@ Typeclasses Opaque id const flip compose arrow impl iff. (** The unconvertible typeclass, to test that two objects of the same type are actually different. *) -Class Unconvertible (A : Type) (a b : A). +Class Unconvertible (A : Type) (a b : A) := unconvertible : unit. Ltac unconvertible := match goal with | |- @Unconvertible _ ?x ?y => unify x y with typeclass_instances ; fail 1 "Convertible" - | |- _ => eapply Build_Unconvertible + | |- _ => exact tt end. Hint Extern 0 (@Unconvertible _ _ _) => unconvertible : typeclass_instances.
\ No newline at end of file |