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

correct broken proof

Browse Source
This commit is contained in:
Rígille S. B. Menezes 2021-11-26 11:06:00 -03:00
parent d050d47dce
commit cd93998f2a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
base/Bytes.kind
View File

@ -40,7 +40,7 @@ Bytes.to_nat.concat(
nil:
case List.concat.nil_right(U8, b0) {
refl:
refl
Nat.add.zero_right(Bytes.to_nat(b0))
}: Nat.add(Bytes.to_nat(List.nil(U8)),Nat.mul(Nat.pow(256,List.length(U8,List.nil(U8))),Bytes.to_nat(b0))) == Bytes.to_nat(self.b)
cons:
let reassoc = mirror(List.concat.assoc(U8, b0, [b1.head], b1.tail))