mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-21 10:41:59 +03:00
18 lines
321 B
Idris
18 lines
321 B
Idris
record Ty where
|
|
constructor MkTy
|
|
0 obj : Type
|
|
|
|
record TyProj (d: Ty) where
|
|
constructor MkTyProj
|
|
proj : d.obj
|
|
|
|
record Id (x : Type) where
|
|
constructor MkId
|
|
getId : x
|
|
|
|
DepLensToDepOptic :
|
|
{c1 : TyProj (MkTy (Nat -> Type))} ->
|
|
Id (proj c1 3) -> -- remove the Id works
|
|
Type
|
|
DepLensToDepOptic (MkId b') = ?hu
|