diff options
| author | emakarov | 2007-07-06 16:58:50 +0000 |
|---|---|---|
| committer | emakarov | 2007-07-06 16:58:50 +0000 |
| commit | a91d36f6800bcb341f37211f42774724a6658a2b (patch) | |
| tree | 43c9d9d8f6a6a486014a237896133a6116e67b00 /theories/Numbers/Integer/NatPairs | |
| parent | 9dec278bb1af17f30021bf0bb04f21682d1f0a3c (diff) | |
Update of theories/Numbers directory.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9955 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Numbers/Integer/NatPairs')
| -rw-r--r-- | theories/Numbers/Integer/NatPairs/ZNatPairs.v | 27 |
1 files changed, 9 insertions, 18 deletions
diff --git a/theories/Numbers/Integer/NatPairs/ZNatPairs.v b/theories/Numbers/Integer/NatPairs/ZNatPairs.v index 02f73f4d1e..2ca4bc5d86 100644 --- a/theories/Numbers/Integer/NatPairs/ZNatPairs.v +++ b/theories/Numbers/Integer/NatPairs/ZNatPairs.v @@ -1,21 +1,12 @@ -Require Import NDomain. -Require Import NAxioms. -Require Import NPlus. -Require Import NTimes. -Require Import NLt. -Require Import NPlusLt. -Require Import NTimesLt. - -Require Import ZDomain. -Require Import ZAxioms. -Require Import ZPlus. -Require Import ZTimes. -Require Import ZOrder. -Require Import ZPlusOrder. -Require Import ZTimesOrder. - -Module NatPairsDomain (NPlusModule : NPlus.PlusSignature) <: - ZDomain.DomainSignature. +Require Export NTimesLt. +Require Export ZTimesOrder. + +Module NatPairsDomain (Export NPlusModule : NPlus.PlusSignature) : + ZDomain.DomainSignature + with Definition Z := (N * N)%type. + with Definition E (p1 p2 : Z) := ((fst p1) + (snd p2) == (fst p2) + (snd p1))%Nat. + with Definition e (p1 p2 : Z) := e ((fst p1) + (snd p2)) ((fst p2) + (snd p1))%Nat. + Module Export NPlusPropertiesModule := NPlus.PlusProperties NPlusModule. Definition Z : Set := (N * N)%type. |