diff options
| author | herbelin | 2008-05-01 16:28:08 +0000 |
|---|---|---|
| committer | herbelin | 2008-05-01 16:28:08 +0000 |
| commit | 14f6e7940436909c6f3bc1cc9f01464a556c1a45 (patch) | |
| tree | e63f2c96ab9389010bb85f56ef1c6b89b36cd6e4 /test-suite | |
| parent | 4f9cf134a3763de4ec5a5720edb11bb1e6eca66b (diff) | |
Clarification de l'ordre d'interprétation des variables dans ltac. En
particulier, TacCall(_,f,[]) est utilisé pour une référence à une
variable ltac ou une tactique et Reference(f) est utilisé pour une
référence à une variable ltac ou un constr (en passant,
standardisation de l'utilisation de constr: ou ltac: Ã setoid_ring).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10878 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/ltac.v | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/test-suite/success/ltac.v b/test-suite/success/ltac.v index 9dd7b273d6..757cf6a4e2 100644 --- a/test-suite/success/ltac.v +++ b/test-suite/success/ltac.v @@ -173,7 +173,7 @@ Abort. empty args *) Goal True. -match None with @None => exact I end. +match constr:@None with @None => exact I end. Abort. (* Check second-order pattern unification *) @@ -209,3 +209,14 @@ Goal True -> True -> True. is. exact I. Abort. + +(* Interférence entre espaces des noms *) + +Ltac O := intro. +Ltac Z1 t := set (x:=t). +Ltac Z2 t := t. +Goal True -> True. +Z1 O. +Z2 ltac:O. +exact I. +Qed. |