End SoupPredicates.
(************************************************************)
(*                       List lemmas                        *)
(************************************************************)

(* Specifications: *)
Lemma has_all_true xs (ps : seq nid) x:
perm_eq [seq i.1 | i <- xs] ps ->
all id [seq i.2 | i <- xs] ->
x \in ps -> (x, true) \in xs.
Lemma has_some_false (xs : seq (nid * bool)) ps x:
perm_eq [seq i.1 | i <- xs] ps ->
x \in ps -> exists b, (x, b) \in xs.