HigherOrderCO/Kind1
1
1
Fork 0
mirror of https://github.com/HigherOrderCO/Kind1.git synced 2024-09-11 08:45:32 +03:00
Code Issues Packages Projects Releases Wiki Activity

Create add_left.kind

Browse Source
This commit is contained in:
Ferran Delgà 2021-12-04 18:59:27 +01:00 committed by GitHub
parent 172fb18425
commit 6e8a09cc68
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
base/Nat/Order/add_left.kind Normal file
View File

@ -0,0 +1,18 @@
Nat.Order.add.left(
a: Nat
b: Nat
c: Nat
Hyp: Equal<Bool>(Nat.lte(a, b), true)
): Equal<Bool>(Nat.lte(Nat.add(c, a), Nat.add(c, b)), true)
(case c {
zero:
(Hyp)
Hyp
succ:
(Hyp)
Nat.Order.add.left(a, b, c.pred, Hyp)
}:
(Hyp: Equal<Bool>(Nat.lte(a, b), true)) ->
Equal<Bool>(Nat.lte(Nat.add(c, a), Nat.add(c, b)), true))(
Hyp
)