arithmetics for λδ

[helm.git] / matita / matita / contribs / lambdadelta / ground / arith / nat.ma

diff --git a/matita/matita/contribs/lambdadelta/ground/arith/nat.ma b/matita/matita/contribs/lambdadelta/ground/arith/nat.ma
index 1bc7286b6a21d78d0e38cadd51b6670d0a3056a8..d80d24f83057e852cd4ef54763e5cc95fb7dd693 100644 (file)
--- 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