X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fnf2%2Fdefs.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fnf2%2Fdefs.ma;h=5b4849d7a76b064657ae80664433c0925b8b1dae;hb=ab2f735d97d2b9c965f13527d5f6f61048d29b22;hp=eae14f72809c6caf51db3ac02ef8d52cb15ad84b;hpb=c3904c007394068ed823575e3be3d73a9ad92cce;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 eae14f728..5b4849d7a 100644 --- a/matita/matita/contribs/lambdadelta/basic_1/nf2/defs.ma +++ b/matita/matita/contribs/lambdadelta/basic_1/nf2/defs.ma @@ -22,6 +22,6 @@ definition nf2: \lambda (c: C).(\lambda (t1: T).(\forall (t2: T).((pr2 c t1 t2) \to (eq T t1 t2)))). -let rec nfs2 (c: C) (ts: TList) on ts: Prop \def match ts with [TNil +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))].