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'.