concrete AdjectiveMkd of Adjective = CatMkd ** open Prelude,ResMkd in {

  lin PositA a = a ** {isPre = True} ;
}