feat: Condensed interface #85
|
@ -25,6 +25,14 @@ def isInaccessible (n: Name) : Bool := n.isInaccessibleUserName || n.hasMacroSco
|
||||||
def mkAppM (constName : Name) (xs : Array Expr) : MetaM Expr := Meta.mkAppM constName xs
|
def mkAppM (constName : Name) (xs : Array Expr) : MetaM Expr := Meta.mkAppM constName xs
|
||||||
@[export pantograph_mk_app_expr_m]
|
@[export pantograph_mk_app_expr_m]
|
||||||
def mkAppM' (f: Expr) (xs : Array Expr) : MetaM Expr := Meta.mkAppM' f xs
|
def mkAppM' (f: Expr) (xs : Array Expr) : MetaM Expr := Meta.mkAppM' f xs
|
||||||
|
-- Copies same function in `Meta/AppBuilder.lean`
|
||||||
|
@[export pantograph_mk_fun_m]
|
||||||
|
def mkFun (constName : Name) : MetaM (Expr × Expr) := do
|
||||||
|
let cinfo ← getConstInfo constName
|
||||||
|
let us ← cinfo.levelParams.mapM fun _ => Meta.mkFreshLevelMVar
|
||||||
|
let f := mkConst constName us
|
||||||
|
let fType ← Meta.instantiateTypeLevelParams cinfo us
|
||||||
|
return (f, fType)
|
||||||
|
|
||||||
@[export pantograph_expr_to_string]
|
@[export pantograph_expr_to_string]
|
||||||
def exprToString (e: Expr): String := toString e
|
def exprToString (e: Expr): String := toString e
|
||||||
|
|
Loading…
Reference in New Issue