Idris2/tests/idris2/reg/reg039/dupdup.idr
2023-09-07 14:57:22 +01:00

3 lines
70 B
Idris

dupLinear : (1 x : a) -> (a, a)
dupLinear x = dup (let var = 22 in x)