Built with Alectryon, running Coq+SerAPI v8.20.0+0.20.0. Bubbles () indicate interactive fragments: hover for details, tap to reveal contents. Use Ctrl+↑ Ctrl+↓ to navigate, Ctrl+🖱️ to focus. On Mac, use ⌘ instead of Ctrl.
[Loading ML file ssrmatching_plugin.cmxs (using legacy method) ... done]
[Loading ML file ssreflect_plugin.cmxs (using legacy method) ... done]
[Loading ML file ring_plugin.cmxs (using legacy method) ... done]
Serlib plugin: coq-elpi.elpi is not available: serlib support is missing.
Incremental checking for commands in this plugin will be impacted.
[Loading ML file coq-elpi.elpi ... done]
[Loading ML file zify_plugin.cmxs (using legacy method) ... done]
[Loading ML file micromega_core_plugin.cmxs (using legacy method) ... done]
[Loading ML file micromega_plugin.cmxs (using legacy method) ... done]
[Loading ML file btauto_plugin.cmxs (using legacy method) ... done]
Notation "_ + _" was already used in scope nat_scope.
[notation-overridden,parsing,default]
Notation "_ - _" was already used in scope nat_scope.
[notation-overridden,parsing,default]
Notation "_ <= _" was already used in scope nat_scope.
[notation-overridden,parsing,default]
Notation "_ < _" was already used in scope nat_scope.
[notation-overridden,parsing,default]
Notation "_ >= _" was already used in scope nat_scope.
[notation-overridden,parsing,default]
Notation "_ > _" was already used in scope nat_scope.
[notation-overridden,parsing,default]
Notation "_ <= _ <= _" was already used in scope
nat_scope. [notation-overridden,parsing,default]
Notation "_ < _ <= _" was already used in scope
nat_scope. [notation-overridden,parsing,default]
Notation "_ <= _ < _" was already used in scope
nat_scope. [notation-overridden,parsing,default]
Notation "_ < _ < _" was already used in scope
nat_scope. [notation-overridden,parsing,default]
Notation "_ * _" was already used in scope nat_scope.
[notation-overridden,parsing,default]


(** * Fully Preemptive Task Model *)

(** In this module, we instantiate the common task model in which all jobs are
    always preemptable. *)

Section FullyPreemptiveModel.

  (** Consider any type of jobs. *)
  Context {Task : TaskType}.

  (** In the fully preemptive model, any job can be preempted at any
      time. Thus, the maximal non-preemptive segment has length at most ε
      (i.e., one time unit such as a processor cycle). *)
  Definition fully_preemptive_task_model : TaskMaxNonpreemptiveSegment Task :=
    fun tsk : Task => ε.

End FullyPreemptiveModel.

(** ** Run-to-Completion Threshold *)

(** Since jobs are always preemptive, there is no offset after which a job is
    guaranteed to run to completion. *)

Section TaskRTCThresholdFullyPreemptiveModel.

  (** Consider any type of tasks with WCETs. *)
  Context {Task : TaskType}.
  Context `{TaskCost Task}.

  (** In the fully preemptive model, any job can be preempted at any
      time. Thus, the only safe run-to-completion threshold for a task
      is its WCET. *)
  #[local] Instance fully_preemptive_rtc_threshold : TaskRunToCompletionThreshold Task :=
    task_cost.

End TaskRTCThresholdFullyPreemptiveModel.