swh:1:snp:aeaf3dbb58f5be84b565e73b5ade1503ee8cb6d6
Tip revision: b6407e0f026cf5491ca5ed0a35ea5cf316ebe8ca authored by Anish Tondwalkar on 21 May 2021, 03:15:25 UTC
formatted for submission
formatted for submission
Tip revision: b6407e0
magicalPi.hs
assertIs as x:Int -> {y: Int | x == y} -> Unit
assertIs = 0
bar as x:Int ~> Int -> {v: Int | v == x}
bar = 0
f :: x:Int -> Int -> Unit
f = \m p -> assertIs p (bar m)