Cross Reference: /hets/HasCASL/test/Subtype3.hascasl
var e : Type; a < e
op f : a -> a
var x : a
. f = \ x : e . f x