concrete ClauseFre of Clause = CatFre ** ClauseI with (Grammar = GrammarFre) ;