mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-10-26 14:20:59 +03:00
Fix type error in examples/Karatsuba.cry.
The error was caused by the recent change of the type of `demote` when class `Literal` was introduced.
This commit is contained in:
parent
ca1dd23173
commit
b812241481
@ -29,11 +29,11 @@ module Karatsuba where
|
||||
kmult : {limb,n} (fin n, fin limb, limb >= 6, n >= 1) => [n] -> [n] -> [2*n]
|
||||
|
||||
kmult x y =
|
||||
if `n >= (demote`{limb, max (width limb) (width n)}) then
|
||||
if `n >= (`limb : [max (width limb) (width n)]) then
|
||||
take (splitmult`{limb} (make_atleast`{limb} x) (make_atleast`{limb} y))
|
||||
else
|
||||
(zero#x)*(zero#y)
|
||||
|
||||
|
||||
|
||||
// Force a bitvector to be at least `n` bits long. As used above, this operation
|
||||
// should always be a no-op, but teaches the typechecker a necessary inequality
|
||||
|
Loading…
Reference in New Issue
Block a user