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 reflexivity.kind

Browse Source
This commit is contained in:
Ferran Delgà 2021-12-04 19:03:14 +01:00 committed by GitHub
parent 1a2ef75255
commit 7218d9f2e0
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
base/Nat/Order/reflexivity.kind Normal file
View File

@ -0,0 +1,8 @@
Nat.Order.refl(a: Nat): Equal<Bool>(Nat.lte(a, a), true)
case a {
zero:
Equal.refl<Bool>(true)
succ:
let ind = Nat.Order.refl(a.pred)
ind
}: Equal<Bool>(Nat.lte(a, a), true)