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

feat: extend public Meta API

Browse source
This commit is contained in:
Leonardo de Moura 2019-11-11 12:19:07 -08:00
parent 01bd502db1
commit 9cdaf79cfc
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
library/Init/Lean/Meta/Default.lean
View file

@ -53,5 +53,14 @@ exprToBool <$> auxFixpoint isDefEqOp e₁ e₂
/- END OF BIG HACK -/
/- =========================================== -/
def isProp (e : Expr) : MetaM Bool :=
isPropAux whnf e
def getFunInfo (fn : Expr) : MetaM FunInfo :=
getFunInfoAux whnf fn
def getFunInfoNArgs (fn : Expr) (nargs : Nat) : MetaM FunInfo :=
getFunInfoNArgsAux whnf fn nargs
end Meta
end Lean