michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix cup symbol. In Emacs, the unicode characters cup and cap are assigned incorrectly.

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2013-08-18 18:43:31 -07:00
parent a46bf357b0
commit ce43c1cbae
3 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
examples/ex7.lean
View file

@ -8,13 +8,13 @@ Check x
Check Type max u m
Show Type u+3
Check Type u+3
Check Type u ⊓ m
Check Type u ⊓ m ⊓ 3
Show Type u+1 ⊓ m ⊓ 3
Check Type u+1 ⊓ m ⊓ 3
Check Type u ⊔ m
Check Type u ⊔ m ⊔ 3
Show Type u+1 ⊔ m ⊔ 3
Check Type u+1 ⊔ m ⊔ 3
Show Type u -> Type 5
Check Type u -> Type 5
Check Type m ⊓ 3 -> Type u+5
Show Type m ⊓ 3 -> Type u -> Type 5
Check Type m ⊓ 3 -> Type u -> Type 5
Check Type m ⊔ 3 -> Type u+5
Show Type m ⊔ 3 -> Type u -> Type 5
Check Type m ⊔ 3 -> Type u -> Type 5
Show Type u

2
src/frontend/parser.cpp
View file

@ -40,7 +40,7 @@ static name g_mixfixc_kwd("Mixfixc");
// ==========================================
// Support for parsing levels
static name g_max_name("max");
static name g_cup_name("\u2293");
static name g_cup_name("\u2294");
static name g_plus_name("+");
static unsigned g_level_plus_prec = 10;
static unsigned g_level_cup_prec = 5;

2
src/kernel/level.cpp
View file

@ -210,7 +210,7 @@ format pp(level const & l) {
case level_kind::Max: {
format r = pp(max_level(l, 0));
for (unsigned i = 1; i < max_size(l); i++) {
r += format(" \u2293 ");
r += format{space(), format("\u2294"), space()};
r += pp(max_level(l, i));
}
return r;