prefix

🏷️メタプログラミング

prefix は、前置記法を定義するためのコマンドです。

-- 前置記法を定義
-- 中身は Nat.succ
-- scoped を付けているのは、この記法をこの名前空間でのみ有効にするため
scoped prefix:90 "⋄" => Nat.succ

-- 上で定義した記法が使える
#guard ⋄3 = 4

舞台裏

prefix は notation コマンドに展開されるマクロとして実装されています。

open Lean

/-- `#expand` の入力に渡すための構文カテゴリ -/
declare_syntax_cat macro_stx

-- コマンドとタクティクと項を扱える
syntax command : macro_stx
syntax tactic : macro_stx
syntax term : macro_stx

/-- マクロを展開するコマンド -/
elab "#expand " t:macro_stx : command => do
  let t : Syntax := match t.raw with
  | .node _ _ #[t] => t
  | _ => t.raw
  match ← Elab.liftMacroM <| Lean.Macro.expandMacro? t with
  | none => logInfo m!"Not a macro"
  | some t => logInfo m!"{t}"

/-- info: notation:90 "⋄" arg✝:90 => Nat.succ arg✝ -/
#guard_msgs in
  #expand prefix:90 "⋄" => Nat.succ