diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-11-03 16:52:54 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-11-03 16:52:54 +0000 |
| commit | 9ecc663d00fd91e8c0108785722c735348528f9e (patch) | |
| tree | 0d448c553699345a6a556c014f3ccfbd6fad5e5d /next-lib/src/api | |
| parent | 44ad7596b6e151000ef6155bbdc697c1896c5de8 (diff) | |
structural words needed for Attempto ; negative items are overgenerating
Diffstat (limited to 'next-lib/src/api')
| -rw-r--r-- | next-lib/src/api/Constructors.gf | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/next-lib/src/api/Constructors.gf b/next-lib/src/api/Constructors.gf index 3f29d4967..a6804b56c 100644 --- a/next-lib/src/api/Constructors.gf +++ b/next-lib/src/api/Constructors.gf @@ -1122,8 +1122,10 @@ incomplete resource Constructors = open Grammar in { mkCard = overload { mkCard : Numeral -> Card = NumNumeral ; - mkNum : Digits -> Card -- 51 + mkCard : Digits -> Card -- 51 = NumDigits ; + mkCard : AdN -> Card -> Card + = AdNum } ; mkNum = overload { |