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

fix typechecker loop when coercing boxes

Browse source 
closes #38
This commit is contained in:
rhiannon morris 2024-02-10 10:07:06 +01:00
parent a14c4ca1cb
commit 81783dbae0
1 changed files with 11 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lib/Quox/Whnf/Coercion.idr
View file

@ -218,19 +218,22 @@ parameters {auto _ : CanWhnf Term Interface.isRedexT}
STRING tyLoc => STRING tyLoc =>
whnf defs ctx sg $ Ann s (STRING tyLoc) loc whnf defs ctx sg $ Ann s (STRING tyLoc) loc
-- η expand -- η expand.... kinda
-- --
-- (coe (𝑖 ⇒ [π. A]) @p @q s) -- (coe (𝑖 ⇒ [π. A]) @p @q s)
-- ⇝ -- ⇝
-- [case1 coe (𝑖 ⇒ [π. A]) @p @q s return A‹q/𝑖› of {[x] ⇒ x}] -- [case1 s ∷ [π.A]‹p/𝑖› return A‹q/𝑖›
-- ∷ [π. A]‹q/𝑖› -- of {[x] ⇒ coe (𝑖 ⇒ A) @p @q x}] ∷ [π.A]‹q/𝑖›
BOX qty inner tyLoc => --
-- a literal η expansion of `e ⇝ [case e of {[x] ⇒ x}]` causes a loop in
-- the equality checker because whnf of `case e ⋯` requires whnf of `e`
BOX qty inner tyLoc => do
let inner = CaseBox { let inner = CaseBox {
qty = One, qty = One,
box = Coe (SY [< i] ty) p q s loc, box = Ann s (ty // one p) s.loc,
ret = SN $ ty // one q, ret = SN $ inner // one q,
body = SY [< !(mnb "x" loc)] $ BVT 0 loc, body = SY [< !(mnb "x" loc)] $ E $
Coe (ST [< i] $ weakT 1 inner) p q (BVT 0 s.loc) s.loc,
loc loc
} }
in
whnf defs ctx sg $ Ann (Box (E inner) loc) (ty // one q) loc whnf defs ctx sg $ Ann (Box (E inner) loc) (ty // one q) loc