From 5020a5a07da3fd690f5d171a48d0c73ef48f9430 Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Fri, 1 Mar 2013 15:32:13 +0000
Subject: Revised Stacking and Asmgen passes and Mach semantics: - no more
 prediction of return addresses (Asmgenretaddr is gone) - instead, punch a
 hole for the retaddr in Mach stack frame and   fill this hole with the return
 address in the Asmgen proof.

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2129 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 ia32/Asmgenproof1.v | 794 ++++++++++------------------------------------------
 1 file changed, 145 insertions(+), 649 deletions(-)

(limited to 'ia32/Asmgenproof1.v')

diff --git a/ia32/Asmgenproof1.v b/ia32/Asmgenproof1.v
index b524539..75d59a4 100644
--- a/ia32/Asmgenproof1.v
+++ b/ia32/Asmgenproof1.v
@@ -23,233 +23,29 @@ Require Import Globalenvs.
 Require Import Op.
 Require Import Locations.
 Require Import Mach.
-Require Import Machsem.
 Require Import Machtyping.
 Require Import Asm.
 Require Import Asmgen.
+Require Import Asmgenproof0.
 Require Import Conventions.
 
 Open Local Scope error_monad_scope.
 
 (** * Correspondence between Mach registers and IA32 registers *)
 
-Hint Extern 2 (_ <> _) => congruence: ppcgen.
-
-Lemma preg_of_injective:
-  forall r1 r2, preg_of r1 = preg_of r2 -> r1 = r2.
-Proof.
-  destruct r1; destruct r2; simpl; intros; reflexivity || discriminate.
-Qed.
-
-Lemma preg_of_not_ESP:
-  forall r, preg_of r <> ESP.
-Proof.
-  destruct r; simpl; congruence.
-Qed.
-
-Lemma preg_of_not_PC:
-  forall r, preg_of r <> PC.
-Proof.
-  destruct r; simpl; congruence.
-Qed.
-
-Hint Resolve preg_of_not_ESP preg_of_not_PC: ppcgen.
-
-Lemma ireg_of_eq:
-  forall r r', ireg_of r = OK r' -> preg_of r = IR r'.
-Proof.
-  unfold ireg_of; intros. destruct (preg_of r); inv H; auto.
-Qed.
-
-Lemma freg_of_eq:
-  forall r r', freg_of r = OK r' -> preg_of r = FR r'.
-Proof.
-  unfold freg_of; intros. destruct (preg_of r); inv H; auto.
-Qed.
-
-(** Agreement between Mach register sets and IA32 register sets. *)
-
-Record agree (ms: Mach.regset) (sp: val) (rs: Asm.regset) : Prop := mkagree {
-  agree_sp: rs#ESP = sp;
-  agree_sp_def: sp <> Vundef;
-  agree_mregs: forall r: mreg, Val.lessdef (ms r) (rs#(preg_of r))
-}.
-
-Lemma preg_val:
-  forall ms sp rs r,
-  agree ms sp rs -> Val.lessdef (ms r) rs#(preg_of r).
-Proof.
-  intros. destruct H. auto.
-Qed.
-
-Lemma preg_vals:
-  forall ms sp rs, agree ms sp rs ->
-  forall l, Val.lessdef_list (map ms l) (map rs (map preg_of l)).
-Proof.
-  induction l; simpl. constructor. constructor. eapply preg_val; eauto. auto.
-Qed.
-
-Lemma ireg_val:
-  forall ms sp rs r r',
-  agree ms sp rs ->
-  ireg_of r = OK r' ->
-  Val.lessdef (ms r) rs#r'.
-Proof.
-  intros. rewrite <- (ireg_of_eq _ _ H0). eapply preg_val; eauto.
-Qed.
-
-Lemma freg_val:
-  forall ms sp rs r r',
-  agree ms sp rs ->
-  freg_of r = OK r' ->
-  Val.lessdef (ms r) (rs#r').
-Proof.
-  intros. rewrite <- (freg_of_eq _ _ H0). eapply preg_val; eauto.
-Qed.
-
-Lemma sp_val:
-  forall ms sp rs,
-  agree ms sp rs ->
-  sp = rs#ESP.
-Proof.
-  intros. destruct H; auto.
-Qed.
-
-Hint Resolve preg_val ireg_val freg_val sp_val: ppcgen.
-
-Definition important_preg (r: preg) : bool :=
-  match r with
-  | PC => false
-  | IR _ => true
-  | FR _ => true
-  | ST0 => true
-  | CR _ => false
-  | RA => false
-  end.
-
-Lemma preg_of_important:
-  forall r, important_preg (preg_of r) = true.
-Proof.
-  intros. destruct r; reflexivity.
-Qed.
-
-Lemma important_diff:
-  forall r r',
-  important_preg r = true -> important_preg r' = false -> r <> r'.
-Proof.
-  congruence.
-Qed.
-Hint Resolve important_diff: ppcgen.
-
-Lemma agree_exten:
-  forall ms sp rs rs',
-  agree ms sp rs ->
-  (forall r, important_preg r = true -> rs'#r = rs#r) ->
-  agree ms sp rs'.
-Proof.
-  intros. destruct H. split. 
-  rewrite H0; auto. auto.
-  intros. rewrite H0; auto. apply preg_of_important.
-Qed.
-
-(** Preservation of register agreement under various assignments. *)
-
-Lemma agree_set_mreg:
-  forall ms sp rs r v rs',
-  agree ms sp rs ->
-  Val.lessdef v (rs'#(preg_of r)) ->
-  (forall r', important_preg r' = true -> r' <> preg_of r -> rs'#r' = rs#r') ->
-  agree (Regmap.set r v ms) sp rs'.
-Proof.
-  intros. destruct H. split.
-  rewrite H1; auto. apply sym_not_equal. apply preg_of_not_ESP.
-  auto.
-  intros. unfold Regmap.set. destruct (RegEq.eq r0 r). congruence. 
-  rewrite H1. auto. apply preg_of_important.
-  red; intros; elim n. eapply preg_of_injective; eauto.
-Qed.
-
-Lemma agree_set_other:
-  forall ms sp rs r v,
-  agree ms sp rs ->
-  important_preg r = false ->
-  agree ms sp (rs#r <- v).
-Proof.
-  intros. apply agree_exten with rs. auto.
-  intros. apply Pregmap.gso. congruence.
-Qed.
-
-Lemma agree_nextinstr:
-  forall ms sp rs,
-  agree ms sp rs -> agree ms sp (nextinstr rs).
-Proof.
-  intros. unfold nextinstr. apply agree_set_other. auto. auto.
-Qed.
-
-Lemma agree_undef_unimportant_regs:
-  forall ms sp rl rs,
-  agree ms sp rs ->
-  (forall r, In r rl -> important_preg r = false) ->
-  agree ms sp (undef_regs rl rs).
-Proof.
-  induction rl; simpl; intros. auto.
-  apply IHrl. apply agree_exten with rs; auto.
-  intros. apply Pregmap.gso. red; intros; subst.
-  assert (important_preg a = false) by auto. congruence.
-  intros. apply H0; auto.
-Qed.
-
 Lemma agree_nextinstr_nf:
   forall ms sp rs,
   agree ms sp rs -> agree ms sp (nextinstr_nf rs).
 Proof.
   intros. unfold nextinstr_nf. apply agree_nextinstr. 
-  apply agree_undef_unimportant_regs. auto.
-  intro. simpl. ElimOrEq; auto.
-Qed.
-
-Definition nontemp_preg (r: preg) : bool :=
-  match r with
-  | PC => false
-  | IR ECX => false
-  | IR EDX => false
-  | IR _ => true
-  | FR XMM6 => false
-  | FR XMM7 => false
-  | FR _ => true
-  | ST0 => false
-  | CR _ => false
-  | RA => false
-  end.
-
-Lemma nontemp_diff:
-  forall r r',
-  nontemp_preg r = true -> nontemp_preg r' = false -> r <> r'.
-Proof.
-  congruence.
-Qed.
-
-Hint Resolve nontemp_diff: ppcgen.
-
-Lemma agree_exten_temps:
-  forall ms sp rs rs',
-  agree ms sp rs ->
-  (forall r, nontemp_preg r = true -> rs'#r = rs#r) ->
-  agree (undef_temps ms) sp rs'.
-Proof.
-  intros. destruct H. split. 
-  rewrite H0; auto. auto. 
-  intros. unfold undef_temps. 
-  destruct (In_dec mreg_eq r temporary_regs).
-  rewrite Mach.undef_regs_same; auto. 
-  rewrite Mach.undef_regs_other; auto. rewrite H0; auto.
-  simpl in n. destruct r; auto; intuition.
+  apply agree_undef_regs. auto.
+  intro. simpl. ElimOrEq; auto. 
 Qed.
 
 Lemma agree_undef_move:
   forall ms sp rs rs',
   agree ms sp rs ->
-  (forall r, important_preg r = true -> r <> ST0 -> rs'#r = rs#r) ->
+  (forall r, data_preg r = true -> r <> ST0 -> rs'#r = rs#r) ->
   agree (undef_move ms) sp rs'.
 Proof.
   intros. destruct H. split. 
@@ -258,30 +54,16 @@ Proof.
   destruct (In_dec mreg_eq r destroyed_at_move_regs).
   rewrite Mach.undef_regs_same; auto. 
   rewrite Mach.undef_regs_other; auto.
-  assert (important_preg (preg_of r) = true /\ preg_of r <> ST0).
+  assert (data_preg (preg_of r) = true /\ preg_of r <> ST0).
     simpl in n. destruct r; simpl; auto; intuition congruence.
   destruct H. rewrite H0; auto.
 Qed.
 
-Lemma agree_set_undef_mreg:
-  forall ms sp rs r v rs',
-  agree ms sp rs ->
-  Val.lessdef v (rs'#(preg_of r)) ->
-  (forall r', nontemp_preg r' = true -> r' <> preg_of r -> rs'#r' = rs#r') ->
-  agree (Regmap.set r v (undef_temps ms)) sp rs'.
-Proof.
-  intros. apply agree_set_mreg with (rs'#(preg_of r) <- (rs#(preg_of r))); auto.
-  eapply agree_exten_temps; eauto. 
-  intros. unfold Pregmap.set. destruct (PregEq.eq r0 (preg_of r)). 
-  congruence. auto. 
-  intros. rewrite Pregmap.gso; auto. 
-Qed.
-
 Lemma agree_set_undef_move_mreg:
   forall ms sp rs r v rs',
   agree ms sp rs ->
   Val.lessdef v (rs'#(preg_of r)) ->
-  (forall r', important_preg r' = true /\ r' <> ST0 -> r' <> preg_of r -> rs'#r' = rs#r') ->
+  (forall r', data_preg r' = true /\ r' <> ST0 -> r' <> preg_of r -> rs'#r' = rs#r') ->
   agree (Regmap.set r v (undef_move ms)) sp rs'.
 Proof.
   intros. apply agree_set_mreg with (rs'#(preg_of r) <- (rs#(preg_of r))); auto.
@@ -293,30 +75,6 @@ Qed.
 
 (** Useful properties of the PC register. *)
 
-Lemma nextinstr_inv:
-  forall r rs,
-  r <> PC ->
-  (nextinstr rs)#r = rs#r.
-Proof.
-  intros. unfold nextinstr. apply Pregmap.gso. red; intro; subst. auto.
-Qed.
-
-Lemma nextinstr_inv2:
-  forall r rs,
-  nontemp_preg r = true ->
-  (nextinstr rs)#r = rs#r.
-Proof.
-  intros. apply nextinstr_inv. red; intro; subst; discriminate.
-Qed.
-
-Lemma nextinstr_set_preg:
-  forall rs m v,
-  (nextinstr (rs#(preg_of m) <- v))#PC = Val.add rs#PC Vone.
-Proof.
-  intros. unfold nextinstr. rewrite Pregmap.gss. 
-  rewrite Pregmap.gso. auto. apply sym_not_eq. apply preg_of_not_PC. 
-Qed.
-
 Lemma nextinstr_nf_inv:
   forall r rs, 
   match r with PC => False | CR _ => False | _ => True end ->
@@ -333,18 +91,16 @@ Qed.
 
 Lemma nextinstr_nf_inv1:
   forall r rs,
-  important_preg r = true -> (nextinstr_nf rs)#r = rs#r.
+  data_preg r = true -> (nextinstr_nf rs)#r = rs#r.
 Proof.
-  intros. apply nextinstr_nf_inv. unfold important_preg in H. 
-  destruct r; auto; congruence.
+  intros. apply nextinstr_nf_inv. destruct r; auto || discriminate.
 Qed.
 
 Lemma nextinstr_nf_inv2:
   forall r rs, 
   nontemp_preg r = true -> (nextinstr_nf rs)#r = rs#r.
 Proof.
-  intros. apply nextinstr_nf_inv. unfold nontemp_preg in H. 
-  destruct r; auto; congruence.
+  intros. apply nextinstr_nf_inv1; auto with asmgen.
 Qed.
 
 Lemma nextinstr_nf_set_preg:
@@ -356,210 +112,70 @@ Proof.
   apply nextinstr_set_preg.
 Qed.
 
-(** Connection between Mach and Asm calling conventions for external
-    functions. *)
-
-Lemma extcall_arg_match:
-  forall ms sp rs m m' l v,
-  agree ms sp rs ->
-  Machsem.extcall_arg ms m sp l v ->
-  Mem.extends m m' ->
-  exists v', Asm.extcall_arg rs m' l v' /\ Val.lessdef v v'.
-Proof.
-  intros. inv H0.
-  exists (rs#(preg_of r)); split. constructor. eauto with ppcgen.
-  unfold load_stack in H2. 
-  exploit Mem.loadv_extends; eauto. intros [v' [A B]].
-  rewrite (sp_val _ _ _ H) in A. 
-  exists v'; split; auto. destruct ty; econstructor; eauto.
-Qed.
-
-Lemma extcall_args_match:
-  forall ms sp rs m m', agree ms sp rs -> Mem.extends m m' ->
-  forall ll vl,
-  list_forall2 (Machsem.extcall_arg ms m sp) ll vl ->
-  exists vl', list_forall2 (Asm.extcall_arg rs m') ll vl' /\ Val.lessdef_list vl vl'.
-Proof.
-  induction 3.
-  exists (@nil val); split; constructor.
-  exploit extcall_arg_match; eauto. intros [v1' [A B]].
-  destruct IHlist_forall2 as [vl' [C D]].
-  exists(v1' :: vl'); split. constructor; auto. constructor; auto.
-Qed.
-
-Lemma extcall_arguments_match:
-  forall ms m sp rs sg args m',
-  agree ms sp rs ->
-  Machsem.extcall_arguments ms m sp sg args ->
-  Mem.extends m m' ->
-  exists args', Asm.extcall_arguments rs m' sg args' /\ Val.lessdef_list args args'.
-Proof.
-  unfold Machsem.extcall_arguments, Asm.extcall_arguments; intros.
-  eapply extcall_args_match; eauto.
-Qed.
-
-(** Translation of arguments to annotations. *)
+(** Useful simplification tactic *)
 
-Lemma annot_arg_match:
-  forall ms sp rs m m' p v,
-  agree ms sp rs ->
-  Mem.extends m m' ->
-  Machsem.annot_arg ms m sp p v ->
-  exists v', Asm.annot_arg rs m' (transl_annot_param p) v' /\ Val.lessdef v v'.
-Proof.
-  intros. inv H1; simpl.
-(* reg *)
-  exists (rs (preg_of r)); split. 
-  unfold preg_of. destruct (mreg_type r); constructor. 
-  eapply preg_val; eauto.
-(* stack *)
-  exploit Mem.load_extends; eauto. intros [v' [A B]].
-  exists v'; split; auto. 
-  inv H. econstructor; eauto. 
-Qed.
+Ltac Simplif :=
+  match goal with
+  | [ |- nextinstr_nf _ _ = _ ] =>
+      ((rewrite nextinstr_nf_inv by auto with asmgen)
+       || (rewrite nextinstr_nf_inv1 by auto with asmgen)); auto
+  | [ |- nextinstr _ _ = _ ] =>
+      ((rewrite nextinstr_inv by auto with asmgen)
+       || (rewrite nextinstr_inv1 by auto with asmgen)); auto
+  | [ |- Pregmap.get ?x (Pregmap.set ?x _ _) = _ ] =>
+      rewrite Pregmap.gss; auto
+  | [ |- Pregmap.set ?x _ _ ?x = _ ] =>
+      rewrite Pregmap.gss; auto
+  | [ |- Pregmap.get _ (Pregmap.set _ _ _) = _ ] =>
+      rewrite Pregmap.gso by (auto with asmgen); auto
+  | [ |- Pregmap.set _ _ _ _ = _ ] =>
+      rewrite Pregmap.gso by (auto with asmgen); auto
+  end.
 
-Lemma annot_arguments_match:
-  forall ms sp rs m m', agree ms sp rs -> Mem.extends m m' ->
-  forall pl vl,
-  Machsem.annot_arguments ms m sp pl vl ->
-  exists vl', Asm.annot_arguments rs m' (map transl_annot_param pl) vl'
-           /\ Val.lessdef_list vl vl'.
-Proof.
-  induction 3; intros. 
-  exists (@nil val); split. constructor. constructor.
-  exploit annot_arg_match; eauto. intros [v1' [A B]].
-  destruct IHlist_forall2 as [vl' [C D]].
-  exists (v1' :: vl'); split; constructor; auto.
-Qed.
+Ltac Simplifs := repeat Simplif.
 
-(** * Execution of straight-line code *)
+(** * Correctness of IA32 constructor functions *)
 
-Section STRAIGHTLINE.
+Section CONSTRUCTORS.
 
 Variable ge: genv.
 Variable fn: code.
 
-(** Straight-line code is composed of processor instructions that execute
-  in sequence (no branches, no function calls and returns).
-  The following inductive predicate relates the machine states
-  before and after executing a straight-line sequence of instructions.
-  Instructions are taken from the first list instead of being fetched
-  from memory. *)
-
-Inductive exec_straight: code -> regset -> mem -> 
-                         code -> regset -> mem -> Prop :=
-  | exec_straight_one:
-      forall i1 c rs1 m1 rs2 m2,
-      exec_instr ge fn i1 rs1 m1 = Next rs2 m2 ->
-      rs2#PC = Val.add rs1#PC Vone ->
-      exec_straight (i1 :: c) rs1 m1 c rs2 m2
-  | exec_straight_step:
-      forall i c rs1 m1 rs2 m2 c' rs3 m3,
-      exec_instr ge fn i rs1 m1 = Next rs2 m2 ->
-      rs2#PC = Val.add rs1#PC Vone ->
-      exec_straight c rs2 m2 c' rs3 m3 ->
-      exec_straight (i :: c) rs1 m1 c' rs3 m3.
-
-Lemma exec_straight_trans:
-  forall c1 rs1 m1 c2 rs2 m2 c3 rs3 m3,
-  exec_straight c1 rs1 m1 c2 rs2 m2 ->
-  exec_straight c2 rs2 m2 c3 rs3 m3 ->
-  exec_straight c1 rs1 m1 c3 rs3 m3.
-Proof.
-  induction 1; intros.
-  apply exec_straight_step with rs2 m2; auto.
-  apply exec_straight_step with rs2 m2; auto.
-Qed.
-
-Lemma exec_straight_two:
-  forall i1 i2 c rs1 m1 rs2 m2 rs3 m3,
-  exec_instr ge fn i1 rs1 m1 = Next rs2 m2 ->
-  exec_instr ge fn i2 rs2 m2 = Next rs3 m3 ->
-  rs2#PC = Val.add rs1#PC Vone ->
-  rs3#PC = Val.add rs2#PC Vone ->
-  exec_straight (i1 :: i2 :: c) rs1 m1 c rs3 m3.
-Proof.
-  intros. apply exec_straight_step with rs2 m2; auto.
-  apply exec_straight_one; auto.
-Qed.
-
-Lemma exec_straight_three:
-  forall i1 i2 i3 c rs1 m1 rs2 m2 rs3 m3 rs4 m4,
-  exec_instr ge fn i1 rs1 m1 = Next rs2 m2 ->
-  exec_instr ge fn i2 rs2 m2 = Next rs3 m3 ->
-  exec_instr ge fn i3 rs3 m3 = Next rs4 m4 ->
-  rs2#PC = Val.add rs1#PC Vone ->
-  rs3#PC = Val.add rs2#PC Vone ->
-  rs4#PC = Val.add rs3#PC Vone ->
-  exec_straight (i1 :: i2 :: i3 :: c) rs1 m1 c rs4 m4.
-Proof.
-  intros. apply exec_straight_step with rs2 m2; auto.
-  eapply exec_straight_two; eauto.
-Qed.
-
-(** * Correctness of IA32 constructor functions *)
-
 (** Smart constructor for moves. *)
 
 Lemma mk_mov_correct:
   forall rd rs k c rs1 m,
   mk_mov rd rs k = OK c ->
   exists rs2,
-     exec_straight c rs1 m k rs2 m
+     exec_straight ge fn c rs1 m k rs2 m
   /\ rs2#rd = rs1#rs
-  /\ forall r, important_preg r = true -> r <> ST0 -> r <> rd -> rs2#r = rs1#r.
+  /\ forall r, data_preg r = true -> r <> ST0 -> r <> rd -> rs2#r = rs1#r.
 Proof.
   unfold mk_mov; intros. 
   destruct rd; try (monadInv H); destruct rs; monadInv H.
 (* mov *)
   econstructor. split. apply exec_straight_one. simpl. eauto. auto. 
-  split. rewrite nextinstr_inv; auto with ppcgen. apply Pregmap.gss.
-  intros. rewrite nextinstr_inv; auto with ppcgen. apply Pregmap.gso. auto. 
+  split. Simplifs. intros; Simplifs. 
 (* movd *)
   econstructor. split. apply exec_straight_one. simpl. eauto. auto. 
-  split. rewrite nextinstr_inv; auto with ppcgen. apply Pregmap.gss.
-  intros. rewrite nextinstr_inv; auto with ppcgen. apply Pregmap.gso. auto. 
+  split. Simplifs. intros; Simplifs.
 (* getfp0 *)
   econstructor. split. apply exec_straight_one. simpl. eauto. auto. 
-  split. rewrite nextinstr_inv; auto with ppcgen. 
-  rewrite Pregmap.gso; auto with ppcgen.
-  apply Pregmap.gss.
-  intros. rewrite nextinstr_inv; auto with ppcgen. rewrite Pregmap.gso; auto. rewrite Pregmap.gso; auto.
+  split. Simplifs. intros; Simplifs.
 (* setfp0 *)
   econstructor. split. apply exec_straight_one. simpl. eauto. auto. 
-  split. auto. 
-  intros. rewrite nextinstr_inv; auto with ppcgen. apply Pregmap.gso. auto. 
+  split. Simplifs. intros; Simplifs.
 Qed.
 
 (** Smart constructor for shifts *)
 
-Ltac SRes :=
-  match goal with
-  | [ |- nextinstr _ _ = _ ] => rewrite nextinstr_inv; [auto | auto with ppcgen]
-  | [ |- nextinstr_nf _ _ = _ ] => rewrite nextinstr_nf_inv; [auto | auto with ppcgen]
-  | [ |- Pregmap.get ?x (Pregmap.set ?x _ _) = _ ] => rewrite Pregmap.gss; auto
-  | [ |- Pregmap.set ?x _ _ ?x = _ ] => rewrite Pregmap.gss; auto
-  | [ |- Pregmap.get _ (Pregmap.set _ _ _) = _ ] => rewrite Pregmap.gso; [auto | auto with ppcgen]
-  | [ |- Pregmap.set _ _ _ _ = _ ] => rewrite Pregmap.gso; [auto | auto with ppcgen]
-  end.
-
-Ltac SOther :=
-  match goal with
-  | [ |- nextinstr _ _ = _ ] => rewrite nextinstr_inv; [auto | auto with ppcgen]
-  | [ |- nextinstr_nf _ _ = _ ] => rewrite nextinstr_nf_inv2; [auto | auto with ppcgen]
-  | [ |- Pregmap.get ?x (Pregmap.set ?x _ _) = _ ] => rewrite Pregmap.gss; auto
-  | [ |- Pregmap.set ?x _ _ ?x = _ ] => rewrite Pregmap.gss; auto
-  | [ |- Pregmap.get _ (Pregmap.set _ _ _) = _ ] => rewrite Pregmap.gso; [auto | auto with ppcgen]
-  | [ |- Pregmap.set _ _ _ _ = _ ] => rewrite Pregmap.gso; [auto | auto with ppcgen]
-  end.
-
 Lemma mk_shift_correct:
   forall sinstr ssem r1 r2 k c rs1 m,
   mk_shift sinstr r1 r2 k = OK c ->
   (forall r c rs m,
    exec_instr ge c (sinstr r) rs m = Next (nextinstr_nf (rs#r <- (ssem rs#r rs#ECX))) m) ->
   exists rs2,
-     exec_straight c rs1 m k rs2 m
+     exec_straight ge fn c rs1 m k rs2 m
   /\ rs2#r1 = ssem rs1#r1 rs1#r2
   /\ forall r, nontemp_preg r = true -> r <> r1 -> rs2#r = rs1#r.
 Proof.
@@ -568,8 +184,7 @@ Proof.
 (* fast case *)
   monadInv H.
   econstructor. split. apply exec_straight_one. apply H0. auto. 
-  split. repeat SRes.
-  intros. repeat SOther.
+  split. Simplifs. intros; Simplifs.
 (* xchg case *)
   destruct (ireg_eq r1 ECX); monadInv H. 
   econstructor. split. eapply exec_straight_three.
@@ -577,15 +192,12 @@ Proof.
   apply H0.
   simpl; eauto.
   auto. auto. auto. 
-  split. repeat SRes. repeat rewrite nextinstr_inv; auto with ppcgen. 
-  rewrite Pregmap.gss. decEq. rewrite Pregmap.gso; auto with ppcgen. apply Pregmap.gss.
-  intros. destruct (preg_eq r r2). subst. repeat SRes. repeat SOther.
+  split. Simplifs. f_equal. Simplifs.
+  intros; Simplifs. destruct (preg_eq r r2). subst r. Simplifs. Simplifs.
 (* general case *)
   econstructor. split. eapply exec_straight_two. simpl; eauto. apply H0. 
   auto. auto. 
-  split. repeat SRes. repeat rewrite nextinstr_inv; auto with ppcgen.
-  rewrite Pregmap.gss. decEq. rewrite Pregmap.gso; auto. congruence.
-  intros. repeat SOther.
+  split. Simplifs. f_equal. Simplifs. intros. Simplifs. 
 Qed.
 
 (** Parallel move 2 *)
@@ -594,7 +206,7 @@ Lemma mk_mov2_correct:
   forall src1 dst1 src2 dst2 k rs m,
   dst1 <> dst2 ->
   exists rs',
-     exec_straight (mk_mov2 src1 dst1 src2 dst2 k) rs m k rs' m
+     exec_straight ge fn (mk_mov2 src1 dst1 src2 dst2 k) rs m k rs' m
   /\ rs'#dst1 = rs#src1
   /\ rs'#dst2 = rs#src2
   /\ forall r, r <> PC -> r <> dst1 -> r <> dst2 -> rs'#r = rs#r.
@@ -603,22 +215,22 @@ Proof.
 (* single moves *)
   destruct (ireg_eq src1 dst1). subst.
   econstructor; split. apply exec_straight_one. simpl; eauto. auto.
-  split. repeat SRes. split. repeat SRes. intros; repeat SOther. 
+  intuition Simplifs.
   destruct (ireg_eq src2 dst2). subst.
   econstructor; split. apply exec_straight_one. simpl; eauto. auto.
-  split. repeat SRes. split. repeat SRes. intros; repeat SOther. 
+  intuition Simplifs.
 (* xchg *)
   destruct (ireg_eq src2 dst1). destruct (ireg_eq src1 dst2).
   subst. econstructor; split. apply exec_straight_one. simpl; eauto. auto.
-  split. repeat SRes. split. repeat SRes. intros; repeat SOther.
+  intuition Simplifs.
 (* move 2; move 1 *)
   subst. econstructor; split. eapply exec_straight_two.
   simpl; eauto. simpl; eauto. auto. auto.
-  split. repeat SRes. split. repeat SRes. intros; repeat SOther.
+  intuition Simplifs.
 (* move 1; move 2*)
   subst. econstructor; split. eapply exec_straight_two.
   simpl; eauto. simpl; eauto. auto. auto.
-  split. repeat SRes. split. repeat SRes. intros; repeat SOther.
+  intuition Simplifs.
 Qed.
 
 (** Smart constructor for division *)
@@ -636,7 +248,7 @@ Lemma mk_div_correct:
   dsem rs1#r1 rs1#r2 = Some vq ->
   msem rs1#r1 rs1#r2 = Some vr ->
   exists rs2,
-     exec_straight c rs1 m k rs2 m
+     exec_straight ge fn c rs1 m k rs2 m
   /\ rs2#r1 = vq
   /\ forall r, nontemp_preg r = true -> r <> r1 -> rs2#r = rs1#r.
 Proof.
@@ -647,15 +259,13 @@ Proof.
   rewrite H0.
   change (nextinstr rs1 # ECX <- (rs1 EDX) EAX) with (rs1#EAX). 
   change ((nextinstr rs1 # ECX <- (rs1 EDX)) # EDX <- Vundef ECX) with (rs1#EDX).
-  rewrite H1. rewrite H2. eauto. auto. auto. 
-  split. SRes. 
-  intros. repeat SOther.
+  rewrite H1. rewrite H2. eauto. auto. auto.
+  intuition Simplifs.
 (* r1=EAX r2<>EDX *)
   econstructor. split. eapply exec_straight_one. rewrite H0. 
   replace (rs1 # EDX <- Vundef r2) with (rs1 r2). rewrite H1; rewrite H2. eauto. 
-  symmetry. SOther. auto.
-  split. SRes.
-  intros. repeat SOther. 
+  symmetry. Simplifs. auto. 
+  intuition Simplifs.
 (* r1 <> EAX *)
   monadInv H.
   set (rs2 := nextinstr (rs1#XMM7 <- (rs1#EAX))).
@@ -669,10 +279,10 @@ Proof.
   rewrite H1; rewrite H2. eauto.  
   simpl; eauto. simpl; eauto.
   auto. auto. auto. 
-  split. repeat SRes.
+  split. Simplifs. 
   intros. destruct (preg_eq r EAX). subst.
-  repeat SRes. rewrite D; auto with ppcgen. 
-  repeat SOther. rewrite D; auto with ppcgen. unfold rs2; repeat SOther.
+  Simplifs. rewrite D; auto with asmgen. 
+  Simplifs. rewrite D; auto with asmgen. unfold rs2; Simplifs.
 Qed.
 
 (** Smart constructor for modulus *)
@@ -690,7 +300,7 @@ Lemma mk_mod_correct:
   dsem rs1#r1 rs1#r2 = Some vq ->
   msem rs1#r1 rs1#r2 = Some vr ->
   exists rs2,
-     exec_straight c rs1 m k rs2 m
+     exec_straight ge fn c rs1 m k rs2 m
   /\ rs2#r1 = vr
   /\ forall r, nontemp_preg r = true -> r <> r1 -> rs2#r = rs1#r.
 Proof.
@@ -705,16 +315,14 @@ Proof.
   rewrite H1. rewrite H2. eauto.
   simpl; eauto.
   auto. auto. auto. 
-  split. SRes. 
-  intros. repeat SOther.
+  intuition Simplifs.
 (* r1=EAX r2<>EDX *)
   econstructor. split. eapply exec_straight_two. rewrite H0. 
   replace (rs1 # EDX <- Vundef r2) with (rs1 r2). rewrite H1; rewrite H2. eauto. 
-  symmetry. SOther. 
+  symmetry. Simplifs.
   simpl; eauto. 
-  auto. auto. 
-  split. SRes.
-  intros. repeat SOther. 
+  auto. auto.
+  intuition Simplifs.
 (* r1 <> EAX *)
   monadInv H.
   set (rs2 := nextinstr (rs1#XMM7 <- (rs1#EAX))).
@@ -728,10 +336,10 @@ Proof.
   rewrite H1; rewrite H2. eauto.  
   simpl; eauto. simpl; eauto.
   auto. auto. auto. 
-  split. repeat SRes.
+  split. Simplifs. 
   intros. destruct (preg_eq r EAX). subst.
-  repeat SRes. rewrite D; auto with ppcgen. 
-  repeat SOther. rewrite D; auto with ppcgen. unfold rs2; repeat SOther.
+  Simplifs. rewrite D; auto with asmgen.
+  Simplifs. rewrite D; auto with asmgen. unfold rs2; Simplifs.
 Qed.
 
 Remark divs_mods_exist:
@@ -765,7 +373,7 @@ Lemma mk_shrximm_correct:
   mk_shrximm r1 n k = OK c ->
   Val.shrx (rs1#r1) (Vint n) = Some v ->
   exists rs2,
-     exec_straight c rs1 m k rs2 m
+     exec_straight ge fn c rs1 m k rs2 m
   /\ rs2#r1 = v
   /\ forall r, nontemp_preg r = true -> r <> r1 -> rs2#r = rs1#r.
 Proof.
@@ -781,25 +389,26 @@ Proof.
   set (rs3 := nextinstr (rs2#tmp <- (Vint x'))).
   set (rs4 := nextinstr (if Int.lt x Int.zero then rs3#r1 <- (Vint x') else rs3)).
   set (rs5 := nextinstr_nf (rs4#r1 <- (Val.shr rs4#r1 (Vint n)))).
-  assert (rs3#r1 = Vint x). unfold rs3. SRes. SRes. 
-  assert (rs3#tmp = Vint x'). unfold rs3. SRes. SRes. 
+  assert (rs3#r1 = Vint x). unfold rs3. Simplifs. 
+  assert (rs3#tmp = Vint x'). unfold rs3. Simplifs. 
   exists rs5. split. 
   apply exec_straight_step with rs2 m. simpl. rewrite A. simpl. rewrite Int.and_idem. auto. auto.
   apply exec_straight_step with rs3 m. simpl. 
   change (rs2 r1) with (rs1 r1). rewrite A. simpl. 
   rewrite (Int.add_commut Int.zero tnm1). rewrite Int.add_zero. auto. auto.
   apply exec_straight_step with rs4 m. simpl. 
-  change (rs3 SOF) with (rs2 SOF). unfold rs2. rewrite nextinstr_inv; auto with ppcgen. 
-  unfold compare_ints. rewrite Pregmap.gso; auto with ppcgen. rewrite Pregmap.gss.
+  change (rs3 SOF) with (rs2 SOF). unfold rs2. rewrite nextinstr_inv; auto with asmgen. 
+  unfold compare_ints. rewrite Pregmap.gso; auto with asmgen. rewrite Pregmap.gss.
   unfold Val.cmp. simpl. unfold rs4. destruct (Int.lt x Int.zero); simpl; auto. rewrite H0; auto.
   unfold rs4. destruct (Int.lt x Int.zero); simpl; auto.
   apply exec_straight_one. auto. auto.
-  split. unfold rs5. SRes. SRes. unfold rs4. rewrite nextinstr_inv; auto with ppcgen.
-  destruct (Int.lt x Int.zero). rewrite Pregmap.gss. rewrite A; auto. rewrite A; rewrite H; auto.
-  intros. unfold rs5. repeat SOther. unfold rs4. SOther.
-  transitivity (rs3#r). destruct (Int.lt x Int.zero). SOther. auto. 
-  unfold rs3. repeat SOther. unfold rs2. repeat SOther. 
-  unfold compare_ints. repeat SOther. 
+  split. unfold rs5. Simplifs. unfold rs4. Simplifs.
+  f_equal. destruct (Int.lt x Int.zero).
+  Simplifs. rewrite A. auto. Simplifs. congruence. 
+  intros. unfold rs5; Simplifs. unfold rs4; Simplifs. 
+  transitivity (rs3#r).
+  destruct (Int.lt x Int.zero). Simplifs. auto. 
+  unfold rs3; Simplifs. unfold rs2; Simplifs. unfold compare_ints; Simplifs.
 Qed.
 
 (** Smart constructor for integer conversions *)
@@ -810,18 +419,16 @@ Lemma mk_intconv_correct:
   (forall c rd rs r m,
    exec_instr ge c (mk rd rs) r m = Next (nextinstr (r#rd <- (sem r#rs))) m) ->
   exists rs2,
-     exec_straight c rs1 m k rs2 m
+     exec_straight ge fn c rs1 m k rs2 m
   /\ rs2#rd = sem rs1#rs
   /\ forall r, nontemp_preg r = true -> r <> rd -> rs2#r = rs1#r.
 Proof.
   unfold mk_intconv; intros. destruct (low_ireg rs); monadInv H.
   econstructor. split. apply exec_straight_one. rewrite H0. eauto. auto. 
-  split. repeat SRes.
-  intros. repeat SOther.
+  intuition Simplifs.
   econstructor. split. eapply exec_straight_two. 
-  simpl. eauto. apply H0. auto. auto. 
-  split. repeat SRes. 
-  intros. repeat SOther. 
+  simpl. eauto. apply H0. auto. auto.
+  intuition Simplifs.
 Qed.
 
 (** Smart constructor for small stores *)
@@ -845,15 +452,15 @@ Lemma mk_smallstore_correct:
   (forall c r addr rs m,
    exec_instr ge c (sto addr r) rs m = exec_store ge chunk m addr rs r) ->
   exists rs2,
-     exec_straight c rs1 m1 k rs2 m2
+     exec_straight ge fn c rs1 m1 k rs2 m2
   /\ forall r, nontemp_preg r = true -> rs2#r = rs1#r.
 Proof.
   unfold mk_smallstore; intros. 
   remember (low_ireg r) as low. destruct low.
 (* low reg *)
   monadInv H. econstructor; split. apply exec_straight_one. rewrite H1. 
-  unfold exec_store. rewrite H0. eauto. auto. 
-  intros. SOther.
+  unfold exec_store. rewrite H0. eauto. auto.
+  intros; Simplifs.
 (* high reg *)
    remember (addressing_mentions addr ECX) as mentions. destruct mentions; monadInv H.
 (* ECX is mentioned. *)
@@ -863,7 +470,7 @@ Proof.
   econstructor; split.
   apply exec_straight_three with rs2 m1 rs3 m1. 
   simpl. auto. 
-  simpl. replace (rs2 r) with (rs1 r). auto. symmetry. unfold rs2. repeat SRes. 
+  simpl. replace (rs2 r) with (rs1 r). auto. symmetry. unfold rs2; Simplifs. 
   rewrite H1. unfold exec_store. simpl. rewrite Int.add_zero. 
   change (rs3 EDX) with (rs1 r).
   change (rs3 ECX) with (eval_addrmode ge addr rs1).
@@ -873,7 +480,7 @@ Proof.
   destruct (eval_addrmode ge addr rs1); simpl in H0; try discriminate.
   simpl. rewrite Int.add_zero; auto. 
   auto. auto. auto. 
-  intros. repeat SOther. unfold rs3. repeat SOther. unfold rs2. repeat SOther.
+  intros. Simplifs. unfold rs3; Simplifs. unfold rs2; Simplifs. 
 (* ECX is not mentioned *)
   set (rs2 := nextinstr (rs1#ECX <- (rs1 r))).
   econstructor; split.
@@ -882,9 +489,9 @@ Proof.
   rewrite H1. unfold exec_store. 
   rewrite (addressing_mentions_correct addr ECX rs2 rs1); auto.
   change (rs2 ECX) with (rs1 r). rewrite H0. eauto. 
-  intros. unfold rs2. rewrite nextinstr_inv; auto with ppcgen. apply Pregmap.gso; auto with ppcgen.
-  auto. auto. 
-  intros. rewrite dec_eq_false. repeat SOther. unfold rs2. repeat SOther. congruence.
+  intros. unfold rs2; Simplifs.
+  auto. auto.
+  intros. rewrite dec_eq_false. Simplifs. unfold rs2; Simplifs. congruence.
 Qed.
 
 (** Accessing slots in the stack frame *)
@@ -894,9 +501,9 @@ Lemma loadind_correct:
   loadind base ofs ty dst k = OK c ->
   Mem.loadv (chunk_of_type ty) m (Val.add rs#base (Vint ofs)) = Some v ->
   exists rs',
-     exec_straight c rs m k rs' m
+     exec_straight ge fn c rs m k rs' m
   /\ rs'#(preg_of dst) = v
-  /\ forall r, important_preg r = true -> r <> preg_of dst -> rs'#r = rs#r.
+  /\ forall r, data_preg r = true -> r <> preg_of dst -> rs'#r = rs#r.
 Proof.
   unfold loadind; intros.
   set (addr := Addrmode (Some base) None (inl (ident * int) ofs)) in *.
@@ -907,16 +514,14 @@ Proof.
   monadInv H.
   rewrite (ireg_of_eq _ _ EQ). econstructor.
   split. apply exec_straight_one. simpl. unfold exec_load. rewrite H1. rewrite H0.
-  eauto. auto. 
-  split. repeat SRes. 
-  intros. rewrite nextinstr_nf_inv1; auto. SOther.
+  eauto. auto.
+  intuition Simplifs.
   (* float *)
   exists (nextinstr_nf (rs#(preg_of dst) <- v)).
   split. destruct (preg_of dst); inv H; apply exec_straight_one; simpl; auto.
   unfold exec_load. rewrite H1; rewrite H0; auto. 
-  unfold exec_load. rewrite H1; rewrite H0; auto. 
-  split. rewrite nextinstr_nf_inv1. SRes. apply preg_of_important.
-  intros. rewrite nextinstr_nf_inv1; auto. SOther.
+  unfold exec_load. rewrite H1; rewrite H0; auto.
+  intuition Simplifs.
 Qed.
 
 Lemma storeind_correct:
@@ -924,8 +529,8 @@ Lemma storeind_correct:
   storeind src base ofs ty k = OK c ->
   Mem.storev (chunk_of_type ty) m (Val.add rs#base (Vint ofs)) (rs#(preg_of src)) = Some m' ->
   exists rs',
-     exec_straight c rs m k rs' m'
-  /\ forall r, important_preg r = true -> r <> ST0 -> rs'#r = rs#r.
+     exec_straight ge fn c rs m k rs' m'
+  /\ forall r, data_preg r = true -> r <> ST0 -> rs'#r = rs#r.
 Proof.
   unfold storeind; intros.
   set (addr := Addrmode (Some base) None (inl (ident * int) ofs)) in *.
@@ -937,7 +542,7 @@ Proof.
   rewrite (ireg_of_eq _ _ EQ) in H0. econstructor.
   split. apply exec_straight_one. simpl. unfold exec_store. rewrite H1. rewrite H0.
   eauto. auto. 
-  intros. apply nextinstr_nf_inv1; auto. 
+  intros; Simplifs.
   (* float *)
   destruct (preg_of src); inv H.
   econstructor; split. apply exec_straight_one.
@@ -945,7 +550,7 @@ Proof.
   intros. apply nextinstr_nf_inv1; auto.
   econstructor; split. apply exec_straight_one.
   simpl. unfold exec_store. rewrite H1; rewrite H0. eauto. auto.
-  intros. rewrite nextinstr_nf_inv1; auto. rewrite dec_eq_true. apply Pregmap.gso; auto.
+  intros. Simplifs. rewrite dec_eq_true. Simplifs. 
 Qed.
 
 (** Translation of addressing modes *)
@@ -1010,7 +615,7 @@ Proof.
   split. auto. 
   split. auto.
   split. auto.
-  intros. repeat SOther. 
+  intros. Simplifs.
 Qed.
 
 Lemma int_signed_eq:
@@ -1139,7 +744,7 @@ Proof.
   split. auto. 
   split. auto.
   split. auto.
-  intros. repeat SOther. 
+  intros. Simplifs.
 Qed.
 
 Definition eval_extcond (xc: extcond) (rs: regset) : option bool :=
@@ -1158,112 +763,6 @@ Definition eval_extcond (xc: extcond) (rs: regset) : option bool :=
       end
   end.
 
-(*******
-
-Definition swap_floats {A: Type} (c: comparison) (n1 n2: A) : A :=
-  match c with
-  | Clt | Cle => n2
-  | Ceq | Cne | Cgt | Cge => n1
-  end.
-
-Lemma testcond_for_float_comparison_correct:
-  forall c v1 v2 rs b,
-  Val.cmpf_bool c v1 v2 = Some b ->
-  eval_extcond (testcond_for_condition (Ccompf c))
-               (nextinstr (compare_floats (swap_floats c v1 v2)
-                                         (swap_floats c v2 v1) rs)) = Some b.
-Proof.
-  intros. destruct v1; destruct v2; simpl in H; inv H.
-  assert (SWP: forall f1 f2, Vfloat (swap_floats c f1 f2) = swap_floats c (Vfloat f1) (Vfloat f2)).
-    destruct c; auto.
-  generalize (compare_floats_spec rs (swap_floats c f f0) (swap_floats c f0 f)).
-  repeat rewrite <- SWP.
-  set (rs' := nextinstr (compare_floats (Vfloat (swap_floats c f f0))
-                                      (Vfloat (swap_floats c f0 f)) rs)).
-  intros [A [B [C D]]].
-  unfold eval_extcond, eval_testcond. rewrite A; rewrite B; rewrite C.
-  destruct c; simpl.
-(* eq *)
-  rewrite Float.cmp_ne_eq.
-  destruct (Float.cmp Ceq f f0). auto.
-  simpl. destruct (Float.cmp Clt f f0 || Float.cmp Cgt f f0); auto.
-(* ne *)
-  rewrite Float.cmp_ne_eq.
-  destruct (Float.cmp Ceq f f0). auto.
-  simpl. destruct (Float.cmp Clt f f0 || Float.cmp Cgt f f0); auto.
-(* lt *)
-  rewrite <- (Float.cmp_swap Cge f f0).
-  rewrite <- (Float.cmp_swap Cne f f0).
-  simpl.
-  rewrite Float.cmp_ne_eq. rewrite Float.cmp_le_lt_eq.
-  caseEq (Float.cmp Clt f f0); intros; simpl.
-  caseEq (Float.cmp Ceq f f0); intros; simpl. 
-  elimtype False. eapply Float.cmp_lt_eq_false; eauto. 
-  auto. 
-  destruct (Float.cmp Ceq f f0); auto.
-(* le *)
-  rewrite <- (Float.cmp_swap Cge f f0). simpl.
-  destruct (Float.cmp Cle f f0); auto.
-(* gt *)
-  rewrite Float.cmp_ne_eq. rewrite Float.cmp_ge_gt_eq. 
-  caseEq (Float.cmp Cgt f f0); intros; simpl.
-  caseEq (Float.cmp Ceq f f0); intros; simpl. 
-  elimtype False. eapply Float.cmp_gt_eq_false; eauto. 
-  auto. 
-  destruct (Float.cmp Ceq f f0); auto.
-(* ge *)
-  destruct (Float.cmp Cge f f0); auto.
-Qed.
-
-Lemma testcond_for_neg_float_comparison_correct:
-  forall c n1 n2 rs,
-  eval_extcond (testcond_for_condition (Cnotcompf c))
-               (nextinstr (compare_floats (Vfloat (swap_floats c n1 n2))
-                                          (Vfloat (swap_floats c n2 n1)) rs)) =
-  Some(negb(Float.cmp c n1 n2)).
-Proof.
-  intros.
-  generalize (compare_floats_spec rs (swap_floats c n1 n2) (swap_floats c n2 n1)).
-  set (rs' := nextinstr (compare_floats (Vfloat (swap_floats c n1 n2))
-                                        (Vfloat (swap_floats c n2 n1)) rs)).
-  intros [A [B [C D]]].
-  unfold eval_extcond, eval_testcond. rewrite A; rewrite B; rewrite C.
-  destruct c; simpl.
-(* eq *)
-  rewrite Float.cmp_ne_eq.
-  caseEq (Float.cmp Ceq n1 n2); intros.
-  auto.
-  simpl. destruct (Float.cmp Clt n1 n2 || Float.cmp Cgt n1 n2); auto.
-(* ne *)
-  rewrite Float.cmp_ne_eq.
-  caseEq (Float.cmp Ceq n1 n2); intros.
-  auto.
-  simpl. destruct (Float.cmp Clt n1 n2 || Float.cmp Cgt n1 n2); auto.
-(* lt *)
-  rewrite <- (Float.cmp_swap Cge n1 n2).
-  rewrite <- (Float.cmp_swap Cne n1 n2).
-  simpl.
-  rewrite Float.cmp_ne_eq. rewrite Float.cmp_le_lt_eq.
-  caseEq (Float.cmp Clt n1 n2); intros; simpl.
-  caseEq (Float.cmp Ceq n1 n2); intros; simpl. 
-  elimtype False. eapply Float.cmp_lt_eq_false; eauto.
-  auto. 
-  destruct (Float.cmp Ceq n1 n2); auto.
-(* le *)
-  rewrite <- (Float.cmp_swap Cge n1 n2). simpl.
-  destruct (Float.cmp Cle n1 n2); auto.
-(* gt *)
-  rewrite Float.cmp_ne_eq. rewrite Float.cmp_ge_gt_eq. 
-  caseEq (Float.cmp Cgt n1 n2); intros; simpl.
-  caseEq (Float.cmp Ceq n1 n2); intros; simpl. 
-  elimtype False. eapply Float.cmp_gt_eq_false; eauto. 
-  auto. 
-  destruct (Float.cmp Ceq n1 n2); auto.
-(* ge *)
-  destruct (Float.cmp Cge n1 n2); auto.
-Qed.
-***************)
-
 Definition swap_floats {A: Type} (c: comparison) (n1 n2: A) : A :=
   match c with
   | Clt | Cle => n2
@@ -1379,15 +878,15 @@ Remark compare_floats_inv:
 Proof.
   intros. 
   assert (DFL: undef_regs (CR ZF :: CR CF :: CR PF :: CR SOF :: nil) rs r = rs r).
-    simpl. repeat SOther.
-  unfold compare_floats; destruct vx; destruct vy; auto. repeat SOther.
+    simpl. Simplifs. 
+  unfold compare_floats; destruct vx; destruct vy; auto. Simplifs. 
 Qed.  
 
 Lemma transl_cond_correct:
   forall cond args k c rs m,
   transl_cond cond args k = OK c ->
   exists rs',
-     exec_straight c rs m k rs' m
+     exec_straight ge fn c rs m k rs' m
   /\ match eval_condition cond (map rs (map preg_of args)) m with
      | None => True
      | Some b => eval_extcond (testcond_for_condition cond) rs' = Some b
@@ -1401,88 +900,87 @@ Proof.
   econstructor. split. apply exec_straight_one. simpl. eauto. auto.
   split. destruct (Val.cmp_bool c0 (rs x) (rs x0)) eqn:?; auto.
   eapply testcond_for_signed_comparison_correct; eauto. 
-  intros. unfold compare_ints. repeat SOther.
+  intros. unfold compare_ints. Simplifs.
 (* compu *)
   simpl. rewrite (ireg_of_eq _ _ EQ). rewrite (ireg_of_eq _ _ EQ1).
   econstructor. split. apply exec_straight_one. simpl. eauto. auto.
   split. destruct (Val.cmpu_bool (Mem.valid_pointer m) c0 (rs x) (rs x0)) eqn:?; auto.
   eapply testcond_for_unsigned_comparison_correct; eauto. 
-  intros. unfold compare_ints. repeat SOther.
+  intros. unfold compare_ints. Simplifs.
 (* compimm *)
   simpl. rewrite (ireg_of_eq _ _ EQ). destruct (Int.eq_dec i Int.zero).
   econstructor; split. apply exec_straight_one. simpl; eauto. auto. 
   split. destruct (rs x); simpl; auto. subst. rewrite Int.and_idem.
   eapply testcond_for_signed_comparison_correct; eauto. 
-  intros. unfold compare_ints. repeat SOther.
+  intros. unfold compare_ints. Simplifs.
   econstructor; split. apply exec_straight_one. simpl; eauto. auto. 
   split. destruct (Val.cmp_bool c0 (rs x) (Vint i)) eqn:?; auto.
   eapply testcond_for_signed_comparison_correct; eauto. 
-  intros. unfold compare_ints. repeat SOther.
+  intros. unfold compare_ints. Simplifs.
 (* compuimm *)
   simpl. rewrite (ireg_of_eq _ _ EQ).
   econstructor. split. apply exec_straight_one. simpl. eauto. auto.
   split. destruct (Val.cmpu_bool (Mem.valid_pointer m) c0 (rs x) (Vint i)) eqn:?; auto.
   eapply testcond_for_unsigned_comparison_correct; eauto. 
-  intros. unfold compare_ints. repeat SOther.
+  intros. unfold compare_ints. Simplifs.
 (* compf *)
   simpl. rewrite (freg_of_eq _ _ EQ). rewrite (freg_of_eq _ _ EQ1).
   exists (nextinstr (compare_floats (swap_floats c0 (rs x) (rs x0)) (swap_floats c0 (rs x0) (rs x)) rs)).
   split. apply exec_straight_one. 
   destruct c0; simpl; auto.
-  unfold nextinstr. rewrite Pregmap.gss. rewrite compare_floats_inv; auto with ppcgen. 
+  unfold nextinstr. rewrite Pregmap.gss. rewrite compare_floats_inv; auto with asmgen. 
   split. destruct (rs x); destruct (rs x0); simpl; auto.
   repeat rewrite swap_floats_commut. apply testcond_for_float_comparison_correct.
-  intros. SOther. apply compare_floats_inv; auto with ppcgen. 
+  intros. Simplifs. apply compare_floats_inv; auto with asmgen. 
 (* notcompf *)
   simpl. rewrite (freg_of_eq _ _ EQ). rewrite (freg_of_eq _ _ EQ1).
   exists (nextinstr (compare_floats (swap_floats c0 (rs x) (rs x0)) (swap_floats c0 (rs x0) (rs x)) rs)).
   split. apply exec_straight_one. 
   destruct c0; simpl; auto.
-  unfold nextinstr. rewrite Pregmap.gss. rewrite compare_floats_inv; auto with ppcgen. 
+  unfold nextinstr. rewrite Pregmap.gss. rewrite compare_floats_inv; auto with asmgen. 
   split. destruct (rs x); destruct (rs x0); simpl; auto.
   repeat rewrite swap_floats_commut. apply testcond_for_neg_float_comparison_correct.
-  intros. SOther. apply compare_floats_inv; auto with ppcgen. 
+  intros. Simplifs. apply compare_floats_inv; auto with asmgen. 
 (* maskzero *)
   simpl. rewrite (ireg_of_eq _ _ EQ).
   econstructor. split. apply exec_straight_one. simpl; eauto. auto.
   split. destruct (rs x); simpl; auto. 
   generalize (compare_ints_spec rs (Vint (Int.and i0 i)) Vzero m).
   intros [A B]. rewrite A. unfold Val.cmpu; simpl. destruct (Int.eq (Int.and i0 i) Int.zero); auto.
-  intros. unfold compare_ints. repeat SOther.
+  intros. unfold compare_ints. Simplifs.
 (* masknotzero *)
   simpl. rewrite (ireg_of_eq _ _ EQ).
   econstructor. split. apply exec_straight_one. simpl; eauto. auto.
   split. destruct (rs x); simpl; auto. 
   generalize (compare_ints_spec rs (Vint (Int.and i0 i)) Vzero m).
   intros [A B]. rewrite A. unfold Val.cmpu; simpl. destruct (Int.eq (Int.and i0 i) Int.zero); auto.
-  intros. unfold compare_ints. repeat SOther.
+  intros. unfold compare_ints. Simplifs.
 Qed.
 
 Remark eval_testcond_nextinstr:
   forall c rs, eval_testcond c (nextinstr rs) = eval_testcond c rs.
 Proof.
-  intros. unfold eval_testcond. repeat rewrite nextinstr_inv; auto with ppcgen.
+  intros. unfold eval_testcond. repeat rewrite nextinstr_inv; auto with asmgen.
 Qed.
 
 Remark eval_testcond_set_ireg:
   forall c rs r v, eval_testcond c (rs#(IR r) <- v) = eval_testcond c rs.
 Proof.
-  intros. unfold eval_testcond. repeat rewrite Pregmap.gso; auto with ppcgen.
+  intros. unfold eval_testcond. repeat rewrite Pregmap.gso; auto with asmgen.
 Qed.
 
 Lemma mk_setcc_correct:
   forall cond rd k rs1 m,
   exists rs2,
-  exec_straight (mk_setcc cond rd k) rs1 m k rs2 m
+  exec_straight ge fn (mk_setcc cond rd k) rs1 m k rs2 m
   /\ rs2#rd = Val.of_optbool(eval_extcond cond rs1)
   /\ forall r, nontemp_preg r = true -> r <> rd -> rs2#r = rs1#r.
 Proof.
   intros. destruct cond; simpl in *.
 (* base *)
   econstructor; split.
-  apply exec_straight_one. simpl; eauto. auto. 
-  split. SRes. SRes. 
-  intros; repeat SOther.
+  apply exec_straight_one. simpl; eauto. auto.
+  intuition Simplifs.
 (* or *)
   assert (Val.of_optbool
     match eval_testcond c1 rs1 with
@@ -1506,16 +1004,15 @@ Proof.
   simpl. rewrite eval_testcond_nextinstr. repeat rewrite eval_testcond_set_ireg. eauto.
   simpl; eauto.
   auto. auto. auto.
-  split. SRes. 
-  intros. repeat SOther.
+  intuition Simplifs.
   econstructor; split.
   eapply exec_straight_three.
   simpl; eauto.
   simpl. rewrite eval_testcond_nextinstr. repeat rewrite eval_testcond_set_ireg. eauto. 
   simpl. eauto. 
   auto. auto. auto.
-  split. repeat SRes. rewrite Val.or_commut. decEq; repeat SRes. 
-  intros. repeat SOther.
+  split. Simplifs. rewrite Val.or_commut. f_equal; Simplifs. 
+  intros. Simplifs.
 (* and *)
   assert (Val.of_optbool
     match eval_testcond c1 rs1 with
@@ -1539,16 +1036,15 @@ Proof.
   simpl. rewrite eval_testcond_nextinstr. repeat rewrite eval_testcond_set_ireg. eauto.
   simpl; eauto.
   auto. auto. auto.
-  split. SRes. 
-  intros. repeat SOther.
+  intuition Simplifs.
   econstructor; split.
   eapply exec_straight_three.
   simpl; eauto.
   simpl. rewrite eval_testcond_nextinstr. repeat rewrite eval_testcond_set_ireg. eauto. 
   simpl. eauto. 
   auto. auto. auto.
-  split. repeat SRes. rewrite Val.and_commut. decEq; repeat SRes. 
-  intros. repeat SOther.
+  split. Simplifs. rewrite Val.and_commut. f_equal; Simplifs. 
+  intros. Simplifs.
 Qed.
 
 (** Translation of arithmetic operations. *)
@@ -1567,33 +1063,32 @@ Ltac ArgsInv :=
 Ltac TranslOp :=
   econstructor; split;
   [ apply exec_straight_one; [ simpl; eauto | auto ] 
-  | split; [ repeat SRes | intros; repeat SOther ]].
-
+  | split; [ Simplifs | intros; Simplifs ]].
 
 Lemma transl_op_correct:
   forall op args res k c (rs: regset) m v,
   transl_op op args res k = OK c ->
   eval_operation ge (rs#ESP) op (map rs (map preg_of args)) m = Some v ->
   exists rs',
-     exec_straight c rs m k rs' m
+     exec_straight ge fn c rs m k rs' m
   /\ Val.lessdef v rs'#(preg_of res)
   /\ forall r, 
-     match op with Omove => important_preg r = true /\ r <> ST0 | _ => nontemp_preg r = true end ->
+     match op with Omove => data_preg r = true /\ r <> ST0 | _ => nontemp_preg r = true end ->
      r <> preg_of res -> rs' r = rs r.
 Proof.
   intros until v; intros TR EV.
   assert (SAME:
   (exists rs',
-     exec_straight c rs m k rs' m
+     exec_straight ge fn c rs m k rs' m
   /\ rs'#(preg_of res) = v
   /\ forall r, 
-     match op with Omove => important_preg r = true /\ r <> ST0 | _ => nontemp_preg r = true end ->
+     match op with Omove => data_preg r = true /\ r <> ST0 | _ => nontemp_preg r = true end ->
      r <> preg_of res -> rs' r = rs r) ->
   exists rs',
-     exec_straight c rs m k rs' m
+     exec_straight ge fn c rs m k rs' m
   /\ Val.lessdef v rs'#(preg_of res)
   /\ forall r, 
-     match op with Omove => important_preg r = true /\ r <> ST0 | _ => nontemp_preg r = true end ->
+     match op with Omove => data_preg r = true /\ r <> ST0 | _ => nontemp_preg r = true end ->
      r <> preg_of res -> rs' r = rs r).
   intros [rs' [A [B C]]]. subst v. exists rs'; auto. 
 
@@ -1643,7 +1138,7 @@ Proof.
   apply SAME. eapply mk_shift_correct; eauto.
 (* lea *)
   exploit transl_addressing_mode_correct; eauto. intros EA.
-  TranslOp. rewrite nextinstr_inv; auto with ppcgen. rewrite Pregmap.gss; auto.
+  TranslOp. rewrite nextinstr_inv; auto with asmgen. rewrite Pregmap.gss; auto.
 (* intoffloat *)
   apply SAME. TranslOp. rewrite H0; auto.
 (* floatofint *)
@@ -1667,7 +1162,7 @@ Lemma transl_load_correct:
   eval_addressing ge (rs#ESP) addr (map rs (map preg_of args)) = Some a ->
   Mem.loadv chunk m a = Some v ->
   exists rs',
-     exec_straight c rs m k rs' m
+     exec_straight ge fn c rs m k rs' m
   /\ rs'#(preg_of dest) = v
   /\ forall r, nontemp_preg r = true -> r <> preg_of dest -> rs'#r = rs#r.
 Proof.
@@ -1679,15 +1174,15 @@ Proof.
     unfold exec_load. rewrite EA'. rewrite H1. auto.
   assert (rs2 PC = Val.add (rs PC) Vone).
     transitivity (Val.add ((rs#(preg_of dest) <- v) PC) Vone).
-    auto. decEq. apply Pregmap.gso; auto with ppcgen.
+    auto. decEq. apply Pregmap.gso; auto with asmgen.
   exists rs2. split. 
   destruct chunk; ArgsInv; apply exec_straight_one; auto.
   (* Mfloat64 -> Mfloat64al32 *)
   rewrite <- H. simpl. unfold exec_load. rewrite H1.
   destruct (eval_addrmode ge x rs); simpl in *; try discriminate.
   erewrite Mem.load_float64al32; eauto. 
-  split. unfold rs2. rewrite nextinstr_nf_inv1. SRes. apply preg_of_important.
-  intros. unfold rs2. repeat SOther. 
+  split. unfold rs2. rewrite nextinstr_nf_inv1. Simplifs. apply preg_of_data.
+  intros. unfold rs2. Simplifs. 
 Qed.
 
 Lemma transl_store_correct:
@@ -1696,7 +1191,7 @@ Lemma transl_store_correct:
   eval_addressing ge (rs#ESP) addr (map rs (map preg_of args)) = Some a ->
   Mem.storev chunk m a (rs (preg_of src)) = Some m' ->
   exists rs',
-     exec_straight c rs m k rs' m'
+     exec_straight ge fn c rs m k rs' m'
   /\ forall r, nontemp_preg r = true -> rs'#r = rs#r.
 Proof.
   unfold transl_store; intros. monadInv H. 
@@ -1717,28 +1212,29 @@ Proof.
   rewrite H1. eauto.
   destruct (eval_addrmode ge x rs); simpl; auto. rewrite Mem.store_signed_unsigned_16; auto.
   auto.
-  intros. SOther.
+  intros. Simplifs.
 (* int16unsigned *)
   econstructor; split.
   apply exec_straight_one. simpl. unfold exec_store. rewrite H1. eauto. auto.
-  intros. SOther.
+  intros. Simplifs.
 (* int32 *)
   econstructor; split.
   apply exec_straight_one. simpl. unfold exec_store. rewrite H1. eauto. auto.
-  intros. SOther.
+  intros. Simplifs.
 (* float32 *)
   econstructor; split.
   apply exec_straight_one. simpl. unfold exec_store. rewrite H1. eauto. auto.
-  intros. SOther.
+  intros. Simplifs.
 (* float64 *)
   econstructor; split.
   apply exec_straight_one. simpl. unfold exec_store. erewrite Mem.storev_float64al32; eauto. auto.
-  intros. SOther.
+  intros. Simplifs.
 (* float64al32 *)
   econstructor; split.
   apply exec_straight_one. simpl. unfold exec_store. rewrite H1. eauto. auto.
-  intros. SOther.
+  intros. Simplifs.
 Qed.
 
-End STRAIGHTLINE.
+End CONSTRUCTORS.
+
 
-- 
cgit v1.2.3