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

concrete TramNor of Tram = TramI with 
  (Multimodal = MultimodalNor), 
  (Symbol = SymbolNor) ;