diff options
| author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-06-20 00:13:50 +0200 |
|---|---|---|
| committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-06-20 00:13:50 +0200 |
| commit | 99b1514f31869bc11c4eb89a7a9b46e5fef81881 (patch) | |
| tree | 7faecf18374d0ca8916a8cbcfe1b6b1b9ee5fd5a /scheduling | |
| parent | 274f32429e43efa5b4031d2dfe1c32f30a7fff3f (diff) | |
| download | compcert-kvx-99b1514f31869bc11c4eb89a7a9b46e5fef81881.tar.gz compcert-kvx-99b1514f31869bc11c4eb89a7a9b46e5fef81881.zip | |
transf fct correct in BTL scheduler proof
Diffstat (limited to 'scheduling')
| -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, |