diff options
author | 2010-01-05 18:39:14 +0000 | |
---|---|---|
committer | 2010-01-05 18:39:14 +0000 | |
commit | 70eb4b8dd94ef17cb246a25eb7525626e0f30296 (patch) | |
tree | a33bbbfe85a13b2f1071c8559da6825abc14b768 /theories/Numbers/NatInt/NZAddOrder.v | |
parent | 5ca33dcd307ce331964a2e9867e03218c6de621b (diff) |
Numbers abstract layer: more Module Type, used especially for divisions.
Properties are now rather passed as functor arg instead of via Include or
some inner modules.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12629 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'theories/Numbers/NatInt/NZAddOrder.v')
-rw-r--r-- | theories/Numbers/NatInt/NZAddOrder.v | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/theories/Numbers/NatInt/NZAddOrder.v b/theories/Numbers/NatInt/NZAddOrder.v index b51216fd2..56982c616 100644 --- a/theories/Numbers/NatInt/NZAddOrder.v +++ b/theories/Numbers/NatInt/NZAddOrder.v @@ -12,10 +12,8 @@ Require Import NZAxioms NZBase NZMul NZOrder. -Module NZAddOrderProp - (Import NZ : NZOrdAxiomsSig)(Import NZBase : NZBaseProp NZ). -Include NZMulProp NZ NZBase. -Include NZOrderProp NZ NZBase. +Module Type NZAddOrderPropSig (Import NZ : NZOrdAxiomsSig). +Include Type NZBasePropSig NZ <+ NZMulPropSig NZ <+ NZOrderPropSig NZ. Local Open Scope NumScope. Theorem add_lt_mono_l : forall n m p, n < m <-> p + n < p + m. @@ -152,8 +150,5 @@ Proof. intros n m H; apply add_le_cases; now nzsimpl. Qed. -End NZAddOrderProp. - -Module NZAddOrderPropFunct (NZ:NZOrdAxiomsSig) := - NZBasePropFunct NZ <+ NZAddOrderProp NZ. +End NZAddOrderPropSig. |