Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
P
PROSA - Formally Proven Schedulability Analysis
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
RT-PROOFS
PROSA - Formally Proven Schedulability Analysis
Commits
ce517674
Commit
ce517674
authored
5 years ago
by
Maxime Lesourd
Committed by
Björn Brandenburg
5 years ago
Browse files
Options
Downloads
Patches
Plain Diff
fix indentation in completion.v
parent
4e4337d6
No related branches found
Branches containing commit
No related tags found
Tags containing commit
1 merge request
!22
Naming conventions
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
restructuring/behavior/facts/completion.v
+6
-6
6 additions, 6 deletions
restructuring/behavior/facts/completion.v
with
6 additions
and
6 deletions
restructuring/behavior/facts/completion.v
+
6
−
6
View file @
ce517674
...
...
@@ -101,8 +101,8 @@ Section CompletionFacts.
rewrite
leqNgt
in
BUG
;
move
:
BUG
=>
/
negP
BUG
;
apply
BUG
.
rewrite
/
service
/
service_during
big_nat_recr
//
/=
-
addn1
.
apply
leq_add
.
*
by
rewrite
-/
(
service_during
sched
j
0
t
)
-/
(
completed_by
sched
j
t
)
.
*
by
rewrite
/
service_at
;
apply
:
H_scheduled_implies_serviced
;
rewrite
-/
(
scheduled_at
_
_
_)
.
-
by
rewrite
-/
(
service_during
sched
j
0
t
)
-/
(
completed_by
sched
j
t
)
.
-
by
rewrite
/
service_at
;
apply
:
H_scheduled_implies_serviced
;
rewrite
-/
(
scheduled_at
_
_
_)
.
Qed
.
(* ... and that a scheduled job cannot be completed. *)
...
...
@@ -170,13 +170,13 @@ Section ServiceAndCompletionFacts.
elim
=>
[|
n
IH
];
first
by
rewrite
service0
//.
rewrite
leq_eqVlt
in
IH
.
case
/
orP
:
IH
=>
[
EQ
|
LT
];
rewrite
-
service_last_plus_before
.
*
rewrite
not_scheduled_implies_no_service
;
first
by
rewrite
addn0
//.
-
rewrite
not_scheduled_implies_no_service
;
first
by
rewrite
addn0
//.
apply
:
completed_implies_not_scheduled
;
auto
.
unfold
unit_service_proc_model
in
H_unit_service
.
move
/
eqP
in
EQ
.
rewrite
/
completed_by
EQ
//.
*
apply
leq_trans
with
(
n
:=
service
sched
j
n
+
1
)
.
-
rewrite
leq_add2l
/
service_at
//.
-
rewrite
-
(
ltnS
(
service
sched
j
n
+
1
)
_)
-
(
addn1
(
job_cost
j
))
ltn_add2r
//.
-
apply
leq_trans
with
(
n
:=
service
sched
j
n
+
1
)
.
+
rewrite
leq_add2l
/
service_at
//.
+
rewrite
-
(
ltnS
(
service
sched
j
n
+
1
)
_)
-
(
addn1
(
job_cost
j
))
ltn_add2r
//.
Qed
.
(* We show that the service received by job j in any interval is no larger
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment