diff options
author | QGarchery <QGarchery@users.noreply.github.com> | 2019-02-07 19:30:58 +0100 |
---|---|---|
committer | ckeller <ckeller@users.noreply.github.com> | 2019-02-07 19:30:58 +0100 |
commit | 296e3c78c2d56f0e08d654cb473f86f5b24375f4 (patch) | |
tree | 8e88b1681abe6511a13eb8fea411e91d3f9691b8 /src/verit/veritSyntax.ml | |
parent | bf800c5d63eca630d2c46f440759d618c76d7810 (diff) | |
download | smtcoq-296e3c78c2d56f0e08d654cb473f86f5b24375f4.tar.gz smtcoq-296e3c78c2d56f0e08d654cb473f86f5b24375f4.zip |
Fix passing the goal strongly hashed (in ra' rf') instead of normal goal (hashed in ra rf) (#28)
Fix flatten hashing in the wrong table
veriT now has a happy ending
added a debug_coq file
Diffstat (limited to 'src/verit/veritSyntax.ml')
-rw-r--r-- | src/verit/veritSyntax.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/verit/veritSyntax.ml b/src/verit/veritSyntax.ml index c4427b7..32e03f8 100644 --- a/src/verit/veritSyntax.ml +++ b/src/verit/veritSyntax.ml @@ -575,7 +575,7 @@ let init_index lsmt re_hash = let find = Hashtbl.find form_index_init_rank in let rec walk rank = function | [] -> () - | h::t -> add (Form.to_lit h) rank; + | h::t -> add (Form.to_lit (re_hash h)) rank; walk (rank+1) t in walk 1 lsmt; fun hf -> let re_hf = re_hash hf in @@ -584,7 +584,7 @@ let init_index lsmt re_hash = let oc = open_out "/tmp/input_not_found.log" in let fmt = Format.formatter_of_out_channel oc in List.iter (fun h -> Format.fprintf fmt "%a\n" hform_to_smt h) lsmt; - Format.fprintf fmt "\n%a\n" hform_to_smt re_hf; + Format.fprintf fmt "\n%a\n@." hform_to_smt re_hf; flush oc; close_out oc; failwith "not found: log available" |