max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

fix: sigma notation precedence

Browse source
This commit is contained in:
Leonardo de Moura 2020-12-26 09:35:40 -08:00
parent c94bb0fa2b
commit 4450b8567d
2 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Init/NotationExtra.lean
View file

@ -83,8 +83,8 @@ macro "∃" xs:explicitBinders ", " b:term : term => expandExplicitBinders `Exis
macro "exists" xs:explicitBinders ", " b:term : term => expandExplicitBinders `Exists xs b
macro "Σ" xs:explicitBinders ", " b:term : term => expandExplicitBinders `Sigma xs b
macro "Σ'" xs:explicitBinders ", " b:term : term => expandExplicitBinders `PSigma xs b
macro:25 xs:bracketedExplicitBinders "×" b:term : term => expandBrackedBinders `Sigma xs b
macro:25 xs:bracketedExplicitBinders "×'" b:term : term => expandBrackedBinders `PSigma xs b
macro:35 xs:bracketedExplicitBinders "×" b:term:35 : term => expandBrackedBinders `Sigma xs b
macro:35 xs:bracketedExplicitBinders "×'" b:term:35 : term => expandBrackedBinders `PSigma xs b
syntax "funext " (colGt term:max)+ : tactic

8
tests/lean/run/sigmaprec.lean Normal file
View file

@ -0,0 +1,8 @@
def f1 : Nat × Bool → Nat
| _ => 0
def f2 : (α : Type) × α × α → Nat
| _ => 0
def f3 : (x : Nat) × Bool → Nat
| _ => 0