X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=inline;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Freduction%2Fdfr_ifr.ma;h=25d728a89772898100b6bb8e3dfe0d256eabb7a9;hb=62d0f5f2c89830ebe884e6afee91eb68b68790fc;hp=84e27153095238276ffa28de6ca4162ad0ee0b2c;hpb=be152b5436a8e1e107684722be834dbe02196d53;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/reduction/dfr_ifr.ma b/matita/matita/contribs/lambdadelta/delayed_updating/reduction/dfr_ifr.ma
index 84e271530..25d728a89 100644
--- a/matita/matita/contribs/lambdadelta/delayed_updating/reduction/dfr_ifr.ma
+++ b/matita/matita/contribs/lambdadelta/delayed_updating/reduction/dfr_ifr.ma
@@ -52,6 +52,7 @@ lemma dfr_lift_bi (f) (p) (q) (t1) (t2): t1 ϵ 𝐓 →
     @(subset_eq_canc_dx … (lift_term_after …))
     @lift_term_eq_repl_sn -t1
     @(stream_eq_trans … (tr_compose_uni_dx …))
+    @tr_compose_eq_repl
 (*    
     >nrplus_inj_dx <tr_pap_plus
 *)