diff options
Diffstat (limited to 'mathcomp/real_closed')
| -rw-r--r-- | mathcomp/real_closed/cauchyreals.v | 2 | ||||
| -rw-r--r-- | mathcomp/real_closed/complex.v | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/mathcomp/real_closed/cauchyreals.v b/mathcomp/real_closed/cauchyreals.v index 1d7d7ab..1456991 100644 --- a/mathcomp/real_closed/cauchyreals.v +++ b/mathcomp/real_closed/cauchyreals.v @@ -1325,7 +1325,7 @@ have upx_eq0 : u.[x] * p.[x] == 0 by rewrite px0 mul_creal0. pose_big_enough i. have := (erefl ((1 : {poly F}).[x i])). rewrite -{1}hpq /= hornerD hornerC. - set upxi := (u * _).[_] => - hpqi. + set upxi := (u * _).[_] => hpqi. apply: (@neq_crealP ((ubound v.[x])%CR^-1 / 2%:R) i i) => //. by rewrite pmulr_rgt0 ?gtr0E // ubound_gt0. rewrite /= subr0 ler_pdivr_mull ?ubound_gt0 //. diff --git a/mathcomp/real_closed/complex.v b/mathcomp/real_closed/complex.v index 30b4b04..22edf79 100644 --- a/mathcomp/real_closed/complex.v +++ b/mathcomp/real_closed/complex.v @@ -58,7 +58,7 @@ Section ComplexEqChoice. Variable R : Type. -Definition sqR_of_complex (x : R[i]) := let: a +i* b := x in [::a; b]. +Definition sqR_of_complex (x : R[i]) := let: a +i* b := x in [:: a; b]. Definition complex_of_sqR (x : seq R) := if x is [:: a; b] then Some (a +i* b) else None. |