diff options
Diffstat (limited to 'backend/Tunnelingtyping.v')
| -rw-r--r-- | backend/Tunnelingtyping.v | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/backend/Tunnelingtyping.v b/backend/Tunnelingtyping.v index 29b74f12..6281afa1 100644 --- a/backend/Tunnelingtyping.v +++ b/backend/Tunnelingtyping.v @@ -33,12 +33,19 @@ Proof. intros; discriminate. Qed. +Lemma wt_tunnel_fundef: + forall f, wt_fundef f -> wt_fundef (tunnel_fundef f). +Proof. + intros. inversion H; simpl. constructor; auto. + constructor. apply wt_tunnel_function; auto. +Qed. + Lemma program_typing_preserved: forall (p: LTL.program), wt_program p -> wt_program (tunnel_program p). Proof. intros; red; intros. - generalize (transform_program_function tunnel_function p i f H0). + generalize (transform_program_function tunnel_fundef p i f H0). intros [f0 [IN TRANSF]]. - subst f. apply wt_tunnel_function. eauto. + subst f. apply wt_tunnel_fundef. eauto. Qed. |