X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fty3%2Farity_props.ma;h=fb0df9eb353f9ca5e03e7f5137e12d87dd7c2c68;hp=49d6c0572716f872324c2ea57f92df9fa89443b3;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hpb=88a68a9c334646bc17314d5327cd3b790202acd6

diff --git a/matita/matita/contribs/lambdadelta/basic_1/ty3/arity_props.ma b/matita/matita/contribs/lambdadelta/basic_1/ty3/arity_props.ma
index 49d6c0572..fb0df9eb3 100644
--- a/matita/matita/contribs/lambdadelta/basic_1/ty3/arity_props.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/ty3/arity_props.ma
@@ -14,11 +14,11 @@
 
 (* This file was automatically generated: do not edit *********************)
 
-include "Basic-1/ty3/arity.ma".
+include "basic_1/ty3/arity.ma".
 
-include "Basic-1/sc3/arity.ma".
+include "basic_1/sc3/arity.ma".
 
-theorem ty3_predicative:
+lemma ty3_predicative:
  \forall (g: G).(\forall (c: C).(\forall (v: T).(\forall (t: T).(\forall (u: 
 T).((ty3 g c (THead (Bind Abst) v t) u) \to ((pc3 c u v) \to (\forall (P: 
 Prop).P)))))))
@@ -46,9 +46,6 @@ x2))).(\lambda (_: (arity g (CHead c (Bind Abst) v) t x3)).(let H12 \def
 in (leq_ahead_asucc_false g x2 (asucc g x3) (arity_mono g c v (asucc g (AHead 
 x2 x3)) H12 (asucc g x2) H10) P))))))) H8))))) H5))))))))) (ty3_gen_bind g 
 Abst c v t u H1)))))))))).
-(* COMMENTS
-Initial nodes: 497
-END *)
 
 theorem ty3_repellent:
  \forall (g: G).(\forall (c: C).(\forall (w: T).(\forall (t: T).(\forall (u1: 
@@ -82,11 +79,8 @@ c u2 (asucc g x1) (arity_gen_lift g (CHead c (Bind Abst) w) u2 (asucc g x1)
 (S O) O H8 c (drop_drop (Bind Abst) O c c (drop_refl c) w)) (asucc g x2) 
 H11)) P)))) H9)))))) H6))))))) H3)))) (ty3_correct g (CHead c (Bind Abst) w) 
 t (lift (S O) O u2) H0))))))))))).
-(* COMMENTS
-Initial nodes: 651
-END *)
 
-theorem ty3_acyclic:
+lemma ty3_acyclic:
  \forall (g: G).(\forall (c: C).(\forall (t: T).(\forall (u: T).((ty3 g c t 
 u) \to ((pc3 c u t) \to (\forall (P: Prop).P))))))
 \def
@@ -97,11 +91,8 @@ u) \to ((pc3 c u t) \to (\forall (P: Prop).P))))))
 (a1: A).(arity g c t (asucc g a1))) P (\lambda (x: A).(\lambda (H2: (arity g 
 c t x)).(\lambda (H3: (arity g c t (asucc g x))).(leq_asucc_false g x 
 (arity_mono g c t (asucc g x) H3 x H2) P)))) H1)))))))))).
-(* COMMENTS
-Initial nodes: 151
-END *)
 
-theorem ty3_sn3:
+lemma ty3_sn3:
  \forall (g: G).(\forall (c: C).(\forall (t: T).(\forall (u: T).((ty3 g c t 
 u) \to (sn3 c t)))))
 \def
@@ -111,7 +102,4 @@ u) \to (sn3 c t)))))
 (asucc g a1))) (sn3 c t) (\lambda (x: A).(\lambda (H1: (arity g c t 
 x)).(\lambda (_: (arity g c u (asucc g x))).(sc3_sn3 g x c t (sc3_arity g c t 
 x H1))))) H0))))))).
-(* COMMENTS
-Initial nodes: 119
-END *)