X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground_1%2Fblt%2Fdefs.ma;h=3b8f8656e1cd10605554687a813917c138e33326;hb=cacd7323994f7621286dbfd93bbf4c50acfbe918;hp=f1eee61f5dd85de2f0ea057e83eb094b560b0d45;hpb=e51d01099c08e9945ea093da6fcac353db7ca23c;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/ground_1/blt/defs.ma b/matita/matita/contribs/lambdadelta/ground_1/blt/defs.ma
index f1eee61f5..3b8f8656e 100644
--- a/matita/matita/contribs/lambdadelta/ground_1/blt/defs.ma
+++ b/matita/matita/contribs/lambdadelta/ground_1/blt/defs.ma
@@ -16,7 +16,7 @@
 
 include "ground_1/preamble.ma".
 
-let rec blt (m: nat) (n: nat) on n: bool \def match n with [O \Rightarrow 
-false | (S n0) \Rightarrow (match m with [O \Rightarrow true | (S m0) 
-\Rightarrow (blt m0 n0)])].
+rec definition blt (m: nat) (n: nat) on n: bool \def match n with [O 
+\Rightarrow false | (S n0) \Rightarrow (match m with [O \Rightarrow true | (S 
+m0) \Rightarrow (blt m0 n0)])].