WIP: quantity polymorphism #44

Draft
rhi wants to merge 9 commits from qpoly into 🐉
Showing only changes of commit 42c2217907 - Show all commits

View file

@ -13,6 +13,10 @@ data No : Pred Bool where
export Uninhabited (No True) where uninhabited _ impossible export Uninhabited (No True) where uninhabited _ impossible
export Eq (No p) where _ == _ = True
export Ord (No p) where compare _ _ = EQ
export Show (No p) where showPrec _ _ = "Ah"
export %inline export %inline
soNo : So b -> No b -> Void soNo : So b -> No b -> Void
soNo Oh Ah impossible soNo Oh Ah impossible