X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary_auto%2Fnat%2Fdiv_and_mod.ma;fp=helm%2Fsoftware%2Fmatita%2Flibrary_auto%2Fnat%2Fdiv_and_mod.ma;h=a2e83d1a0d879231bf255887e4916faf45d5f774;hb=af1498c45e1266fc08923eeaeb5c3cb7fc7776e6;hp=ad83dbbaa85cc2fd2d0154934ea90dc9f76e5b3f;hpb=e61cdf77937ad2ff62af178ae1cb14af0629d0f2;p=helm.git diff --git a/helm/software/matita/library_auto/nat/div_and_mod.ma b/helm/software/matita/library_auto/nat/div_and_mod.ma index ad83dbbaa..a2e83d1a0 100644 --- a/helm/software/matita/library_auto/nat/div_and_mod.ma +++ b/helm/software/matita/library_auto/nat/div_and_mod.ma @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -set "baseuri" "cic:/matita/nat/div_and_mod". +set "baseuri" "cic:/matita/library_auto/nat/div_and_mod". include "datatypes/constructors.ma". include "nat/minus.ma". @@ -32,7 +32,7 @@ match m with | (S p) \Rightarrow mod_aux n n p]. interpretation "natural remainder" 'module x y = - (cic:/matita/nat/div_and_mod/mod.con x y). + (cic:/matita/library_auto/nat/div_and_mod/mod.con x y). let rec div_aux p m n : nat \def match (leb m n) with @@ -49,7 +49,7 @@ match m with | (S p) \Rightarrow div_aux n n p]. interpretation "natural divide" 'divide x y = - (cic:/matita/nat/div_and_mod/div.con x y). + (cic:/matita/library_auto/nat/div_and_mod/div.con x y). theorem le_mod_aux_m_m: \forall p,n,m. n \leq p \to (mod_aux p n m) \leq m.