X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground_1%2Fblt%2Fdefs.ma;h=f1eee61f5dd85de2f0ea057e83eb094b560b0d45;hb=e51d01099c08e9945ea093da6fcac353db7ca23c;hp=009627a3bca4594cb83dff6b5f49398971e6e55c;hpb=53b8e2af661ad4165aa0b1deccd0a7522d96ce2e;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 009627a3b..f1eee61f5 100644 --- a/matita/matita/contribs/lambdadelta/ground_1/blt/defs.ma +++ b/matita/matita/contribs/lambdadelta/ground_1/blt/defs.ma @@ -14,12 +14,9 @@ (* This file was automatically generated: do not edit *********************) -include "Ground-1/preamble.ma". +include "ground_1/preamble.ma". -definition blt: - nat \to (nat \to bool) -\def - let rec blt (m: nat) (n: nat) on n: bool \def (match n with [O \Rightarrow +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)])]) in blt. +\Rightarrow (blt m0 n0)])].