Library prosa.results.ovh.fp.fully_preemptive
Require Export prosa.model.job.properties.
Require Export prosa.model.composite.valid_task_arrival_sequence.
Require Export prosa.analysis.facts.readiness.sequential.
Require Export prosa.analysis.facts.model.overheads.schedule.
Require Export prosa.analysis.facts.preemption.task.preemptive.
Require Export prosa.analysis.facts.preemption.rtc_threshold.preemptive.
Require Export prosa.analysis.abstract.restricted_supply.task_intra_interference_bound.
Require Export prosa.analysis.abstract.restricted_supply.bounded_bi.fp.
Require Export prosa.analysis.abstract.restricted_supply.search_space.fp.
Require Export prosa.analysis.facts.model.task_cost.
Require Export prosa.analysis.facts.model.overheads.sbf.fp.
Require Export prosa.model.composite.valid_task_arrival_sequence.
Require Export prosa.analysis.facts.readiness.sequential.
Require Export prosa.analysis.facts.model.overheads.schedule.
Require Export prosa.analysis.facts.preemption.task.preemptive.
Require Export prosa.analysis.facts.preemption.rtc_threshold.preemptive.
Require Export prosa.analysis.abstract.restricted_supply.task_intra_interference_bound.
Require Export prosa.analysis.abstract.restricted_supply.bounded_bi.fp.
Require Export prosa.analysis.abstract.restricted_supply.search_space.fp.
Require Export prosa.analysis.facts.model.task_cost.
Require Export prosa.analysis.facts.model.overheads.sbf.fp.
RTA for Fully Preemptive FP Scheduling on Uniprocessors with Overheads
Defining the System Model
- the processor model,
- tasks, jobs, and their parameters,
- the task set and the task under analysis,
- the sequence of job arrivals,
- the absence of self-suspensions,
- an arbitrary schedule of the task set, and finally,
- a supply-bound function.
Processor Model
Tasks and Jobs
... and any type of jobs associated with these tasks, where each job has a
corresponding task job_task, an execution time job_cost, and an
arrival time job_arrival.
Furthermore, assume that jobs and tasks are fully preemptive.
#[local] Existing Instance fully_preemptive_job_model.
#[local] Existing Instance fully_preemptive_task_model.
#[local] Existing Instance fully_preemptive_rtc_threshold.
#[local] Existing Instance fully_preemptive_task_model.
#[local] Existing Instance fully_preemptive_rtc_threshold.
The Job Arrival Sequence
Variable arr_seq : arrival_sequence Job.
Hypothesis H_valid_task_arrival_sequence :
valid_task_arrival_sequence ts arr_seq.
Hypothesis H_valid_task_arrival_sequence :
valid_task_arrival_sequence ts arr_seq.
Additionally, we assume that all jobs in arr_seq have positive execution
costs. This requirement is not fundamental to the analysis approach itself
but reflects an artifact of the current proof structure specific to upper
bounds on the total duration of overheads.
Absence of Self-Suspensions
The Schedule
Context {FP : FP_policy Task}.
Hypothesis H_priority_is_reflexive : reflexive_task_priorities FP.
Hypothesis H_priority_is_transitive : transitive_task_priorities FP.
Hypothesis H_priority_is_reflexive : reflexive_task_priorities FP.
Hypothesis H_priority_is_transitive : transitive_task_priorities FP.
Consider a work-conserving, valid uniprocessor schedule with explicit
overheads that corresponds to the given arrival sequence arr_seq (and
hence the given task set ts).
Variable sched : schedule (overheads.processor_state Job).
Hypothesis H_valid_schedule : valid_schedule sched arr_seq.
Hypothesis H_work_conserving : work_conserving arr_seq sched.
Hypothesis H_valid_schedule : valid_schedule sched arr_seq.
Hypothesis H_work_conserving : work_conserving arr_seq sched.
We assume that the schedule respects the given FP scheduling policy.
Furthermore, we require that the schedule ensures two additional
properties: jobs of the same task are executed in the order of their
arrival, ...
... and preemptions occur only when strictly required by the scheduling
policy (specifically, a job is never preempted by another job of equal
priority).
Overhead-Aware Supply-Bound Function
Variable DB CSB CRPDB : duration.
Hypothesis H_valid_overheads_model : overhead_resource_model sched DB CSB CRPDB.
Hypothesis H_valid_overheads_model : overhead_resource_model sched DB CSB CRPDB.
In order to account for the maximum cumulative delay that task tsk may
experience due to the presence of scheduling overheads, we introduce a
supply-bound function SBF that conservatively models the restriction
of processor supply due to overheads (i.e., it lower-bounds the amount of
"useful" processor cycles not lost to overheads).
The overhead-aware SBF works by determining a blackout bound, which
upper-bounds the maximum cumulative duration during which processor cycles
are "lost" to scheduling overheads in a given interval. Under FP
scheduling, the blackout bound in an interval of length Δ is determined
by the arrivals of tasks with higher-or-equal priority relative to
tsk. In this case, up to n such arrivals can lead to at most 1 + 2n
segments without a schedule change, each potentially incurring dispatch,
context-switch, and preemption-related overhead.
We let SBF denote the supply-bound function expressing this bound for
the task under analysis tsk.
Workload Abbreviations
Additionally, we let total_hep_rbf denote the cumulative
request-bound function w.r.t. all tasks with higher-or-equal
priority ...
... and use total_ohep_rbf as an abbreviation for the cumulative
request-bound function w.r.t. all tasks with higher-or-equal priority
other than task tsk itself.
Maximum Length of a Busy Interval
Definition busy_window_recurrence_solution (L : duration) :=
(0 < L) && (total_hep_rbf L ≤ SBF tsk L).
(0 < L) && (total_hep_rbf L ≤ SBF tsk L).
Response-Time Bound
Definition rta_recurrence_solution L R :=
∀ (A : duration),
is_in_search_space tsk L A →
∃ (F : duration),
A ≤ F ≤ A + R
∧ rbf tsk (A + ε) + total_ohep_rbf F ≤ SBF tsk F.
∀ (A : duration),
is_in_search_space tsk L A →
∃ (F : duration),
A ≤ F ≤ A + R
∧ rbf tsk (A + ε) + total_ohep_rbf F ≤ SBF tsk F.
Finally, using the sequential variant of abstract restricted-supply
analysis, we establish that, given a bound on the maximum busy-window
length L, any such R is indeed a sound response-time bound for task
tsk under fully-preemptive fixed-priority scheduling on a unit-speed
uniprocessor subject to scheduling overheads.
Theorem uniprocessor_response_time_bound_fully_preemptive_fp :
∀ (L : duration),
busy_window_recurrence_solution L →
∀ (R : duration),
rta_recurrence_solution L R →
task_response_time_bound arr_seq sched tsk R.
Proof.
move⇒ L /andP[BW_POS BW_SOL] R SOL js ARRs TSKs.
have BLOCK: ∀ tsk , blocking_bound ts tsk = 0.
{ by move⇒ tsk2; rewrite /blocking_bound /parameters.task_max_nonpreemptive_segment
/fully_preemptive_task_model subnn big1_eq. }
have [ZERO|POS] := posnP (job_cost js);
first by rewrite /job_response_time_bound /completed_by ZERO.
have READ : work_bearing_readiness arr_seq sched.
{ by apply basic_readiness_is_work_bearing_readiness. }
have FC: fully_consuming_proc_model (overheads.processor_state Job).
{ by apply overheads_proc_model_fully_consuming. }
have VBSBF : valid_busy_sbf arr_seq sched tsk (SBF tsk) by apply overheads_sbf_busy_valid ⇒ //=.
have USBF : unit_supply_bound_function (SBF tsk) by apply overheads_sbf_unit ⇒ //=.
have POStsk: 0 < task_cost tsk
by move: TSKs ⇒ /eqP <-; apply: leq_trans; [apply POS | apply H_valid_task_arrival_sequence].
eapply uniprocessor_response_time_bound_restricted_supply_seq with (L := L) (SBF := SBF tsk) ⇒ //=.
- exact: instantiated_i_and_w_are_coherent_with_schedule.
- apply instantiated_interference_and_workload_consistent_with_sequential_tasks ⇒ //.
- eapply busy_intervals_are_bounded_rs_fp with (SBF := SBF tsk) ⇒ //=.
+ exact: instantiated_i_and_w_are_coherent_with_schedule.
+ by rewrite BLOCK add0n.
- apply: valid_pred_sbf_switch_predicate; last (eapply overheads_sbf_busy_valid) ⇒ //=.
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 athep_workload_le_total_ohep_rbf.
+ apply: service_inversion_is_bounded ⇒ // ⇒ jo t1 t2 ARRo TSKo BUSYo.
by unshelve rewrite (leqRW (nonpreemptive_segments_bounded_by_blocking _ _ _ _ _ _ _ _ _)) ⇒ //.
- move ⇒ A SP; move: (SOL A) ⇒ [].
+ apply: search_space_sub ⇒ //=.
{ by apply: non_pathological_max_arrivals =>//; apply H_valid_task_arrival_sequence. }
apply: search_space_switch_IBF; last by exact: SP.
by move⇒ A1 Δ1; rewrite //= BLOCK.
+ move ⇒ F [/andP [_ LE] FIX]; ∃ F; split ⇒ //.
rewrite /task_intra_IBF /task_rtct /fully_preemptive_rtc_threshold.
rewrite BLOCK subnn //= add0n addn0 subn0; split.
× by apply FIX.
× by apply overheads_sbf_monotone.
Qed.
End RTAforFullyPreemptiveFPModelwithArrivalCurves.
∀ (L : duration),
busy_window_recurrence_solution L →
∀ (R : duration),
rta_recurrence_solution L R →
task_response_time_bound arr_seq sched tsk R.
Proof.
move⇒ L /andP[BW_POS BW_SOL] R SOL js ARRs TSKs.
have BLOCK: ∀ tsk , blocking_bound ts tsk = 0.
{ by move⇒ tsk2; rewrite /blocking_bound /parameters.task_max_nonpreemptive_segment
/fully_preemptive_task_model subnn big1_eq. }
have [ZERO|POS] := posnP (job_cost js);
first by rewrite /job_response_time_bound /completed_by ZERO.
have READ : work_bearing_readiness arr_seq sched.
{ by apply basic_readiness_is_work_bearing_readiness. }
have FC: fully_consuming_proc_model (overheads.processor_state Job).
{ by apply overheads_proc_model_fully_consuming. }
have VBSBF : valid_busy_sbf arr_seq sched tsk (SBF tsk) by apply overheads_sbf_busy_valid ⇒ //=.
have USBF : unit_supply_bound_function (SBF tsk) by apply overheads_sbf_unit ⇒ //=.
have POStsk: 0 < task_cost tsk
by move: TSKs ⇒ /eqP <-; apply: leq_trans; [apply POS | apply H_valid_task_arrival_sequence].
eapply uniprocessor_response_time_bound_restricted_supply_seq with (L := L) (SBF := SBF tsk) ⇒ //=.
- exact: instantiated_i_and_w_are_coherent_with_schedule.
- apply instantiated_interference_and_workload_consistent_with_sequential_tasks ⇒ //.
- eapply busy_intervals_are_bounded_rs_fp with (SBF := SBF tsk) ⇒ //=.
+ exact: instantiated_i_and_w_are_coherent_with_schedule.
+ by rewrite BLOCK add0n.
- apply: valid_pred_sbf_switch_predicate; last (eapply overheads_sbf_busy_valid) ⇒ //=.
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 athep_workload_le_total_ohep_rbf.
+ apply: service_inversion_is_bounded ⇒ // ⇒ jo t1 t2 ARRo TSKo BUSYo.
by unshelve rewrite (leqRW (nonpreemptive_segments_bounded_by_blocking _ _ _ _ _ _ _ _ _)) ⇒ //.
- move ⇒ A SP; move: (SOL A) ⇒ [].
+ apply: search_space_sub ⇒ //=.
{ by apply: non_pathological_max_arrivals =>//; apply H_valid_task_arrival_sequence. }
apply: search_space_switch_IBF; last by exact: SP.
by move⇒ A1 Δ1; rewrite //= BLOCK.
+ move ⇒ F [/andP [_ LE] FIX]; ∃ F; split ⇒ //.
rewrite /task_intra_IBF /task_rtct /fully_preemptive_rtc_threshold.
rewrite BLOCK subnn //= add0n addn0 subn0; split.
× by apply FIX.
× by apply overheads_sbf_monotone.
Qed.
End RTAforFullyPreemptiveFPModelwithArrivalCurves.