GaloisInc/cryptol
1
1
Fork 0
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-12-17 13:01:31 +03:00
Code Issues Projects Releases Wiki Activity

Add instance Zero Integer.

Browse Source
This commit is contained in:
Brian Huffman 2017-09-28 13:26:01 -07:00
parent cce32a4868
commit d9cbfd62d1
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Cryptol/TypeCheck/Solver/Class.hs
View File

@ -42,6 +42,9 @@ solveZeroInst ty = case tNoUser ty of
-- Zero Bit
TCon (TC TCBit) [] -> SolvedIf []
-- Zero Integer
TCon (TC TCInteger) [] -> SolvedIf []
-- Zero a => Zero [n]a
TCon (TC TCSeq) [_, a] -> SolvedIf [ pZero a ]