diff options
author | 2014-04-10 15:45:49 +0200 | |
---|---|---|
committer | 2014-04-10 16:25:08 +0200 | |
commit | 6e66d8c551b5edcb33a9f3fbf744b2f82d944c50 (patch) | |
tree | d23b63653b8b2d58f20661fd5691ccac42e687fb /theories/Reals | |
parent | f705a0b0ae587e323199c43e9669b4f96adf4d77 (diff) |
No more Coersion in Init.
Diffstat (limited to 'theories/Reals')
-rw-r--r-- | theories/Reals/Rseries.v | 2 | ||||
-rw-r--r-- | theories/Reals/SeqProp.v | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/theories/Reals/Rseries.v b/theories/Reals/Rseries.v index a5e4f8f7e..328ba27e6 100644 --- a/theories/Reals/Rseries.v +++ b/theories/Reals/Rseries.v @@ -261,7 +261,7 @@ Section sequence. Lemma Un_cv_crit : Un_growing -> bound EUn -> exists l : R, Un_cv l. Proof. intros Hug Heub. - exists (projT1 (completeness EUn Heub EUn_noempty)). + exists (proj1_sig (completeness EUn Heub EUn_noempty)). destruct (completeness EUn Heub EUn_noempty) as (l, H). now apply Un_cv_crit_lub. Qed. diff --git a/theories/Reals/SeqProp.v b/theories/Reals/SeqProp.v index 5254ff2cc..52657b401 100644 --- a/theories/Reals/SeqProp.v +++ b/theories/Reals/SeqProp.v @@ -27,7 +27,7 @@ Lemma growing_cv : forall Un:nat -> R, Un_growing Un -> has_ub Un -> { l:R | Un_cv Un l }. Proof. intros Un Hug Heub. - exists (projT1 (completeness (EUn Un) Heub (EUn_noempty Un))). + exists (proj1_sig (completeness (EUn Un) Heub (EUn_noempty Un))). destruct (completeness _ Heub (EUn_noempty Un)) as (l, H). now apply Un_cv_crit_lub. Qed. |