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

fix some typing mistakes

Browse source
This commit is contained in:
rhiannon morris 2023-03-31 19:26:55 +02:00
parent 36609713ac
commit 2b2f79fca9
3 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/Quox/Equal.idr
View file

@ -474,7 +474,7 @@ parameters (defs : Definitions' q _) {auto _ : IsQty q}
compare0 ctx (sub1 eret (Zero :# Nat)) ezer fzer compare0 ctx (sub1 eret (Zero :# Nat)) ezer fzer
let [< p, ih] = esuc.names let [< p, ih] = esuc.names
compare0 (extendTyN [< (epi, p, Nat), (epi', ih, eret.term)] ctx) compare0 (extendTyN [< (epi, p, Nat), (epi', ih, eret.term)] ctx)
(weakT eret.term) (substCaseSuccRet eret)
esuc.term fsuc.term esuc.term fsuc.term
expectEqualQ epi fpi expectEqualQ epi fpi
expectEqualQ epi' fpi' expectEqualQ epi' fpi'

2
lib/Quox/Typechecker.idr
View file

@ -384,7 +384,7 @@ parameters {auto _ : IsQty q}
let [< p, ih] = suc.names let [< p, ih] = suc.names
pisg = pi * sg.fst pisg = pi * sg.fst
sucCtx = extendTyN [< (pisg, p, Nat), (pi', ih, ret.term)] ctx sucCtx = extendTyN [< (pisg, p, Nat), (pi', ih, ret.term)] ctx
sucType = substCaseNatRet ret sucType = substCaseSuccRet ret
sucout :< qp :< qih <- checkC sucCtx sg suc.term sucType sucout :< qp :< qih <- checkC sucCtx sg suc.term sucType
let Just armout = lubs ctx [zerout, sucout] let Just armout = lubs ctx [zerout, sucout]
| _ => throw $ BadCaseQtys ctx $ | _ => throw $ BadCaseQtys ctx $

6
lib/Quox/Typing.idr
View file

@ -44,12 +44,12 @@ lookupFree' defs x =
public export public export
substCasePairRet : Term q d n -> ScopeTerm q d n -> Term q d (2 + n) substCasePairRet : Term q d n -> ScopeTerm q d n -> Term q d (2 + n)
substCasePairRet dty retty = substCasePairRet dty retty =
let arg = Pair (BVT 0) (BVT 1) :# (dty // fromNat 2) in let arg = Pair (BVT 1) (BVT 0) :# (dty // fromNat 2) in
retty.term // (arg ::: shift 2) retty.term // (arg ::: shift 2)
public export public export
substCaseNatRet : ScopeTerm q d n -> Term q d (2 + n) substCaseSuccRet : ScopeTerm q d n -> Term q d (2 + n)
substCaseNatRet retty = retty.term // (Succ (BVT 1) :# Nat ::: shift 2) substCaseSuccRet retty = retty.term // (Succ (BVT 1) :# Nat ::: shift 2)
public export public export
substCaseBoxRet : Term q d n -> ScopeTerm q d n -> Term q d (S n) substCaseBoxRet : Term q d n -> ScopeTerm q d n -> Term q d (S n)