Kindelia/Kind2
1
1
Fork 0
mirror of https://github.com/Kindelia/Kind2.git synced 2024-10-06 04:17:14 +03:00
Code Issues Projects Releases Wiki Activity

Fix problem with values that was not reducing

Browse Source
This commit is contained in:
Felipe g 2022-08-24 13:01:58 -03:00
parent 7b96b49024
commit 32c075726f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/checker.hvm
View File

@ -597,13 +597,13 @@ Line = (String.cons 10 String.nil)
(Equal (All a.orig a.name a.type a.body) (All b.orig b.name b.type b.body)) =
ask dep = (Checker.bind Checker.get_depth)
ask type = (Checker.bind (Equal a.type b.type))
ask body = (Checker.bind (Checker.extended (Equal (a.body (Var a.orig a.name dep)) (b.body (Var b.orig b.name dep))) Null Null Null))
ask body = (Checker.bind (Checker.extended (Equal (a.body (Var a.orig a.name dep)) (b.body (Var b.orig b.name dep))) Null Null []))
(Checker.done (Bool.and type body))
// Lam equality
(Equal (Lam a.orig a.name a.body) (Lam b.orig b.name b.body)) =
ask dep = (Checker.bind Checker.get_depth)
ask body = (Checker.bind (Checker.extended (Equal (a.body (Var a.orig a.name dep)) (b.body (Var b.orig b.name dep))) Null Null Null))
ask body = (Checker.bind (Checker.extended (Equal (a.body (Var a.orig a.name dep)) (b.body (Var b.orig b.name dep))) Null Null []))
(Checker.done body)
// App equality
@ -616,7 +616,7 @@ Line = (String.cons 10 String.nil)
(Equal (Let a.orig a.name a.expr a.body) (Let b.orig b.name b.expr b.body)) =
ask dep = (Checker.bind Checker.get_depth)
ask expr = (Checker.bind (Equal a.expr b.expr))
ask body = (Checker.bind (Checker.extended (Equal (a.body (Var a.orig a.name dep)) (b.body (Var b.orig b.name dep))) Null Null Null))
ask body = (Checker.bind (Checker.extended (Equal (a.body (Var a.orig a.name dep)) (b.body (Var b.orig b.name dep))) Null Null []))
(Checker.done (Bool.and expr body))
// Ann equality