diff options
author | 2005-02-07 14:30:08 +0000 | |
---|---|---|
committer | 2005-02-07 14:30:08 +0000 | |
commit | f9c7af253a75b6d8799cefee12de1e0c7f551ea8 (patch) | |
tree | 9ef511efa3bf3e615dd599cb4ce3285db387da45 /theories | |
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
Diffstat (limited to 'theories')
-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 8e709a489..9b19a12f9 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. |