From f3ce9ace4b55654d6240db9eb41a6de3c488f0d9 Mon Sep 17 00:00:00 2001
From: Cyril Cohen
Date: Tue, 6 Feb 2018 14:04:50 +0100
Subject: fixing things that @ggonthier and @ybertot spotted and some I spotted

---
 mathcomp/real_closed/cauchyreals.v | 2 +-
 mathcomp/real_closed/complex.v     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'mathcomp/real_closed')

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.
 
-- 
cgit v1.2.3