concrete ClauseCat of Clause = CatCat ** ClauseI with (Grammar = GrammarCat) ;