diff options
author | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2017-03-08 08:35:29 +0100 |
---|---|---|
committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2017-03-08 08:35:29 +0100 |
commit | 177c8fbc523a171e8c8470fa675f9a69ef7f99de (patch) | |
tree | f54d8315891bec2f741545991f420dd4407bccc0 /flocq/Prop/Fprop_Sterbenz.v | |
parent | 44b63eb13151ca5c3e83ee6a9e7eb6c0049c3758 (diff) | |
download | compcert-kvx-177c8fbc523a171e8c8470fa675f9a69ef7f99de.tar.gz compcert-kvx-177c8fbc523a171e8c8470fa675f9a69ef7f99de.zip |
Adapt proofs to future handling of literal constants in Coq.
This commit is mainly a squash of the relevant compatibility commits from
Flocq's master. Most of the changes are meant to make the proofs oblivious
to the way constants such as 0, 1, 2, and -1 are represented.
Diffstat (limited to 'flocq/Prop/Fprop_Sterbenz.v')
-rw-r--r-- | flocq/Prop/Fprop_Sterbenz.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/flocq/Prop/Fprop_Sterbenz.v b/flocq/Prop/Fprop_Sterbenz.v index 7260d2e1..4e74f889 100644 --- a/flocq/Prop/Fprop_Sterbenz.v +++ b/flocq/Prop/Fprop_Sterbenz.v @@ -133,7 +133,7 @@ assert (Hy0: (0 <= y)%R). apply Rplus_le_reg_r with y. apply Rle_trans with x. now rewrite Rplus_0_l. -now rewrite Rmult_plus_distr_r, Rmult_1_l in Hxy2. +now replace (y + y)%R with (2 * y)%R by ring. rewrite Rabs_pos_eq with (1 := Hy0). rewrite Rabs_pos_eq. unfold Rmin. |