Cross Reference: /hets/HasCASL/test/AsPattern.hascasl
type a;
op f : a -> a
program f (v@_:a) = v