diff options
| author | Hugo Herbelin | 2020-07-19 13:00:03 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2020-11-15 21:07:58 +0100 |
| commit | 35ea1057b10c6457c1f9d5f61e8f72e35206392c (patch) | |
| tree | 9f75ae9105791f0777dad17dffe90a0666b93dfd | |
| parent | 5b7a1d7d6a7b3281bfb28c8548edb85bc99c91ab (diff) | |
Ensuring the body of the notation in Locate is printed at level 0.
This is consistent with the syntax of Notation and is (IMO) clearer.
| -rw-r--r-- | test-suite/output/locate.out | 23 |
1 files changed, 8 insertions, 15 deletions
diff --git a/test-suite/output/locate.out b/test-suite/output/locate.out index 143eb1a1ae..0196ead5e4 100644 --- a/test-suite/output/locate.out +++ b/test-suite/output/locate.out @@ -1,15 +1,8 @@ -Notation -"b1 && b2" := if b1 then b2 else false (default interpretation) -"x && y" := andb x y : bool_scope -Notation -"'U' t" := S t (default interpretation) -Notation -"'_' t" := S t (default interpretation) -Notation -"( x , y , .. , z )" := pair .. (pair x y) .. z : core_scope (default interpretation) -Notation -"( x , y , .. , z )" := pair .. (pair x y) .. z : core_scope (default interpretation) -Notation -"( x , y , .. , z )" := pair .. (pair x y) .. z : core_scope (default interpretation) -Notation -"( x , y , .. , z )" := pair .. (pair x y) .. z : core_scope (default interpretation) +Notation "b1 && b2" := (if b1 then b2 else false) (default interpretation) +Notation "x && y" := (andb x y) : bool_scope +Notation "'U' t" := (S t) (default interpretation) +Notation "'_' t" := (S t) (default interpretation) +Notation "( x , y , .. , z )" := (pair .. (pair x y) .. z) : core_scope (default interpretation) +Notation "( x , y , .. , z )" := (pair .. (pair x y) .. z) : core_scope (default interpretation) +Notation "( x , y , .. , z )" := (pair .. (pair x y) .. z) : core_scope (default interpretation) +Notation "( x , y , .. , z )" := (pair .. (pair x y) .. z) : core_scope (default interpretation) |