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

some reduction tests & fixes

Browse source
This commit is contained in:
rhiannon morris 2022-05-25 16:10:19 +02:00
parent bd57a976a8
commit bc9344c6ba
4 changed files with 154 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/Quox/Syntax/Term/Reduce.idr
View file

@ -83,7 +83,10 @@ mutual
pushSubstsEWith th ph (F x) =
ncloE $ F x
pushSubstsEWith th ph (B i) =
assert_total pushSubstsE $ ph !! i
let res = ph !! i in
case choose $ topCloE res of
Left _ => assert_total pushSubstsE res
Right _ => ncloE res
pushSubstsEWith th ph (f :@ s) =
ncloE $ subs f th ph :@ subs s th ph
pushSubstsEWith th ph (s :# a) =