X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fnf2%2Farity.ma;h=c5b3b0a642ad3b84fe2fc628a6924422ccc4eeee;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hp=4ee874d1f246a5551164e869b208e9532752d18a;hpb=049d55c73d1746e15a40e89b17fd88b62f002d93;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_1/nf2/arity.ma b/matita/matita/contribs/lambdadelta/basic_1/nf2/arity.ma index 4ee874d1f..c5b3b0a64 100644 --- a/matita/matita/contribs/lambdadelta/basic_1/nf2/arity.ma +++ b/matita/matita/contribs/lambdadelta/basic_1/nf2/arity.ma @@ -18,7 +18,7 @@ include "basic_1/nf2/fwd.ma". include "basic_1/arity/subst0.ma". -theorem arity_nf2_inv_all: +lemma arity_nf2_inv_all: \forall (g: G).(\forall (c: C).(\forall (t: T).(\forall (a: A).((arity g c t a) \to ((nf2 c t) \to (or3 (ex3_2 T T (\lambda (w: T).(\lambda (u: T).(eq T t (THead (Bind Abst) w u)))) (\lambda (w: T).(\lambda (_: T).(nf2 c w)))