2412d52536
This PR adds hygiene info to paren/tuple/typeAscription syntaxes, which will be used to implement hygienic cdot function expansion in #9443.
31 lines
961 B
Text
31 lines
961 B
Text
-- TODO(kmill) remove after stage0 update
|
||
@[app_unexpander Unit.unit] meta def unexpandUnit' : Lean.PrettyPrinter.Unexpander
|
||
| `($(_)) => `(())
|
||
@[app_unexpander Prod.mk] meta def unexpandProdMk' : Lean.PrettyPrinter.Unexpander
|
||
| `($(_) $x ($y, $ys,*)) => `(($x, $y, $ys,*))
|
||
| `($(_) $x $y) => `(($x, $y))
|
||
| _ => throw ()
|
||
notation "unitTest " x => Prod.mk x ()
|
||
|
||
#check unitTest 42
|
||
|
||
notation "parenthesisTest " x => Nat.sub (x)
|
||
#check parenthesisTest 12
|
||
|
||
def Set (α : Type u) := α → Prop
|
||
def setOf {α : Type} (p : α → Prop) : Set α := p
|
||
notation "{ " x " | " p " }" => setOf (fun x => p)
|
||
|
||
#check { (x : Nat) | x ≤ 1 }
|
||
|
||
notation "cdotTest " "(" x ", " y ")" => Prod.map (· + 1) (1 + ·) (x, y)
|
||
|
||
#check cdotTest (13, 12)
|
||
|
||
notation "tupleFunctionTest " "(" x ", " y ")"=> Prod.map (Nat.add 1) (Nat.add 2) (x, y)
|
||
|
||
#check tupleFunctionTest (15, 12)
|
||
|
||
notation "doubleRhsTest " x => Prod.mk x x
|
||
|
||
#check doubleRhsTest 12
|