Add implicit foralls for bidir, update and unify pipeline

This commit is contained in:
Martin Fredin 2023-04-03 17:34:33 +02:00
parent 12bca1c32d
commit 9870802371
33 changed files with 1010 additions and 1055 deletions

View file

@ -1,9 +1,13 @@
data Bool () where {
True : Bool ()
data Bool () where
True : Bool ()
False : Bool ()
};
toBool = case 0 of {
0 => False;
_ => True;
};
toBool x = case x of
0 => False
_ => True
fromBool b = case b of
False => 0
True => 1
main = fromBool (toBool 10)