Make sum type right-associative
This commit is contained in:
parent
32a626789b
commit
ef7f95b1db
2 changed files with 2 additions and 2 deletions
|
@ -301,7 +301,7 @@ evidence that a disjunction holds.
|
|||
We set the precedence of disjunction so that it binds less tightly
|
||||
than any other declared operator.
|
||||
\begin{code}
|
||||
infix 1 _⊎_
|
||||
infixr 1 _⊎_
|
||||
\end{code}
|
||||
Thus, `A × C ⊎ B × C` parses as `(A × C) ⊎ (B × C)`.
|
||||
|
||||
|
|
|
@ -389,7 +389,7 @@ simplify to the same term, and similarly for `inj₂ y`.
|
|||
We set the precedence of disjunction so that it binds less tightly
|
||||
than any other declared operator:
|
||||
```
|
||||
infix 1 _⊎_
|
||||
infixr 1 _⊎_
|
||||
```
|
||||
Thus, `A × C ⊎ B × C` parses as `(A × C) ⊎ (B × C)`.
|
||||
|
||||
|
|
Loading…
Reference in a new issue