diff --git a/restructuring/analysis/abstract/core/abstract_seq_rta.v b/restructuring/analysis/abstract/core/abstract_seq_rta.v index aed1f0a78048a13f9f57998f0bc3019d4c421815..0672c14cf6946d761bcd915dbac7f7913c63cedf 100644 --- a/restructuring/analysis/abstract/core/abstract_seq_rta.v +++ b/restructuring/analysis/abstract/core/abstract_seq_rta.v @@ -343,7 +343,7 @@ Section Sequential_Abstract_RTA. simpl; rewrite lt0b. apply/hasP; exists j; last by done. by rewrite mem_filter; apply/andP; split; - [rewrite H_job_of_tsk | eapply arrived_between_implies_in_arrivals; edone]. + [rewrite H_job_of_tsk | eapply arrived_between_implies_in_arrivals; eassumption]. Qed. End Case1. @@ -383,7 +383,7 @@ Section Sequential_Abstract_RTA. simpl; rewrite lt0b. apply/hasP; exists j; last by done. by rewrite mem_filter; apply/andP; split; - [rewrite H_job_of_tsk | eapply arrived_between_implies_in_arrivals; edone]. + [rewrite H_job_of_tsk | eapply arrived_between_implies_in_arrivals; eassumption]. Qed. End Case2. @@ -498,7 +498,7 @@ Section Sequential_Abstract_RTA. have ARRs: arrives_in arr_seq j1; first by apply H_jobs_come_from_arrival_sequence with t; rewrite scheduled_at_def; apply/eqP. case_eq (job_task j1 == tsk) => TSK. - 2: by eapply interference_plus_sched_le_serv_of_task_plus_task_interference_task; [edone| apply/negbT]. + 2: by eapply interference_plus_sched_le_serv_of_task_plus_task_interference_task; [eassumption| apply/negbT]. case EQ: (j == j1); [move: EQ => /eqP EQ; subst j1 | ]. 1: by apply interference_plus_sched_le_serv_of_task_plus_task_interference_j. eapply interference_plus_sched_le_serv_of_task_plus_task_interference_job;