summaryrefslogtreecommitdiff
path: root/examples/phrasebook/SentencesFre.gf
blob: d4415e74ac028d0a15f6bc21185fa3227560280f (plain)
1
2
3
4
5
6
7
8
9
concrete SentencesFre of Sentences = NumeralFre ** SentencesI - [WhetherIs] 
  with 
    (DiffPhrasebook = DiffPhrasebookFre), 
    (Syntax = SyntaxFre) ** open SyntaxFre, ExtraFre in {

    lin WhetherIs item quality = 
      lin QS {s = \\_ => (EstcequeS (mkS (mkCl item quality))).s} ;

}