concrete ClauseSpa of Clause = CatSpa ** ClauseI with (Grammar = GrammarSpa) ;