Kindelia/Kind2
1
1
Fork 0
mirror of https://github.com/Kindelia/Kind2.git synced 2024-09-11 07:15:45 +03:00
Code Issues Projects Releases Wiki Activity

fix definition of Nat.pow

Browse Source
This commit is contained in:
Rígille S. B. Menezes 2021-10-22 14:30:23 -03:00
parent 396d52319e
commit c1b0f7bd0c
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
base/Nat/pow.kind
View File

@ -1,10 +1,8 @@
// x ^ y
Nat.pow(x: Nat, y: Nat): Nat
Nat.pow.aux(x, y, 1)
Nat.pow.aux(x: Nat, y: Nat, aux: Nat): Nat
Nat.pow(x : Nat, y : Nat) : Nat
case y {
zero: x
succ: Nat.pow.aux(x, y.pred, Nat.mul(aux, 2))
zero:
Nat.succ(Nat.zero)
succ:
Nat.mul(x, Nat.pow(x,y.pred))
}