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]

Require Export prosa.model.task.concept.

(** * Task Parameter for the Dynamic Self-Suspension Model *)

(** Under the dynamic self-suspension model, for each task, there is a bound on
    the maximum total self-suspension duration exhibited by any job of the
    task. *)
Class TaskTotalSuspension (Task : TaskType) := task_total_suspension : Task -> duration.

(** * Validity *)

(** In the following section, we specify the semantics of the dynamic
    self-suspension model: each job self-suspends in total no longer than
    specified by the cumulative self-suspension bound of its associated
    task. *)

Section ValidDynamicSuspensions.

  (** Consider any kind of jobs,... *)
  Context {Job : JobType}.

  (** ...where each job has a cost and may exhibit self-suspensions,... *)
  Context `{JobCost Job} `{JobSuspension Job}.

  (** ...and the tasks from which these jobs stem. *)
  Context {Task : TaskType}.
  Context `{JobTask Job Task} `{TaskTotalSuspension Task}.

  (** Under the dynamic self-suspension model, the total self-suspension time
      of any job cannot exceed the self-suspension bound of its associated
      task. *)
  Definition valid_dynamic_suspensions :=
    forall j, total_suspension j <= task_total_suspension (job_task j).

End ValidDynamicSuspensions.