Library prosa.results.rs.edf.limited_preemptive
Require Import prosa.analysis.facts.readiness.basic.
Require Export prosa.analysis.facts.model.restricted_supply.schedule.
Require Export prosa.analysis.facts.preemption.rtc_threshold.limited.
Require Export prosa.analysis.abstract.restricted_supply.task_intra_interference_bound.
Require Export prosa.analysis.abstract.restricted_supply.bounded_bi.edf.
Require Export prosa.analysis.abstract.restricted_supply.search_space.edf.
Require Export prosa.analysis.facts.model.task_cost.
Require Export prosa.analysis.facts.priority.edf.
Require Export prosa.analysis.facts.blocking_bound.edf.
Require Export prosa.analysis.facts.workload.edf_athep_bound.
Require Export prosa.analysis.definitions.sbf.busy.
Require Export prosa.analysis.facts.model.restricted_supply.schedule.
Require Export prosa.analysis.facts.preemption.rtc_threshold.limited.
Require Export prosa.analysis.abstract.restricted_supply.task_intra_interference_bound.
Require Export prosa.analysis.abstract.restricted_supply.bounded_bi.edf.
Require Export prosa.analysis.abstract.restricted_supply.search_space.edf.
Require Export prosa.analysis.facts.model.task_cost.
Require Export prosa.analysis.facts.priority.edf.
Require Export prosa.analysis.facts.blocking_bound.edf.
Require Export prosa.analysis.facts.workload.edf_athep_bound.
Require Export prosa.analysis.definitions.sbf.busy.
RTA for EDF Scheduling with Fixed Preemption Points on Restricted-Supply Uniprocessors
Defining the System Model
- processor model,
- tasks, jobs, and their parameters,
- the sequence of job arrivals,
- worst-case execution time (WCET) and the absence of self-suspensions,
- the set of tasks under analysis,
- the task under analysis,
- an arbitrary schedule of the task set, and finally,
- a supply-bound function.
Processor Model
Tasks and Jobs
Context {Task : TaskType}.
Context `{TaskCost Task}.
Context `{TaskDeadline Task}.
Context `{MaxArrivals Task}.
Context `{TaskPreemptionPoints Task}.
Context `{TaskCost Task}.
Context `{TaskDeadline Task}.
Context `{MaxArrivals Task}.
Context `{TaskPreemptionPoints Task}.
... and any type of jobs associated with these tasks, where each
job has a task job_task, a cost job_cost, an arrival time
job_arrival, and a predicate indicating job's preemption
points job_preemptive_points.
Context {Job : JobType}.
Context `{JobTask Job Task}.
Context `{JobCost Job}.
Context `{JobArrival Job}.
Context `{JobPreemptionPoints Job}.
Context `{JobTask Job Task}.
Context `{JobCost Job}.
Context `{JobArrival Job}.
Context `{JobPreemptionPoints Job}.
We assume that jobs are limited-preemptive.
The Job Arrival Sequence
Variable arr_seq : arrival_sequence Job.
Hypothesis H_valid_arrival_sequence : valid_arrival_sequence arr_seq.
Hypothesis H_valid_arrival_sequence : valid_arrival_sequence arr_seq.
Absence of Self-Suspensions and WCET Compliance
We further require that a job's cost cannot exceed its task's stated WCET.
... and assume that all jobs stem from tasks in this task set.
We assume a model with fixed preemption points. I.e., each task
is divided into a number of non-preemptive segments by inserting
statically predefined preemption points.
Hypothesis H_valid_model_with_fixed_preemption_points :
valid_fixed_preemption_points_model arr_seq ts.
valid_fixed_preemption_points_model arr_seq ts.
We assume that max_arrivals is a family of valid arrival
curves that constrains the arrival sequence arr_seq, i.e., for
any task tsk in ts, max_arrival tsk is (1) an arrival
bound of tsk, and ...
... (2) a monotonic function that equals 0 for the empty interval delta = 0.
The Schedule
Variable sched : schedule (rs_processor_state Job).
Hypothesis H_valid_schedule : valid_schedule sched arr_seq.
Hypothesis H_work_conserving : work_conserving arr_seq sched.
Hypothesis H_schedule_with_limited_preemptions:
schedule_respects_preemption_model arr_seq sched.
Hypothesis H_valid_schedule : valid_schedule sched arr_seq.
Hypothesis H_work_conserving : work_conserving arr_seq sched.
Hypothesis H_schedule_with_limited_preemptions:
schedule_respects_preemption_model arr_seq sched.
Assume that the schedule respects the EDF policy.
Supply-Bound Function
Context {SBF : SupplyBoundFunction}.
Hypothesis H_SBF_monotone : sbf_is_monotone SBF.
Hypothesis H_unit_SBF : unit_supply_bound_function SBF.
Hypothesis H_SBF_monotone : sbf_is_monotone SBF.
Hypothesis H_unit_SBF : unit_supply_bound_function SBF.
We assume that SBF properly characterizes all busy intervals
(w.r.t. task tsk) in sched. That is, (1) SBF 0 = 0 and (2)
for any duration Δ, at least SBF Δ supply is available in
any busy-interval prefix of length Δ.
Length of Busy Interval
... L satisfies a fixed-point recurrence for the
busy-interval-length bound (i.e., total_RBF ts L ≤ SBF L ...
Response-Time Bound
Definition rta_recurrence_solution R :=
∀ (A : duration),
is_in_search_space ts tsk L A →
∃ (F : duration),
A ≤ F ≤ A + R
∧ blocking_bound ts tsk A
+ (task_rbf (A + ε) - (task_last_nonpr_segment tsk - ε))
+ bound_on_athep_workload ts tsk A F
≤ SBF F
∧ SBF F + (task_last_nonpr_segment tsk - ε) ≤ SBF (A + R).
∀ (A : duration),
is_in_search_space ts tsk L A →
∃ (F : duration),
A ≤ F ≤ A + R
∧ blocking_bound ts tsk A
+ (task_rbf (A + ε) - (task_last_nonpr_segment tsk - ε))
+ bound_on_athep_workload ts tsk A F
≤ SBF F
∧ SBF F + (task_last_nonpr_segment tsk - ε) ≤ SBF (A + R).
Finally, using the sequential variant of abstract
restricted-supply analysis, we establish that any such R is a
sound response-time bound for the concrete model of EDF
scheduling with limited preemptions with arbitrary supply
restrictions.
Theorem uniprocessor_response_time_bound_limited_edf :
∀ (R : duration),
rta_recurrence_solution R →
task_response_time_bound arr_seq sched tsk R.
Proof.
move⇒ R SOL js ARRs TSKs.
have [ZERO|POS] := posnP (job_cost js); first by rewrite /job_response_time_bound /completed_by ZERO.
have VAL1 : valid_preemption_model arr_seq sched.
{ apply valid_fixed_preemption_points_model_lemma ⇒ //.
by apply H_valid_model_with_fixed_preemption_points. }
have READ : work_bearing_readiness arr_seq sched by done.
eapply uniprocessor_response_time_bound_restricted_supply_seq with (L := L) ⇒ //.
- exact: instantiated_i_and_w_are_coherent_with_schedule.
- exact: EDF_implies_sequential_tasks.
- exact: instantiated_interference_and_workload_consistent_with_sequential_tasks.
- apply: busy_intervals_are_bounded_rs_edf ⇒ //.
by apply: instantiated_i_and_w_are_coherent_with_schedule.
- apply: valid_pred_sbf_switch_predicate; last by exact: H_valid_SBF.
move ⇒ ? ? ? ? [? ?]; split ⇒ //.
by apply instantiated_busy_interval_prefix_equivalent_busy_interval_prefix.
- apply: instantiated_task_intra_interference_is_bounded; eauto 1 ⇒ //; first last.
+ by (apply: bound_on_athep_workload_is_valid; try apply H_fixed_point) ⇒ //.
+ apply: service_inversion_is_bounded ⇒ // ⇒ jo t1 t2 ARRo TSKo BUSYo.
by apply: nonpreemptive_segments_bounded_by_blocking ⇒ //.
- move⇒ A SP.
move: (SOL A) ⇒ [].
{ by apply: search_space_sub ⇒ //; apply: search_space_switch_IBF. }
move⇒ FF [EQ1 [EQ2 EQ3]].
∃ FF; split; last split.
+ lia.
+ move: EQ2; rewrite /task_intra_IBF -/task_rbf.
by erewrite last_segment_eq_cost_minus_rtct ⇒ //; lia.
+ by erewrite last_segment_eq_cost_minus_rtct.
Qed.
End RTAforLimitedPreemptiveEDFModelwithArrivalCurves.
∀ (R : duration),
rta_recurrence_solution R →
task_response_time_bound arr_seq sched tsk R.
Proof.
move⇒ R SOL js ARRs TSKs.
have [ZERO|POS] := posnP (job_cost js); first by rewrite /job_response_time_bound /completed_by ZERO.
have VAL1 : valid_preemption_model arr_seq sched.
{ apply valid_fixed_preemption_points_model_lemma ⇒ //.
by apply H_valid_model_with_fixed_preemption_points. }
have READ : work_bearing_readiness arr_seq sched by done.
eapply uniprocessor_response_time_bound_restricted_supply_seq with (L := L) ⇒ //.
- exact: instantiated_i_and_w_are_coherent_with_schedule.
- exact: EDF_implies_sequential_tasks.
- exact: instantiated_interference_and_workload_consistent_with_sequential_tasks.
- apply: busy_intervals_are_bounded_rs_edf ⇒ //.
by apply: instantiated_i_and_w_are_coherent_with_schedule.
- apply: valid_pred_sbf_switch_predicate; last by exact: H_valid_SBF.
move ⇒ ? ? ? ? [? ?]; split ⇒ //.
by apply instantiated_busy_interval_prefix_equivalent_busy_interval_prefix.
- apply: instantiated_task_intra_interference_is_bounded; eauto 1 ⇒ //; first last.
+ by (apply: bound_on_athep_workload_is_valid; try apply H_fixed_point) ⇒ //.
+ apply: service_inversion_is_bounded ⇒ // ⇒ jo t1 t2 ARRo TSKo BUSYo.
by apply: nonpreemptive_segments_bounded_by_blocking ⇒ //.
- move⇒ A SP.
move: (SOL A) ⇒ [].
{ by apply: search_space_sub ⇒ //; apply: search_space_switch_IBF. }
move⇒ FF [EQ1 [EQ2 EQ3]].
∃ FF; split; last split.
+ lia.
+ move: EQ2; rewrite /task_intra_IBF -/task_rbf.
by erewrite last_segment_eq_cost_minus_rtct ⇒ //; lia.
+ by erewrite last_segment_eq_cost_minus_rtct.
Qed.
End RTAforLimitedPreemptiveEDFModelwithArrivalCurves.