Proof (Genv.find_funct_ptr_transf_partial TRANSF).

(* Specifications: *)
Lemma functions_transl:
forall fb f tf,
Genv.find_funct_ptr ge fb = Some (Internal f) ->
transf_function f = OK tf ->
Genv.find_funct_ptr tge fb = Some (Internal tf).
Lemma symbols_preserved:
forall id,
Genv.find_symbol tge id = Genv.find_symbol ge id.
Lemma sig_preserved:
forall f tf,
transf_fundef f = OK tf ->
funsig tf = funsig f.
Lemma find_function_translated:
forall ros ls f,
find_function ge ros ls = Some f ->
exists tf,
find_function tge ros ls = Some tf /\ transf_fundef f = OK tf.
Lemma sig_preserved:
forall f tf, transf_fundef f = OK tf -> Mach.funsig tf = Linear.funsig f.
Lemma find_function_translated:
forall j ls rs m ros f,
agree_regs j ls rs ->
m |= globalenv_inject ge j ->
Linear.find_function ge ros ls = Some f ->
exists bf, exists tf,
find_function_ptr tge ros rs = Some bf
/\ Genv.find_funct_ptr tge bf = Some tf
/\ transf_fundef f = OK tf.
Lemma sig_function_translated:
forall f tf,
transf_fundef f = OK tf ->
LTL.funsig tf = RTL.funsig f.
Lemma find_function_translated:
forall ros rs fd ros' e e' ls,
RTL.find_function ge ros rs = Some fd ->
add_equation_ros ros ros' e = Some e' ->
satisf rs ls e' ->
exists tfd,
LTL.find_function tge ros' ls = Some tfd /\ transf_fundef fd = OK tfd.
Lemma exec_moves:
forall mv env rs s f sp bb m e e' ls,
track_moves env mv e = Some e' ->
wf_moves mv ->
satisf rs ls e' ->
wt_regset env rs ->
exists ls',
star step tge (Block s f sp (expand_moves mv bb) ls m)
E0 (Block s f sp bb ls' m)
/\ satisf rs ls' e.
Lemma functions_transl:
forall fb f tf,
Genv.find_funct_ptr ge fb = Some (Internal f) ->
transf_function f = OK tf ->
Genv.find_funct_ptr tge fb = Some (Internal tf).
Lemma functions_transl:
forall fb f tf,
Genv.find_funct_ptr ge fb = Some (Internal f) ->
transf_function f = OK tf ->
Genv.find_funct_ptr tge fb = Some (Internal tf).
Lemma functions_transl:
forall fb f tf,
Genv.find_funct_ptr ge fb = Some (Internal f) ->
transf_function f = OK tf ->
Genv.find_funct_ptr tge fb = Some (Internal tf).