concrete ClauseBul of Clause = CatBul ** ClauseI with (Grammar = GrammarBul) ;