Commit 429e36eb authored by Felipe Cerqueira's avatar Felipe Cerqueira

Leave base schedule arbitrary during construction

parent 8c68c87a
...@@ -20,8 +20,8 @@ Module ScheduleConstruction. ...@@ -20,8 +20,8 @@ Module ScheduleConstruction.
Variable build_schedule: Variable build_schedule:
schedule arr_seq -> time -> option (JobIn arr_seq). schedule arr_seq -> time -> option (JobIn arr_seq).
(* Then, starting from the empty schedule as a base, ... *) (* Then, starting from a base schedule, ... *)
Definition empty_schedule : schedule arr_seq := fun t => None. Variable base_sched: schedule arr_seq.
(* ...we can update individual times using the build_schedule function, ... *) (* ...we can update individual times using the build_schedule function, ... *)
Definition update_schedule (prev_sched: schedule arr_seq) Definition update_schedule (prev_sched: schedule arr_seq)
...@@ -36,7 +36,7 @@ Module ScheduleConstruction. ...@@ -36,7 +36,7 @@ Module ScheduleConstruction.
if t_max is t_prev.+1 then if t_max is t_prev.+1 then
update_schedule (schedule_prefix t_prev) t_prev.+1 update_schedule (schedule_prefix t_prev) t_prev.+1
else else
update_schedule empty_schedule 0. update_schedule base_sched 0.
(* Based on the schedule prefixes, we construct a complete schedule. *) (* Based on the schedule prefixes, we construct a complete schedule. *)
Definition build_schedule_from_prefixes := fun t => schedule_prefix t t. Definition build_schedule_from_prefixes := fun t => schedule_prefix t t.
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment