diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-04-13 14:38:26 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-04-27 21:55:48 +0200 |
| commit | 3a2753bedf43a8c7306b1b3fc9cb37aafb78ad7a (patch) | |
| tree | 4bf6607f8a29238bac0d87775d74f2105a1b9384 /theories/Reals | |
| parent | 8c74d3e5578caeb5c62ba462528d9972c1de17f1 (diff) | |
Temporary hack to compensate missing comma while re-printing tactic
"exists c1, c2".
Diffstat (limited to 'theories/Reals')
| -rw-r--r-- | theories/Reals/PSeries_reg.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/theories/Reals/PSeries_reg.v b/theories/Reals/PSeries_reg.v index 03ac6582b..3d29a5bbf 100644 --- a/theories/Reals/PSeries_reg.v +++ b/theories/Reals/PSeries_reg.v @@ -54,7 +54,7 @@ rewrite Rplus_comm; apply Rplus_lt_compat_l, Rmult_lt_compat_r. apply Rlt_trans with z; assumption. destruct (boule_of_interval _ _ cmp) as [c [r [P1 P2]]]. assert (0 < /2) by (apply Rinv_0_lt_compat, Rlt_0_2). -exists c, r; split. +exists c; exists r; split. destruct h; unfold Boule; simpl; apply Rabs_def1. apply Rplus_lt_reg_l with c; rewrite P2; replace (c + (z - c)) with (z * / 2 + z * / 2) by field. |