Put State inside ProcessorState

It was a parameter but that wasn't of any use,
it was just making everything more noisy.

model/task/preemption/parameters.v

@@ -78,8 +78,7 @@ Section ValidPreemptionModel.
   Context `{JobPreemptable Job}.
 
   (** Consider any kind of processor state model, ... *)
-  Context {PState : Type}.
-  Context `{ProcessorState Job PState}.
+  Context {PState : ProcessorState Job}.
 
   (** ... any job arrival sequence, ... *)
   Variable arr_seq : arrival_sequence Job.
@@ -150,8 +149,7 @@ Section ValidTaskRunToCompletionThreshold.
   Context `{TaskRunToCompletionThreshold Task}.
 
   (** Further, consider any kind of processor model, ... *)
-  Context {PState : Type}.
-  Context `{ProcessorState Job PState}.
+  Context {PState : ProcessorState Job}.
 
   (** ... any job arrival sequence, ... *)
   Variable arr_seq: arrival_sequence Job.

model/task/sequentiality.v

@@ -17,8 +17,7 @@ Section PropertyOfSequentiality.
   Context `{JobCost Job}.
 
   (** ... and any kind of processor model. *)
-  Context {PState : Type}.
-  Context `{ProcessorState Job PState}.
+  Context {PState : ProcessorState Job}.
 
   (** Consider any arrival sequence ... *) 
   Variable arr_seq : arrival_sequence Job.
@@ -44,6 +43,5 @@ Section PropertyOfSequentiality.
     all 
       (fun j_tsk => completed_by sched j_tsk t) 
       (task_arrivals_before arr_seq (job_task j) (job_arrival j)).
-      
 
 End PropertyOfSequentiality.

results/fixed_priority/rta/bounded_nps.v

@@ -49,7 +49,7 @@ Section RTAforFPwithBoundedNonpreemptiveSegmentsWithArrivalCurves.
   Variable sched : schedule (ideal.processor_state Job).
   
   (** ... allow for any work-bearing notion of job readiness, ... *)
-  Context `{@JobReady Job (ideal.processor_state Job) _ Cost Arrival}.
+  Context `{@JobReady Job (ideal.processor_state Job) Cost Arrival}.
   Hypothesis H_job_ready : work_bearing_readiness arr_seq sched.
 
   (** ... and assume that the schedule is valid.  *)

results/fixed_priority/rta/bounded_pi.v

@@ -54,7 +54,7 @@ Section AbstractRTAforFPwithArrivalCurves.
   Variable sched : schedule (ideal.processor_state Job).
   
   (** ... allow for any work-bearing notion of job readiness, ... *)
-  Context `{@JobReady Job (ideal.processor_state Job) _ Cost Arrival}.
+  Context `{@JobReady Job (ideal.processor_state Job) Cost Arrival}.
   Hypothesis H_job_ready : work_bearing_readiness arr_seq sched.
 
   (** ... and assume that the schedule is valid.  *)