diff options
| author | coq | 2005-02-07 14:30:08 +0000 |
|---|---|---|
| committer | coq | 2005-02-07 14:30:08 +0000 |
| commit | f9c7af253a75b6d8799cefee12de1e0c7f551ea8 (patch) | |
| tree | 9ef511efa3bf3e615dd599cb4ce3285db387da45 | |
| parent | a4e65b24e64dcec8f5cf605464d3bac148600234 (diff) | |
Re-unboxing de BinPos (sauf Pplus): sinon, fait partir Coqbook pour des jours de calcul (chapitre 16, thm prime_2333); peut-être à cause de Z_of_nat??) [HH]
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6699 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | theories/NArith/BinPos.v | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/theories/NArith/BinPos.v b/theories/NArith/BinPos.v index 8e709a4895..9b19a12f97 100644 --- a/theories/NArith/BinPos.v +++ b/theories/NArith/BinPos.v @@ -8,6 +8,8 @@ (*i $Id$ i*) +Unset Boxed Definitions. + (**********************************************************************) (** Binary positive numbers *) @@ -39,6 +41,8 @@ Fixpoint Psucc (x:positive) : positive := (** Addition *) +Set Boxed Definitions. + Fixpoint Pplus (x y:positive) {struct x} : positive := match x, y with | xI x', xI y' => xO (Pplus_carry x' y') @@ -65,6 +69,8 @@ Fixpoint Pplus (x y:positive) {struct x} : positive := | xH, xH => xI xH end. +Unset Boxed Definitions. + Infix "+" := Pplus : positive_scope. Open Local Scope positive_scope. |