fix tiny bug in dimeq

This commit is contained in:
rhiannon morris 2023-02-14 21:28:50 +01:00
parent 802dfae493
commit 4b7379f094
1 changed files with 1 additions and 1 deletions

View File

@ -70,7 +70,7 @@ infixl 5 :<?
export %inline
(:<?) : DimEq d -> Maybe (Dim d) -> DimEq (S d)
ZeroIsOne :<? d = ZeroIsOne
C eqs :<? d = C $ eqs :< d
C eqs :<? d = C $ eqs :< map (get eqs) d
private %inline