concrete ClauseGer of Clause = CatGer ** ClauseI with (Grammar = GrammarGer) ;