--# -path=.:alltenses:mathematical:prelude

concrete SammieSpa of Sammie = SammieI with
  (Grammar = GrammarSpa), 
  (Symbol = SymbolSpa),
  (ParamSammie = ParamSammieSpa)
 ;