X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground_1%2Fblt%2Fdefs.ma;h=3b8f8656e1cd10605554687a813917c138e33326;hb=7d99a19985ae7ca20845d0a875e32f23ba06e536;hp=009627a3bca4594cb83dff6b5f49398971e6e55c;hpb=88a68a9c334646bc17314d5327cd3b790202acd6;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..3b8f8656e 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 -false | (S n0) \Rightarrow (match m with [O \Rightarrow true | (S m0) -\Rightarrow (blt m0 n0)])]) in blt. +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)])].