concrete MathFre of Math = CatFre ** MathRomance with (ResRomance = ResFre) ;