struct: fixes, test 2 from presentation (mostly, choice removed for now)

This commit is contained in:
ProgramSnail 2026-05-15 11:41:59 +00:00
parent 0ef7ebdad2
commit 8fc0ffa805
4 changed files with 313 additions and 6 deletions

View file

@ -569,11 +569,11 @@ struct
pathvalo mem vals p' v' &
v' == RefV id &
mem_geto mem id v } |
{ fresh p', id, v', vs in
p == AccessP (p', id) &
{ fresh p', id', v', vs in
p == AccessP (p', id') &
pathvalo mem vals p' v' &
v' == TupleV vs &
list_ntho vs id v }
list_ntho vs id' v }
}
(* --- eval rules --- *)