mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
14 lines
335 B
Plaintext
14 lines
335 B
Plaintext
concrete LogicSymb of Logic = open Formal, Prelude in {
|
|
|
|
lincat
|
|
Prop, Ind = TermPrec ;
|
|
lin
|
|
And = infixl 2 "\\&" ;
|
|
Or = infixl 2 "\\vee" ;
|
|
If = infixr 1 "\\sup" ;
|
|
Not = prefix 3 "\\sim" ;
|
|
All P = prefix 3 (parenth ("\\forall" ++ P.$0)) P ;
|
|
Exist P = prefix 3 (parenth ("\\exists" ++ P.$0)) P ;
|
|
Past = prefix 3 "P" ;
|
|
}
|