diff options
Diffstat (limited to 'scheduling/BTL_Schedulerproof.v')
-rw-r--r-- | scheduling/BTL_Schedulerproof.v | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/scheduling/BTL_Schedulerproof.v b/scheduling/BTL_Schedulerproof.v index 13ea61a6..95363194 100644 --- a/scheduling/BTL_Schedulerproof.v +++ b/scheduling/BTL_Schedulerproof.v @@ -104,12 +104,12 @@ Qed. Lemma transf_fundef_correct f f': transf_fundef f = OK f' -> match_fundef f f'. Proof. - intros TRANSF; destruct f; simpl. monadInv TRANSF. + intros TRANSF; destruct f; simpl; inv TRANSF. + exploit transf_function_correct; eauto. - (*intros (dupmap & MATCH_F).*) - (*eapply match_Internal; eauto.*) - (*+ eapply match_External.*) -Admitted. + econstructor. intros MATCH_F. + eapply match_Internal; eauto. + + eapply match_External. +Qed. Lemma function_ptr_preserved: forall v f, |