diff options
author | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2014-09-17 17:45:39 +0200 |
---|---|---|
committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2014-09-17 17:54:39 +0200 |
commit | 95c915ce89cc168ec34ab36797c78de94fcc0a18 (patch) | |
tree | a07639d54aeebdf0dd8f75f3ec0e4ccfc8e03163 /theories/Reals/Rtrigo_def.v | |
parent | 9060a941d8b7566220f6fb6a191ac2fd7eca7315 (diff) |
Add some missing Proof statements.
Diffstat (limited to 'theories/Reals/Rtrigo_def.v')
-rw-r--r-- | theories/Reals/Rtrigo_def.v | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/theories/Reals/Rtrigo_def.v b/theories/Reals/Rtrigo_def.v index f3e690376..76d52efaa 100644 --- a/theories/Reals/Rtrigo_def.v +++ b/theories/Reals/Rtrigo_def.v @@ -221,6 +221,7 @@ Proof. Qed. Lemma cosn_no_R0 : forall n:nat, cos_n n <> 0. +Proof. intro; unfold cos_n; unfold Rdiv; apply prod_neq_R0. apply pow_nonzero; discrR. apply Rinv_neq_0_compat. @@ -233,6 +234,7 @@ Definition cos_in (x l:R) : Prop := (**********) Lemma exist_cos : forall x:R, { l:R | cos_in x l }. +Proof. intro; generalize (Alembert_C3 cos_n x cosn_no_R0 Alembert_cos). unfold Pser, cos_in; trivial. Qed. |