X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Fsyntax%2Fprototerm_proper.ma;h=31fa1ca4a04dfe5eb077b2606fd0c5a0c22450d8;hb=829e3a8af3229c4e625245f7265dd67939da98c4;hp=b2bb92cf83b41f12cc543472df230c20ce3b2c5b;hpb=13584a37bbcde10e03c8a488f5b93e1e042da0a6;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/syntax/prototerm_proper.ma b/matita/matita/contribs/lambdadelta/delayed_updating/syntax/prototerm_proper.ma
index b2bb92cf8..31fa1ca4a 100644
--- a/matita/matita/contribs/lambdadelta/delayed_updating/syntax/prototerm_proper.ma
+++ b/matita/matita/contribs/lambdadelta/delayed_updating/syntax/prototerm_proper.ma
@@ -30,13 +30,16 @@ lemma tpc_i (t):
 #H elim (Ht H)
 qed.
 
-(* Basic inversions *********************************************************)
+(* Basic destructions *******************************************************)
 
-lemma in_ppc_comp_trans (t) (p):
+lemma in_comp_tpc_trans (t) (p):
       p ϵ t → t ϵ 𝐏 → p ϵ 𝐏.
 #t #p #Hp #Ht
 @(Ht … Hp)
 qed-.
 
-lemma tpc_e (t): 𝐞 ϵ t → t ϵ 𝐏 → ⊥.
-/2 width=5 by in_ppc_comp_trans/ qed-.
+(* Basic inversions *********************************************************)
+
+lemma tpc_inv_empty (t):
+      (𝐞) ϵ t → t ϵ 𝐏 → ⊥.
+/2 width=5 by in_comp_tpc_trans/ qed-.