]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/delayed_updating/syntax/prototerm_proper.ma
update in delayed_updating
[helm.git] / matita / matita / contribs / lambdadelta / delayed_updating / syntax / prototerm_proper.ma
index b2bb92cf83b41f12cc543472df230c20ce3b2c5b..31fa1ca4a04dfe5eb077b2606fd0c5a0c22450d8 100644 (file)
@@ -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-.