Definition indexed_contains tp:= (fun Ncontained: (sigT (containsThread tp)) =>
             let (i, cnti) := Ncontained in getThreadR cnti).Definition resourceList (tp:t): seq.seq res:=
      map (@indexed_contains tp)
          (containsList tp).

Lemma resourceList_spec: forall i tp (cnti: containsThread tp i), List.nth_error (resourceList tp) i = Some (getThreadR cnti).