simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-06 03:05:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix Coq backend

Browse source 
Uses a more complete tactic to go from or-separated clause to the
negation-implication encoding of clauses used by the coq backend.

Also uses a better suffix for temporary clauses than "_or".
This commit is contained in:
Guillaume Bury 2017-08-09 21:53:06 +02:00
parent 87f080ea47
commit fa7da17cde
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/backend/coq.ml
View file

@ -32,7 +32,7 @@ module Make(S : Res.S)(A : Arg with type atom := S.atom
end)
let name c = c.S.St.name
let name_tmp c = c.S.St.name ^ "_or"
let name_tmp c = c.S.St.name ^ "_tmp"
let pp_atom fmt a =
if a == S.St.(a.var.pa) then
@ -65,8 +65,8 @@ module Make(S : Res.S)(A : Arg with type atom := S.atom
m
let clausify fmt clause =
Format.fprintf fmt "assert (%s: %a).@\nintros; try destruct %s; auto. clear %s.@\n"
(name clause) pp_clause clause (name_tmp clause) (name_tmp clause)
Format.fprintf fmt "assert (%s: %a).@\ntauto. clear %s.@\n"
(name clause) pp_clause clause (name_tmp clause)
let elim_duplicate fmt goal hyp _ =
(** Printing info comment in coq *)