concrete ClauseNor of Clause = CatNor ** ClauseI with (Grammar = GrammarNor) ;