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

chore: isNatLit => isRawNatLit

Browse source
This commit is contained in:
Leonardo de Moura 2024-02-23 15:18:30 -08:00
parent 51fe66b9eb
commit 3ead33bd13
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Lean/Meta/LazyDiscrTree.lean
View file

@ -98,7 +98,7 @@ private partial def pushArgsAux (infos : Array ParamInfo) : Nat → Expr → Arr
- `Nat.succ x` where `isNumeral x`
- `OfNat.ofNat _ x _` where `isNumeral x` -/
private partial def isNumeral (e : Expr) : Bool :=
if e.isNatLit then true
if e.isRawNatLit then true
else
let f := e.getAppFn
if !f.isConst then false