concrete SentencesGer of Sentences = NumeralGer ** SentencesI - [PYesToNo] with 
  (Syntax = SyntaxGer),
  (Symbolic = SymbolicGer),
  (Lexicon = LexiconGer) ** open Prelude in {

  lin PYesToNo = mkPhrase (lin Utt (ss "doch")) ;

}