X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fnext_plus%2Fdefs.ma;h=04e15b3ccce9f062c75fa4f146b60dc4f826bdd7;hp=1ff7ecdff3a47aea1e2cf6e71fe67f73b986a553;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hpb=88a68a9c334646bc17314d5327cd3b790202acd6 diff --git a/matita/matita/contribs/lambdadelta/basic_1/next_plus/defs.ma b/matita/matita/contribs/lambdadelta/basic_1/next_plus/defs.ma index 1ff7ecdff..04e15b3cc 100644 --- a/matita/matita/contribs/lambdadelta/basic_1/next_plus/defs.ma +++ b/matita/matita/contribs/lambdadelta/basic_1/next_plus/defs.ma @@ -14,11 +14,8 @@ (* This file was automatically generated: do not edit *********************) -include "Basic-1/G/defs.ma". +include "basic_1/G/defs.ma". -definition next_plus: - G \to (nat \to (nat \to nat)) -\def - let rec next_plus (g: G) (n: nat) (i: nat) on i: nat \def (match i with [O -\Rightarrow n | (S i0) \Rightarrow (next g (next_plus g n i0))]) in next_plus. +rec definition next_plus (g: G) (n: nat) (i: nat) on i: nat \def match i with +[O \Rightarrow n | (S i0) \Rightarrow (next g (next_plus g n i0))].