X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fstatic%2Fffdeq_fqup.ma;h=15baed91f0bb5de366f49bf1ec784e2c7915a626;hb=5c186c72f508da0849058afeecc6877cd9ed6303;hp=ab06d6d908558ca076d115d83d1f4fade573a2fc;hpb=b4b5f03ffca4f250a1dc02f277b70e4f33ac8a9b;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_2/static/ffdeq_fqup.ma b/matita/matita/contribs/lambdadelta/basic_2/static/ffdeq_fqup.ma
index ab06d6d90..15baed91f 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/static/ffdeq_fqup.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/static/ffdeq_fqup.ma
@@ -17,7 +17,13 @@ include "basic_2/static/ffdeq.ma".
 
 (* DEGREE-BASED EQUIVALENCE FOR CLOSURES ON REFERRED ENTRIES ****************)
 
+(* Properties with degree-based equivalence for terms ***********************)
+
+lemma tdeq_ffdeq: ∀h,o,T1,T2. T1 ≛[h, o] T2 →
+                  ∀G,L. ⦃G, L, T1⦄ ≛[h, o] ⦃G, L, T2⦄.
+/2 width=1 by ffdeq_intro_sn/ qed.
+
 (* Advanced properties ******************************************************)
 
 lemma ffdeq_refl: ∀h,o. tri_reflexive … (ffdeq h o).
-/2 width=1 by ffdeq_intro/ qed.
+/2 width=1 by ffdeq_intro_sn/ qed.