diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-05-01 16:28:08 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-05-01 16:28:08 +0000 |
commit | 14f6e7940436909c6f3bc1cc9f01464a556c1a45 (patch) | |
tree | e63f2c96ab9389010bb85f56ef1c6b89b36cd6e4 /test-suite/success/ltac.v | |
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/success/ltac.v')
-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 9dd7b273d..757cf6a4e 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. |