diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-06-05 13:39:59 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-06-05 13:39:59 +0000 |
| commit | 615fb53c13f2407a0b6b470bbdf8e468fc4a1d78 (patch) | |
| tree | ec5f45b6546e19519f59b1ee0f42955616ca1b98 /backend/Stackingproof.v | |
| parent | d1cdc0496d7d52e3ab91554dbf53fcc0e7f244eb (diff) | |
Adapted to work with Coq 8.2-1
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1076 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/Stackingproof.v')
| -rw-r--r-- | backend/Stackingproof.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/Stackingproof.v b/backend/Stackingproof.v index a7560d0..d5819f7 100644 --- a/backend/Stackingproof.v +++ b/backend/Stackingproof.v @@ -955,7 +955,7 @@ Proof. exists ls'; exists rs'. split. assumption. split. intros. elim H2; intros. subst r. apply (agree_unused_reg _ _ _ _ _ D). - rewrite <- number_within_bounds. auto. omega. auto. + rewrite <- number_within_bounds. auto. auto. auto. split. intros. simpl in H2. apply C. tauto. assumption. Qed. @@ -1051,7 +1051,7 @@ End FRAME_PROPERTIES. Section LABELS. Remark find_label_fold_right: - forall (A: Set) (fn: A -> Mach.code -> Mach.code) lbl, + forall (A: Type) (fn: A -> Mach.code -> Mach.code) lbl, (forall x k, Mach.find_label lbl (fn x k) = Mach.find_label lbl k) -> forall (args: list A) k, Mach.find_label lbl (List.fold_right fn k args) = Mach.find_label lbl k. Proof. |