WIP: quantity polymorphism #44

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

View file

@ -125,7 +125,9 @@ extendOr l1 l2 = (l1 `extendL` l2) `or` l2
public export public export
interface Located a where (.loc) : a -> Loc interface Located a where
constructor MkLocated
(.loc) : a -> Loc
public export public export
0 Located1 : (a -> Type) -> Type 0 Located1 : (a -> Type) -> Type
@ -136,7 +138,10 @@ public export
Located2 f = forall x, y. Located (f x y) Located2 f = forall x, y. Located (f x y)
public export public export
interface Located a => Relocatable a where setLoc : Loc -> a -> a public export
interface Located a => Relocatable a where
constructor MkRelocatable
setLoc : Loc -> a -> a
public export public export
0 Relocatable1 : (a -> Type) -> Type 0 Relocatable1 : (a -> Type) -> Type