Commit 6af55eb9 authored by Magnus Myreen's avatar Magnus Myreen

Use RatProg and delete realProg

parent cc169913
This diff is collapsed.
open preamble
open simpLib (* realTheory *)realLib RealArith stringTheory
open ml_translatorTheory ml_translatorLib RatProgTheory cfTacticsLib basisProgTheory
open ml_translatorTheory ml_translatorLib cfTacticsLib basisProgTheory
open AbbrevsTheory ExpressionsTheory RealSimpsTheory ExpressionAbbrevsTheory
ErrorBoundsTheory IntervalArithTheory DaisyTactics IntervalValidationTheory
......@@ -10,12 +10,24 @@ open AbbrevsTheory ExpressionsTheory RealSimpsTheory ExpressionAbbrevsTheory
val _ = new_theory "trans";
val _ = translation_extends "RatProg";
val _ = translation_extends "basisProg";
val _ = temp_overload_on("abs",``real$abs``);
val _ = temp_overload_on("max",``real$max``);
val _ = temp_overload_on("min",``real$min``);
(* TODO: move this to RatProgTheory *)
val _ = add_type_inv ``REAL_TYPE`` ``:(int # num)``;
(* translation of real_div *)
val _ = (next_ml_names := ["real_div"]);
val res = translate realTheory.real_div;
val real_div_side = prove(
let val tm = hyp res |> hd |> rand val v = rand tm
in mk_eq(tm,``^v <> 0``) end,EVAL_TAC)
|> update_precondition;
(* / translation of real_div *)
val check_rec_def = Define `
check_rec (input:Token list) (num_fun:num)=
case num_fun of
......
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