GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-21 09:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

CS's system S

Browse Source
This commit is contained in:
aarne
2005-12-20 14:20:42 +00:00
parent 9f37ff9c96
commit 35daecebcd
15 changed files with 562 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
examples/systemS/FormulaSymb.gf Normal file
View File

@@ -0,0 +1,22 @@
--# -path=.:prelude
concrete FormulaSymb of Formula = open Precedence in {
lincat
Formula, Term = PrecExp ;
lin
And = infixL 3 "&" ;
Or = infixL 2 "v" ;
If = infixR 1 "->" ;
Not = prefixR 4 "~" ;
Abs = constant "_|_" ;
---- All P = mkPrec 4 PR (paren ("All" ++ P.$0) ++ usePrec P 4) ;
---- Exist P = mkPrec 4 PR (paren ("Ex" ++ P.$0) ++ usePrec P 4) ;
A = constant "A" ;
B = constant "B" ;
C = constant "C" ;
}