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
|
We set the precedence of disjunction so that it binds less tightly
|
||||||
than any other declared operator.
|
than any other declared operator.
|
||||||
\begin{code}
|
\begin{code}
|
||||||
infix 1 _⊎_
|
infixr 1 _⊎_
|
||||||
\end{code}
|
\end{code}
|
||||||
Thus, `A × C ⊎ B × C` parses as `(A × C) ⊎ (B × C)`.
|
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
|
We set the precedence of disjunction so that it binds less tightly
|
||||||
than any other declared operator:
|
than any other declared operator:
|
||||||
```
|
```
|
||||||
infix 1 _⊎_
|
infixr 1 _⊎_
|
||||||
```
|
```
|
||||||
Thus, `A × C ⊎ B × C` parses as `(A × C) ⊎ (B × C)`.
|
Thus, `A × C ⊎ B × C` parses as `(A × C) ⊎ (B × C)`.
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue