]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/matita/library/nat/div_and_mod.ma
- transcript: bugfix
[helm.git] / helm / software / matita / library / nat / div_and_mod.ma
index 538515a8cc806003287340ef9d1299b4625a17a0..fbf51276189b1524bb8418eb0f611606cd5f5f54 100644 (file)
@@ -29,8 +29,7 @@ match m with
 [O \Rightarrow n
 | (S p) \Rightarrow mod_aux n n p]. 
 
-interpretation "natural remainder" 'module x y =
-  (cic:/matita/nat/div_and_mod/mod.con x y).
+interpretation "natural remainder" 'module x y = (mod x y).
 
 let rec div_aux p m n : nat \def
 match (leb m n) with
@@ -46,8 +45,7 @@ match m with
 [O \Rightarrow S n
 | (S p) \Rightarrow div_aux n n p]. 
 
-interpretation "natural divide" 'divide x y =
-  (cic:/matita/nat/div_and_mod/div.con x y).
+interpretation "natural divide" 'divide x y = (div x y).
 
 theorem le_mod_aux_m_m: 
 \forall p,n,m. n \leq p \to (mod_aux p n m) \leq m.