diff --git a/lib/src/prelude/Formal.gf b/lib/src/prelude/Formal.gf index c53c63b7f..9902712a4 100644 --- a/lib/src/prelude/Formal.gf +++ b/lib/src/prelude/Formal.gf @@ -19,6 +19,11 @@ resource Formal = open Prelude in { infixn : Prec -> Str -> (_,_ : TermPrec) -> TermPrec = \p,f,x,y -> mkPrec p (usePrec (nextPrec p) x ++ f ++ usePrec (nextPrec p) y) ; + prefix : Prec -> Str -> TermPrec -> TermPrec = \p,f,x -> + mkPrec p (f ++ usePrec p x) ; + postfix : Prec -> Str -> TermPrec -> TermPrec = \p,f,x -> + mkPrec p (usePrec p x ++ f) ; + -- auxiliaries, should not be needed so much usePrec : Prec -> TermPrec -> Str = \p,x ->