diff options
Diffstat (limited to 'scheduling/RTLtoBTLproof.v')
-rw-r--r-- | scheduling/RTLtoBTLproof.v | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/scheduling/RTLtoBTLproof.v b/scheduling/RTLtoBTLproof.v index f5c2f3db..4af5668c 100644 --- a/scheduling/RTLtoBTLproof.v +++ b/scheduling/RTLtoBTLproof.v @@ -252,11 +252,10 @@ Lemma transf_function_correct f f': transf_function f = OK f' -> exists dupmap, match_function dupmap f f'. Proof. unfold transf_function; unfold bind. repeat autodestruct. - intros H _ _ X. inversion X; subst; clear X. -(* - eexists; eapply verify_function_correct; simpl; eauto. -*) -Admitted. + intros LIVE VER _ _ X. inv X. eexists; econstructor. + - eapply verify_function_correct; simpl; eauto. + - unfold liveness_ok_function; destruct u0; auto. +Qed. Lemma transf_fundef_correct f f': transf_fundef f = OK f' -> match_fundef f f'. |