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

fill a stray hole

Browse source
This commit is contained in:
rhiannon morris 2023-11-24 17:23:45 +01:00
parent fb14b756c7
commit 47069a9316
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/Quox/Whnf/Main.idr
View file

@ -255,7 +255,7 @@ CanWhnf Term Interface.isRedexT where
Left _ => case p of Left _ => case p of
Nat p _ => pure $ nred $ Nat (S p) loc Nat p _ => pure $ nred $ Nat (S p) loc
E (Ann (Nat p _) _ _) => pure $ nred $ Nat (S p) loc E (Ann (Nat p _) _ _) => pure $ nred $ Nat (S p) loc
Right nc => pure $ Element (Succ p loc) nc Right nc => pure $ nred $ Succ p loc
whnf defs ctx sg (Let _ rhs body _) = whnf defs ctx sg (Let _ rhs body _) =
whnf defs ctx sg $ sub1 body rhs whnf defs ctx sg $ sub1 body rhs