From 99b1514f31869bc11c4eb89a7a9b46e5fef81881 Mon Sep 17 00:00:00 2001 From: Léo Gourdin Date: Sun, 20 Jun 2021 00:13:50 +0200 Subject: transf fct correct in BTL scheduler proof --- scheduling/BTL_Schedulerproof.v | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'scheduling') 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, -- cgit