Kindelia/Kind2
1
1
Fork 0
mirror of https://github.com/Kindelia/Kind2.git synced 2024-09-11 07:15:45 +03:00
Code Issues Projects Releases Wiki Activity

Fix holes on var-term equality

Browse Source
This commit is contained in:
Victor Maia 2022-07-23 13:13:38 -03:00
parent 21f99febab
commit bbbc7aa16d
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Cargo.toml
View File

@ -1,6 +1,6 @@
[package]
name = "kind2"
version = "0.2.14"
version = "0.2.15"
edition = "2021"
description = "A pure functional functional language that uses the HVM."
repository = "https://github.com/Kindelia/Kind2"

10
src/checker.hvm
View File

@ -817,8 +817,11 @@ Line = (String.cons 10 String.nil)
ask b.chk = (Checker.bind (Equal.var.try_values b.val (Var a.orig a.name a.index)))
(Checker.done (Bool.or a.chk b.chk)))
(Equal.var True a.orig a.name a.index b) =
ask a.val = (Checker.bind (Checker.find a.index [] λnλtλv(v)))
(Equal.var.try_values a.val b)
ask sub = (Checker.bind Checker.get_subst)
(Bool.if (Term.fillable b sub)
(Equal (Var a.orig a.name a.index) (Term.fill b sub))
ask a.val = (Checker.bind (Checker.find a.index [] λnλtλv(v)))
(Equal.var.try_values a.val b))
// Checks if any of a set of reductions is equal
(Equal.var.try_values (List.cons a as) b) =
@ -826,7 +829,8 @@ Line = (String.cons 10 String.nil)
(Bool.if head
(Checker.done True)
(Equal.var.try_values as b))
(Equal.var.try_values List.nil b) = (Checker.done False)
(Equal.var.try_values List.nil b) =
(Checker.done False)
// Equal.hol (origin: U60) (numb: U60) (b: Term) : (Checker bool)
// --------------------------------------------------------------