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 -> Elim 0 n -> ScopeTerm 0 n -> Eff EqualInner ()
eta loc e (S _ (N b)) = eta loc e (S _ (N b)) =
if qty /= One then if !(pure (qty /= One) `andM` isSubSing defs ctx sg arg)
if !(isSubSing defs ctx sg arg) then then compare0 defs ctx' sg res.term (toLamBody e) (weakT 1 b)
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
else
clashT loc ctx ty s t
eta _ e (S _ (Y b)) = eta _ e (S _ (Y b)) =
compare0 defs ctx' sg res.term (toLamBody e) b compare0 defs ctx' sg res.term (toLamBody e) b