Existing Instance scheduler.
Existing Instance DilMem.

Lemma updThread_twice : forall {res sem} (tp : @OrdinalPool.t res sem) i
(cnti : containsThread(ThreadPool := OrdinalPool.OrdinalThreadPool) tp i) c c' r r'
(cnti' : containsThread (updThread cnti c r) i),
updThread cnti' c' r' = updThread cnti c' r'.