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

Lemma matchfunspecs_common_join e Gamma phi phi' psi Phi Phi' : join phi psi Phi -> join phi' psi Phi' -> matchfunspecs e Gamma Phi -> matchfunspecs e Gamma Phi'.