Commit 11a82d9b authored by Felipe Cerqueira's avatar Felipe Cerqueira
Browse files

Clean up EDF theory and add separate file for EDF bound

parent f88c28db
Require Import Vbase schedule bertogna_edf_theory util_divround util_lemmas Require Import Vbase task job task_arrival schedule platform interference
ssreflect ssrbool eqtype ssrnat seq fintype bigop div path workload workload_bound schedulability priority response_time
workload_bound. bertogna_fp_theory bertogna_edf_theory interference_bound_edf util_divround util_lemmas
ssreflect ssrbool eqtype ssrnat seq fintype bigop div path.
Module ResponseTimeIterationEDF. Module ResponseTimeIterationEDF.
Import Schedule ResponseTimeAnalysisEDF WorkloadBound. Import Job SporadicTaskset ScheduleOfSporadicTask Workload Schedulability ResponseTime
Priority SporadicTaskArrival WorkloadBound EDFSpecificBound ResponseTimeAnalysisFP
ResponseTimeAnalysisEDF.
Section Analysis. Section Analysis.
...@@ -112,7 +115,7 @@ Module ResponseTimeIterationEDF. ...@@ -112,7 +115,7 @@ Module ResponseTimeIterationEDF.
interference_bound_edf task_cost task_period task_deadline tsk x2 (tsk_other, R'). interference_bound_edf task_cost task_period task_deadline tsk x2 (tsk_other, R').
Proof. Proof.
intros tsk x1 x2 tsk_other R R' LEx LEr GEperiod LEcost. intros tsk x1 x2 tsk_other R R' LEx LEr GEperiod LEcost.
unfold interference_bound_edf, interference_bound. unfold interference_bound_edf, interference_bound_fp.
rewrite leq_min; apply/andP; split. rewrite leq_min; apply/andP; split.
{ {
rewrite leq_min; apply/andP; split. rewrite leq_min; apply/andP; split.
...@@ -134,9 +137,9 @@ Module ResponseTimeIterationEDF. ...@@ -134,9 +137,9 @@ Module ResponseTimeIterationEDF.
} }
} }
{ {
apply leq_trans with (n := edf_specific_bound task_cost task_period task_deadline tsk (tsk_other, R)); apply leq_trans with (n := edf_specific_interference_bound task_cost task_period task_deadline tsk tsk_other R);
first by apply geq_minr. first by apply geq_minr.
unfold edf_specific_bound; simpl. unfold edf_specific_interference_bound; simpl.
rewrite leq_add2l leq_min; apply/andP; split; first by apply geq_minl. rewrite leq_add2l leq_min; apply/andP; split; first by apply geq_minl.
apply leq_trans with (n := task_deadline tsk %% task_period tsk_other - apply leq_trans with (n := task_deadline tsk %% task_period tsk_other -
(task_deadline tsk_other - R)); (task_deadline tsk_other - R));
......
This diff is collapsed.
This diff is collapsed.
Supports Markdown
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