- advances towards strong normalization

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / relocation / drops_ceq.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_ceq.ma b/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_ceq.ma
index 1e0ae189aa896377edaee75c02bf58d030daacf7..676c8d33ff55e85056099af07a5d907fe7a163dd 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_ceq.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/relocation/drops_ceq.ma
@@ -14,18 +14,18 @@
 
 include "basic_2/relocation/drops.ma".
 
-(* GENERAL SLICING FOR LOCAL ENVIRONMENTS ***********************************)
+(* GENERIC SLICING FOR LOCAL ENVIRONMENTS ***********************************)
 
-(* Properties on context sensitive equivalence for terms ********************)
+(* Properties with context-sensitive equivalence for terms ******************)
 
-lemma ceq_lift: d_liftable2 ceq.
+lemma ceq_lift_sn: d_liftable2_sn ceq.
 /2 width=3 by ex2_intro/ qed-.
 
-lemma ceq_inv_lift: d_deliftable2_sn ceq.
+lemma ceq_inv_lift_sn: d_deliftable2_sn ceq.
 /2 width=3 by ex2_intro/ qed-.
 
-(* Note: cfull_inv_lift does not hold *)
-lemma cfull_lift: d_liftable2 cfull.
-#K #T1 #T2 #_ #L #c #f #_ #U1 #_ -K -T1 -c
+(* Note: d_deliftable2_sn cfull does not hold *)
+lemma cfull_lift_sn: d_liftable2_sn cfull.
+#K #T1 #T2 #_ #b #f #L #_ #U1 #_ -K -T1 -b
 elim (lifts_total T2 f) /2 width=3 by ex2_intro/
 qed-.