rhi/quox
rhi/quox
1
0
Fork 0
Code Issues 15 Pull requests 1 Releases Wiki Activity

reorder clauses in Subst.(.)

Browse source
This commit is contained in:
rhiannon morris 2021-09-25 20:13:51 +02:00
parent cdcd926347
commit eae97a7b9d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Quox/Syntax/Subst.idr
View file

@ -65,8 +65,8 @@ shift by = Shift $ fromNat by
infixl 9 . infixl 9 .
public export public export
(.) : CanSubst1 f => Subst f from mid -> Subst f mid to -> Subst f from to (.) : CanSubst1 f => Subst f from mid -> Subst f mid to -> Subst f from to
Shift by . Shift bz = Shift $ by . bz
Shift SZ . ph = ph Shift SZ . ph = ph
Shift (SS by) . Shift bz = Shift $ SS by . bz
Shift (SS by) . (t ::: th) = Shift by . th Shift (SS by) . (t ::: th) = Shift by . th
(t ::: th) . ph = (t // ph) ::: (th . ph) (t ::: th) . ph = (t // ph) ::: (th . ph)