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

All unused files are now in the attic. Make some cleanups

parent 935df721
This diff is collapsed.
Require Import Coq.QArith.QArith Coq.QArith.Qreals QArith.Qminmax Coq.Lists.List. Require Import Coq.QArith.QArith Coq.QArith.Qreals QArith.Qminmax Coq.Lists.List.
Require Import Daisy.Infra.Abbrevs Daisy.Infra.RationalSimps Daisy.Infra.RationalConstruction Daisy.Infra.RealRationalProps. Require Import Daisy.Infra.Abbrevs Daisy.Infra.RationalSimps Daisy.Infra.RealRationalProps.
Require Import Daisy.Infra.ExpressionAbbrevs Daisy.IntervalArithQ Daisy.IntervalArith Daisy.Infra.RealSimps Daisy.PreconditionValidation. Require Import Daisy.Infra.ExpressionAbbrevs Daisy.IntervalArithQ Daisy.IntervalArith Daisy.Infra.RealSimps Daisy.PreconditionValidation.
Fixpoint validIntervalbounds (e:exp Q) (absenv:analysisResult) (P:precond):= Fixpoint validIntervalbounds (e:exp Q) (absenv:analysisResult) (P:precond):=
......
Require Import Daisy.CertificateChecker. Require Import Daisy.CertificateChecker.
(*Require Import Daisy.ErrorValidation Daisy.Infra.RationalConstruction Daisy.Infra.ExpressionAbbrevs. *)
(* (*
TODO: update according to: TODO: update according to:
[ Info ] [ Info ]
......
Require Import Coq.QArith.QArith Coq.QArith.Qabs Coq.QArith.Qminmax. Require Import Daisy.CertificateChecker.
Require Import Daisy.ErrorValidation Daisy.Infra.RationalConstruction Daisy.Infra.ExpressionAbbrevs Daisy.Infra.RationalSimps Daisy.IntervalValidation.
(* (*
[ Info ] [ Info ]
...@@ -82,12 +81,9 @@ Definition precondition :precond := fun _ => (-(100#1),(100#1)). ...@@ -82,12 +81,9 @@ Definition precondition :precond := fun _ => (-(100#1),(100#1)).
Definition machineEpsilon := (1#(2^53)). Definition machineEpsilon := (1#(2^53)).
Definition l := Eval compute in (maxAbs (cst1,cst1) * machineEpsilon). Eval compute in CertificateChecker valCst absEnv precondition.
Definition r := Eval compute in (Qred errCst1). Eval compute in CertificateChecker varU absEnv precondition.
Eval compute in (Qleb l r). Eval compute in CertificateChecker valCstAddVarU absEnv precondition.
Eval compute in validErrorbound valCst absEnv.
Eval compute in validErrorbound varU absEnv.
Eval compute in validErrorbound valCstAddVarU absEnv.
(* OLD STUFF BEGINS HERE (* OLD STUFF BEGINS HERE
(** The added assertion becomes the precondition for us **) (** The added assertion becomes the precondition for us **)
......
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