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

clean up subsing η stuff

Browse source
This commit is contained in:
rhiannon morris 2024-05-13 01:23:14 +02:00
parent 8fae67d4d5
commit 863849e4c4
1 changed files with 3 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lib/Quox/Equal.idr
View file

@ -278,13 +278,9 @@ namespace Term
eta : Loc -> Elim 0 n -> ScopeTerm 0 n -> Eff EqualInner ()
eta loc e (S _ (N b)) =
if qty /= One then
if !(isSubSing defs ctx sg arg) then
compare0 defs ctx' sg res.term (toLamBody e) (weakT 1 b)
else
clashT loc ctx ty s t
else
clashT loc ctx ty s t
if !(pure (qty /= One) `andM` isSubSing defs ctx sg arg)
then compare0 defs ctx' sg res.term (toLamBody e) (weakT 1 b)
else clashT loc ctx ty s t
eta _ e (S _ (Y b)) =
compare0 defs ctx' sg res.term (toLamBody e) b