Definition isVAL (r : resource) :=
  match r with
  | YES _ _ (VAL _) _ => Logic.True
  | _ => False
  end.

Lemma pures_same_matchfunspecs e Gamma phi1 phi2 : level phi1 = level phi2 -> pures_same phi1 phi2 -> matchfunspecs e Gamma phi1 -> matchfunspecs e Gamma phi2.