]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_2/static/ffdeq_fqup.ma
renaming
[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / static / ffdeq_fqup.ma
index 5d1288abbcad56aff010a876b8d61bc99764cbbd..15baed91f0bb5de366f49bf1ec784e2c7915a626 100644 (file)
@@ -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).