diff options
Diffstat (limited to 'theories')
| -rw-r--r-- | theories/Init/Specif.v | 3 | ||||
| -rw-r--r-- | theories/Reals/Rpow_def.v | 10 |
2 files changed, 13 insertions, 0 deletions
diff --git a/theories/Init/Specif.v b/theories/Init/Specif.v index 4f642a73e2..2244e1b9a9 100644 --- a/theories/Init/Specif.v +++ b/theories/Init/Specif.v @@ -115,6 +115,9 @@ Proof. destruct 1 as (x,H); exists x; trivial. Defined. Lemma sigT_of_sig : forall (A:Type) (P:A->Prop), sig P -> sigT P. Proof. destruct 1 as (x,H); exists x; trivial. Defined. +Coercion sigT_of_sig : sig >-> sigT. +Coercion sig_of_sigT : sigT >-> sig. + (** [sumbool] is a boolean type equipped with the justification of their value *) diff --git a/theories/Reals/Rpow_def.v b/theories/Reals/Rpow_def.v index 5bdbb76b98..357e5e212b 100644 --- a/theories/Reals/Rpow_def.v +++ b/theories/Reals/Rpow_def.v @@ -1,3 +1,13 @@ +(************************************************************************) +(* v * The Coq Proof Assistant / The Coq Development Team *) +(* <O___,, * CNRS-Ecole Polytechnique-INRIA Futurs-Universite Paris Sud *) +(* \VV/ **************************************************************) +(* // * This file is distributed under the terms of the *) +(* * GNU Lesser General Public License Version 2.1 *) +(************************************************************************) + +(* $Id:$ *) + Require Import Rdefinitions. Fixpoint pow (r:R) (n:nat) {struct n} : R := |