We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents f049893 + f5bdd64 commit cfd99bdCopy full SHA for cfd99bd
src/GHC/Num/Integer_LHAssumptions.hs
@@ -10,5 +10,7 @@ import GHC.Types_LHAssumptions()
10
{-@
11
assume GHC.Num.Integer.IS :: x:Int# -> {v: Integer | v = (x :: int) }
12
13
+define GHC.Num.Integer.IS x = (x)
14
+
15
embed Integer as int
16
@-}
0 commit comments