X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fsn3%2Fnf2.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fsn3%2Fnf2.ma;h=e007361727282c53f5a0ec7933328f6ea4b296a0;hb=8de8cf8adfa6fcda91047eb2c25535893ede046a;hp=fc3f7c09ef0b35d1881f7e548d116a1445a3126a;hpb=d2caaf419cb6c92cb5ca8615f8eac4e12f3ab728;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 fc3f7c09e..e00736172 100644
--- a/matita/matita/contribs/lambdadelta/basic_1/sn3/nf2.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/sn3/nf2.ma
@@ -20,7 +20,7 @@ include "basic_1/nf2/dec.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 
@@ -31,7 +31,7 @@ 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)))))))))).
 
-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