blob: 22facc45c1a08ddd57cf868396f5fe270c87570f (
plain)
1
2
3
4
5
6
7
8
|
concrete SentencesGer of Sentences = NumeralGer ** SentencesI - [PYesToNo] with
(Syntax = SyntaxGer),
(Symbolic = SymbolicGer),
(Lexicon = LexiconGer) ** open Prelude in {
lin PYesToNo = mkPhrase (lin Utt (ss "doch")) ;
}
|