fix fixities
This commit is contained in:
parent
fc3c2dc8ab
commit
0a2d05818e
4 changed files with 4 additions and 13 deletions
|
@ -12,7 +12,6 @@ import Data.Vect
|
|||
%default total
|
||||
|
||||
|
||||
infixr 5 :::
|
||||
public export
|
||||
data Subst : (Nat -> Type) -> Nat -> Nat -> Type where
|
||||
Shift : Shift from to -> Subst env from to
|
||||
|
@ -60,7 +59,6 @@ shift : (by : Nat) -> Subst env from (by + from)
|
|||
shift by = Shift $ fromNat by
|
||||
|
||||
|
||||
infixl 9 .
|
||||
public export
|
||||
(.) : CanSubstSelf f => Subst f from mid -> Subst f mid to -> Subst f from to
|
||||
Shift by . Shift bz = Shift $ by . bz
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue