From 5c97a67f3227f718a2247c9476029548c4ee8e28 Mon Sep 17 00:00:00 2001 From: letouzey Date: Fri, 29 Jan 2010 14:18:31 +0000 Subject: Division in numbers: kills some Include to avoid bad alias Zsucc = ZDiv.Z.Z'.S git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12704 85f007b7-540e-0410-9357-904b9bb8a0f7 --- theories/Numbers/Natural/Abstract/NDiv.v | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'theories/Numbers/Natural/Abstract') diff --git a/theories/Numbers/Natural/Abstract/NDiv.v b/theories/Numbers/Natural/Abstract/NDiv.v index dd033fb764..0cb5665acb 100644 --- a/theories/Numbers/Natural/Abstract/NDiv.v +++ b/theories/Numbers/Natural/Abstract/NDiv.v @@ -21,12 +21,16 @@ Module NDivPropFunct (Import N : NDivSig')(Import NP : NPropSig N). (** We benefit from what already exists for NZ *) - Module N' <: NZDivSig. - Include N. + Module ND <: NZDiv N. + Definition div := div. + Definition modulo := modulo. + Definition div_wd := div_wd. + Definition mod_wd := mod_wd. + Definition div_mod := div_mod. Lemma mod_bound : forall a b, 0<=a -> 0 0 <= a mod b < b. Proof. split. apply le_0_l. apply mod_upper_bound. order. Qed. - End N'. - Module Import NZDivP := NZDivPropFunct N' NP. + End ND. + Module Import NZDivP := NZDivPropFunct N NP ND. Ltac auto' := try rewrite <- neq_0_lt_0; auto using le_0_l. -- cgit v1.2.3