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

fix a small bug in Q.Whnf.Coercion

Browse source
This commit is contained in:
rhiannon morris 2024-03-21 21:29:01 +01:00
parent a8ac6f11f7
commit a9e8f14ad5
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/Coercion.idr
View file

@ -199,7 +199,7 @@ parameters {auto _ : CanWhnf Term Interface.isRedexT}
fstInSnd = fstInSnd =
CoeT !(fresh i) CoeT !(fresh i)
(tfst // (BV 0 loc ::: shift 2)) (tfst // (BV 0 loc ::: shift 2))
(weakD 1 p) (BV 0 loc) (dweakT 1 s) fst.loc (weakD 1 p) (BV 0 loc) (dweakT 1 fst) fst.loc
snd' = CoeT i (sub1 tsnd fstInSnd) p q snd snd.loc snd' = CoeT i (sub1 tsnd fstInSnd) p q snd snd.loc
whnf defs ctx sg $ whnf defs ctx sg $
Ann (Pair (E fst') (E snd') sLoc) (ty // one q) loc Ann (Pair (E fst') (E snd') sLoc) (ty // one q) loc