chore: add simp rule Nat.lt x y = (x < y)
This commit is contained in:
parent
7f660af4c6
commit
9d0fe5cbf9
1 changed files with 3 additions and 0 deletions
|
|
@ -47,6 +47,9 @@ namespace Nat
|
|||
@[simp] theorem add_eq : Nat.add x y = x + y :=
|
||||
rfl
|
||||
|
||||
@[simp] theorem lt_eq : Nat.lt x y = (x < y) :=
|
||||
rfl
|
||||
|
||||
@[simp] protected theorem zero_add : ∀ (n : Nat), 0 + n = n
|
||||
| 0 => rfl
|
||||
| n+1 => congrArg succ (Nat.zero_add n)
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue