16 lines
354 B
Text
16 lines
354 B
Text
import Lean
|
|
open Lean Elab
|
|
|
|
#eval show TermElabM _ from do
|
|
let x ← `(x)
|
|
let xs := #[x,x,x,x]
|
|
let ys := xs
|
|
PrettyPrinter.ppTerm <|<-
|
|
`(frobnicate { $[$xs:ident := $ys:term],* })
|
|
|
|
#eval show TermElabM _ from do
|
|
let x ← `(x)
|
|
let xs := #[x,x,x,x]
|
|
let ys := xs
|
|
PrettyPrinter.ppTerm <|<-
|
|
`(frobnicate { $[$xs:ident := $ys:term]* })
|