concrete ClauseIta of Clause = CatIta ** ClauseI with (Grammar = GrammarIta) ;