X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fnf2%2Fdefs.ma;h=5b4849d7a76b064657ae80664433c0925b8b1dae;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hp=98e931c0bd0d62c7d8e572eb2acb241eb27d5daf;hpb=88a68a9c334646bc17314d5327cd3b790202acd6;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_1/nf2/defs.ma b/matita/matita/contribs/lambdadelta/basic_1/nf2/defs.ma index 98e931c0b..5b4849d7a 100644 --- a/matita/matita/contribs/lambdadelta/basic_1/nf2/defs.ma +++ b/matita/matita/contribs/lambdadelta/basic_1/nf2/defs.ma @@ -14,7 +14,7 @@ (* This file was automatically generated: do not edit *********************) -include "Basic-1/pr2/defs.ma". +include "basic_1/pr2/defs.ma". definition nf2: C \to (T \to Prop) @@ -22,10 +22,6 @@ definition nf2: \lambda (c: C).(\lambda (t1: T).(\forall (t2: T).((pr2 c t1 t2) \to (eq T t1 t2)))). -definition nfs2: - C \to (TList \to Prop) -\def - let rec nfs2 (c: C) (ts: TList) on ts: Prop \def (match ts with [TNil -\Rightarrow True | (TCons t ts0) \Rightarrow (land (nf2 c t) (nfs2 c ts0))]) -in nfs2. +rec definition nfs2 (c: C) (ts: TList) on ts: Prop \def match ts with [TNil +\Rightarrow True | (TCons t ts0) \Rightarrow (land (nf2 c t) (nfs2 c ts0))].