st/pass_strategy_synthesis
1
0
Fork 0
mirror of https://github.com/ProgramSnail/pass_strategy_synthesis.git synced 2026-01-25 12:57:10 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

+rel types def

Browse source
This commit is contained in:
ProgramSnail 2026-01-10 07:40:46 +03:00
parent b8ea97d537
commit ba4191b64a
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/relational_semantic_interpreter.ml
View file

@ -40,5 +40,14 @@ struct
@type value_logic = value_ground logic with show, gmap
type value_injected = value_ground ilogic
@type list_map_ground = (data_ground * data_ground) List.ground with show, gmap
@type list_map_logic = (data_logic * data_logic) List.logic with show, gmap
type list_map_injected = (data_injected * data_injected) List.injected ilogic
@type ('env, 'mem, 'last_mem, 'assignments) state_abs = 'env * 'mem * 'last_mem * 'assignments with show, gmap
@type state_ground = (list_map_ground, value_ground List.ground, data_ground, data_ground List.ground) state_abs with show, gmap
@type state_logic = (list_map_logic, value_logic List.logic, data_logic, data_logic List.logic) state_abs logic with show, gmap
type state_injected = (list_map_injected, value_injected List.injected, data_injected, data_injected List.injected) state_abs ilogic
(* ocanren type 'a lst = Nil | Cons of 'a * 'a lst *)
end