mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 09:12:34 +03:00
16 lines
241 B
Idris
16 lines
241 B
Idris
|
|
||
|
|
record Ty where
|
||
|
|
constructor MkTy
|
||
|
|
0 obj : Type
|
||
|
|
|
||
|
|
record TyProj (d: Ty) where
|
||
|
|
constructor MkTyProj
|
||
|
|
proj : d.obj
|
||
|
|
|
||
|
|
DepLensToDepOptic :
|
||
|
|
{c1 : TyProj (MkTy (Nat -> Type))} ->
|
||
|
|
(c1.proj 3) ->
|
||
|
|
Type
|
||
|
|
DepLensToDepOptic =
|
||
|
|
(\(b) => ?mmm)
|