mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-24 03:52:50 -06:00
Attempto complete up to spec
This commit is contained in:
@@ -1,7 +1,24 @@
|
||||
concrete SymbolsC of Symbols = open Prelude in {
|
||||
concrete SymbolsC of Symbols = open Precedence, Prelude in {
|
||||
|
||||
lincat Term = TermWithPrec ;
|
||||
lincat Formula = SS ;
|
||||
lincat Var = SS ;
|
||||
|
||||
lin plus_Term = mkpInfixL "+" p1 ;
|
||||
lin minus_Term = mkpInfixL "-" p1 ;
|
||||
lin div_Term = mkpInfixL "/" p2 ;
|
||||
lin times_Term = mkpInfixL "*" p2 ;
|
||||
lin neg_Term = mkpFun1 "-" ;
|
||||
lin int_Term i = mkpConst i.s ;
|
||||
lin var_Term i = mkpConst i.s ;
|
||||
|
||||
lin eq_Formula = infixSS "=" ;
|
||||
lin lt_Formula = infixSS "<" ;
|
||||
lin gt_Formula = infixSS ">" ;
|
||||
lin le_Formula = infixSS "=<" ;
|
||||
lin ge_Formula = infixSS ">=" ;
|
||||
lin ne_Formula = infixSS "\\=" ;
|
||||
|
||||
lin X_Var = ss "X" ;
|
||||
lin Y_Var = ss "Y" ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user