WIP: quantity polymorphism #44
1 changed files with 7 additions and 2 deletions
|
@ -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
|
||||||
|
|
Loading…
Reference in a new issue