- strong normalization for rt-comutation

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / rt_computation / lfpxs_lfpxs.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lfpxs_lfpxs.ma b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lfpxs_lfpxs.ma
index e2a5ee4d99cb83ab7094b434ee9a30d24b9deb87..09d004b2c03f24a37ba4e0e06638751f56306401 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lfpxs_lfpxs.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/rt_computation/lfpxs_lfpxs.ma
@@ -12,6 +12,7 @@
 (*                                                                        *)
 (**************************************************************************)
 
+include "basic_2/i_static/tc_lfxs_tc_lfxs.ma".
 include "basic_2/rt_computation/lfpxs.ma".
 
 (* UNCOUNTED PARALLEL RT-COMPUTATION FOR LOCAL ENV.S ON REFERRED ENTRIES ****)
@@ -20,5 +21,4 @@ include "basic_2/rt_computation/lfpxs.ma".
 
 (* Basic_2A1: uses: lpxs_trans *)
 theorem lfpxs_trans: ∀h,G,T. Transitive … (lfpxs h G T).
-#h #G #T #L1 #L #HL1 #L2 #HL2 @(trans_TC … HL1 HL2) (**) (* auto fails *) 
-qed-.
+/2 width=3 by tc_lfxs_trans/ qed-.