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=5d1288abbcad56aff010a876b8d61bc99764cbbd;hpb=b3afed9fd3cc38ecd4578f6b0741be50872a2828;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 5d1288abb..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,6 +17,12 @@ 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).