2023-10-25 14:01:52 +03:00
|
|
|
|
2024-04-03 17:41:57 +03:00
|
|
|
private typebind infixr 0 =@
|
2023-10-25 14:01:52 +03:00
|
|
|
|
|
|
|
0 (=@) : (a : Type) -> (a -> Type) -> Type
|
|
|
|
(=@) a f = (1 x : a) -> f x
|
|
|
|
|
|
|
|
data S : {ty : Type} -> (x : ty) -> Type where
|
|
|
|
MkS : (x := ty) =@ S x
|
|
|
|
|