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

concrete TramFin of Tram = TramI with 
  (Multimodal = MultimodalFin),
  (Symbol = SymbolFin) ;