X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fsn3%2Fnf2.ma;h=e007361727282c53f5a0ec7933328f6ea4b296a0;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hp=824428084442b9d8341b2f97ac85657bd3664ccd;hpb=88a68a9c334646bc17314d5327cd3b790202acd6;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_1/sn3/nf2.ma b/matita/matita/contribs/lambdadelta/basic_1/sn3/nf2.ma index 824428084..e00736172 100644 --- a/matita/matita/contribs/lambdadelta/basic_1/sn3/nf2.ma +++ b/matita/matita/contribs/lambdadelta/basic_1/sn3/nf2.ma @@ -14,13 +14,13 @@ (* This file was automatically generated: do not edit *********************) -include "Basic-1/sn3/defs.ma". +include "basic_1/sn3/fwd.ma". -include "Basic-1/nf2/dec.ma". +include "basic_1/nf2/dec.ma". -include "Basic-1/nf2/pr3.ma". +include "basic_1/nf2/pr3.ma". -theorem sn3_nf2: +lemma sn3_nf2: \forall (c: C).(\forall (t: T).((nf2 c t) \to (sn3 c t))) \def \lambda (c: C).(\lambda (t: T).(\lambda (H: (nf2 c t)).(sn3_sing c t @@ -30,11 +30,8 @@ H1 H) in (let H2 \def (eq_ind_r T t2 (\lambda (t0: T).(pr3 c t t0)) H1 t H_y) in (let H3 \def (eq_ind_r T t2 (\lambda (t0: T).((eq T t t0) \to (\forall (P: Prop).P))) H0 t H_y) in (eq_ind T t (\lambda (t0: T).(sn3 c t0)) (H3 (refl_equal T t) (sn3 c t)) t2 H_y)))))))))). -(* COMMENTS -Initial nodes: 129 -END *) -theorem nf2_sn3: +lemma nf2_sn3: \forall (c: C).(\forall (t: T).((sn3 c t) \to (ex2 T (\lambda (u: T).(pr3 c t u)) (\lambda (u: T).(nf2 c u))))) \def @@ -60,7 +57,4 @@ u)) (\lambda (u: T).(nf2 c u))) (\lambda (x0: T).(\lambda (H7: (pr3 c x x0)).(\lambda (H8: (nf2 c x0)).(ex_intro2 T (\lambda (u: T).(pr3 c t1 u)) (\lambda (u: T).(nf2 c u)) x0 (pr3_sing c x t1 H5 x0 H7) H8)))) H6)))))) H3)) H2)))))) t H))). -(* COMMENTS -Initial nodes: 443 -END *)