fix fixities

This commit is contained in:
rhiannon morris 2023-03-02 19:56:16 +01:00
parent fc3c2dc8ab
commit 0a2d05818e
4 changed files with 4 additions and 13 deletions

View file

@ -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