--# -path=.:present:multimodal:mathematical:prelude

concrete TramFre of Tram = TramI with 
  (Multimodal = MultimodalFre), 
  (Symbol = SymbolFre) ;