X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fwf3%2Fclear.ma;h=0199af19e72621e6ebfccf7acfd4e27575d07353;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hp=b2ddd47af9c12718e6d86eab6ca6aaec2bb8c36c;hpb=88a68a9c334646bc17314d5327cd3b790202acd6;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_1/wf3/clear.ma b/matita/matita/contribs/lambdadelta/basic_1/wf3/clear.ma
index b2ddd47af..0199af19e 100644
--- a/matita/matita/contribs/lambdadelta/basic_1/wf3/clear.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/wf3/clear.ma
@@ -14,9 +14,11 @@
 
 (* This file was automatically generated: do not edit *********************)
 
-include "Basic-1/wf3/fwd.ma".
+include "basic_1/wf3/fwd.ma".
 
-theorem wf3_clear_conf:
+include "basic_1/clear/fwd.ma".
+
+lemma wf3_clear_conf:
  \forall (c1: C).(\forall (c: C).((clear c1 c) \to (\forall (g: G).(\forall 
 (c2: C).((wf3 g c1 c2) \to (wf3 g c c2))))))
 \def
@@ -29,11 +31,8 @@ c0)).(\lambda (H1: ((\forall (g: G).(\forall (c2: C).((wf3 g e c2) \to (wf3 g
 c0 c2)))))).(\lambda (f: F).(\lambda (u: T).(\lambda (g: G).(\lambda (c2: 
 C).(\lambda (H2: (wf3 g (CHead e (Flat f) u) c2)).(let H_y \def 
 (wf3_gen_flat1 g e c2 u f H2) in (H1 g c2 H_y))))))))))) c1 c H))).
-(* COMMENTS
-Initial nodes: 145
-END *)
 
-theorem clear_wf3_trans:
+lemma clear_wf3_trans:
  \forall (c1: C).(\forall (d1: C).((clear c1 d1) \to (\forall (g: G).(\forall 
 (d2: C).((wf3 g d1 d2) \to (ex2 C (\lambda (c2: C).(wf3 g c1 c2)) (\lambda 
 (c2: C).(clear c2 d2))))))))
@@ -85,7 +84,4 @@ C).(wf3 g (CHead e (Flat f) u) c2)) (\lambda (c2: C).(clear c2 d2))) (\lambda
 (x: C).(\lambda (H4: (wf3 g e x)).(\lambda (H5: (clear x d2)).(ex_intro2 C 
 (\lambda (c2: C).(wf3 g (CHead e (Flat f) u) c2)) (\lambda (c2: C).(clear c2 
 d2)) x (wf3_flat g e x H4 u f) H5)))) H3)))))))))))) c1 d1 H))).
-(* COMMENTS
-Initial nodes: 1023
-END *)