diff options
Diffstat (limited to 'driver/Compiler.v')
-rw-r--r-- | driver/Compiler.v | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/driver/Compiler.v b/driver/Compiler.v index ed27f38..9db7f42 100644 --- a/driver/Compiler.v +++ b/driver/Compiler.v @@ -217,18 +217,18 @@ Proof. repeat rewrite compose_print_identity in H. simpl in H. set (p1 := Tailcall.transf_program p) in *. - destruct (Inlining.transf_program p1) as [p11|]_eqn; simpl in H; try discriminate. + destruct (Inlining.transf_program p1) as [p11|] eqn:?; simpl in H; try discriminate. set (p12 := Renumber.transf_program p11) in *. set (p2 := Constprop.transf_program p12) in *. set (p21 := Renumber.transf_program p2) in *. - destruct (CSE.transf_program p21) as [p3|]_eqn; simpl in H; try discriminate. - destruct (Allocation.transf_program p3) as [p4|]_eqn; simpl in H; try discriminate. + destruct (CSE.transf_program p21) as [p3|] eqn:?; simpl in H; try discriminate. + destruct (Allocation.transf_program p3) as [p4|] eqn:?; simpl in H; try discriminate. set (p5 := Tunneling.tunnel_program p4) in *. - destruct (Linearize.transf_program p5) as [p6|]_eqn; simpl in H; try discriminate. + destruct (Linearize.transf_program p5) as [p6|] eqn:?; simpl in H; try discriminate. set (p7 := CleanupLabels.transf_program p6) in *. set (p8 := Reload.transf_program p7) in *. set (p9 := RRE.transf_program p8) in *. - destruct (Stacking.transf_program p9) as [p10|]_eqn; simpl in H; try discriminate. + destruct (Stacking.transf_program p9) as [p10|] eqn:?; simpl in H; try discriminate. assert(TY1: LTLtyping.wt_program p5). eapply Tunnelingtyping.program_typing_preserved. @@ -274,7 +274,7 @@ Proof. repeat rewrite compose_print_identity in H. simpl in H. set (p1 := Selection.sel_program p) in *. - destruct (RTLgen.transl_program p1) as [p2|]_eqn; simpl in H; try discriminate. + destruct (RTLgen.transl_program p1) as [p2|] eqn:?; simpl in H; try discriminate. eapply compose_forward_simulation. apply Selectionproof.transf_program_correct. eapply compose_forward_simulation. apply RTLgenproof.transf_program_correct. eassumption. exact (fst (transf_rtl_program_correct _ _ H)). |