CastFun.hascasl revision b5ae094776014b09c5d8b9f3fc91cbe3041211d8
type s;
op f : s --> s
. f = ((\ x : s . x) as s --> s)