--# -path=.:present

concrete AttemptoSwe of Attempto = AttemptoI with
  (Syntax = SyntaxSwe),
  (Symbolic = SymbolicSwe),
  (LexAttempto = LexAttemptoSwe) ;