mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-21 02:31:50 +03:00
15 lines
257 B
Idris
15 lines
257 B
Idris
|
-- This test ensures that implicits bound on the RHS of a
|
||
|
|
-- record update field are correctly bound by the compiler.
|
||
|
|
|
||
|
|
|
||
|
|
record Rec where
|
||
|
|
n : Nat
|
||
|
|
|
||
|
|
|
||
|
|
data T : Rec -> Type where
|
||
|
|
C : T ({ n := Z } r)
|
||
|
|
|
||
|
|
|
||
|
|
data U : Rec -> Type where
|
||
|
|
D : U ({ n $= S } r)
|