concrete ClauseDan of Clause = CatDan ** ClauseI with (Grammar = GrammarDan) ;