HigherOrderCO/Kind1
1
1
Fork 0
mirror of https://github.com/HigherOrderCO/Kind1.git synced 2024-10-26 12:08:29 +03:00
Code Issues Packages Projects Releases Wiki Activity

prove little lemma

Browse Source
This commit is contained in:
Rígille S. B. Menezes 2021-12-01 12:45:23 -03:00
parent 82c9fdeb92
commit ebb3436bbb
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
base/Nat/lte/slack_right.kind
View File

@ -2,5 +2,8 @@ Nat.lte.slack_right(
a: Nat, b: Nat, c: Nat
H: Equal(Bool, Nat.lte(a, b), true)
): Equal(Bool, Nat.lte(a, Nat.add(b, c)), true)
?Nat.lte.slack_right
case Nat.add.comm(c, b) {
refl:
Nat.lte.slack_left(a, b, c, H)
}: Equal(Bool, Nat.lte(a, self.b), true)