--# -path=.:present

concrete AttemptoFre of Attempto = NumeralFre, SymbolsC ** AttemptoI with
  (Syntax = SyntaxFre),
  (Symbolic = SymbolicFre),
  (LexAttempto = LexAttemptoFre) ;