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

ocanren type syntax test file, migration to 4.14.2 (with pinned ocanren from repo)

Browse source
This commit is contained in:
ProgramSnail 2026-01-29 13:49:39 +03:00
parent 30f052b1b1
commit e2dcf6c2a1
3 changed files with 44 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lib/test.ml Normal file
View file

@ -0,0 +1,16 @@
open GT
open OCanren
module Tag = struct
[@@@warning "-26-27-32-33-34-35-36-37-38-39-60-66-67"]
ocanren type tag = Ref | Value
module Test = struct
@type answer = logic GT.list with show
let _ =
Printf.printf "%s" @@ show(answer) (Stream.take (run q (fun q -> ocanren {q === Ref})
(fun q -> q#reify reify)))
end
end