diff options
| author | herbelin | 2009-05-10 18:11:16 +0000 |
|---|---|---|
| committer | herbelin | 2009-05-10 18:11:16 +0000 |
| commit | e66ba651bdd283dd490453f9d48b226730444726 (patch) | |
| tree | e18f9e72bf757b72d02c1cc37613933e1eca609c /test-suite | |
| parent | 8654111ba8e98680aa7965468a82746352b362a7 (diff) | |
- Addition of "Hint Resolve ->" and "Hint Resolve <-" continued: it
revealed a too strict test for detection of inferable metas in
Clenv. Restored tolerance for unbound names in interactive tactic use.
- Moral removals of some captures of Not_found in Environ.evaluable_* since
kernel is assumed to deal with existing names.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12122 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/Hints.v | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/test-suite/success/Hints.v b/test-suite/success/Hints.v index e1c74048cb..98b5992ade 100644 --- a/test-suite/success/Hints.v +++ b/test-suite/success/Hints.v @@ -24,7 +24,7 @@ Hint Destruct h8 := 4 Hypothesis (_ <= _) => fun H => apply H. (* Checks that local names are accepted *) Section A. Remark Refl : forall (A : Set) (x : A), x = x. - Proof refl_equal. + Proof. exact refl_equal. Defined. Definition Sym := sym_equal. Let Trans := trans_equal. @@ -46,3 +46,9 @@ Section A. End A. +Axiom a : forall n, n=0 <-> n<=0. + +Hint Resolve -> a. +Goal forall n, n=0 -> n<=0. +auto. +Qed. |