Commit 945abf48 authored by Heiko Becker's avatar Heiko Becker

Prove multiplication sound in HOL4

parent d09f63e5
This diff is collapsed.
......@@ -55,4 +55,12 @@ val err_up = store_thm ("err_up",
`b + c <= a + c` by REAL_ASM_ARITH_TAC \\
REAL_ASM_ARITH_TAC);
val REAL_LE_ADD_FLIP = store_thm ("REAL_LE_ADD_FLIP",
``!a b (c:real).
a - b <= c ==>
a - c <= b``,
rpt (strip_tac) \\
`a - b - c <= 0` by REAL_ASM_ARITH_TAC \\
REAL_ASM_ARITH_TAC);
val _ = export_theory();
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