Commit afdfc31e authored by Heiko Becker's avatar Heiko Becker
Browse files

Move HOL4 certificates to new daisy eval tactic

parent 29992b73
......@@ -128,7 +128,7 @@ object CertificatePhase extends DaisyPhase {
if (prover == "coq")
"Require Import Daisy.CertificateChecker."
else if (prover == "hol4")
"open preamble DaisyCompLib AbbrevsTheory MachineTypeTheory CertificateCheckerTheory;\nopen simpLib realTheory realLib RealArith;\n\n" +
"open preamble DaisyTactics AbbrevsTheory MachineTypeTheory CertificateCheckerTheory;\nopen simpLib realTheory realLib RealArith;\n\n" +
"val _ = new_theory \"" + fname +"\";\n\n"
else
""
......@@ -781,7 +781,7 @@ object CertificatePhase extends DaisyPhase {
"Proof.\n vm_compute; auto.\nQed.\n"
} else if (prover == "hol4"){
"val _ = store_thm (\""+s"ErrorBound_${fName}_Sound"+"\",\n" +
s"``CertificateCheckerCmd $lastGenName $analysisResultName $precondName $defVarsName``,\n daisy_eval_tac \\ fs[]);\n"
s"``CertificateCheckerCmd $lastGenName $analysisResultName $precondName $defVarsName``,\n daisy_eval_tac \\\\ fs[]);\n"
} else
""
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment