Add precedence to some language constructs

Signed-off-by: Danila Fedorin <danila.fedorin@gmail.com>
2024-04-13 15:29:50 -07:00 · 2024-04-13 15:29:50 -07:00 · 163108b9b3
parent 8dc5c40eae
commit 163108b9b3
1 changed files with 2 additions and 0 deletions
--- a/Language.agda
+++ b/Language.agda
@ -38,6 +38,8 @@ data BasicStmt : Set where
    noop : BasicStmt

 infixr 2 _then_
+infix 3 while_repeat_
+infix 3 if_then_else_
 data Stmt : Set where
    ⟨_⟩ : BasicStmt → Stmt
    _then_ : Stmt → Stmt → Stmt