Section MATCH_PROGRAMS.
Context {C F1 V1 F2 V2: Type} {LC: Linker C} {LF: Linker F1} {LV: Linker V1}.
Variable match_fundef: C -> F1 -> F2 -> Prop.
Variable match_varinfo: V1 -> V2 -> Prop.
Variable ctx: C.
Variable p: program F1 V1.
Variable tp: program F2 V2.
Hypothesis progmatch: match_program_gen match_fundef match_varinfo ctx p tp.
Proof (mge_defs globalenvs_match).

Theorem find_var_info_match:
forall b v,
find_var_info (globalenv p) b = Some v ->
exists tv,
find_var_info (globalenv tp) b = Some tv /\ match_globvar match_varinfo v tv.