diff options
| author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-06-18 11:08:52 +0200 |
|---|---|---|
| committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-06-18 11:08:52 +0200 |
| commit | 86e108c7b95456e986605cb1861cb5128f348ec0 (patch) | |
| tree | 9249282e3142004455dfab87366f571a7dc95b01 /scheduling/RTLtoBTLproof.v | |
| parent | ef95bd7f4afe159bcedc3ec5732579bfc6ba08c6 (diff) | |
| download | compcert-kvx-86e108c7b95456e986605cb1861cb5128f348ec0.tar.gz compcert-kvx-86e108c7b95456e986605cb1861cb5128f348ec0.zip | |
End of main scheduling proof
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'. |