diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-03-30 21:26:06 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-03-30 21:26:06 +0000 |
commit | 7e52301b501f7a574fca19776fb7fcbfe873d533 (patch) | |
tree | 8a47ba7faf0f39f5f0a77afb977f1108e04fba80 /test-suite | |
parent | 358e5b1daef7ec1681092f8b1888b57da078a8b6 (diff) |
Small things about coqdoc + fixing lettuple.v test (part of bug #2289)
In coqdoc, made links to utf8 notations working and made
representation of locations for notations more compact
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12896 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite')
-rw-r--r-- | test-suite/complexity/lettuple.v | 2 | ||||
-rw-r--r-- | test-suite/coqdoc/links.v | 8 |
2 files changed, 6 insertions, 4 deletions
diff --git a/test-suite/complexity/lettuple.v b/test-suite/complexity/lettuple.v index f97decf0a..0690459fc 100644 --- a/test-suite/complexity/lettuple.v +++ b/test-suite/complexity/lettuple.v @@ -26,4 +26,4 @@ Definition f (x : nat * nat) := let (a,b) := x in 0. -Timeout 5 Print f. +Timeout 5 Time Print f. diff --git a/test-suite/coqdoc/links.v b/test-suite/coqdoc/links.v index b09d64a9a..16028fe17 100644 --- a/test-suite/coqdoc/links.v +++ b/test-suite/coqdoc/links.v @@ -19,7 +19,9 @@ Notation "n ++ m" := (plus n m). Notation "n ++ m" := (mult n m). (* redefinition *) -Notation "n % m" := (plus n m) (at level 60). +Notation "n ** m" := (plus n m) (at level 60). + +Notation "n ▵ m" := (plus n m) (at level 60). Notation "n '_' ++ 'x' m" := (plus n m) (at level 3). @@ -31,7 +33,7 @@ Definition eq0 := 0 = 0 :> nat. Notation "( x # y ; .. ; z )" := (pair .. (pair x y) .. z). -Definition p := ((0#0;0) , (0 % 0)). +Definition b_α := ((0#0;0) , (0 ** 0)). Notation h := a. @@ -39,7 +41,7 @@ Notation h := a. Variables b' b2: nat. - Notation "n + m" := (plus n m) : my_scope. + Notation "n + m" := (n ▵ m) : my_scope. Delimit Scope my_scope with my. |