X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Farith%2Fnat.ma;h=d80d24f83057e852cd4ef54763e5cc95fb7dd693;hb=19b0a814861157ba05f23877d5cd94059f52c2e8;hp=1bc7286b6a21d78d0e38cadd51b6670d0a3056a8;hpb=df7a2aa19e98dc28e7f22129275a175cead49e2d;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/ground/arith/nat.ma b/matita/matita/contribs/lambdadelta/ground/arith/nat.ma
index 1bc7286b6..d80d24f83 100644
--- a/matita/matita/contribs/lambdadelta/ground/arith/nat.ma
+++ b/matita/matita/contribs/lambdadelta/ground/arith/nat.ma
@@ -25,7 +25,9 @@ inductive nat: Type[0] ≝
 
 coercion ninj.
 
-interpretation "zero (non-negative integers" 'Zero = nzero.
+interpretation
+  "zero (non-negative integers)"
+  'Zero = nzero.
 
 (* Basic inversions *********************************************************)
 
@@ -36,6 +38,7 @@ qed-.
 
 (* Basic constructions ******************************************************)
 
+(*** eq_nat_dec *)
 lemma eq_nat_dec (n1,n2:nat): Decidable (n1 = n2).
 * [| #p1 ] * [2,4: #p2 ]
 [1,4: @or_intror #H destruct