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

chore(library/init/data/nat/basic): avoid empty set of equations

Browse source
This commit is contained in:
Leonardo de Moura 2019-07-16 13:13:04 -07:00
parent a52f67cea8
commit 86d7904ea7
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
library/init/data/nat/basic.lean
View file

@ -258,7 +258,8 @@ succLeSucc (zeroLe n)
def succPos := zeroLtSucc
theorem notSuccLeZero : ∀ (n : Nat), succ n ≤ 0 → False
.
| 0 h := nomatch h
| (n+1) h := nomatch h
theorem notLtZero (n : Nat) : ¬ n < 0 :=
notSuccLeZero n