Add implicit foralls for bidir, update and unify pipeline
This commit is contained in:
parent
12bca1c32d
commit
9870802371
33 changed files with 1010 additions and 1055 deletions
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue