Cross Reference: /hets/HasCASL/test/CastFun.hascasl
type s;
op f : s --> s
. f = ((\ x : s . x) as s --> s)