cryptol/tests/modsys/T11/A.cry
2017-11-28 14:26:12 -08:00

13 lines
105 B
Plaintext

module T11::A where
parameter
type X : #
type Y : #
type T = ([X],[Y])
f : T -> [X]
f (x,_) = x