diff options
Diffstat (limited to 'driver/Compiler.vexpand')
| -rw-r--r-- | driver/Compiler.vexpand | 35 |
1 files changed, 34 insertions, 1 deletions
diff --git a/driver/Compiler.vexpand b/driver/Compiler.vexpand index 952bed22..34e85b6b 100644 --- a/driver/Compiler.vexpand +++ b/driver/Compiler.vexpand @@ -299,12 +299,45 @@ EXPAND_ASM_SEMANTICS EXPAND_RTL_FORWARD_SIMULATIONS eapply compose_forward_simulations. eapply RTLpathLivegenproof.transf_program_correct; eassumption. + + (* TODO jf: Fix this work-around *) pose proof RTLpathLivegenproof.all_fundef_liveness_ok as X. - refine (modusponens _ _ (X _ _ _) _); eauto. intro. + refine (modusponens _ _ (X _ _ _) _). exact M37. intro. + eapply compose_forward_simulations. + eapply MyRTLpathSchedulerproof.transf_program_correct; eassumption. + eapply compose_forward_simulations. + eapply RTLpathproof.transf_program_correct; eassumption. + eapply compose_forward_simulations. + eapply Liftifproof.transf_program_correct; eassumption. + eapply compose_forward_simulations. + eapply Renumberproof.transf_program_correct; eassumption. + eapply compose_forward_simulations. + eapply match_if_simulation. eassumption. eapply CSE3proof.transf_program_correct; eassumption. + eapply compose_forward_simulations. + eapply match_if_simulation. eassumption. eapply Deadcodeproof.transf_program_correct; eassumption. + + eapply compose_forward_simulations. + eapply RTLpathLivegenproof.transf_program_correct; eassumption. + pose proof RTLpathLivegenproof.all_fundef_liveness_ok as X'. + refine (modusponens _ _ (X' _ _ _) _); eauto. intro. + eapply compose_forward_simulations. eapply RTLpathSchedulerproof.transf_program_correct; eassumption. eapply compose_forward_simulations. eapply RTLpathproof.transf_program_correct; eassumption. + + eapply compose_forward_simulations. + eapply Renumberproof.transf_program_correct; eassumption. + eapply compose_forward_simulations. + eapply match_if_simulation. eassumption. eapply CSE3proof.transf_program_correct; eassumption. + eapply compose_forward_simulations. + eapply match_if_simulation. eassumption. eapply KillUselessMovesproof.transf_program_correct; eassumption. + eapply compose_forward_simulations. + eapply match_if_simulation. eassumption. eapply ForwardMovesproof.transf_program_correct; eassumption. + eapply compose_forward_simulations. + eapply match_if_simulation. eassumption. eapply Deadcodeproof.transf_program_correct; eassumption. + + eapply compose_forward_simulations. eapply Allocationproof.transf_program_correct; eassumption. eapply compose_forward_simulations. |