diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-18 07:01:07 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-18 07:01:07 +0000 |
commit | f61e682857596f0274b956295efd2bfba63bc8c0 (patch) | |
tree | 46a3ea60f4da1633cf91ce965ffc3d3df52ee300 /test-suite/output/Notations.v | |
parent | 7f4b6b875daaf1d31ff74a58d8916c2a4889cf3a (diff) |
Fixing parsing of specific primitive tokens used as notations for patterns
(e.g. 1 for eq_refl).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16094 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/output/Notations.v')
-rw-r--r-- | test-suite/output/Notations.v | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/test-suite/output/Notations.v b/test-suite/output/Notations.v index 75d5037a8..bfd5482ab 100644 --- a/test-suite/output/Notations.v +++ b/test-suite/output/Notations.v @@ -266,3 +266,17 @@ Notation "'foo' n" := (S n) (at level 50): nat_scope. Check (foo 9). Check (fun _ : nat => 9). + +(* Checking parsing and printing of numerical and non-numerical notations for eq_refl *) + +(* This notation was not correctly printed until Pierre B.'s + improvements to the interpretation of patterns *) + +Notation "'ONE'" := eq_refl. +Check fun (x:nat) (p : x=x) => match p with ONE => ONE end = p. + +(* This one used to failed at parsing until now *) + +Notation "1" := eq_refl. +Check fun (x:nat) (p : x=x) => match p with 1 => 1 end = p. + |